1IF PEEK 32766<>98 OR ( PEEK 32767 AND 15)<>1 PRINT "ÓÆÀ°ÃÞ'USER0161'ļøÀÞ»²":END
2POKE 256,33,93,1,30,0,22,0,6,5,205,208,191,201,0,0,0,0,0,1,1,1,1,1,64,64,64,64,64,65,65,65,65,65,84,72,92,72,84,85,73,93,73,85,64,92,84,92,64,65,93,85,93,65,64
3POKE 310,28,84,28,64,64,0,64,0,64,72,8,106,28,72,72,28,106,8,72,72,92,106,72,72,73,93,107,73,73,72,72,106,92,72,73,73,107,93,73,0,40,28,40
4CLS :CLEAR :DIM G$(11,9)*1,H$(0)*12:PRINT "______ µ¸Ô¸Ý G801 ______":LOCATE 6,1:PRINT "[Version 9]":LOCATE 1,3:PRINT "Programed By YANAGIDA."
5LOCATE 5,2:INPUT "Select Round:";M:IF M<1 OR M>24 THEN 5
6CLS :LOCATE 6,1:PRINT "Please Wait.":ON M GOSUB 36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59
7FOR Y=0 TO 9:READ H$(0):FOR X=0 TO 11:G$(X,Y)= MID$ (H$(0),X+1,1):NEXT :NEXT :READ X,Y:CLS
8FOR V=0 TO 11:POKE 260,V:POKE 257, VAL ("&H"+G$(V,Y))*5+13:CALL 256:NEXT
9LOCATE 12,0:PRINT ": "; STR$ M;" ÒÝ  Y:"; STR$ Y:LOCATE 0,1:PRINT "[CLS]..¼ÞÊÞ¸":LOCATE 0,2:PRINT "4,6,7,9..L,R,UL,UR":LOCATE 1,3:PRINT "Programed By YANAGIDA.":POKE 257,93:POKE 260,X
10GOSUB 23
11K$= INKEY$ :IF F=2 OR G$(X,Y)<="1" THEN F=1:Y=Y+1:GOTO 8
12IF G$(X,Y)="4" OR G$(X,Y)="5" OR (F=1 AND (G$(X,Y)>="8" AND G$(X,Y)<="B")) THEN 33
13IF G$(X,Y)>="6" AND G$(X,Y)<="8" THEN 28
14IF K$="" THEN 11
15IF K$="7" OR K$="9" THEN 24
16F=0:POKE 260,X:POKE 257, VAL ("&H"+G$(X,Y))*5+13:CALL 256
17IF K$="4" IF X>0 IF G$(X-1,Y)<>"A" AND G$(X-1,Y)<>"E" AND G$(X-1,Y)<>"F" THEN X=X-1
18IF K$="6" IF X<11 IF G$(X+1,Y)<>"B" AND G$(X+1,Y)<>"C" AND G$(X+1,Y)<>"D" THEN X=X+1
19GOSUB 23
20IF G$(X,Y)="4" OR G$(X,Y)="5" THEN 33
21IF K$= CHR$ 2 THEN 33
22GOTO 11
23POKE 257,93:POKE 260,X:A=269+ VAL ("&H"+G$(X,Y))*5:POKE 349, PEEK A, PEEK (A+1) OR 40, PEEK (A+2) OR 28, PEEK (A+3) OR 40, PEEK (A+4):CALL 256:RETURN
24IF G$(X,Y)<>"9" AND G$(X,Y)<>"A" AND G$(X,Y)<>"B" THEN 11
25V=X:Y=Y-1:X=X-(K$="7")*(X>0)+(K$="9")*(X<11)
26IF (K$="7" AND (G$(X,Y)="A" OR G$(X,Y)="E" OR G$(X,Y)="F")) OR (K$="9" AND (G$(X,Y)="B" OR G$(X,Y)="C" OR G$(X,Y)="D")) THEN X=V:IF G$(X,Y)="0" OR G$(X,Y)="1" THEN F=2
27GOTO 8
28LOCATE 13,1:PRINT "Round Clear":F=0:M=M+1
29IF INKEY$ ="" THEN 29
30IF M=25 THEN 32
31GOTO 6
32CLS :WAIT 9:LOCATE 4,0:PRINT "All Round Clear!":LOCATE 5,1:PRINT "Thanks To COR.":LOCATE 1,2:PRINT "Programed By YANAGIDA.":LOCATE 0,3:PRINT "_______µ¸Ô¸Ý G801_______":GOTO 34
33WAIT 5:FOR I=0 TO 9:LOCATE X,0:PRINT "*":LOCATE X,0:PRINT CHR$ 240:NEXT :LOCATE 14,1:PRINT "Game Over"
34IF INKEY$ ="" THEN 34
35WAIT 0:GOTO 4
36RESTORE 36:RETURN :DATA 133D33133331,233F33951332,133113F32331,013901111332,0013922223D1,222333113D10,133113293300,013923333322,001311311317,229329329393,2,0
37RESTORE 37:RETURN :DATA 313F33311331,1933F3129D32,933113211331,111921329110,022132133204,013213215301,00F1C312D1C2,093011E31231,931402310512,33932F329D27,6,0
38RESTORE 38:RETURN :DATA 111113111117,000021200091,000219120019,002101912091,021009101219,210091002191,120019001219,012001902191,001209121019,22E323932C93,5,0
39RESTORE 39:RETURN :DATA 331331331311,132119312D00,911093121320,192913030150,913191910910,19191419E190,019193013910,0419519B5190,0F9119315910,6F3925393D92,9,0
40RESTORE 40:RETURN :DATA 313D33D73313,12D113151F91,21D091910F19,10D919140391,02D191912F19,21D2191C3F91,121D01913F12,910D04191F91,192D91932F19,233339333393,5,0
41RESTORE 41:RETURN :DATA 513113113311,191291295129,9303D21712F1,519F15212130,391391321070,1D9130150B10,213912019192,1B1503291031,91B1B1312912,3939D6397F23,0,9
42RESTORE 42:RETURN :DATA 131333313331,612313321310,1951B331B300,951931191190,319112910910,301921129100,192119213200,011221191390,2293399F23D0,733333333332,2,6
43RESTORE 43:RETURN :DATA 13331317F131,0151912339D0,091B30D731D0,03931B31D910,013391191190,09313C919910,013931391390,09131A319312,019301391321,293F2B3323D9,2,0
44RESTORE 44:RETURN :DATA 133333333351,01333D333319,001333313191,000131591219,000019119191,000041AB1219,000619119191,002393AB1019,023333339AB1,23FF3333FF39,9,0
45RESTORE 45:RETURN :DATA 133333113113,613331A21921,19131B112112,A1A191901921,121919120130,9191B1212912,191919123121,91B193031212,191913212141,2393E3323239,11,0
46RESTORE 46:RETURN :DATA 133333333331,913113113112,191B07091021,91B107019219,1A1907023191,91B103811219,191923190121,912131039012,193912A13021,933323393932,5,1
47RESTORE 47:RETURN :DATA 13333D1D1FD1,217517E19519,121121191191,012B1B0D9E19,2013939131B1,1291F1391B19,231219119191,1D2191491C19,07F23933AD91,23F3333F3339,4,0
48RESTORE 48:RETURN :DATA 711131311371,700912190112,309121219091,191014101919,910291920191,190110110930,019220009119,021519091091,810191910039,72E23932C957,5,9
49RESTORE 49:RETURN :DATA D13331133113,1A1312911291,91919112A130,1932192150F2,01310D191C31,207091419110,1A1219121940,9193019D91D0,911F29F339D0,932333333332,2,4
50RESTORE 50:RETURN :DATA 113131317131,021219121219,212121919191,121212191910,239D91219109,31D712191061,193121219012,913212391091,193121112019,933239223993,2,0
51RESTORE 51:RETURN :DATA 131333133331,232111931512,71129C119521,1A2311291712,913109330121,191921319212,219132191521,191211919112,93010019D921,759E9E9F3332,1,0
52RESTORE 52:RETURN :DATA 313333333317,12111111F191,214000000910,121220209100,239110191E00,1110000191C0,00000000191E,000000000191,222200000019,33339C222293,0,0
53RESTORE 53:RETURN :DATA 1711111111D1,0122229990D0,0031111119D0,0070000091D0,0019000910D0,0091009100D0,0019191000D0,0291910002D0,0119100009D0,2293222293D6,0,0
54RESTORE 54:RETURN :DATA 311313311157,120191120019,012019012109,001201901219,000120190129,000012019011,000001201900,000000120190,000000012019,22222222D293,0,0
55RESTORE 55:RETURN :DATA 311113311111,12009D100404,01091D009193,00910D001917,001995009109,00019D0019C9,00009D009131,00009D021919,00409D0D0191,223293952959,0,0
56RESTORE 56:RETURN :DATA 711111111111,190000002000,91000009D000,90002009D000,19001909D000,01900109D000,09129929D000,910111111000,900000000200,392222222342,5,4
57RESTORE 57:RETURN :DATA 313131333171,1B1A19151219,91A1B1A19121,1A1A19D01019,9191A1120290,191912E19119,9191C1E21291,1E190E018A19,0121202900A1,2AE9F2332939,3,7
58RESTORE 58:RETURN :DATA 1DD313131131,051D91A1C9D1,0191F912F151,0019319139D1,009F321B3151,091331931911,21811913B1B1,705E91233911,0AF312111191,9333939E9C57,3,7
59RESTORE 59:RETURN :DATA 71133D311F13,90C11F190F01,921091019F00,11191C090F00,00009D2F9F00,000091151F00,020910010500,9090C0E05100,901A141C1400,999393939322,11,0