10 OPTION RUN:RANDOMIZE(PEEK(64504!)):GOSUB 290
20 PRINT e$+"0"+e$+"f"+e$+"E"
30 PRINT FNa$(2,29)rev$"   F O L L O W   M E!   "
40 PRINT FNa$(4,29)    "       BY NORMAN BARRINGTON       "
50 PRINT FNa$(6,29)    "                                  "
60 PRINT FNa$(25,29)   "      USE CURSOR KEYS TO PLAY     "
70 PRINT FNa$(27,29)   "     ANY OTHER KEY TO END GAME    "
80 FOR x=9 TO 22:FOR y=29 TO 62 STEP 11
90 PRINT FNa$(x,y)CHR$(133):NEXT:NEXT
100 PRINT FNa$(8,29)CHR$(134)+l$+CHR$(142)+l$+CHR$(142)+l$+CHR$(140)
110 PRINT FNa$(13,29)CHR$(135)+l$+CHR$(143)+l$+CHR$(143)+l$+CHR$(141)
120 PRINT FNa$(18,29)CHR$(135)+l$+CHR$(143)+l$+CHR$(143)+l$+CHR$(141)
130 PRINT FNa$(23,29)CHR$(131)+l$+CHR$(139)+l$+CHR$(139)+l$+CHR$(137)
140 d=0.06:FOR x=0 TO 8:GOSUB 260:NEXT:d=0.2
150 FOR i=1 TO 1000:NEXT:x=INT(RND*4)+1:x$=x$+RIGHT$(STR$(x),1)
160 l=LEN(x$):PRINT FNa$(6,48)rev$ USING "THIS GAME:##";l
170 FOR i=1 TO l:x=VAL(MID$(x$,i,1)):GOSUB 250
180 FOR j=l*5 TO 100:NEXT:NEXT:S=MAX(s,l-1)
190 FOR r=1 TO l:r$=(INPUT$(1))
200 x=INSTR(CHR$(31)+CHR$(1)+CHR$(6)+CHR$(30),r$)
210 IF x=0 THEN PRINT e$+"e"+e$+"1":END ELSE r$=RIGHT$(STR$(x),1)
220 IF r$=MID$(x$,r,1) THEN GOSUB 250:NEXT:GOTO 150
230 x=9:d=1:PRINT FNa$(6,48)rev$"** OOPS!! **":GOSUB 260:d=0.2
240 x$="":PRINT FNa$(6,30) USING "HI-SCORE:##";s:GOTO 140
250 PRINT FNa$(x(x),y(x))b$:GOSUB 260:PRINT FNa$(x(x),y(x))c$:RETURN
260 f2=e(x)*3.456:t=3500000!/(f2*2):t=INT(t/4-30.125):f2=INT(f2*d)
270 POKE B,f2-256*INT(f2/256):POKE B+1,INT(f2/256)
280 POKE C,t-256*INT(t/256):POKE C+1,INT(t/256):CALL A:RETURN
290 x(1)=10:y(1)=44:x(2)=15:y(2)=33:x(3)=15:y(3)=55:x(4)=20:y(4)=44
300 e$=CHR$(27):l$=STRING$(10,138):rev$=e$+"p":rof$=e$+"q":
310 c$="    "+CHR$(10)+STRING$(4,8)+"    ":b$=rev$+c$+rof$
320 DEF FNa$(x,y)=e$+"Y"+CHR$(32+x)+CHR$(32+y)
330 MEMORY &HBFFF:FOR n=&HC000 TO &HC05B:READ d%:POKE n,d%:NEXT
340 A=&HC000:B=&HC019:C=&HC01B:FOR n=0 TO 9:READ e(n):NEXT:RETURN
350 DATA 229,213,197,221,229,42,27,192,237,91,25,192,205,29,192
360 DATA 62,12,211,248,221,225,193,209,225,201,0,0,0,0,243
370 DATA 125,203,61,203,61,47,230,3,79,6,0,221,33,49,192,221,9,62
380 DATA 11,0,0,0,4,12,13,32,253,14,63,5,32,248,60,254,13,32,2,61
390 DATA 61,211,248,68,79,254,11,32,9,122,179,40,9,121,77,27,221
400 DATA 233,77,12,221,233,251,201,20,30,40,50,60,70,80,90,100,170