10CLS :R=0:WAIT 0:RANDOMIZE
20FOR A=0 TO 32
50GOSUB 45000
90NEXT A
100GOSUB 45040
140GOSUB 45080
180GCURSOR (63,A)
190GPRINT "303838382C142E3E3F3E2E142C38383830"
200GCURSOR (63,A-8)
210WAIT 20:GPRINT "0000000000000000800000000000000000":WAIT 0
220GOSUB 45080
260GOSUB 45040
300GOSUB 45000
400LOCATE 6,1
410WAIT 63:PRINT "ÐÆÐÆ ½×²ÑÚ°½":WAIT 0
420LOCATE 1,2
430PRINT "PLASE PUSH"
440LOCATE 13,2
450WAIT :PRINT "RETURN KEY":WAIT 0
460LOCATE 1,2
470PRINT "  ¾ÂÒ² ÐÙ?"
480LOCATE 13,2
490PRINT "   [Y/N]   "
500A$= INKEY$
510IF A$="Y" THEN 530
520IF A$="N" THEN 580 ELSE 500
530CLS :WAIT :PRINT " ÐÃÉĵؤ½×²ÑÚ°½ÃÞ½¡ºÉ¹Þ°ÑÊ¢RETURN KEY£ÃÞ½½ÑֳƼϼÀ¡"
540CLS :PRINT " ÓÁ·Ý¶Þ·Ï¯À×4˷ɳÁÀÞڶ޶¶ֿ³¼Ã¤¢A£¶×¼Þ­ÝÆÓÁ·Ý¦¶¹Ï½¡"
550CLS :PRINT " ¿Éķʶ½ÞÄRETURN¦Â¶²Ï½¡Ã²¾²Ê¢BS£·°Ä¶ÃÞÃ޷Ͻ¡½ÃÞƶ¹Á¬¯ÀķʤÓÁ·ÝÖصµ¸¶¹ÚÊÞŵ¾Ï½¡¶¹Å²Ä·Ê¿ÉÏÏRETURN¡"
560CLS :PRINT " Ú°½Ê8¶²µºÅÜÚϽ¡¿É±²ÀÞÃÞÓÁ·Ý¦ÄÞɸײÏÃÞÌÔ¾Ù¶ÃÞµÀɼжÞÁ¶Þ²Ï½¡
570CLS :PRINT " 4˷ɽײÑʤÁ®³¼¶Þ²²Ä·ÄÜٲķ¶Þ±ØϽ¡³Ï¸Ö¿³¼Ã¸ÀÞ»²¡":WAIT 0
580CLS :IF INKEY$ ="" THEN 600 ELSE 580
600LOCATE 6,0:PRINT "½·ÅÎÞÀݦµ¼Ã"
610LOCATE 5,1:PRINT "ÓÁ·Ý¦·ÒøÀÞ»²"
620M= RND 5+5
630LOCATE 10,2
640USING "###": PRINT M
650A$= INKEY$
660IF A$<>"" THEN 670 ELSE 620
670LOCATE 10,2:WAIT 63:PRINT M:WAIT 0
700IF R=8 THEN 16000
701IF R=0 THEN 705
702CLS :LOCATE 4,1:WAIT :PRINT "·ÞÉÚ°½¶ÞʼÞÏØϽ¡":WAIT 0
703IF R=7 THEN CLS :LOCATE 9,1:WAIT 63:PRINT "FINAL!":WAIT 0
705S=0:T=0:U=0:V=0:R=R+1:A= RND 4:B= RND 4:C= RND 4:D= RND 4
710I=A*15:J=B*15:K=C*15:L=D*15:CLS
720ON A GOTO 730,740,750,760
730LOCATE 0,0:PRINT "½×²ÑA:1²ÄØϽ":GOTO 770
740LOCATE 0,0:PRINT "½×²ÑA:¿º¿º²¹¿³ÃÞ½":GOTO 770
750LOCATE 0,0:PRINT "½×²ÑA:½º¼ÌÁ®³ÃÞ½":GOTO 770
760LOCATE 0,0:PRINT "½×²ÑA:·®³ÊÀÞÒÃÞ½"
770ON B GOTO 780,790,800,810
780LOCATE 0,1:PRINT "½×²ÑB:ϱÐÃÅ":GOTO 820
790LOCATE 0,1:PRINT "½×²ÑB:ϱϱÀÞÅ":GOTO 820
800LOCATE 0,1:PRINT "½×²ÑB:ÄÞ³¶Å¥¥¥":GOTO 820
810LOCATE 0,1:PRINT "½×²ÑB:ÀÞÒÀÞ¥¥¥"
820ON C GOTO 830,840,850,860
830LOCATE 0,2:PRINT "½×²ÑC:ÓׯÀ±!":GOTO 870
840LOCATE 0,2:PRINT "½×²ÑC:²¹Ù¶Ó":GOTO 870
850LOCATE 0,2:PRINT "½×²ÑC:¥¥¥":GOTO 870
860LOCATE 0,2:PRINT "½×²ÑC:³°Ý¤³°Ý"
870ON D GOTO 880,890,900,910
880WAIT :LOCATE 0,3:PRINT "½×²ÑD:¾Þ¯º³Á®³":GOTO 920
890WAIT :LOCATE 0,3:PRINT "½×²ÑD:Äر´½Þ¹ÞÝ·":GOTO 920
900WAIT :LOCATE 0,3:PRINT "½×²ÑD:µÂ¶ÚÓ°ÄÞ":GOTO 920
910WAIT :LOCATE 0,3:PRINT "½×²ÑD:·É³Éн·ÞÀ"
920WAIT 0:N=A*1.5+( RND 10)/10
930O=B*1.5+( RND 10)/10
940P=C*1.5+( RND 10)/10
950Q=D*1.5+( RND 10)/10
960CLS
970LOCATE 0,0:USING "##.#":PRINT "A:";N;"ÊÞ²"
980LOCATE 0,1:PRINT "B:";O;"ÊÞ²"
990LOCATE 0,2:PRINT "C:";P;"ÊÞ²"
1000LOCATE 0,3:PRINT "D:";Q;"ÊÞ²"
1010LOCATE 10,0:PRINT "²¸×¶¹Ù?":LOCATE 11,1:PRINT "ÓÁ·Ý":LOCATE 11,2:PRINT USING "######";M
1012IF R=8 THEN LOCATE 11,3:PRINT "FINAL!"
1020LOCATE 18,0:INPUT "AÆ";S
1030LOCATE 18,1:INPUT "BÆ";T
1040LOCATE 18,2:INPUT "CÆ";U
1050LOCATE 18,3:INPUT "DÆ";V
1055IF S<0 OR T<0 OR U<0 OR V<0 THEN 1061
1060IF M<S+T+U+V THEN 1069 ELSE 1080
1061LOCATE 11,3:WAIT 63:PRINT "ÀÞÒ!   ":WAIT 0:GOTO 1070
1069LOCATE 10,3:WAIT 63:PRINT "¿ÝÅÆŲÖ":WAIT 0
1070LOCATE 10,3:PRINT "       ":LOCATE 18,0:PRINT "      ":LOCATE 18,1:PRINT "    ":LOCATE 18,2:PRINT "      ":LOCATE 18,3:PRINT "      ":S=0:T=0:U=0:V=0:GOTO 1012
1080CLS :M=M-(S+T+U+V)
1090IF R=1 THEN 1120
1100IF R=2 THEN 1130
1110IF R=3 THEN 1140 ELSE 1150
1120LOCATE 8,1:WAIT 63:PRINT "1ST RACE":WAIT 0:GOTO 2000
1130LOCATE 8,1:WAIT 63:PRINT "2ND RACE":WAIT 0:GOTO 2000
1140LOCATE 8,1:WAIT 63:PRINT "3RD RACE":WAIT 0:GOTO 2000
1150IF R=8 THEN 1170
1160LOCATE 7,1:USING "##":WAIT 63:PRINT R;"TH RACE":WAIT 0:GOTO 2000
1170LOCATE 7,1:WAIT 63:PRINT "LAST RACE":WAIT 0:GOTO 2000
2000CLS
2001RESTORE 2082:FOR AA=0 TO 1
2002READ BB
2010GCURSOR (BB,31)
2020GPRINT "FF808584BC848580FF"
2030GCURSOR (BB,23)
2040GPRINT "FF00F75151D12700FF"
2050GCURSOR (BB,15)
2060GPRINT "FF0081412F418100FF"
2070GCURSOR (BB,7)
2080GPRINT "FF01495555552501FF"
2081NEXT AA
2082DATA 0,135
2170GCURSOR (0,31)
2180GCURSOR (67,31)
2190GPRINT "FF80BFA0A0A0A0A080FF"
2200GCURSOR (67,23)
2210GPRINT "FF007C121111127C00FF"
2220GCURSOR (67,15)
2230GPRINT "FF003C424242423C00FF"
2240GCURSOR (67,7)
2250GPRINT "FF01798585A5A56501FF"
2260LOCATE 2,1:PRINT "A"
2270LOCATE 2,3:PRINT "B"
2280LOCATE 21,1:PRINT "C"
2290LOCATE 21,3:WAIT 40:PRINT "D":WAIT 0
2300E=9:F=0:GOSUB 32570
2340F=16:GOSUB 32570
2380G=123:H=0:GOSUB 34110
2420H=16:GOSUB 34110
2455W=9:X=9:Y=123:Z=123:AMT=0:BMT=0:CMT=0:DMT=0:AJ=0:BJ=0:CJ=0:DJ=0
2460F=0:IF AMT<>0 THEN 2570
2467IF AJ<>0 THEN 2610
2470AM= RND 100
2480IF AM<I THEN 3000
2490AMW= RND 3
2500IF AMW=1 THEN 2610
2520W=W+1
2530E=W
2540GOSUB 32530
2560AMT=1:IF W=55 THEN 10000 ELSE 3000
2570W=W+1:E=W
2580GOSUB 32570
2600AMT=0:IF W=55 THEN 10000 ELSE 3000
2610ON AJ GOTO 2660,2700,2740,2780,2820,2860,2900,2940
2620W=W+1:E=W:AMT=0
2630GOSUB 32620
2650AJ=1:IF W=55 THEN 10000 ELSE 3000
2660W=W+1:E=W
2670GOSUB 32660
2690AJ=2:IF W=55 THEN 10000 ELSE 3000
2700W=W+1:E=W
2710GOSUB 32700
2730AJ=3:IF W=55 THEN 10000 ELSE 3000
2740W=W+1:E=W
2750GOSUB 32740
2770AJ=4:IF W=55 THEN 10000 ELSE 3000
2780W=W+1:E=W
2790GOSUB 32740
2810AJ=5:IF W=55 THEN 10000 ELSE 3000
2820W=W+1:E=W
2830GOSUB 32700
2850AJ=6:IF W=55 THEN 10000 ELSE 3000
2860W=W+1:E=W
2870GOSUB 32660
2890AJ=7:IF W=55 THEN 10000 ELSE 3000
2900W=W+1:E=W
2910GOSUB 32620
2930AJ=8:IF W=55 THEN 10000 ELSE 3000
2940W=W+1:E=W
2950GOSUB 32570:AJ=0:IF W=55 THEN 10000 ELSE 3000
3000F=16:IF BMT<>0 THEN 3110
3020IF BJ<>0 THEN 3150
3030BM= RND 100
3040IF BM<J THEN 4000
3050BMW= RND 3
3060IF BMW=1 THEN 3150
3070X=X+1:E=X:BMT=1
3080GOSUB 32530
3100BMT=1:IF X=55 THEN 11000 ELSE 4000
3110X=X+1:E=X
3120GOSUB 32570
3140BMT=0:IF X=55 THEN 11000 ELSE 4000
3150ON BJ GOTO 3200,3240,3280,3320,3360,3400,3440,3480
3160X=X+1:E=X:BMT=0
3170GOSUB 32620
3190BJ=1:IF X=55 THEN 11000 ELSE 4000
3200X=X+1:E=X
3210GOSUB 32660
3230BJ=2:IF X=55 THEN 11000 ELSE 4000
3240X=X+1:E=X
3250GOSUB 32700
3270BJ=3:IF X=55 THEN 11000 ELSE 4000
3280X=X+1:E=X
3290GOSUB 32740
3310BJ=4:IF X=55 THEN 11000 ELSE 4000
3320X=X+1:E=X
3330GOSUB 32740
3350BJ=5:IF X=55 THEN 11000 ELSE 4000
3360X=X+1:E=X
3370GOSUB 32700
3390BJ=6:IF X=55 THEN 11000 ELSE 4000
3400X=X+1:E=X
3410GOSUB 32660
3430BJ=7:IF X=55 THEN 11000 ELSE 4000
3440X=X+1:E=X
3450GOSUB 32620
3470BJ=8:IF X=55 THEN 11000 ELSE 4000
3480X=X+1:E=X
3490GOSUB 32570:BJ=0:IF X=55 THEN 11000 ELSE 4000
4000H=0:IF CMT<>0 THEN 4110
4020IF CJ<>0 THEN 4150
4030CM= RND 100
4040IF CM<K THEN 5000
4050CMW= RND 3
4060IF CMW=1 THEN 4150
4070Y=Y-1:G=Y:CMT=1
4080GOSUB 34070
4100CMT=1:IF Y=77 THEN 12000 ELSE 5000
4110Y=Y-1:G=Y
4120GOSUB 34110
4140CMT=0:IF Y=77 THEN 12000 ELSE 5000
4150ON CJ GOTO 4200,4240,4280,4320,4360,4400,4440,4480
4160Y=Y-1:G=Y:CMT=0
4170GOSUB 34160
4190CJ=1:IF Y=77 THEN 12000 ELSE 5000
4200Y=Y-1:G=Y
4210GOSUB 34200
4230CJ=2:IF Y=77 THEN 12000 ELSE 5000
4240Y=Y-1:G=Y
4250GOSUB 34240
4270CJ=3:IF Y=77 THEN 12000 ELSE 5000
4280Y=Y-1:G=Y
4290GOSUB 34280
4310CJ=4:IF Y=77 THEN 12000 ELSE 5000
4320Y=Y-1:G=Y
4330GOSUB 34280
4350CJ=5:IF Y=77 THEN 12000 ELSE 5000
4360Y=Y-1:G=Y
4370GOSUB 34240
4390CJ=6:IF Y=77 THEN 12000 ELSE 5000
4400Y=Y-1:G=Y
4410GOSUB 34200
4430CJ=7:IF Y=77 THEN 12000 ELSE 5000
4440Y=Y-1:G=Y
4450GOSUB 34160
4470CJ=8:IF Y=77 THEN 12000 ELSE 5000
4480Y=Y-1:G=Y
4490GOSUB 34110
4510CJ=0:IF Y=77 THEN 12000 ELSE 5000
5000H=16:IF DMT<>0 THEN 5110
5020IF DJ<>0 THEN 5150
5030DM= RND 100
5040IF DM<L THEN 6000
5050DMW= RND 3
5060IF DMW=1 THEN 5150
5070Z=Z-1:G=Z:DMT=1
5080GOSUB 34070
5100DMT=1:IF Z=77 THEN 13000 ELSE 6000
5110Z=Z-1:G=Z
5120GOSUB 34110
5140DMT=0:IF Z=77 THEN 13000 ELSE 6000
5150ON DJ GOTO 5200,5240,5280,5320,5360,5400,5440,5480
5160Z=Z-1:G=Z:DMT=0
5170GOSUB 34160
5190DJ=1:IF Z=77 THEN 13000 ELSE 6000
5200Z=Z-1:G=Z
5210GOSUB 34200
5230DJ=2:IF Z=77 THEN 13000 ELSE 6000
5240Z=Z-1:G=Z
5250GOSUB 34240
5270DJ=3:IF Z=77 THEN 13000 ELSE 6000
5280Z=Z-1:G=Z
5290GOSUB 34280
5310DJ=4:IF Z=77 THEN 13000 ELSE 6000
5320Z=Z-1:G=Z
5330GOSUB 34280
5350DJ=5:IF Z=77 THEN 13000 ELSE 6000
5360Z=Z-1:G=Z
5370GOSUB 34240
5390DJ=6:IF Z=77 THEN 13000 ELSE 6000
5400Z=Z-1:G=Z
5410GOSUB 34200
5430DJ=7:IF Z=77 THEN 13000 ELSE 6000
5440Z=Z-1:G=Z
5450GOSUB 34160
5470DJ=8:IF Z=77 THEN 13000 ELSE 6000
5480Z=Z-1:G=Z
5490GOSUB 34110
5510DJ=0:IF Z=77 THEN 13000 ELSE 6000
6000GOTO 2460
10000WAIT 50:LOCATE 0,0:PRINT :WAIT 0:IF S=0 THEN 10900
10010CLS :M=M+ INT (S*N+0.5)
10020LOCATE 12,0:PRINT "½×²ÑAɶÁ":Z=0
10030Z=Z+1:GCURSOR (36,23)
10040GPRINT "3C7E7FD7ABB7BFB7ABD77F7E3C"
10050GCURSOR (36,15)
10060WAIT 15:GPRINT "0000000080C0F8C0800000000":WAIT 0:IF Z=3 THEN 10200
10070GCURSOR (36,23)
10080GPRINT "3C7E6BD5DBDFDBD5EB7F3F1E00"
10090GCURSOR (36,15)
10100WAIT 15:GPRINT "00000080C0FCE0C0C080000000":WAIT 0
10110GCURSOR (36,23)
10120GPRINT "3C7E7FD7ABB7BFB7ABD77F7E3C"
10130GCURSOR (36,15)
10140WAIT 15:GPRINT "0000000080C0F8C08000000000":WAIT 0
10150GCURSOR (36,23)
10160GPRINT "001E3F7FEBD5DBDFDBD56B7E3C"
10170GCURSOR (36,15)
10180WAIT 15:GPRINT "00000080C0C0E0FCC080000000":WAIT 0:GOTO 10030
10200LOCATE 12,0
10210PRINT "¶¹·Ý " ; USING "#######";S
10220LOCATE 12,1
10230PRINT "ÊÞ²ØÂ"; USING "#####.#";N
10240LOCATE 12,2
10250PRINT "¶¸Ä¸ "; USING "#######"; INT (S*N+0.5)
10260LOCATE 12,3
10270WAIT :PRINT "ÓÁ·Ý "; USING "#######";M;:WAIT 0:GOTO 700
10900CLS :LOCATE 5,1:WAIT :PRINT "»ÞÝÈݤ½×²ÑAɶÁ¡" :WAIT 0:IF M=0 THEN 15000 ELSE 700
11000WAIT 50:LOCATE 0,0:PRINT :WAIT 0:IF T=0 THEN 11900
11010CLS :M=M+ INT (T*O+0.5)
11020LOCATE 12,0:PRINT "½×²ÑBɶÁ"
11030GCURSOR (36,23)
11040GPRINT "3C7E7FFBB7B7BFB7B79B7F7E3C"
11050GCURSOR (36,15)
11060WAIT 15:GPRINT "0000000080C0F8C08000000000"
11070GCURSOR (45,15)
11080WAIT 7:GPRINT "00001000"
11090GCURSOR (45,15)
11100GPRINT "0000380000"
11110GCURSOR (45,15)
11120GPRINT "00107C1000"
11130GCURSOR (45,15)
11140GPRINT "1010FE1010"
11150GCURSOR (45,15)
11160GPRINT "00107C1000"
11170GCURSOR (45,15)
11180GPRINT "0000380000"
11190GCURSOR (45,15)
11200GPRINT "0000100000"
11210GCURSOR (45,15)
11220GPRINT "0000000000":WAIT 0
11230LOCATE 12,0
11240PRINT "¶¹·Ý "; USING "#######";T
11250LOCATE 12,1
11260PRINT "ÊÞ²ØÂ"; USING "#####.#";O
11270LOCATE 12,2
11280PRINT "¶¸Ä¸ "; USING "#######"; INT (T*O+0.5)
11290LOCATE 12,3
11300WAIT :PRINT "ÓÁ·Ý "; USING "#######";M:WAIT 0:GOTO 700
11900CLS :LOCATE 5,1:WAIT :PRINT "»ÞÝÈݤ½×²ÑBɶÁ¡" :WAIT 0:IF M=0 THEN 15000 ELSE 700
12000LOCATE 0,0:WAIT 50:PRINT :WAIT 0:IF U=0 THEN 12900
12010CLS :M=M+ INT (U*P+0.5)
12015LOCATE 12,0:PRINT "½×²ÑCɶÁ"
12020FOR A=0 TO 1
12030GCURSOR (36,23)
12040GPRINT "3C7E7FD7ABB7BFB7ABD77F7E3C"
12050GCURSOR (36,15)
12060WAIT 5:GPRINT "0000000080C0F8C08000000000":WAIT 0
12065FOR B=0 TO 180 STEP 20
12070C=-10* SIN B
12090GCURSOR (36,24+C)
12100GPRINT "000F1F3E7D6643667D3E1F0F00"
12111GCURSOR (36,16+C)
12112GPRINT "000080C060F0FEF060C0800000"
12113GCURSOR (36,32+C)
12114GPRINT "0000000000000000000000000000"
12115GCURSOR (36,8+C)
12120GPRINT "00000000000000000000000000"
12130NEXT B:NEXT A
12131GCURSOR (36,23)
12132GPRINT "3C7E7FD7ABB7BFB7ABD77F7E3C"
12133GCURSOR (36,15)
12134WAIT 5:GPRINT "0000000080C0F8C08000000000":WAIT 0
12150LOCATE 12,0
12160PRINT "¶¹·Ý "; USING "#######";U
12170LOCATE 12,1
12180PRINT "ÊÞ²ØÂ"; USING "#####.#";P
12190LOCATE 12,2
12200PRINT "¶¸Ä¸ "; USING "#######"; INT (U*P+0.5)
12210LOCATE 12,3
12220WAIT :PRINT "ÓÁ·Ý "; USING "#######";M:WAIT 0:GOTO 700
12900CLS :LOCATE 5,1:WAIT :PRINT "»ÞÝÈݤ½×²ÑCɶÁ¡" :WAIT 0:IF M=0 THEN 15000 ELSE 700
13000LOCATE 0,0:WAIT 50:PRINT :WAIT 0:IF V=0 THEN 13900
13010CLS :M=M+ INT (V*Q+0.5)
13020LOCATE 12,0
13030PRINT "½×²ÑDɶÁ"
13040GCURSOR (36,23)
13050GPRINT "3C7E7FD7ABB7BFB7ABD77F7E3C"
13060GCURSOR (36,15)
13070WAIT 10:GPRINT "0000000080C0F8C0800000000":WAIT 4
13080GCURSOR (36,23)
13090GPRINT "3C7E7F7FD7ABB7BFB7AB577E3C"
13120GCURSOR (36,23)
13130GPRINT "3C7E7FFFFFD7ABB7BFB72B563C"
13160GCURSOR (36,23)
13170GPRINT "3C7E7FFFFFFFD7ABB7BF372A14"
13200GCURSOR (36,23)
13210GPRINT "3C7E7FFFFFFFFFD7ABB73F3628"
13240GCURSOR (36,23)
13250GPRINT "3C7E7FFFFFFFFFFFD7AB373E34"
13280GCURSOR (36,23)
13290GPRINT "3C7E7FFFFFFFFFFFFFD72B363C"
13320GCURSOR (36,23)
13330GPRINT "3C7E7FFFFFFFFFFFFFFF572A34"
13360GCURSOR (36,23)
13370GPRINT "3C7E7FFFFFFFFFFFFFFF7F5628"
13400GCURSOR (36,23)
13410GPRINT "3C7E7FFFFFFFFFFFFFFF7F7E14"
13440GCURSOR (36,23)
13450WAIT 15:GPRINT "3C7E7FFFFFFFFFFFFFFF7F7E3C":WAIT 0
13700LOCATE 12,0
13710PRINT "¶¹·Ý "; USING "#######";V
13720LOCATE 12,1
13731PRINT "ÊÞ²ØÂ"; USING "#####.#";Q
13740LOCATE 12,2
13750PRINT "¶¸Ä¸ "; USING "#######"; INT (V*Q+0.5)
13760LOCATE 12,3
13770WAIT :PRINT "ÓÁ·Ý "; USING "#######";M:WAIT 0:GOTO 700
13900CLS :LOCATE 5,1:WAIT :PRINT "»ÞÝÈݤ½×²ÑDɶÁ¡" :WAIT 0:IF M=0 THEN 15000 ELSE 700
15000CLS :LOCATE 7,1
15010PRINT "GAME OVER"
15020LOCATE 5,2:WAIT 63:PRINT "±ÅÀÊ Ê»Ý ¼Ï¼À¡":GOTO 25000
16000CLS
16010IF M<50 THEN 20000
16020IF M>=200 THEN 23000
16030IF M>=120 THEN 22000
16040GOTO 21000
20000B=144:C=20:E=2:F=5:GOSUB 40000:LOCATE 8,0
20010WAIT 50:PRINT "½×²Ñ¼®³":WAIT 0
20020LOCATE 6,2
20030PRINT "Ó¯Ä"
20040LOCATE 5,3
20050PRINT "¶ÞÝÊÞÚ"
20052LINE (26,6)-(78,24)
20054WAIT 100:LINE (32,40)-(78,28):WAIT 0
20060LOCATE 15,1
20065PRINT "Ó³²ÁÄÞÔÙ?"
20070LOCATE 17,2
20075PRINT "[Y/N]"
20100GOTO 25012
21000GOSUB 41000:B=31:E=2:F=5:GOSUB 41800:GOSUB 41700:GOSUB 41600:GOSUB 41850:GOTO 25012
22000FOR A=0 TO 600:NEXT A:GOSUB 42000:GOSUB 42800
22030GOTO 25012
23000GOSUB 46000
23010END
25000WAIT 0:LOCATE 5,3
25010PRINT "Ó³²ÁÄÞÔÙ? [Y/N]"
25012R=0
25015A$= INKEY$
25020IF A$="Y" THEN 580
25030IF A$="N" THEN 26000
25040GOTO 25015
26000CLS :LOCATE 7,1:PRINT "ÃÞÊÏÀ²ÂÉ˶":USING :END
32530GCURSOR (E,15+F)
32540GPRINT "000E1F1F3F3F3F272D0A0D0E"
32550GCURSOR (E,7+F)
32560GPRINT "00000080C0E0F8E0C08000":RETURN
32570GCURSOR (E,15+F)
32580GPRINT "001C3E3F7F7F7F4F5B151A1C"
32590GCURSOR (E,7+F)
32600GPRINT "0000000080C0F0C080000000":RETURN
32620GCURSOR (E,15+F)
32630GPRINT "00000E1F3F3F3F1F1F0F0602"
32640GCURSOR (E,7+F)
32650GPRINT "00004040C0E0F0D8A8D8F060":RETURN
32660GCURSOR (E,15+F)
32670GPRINT "0000070F1F1F1F0F0F070301"
32680GCURSOR (E,7+F)
32690GPRINT "000020A0E0F0F8ECD4EC7830":RETURN
32700GCURSOR (E,15+F)
32710GPRINT "000003070F0F0F0707030100"
32720GCURSOR (E,7+F)
32730GPRINT "000090D0F0F8FCF6EAF6BC98":RETURN
32740GCURSOR (E,15+F)
32750GPRINT "000001030707070303010000"
32760GCURSOR (E,7+F)
32770GPRINT "0000C8E8F8FCFEFBF5FBDE4C":RETURN
34070GCURSOR (G,15+H)
34080GPRINT "0E0D0A2D273F3F3F1F1F0E00"
34090GCURSOR (G,7+H)
34100GPRINT "000080C0E0F8E0C080000000":RETURN
34110GCURSOR (G,15+H)
34120GPRINT "1C1A155B4F7F7F7F3F3E1C00"
34130GCURSOR (G,7+H)
34140GPRINT "00000080C0F0C08000000000":RETURN
34160GCURSOR (G,15+H)
34170GPRINT "02060F1F1F3F3F3F1F0E0000"
34180GCURSOR (G,7+H)
34190GPRINT "60F0D8A8D8F0E0C040400000":RETURN
34200GCURSOR (G,15+H)
34210GPRINT "0103070F0F1F1F1F0F070000"
34220GCURSOR (G,7+H)
34230GPRINT "3078ECD4ECF8F0E0A0200000":RETURN
34240GCURSOR (G,15+H)
34250GPRINT "00010307070F0F0F07030000"
34260GCURSOR (G,7+H)
34270GPRINT "98BCF6EAF6FCF8F0D0900000":RETURN
34280GCURSOR (G,15+H)
34290GPRINT "000001030307070703010000"
34300GCURSOR (G,7+H)
34310GPRINT "4CDEFBF5FBFEFCF8E8C80000":RETURN
40000FOR A=0 TO C
40010FOR B=B TO B-2 STEP -1
40020GCURSOR (B,31)
40030GPRINT "152C5F57F3FFFFFFFFFFFF7F7F3E1C00"
40040GCURSOR (B,23):WAIT E
40050GPRINT "008080C0E0F0F0E0C080800000000000":WAIT 0
40060NEXT B
40070GCURSOR (B,31)
40080GPRINT "152C5F5753FFFFFFFFFF7F7F3F1E0000"
40090GCURSOR (B,23):WAIT F
40100GPRINT "0080C0C0E0F0FCF8F0E0C0800000000000":WAIT 0
40110NEXT A
40120RETURN
41000FOR A=0 TO 33
41002GOSUB 41010:NEXT A:RETURN
41010GCURSOR (37,A)
41015GPRINT "010F1F3E3C3E1F0F01"
41020GCURSOR (37,A-8)
41025GPRINT "FEFFFB753B75FBFFFE"
41030GCURSOR (37,A-16)
41035GPRINT "2280C4E0FAE0C08410"
41036RETURN
41600GCURSOR (29,B)
41605GPRINT "000008283C3C3E3E7F7B76757675763B3F3F3F1F1F1E1E0E0C00"
41610GCURSOR (29,B-8)
41615GPRINT "00000008000000100082C060E060E0C1C38100000010"
41620GCURSOR (29,B-16)
41625GPRINT "0040E040000000000000003030000000800000"
41626RETURN
41700GCURSOR (33,B)
41705GPRINT "070F1F1F3F3B3A3B3A3B3F1F1F0F07"
41710GCURSOR (33,B-8)
41715GPRINT "02A088C0E470B878BA70E0C4809001"
41720GCURSOR (33,B-16)
41725WAIT 3:GPRINT "000000000000000000":WAIT 0
41726RETURN
41800GCURSOR (35,B)
41805GPRINT "030F1F1F3B3B3B3B3B1F1F0F030000"
41810GCURSOR (35,B-8)
41815GPRINT "80E4F0F1B858BE58B8F0F0E2800000"
41820GCURSOR (35,B-16)
41825WAIT 3:GPRINT "400010000080002000400000800000":WAIT 0
41826RETURN
41850B=144:C=20:E=2:F=5:GOSUB 40000
41852LINE (98,14)-(140,4):LINE (98,24)-(140,34)
41854LOCATE 17,2
41856WAIT :PRINT "±"
41858LOCATE 19,2
41860PRINT "·Ð"
41862LOCATE 17,2
41864PRINT "ÂÌÞÚÃÙ":WAIT 0
41866LINE (0,0)-(28,6)
41868LINE (0,31)-(28,23)
41870LOCATE 0,1:WAIT :PRINT "Á¶Þ³":LOCATE 0,2:PRINT "Á¶Þ³":LOCATE 0,1:PRINT "ÓÄÓÄ":LOCATE 0,2:PRINT "º³ÅÉ":LOCATE 0,1:PRINT "¿ÚÊ ":LOCATE 0,2:PRINT "ÄÓ¶¸":WAIT0
41872FOR D=0 TO 3
41874LOCATE 0,D:PRINT "     ":LOCATE 16,D:PRINT "        "
41876NEXT D
41878FOR B=31 TO 16 STEP -1
41880GOSUB 41600
41882NEXT B
41884C=31:E=0:F=0:B=81
41886GOSUB 40000
41888FOR B=16 TO 31
41890GOSUB 41600
41900NEXT B
41902LOCATE 6,0:PRINT "ÊÞÌÞٽײѼ®³"
41904LINE (58,14)-(125,8)
41906LINE (58,24)-(125,31)
41908LOCATE 10,2
41910WAIT :PRINT "ÏÀÞÏÀÞ!"
41912LOCATE 10,2
41914PRINT "ӯĶÞÝÊÞ×ŲÄ"
41916LOCATE 10,2
41918PRINT "Ä޸Ƶ¶¼Á¬³¿Þ":WAIT 0
41920FOR A=1 TO 3
41922LOCATE 9,A
41924PRINT "             "
41926NEXT A
41928LOCATE 10,1
41930PRINT "Ó³²ÁÄÞÔÙ?"
41932LOCATE 12,2
41934PRINT "[Y/N]"
41936RETURN
42000LINE (120,0)-(144,6)
42010LINE (120,31)-(144,23)
42020LOCATE 20,1
42030WAIT :PRINT "βÐ!"
42040LOCATE 20,2
42050PRINT "βÐ!":WAIT 0
42060CLS
42095A=171:RESTORE 42230
42100FOR C=0 TO 14
42110READ B
42120FOR A=A TO A-8 STEP -1:GOSUB 42130:NEXT A:NEXT C
42130GCURSOR (A+6,B)
42140GPRINT "000708010000"
42150GCURSOR (A,B-8)
42160GPRINT "00140E423906F9061906F90619061A200000"
42170GCURSOR (A,B-16)
42180GPRINT "307CFFFFFFAF576F6F57AFFFFFFF7C300000"
42190GCURSOR (A+2,B-24)
42200GPRINT "0080C0C0E0E0E0E0C0C0800000"
42210RETURN
42230DATA 30,29,30,31,30,29,30,31,30,29,30,31,30,29,30
42800C=20:B=144:E=2:F=5:GOSUB 40000
42810LINE (98,14)-(140,4):LINE (98,24)-(140,34)
42820LOCATE 17,2
42830WAIT :PRINT "±"
42840LOCATE 19,2
42850PRINT "²²Å°"
42860LOCATE 17,2
42870PRINT "ÎÞ¸Ó  "
42880LOCATE 17,2
42890PRINT "ÄÍÞÙ¶Å?":WAIT 0
42900LINE (0,0)-(34,6)
42910LINE (0,23)-(34,16)
42920LOCATE 0,1
42930WAIT :PRINT "±¼¶Þ"
42935LOCATE 0,1
42940PRINT "±ÚÊÞ"
42950LOCATE 4,1
42960PRINT "È"
42970LOCATE 17,2
42980PRINT "¼Þ¬    "
42990LOCATE 21,2
43000PRINT "Ñض":WAIT 0
43001FOR A=0 TO 3
43002LOCATE 0,A:PRINT "      ":LOCATE 16,A:PRINT "        ":NEXT A
43010A=36:FOR B=29 TO 16 STEP -1
43020GOSUB 42130
43030NEXT B
43040C=31:E=0:F=0:B=81
43050GOSUB 40000
43060A=36
43070FOR B=16 TO 29
43080GOSUB 42130
43090NEXT B
43100LOCATE 9,0
43110PRINT "βнײÑ"
43120LOCATE 11,1
43130WAIT 50:PRINT "¼®³":WAIT 0
43140LINE (0,0)-(34,6)
43150LINE (0,31)-(34,24)
43160LOCATE 1,1
43170PRINT "ŶŶ"
43180LOCATE 0,2
43190WAIT 40:PRINT "ÔÙ¼Þ¬Ý":WAIT 0
43200LOCATE 9,2
43210PRINT "Ó³²ÁÄÞÔÙ?"
43220LOCATE 11,3
43230PRINT "[Y/N]"
43240RETURN
45000GCURSOR (64,A)
45010GPRINT "000F1F1F352A2D2F2D2A351F1F0F00"
45020GCURSOR (65,A-8)
45030GPRINT "0080C0C0E0F0FEF0E0C0C08000":RETURN
45040GCURSOR (64,A)
45050GPRINT "0C1E3F3B353B3F3F3F3B353B3F1E0C"
45060GCURSOR (65,A-8)
45070WAIT 5:GPRINT "00008080C0E0F8E0C080800000":WAIT 0:RETURN
45080GCURSOR (63,A)
45090GPRINT "00183C3E362B373F3F3F372B363E3C1800"
45100GCURSOR (67,A-8)
45110WAIT 5:GPRINT "00000080E080000000":WAIT 0:RETURN
46000B=144:C=20:E=2:F=5:GOSUB 40000
46010LINE (28,4)-(77,20):LINE (28,31)-(77,26)
46020LOCATE 5,2
46030WAIT :PRINT "ÐÝÅ°"
46040LOCATE 5,2
46050PRINT "ÃÞÊÞÝ"
46060LOCATE 5,2
46070PRINT "ÀÞÖ°!":WAIT 0
46080FOR A=0 TO 3
46090LOCATE 4,A
46100PRINT "         "
46110NEXT A
46120C=31:B=81:E=0:F=0
46130GOSUB 40000
46150WAIT :PRINT "ººÃÞÊĵ¸¶×ÐòٺÄƼøÀÞ»²":CLS
46220FOR A=0 TO 600:NEXT A
46230LOCATE 6,0
46240PRINT "½×²Ñ¶Þ±×ÜÚÀ!"
46250GCURSOR (63,32)
46260GOSUB 47000
46270LOCATE 4,0
46280PRINT "½×²ÑÊ Å¶Ï¦ÖÝÀÞ!"
46290RESTORE 47100
46300FOR A=0 TO 6
46310READ B
46320GCURSOR (B,32)
46330WAIT 30:GOSUB 47000
46340NEXT A
46350LOCATE 4,0
46360WAIT :PRINT " ½×²ÑÀÁ¶Þ¥¥¥!!?":WAIT 0
46370LOCATE 5,0
46380PRINT "              "
46382FOR A=74 TO 71 STEP -1
46384GCURSOR (A,32)
46388GOSUB 47000:NEXT A
46390FOR A=51 TO 59
46400GCURSOR (A,83-A)
46420GOSUB 47000
46430NEXT A
46440FOR A=60 TO 67
46450GCURSOR (A,24)
46460GOSUB 47000
46470NEXT A
46480FOR A=87 TO 83 STEP -1
46490GCURSOR (A,32)
46500GOSUB 47000
46510NEXT A
46520FOR A=82 TO 75 STEP -1
46530GCURSOR (A,A-51)
46540GOSUB 47000:NEXT A
46550FOR A=39 TO 51
46560GCURSOR (A,32)
46570GOSUB 47000:NEXT A
46580FOR A=52 TO 59
46590GCURSOR (A,83-A)
46600GOSUB 47000:NEXT A
46610FOR A=99 TO 95 STEP -1
46620GCURSOR (A,32)
46630GOSUB 47000:NEXT A
46640FOR A=94 TO 79 STEP -1
46650GCURSOR (A,A-63)
46660GOSUB 47000:NEXT A
46670FOR A=78 TO 71 STEP -1
46680GCURSOR (A,16)
46690GOSUB 47000:NEXT A
46700FOR A=27 TO 38
46710GCURSOR (A,32)
46720GOSUB 47000:NEXT A
46730FOR A=39 TO 55
46740GCURSOR (A,71-A)
46750GOSUB 47000:NEXT A
46760FOR A=56 TO 63
46770GCURSOR (A,16)
46780GOSUB 47000:NEXT A
46790FOR A=111 TO 100 STEP -1
46800GCURSOR (A,32)
46810GOSUB 47000:NEXT A
46820FOR A=99 TO 75 STEP -1
46830GCURSOR (A,A-67)
46840GOSUB 47000:NEXT A
46850FOR A=74 TO 67 STEP -1
46860GCURSOR (A,8)
46870GOSUB 47000:NEXT A
46880LOCATE 15,0
46890WAIT :PRINT "¥¥¥"
46900LOCATE 15,1
46910PRINT "ÌßÛ¸Þ×ѶÞ"
46920LOCATE 15,2
46930PRINT "µµ·½·ÞÃ"
46940LOCATE 15,3
46950PRINT "Ã޷Ŷ¯À"
46960LOCATE 0,0
46970PRINT "¶Þ¯À²"
46980LOCATE 0,1
46990PRINT "¼À¶¯ÀÉÆ":RETURN
47000GPRINT "0030786C7F6C783000":RETURN
47100DATA 75,51,87,39,99,27,111