5 GOSUB 520
10 PRINT CHR$(26)CHR$(27)CHR$(65)
20 INPUT"   LEVEL OF DIFICULTY, 2=HARDEST, 10=EASIEST ";F
30 PRINT CHR$(26)
40 IF ((F<2) OR (F>10) OR (F<>INT(F))) THEN PRINT"INVALID":GOTO 20
50 INPUT"   HOW SLOW DO YOU WANT IT? 1=FASTEST, 50=SLOWEST";G
60 PRINT CHR$(26)
70 IF ((G<1) OR (G>50) OR (G<>INT(G))) THEN PRINT"INVALID":GOTO 50
80 PRINT CHR$(27) CHR$(46) CHR$(48) CHR$(27) CHR$(97)
90 B=1
100 A$=INKEY$
110 E=E+1
120 FOR V=1 TO G:NEXT
130 C=C+1
140 IF C=F THEN 280
150 IF A$="." THEN 200
160 IF A$="," THEN 240
170 IF A$=CHR$(27) THEN 330
180 PRINT SPC(B)"B"
190 GOTO 100
200 IF B=75 THEN 100
210 B=B+1
220 PRINT SPC(B)"B"
230 GOTO 100
240 IF B=1 THEN 100
250 B=B-1
260 PRINT SPC(B)"B"
270 GOTO 100
280 C=0
290 D=INT(RND*75)
300 IF D>B THEN E=E+1:GOTO 370
310 IF D<B THEN E=E+1:GOTO 420
320 PRINT SPC(B)"A"
330 PRINT CHR$(27) CHR$(46) CHR$(50) CHR$(27) CHR$(65)
340 PRINT:PRINT"YOU ENDED UP WITH "E" POINTS"
350 GOTO 470
360 END
370 PRINT SPC(B)"B";
380 B=B+1
390 PRINT SPC(D-B)"A"
400 B=B-1
410 GOTO 100
420 PRINT SPC(D)"A";
430 B=B-1
440 PRINT SPC(B-D)"B"
450 B=B+1
460 GOTO 100
470 PRINT:PRINT"WANT TO PLAY AGAIN? (Y/N) ";:A$=INPUT$(1)
480 PRINT CHR$(26)
490 IF A$="Y" THEN RUN
500 IF A$="N" THEN RUN"HELPER"
510 PRINT"INVALID":GOTO 340
520 FOR X=1 TO 48:PRINT:NEXT:PRINT CHR$(27)CHR$(97)
530 PRINT"      CCCCCCCCC  CCCCCCCCC   CCCCCCCC   CCCCCCCCC    CCCCCCCCC"
540 PRINT"     CCC            CCC     CCC    CCC  CCC    CCC  CCC"
550 PRINT"     CCC            CCC     CCC    CCC  CCC    CCC  CCC"
560 PRINT"      CCCCCCCC      CCC     CCCCCCCCCC  CCCCCCCCC    CCCCCCCC"
570 PRINT"            CCC     CCC     CCC    CCC  CCC  CCC           CCC"
580 PRINT"            CCC     CCC     CCC    CCC  CCC   CCC          CCC"
590 PRINT"     CCCCCCCCC      CCC     CCC    CCC  CCC    CCC  CCCCCCCCC"
595 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT
600 PRINT CHR$(27)CHR$(65)SPC(20)CHR$(147)" 1985  STARS by John Pursey"
610 FOR X=1 TO 2000:NEXT:FOR X=1 TO 24:PRINT:NEXT:RETURN
PRINT C