10  REM  ** SOLO * ENG VERSION * RANDY WONG * 07/31/76 **
20  REM  ** HP-2000 ACCESS * EDP RESOURCE CENTER **
30  REM  ** REVISED: 10/11/77 * P.VIXIE * MULTI-FILE READ **
40  REM  ** REVISED: 11/16/77 * P.VIXIE * ONE-LINE DESCRIPTIONS **
50  DIM A$[72],B$[72],C$[72],D$[72],E$[72],F$[72],G$[72]
60  DIM F0$[72],F1$[72],L$[72],R$[72],P[10]
70  FILES *
80  PRINT '10"  WELCOME TO THE "'34"ENG"'34" SERIES OF ENGLISH LESSONS."
90  PRINT "WHAT IS YOUR NAME ";
100  INPUT A$
110  PRINT 
120  LET D$="TIMENO WRIGHOUT INCO...OTIMENOT SUPETOO *$!?MAGNTIMENO NMUY "
130  LET E$="D OUAY!!T ONOF TRRECKAY. EXPQUITR!!!SLOW@#%?IFIC EXCYET BIEN"
140  LET F$="T...!   !!! IME TO  ..  IREDE...    ... @$* ENT!ESS!NEIN!!! "
150  LET G$="TXC"
160  MAT P=ZER
170  PRINT '10"WOULD YOU LIKE A DESCRIPTION OF A LESSON ";
180  INPUT L$
190  IF L$[1,1]="Y" THEN 230
200  IF L$[1,1]="N" THEN 250
210  PRINT "PLEASE ANSWER EITHER 'YES' OR 'NO'"'10
220  GOTO 170
230  L=1
240  GOTO 260
250  L=0
260  PRINT "WHAT LESSON [1-45, 0 FOR ALL] ";
270  INPUT B
280  IF B=INT(B) AND B>-1 AND B<46 THEN 310
290  PRINT "THAT LESSON IS UNAVAILABLE. TRY ANOTHER."
300  GOTO 260
310  IF L$[1,1]="Y" THEN 1250
320  REM  ** assign file **
330  F0$="ENG000.A100"
340  IF B<10 THEN 370
350  CONVERT B TO F0$[5,6]
360  GOTO 380
370  CONVERT B TO F0$[6,6]
380  ASSIGN F0$,1,A0, PR 
390  IF A0>2 THEN 290
400  REM  ** STARTS HERE **
410  PRINT 
420  READ #1,1;A,B,C
430  IF TYP(1)=3 THEN 810
440  READ #1;B$
450  IF B$[1,1]#"*" THEN 750
460  P[4]=P[4]+1
470  LET C$=B$
480  GOSUB 870
490  LET B$=C$
500  FOR T8=1 TO 65535.
510  PRINT "*";
520  ENTER #O0,255,T3,C$
530  IF T3>0 THEN 560
540  PRINT '13'10"PLEASE TYPE IN A NUMERIC VALUE ONLY; TRY AGAIN."'10
550  GOTO 520
560  LET T7=LEN(C$)
570  GOSUB 870
580  T4=1
590  P[5]=P[5]+1
600  IF T3<1 THEN 640
610  IF B$[2]#C$ THEN 630
620  T4=T4+1
630  T4=T4+1
640  P[T4]=P[T4]+1
650  S2=INT(5*RND(O0))*12+T4*4
660  S1=S2-3
670  PRINT TAB(T7+5);D$[S1,S2];E$[S1,S2];F$[S1,S2]" "A$" SEC:";
680  PRINT ABS(T3) MIN A;
690  IF T8=B OR T4=3 THEN 720
700  PRINT "TRY AGAIN"
710  NEXT T8
720  PRINT 
730  PRINT 
740  GOTO 430
750  IF B$[1,1]#"*" THEN 790
760  GOTO 430
770  B$=B$[3]
780  GOTO 430
790  PRINT B$
800  GOTO 430
810  PRINT '10"RESULTS; "A$
820  PRINT "# PROBLEMS:"P[4]
830  PRINT "# CORRECT:"P[3]
840  PRINT "PERCENTAGE:"INT(100*P[3]/(P[4] MAX 1))
850  GOTO 170
860  STOP 
870  REM  ** DELETE SPACES FROM C$ **
880  FOR T9=LEN(C$) TO 1 STEP -1
890  IF C$[T9,T9] <> " " THEN 910
900  LET C$[T9]=C$[T9+1]
910  NEXT T9
920  RETURN 
930  REM  ** DATA FOR ONE-LINE DESCRIPTIONS **
940  DATA "ENG001  STATEMENTS","ENG002  NEGATIVES"
950  DATA "ENG003  PLURAL FORMS","ENG004  DEMONSTRATIVE PRONOUNS"
960  DATA "ENG005  TO BE","ENG006  TO BE: NEGATIVE FORM"
970  DATA "ENG007  USING THE VERB 'TO BE' IN QUESTION FORM."
980  DATA "ENG008  INDEFINITE ARTICLES: A, AN"
990  DATA "ENG009  SIMPLE PRESENT TENSE","ENG010  POSSESSIVE ADJECTIVES"
1000  DATA "ENG011  OPPOSITES","ENG012  PREPOSITIONS"
1010  DATA "ENG013  OBJECT PRONOUNS","ENG014  'PRESENT CONTINUOUS TENSE'"
1020  DATA "ENG015  PRESENT CONTINUOUS TENSE:  NEGATIVE FORM"
1030  DATA "ENG016  PRESENT TENSE:  QUESTION FORM"
1040  DATA "ENG017  'THERE IS' - 'THERE ARE'","ENG018  WORD REVIEW"
1050  DATA "ENG019  SIMPLE PRESENT TENSE OF HELPING VERB 'TO DO'"
1060  DATA "ENG020  PRESENT TENSE OF HELPING VERB 'TO DO'"
1070  DATA "ENG021  NUMBERS","ENG022  SEASONS","ENG023  TELLING TIME"
1080  DATA "ENG024  PAST TENSE: TO BE"
1090  DATA "ENG025  PAST TENSE: TO BE, QUESTION AND NEGATIVE FORMS"
1100  DATA "ENG026  PAST TENSE: REGULAR VERBS"
1110  DATA "ENG027  PAST TENSE: IRREGULAR VERBS","ENG028  COLORS"
1120  DATA "ENG029  PAST TENSE: NEGATIVE FORM"
1130  DATA "ENG030  PAST TENSE: QUESTION FORM","ENG031  FARM ANIMALS"
1140  DATA "ENG032  ADJECTIVES AND ADVERBS","ENG033  FUTURE TENSE"
1150  DATA "ENG034  FUTURE TENSE: NEGATIVE AND QUESTION FORMS"
1160  DATA "ENG035  MONTHS OF THE YEAR","ENG036  CONTRACTION"
1170  DATA "ENG037  COMPARATIVE FORM OF ADJECTIVES AND ADVERBS"
1180  DATA "ENG038  SUPERLATIVE FORM OF ADJECTIVES AND VERBS"
1190  DATA "ENG039  REFLEXIVE PRONOUNS","ENG040  PLANTS"
1200  DATA "ENG041  PRESENT PERFECT TENSE"
1210  DATA "ENG042  PRESENT PERFECT TENSE: NEGATIVE AND QUESTION FORMS"
1220  DATA "ENG043  VEGATABLES","ENG044  GOING TO: FUTURE"
1230  DATA "ENG045  OPPOSITES"
1240  DATA "ENG046  GENERAL DESCRIPTION OF ENG LESSON SERIES"
1250  REM  ** ROUTINE FOR ONE-LINE DESCRIPTIONS **
1260  RESTORE 940
1270  IF B=0 THEN 1370
1280  FOR L1=1 TO B
1290  READ R$
1300  NEXT L1
1310  PRINT '10R$'13'10"DO YOU WANT "R$[1,6]" ";
1320  INPUT L$
1330  IF L$[1,1]="Y" THEN 320
1340  IF L$[1,1]="N" THEN 170
1350  PRINT "PLEASE ANSWER EITHER 'YES' OR 'NO'"'10
1360  GOTO 1310
1370  PRINT "=";LIN(5)
1380  FOR L2=1 TO 46
1390  READ R$
1400  PRINT R$
1410  NEXT L2
1420  PRINT LIN(16);"="
1430  GOTO 170
1440  END 
