5 IFPEEK(49152)<>120ORPEEK(51200)<>76ORPEEK(52016)<>32THEN7
6 IFPEEK(52080)=173ANDPEEK(52176)=169THEN10
7 LOAD"ROUTINES",8,1
10 V=53248:R=V+17:C=128:S=V+1024:WC=51203:WT=1020:WB=1021:WL=1022:WR=1023
15 POKES+5,.:POKES+6,240:POKES+3,8:POKEV+32,1:POKEV+33,1
20 DIMS%(8,3),M%(255):FORI=.TO3:FORJ=.TO8:READS%(J,I):NEXT:NEXT:POKES+24,15
21 DATA3,11,6,18,10,2,195,16,25,3,11,21,33,13,5,31,21,30
22 DATA13,21,6,18,14,6,30,25,29,13,21,21,33,7,9,143,12,34
25 PRINT"[147][144]":FORI=1TO21:PRINT"                                ":NEXT:T=500
30 PRINT"             * [208][160][211][160][217][160][205][160][207][160][206][160]*":PRINT"               [163][163][163][163][163][163][163][163][163][163][163][144]"
32 PRINT"[217][213]"
33 PRINT"[200][202]"
35 FORK=.TO3:GOSUB100:NEXT:FORI=1TO1000:NEXT:M=-1
40 M=M+1:M%(M)=RND(.)*4:T=1000/1.2^M:FORJ=.TOM:K=M%(J):GOSUB100:NEXT:FORJ=.TOM
45 K=M%(J):FORO=1TO500+T:IFPEEK(197)=64THENNEXT:GOSUB300:GOTO70
47 O=500+T:NEXT
50 P=PEEK(197):IFP<>S%(8,K)THENJ=M:NEXT:GOSUB300:GOTO70
60 GOSUB200:NEXT:PRINT"[145][156][211]CORE: "M+1:FORI=1TO100+T/2:NEXT:GOTO40
70 PRINT"[145][156][198]INAL [211]CORE: "M:T=100:FORJ=.TOM:K=M%(J):GOSUB100:NEXT
99 POKEV+32,1:POKEV+33,1:POKE198,.:GOTO63000
100 POKEWT,S%(.,K):POKEWB,S%(1,K):POKEWL,S%(2,K):POKEWR,S%(3,K):POKE646,S%(4,K)
105 FORI=.TOT/2:NEXT
110 POKES,S%(6,K):POKES+1,S%(7,K):WAITR,C:SYSWC:POKES+4,65:FORI=.TOT:NEXT
115 POKE646,S%(5,K):WAITR,C:SYSWC:POKES+4,.:RETURN
200 POKEWT,S%(.,K):POKEWB,S%(1,K):POKEWL,S%(2,K):POKEWR,S%(3,K):POKE646,S%(4,K)
205 POKES,S%(6,K):POKES+1,S%(7,K):WAITR,C:SYSWC:POKES+4,65:WAIT197,P,P
210 POKE646,S%(5,K):WAITR,C:SYSWC:POKES+4,.:RETURN
300 POKEWT,S%(.,K):POKEWB,S%(1,K):POKEWL,S%(2,K):POKEWR,S%(3,K):POKE646,S%(4,K)
305 POKES,119:POKES+1,7:WAITR,C:SYSWC:POKES+4,65:FORI=.TO1000:NEXT
310 POKE646,S%(5,K):WAITR,C:SYSWC:POKES+4,.:FORI=1TO500:NEXT:RETURN
63000 PRINT"[147][215]ANT TO PLAY AGAIN (Y/N)":POKE198,0:WAIT198,1:GETAN$
63002 IFAN$<>"Y"ANDAN$<>"N"THEN63000
63004 IFAN$="Y"THEN25
63100 PRINT"[147]LOAD"CHR$(34)"MENU"CHR$(34)",8":PRINT"RUN"
63110 POKE631,13:POKE632,13:POKE198,2:END