10 DIMD$(24),AP(8),LE(26),BC(126):Z=RND(-TI):PRINTCHR$(8):GOSUB500
20 FB=(PEEK(56320)AND16):IFFB=0ANDPEEK(OP-80)=191THEN110
30 IFFB=0ANDPEEK(OP+80)>128ANDPEEK(OP+80)<155THEN140
40 JS=PEEK(56320)AND15:IFJS=14THENDI=-80:GOTO90
50 IFJS=7THENDI=2:GOTO90
60 IFJS=13THENDI=80:GOTO90
70 IFJS=11THENDI=-2:GOTO90
75 GET A$:IF A$="[140]" THEN 1200
80 GOTO180
90 NP=OP+DI:SP=PEEK(NP):IFSP<>160THEN180
100 POKENP+C,SC:POKEOP,160:POKENP,170:OP=NP:GOTO180
110 IFSC<>1THEN180
120 POKEOP-80,V1:GOSUB160:NL=NL+1:IFNL=13THEN340
130 SC=7:POKEOP+C,SC:GOTO40
140 IFSC<>7THEN180
150 V1=PEEK(OP+80):V2=OP+80:SC=1:POKEOP+C,SC:POKEOP+80,32:GOSUB160:GOTO40
160 POKE54277,9:POKE54278,5:POKE54272,214:POKE54273,94:POKE54276,33:FORDE=1TO50
170 NEXT:POKE54276,32:FORDE=1TO30:NEXT:RETURN
180 R3=INT(RND(1)*8)+1:POKEAP(R3),160:AP(R3)=AP(R3)-2
190 IFPEEK(AP(R3))=32THENAP(R3)=AP(R3)+26
200 NA=PEEK(AP(R3)):POKEAP(R3)+C,7:POKEAP(R3),159:IFNA=160THEN260
210 POKE54277,3:POKE54278,23:POKE54272,5:POKE54273,250:POKE54276,129
220 POKE54276,128:IFSC=7THEN240
230 POKEV2,V1
240 OP=INT(RND(1)*585)+1231:IFPEEK(OP)<>160THEN240
250 SC=7:POKEOP+C,SC:POKEOP,170
260 TL=TL+1:IFTL<TMTHEN20
270 BP=BP+1:POKEBC(BP)+C,3:POKEBC(BP),171:IFBP=126THEN290
280 TL=0:GOTO20
290 FORDE=1TO500:NEXT:POKE54272,0:POKE54277,10:POKE54278,250
300 FORX=250TO120STEP-5:POKE54273,X:POKE54276,17:FORDE=1TO50:NEXT:POKE54276,16
310 FORDE=1TO20:NEXT:NEXT:POKE54273,80:POKE54272,40:POKE54276,129:FORDE=1TO150
320 NEXT:POKE54276,128:POKE53281,0:FORDE=1TO150:NEXT:POKE53281,2:FORDE=1TO150
330 NEXT:POKE53281,14:FORDE=1TO150:NEXT:POKE53281,15
340 FORDE=1TO1000:NEXT:FORX=1TOBP:POKEBC(X),32:NEXT:PRINTD$(4):POKE54272,9
350 POKE54277,8:POKE54278,5:FORX=220TO60STEP-20:POKE54273,X:POKE54276,33
360 FORDE=1TO100:NEXT:POKE54276,32:PRINTTAB(7);:FORY=1TO26:PRINT" ";:NEXT
370 PRINT:PRINT:NEXT:POKE54272,10:POKE54277,10:POKE54278,10:S=0:POKE646,2
380 PRINTD$(12)TAB(15)"SCORE:"S:OP=1231:POKEOP+C,6:POKEOP,30:FORX=1TO26
390 IFLE(X)=0THEN450
400 IFX+128<>PEEK(OP-80)THENPOKE54273,10:GOSUB420:GOTO430
410 POKE54273,50:GOSUB420:S=S+1:PRINTD$(12)TAB(21)S:GOTO430
420 POKE54276,33:FORDE=1TO15:NEXT:POKE54276,32:FORDE=1TO250:NEXT:RETURN
430 FORDE=1TO200:NEXT:POKEOP,32:OP=OP+2:IFOP=1257THEN460
440 POKEOP+C,6:POKEOP,30
450 NEXT
460 IFS=13THENPRINT:PRINTTAB(12)"PERFECT SCORE!!"
470 POKE646,6:PRINTD$(20)TAB(4)"PRESS FIRE BUTTON TO PLAY AGAIN"
475 PRINTTAB(10)"PRESS F8 FOR UPTIME"
480 IF(PEEK(56320)AND16)=0THENRUN
485 GET A$:IF A$="[140]" THEN 1200
490 GOTO480
500 D$(0)="":FORX=1TO24:D$(X)=D$(X-1)+"":NEXT:C=54272:AP(1)=1255
510 FORX=2TO8:AP(X)=AP(X-1)+80:NEXT:BC(1)=1024:FORX=2TO40:BC(X)=BC(X-1)+1:NEXT
520 FORX=41TO64:BC(X)=BC(X-1)+40:NEXT:FORX=65TO103:BC(X)=BC(X-1)-1:NEXT
530 FORX=104TO126:BC(X)=BC(X-1)-40:NEXT:FORX=54272TO54295:POKEX,0:NEXT
540 POKE54296,15:POKE54277,20:POKE54278,10:POKE53265,PEEK(53265)OR64
550 PRINTCHR$(142):POKE53280,0:POKE53281,0:POKE53282,2:POKE53283,15:POKE646,7
560 PRINT"[147]"D$(3)SPC(19)"  ":PRINTSPC(18)"[160][160][160][160]":PRINTSPC(17)"      "
570 PRINTSPC(16)"[160][160][160][160][160][160][160][160]":PRINTSPC(15)" "SPC(8)" "
580 PRINTSPC(14)"[160] THIRTEEN [160]":PRINTSPC(15)" "SPC(8)" "
590 PRINTSPC(16)"[160][160][160][160][160][160][160][160]":PRINTSPC(17)"      ":PRINTSPC(18)"[160][160][160][160]"
600 PRINTSPC(19)"  "
601 PRINTTAB(9)"[159](C) 1987 PENNY DEGROFF"
602 PRINT" PUBLISHED BY SOFTDISK PUBLISHING, INC."
603 PRINTTAB(8)"[158]PRESS RETURN TO CONTINUE"
605 FORX=1TO30
610 READH,L:IFH=0THENRESTORE:GOTO610
620 POKE54272,H:POKE54273,L:POKE54276,17:POKE53282,15:POKE53283,2:FORDE=1TO50
630 NEXT:POKE54276,16:POKE53282,2:POKE53283,15:FORDE=1TO50:NEXT
632 GET A$:IF A$=CHR$(13) THEN 645
635 NEXT
640 GOTO 605
645 GOSUB 800
650 PRINT"[147]"CHR$(142):POKE53280,15:POKE53281,15:POKE53283,0
660 PRINTD$(4):FORX=1TO8:PRINTTAB(7)"";:FORY=1TO12:PRINT" ";:NEXT:PRINT
670 PRINT:NEXT:FORX=1TO8:POKEAP(X)+C,7:POKEAP(X),159:NEXT
680 PRINTD$(3)TAB(7)"";:FORX=1TO13:PRINT"?";:NEXT:FORX=1TO26:LE(X)=0:NEXT
690 PRINTD$(21)TAB(7)"";:FORX=1TO13
700 R2=INT(RND(1)*26)+1:IFLE(R2)=1THEN700
710 LE(R2)=1:PRINTCHR$(R2+64)"";:NEXT:NL=0:OP=1231:SC=7:POKEOP+C,SC
720 POKEOP,170:RETURN
730 DATA10,240,10,140,10,240,12,200,10,140,8,140,12,250,10,100
740 DATA10,120,15,90,10,2,10,200,10,2,10,200,10,2,0,0
800 POKE 53265,PEEK(53265) AND 191:PRINT"[147]"TAB(16)"[158][212][200][201][210][212][197][197][206]"
810 PRINT"[159]   [212]HE GAME BEGINS WITH SEVERAL SQUARES"
820 PRINT"IN THE CENTER OF THE SCREEN.  [194]ENEATH"
830 PRINT"THEM IS A ROW OF THIRTEEN LETTERS IN A"
840 PRINT"RANDOM ORDER.  [193]BOVE IS A ROW OF THIR-"
850 PRINT"TEEN QUESTION MARKS.  [217]OUR JOB IS TO"
860 PRINT"MOVE THE STAR TO SELECT A LETTER AND PUT";
870 PRINT"IT IN THE TOP ROW IN ALPHABETICAL ORDER.";
880 PRINT"[212]O MAKE THINGS HARDER, THERE ARE ARROWS
890 [153]"(SYS_OPEN) MOVING LEFT ACROSS THE SCREEN. IF"
900 [153]"THEY HIT YOU, YOU WILL DROP THE LETTER"
910 [153]"YOU ARE CARRYING AND YOU WILL REAPPEAR"
920 [153]"IN A DIFFERENT PART OF THE SCREEN."
930 [153]"(null)HE GAME IS TIMED BY PLUS MARKS.  (null)HEN
940 PRINT"THEY CIRCLE THE SCREEN, TIME IS OUT."
950 PRINT"[217]OU CAN SET THE SPEED FROM 0 TO 99
960 [153]"(0 BEING THE FASTEST) BUT A VALUE OF"
970 [153]"3 TO 9 SEEMS TO BE THE MOST COMPETITIVE."
975 [153][163]6)"ONCONT(null)RESS ASC8 TO EXIT TO (null)P(null)IME."
980 [153]"OPENVALNTER SPEED: ";:[141] 1000
990 TM[178][197](T$):[139] T$[178]"" [167] TM[178]5
995 [151]53265,[194](53265)[176]64:[142]
1000 T$[178]"":[151] 204,0
1010 [161] A$
1015 [139] A$[178]"RESTORE" [167] 1200
1020 [139] A$[178][199](13) [167] 1100
1021 [139] A$[178][199](20) [175] T$[178]"" [167] 1010
1022 [139] A$[178][199](20) [167] T$[178][200](T$,[195](T$)[171]1):[153]A$;:[137] 1010
1025 [139] [195](T$)[177]1 [167] 1010
1030 [139] A$[179]"0" [176] A$[177]"9" [167] 1010
1040 [153]A$;:T$[178]T$[170]A$
1050 [137] 1010
1100 [151] 204,1:[153]" "
1110 [142]
1200 [151]204,1:[153]"LOAD"[199](142)[163]11)"RETURN TO UPTIME!"
1210 [153][163]10)"ARE YOU SURE? (Y/N)"
1220 [151] 198,0
1230 [161] A$:[139] A$[178]"" [167] 1230
1240 [139] A$[178]"N" [167] [138]
1250 [139] A$[179][177]"Y" [175] A$[179][177]"RESTORE" [167] 1230
1260 [158] 8[172]4096[170]4