10 REM WALT GIBSON DRIVER EDUCATION PROGRAM 20 REM 25 IF ERROR THEN 2460 30 FILES *DRIVE1,*DRIVE2 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 CHAIN R,"*HELP" 2470 SYSTEM X,"BYE" 2480 END