1  REM ****  HP TIME-SHARED BASIC PROGRAM LIBRARY *********************
2  REM
3  REM       CARLOS:    COMPUTER-ASSISTED REVIEW LESSONS ON SYNTAX   
4  REM                  FOR SPANISH II
5  REM       36175    REV A       3/72    
6  REM
7  REM ****  CONTRIBUTED PROGRAM **************************************
10  REM GENERAL PURPOSE DRIVER FOR CAI DRILL
20  FILES $CAR1
30  DIM A$[72],B$[72],C$[72],D$[72],E$[72],F$[72],G$[72]
40  DIM H$[72],I$[72],J$[72],K$[72],L$[72],M$[72],N$[72]
50  DIM O$[72],P$[72],Q$[72],R$[72],S$[72],T$[72]
60  DIM U$[72],V$[72],W$[72],X$[72],Y$[72],Z$[72],A[32],B[20]
70  MAT  READ #1;A
80  READ #1;A$,B$,C$,D$,E$,F$,G$,H$,I$
90  PRINT B$
100  PRINT C$;
110  INPUT Z
120  IF Z <> INT(Z) THEN 150
130  IF Z <= 0 THEN 150
140  IF Z<16 THEN 170
150  PRINT D$,E$[1,17]
160  GOTO 110
170  IF A[Z*2]#0 THEN 200
180  PRINT E$[18,39];"  ";E$[1,17]
190  GOTO 110
200  FOR I=0 TO 71
210  PRINT TAB(I);"-";
220  NEXT I
230  F=0
240  PRINT F$[1,4];TAB(23);F$[5,25];Z
250  PRINT TIM(1)*100+TIM(0)
280  A3=A[Z*2]
290  C1=Z*2-1
300  PRINT "",""
310  PRINT F$[30,40];A[C1];G$
320  PRINT H$
330  PRINT I$;
340  INPUT L
350  IF L <= 0 THEN 370
360  IF L <= A[C1] THEN 390
370  PRINT A$[1,26]
380  GOTO 310
390  READ #1;B$,C$,D$,E$,F$,G$,H$
400  PRINT ""
410  PRINT B$
420  PRINT ""
430  READ #1,A3
440  REM PRINT HEAD1,2,3
450  FOR I=1 TO 3
460  READ #1;I$
480  PRINT I$[1]
490  NEXT I
500  INPUT N$
510  READ #1;Q$,R$,S$,T$,U$,V$,W$,X$,Y$,P$,B1
520  PRINT ""
530  B2=A[C1]*2
540  REM SECTION NUMBS & TRY NUMBER
550  FOR I=1 TO B2
560  READ #1;B[I]
570  NEXT I
580  A2=1
581  A4=1
582  READ #1;I$
590  IF I$[1,1]#"#" THEN 582
600  IF A2=L THEN 650
605  A2=A2+1
610  IF A4=B1 THEN 581
620  READ #1;I$
630  A4=A4+1
640  GOTO 610
650  B2=A[C1]
651  K=1
652  PRINT I$[2]
653  IF K=B1 THEN 670
654  K=K+1
655  READ #1;I$
656  GOTO 652
660  PRINT ""
670  FOR J=L TO B2
690  PRINT Q$
710  PRINT R$
720  PRINT ""
725  IF J=L THEN 780
730  FOR K=1 TO B1
740  READ #1;I$
745  PRINT I$[2]
750  NEXT K
780  N=B[J*2-1]
790  T=B[J*2]
800  PRINT ""
820  FOR I=1 TO N
830  READ #1;S$,T$,U$,V$,W$,X$,Y$,Z$
840  D=0
850  D=D+1
860  IF D=T THEN 1060
870  PRINT ""
880  PRINT S$
890  INPUT I$
900  IF I$=T$ THEN 1140
910  IF I$=U$ THEN 1140
920  IF I$=V$ THEN 990
930  IF I$=W$ THEN 1040
940  IF I$="NO SE'" THEN 1060
950  IF D=T-1 THEN 1060
960  PRINT A$[27]
970  GOTO 850
990  PRINT X$
1000  IF D=T-1 THEN 1060
1010  PRINT A$[1,26]
1020  GOTO 850
1040  PRINT Y$
1050  GOTO 1000
1060  F=F+1
1070  PRINT C$[1,17];T$
1080  IF U$="A" THEN 1100
1090  PRINT C$[18,30];U$
1100  IF Z$="B" THEN 1120
1110  PRINT C$[31,33];Z$
1120  PRINT D$
1130  GOTO 1150
1140  PRINT P$
1150  NEXT I
1160  IF J=B2 THEN 1270
1170  FOR K=0 TO 50
1180  PRINT TAB(K);"*";
1190  NEXT K
1191  PRINT ""
1200  PRINT E$;
1210  INPUT I$
1211  PRINT ""
1220  IF I$="SI'" THEN 1260
1230  IF I$="NO" THEN 1270
1240  PRINT F$
1250  GOTO 1210
1260  NEXT J
1270  PRINT 
1280  READ #1,A3
1290  FOR I=1 TO 5
1300  READ #1;I$
1310  NEXT I
1320  READ #1;I$,K$,J$,L$,M$,O$,P$
1340  PRINT I$
1360  PRINT J$
1380  PRINT K$
1390  IF F <> 0 THEN 1420
1400  PRINT L$
1410  GOTO 1460
1420  IF F <> 1 THEN 1450
1430  PRINT M$
1440  GOTO 1460
1450  PRINT G$[1,6];F;G$[7]
1460  PRINT H$
1470  PRINT O$;" ";N$;" ";P$
1480  END 
