start tok64 d64-L18EIa
10 POKE53280,2:POKE53281,1
20 hs=0:bt=9999:v=54296:s=54273:n=128:a=54272:b=1027:tab$="{right*10}"
22 FORi=aTOa+24:POKEi,0:NEXT
25 POKE 54277,100:POKE 54278,100
30 PRINT"{clear}{down*10}{right*13}letter attack!"
50 FORt=1TO1000:NEXT
100 PRINT"{clear}":sc=0:tm=0:POKE 198,0
110 PRINT"{down*4}"tab$"choose difficulty"
120 PRINT tab$"level ({reverse on}1{reverse off}-{reverse on}9{reverse off})"
130 dl$="":GET dl$:IF dl$=""THEN130
140 IF dl$<"1"ORdl$>"9"THEN130
150 PRINT tab$dl$
160 dl=VAL(dl$):dl=10-dl:POKE198,0
170 PRINT tab$"{down*2}how many letters"
180 PRINTtab$"would you like?"
190 PRINTtab$"{down}{reverse on}1{reverse off}0 - {reverse on}9{reverse off}0"
200 nl$="":GETnl$:IF nl$=""THEN200
210 IF nl$<"1"ORnl$>"9"THEN200
220 PRINT nl$
230 nl=VAL(nl$):nl=nl*10:lr=nl
270 PRINT"{clear}"
280 POKE 55296,2:POKE1024,77:POKE 55302,2:POKE 1030,78
290 FORi=1065TO1945STEP40
300 POKE i+a,2:POKEi,101:POKE i+a+4,2:POKE i+4,103
310 NEXTi
320 POKE 56256,2:POKE 1984,78:POKE 56262,2:POKE 1990,77
330 PRINT"{black}{home}{down}{right*8}difficulty"
340 PRINT"{right*8}level:"
350 PRINT"{down}{right*11}";10-dl
360 PRINT"{down}{right*8}letters"
370 PRINT"{right*8}remaining:"
380 PRINT"{down}{right*11}";lr
390 PRINT"{down}{right*8}score:"
400 PRINT"{down*3}{right*8}high score:"
410 PRINT "{down}{right*11}";hs
420 IF bt<>9999 THEN POKE bt+54269,4:POKEbt-3,62
470 FOR i=55299 TO"
63999 REM "Invalid BASIC input d64-L18EIa
stop tok64
(bastext 1.0)