Rem

70 R E M *** ** * * * Jf: >f: >»■: >»•: ' >>■: Jj: >f: >f: >t: >{••. >J-: >}■: : >»■: >f:

80 CLEAR 2*:MEM/3; DEFINTA-Z : MX=50: DIM A$(MX, 2), ANS (MX, 3) :CMD"T" 90 ST AR$=STRING$(63,42)sSl$=STRING$(31,42): Fl$=" ### WRONG OUT OF ### "s F2$=" SCORES ###% "s

F3$="%"+ST RING$(28,32) + "% %"+STRING$(28,32) + "%" 100 F4$="QUESTION ### OF ###" 110 TITLED "DRILL PERIOD" :GOSUB500 120 PRINT:PRINT

130 PRINTTAB(10)"1. ENTER OR EDIT A DRILL" 140 PRIIMTTABi 10) "2. SAVE A DRILL TO TPlPE" 150 PRINTTRB(10)"3. INPUT A DRILL FROM TAPE" 160 PRINTTABC10)"4. RUN A DRILL" 170 PRINT3S9G,"SELECTION: :GOSUB420

180 IF CC < 1) OR i C> 4)THENPRINT3896, STRING*(60, 32) 5:GOTO170 190 ON C GOSUB 1000, 2000,2500,3000 200 G0T0110 210 END

0 0

Post a comment