1 GOTO910 2 REM ** ML STOP KEY DISABLE ** 3 PRINT"x[169]=[141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 4 [153]"xhhh+hNOThhhhhhhPRINT#HRUNHX`111" 5 [153]"hhhhhhh`1" 6 [143] ** 4 - POP ML SUBROUTINE ** 10 [143] **GENERAL INPUT ROUTINE ** 11 [143]&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 12 [143] WRITTEN BY STEPHEN FENTON 1980 13 [143] ON FWCI PET COMPUTERS 14 [143] REVISED BY STEPHEN FENTON 15 : 17 [143]&&&&&&&&&&&&&&&&&&&&&&&&&&&&& 20 [143] ** TO OUR BEST KNOWLEDGE THIS 21 [143] PROGRAM IS FREE FOR 22 [143] DUPLICATION IN CANADA. 23 [143] IF YOU HAVE CONTARY 24 [143] INFORMATION, PLEASE 25 [143] CONTACT COMMODORE CANADA AND 26 [143] EVERY EFFORT WILL BE MADE TO 27 [143] WITHDRAW COPIES OF THIS 28 [143] PROGRAM. 30 : 35 [143] +++ INPUT SECTION +++ 40 [151]UO,0:UR$[178]"":UI$[178]"" 42 [139]UL[178]0[167]UL[178]80 45 [153]" CMDCMD";:[151]UC,0 50 [161]UI$:[139]UI$[178]""[167]50 55 [139]UI$[178][199](13)[175][195](UR$)[177][178]1[167][151]UC,1:[153]" CMD";:[137]85 60 [139]UI$[178][199](20)[167]105 62 [139] [195](UR$)[178][177]UL[167]50 65 [141]120:[143] CHECK FOR VALID CHARACTER 70 UR$[178]UR$[170]UI$ 75 [153]UI$; 80 [137]50 85 [143] +++ CHECK FOR HELP REQUEST +++ 90 [139]UR$[178]UX$[167]195:[143] EXIT TO HELP ROUTINE 95 [139]UF[178]1[167][141]240 100 UF[178]0:[153]:[142] 102 [143] ++ CHECK DELETE ++ 105 [139][195](UR$)[179]1[167]50 110 UR$[178][200](UR$,[195](UR$)[171]1) 115 [153]"CMD CMDCMD";:[137]50 120 [143] ++ CHECK FOR VALID CHARACTERS ++ 125 [139][195](US$)[178]0[167]150 127 US$[178]US$[170]UX$ 130 [129]US[178]1[164][195](US$) 135 [139]UI$[178][202](US$,US,1)[167][142] 140 [130] 145 UI$[178]"":[142] 150 [143] ** STANDARD INPUT ** 152 [139][198](UI$)[178]46[167][142] 155 [139]UI$[178][199](32)[167][142] 160 [139][198](UI$)[179]48[176][198](UI$)[177]57[167]170 165 [142] 170 [139][198](UI$)[179]65[176][198](UI$)[177]90[167]180 175 [142] 180 [139][198](UI$)[179]193[176][198](UI$)[177]218[167]UI$[178]"":[142] 185 [139][194](UT)[178]UU%[167]UI$[178][199]([198](UI$)[171]128):[142] 187 [142] 190 UI$[178]"":[142] 195 UF[178]1:[143] +++ HELP ROUTINE EXIT +++ 197 [141]250 200 [141]245 205 [129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]2) 210 UQ%(UQ[171]UB)[178][194](UQ):[130]:[153]"LOAD" 215 UZ[178]1:UV%[178][194](UT) 216 [137]300 217 UZ[178]0:US$[178]UJ$:UG$[178]UK$:UP[178]UJ:UL[178]UK 218 [139][194](50003)[178]0[167][151]53281,1:[153]"LOAD";:[151]53281,6:[151]53280,14:[137]220 219 [153]"LOAD"; 220 UT$[178]UL$:[151]UT,UV%:[129]UQ[178]UB[164](U2%[172]256[170]U1%[170]U3%[171]3) 225 [151]UQ,UQ%(UQ[171]UB):[130] 230 [151]U1,U1% 232 [151]U2,U2% 233 [151]U4,U4% 234 [151]U3,U3%[171]1 235 [137]35 240 UD%[178]((U2%[172]256[170]U1%[170]U3%)[171]UB)[173]40:[153][200](UD$,UD%[170]1):[142] 245 [153][200](UD$,24);"  HELP COMING WAIT ":[142] 250 U1%[178][194](U1):U2%[178][194](U2):U3%[178][194](U3):U4%[178][194](U4) 251 UJ$[178]US$:UK$[178]UG$:UL$[178]UT$:UJ[178]UP:UK[178]UL 255 [142] 300 [143] ** MENU ** 301 : 302 [153]"LOAD":[151]UT,UU%:[139][194](50003)[178]0[167][151]53281,9:[151]53280,8 303 : 305 [153]" MENU" 310 [153]" --------------------------------------" 315 [153]" 1. BEGIN DRIVER EDUCATION" 320 [153]" 2. STUDENT INSTRUCTIONS" 325 [153]" 3. TEACHER INSTRUCTIONS" 335 [153]" 4. QUIT" 340 [153]" --------------------------------------" 345 [153]" PRESS A NUMBER KEY (1-4) "; 350 UL[178]1:US$[178]"1234":[141]35:[143] INPUT ROUTINE 355 [145][197](UR$)[141]1000,400,500,396 360 [137]300 395 [143] ** RE-ENABLE STOP KEY AND END ** 396 [139][194](50003)[179][177]1[175][194](50003)[179][177]160[175][194](50003)[179][177]0[167]399 397 [158]UU[170]71:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14 398 [153]"CONTLOAD":[128] 399 [141]875:[142] 400 [143] ** STUDENT INSTRUCTIONS ** 405 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,0:[151]53280,0 410 UP[178]0:UG$[178]"(null)TUDENT RIGHT$NST.":[141]850 412 [153]" (null)HIS PROGRAM IS A DRIVING QUIZ." 413 [153]" RIGHT$T ASKS QUESTIONS BASED ON THE 414 PRINT" [196][210][201][214][197][210][160][200][193][206][196]-[194][207][207][203][160]OF THE [205]INISTRY" 415 PRINT" OF [212]RANSPORTATION." 416 PRINT" [212]HE QUIZ IS VERY SIMILAR TO THE" 418 PRINT" TEST TAKEN FOR A [194]EGINNER'S [208]ERMIT" 420 PRINT" AND COULD SERVE AS A GOOD STUDY" 421 PRINT" QUIZ." 422 GOSUB835 424 GOSUB850 426 PRINT" [201]N [208][193][210][212][160][201], THERE ARE TEN MULTIPLE 427 [153]" CHOICE QUESTIONS. 428 PRINT" [212]O ANSWER A QUESTION, TYPE IN THE" 429 PRINT" LETTER OF THE ANSWER THAT YOU" 430 PRINT" THINK IS CORRECT AND THEN" 431 PRINT" PRESS ." 432 PRINT" [217]OU GET TWO CHANCES TO ANSWER" 433 PRINT" EACH QUESTION." 434 GOSUB835 436 GOSUB850 438 PRINT" [201]N [208][193][210][212][160][201][201], THERE ARE TEN MORE" 439 PRINT" QUESTIONS, HOWEVER, THESE ARE" 440 PRINT" GRAPHICALLY ILLUSTRATED. 442 [153]" (null)O ANSWER A QUESTION, YOU MUST" 443 [153]" TYPE IN THE CORRECT NUMBER FROM" 444 [153]" THE LIST DISPLAYED AND PRESS" 446 [153]" . RIGHT$F THE ANSWER IS IN" 447 [153]" TWO PARTS, YOU WILL BE ASKED FOR" 448 [153]" EACH PART SEPARATELY. 450 GOSUB835 455 GOSUB850 475 PRINT" [201]F AT ANY TIME YOU WISH TO RETURN" 480 PRINT" TO THE [205][197][206][213] PRESS H [210][197][212][213][210][206]." 485 GOSUB835 490 IFUZ=1THENSYSUP%:GOTO217 499 RETURN 500 REM ** TEACHER INSTRUCTIONS ** 501 PRINT"[147]":POKEUT,UL%:IFPEEK(50003)=0THENPOKE53281,2:POKE53280,10 502 UP=0:UG$="[212]EACHER [201]NST":GOSUB850 503 PRINT" [212]O THE BEST OF OUR KNOWLEDGE," 504 PRINT" THIS PROGRAM IS IN THE PUBLIC" 505 PRINT" DOMAIN. [201]F THIS IS NOT THE CASE" 506 PRINT" PLEASE CONTACT:" 507 PRINT" [195]OMMODORE [194]USINESS [205]ACHINES" 508 PRINT" 3370 [208]HARMACY [193]VE. 509 [153]" ATNGINCOURT, (null)NTARIO" 510 [153]" LENANADA (null)1(null) 2(null)4" 511 [153]" (416) 499-4292" 512 UP[178]1:[141] 835:[141] 850: 513 [153]" (null)ROGRAM (null)AME: STR$RIVER VALDUCATION 514 PRINT" [215]RITTEN [194]Y : [211]TEPHEN [198]ENTON 515 [153]" (null)PGRADED PEEKY : (null)TEPHEN ASCENTON 516 PRINT" [212]HIS PROGRAM WILL RUN ON ANY 519 [153]" (null)VAL(null) 64 LEN(null)(null)(null)(null)(null)VAL(null) 520 PRINT" [195][207][205][205][207][196][207][210][197] 64 [195][207][205][208][213][212][197][210] 521 [141]835 522 [143]------------------------------ 524 [143]" (null)PGRADED FOR LEN64 BY: 526 REM" [204]YNDA [194]ONANNO 528 [143]------------------------------ 590 [139]UZ[178]1[167][158]UP%:[137]217 599 [142] 600 [143] ** PROGRAM MODIFICATION INST ** 601 [153]"LOAD":[151]UT,UL% 605 UP[178]0:UG$[178]"(null)ROGRAM (null)OD":[141]850 660 [141]835 690 [139]UZ[178]1[167][158]UP%:[137]217 699 [142] 700 [143] ** TO USE 8032 LOAD CBM4032 ** 710 [153]"LOADBEFORE RUNNING THIS PROGRAM ON AN 8032  720 PRINT" LOAD THE 'CBM 4032' PROGRAM" 730 SYSUU+71 740 END 797 REM ** TO USE 8032 LOAD CBM4032 ** 798 PRINT"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM" 799 SYS1093:END 800 REM ** T I T L E P A G E ** 802 PRINT"[147]";:POKEUT,UU%:IFPEEK(50003)=0THENPOKE53280,14:POKE53281,6 804 FORI=1TO38:PRINT"[166][146]";:NEXT 806 FORI=1TO22:PRINT"[157][166][146]";:NEXT 808 FORI=1TO37:PRINT"[157][157][166][146]";:NEXT 810 FORI=1TO22:PRINT"[145][157][166][146]";:NEXT 812 PRINT"[169] [146] 814 [153]" WAIT  WAITSTEP 816 PRINT" [146] [163][223] 818 [153]"(null) WAIT 820 PRINT"C O M M O D O R E 822 [153]"EDUCATIONAL 824 PRINT"SOFTWARE 826 [143] ** COMMODORE LOGO ** 827 [153][200](UD$,24);"PRESS SPACE BAR OR WAITWAIT":I[178]0 828 [161]A$:[139]A$[179][177]" "[167]I[178]I[170]1:[139]I[179]250[167]828 830 T1$[178]"":T2$[178]"":T3$[178]"":T4$[178]"":I[178]0 832 [137]300 835 [143] ** SPACE BAR PRESS ** 840 [151]UO,0:[153][200](UD$,24);"PRESS SPACE BAR TO CONTINUEWAIT" 844 [161]UI$:[139]UI$[179][177]" "[167]844 846 [142] 850 [143] ** PAGE DESIGN ROUTINE ** 852 UP[178]UP[170]1 855 [153]"LOAD"[200](UT$[170]UP$,21);[201](UP$[170]UG$[170][196](UP),18) 860 [153]" --------------------------------------" 864 [139]UH[179][177]0[167]870 865 [153][200](UD$,24);[200](UP$,7);"HELP - PRESS H " 870 UH[178]0:[153]"":[142] 875 [143] ** PLEASE WAIT REMARK ** 880 [153][200](UD$,24);" ONE MOMENT PLEASE... " 885 [142] 900 [143] ** SET UP VARIABLES ** 901 UX$[178]"H":[134]UQ%(1000):UB[178]32768:U1[178]196:U2[178]197:U3[178]198:U4[178]216:UC[178]167:UU[178]1024 902 UT[178]59468:UU%[178]12:UL%[178]14:UP%[178]1146:UM[178]32768:UO[178]158:[151] 50003,0 903 [139][194](50003)[178]0[167]UB[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UU[178]2048 904 [139][194](50003)[178]0[167]UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2139:UM[178]1024:UO[178]198 905 UD$[178]"" 906 UP$[178]" " 907 UT$[178]" STR$RIVER VALDUCATION" 908 [142] 910 [143] ** SET VARIABLES ** 915 [141]900 916 : 917 : 920 [143] ** CHECK FOR 8032 ** 925 [153]"LOAD":[153]"CLOSE":[143] SHIFTED SPACE 930 [139][194](UB[170]40)[179][177]96[167][141]700 931 [143] ** MEMORY CHECK ** 932 [139] [184](0)[177]2000[167]937 933 [153]"LOADTHIS MACHINE DOES NOT HAVE ENOUGH" 934 [153]"MEMORY TO RUN THIS PROGRAM !" 935 [158]UU[170]71 936 [128] 937 [153]"LOAD":[139][194](50003)[178]0[167]962 940 [143] ** BASIC 2.0 OR 4.0 OR C-64 SETUP ** 941 [151]1075,133:[151]1076,144:[151]1077,234:[151]1079,4:[151]1080,133:[151]1081,145 942 [151]1091,155:[151]1098,133:[151]1099,144:[151]1100,234:[151]1103,133 943 [151]1104,145:[151]1105,234:[151]1082,234 945 [139][194](50003)[179][177]160[167]955 950 [151]1093,88:[151]1094,228:[151]1097,85:[151]1102,228:[137]965 955 [139][194](50003)[179][177]1[167]990 960 [151]1093,49:[151]1094,230:[151]1097,46:[151]1102,230:[137]965 962 [151]2099,141:[151]2100,20:[151]2101,3:[151]2103,8:[151]2104,141:[151]2105,21 963 [151]2106,3:[151]2115,145:[151]2117,52:[151]2118,234:[151]2121,49:[151]2122,141 964 [151]2123,20:[151]2124,3:[151]2126,234:[151]2127,141:[151]2128,21:[151]2129,3 965 [158]UU[170]48:[143] DISABLE STOP KEY 970 [141]800:[143] TITLE 980 [137]300:[143] MENU 990 [153]"LOADTHE PGM WILL NOT WORK ON THIS MACHINE!":[128] 1000 [139]UZ[178]1[167][158]UP%:[158]UP%:UZ[178]0:[143] ** PROGRAM STARTS HERE ** 1001 [153]"LOAD";:[140]:[139][194](50003)[178]0[167][151]53281,6:[151]53280,14 1100 [153]"LOAD":[151]UT,UU% 1110 [143] WRITTEN BY STEPHEN FENTON 1980 1111 [143] ON FWCI PET COMPUTERS 1115 [143] REVISED BY STEPHEN FENTON 1117 [143] JUNE 1982 1118 [151]UT,UL%:YOTAL[178]0:POTAL[178]0:OTAL[178]0 1119 US$[178]"HABCD":UL[178]1 1160 [153]"LOAD (null)ATN(null)(null) RIGHT$" 1170 [153]" ATNNSWER THESE MULTIPLE CHOICE" 1180 [153]" QUESTIONS. (null)OU GET TWO CHANCES" 1185 [153]" PER QUESTION ONLY!" 1190 [141]835 1200 UG$[178]"(null)UESTION #":UP[178]0 1220 X[178]1 1230 [141]850:[153]" 1. (null)HEN APPROACHING A RED LIGHT" 1240 [153]" AND A POLICEMAN MOTIONS YOU THROUGH, YOU:" 1250 [153]" ATN.(null)TOP AND MAKE SURE OF HIS INTENTIONS" 1260 [153]" PEEK.CHR$O THROUGH AT ONCE" 1270 [153]" LEN.(null)AIT FOR GREEN LIGHT" 1280 [153]" STR$.LENALL HIS ATTENTION TO THE RED LIGHT" 1290 [153]" ? ";:[141]35:S$[178]UR$ 1300 [139]S$[179][177]"B"[167][141]4560:[139]X[179]3[167]UP[178]UP[171]1:[137]1230 1310 [139]S$[178]"B"[167]OTAL[178]1 1320 X[178]1 1325 [141]850 1330 [153]" 2. LEFT$OW CLOSE TO A HYDRANT MAY YOU LEGALLY PARK ?" 1340 [153]" ATN. 1.5 METRES(5 FEET)" 1350 [153]" PEEK. 6 METRES(20 FEET)" 1360 [153]" LEN. 3 METRES(10 FEET)" 1370 [153]" STR$. 4.5 METRES(15 FEET)" 1380 [153]" ? ";:[141]35:T$[178]UR$ 1390 [139]T$[179][177]"C"[167][141]4560:[139]X[179]3[167]UP[178]UP[171]1:[137]1325 1400 [139]T$[178]"C"[167]OTAL[178]OTAL[170]1 1410 X[178]1 1420 [141]850:[153]" 3. (null)OST AUTOMOBILE SKIDS ARE CAUSED BY:" 1430 [153]" ATN.(null)VER-INFLATED TIRES" 1440 [153]" PEEK.(null)NDER-INFLATED TIRES" 1450 [153]" LEN.(null)NOW OR ICE ON ROAD" 1460 [153]" STR$.STR$RIVING TOO FAST" 1470 [153]" ? ";:[141]35:CX$[178]UR$ 1480 [139]CX$[179][177]"D"[167][141]4560:[139]X[179]3[167]UP[178]UP[171]1:[137]1420 1490 [139]CX$[178]"D"[167]OTAL[178]OTAL[170]1 1500 X[178]1 1505 [141]850 1510 [153]" 4. (null)NLESS POSTED,THE MAXIMUM SPEED IN AN URBAN AREA IS" 1520 [153]" ATN.50 KPH(30 MPH)" 1530 [153]" PEEK.30 KPH(20 MPH)" 1540 [153]" LEN.60 KPH(35 MPH)" 1550 [153]" STR$.40 KPH(25 MPH)" 1560 [153]" ? ";:[141]35:V$[178]UR$ 1570 [139]V$[179][177]"A"[167][141]4560:[139]X[179]3[167]UP[178]UP[171]1:[137]1505 1580 [139]V$[178]"A"[167]OTAL[178]OTAL[170]1 1590 X[178]1 1610 [141]850:[153]" 5. (null)HEN LIGHTS ARE REQUIRED," 1615 [153]" DRIVERS ARE REQUIRED TO USE" 1620 [153]" (null)(null)(null) PEEKVALATN(null)(null) WHITHIN TOTOTOTO OF AN APPROACHING VEHICLE." 1630 [153]" ATN. 1KM (1MI)" 1640 [153]" PEEK. 150M(500FT)" 1650 [153]" LEN. 300M(1000FT)" 1660 [153]" STR$. (null)O DISTANCE ((null)HIS IS JUST 1665 PRINT" A SAFETY PRACTICE)" 1670 PRINT" ? ";:GOSUB35:W$=UR$ 1680 IFW$<>"B"THENGOSUB4560:IFX<3THENUP=UP-1:GOTO1610 1690 IFW$="B"THENOTAL=OTAL+1 1700 X=1 1705 GOSUB850 1710 PRINT" 6. [215]HICH HAS THE RIGHT OF WAY AT A GREEN LIGHT ?" 1720 PRINT" [193].[208]EDESTRIAN CROSSING" 1725 PRINT" AGAINST THE LIGHT" 1730 PRINT" [194].[208]EDESTRIAN CROSSING WITH THE LIGHT" 1740 PRINT" [195].[214]EHICLES TURNING RIGHT" 1750 PRINT" [196].[214]EHICLES TURNING LEFT" 1760 PRINT" ? ";:GOSUB35:X$=UR$ 1770 IFX$<>"B"THENGOSUB4560:IFX<3THENUP=UP-1:GOTO1705 1780 IFX$="B"THENOTAL=OTAL+1 1790 X=1 1800 GOSUB850:PRINT" 7. [201]N [207]NTARIO,THERE IS A SEAT BELT LAW" 1810 PRINT" [193].[217]ES 1820 [153]" PEEK.(null)O" 1830 [153]" LEN.(null)NLY ON AN OPEN HIGHWAY" 1840 [153]" STR$.(null)NLY WITHIN A MUNICIPALITY" 1850 [153]" ? ";:[141]35:Y$[178]UR$ 1860 [139]Y$[179][177]"A"[167][141]4560:[139]X[179]3[167]UP[178]UP[171]1:[137]1800 1870 [139]Y$[178]"A"[167]OTAL[178]OTAL[170]1 1875 X[178]1 1880 [141]850:[153]" 8. (null)HEN TWO CARS SIMULTANIOUSLY" 1885 [153]" REACH AN UNCONTROLLED INTERSEC-" 1890 [153]" TION, THE RIGHT-OF-WAY GOES TO:" 1900 [153]" ATN.(null)HE ONE APPROACHING FROM LEFT" 1910 [153]" PEEK.(null)HE ONE APPROACHING FROM RIGHT" 1920 [153]" LEN.(null)EITHER ONE" 1930 [153]" STR$.(null)HE FASTER ONE" 1940 [153]" ? ";:[141]35:Z$[178]UR$ 1950 [139]Z$[179][177]"B"[167][141]4560:[139]X[179]3[167]UP[178]UP[171]1:[137]1880 1960 [139]Z$[178]"B"[167]OTAL[178]OTAL[170]1 1970 X[178]1 1980 [141]850:[153]" 9. ATNT WHAT ALCOHOL LEVEL CAN YOU BE LEN(null)(null)(null)RIGHT$LEN(null)VALSTR$:" 1990 [153]" ATN. 0.08%" 2000 [153]" PEEK. 0.05%" 2010 [153]" LEN. 0.03%" 2020 [153]" STR$. 1.00%" 2030 [153]" ? ";:[141]35:A$[178]UR$ 2040 [139]A$[179][177]"A"[167][141]4560:[139]X[179]3[167]UP[178]UP[171]1:[137]1980 2050 [139]A$[178]"A"[167]OTAL[178]OTAL[170]1 2060 X[178]1 2065 [141]850 2070 [153]" 10. ATN FLASHING PEEK(null)(null)VAL LIGHT ON A VEHICLE INDICATES:" 2080 [153]" ATN. VALXPLOSIVES" 2090 [153]" PEEK. (null)NOW PLOW" 2100 [153]" LEN. ATNMBULANCE" 2110 [153]" STR$. (null)OLICE" 2120 [153]" ? ";:[141]35:B$[178]UR$ 2130 [139]B$[179][177]"B"[167][141]4560:[139]X[179]3[167]UP[178]UP[171]1:[137]2065 2140 [139]B$[178]"B"[167]OTAL[178]OTAL[170]1 2150 [153]"LOAD RIGHT$N (null)ATN(null)(null)CLOSERIGHT$, (null)OU RECEIVED A SCORE OF"OTAL"/10" 2160 S[178]125 2170 [141]835 2180 [153]"LOAD (null)ATN(null)(null)CLOSERIGHT$RIGHT$" 2190 [153]" (null)SING A SINGLE OR COMBINATION OF" 2195 [153]" NUMBERS ANSWER THESE QUESTIONS" 2200 [141]835 2205 US$[178]"H123456789":UL[178]1 2210 [153]"LOAD" 2220 X[178]0 2230 [141]4300 2240 [129]NM[178]1[164]5:[153]" ":[130]NM 2250 [141]4300 2260 [151]UT,UU% 2270 [129]W[178]3[164]15 2280 [153]""[163]W)"CMDCMD (null)LENLENLENLENLENLENRIGHT$"[163]W[170]15)"CMDCMD TO(null)LENLENRIGHT$TOTO" 2290 [153]""[163]W)"CMDCMD CHR$ (null)LEFT$"[163]W[170]15)"CMDCMD THEN THEN:" 2300 [153]""[163]W[171]2)" MID$ASCASCASCASCASCASC(null)"[163]W[170]15)"CMDCMD TAB(MID$ASCASC(null)TAB(TAB(" 2302 LT$[178]"(null)" 2305 [139]W[178][181](W[173]2)[172]2[167]LT$[178]"(null)" 2310 [153]""[163]W[170]6)LT$ 2320 [129]OP[178]1[164]100:[130]OP 2330 [130]W 2350 [153]"":[141]4340 2360 X[178]0 2370 [153]" WHAT DO YOU DO WHEN AN EMERGENCY VEHICLE APPROACHES ?" 2380 X[178]0 2390 [153]" FIRST STEP ? CMD"; 2400 [141]35:R$[178]UR$ 2410 [139]R$[179][177]"7"[167]2417 2415 [153]"ON";:[137]2420 2417 [141]4630:[153]"ONONONON":L[178]3:[141]5000:[153]"ONONON" 2419 [139]X[179]2[167]2390 2420 [139]R$[178]"7"[167]POTAL[178]POTAL[170].5 2430 X[178]0 2440 [153]" SECOND STEP ? CMD"; 2450 [141]35:TF$[178]UR$ 2460 [139]TF$[179][177]"5"[167][141]4630:[153]"ONONONON":L[178]3:[141]5000:[153]"ONONON":[139]X[179]2[167]2440 2470 [139]TF$[178]"5"[167]POTAL[178]POTAL[170].5 2490 X[178]0 2500 [153]"LOAD TOTOTOTOTO 2520 PRINT" [206] [205] 2540 [153]" (null) (null) 2550 PRINT" [167] [167] 2570 [153]" THEN THEN 2580 PRINT" [167] [167] 2590 [153]" (null)CLOSECLOSECLOSECLOSECLOSECLOSECLOSE(null) 2620 PRINT" [205][164][164][164][164][164][206]" 2630 GOSUB4340 2640 PRINT" WHAT KIND OF SIGN IS THIS ? [157]"; 2650 GOSUB35:C$=UR$ 2660 IFC$<>"5"THENGOSUB4630:PRINT"[145][145][145][145][145]";:L=5:GOSUB5000 2665 IFC$<>"5"THENPRINT"[145][145][145]":IFX<2THEN2640 2670 IFC$="5"THENPOTAL=POTAL+1 2680 GOSUB4440 2690 X=0 2700 PRINT" [169] [146][169]" 2710 PRINT"  [146]" 2720 PRINT"  [146]" 2725 PRINT" *" 2730 PRINT"" 2740 GOSUB4340 2750 PRINT" WHAT IS THIS DRIVER SIGNALING ? [157]"; 2760 GOSUB35:Q$=UR$ 2770 IFQ$<>"5"THENGOSUB4630:PRINT"[145][145][145][145][145]":L=4:GOSUB5000:PRINT"[145][145][145]" 2775 IFQ$<>"5"THENIFX<2THEN2750 2780 IFQ$="5"THENPOTAL=POTAL+1 2790 PRINT"[147]" 2840 PRINT" [206] [206]" 2850 PRINT" [160] [206] [206] 2860 [153]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO(null) (null) 2900 PRINT" [206]" 2902 PRINT" [206] HILL" 2905 PRINT" [206]" 2910 PRINT"[213][195][195][195][201] [213][195][195][195][201] [206]" 2920 PRINT"[221] A [221] [221][160]B[160][221] [160] [206] 2930 [153]"MID$ASCASCASC(null) MID$ASCASCASC(null) (null) 2940 PRINT"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][206] 2950 X[178]0 2960 [141]4340 2970 [153]" IS IT SAFE FOR ACLOSETO PASS B? CMD"; 2980 [141]35:D$[178]UR$ 2990 [139]D$[179][177]"2"[167][141]4630:[153]"ONONONONON":L[178]4:[141]5000:[153]"ONON":[139]X[179]2[167]2970 3000 [139]D$[178]"2"[167]POTAL[178]POTAL[170]1 3010 [141]4440 3020 X[178]0 3030 TI$[178]"000000" 3040 [153]" (null)" 3050 [129]UY[178]1[164]75:[130]UY 3060 [153]"ON(null)" 3070 [129]YU[178]1[164]150:[130]YU 3100 [139]TI$[179]"000007"[167]3040 3110 [153]"" 3120 [141]4340 3130 [153]" WHAT DOES THIS SIGNIFY ? CMD"; 3140 [141]35:G$[178]UR$ 3150 [139]G$[179][177]"4"[167][141]4630:[153]"ONONONON":L[178]3:[141]5000:[153]"ONON":[139]X[179]2[167]3130 3160 [139]G$[178]"4"[167]POTAL[178]POTAL[170]1 3170 [153]"LOAD TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO 3180 X=0 3190 PRINT" [205] [206] 3200 [153]" (null) (null) 3210 PRINT" [205] [206] 3220 [153]" (null) (null) 3230 PRINT" [205] [206] 3240 [153]" (null) (null) 3250 PRINT" [205] [206] 3260 [153]" (null) (null) 3270 PRINT" [205] [206] 3280 [153]" (null)(null) 3320 GOSUB4340 3330 PRINT" WHAT DOES THIS SIGNIFY ? [157]"; 3340 GOSUB35:AZ$=UR$ 3350 IFAZ$<>"6"THENGOSUB4630:PRINT"[145][145][145][145][145]":L=4:GOSUB5000:PRINT"[145][145]":IFX<2THEN3330 3360 IFAZ$="6"THENPOTAL=POTAL+1 3370 PRINT"[147]" 3380 PRINT" [165] [167] 3390 [153]" FN(null)TANRIGHT$ THEN 3400 PRINT" [165][194]1[200] [167] 3410 [153]" TOTOTOTOTOTOFNMID$TAN(null) THENTOTOTOTOTOTOTOTOTOTO 3420 PRINT" 3430 [153]" (null)LENLENRIGHT$ 3440 PRINT" [194]3 [200] 3450 [153]" MID$ASCASC(null) 3460 PRINT" 3470 [153]" TOTOTOTOTOTO TOTOTOTOTOTOTOTOTOTO 3480 PRINT" [165] [213][195][201][167] 3490 [153]" FN PEEK2LEFT$THEN 3500 PRINT" [165] [202][192][203][167] 3510 X[178]0 3520 [153]" WHICH OF THESE CARS HAS THE RIGHT" 3525 [153]" OF WAY? (THIS IS A FOUR WAY STOP)" 3530 [153]" ENTER 1 2 OR 3 - CMD"; 3540 [141]35:FG$[178]UR$ 3550 [139]FG$[179][177]"1"[167][141]4630:[153]"ONONONONON":L[178]4:[141]5000 3555 [139]FG$[179][177]"1"[167][153]"ONONON":[139]X[179]2[167]3530 3560 [139]FG$[178]"1"[167]POTAL[178]POTAL[170]1 3580 [153]"LOAD THIS IS A TEST OF YOUR REACTIONS. 3585 PRINT" WHEN THE STAR APPEARS, PRESS" 3590 PRINT" . YOU WILL BE AWARDED" 3595 PRINT" AN APPROPRIATE SCORE" 3600 GOSUB835 3610 PRINT"[147]" 3620 D=INT(RND(1)*1000) 3625 GETTRE$:IFTRE$<>""THEN3625 3630 FORW=1TOD:NEXTW 3640 PRINT"*" 3650 FORU=1TO100 3660 REM--IT IS A VERY GOOD YEAR" 3670 [161]VB$:[139]VB$[178]""[167][130]U 3680 [139]U[179]40[167]POTAL[178]POTAL[170]1 3690 [139]U[177]40[175]U[179]60[167]POTAL[178]POTAL[170].75 3700 [139]U[177]60[175]U[179]80[167]POTAL[178]POTAL[170].5 3710 [139]U[177]80[175]U[179]100[167]POTAL[178]POTAL[170].25 3730 [153]"LOAD" 3740 X[178]0 3750 [153]"(null)TAB(TAB(" 3760 [153]"(null)TAB((null)" 3770 [153]"FN(null)WAITTHEN" 3780 [153]"FNCLOSETHEN" 3790 [153]"FN(null)THEN" 3800 [153]"FNCLOSETHEN" 3810 [153]"FN_WAITTHEN" 3820 [153]"(null)TOSQR" 3830 [153]"(null)TOTO" 3840 [141]4340 3850 [153]" UPON SEEING THIS LIGHT,WHAT DO YOU" 3860 [153]" DO? STEP ONE - CMD"; 3870 [141]35:IJ$[178]UR$ 3880 [139]IJ$[179][177]"5"[167][141]4630:[153]"ONONONONON":L[178]4:[141]5000 3885 [139]IJ$[179][177]"5"[167][153]"ONON":[139]X[179]2[167]3860 3890 [139]IJ$[178]"5"[167]POTAL[178]POTAL[170].5 3895 [139]X[179]2[167][153]"ON"; 3900 X[178]0 3910 [153]"STEP TWO - CMD"; 3920 [141]35:JI$[178]UR$ 3930 [139]JI$[179][177]"4"[167][141]4630:[153]"ONONONONON":[141]5000 3935 [139]JI$[179][177]"4"[167][153]"ONON":[139]X[179]2[167]3910 3940 [139]JI$[178]"4"[167]POTAL[178]POTAL[170].5 3950 [153]"LOAD" 3960 X[178]0 3970 [141]4300 3980 [129]S[178]1[164]6:[153]" ":[130]S 3990 [141]4300 4000 [153]" PHYSICAL BARRIER" 4010 [141]4300 4020 [129]QA[178]1[164]6:[153]" ":[130]QA 4030 [141]4300 4040 [153]" (null)(null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)" 4050 [153]" FNSCHOOL BUSTHEN" 4060 [153]" MID$(null)TOTOTOTOTOTOTOTOTOTOSQR" 4070 [153]" (null)LENLENLENRIGHT$" 4080 [153]" : 1 LEFT$ 4090 PRINT" [202][198][198][198][203]" 4100 PRINT"[213][195][195][195][201]" 4110 PRINT"[194] 2 :" 4120 PRINT"[202][198][198][198][203] 4130 [153]" WHICH CAR SHOULD STOP?" 4135 [153]" ENTER: 1, 2, 3(NEITHER), 4(BOTH) CMD"; 4140 [141]35:RU$[178]UR$ 4150 [139]RU$[179][177]"1"[167][141]4630:[153]"ONONONON":L[178]3:[141]5000 4155 [139]RU$[179][177]"1"[167][153]"ONON":[139]X[179]2[167]4135 4160 [139]RU$[178]"1"[167]POTAL[178]POTAL[170]1 4170 [153]"LOAD":[151]UT,UL% 4180 [153]" (null)OU RECEIVED "POTAL"/10 IN (null)ATN(null)(null)CLOSE(null)(null)(null)" 4200 YOTAL[178]POTAL[170]OTAL 4210 [153]" (null)VER ALL YOU RECEIVED"YOTAL"/20" 4220 [139]YOTAL[179][178]5[167][153]" (null)TAY OFF THE ROADS & STUDY SOME MORE!" 4230 [139]YOTAL[177]5[175]YOTAL[179][178]10[167][153]" (null)OU FAILED BUT TRY AGAIN AFTER YOU" 4240 [139]YOTAL[177]5[175]YOTAL[179][178]10[167][153]" STUDY SOME MORE." 4250 [139]YOTAL[177]10[175]YOTAL[179][178]15[167][153]" (null)OU PASSED." 4270 [139]YOTAL[177]15[167][153]" LENONGRATULATIONS!" 4272 [139]YOTAL[177]15[167][153]" (null)OU HAVE PASSED WITH FLYING COLOURS" 4275 US$[178]"" 4280 [141]835 4290 [142] 4300 [129]QA[178]1[164]40 4310 [153]"TO"; 4320 [130]QA 4330 [142] 4340 [143] 4370 [153]" POSSIBILITIES " 4375 [153]" STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$STR$" 4380 [153]" 1. YES 2. NO" 4390 [153]" 3. RIGHT TURN 4. LEFT TURN" 4400 [153]" 5. STOP 6. YIELD 4410 PRINT" 7. PULL OVER TO RIGHT" 4420 PRINT" 8. PULL OVER TO LEFT" 4430 RETURN 4440 PRINT"[147]" 4450 PRINT" [206][163][163][163][163][163][163][163][163][163][163][205] 4460 [153]" (null) (null) 4470 PRINT" [206] [205] 4480 [153]" (null) (null) 4490 PRINT"  [146]" 4500 PRINT"  [146]" 4510 PRINT"  [209][215] [215][209] [146]" 4520 PRINT"  [146]" 4530 PRINT" [166][166] [166][166] 4540 [153]" SPC(SPC( SPC(SPC( 4550 RETURN 4560 X=X+1 4570 IFX=3THENPRINT" [215][210][207][206][199]! 4580 [139]X[179]3[167][153]" (null)(null)(null)(null)CHR$! PEEKUT YOU GET ANOTHER CHANCE" 4590 [141]835 4600 [142] 4630 X[178]X[170]1 4640 [139]X[178]2[167][153]" THAT'S WRONG. " 4650 [139]X[179]2[167][153]" THAT'S WRONG, BUT YOU GET ANOTHER CHANCE" 4660 [141]835 4670 [142] 5000 [143] CLEAR LINES 5005 [129]Q[178]1[164]L 5010 : [153]" "; 5015 [130]Q 5020 [129]Q[178]1[164]L 5025 : [153]"ON"; 5030 [130]Q 5040 [142]