1 D$="":V=53248:S=32:SC=0:L=0:POKEV+17,91:POKEV+33,14:PRINT"[147]"
3 FORX=3TO30STEP12:PRINT""D$:FORT=0TO2:PRINTSPC(X)" [160] [160] [160] [160]"
4 PRINTSPC(X)"[160] [160] [160] [160] ":NEXT:NEXT:FORT=1944TOT+39:POKET,96:NEXT
6 P=RND(1)*38+1064:Z=INT(RND(1)*26)+1:L=L+.1:PRINT"[158]LEVEL",INT(L),"SCORE"SC
8 K=0:GETA$:IFA$>"@"ANDA$<"["THENK=ASC(A$)-64
9 IFK=ZTHENSC=SC+Z:POKEP,S:POKE1063,S:GOTO6
10 IFKTHENPOKE1063,K
11 P=P+40:IFP>1983THEN16
12 IFPEEK(P)>STHENPOKEP,Z:POKEP-40,S:GOTO6
13 POKEP,Z:POKEP-40,S:FORT=0TO50-L:NEXT:IFL<99GOTO8
15 PRINT""D$"[145]YOU SAVED THE UNIVERSE"
16 IFSC>HITHENHI=SC:PRINT"NEW HIGHSCORE":INPUT"NAME";N$
17 PRINT"PLAY AGAIN? (Y/N)":POKE198,0:WAIT198,1:GETZ$:IFZ$="Y"THEN1
18 PRINT"[147]":POKE53280,0:POKE53281,0:POKEV+33,246:POKEV+17,155:GOTO40000
10000 D=PEEK(186):N$="B.LETTER":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END
40000 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:PRINT"[147]":POKE53272,23:POKE186,8:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END