10 CLS
170 REM ... “Ž‚…œ ...
180 BEEP
190 CLS
200 PRINT "Š ชฎฉ ใเฎขฅญ์ แซฎฆญฎแโจ (1-3)?"
210 PRINT
220 PRINT "3 - ฎขจ็ฎช",,,,"2 - ๋ข ซ๋ฉ",,,,"1 - เฎไฅแแจฎญ ซ"
230 PRINT
240 INPUT A$
250 IF LEN(A$)>1 THEN GOTO 180
260 IF A$<"1" OR A$>"3" THEN GOTO 180
270 LET A=VAL(A$)+1
280 REM ... €ŒŠ€ ...
290 CLS
300 LINE (0,0)-(511,0)
310 LINE (0,0)-(0,45)
320 LINE (0,45)-(511,45)
330 LINE (511,0)-(511,45)
340 REM ... “˜Š€ ...
350 LINE (0,253)-(13,253)
360 LINE (13,253)-(13,255)
370 PAINT (1,254),4,2
380 CIRCLE (1,253),7,,,,0.7
390 PAINT (3,252),4,2
400 LINE (0,255)-(10,248)
410 REM ... Ž„‹Ž„Š€ ...
420 LET S=(50+RND(1)*433)
430 CIRCLE (S,255),5,,PI/2,PI+PI/2,0.7
440 LINE (S+1,251)-(S+9,251)
450 LINE (S+9,251)-(S+9,248)
460 LINE (S+9,248)-(S+13,248)
470 LINE (S+13,248)-(S+13,251)
480 LINE (S+13,251)-(S+24,253)
490 LINE (S+24,253)-(S+26,250)
500 LINE (S+26,250)-(S+29,250)
510 LINE (S+29,255)-(S+29,250)
520 PAINT (S+9,253),4,2
530 REM ... Ž›’Šˆ ...
540 PRESET (X1,Y1)
550 LET A=A-1
560 IF A=0 THEN GOTO 180
570 PRINT AT (32,1);"ฎฏ๋โฎช: ";A
580 REM ... “ƒŽ‹? ...
590 PRINT AT (1,1);" (31 ฏเฎกฅซ)                   "
600 PRINT AT (1,1);
610 INPUT "“ฃฎซ ";W$
620 IF W$<"0" OR W$>"9" THEN GOTO 590
630 LET W=VAL(W$)
640 IF W<0.1 OR W>89 THEN GOTO 590
650 REM ... ‚›‘’…‹ ...
660 LET X0=0
670 LET Y0=255
680 LET W=W*2*PI/360
690 LET V0=173
700 LET SY=256/2000
710 LET SX=512/3000
720 LET VX=V0*COS(W)
730 LET VY=V0*SIN(W)
740 LET T=0
750 LET H=Y0
760 LET L=X0
770 LET G=-10
780 LET Y=G/2*T*T+VY*T
790 IF Y<0 THEN GOTO 540
800 LET X=VX*T
810 LET X1=(X*SX)
820 LET Y1=(255-Y*SY)
830 PRESET (L*SX,255-H*SY)
840 IF X1>20 THEN GOTO 910
850 PSET (X1,Y1)
860 LET L=X
870 LET H=Y
880 LET T=T+0.05
890 GOTO 780
900 REM ... Ž€‹ˆ? ...
910 IF POINT (X1,Y1)=1 THEN GOTO 850
920 FOR I=0 TO 20
930 CIRCLE (S+10,255),I,,,,0.7
940 BEEP 10,50
950 NEXT I
960 FOR I=0 TO 20
970 CIRCLE (S+10,255),I,0,,,0.7
980 BEEP 10,50
990 NEXT I
1000 REM ... ‚Ž‡‚€’ ...
1010 FOR I=0 TO 1000
1020 NEXT I
1030 GOTO 180