10  REM  WALT GIBSON DRIVER EDUCATION PROGRAM
20  REM
29  REM FILES ARE IN A100    ALAN DE MARTINO 12-10-1978
30  FILES DRIVE1.A100,DRIVE2.A100
40  DIM A$[61],B$[61],C$[61],U$[61],V$[61],W$[61],Z$[61],Q$[2],E$[10]
50  DIM N$[36],D$[61],X$[61]
60  DIM F[2,25]
70  MAT F=ZER
80  K=O8=O9=G1=G2=R1=F1=0
90  L1=1
100  F=1
110  PRINT "DO YOU WANT TO USE THIS PROGRAM IN ANY LANGUAGE"
120  PRINT "OTHER THAN ENGLISH";
130  INPUT N$
140  IF N$[1,1]="N" THEN 210
150  PRINT "WE PRESENLY HAVE QUESTIONS IN ENGLISH AND SPANISH."
160  PRINT "IN WHAT LANGUAGE DO YOU WANT THIS PROGRAM";
170  INPUT N$
180  IF N$[1,3]="SPA" THEN 250
190  IF N$[1,3]="ENG" THEN 210
200  GOTO 150
210  PRINT 
220  PRINT "THESE QUESTIONS ARE SIMILIAR TO THE QUESTIONS"
230  PRINT "ON YOUR ACTUAL DRIVER'S TEST"
240  GOTO 320
250  PRINT 
260  PRINT "ESTA PRUEBA DE EDUCACION PARA CHOFERES TIENE PREGUNTAS"
270  PRINT "EN INGLES Y ESPANOL.  ESTAS PREGUNTAS SON SEMEJANTES A LAS"
280  PRINT "DEL EXAMEN REAL.  SI VD QUIERE CAMBIAR LA IDIOMA EN QUE"
290  PRINT "ESTA CONTESTANDO, APENAS TIENE QUE IMPRIMIR 'INGLES' O"
300  PRINT "'ESPANOL' CUANDO SE PIDE LA RESPUESTA Y LA IDIOMA CAMBIARA."
310  GOTO 340
320  F=L1=1
330  GOTO 350
340  F=L1=2
350  PRINT '10'10'10
360  O1=INT(25*RND(0))+1
370  GOTO L1 OF 380,450
380  IF O8 >= 25 THEN 410
390  IF F[1,O1]<.5 THEN 420
400  GOTO 360
410  GOTO L1 OF 2150,2170
420  F[1,O1]=1
430  O8=O8+1
440  GOTO 500
450  IF O9 >= 25 THEN 410
460  IF F[2,O1]<.5 THEN 480
470  GOTO 360
480  F[2,O1]=1
490  O9=O9+1
500  R=O1
510  READ #1,R
520  READ #2,R
530  GOTO 540
540  FOR Z1=1 TO 2
550  PRINT '10
560  READ #1;U$,V$,W$,X$
570  READ #2;A$,B$,C$,D$
580  GOTO 590
590  REM-OUTPUT ROUTINE
600  N=1
610  FOR L=1 TO 4
620  GOTO F OF 630,730,630,730,630,730
630  GOTO L OF 640,670,690,710
640  Z$=U$
650  Q$=Z$[1,2]
660  GOTO 830
670  Z$=V$
680  GOTO 830
690  Z$=W$
700  GOTO 830
710  Z$=X$
720  GOTO 830
730  GOTO L OF 740,770,790,810
740  Z$=A$
750  Q$=Z$[1,2]
760  GOTO 830
770  Z$=B$
780  GOTO 830
790  Z$=C$
800  GOTO 830
810  Z$=D$
820  GOTO 830
830  IF L>1 THEN 850
840  Q=3
850  FOR Z=Q TO 61
860  IF Z$[Z,Z]="#" THEN 970
870  IF Z$[Z,Z]=":" THEN 940
880  IF Z$[Z,Z]="&" THEN 960
890  IF Z$[Z,Z]="+" THEN 1190
900  NEXT Z
910  IF (Q >= 61 OR Z >= 62) AND L>1 THEN 930
920  PRINT Z$[Q,61]
930  GOTO 1170
940  PRINT Z$[Q,Z-1]
950  GOTO 1170
960  K=1
970  IF K=2 THEN 1060
980  GOTO N OF 990,1000,1020,1040
990  GOTO 1050
1000  PRINT "A)"TAB(5);
1010  GOTO 1050
1020  PRINT "B)"TAB(5);
1030  GOTO 1050
1040  PRINT "C)"TAB(5);
1050  IF K=1 THEN 1090
1060  PRINT Z$[Q,Z-1]
1070  GOTO 1150
1080  GOTO 1110
1090  PRINT Z$[Q,Z-1]" ";
1100  K=2
1110  GOTO 1170
1120  N=N+1
1130  Q=Z+1
1140  GOTO 850
1150  K=0
1160  GOTO 1120
1170  Q=1
1180  NEXT L
1190  REM-THIS IS THE CORRECTION AND FINE ROUTINE
1200  R1=1
1210  G1=G1+1
1220  GOTO L1 OF 1230,1250
1230  PRINT "WHAT IS YOUR ANSWER";
1240  GOTO 1260
1250  PRINT "QUE ES SU RESPUESTA ESTA PREGUNTA?";
1260  INPUT E$
1270  IF E$[1,1]=Q$[2,2] THEN 1420
1280  IF E$="ENGLISH" THEN 1570
1290  IF E$="INGLES" THEN 1570
1300  IF E$="SPANISH" THEN 1620
1310  IF E$="ESPANOL" THEN 1620
1320  IF E$="A" THEN 1670
1330  IF E$="B" THEN 1670
1340  IF E$="C" THEN 1670
1350  GOTO L1 OF 1390,1360
1360  PRINT "SU RESPUESTA NO ESTA ESCRITA CORRECTAMENTE."
1370  PRINT "POR FAVOR ESCRIBA OTRA VEZ SU RESPUESTA."
1380  GOTO 1250
1390  PRINT "YOUR ANSWER IS NOT WRITTEN PROPERLY!"
1400  PRINT "PLEASE RETYPE IT."
1410  GOTO 1230
1420  GOTO L1 OF 1430,1470
1430  PRINT "THAT WAS RIGHT!"
1440  IF R1>1 THEN 1500
1450  G2=G2+1
1460  GOTO 1500
1470  PRINT "ESA FUE LA RESPUESTA CORRECTA"
1480  IF R1>1 THEN 1500
1490  G2=G2+1
1500  GOTO L1 OF 1530,1510
1510  PRINT "OTRA PREGUNTA (SI OR NO)";
1520  GOTO 1540
1530  PRINT "ANOTHER QUESTION (YES OR NO) ";
1540  INPUT E$
1550  IF E$[1,1]="N" THEN 2190
1560  GOTO 2130
1570  L1=1
1580  GOTO F OF 1230,1590,1230,1590,1230,1590,1230
1590  F=F-1
1600  G1=G1-1
1610  GOTO 590
1620  L1=2
1630  GOTO F OF 1640,1250,1640,1250,1640,1250,1640
1640  F=F+1
1650  G1=G1-1
1660  GOTO 590
1670  R1=R1+1
1680  GOTO L1 OF 1690,1710
1690  PRINT "THAT'S WRONG."
1700  GOTO 1720
1710  PRINT "SU RESPUESTA FUE EQUIVOCADA."
1720  IF R1=3 THEN 1220
1730  IF R1>3 THEN 1870
1740  IF Q$[1,1]="A" THEN 1780
1750  IF Q$[1,1]="B" THEN 1800
1760  IF Q$[1,1]="C" THEN 1820
1770  IF Q$[1,1]="D" THEN 1840
1780  R2=1
1790  GOTO L1 OF 1860,2040
1800  R2=2
1810  GOTO L1 OF 1860,2040
1820  R2=3
1830  GOTO L1 OF 1860,2040
1840  R2=4
1850  GOTO L1 OF 1860,2040
1860  GOTO R2 OF 1920,1950,1980,2010
1870  GOTO L1 OF 1880,1900
1880  PRINT "THE CORRECT ANSWER WAS  ";Q$[2,2]
1890  GOTO 1500
1900  PRINT "LA RESPUESTA CORRECTA FUE";Q$[2,2]
1910  GOTO 1500
1920  PRINT "YOU HAVE JUST BEEN FINED $15 FOR THE WRONG RESPONSE"
1930  F1=F1+15
1940  GOTO 1220
1950  PRINT "YOU HAVE JUST BEEN FINED $20 FOR THE WRONG RESPONSE"
1960  F1=F1+20
1970  GOTO 1220
1980  PRINT "YOU HAVE JUST BEEN FINED $25 FOR THE WRONG RESPONSE"
1990  F1=F1+25
2000  GOTO 1220
2010  PRINT "YOU HAVE JUST BEEN FINED $50 FOR THE WRONG RESPONSE"
2020  F1=F1+50
2030  GOTO 1220
2040  GOTO R2 OF 2050,2070,2090,2110
2050  PRINT "VD ACABA DE SER MULTADO DE $15 POR LA RESPUESTA EQUIVOCADA"
2060  GOTO 1930
2070  PRINT "VD ACABA DE SER MULTADO DE $20 POR LA RESPUESTA EQUIVOCADA"
2080  GOTO 1960
2090  PRINT "VD ACABA DE SER MULTADO DE $25 POR LA RESPUESTA EQUIVOCADA"
2100  GOTO 1990
2110  PRINT "VD ACABA DE SER MULTADO DE $50 POR LA RESPUESTA EQUIVOCADA"
2120  GOTO 2020
2130  NEXT Z1
2140  GOTO 360
2150  PRINT "THAT'S ALL THE QUESTIONS I HAVE AT PRESENT"
2160  GOTO 2190
2170  PRINT "ESTAS SON TODAS LAS PREGUNTAS QUE HAY AHORA"
2180  GOTO 2190
2190  GOTO L1 OF 2200,2330
2200  PRINT "ON THIS DRIVER EDUCATION QUIZ YOU HAVE ANSWERED"
2210  PRINT G2;"CORRECT OUT OF "G1;"POSSIBLE"
2220  IF F1=0 THEN 2260
2230  PRINT "YOU HAVE BEEN FINED  "F1"DOLLARS BECAUSE OF WRONG ANSWERS"
2240  PRINT "AND WILL BE NOTIFIED OF YOUR COURT APPEARNCE BY MAIL."
2260  PRINT "I HOPE YOU HAVE LEARNED SOMETHING FROM THIS QUIZ BECAUSE"
2270  PRINT "THESE QUESTIONS ARE SIMILIAR TO THE ONES YOU WILL FIND"
2280  PRINT "ON YOUR ACTUAL DRIVER'S TEST."
2290  PRINT "REMEMBER TO DRIVE SAFELY AND STUDY THE VEHICLE CODE"
2300  PRINT "MANUAL BEFORE GOING FOR YOUR EXAMINATION."
2310  PRINT "THIS IS THE COMPUTER WISHING YOU GOOD LUCK ON YOUR EXAM"
2320  GOTO 2460
2330  PRINT "EN ESTTAS PRUEBA DE EDUCACION PARA CHOFERES, VD HA"
2340  PRINT "CONTESTADO";G2;"CORRECTAS DE";G1;"POSSIBLES"
2350  IF F1=0 THEN 2390
2360  PRINT "LA MULTA POR LAS RESPUESTAS EQUIVOCADAS ES";F1
2370  PRINT "DOLARES Y TIENE QUE PAGAR ANTES DE SALIR"
2380  PRINT "LE NOTIFICARD DE SU APARENCIA ANTES LA CORTE POR CORREO"
2390  PRINT "SE ESPERA QUE VD HAYA APRENDIDO ALGO DE ESTA PRUEBA."
2400  PRINT "PORQUE ESTAS PREGUNTAS SON SEMEJANTES A LAS DE LA PRUEBA REAL"
2410  PRINT "RECUERDA MANEJAR BIEN Y ESTUDIE EL LIBRO QUE SE LLAMA"
2420  PRINT "'VEHICLE CODE MANUAL' ANTES DE IR PARA SU EXAMEN"
2430  PRINT "ENTONCES DICE LA COMPUTADORA QUE TENGA MUY BUENA SUERTA"
2440  PRINT "EN SU EXAMEN."
2450  GOTO 2460
2460  END 
