home *** CD-ROM | disk | FTP | other *** search
- 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 **
- 15 :
- 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
- 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 GEOG"
- 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
- 352 US$[178]""
- 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 UH[178]1:UP[178]0:UG$[178]"(null)TUDENT RIGHT$NST":[141]850
- 456 [153]" (null)HIS PROGRAM DEMONSTRATES 8 GEOGRAPHY"
- 457 [153]" TERMS USING A MAP AND GIVES A SHORT"
- 458 [153]" DEFINITION OF EACH . ATNFTER YOU HAVE"
- 459 [153]" REVIEWED THESE TO YOUR SATISFACTION"
- 460 [153]" YOU ARE TESTED ON YOUR NEWLY ACQUIRED"
- 461 [153]" KNOWLEDGE . ASCINALLY YOUR SCORE OUT OF"
- 462 [153]" 8 IS GIVEN AND YOU MAY EITHER REVIEW"
- 463 [153]" AGAIN OR QUIT.":[141]835:UH[178]1:[141]850
- 464 [153]" RIGHT$F YOU WISH TO QUIT FROM THE TEST"
- 465 [153]" TYPE <Q> AND PRESS <RETURN>. (null)YPING"
- 466 [153]" <Q> RETURNS YOU TO THE MENU AND CLEARS"
- 467 [153]" ALL VALUES AND VARIABLES."
- 468 [153]" RIGHT$F AT ANYTIME YOU NEED HELP TYPE"
- 469 [153]" <H> AND PRESS <RETURN> TO GET BACK TO"
- 471 [153]" THE MENU. ATNFTER YOU COMPLETE THE"
- 473 [153]" OPTION, YOU WILL RETURN TO THE PLACE"
- 475 [153]" WHERE YOU LEFT OFF."
- 485 [141]835
- 490 [139]UZ[178]1[167][158]UP%:[137]217
- 499 [142]
- 500 [143] ** TEACHER INSTRUCTIONS **
- 501 [153]"LOAD":[151]UT,UL%:[139][194](50003)[178]0[167][151]53281,2:[151]53280,10
- 502 UP[178]0:UG$[178]"(null)EACHER RIGHT$NST":[141]850
- 503 [153]" (null)O THE BEST OF OUR KNOWLEDGE,"
- 504 [153]" THIS PROGRAM IS IN THE PUBLIC"
- 505 [153]" DOMAIN. RIGHT$F THIS IS NOT THE CASE"
- 506 [153]" PLEASE CONTACT:"
- 507 [153]" LENOMMODORE PEEKUSINESS (null)ACHINES"
- 508 [153]" 3370 (null)HARMACY ATNVE.
- 509 PRINT" [193]GINCOURT, [207]NTARIO"
- 510 PRINT" [195]ANADA [205]1[215] 2[203]4"
- 511 PRINT" (416) 499-4292"
- 512 UP=1:GOSUB 835:GOSUB 850:
- 513 PRINT" [208]ROGRAM [206]AME: [199]EOG
- 514 [153]" (null)RITTEN PEEKY : CHR$EOFF (null)OULET
- 515 PRINT" [213]PGRADED [194]Y : [195]HERYL [207]LDHAM
- 516 [153]" (null)HIS PROGRAM WILL RUN ON ANY
- 517 PRINT"[145][145][145][145][145] [213]PLOADED TO [199][197]NIE BY [197].[196][213][210][203][201][206]1 [146]"
- 518 PRINT" [[205][207][206][212][193][206][193] [203][201][196]] [146]"
- 519 PRINT" [208][197][212] 64 [195][207][205][208][213][212][197][210]
- 520 [153]" LEN(null)(null)(null)(null)STR$(null)(null)VAL 64 LEN(null)(null)(null)(null)(null)VAL(null)
- 521 GOSUB835
- 590 IFUZ=1THENSYSUP%:GOTO217
- 599 RETURN
- 600 REM ** PROGRAM MODIFICATION INST **
- 601 PRINT"[147]":POKEUT,UL%
- 605 UP=0:UG$="[208]ROGRAM [205]OD":GOSUB850
- 660 GOSUB835
- 690 IFUZ=1THENSYSUP%:GOTO217
- 699 RETURN
- 700 REM ** TO USE 8032 LOAD CBM4032 **
- 710 PRINT"[147]BEFORE RUNNING THIS PROGRAM ON AN 8032
- 720 [153]" LOAD THE 'CBM 4032' PROGRAM"
- 730 [158]UU[170]71
- 740 [128]
- 800 [143] ** T I T L E P A G E **
- 802 [153]"LOAD";:[151]UT,UU%:[139][194](50003)[178]0[167][151]53280,14:[151]53281,6
- 804 [129]I[178]1[164]38:[153]"SPC(WAIT";:[130]
- 806 [129]I[178]1[164]22:[153]"CMDSPC(WAIT";:[130]
- 808 [129]I[178]1[164]37:[153]"CMDCMDSPC(WAIT";:[130]
- 810 [129]I[178]1[164]22:[153]"ONCMDSPC(WAIT";:[130]
- 812 [153]"STEP WAIT
- 814 PRINT" [146] [146][169]
- 816 [153]" WAIT TAB((null)
- 818 PRINT"[223] [146]
- 820 [153]"C O M M O D O R E
- 822 PRINT"EDUCATIONAL
- 824 [153]"SOFTWARE
- 826 REM ** COMMODORE LOGO **
- 827 PRINTLEFT$(UD$,24);"PRESS SPACE BAR OR WAIT[146]":I=0
- 828 GETA$:IFA$<>" "THENI=I+1:IFI<250THEN828
- 830 T1$="":T2$="":T3$="":T4$="":I=0
- 832 GOTO300
- 835 REM ** SPACE BAR PRESS **
- 840 POKEUO,0:PRINTLEFT$(UD$,24);"PRESS SPACE BAR TO CONTINUE[146]"
- 844 GETUI$:IFUI$<>" "THEN844
- 846 RETURN
- 850 REM ** PAGE DESIGN ROUTINE **
- 852 UP=UP+1
- 855 PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
- 860 PRINT" --------------------------------------"
- 864 IFUH<>0THEN870
- 865 PRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS H <RETURN>"
- 870 UH=0:PRINT"":RETURN
- 875 REM ** PLEASE WAIT REMARK **
- 880 PRINTLEFT$(UD$,24);" ONE MOMENT PLEASE... "
- 885 RETURN
- 900 REM ** SET UP VARIABLES **
- 901 UX$="H":DIMUQ%(1000):UB=32768:U1=196:U2=197:U3=198:U4=216:UC=167:UU=1024
- 902 UT=59468:UU%=12:UL%=14:UP%=1146:UM=32768:UO=158:POKE 50003,0
- 903 IFPEEK(50003)=0THENUB=1024:U1=209:U2=210:U3=211:U4=214:UC=204:UU=2048
- 904 IFPEEK(50003)=0THENUT=53272:UU%=21:UL%=23:UP%=2139:UM=1024:UO=198
- 905 UD$=""
- 906 UP$=" "
- 907 UT$=" [199][197][207][199] [160][160][160][160][160][160]":REM PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***
- 908 RETURN
- 910 REM ** SET VARIABLES **
- 912 DIM N$(8),I$(8),CH(8)
- 915 GOSUB900
- 916 :
- 917 :
- 920 REM ** CHECK FOR 8032 **
- 925 PRINT"[147]":PRINT"[160]":REM SHIFTED SPACE
- 930 IFPEEK(UB+40)<>96THENGOSUB700
- 931 REM ** MEMORY CHECK **
- 932 IF FRE(0)>2000THEN937
- 933 PRINT"[147]THIS MACHINE DOES NOT HAVE ENOUGH"
- 934 PRINT"MEMORY TO RUN THIS PROGRAM !"
- 935 SYSUU+71
- 936 END
- 937 PRINT"[147]":IFPEEK(50003)=0THEN962
- 940 REM ** BASIC 2.0 OR 4.0 OR C-64 SETUP **
- 941 POKE1075,133:POKE1076,144:POKE1077,234:POKE1079,4:POKE1080,133:POKE1081,145
- 942 POKE1091,155:POKE1098,133:POKE1099,144:POKE1100,234:POKE1103,133
- 943 POKE1104,145:POKE1105,234:POKE1082,234
- 945 IFPEEK(50003)<>160THEN955
- 950 POKE1093,88:POKE1094,228:POKE1097,85:POKE1102,228:GOTO965
- 955 IFPEEK(50003)<>1THEN990
- 960 POKE1093,49:POKE1094,230:POKE1097,46:POKE1102,230:GOTO965
- 962 POKE2099,141:POKE2100,20:POKE2101,3:POKE2103,8:POKE2104,141:POKE2105,21
- 963 POKE2106,3:POKE2115,145:POKE2117,52:POKE2118,234:POKE2121,49:POKE2122,141
- 964 POKE2123,20:POKE2124,3:POKE2126,234:POKE2127,141:POKE2128,21:POKE2129,3
- 965 SYSUU+48:REM DISABLE STOP KEY
- 970 GOSUB800:REM TITLE
- 980 GOTO300:REM MENU
- 990 PRINT"[147]THE PGM WILL NOT WORK ON THIS MACHINE!":END
- 1000 IFUZ=1THENSYSUP%:SYSUP%:UZ=0:REM ** PROGRAM STARTS HERE **
- 1001 PRINT"[147]";:RESTORE:IFPEEK(50003)=0THENPOKE53281,6:POKE53280,6
- 1002 REM ** BY **
- 1003 REM ** CHERYL A. OLDHAM **
- 1004 REM ** 1982 07 03 **
- 1005 REM **OSHAWA,ONTARIO,CANADA**
- 1006 REM *************************
- 1130 POKEUT,UL%:GOTO 1270
- 1230 REM TITLE BEGINS
- 1240 R=1:CT=0:AT=0
- 1250 GOTO 1360
- 1270 N$(1)="[199]ULF"
- 1280 N$(2)="[211]TRAIT"
- 1290 N$(3)="[193]RM"
- 1300 N$(4)="[195]APE"
- 1310 N$(5)="[201]SLAND"
- 1320 N$(6)="[194]AY"
- 1330 N$(7)="[208]ENINSULA"
- 1340 N$(8)="[201]STHMUS"
- 1350 GOTO 1230
- 1360 BW$="BODY OF WATER"
- 1370 PL$="PIECE OF LAND"
- 1380 C$="CONNECTING TWO LARGER"
- 1390 BP$="BODIES OF WATER"
- 1400 PP$="PIECES OF LAND "
- 1410 NA$="NARROW"
- 1420 PR$="PROJECTING INTO THE"
- 1430 L$="LAND"
- 1440 W$="WATER"
- 1450 S$="NEARLY SURROUNDED BY"
- 1460 I$(1)="A "+BW$+" "+LEFT$(S$,17)+" BY "+L$
- 1470 I$(2)="A "+NA$+" "+BW$+" "+C$+" "+BP$
- 1480 I$(3)="A "+NA$+" "+BW$+" "+LEFT$(PR$,10)+" INTO THE "+L$
- 1490 I$(4)="A "+NA$+" "+PL$+" "+LEFT$(PR$,10)+" INTO THE "+W$
- 1500 I$(5)="A "+PL$+" COMPLETELY SURROUNDED BY "+W$
- 1510 I$(6)="A "+BW$+" "+PR$+" "+L$
- 1520 I$(7)="A "+PL$+" "+LEFT$(S$,6)+" "+RIGHT$(S$,13)+" "+W$
- 1530 I$(8)="A "+NA$+" "+PL$+" "+C$+" "+PP$
- 1540 REM INTRO
- 1541 UP=0:UG$="[201]NTRODUCTION"
- 1545 UH=1:GOSUB 850
- 1550 PRINT" [195]64 WILL SHOW YOU A MAP."
- 1560 PRINT" [207]N THE MAP LAND IS MARKED BY [166]"
- 1570 PRINT" AND WATER IS BLANK."
- 1580 PRINT" [195]64 WILL PUT AN * ON THE MAP"
- 1590 PRINT" AND TELL YOU THE NAME BELOW THE MAP."
- 1600 GOSUB835
- 1630 GOSUB3360
- 1640 ON R GOTO 1800,3070
- 1650 PRINT"[147] [208]RESS R[146] TO REVIEW."
- 1660 PRINT" [208]RESS T[146] TO TRY TEST."
- 1670 PRINT" [212]YPE IN YOUR CHOICE"
- 1671 PRINT" AND PRESS <RETURN>. ";
- 1680 US$="QHTR":UL=1:GOSUB 35:Y$=UR$
- 1685 IF Y$="Q" THEN RETURN
- 1690 IF Y$="R" GOTO 1630
- 1700 IF Y$<>"T" GOTO 1680
- 1710 R=2:UP=1:UH=1
- 1715 GOSUB 850
- 1720 PRINT" [195]64 WILL SHOW YOU THE MAP AGAIN"
- 1730 PRINT" AND MARK IT WITH AN *"
- 1740 PRINT" WHEN YOU SEE A"
- 1745 PRINT" FLASHING CURSOR [146] TYPE IN"
- 1750 PRINT" THE NAME AND PRESS <RETURN>"
- 1760 GOSUB835
- 1790 GOSUB 1630:IFR=2ANDUR$="Q"THENRETURN
- 1800 REM LESSON
- 1810 FORI=1 TO 5
- 1820 PRINT"*"
- 1830 FOR X=1 TO 100:NEXT X
- 1840 PRINT" "
- 1850 FOR X=1 TO 100:NEXT X
- 1860 NEXT I
- 1870 PRINT"*"
- 1880 C=1:ON R GOSUB 2620,2740
- 1885 PRINT" "
- 1890 IF R=2 THENIFUR$="Q"THENRETURN
- 1900 IF R=2 GOTO 3100
- 1910 FOR I=1 TO 5
- 1920 PRINT"*"
- 1930 FOR X=1 TO 100:NEXT X
- 1940 PRINT" "
- 1950 FOR X=1 TO 100:NEXT X
- 1960 NEXT I
- 1970 PRINT"*"
- 1980 C=2:ON R GOSUB 2620,2740
- 1990 PRINT" "
- 1995 IF R=2 AND UR$="Q"THENRETURN
- 2000 IF R=2 GOTO 3100
- 2010 FOR I=1 TO 5
- 2020 PRINT"*"
- 2030 FOR X=1 TO 100:NEXT X
- 2040 PRINT" "
- 2050 FOR X=1 TO 100:NEXT X
- 2060 NEXT I
- 2070 PRINT"*"
- 2080 C=3:ON R GOSUB 2620,2740
- 2090 PRINT" "
- 2095 IF R=2 THEN IFUR$="Q"THEN RETURN
- 2100 IF R=2 GOTO 3100
- 2110 FOR I=1 TO 5
- 2120 PRINT"*"
- 2130 FOR X=1 TO 100:NEXT X
- 2140 PRINT"[166]"
- 2150 FOR X=1 TO 100:NEXT X
- 2160 NEXT I
- 2170 PRINT"*"
- 2180 C=4:ON R GOSUB 2620,2740
- 2190 PRINT"[166]"
- 2195 IF R=2 THEN IFUR$="Q"THENRETURN
- 2200 IF R=2 GOTO 3100
- 2210 FOR I=1 TO 5
- 2220 PRINT"*"
- 2230 FOR X=1 TO 100:NEXT X
- 2240 PRINT"[166]"
- 2250 FOR X=1 TO 100:NEXT X
- 2260 NEXT I
- 2270 PRINT"*"
- 2280 C=5:ON R GOSUB 2620,2740
- 2290 PRINT"[166]"
- 2295 IF R=2 THEN IFUR$="Q"THEN RETURN
- 2300 IF R=2 GOTO 3100
- 2310 FOR I=1 TO 5
- 2320 PRINT"*"
- 2330 FOR X=1 TO 100:NEXT X
- 2340 PRINT" "
- 2350 FOR X=1 TO 100:NEXT X
- 2360 NEXT I
- 2370 PRINT"*"
- 2380 C=6:ON R GOSUB 2620,2740
- 2390 PRINT" "
- 2395 IFR=2THENIFUR$="Q"THENRETURN
- 2400 IF R=2 GOTO 3100
- 2410 FOR I=1 TO 5
- 2420 PRINT"*"
- 2430 FOR X=1 TO 100:NEXT X
- 2440 PRINT"[166]"
- 2450 FOR X=1 TO 100:NEXT X
- 2460 NEXT I
- 2470 PRINT"*"
- 2480 C=7:ON R GOSUB 2620,2740
- 2490 PRINT"[166]"
- 2495 IFR=2THENIFUR$="Q"THENRETURN
- 2500 IF R=2 GOTO 3100
- 2510 FOR I=1 TO 5
- 2520 PRINT"*"
- 2530 FOR X=1 TO 100:NEXT X
- 2540 PRINT"[166]"
- 2550 FOR X=1 TO 100:NEXT X
- 2560 NEXT I
- 2570 PRINT"*"
- 2580 C=8:ON R GOSUB 2620,2740
- 2590 PRINT"[166]"
- 2595 IFR=2THENIFUR$="Q"THENRETURN
- 2600 IF R=2 GOTO 3100
- 2610 GOTO 1650
- 2620 REM TEXT
- 2630 PRINT""
- 2640 PRINTN$(C);"-";I$(C)"."
- 2650 GOSUB835
- 2690 PRINT" "
- 2700 PRINT" "
- 2710 PRINT" "
- 2720 PRINT" "
- 2725 PRINT" "
- 2730 RETURN
- 2740 REM TEST CHECK
- 2750 AT=1
- 2760 PRINT""
- 2765 PRINT"[209]UIT-PRESS Q RETURN[146]:[200]ELP-PRESS H RETURN[146]"
- 2767 PRINT""
- 2770 PRINT"[212]YPE THE NAME FOR * AND PRESS RETURN[146] ? ";
- 2775 US$=""
- 2780 UL=18:GOSUB 35:K$=UR$:PRINT"[145]";
- 2785 IF K$="Q" THEN RETURN
- 2800 IF K$=N$(C) GOTO 3010
- 2810 AT=AT+1
- 2820 IF AT>=4 GOTO 2890
- 2830 IF N=1 THEN PRINT" [206]O TRY AGAIN"
- 2840 IF N<>1THEN PRINT" [206]O TRY AGAIN"
- 2850 FOR J=1 TO 500:NEXT J
- 2860 IF N=1 THEN PRINT"[145] "
- 2870 IF N<>1 THEN PRINT"[145] "
- 2880 GOTO 2760
- 2890 IF N=1 THEN PRINT" [212]HE CORRECT NAME IS";
- 2900 IF N<>1THEN PRINT" [212]HE CORRECT NAME IS";
- 2910 IF N=1 THEN PRINTN$(C)
- 2920 IF N<>1THEN PRINTN$(C)
- 2930 GOSUB835
- 2940 PRINT" "
- 2950 PRINT" "
- 2960 PRINT" "
- 2970 PRINT" "
- 2980 PRINT" "
- 2990 PRINT" "
- 3000 GOTO 3060
- 3010 IF N=1 THEN PRINT" [199]OOD
- 3020 [139] N[179][177]1[167] [153]" CHR$OOD!"
- 3030 [141]835
- 3040 [139] AT[178]1 [167] CT[178]CT[170]1
- 3050 [137] 2940
- 3060 [142]
- 3070 [143] RANDOM QUIZ
- 3080 CT[178]0:N[178]0
- 3090 [129] I[178]I [164] 8:CH(I)[178]0:[130] I
- 3100 N[178]N[170]1
- 3110 [139] N[177]8 [137] 3180
- 3120 E[178][181](8[172][187](TI)[170]1)
- 3130 [129] I[178]1 [164] N[171]1
- 3140 [139] E[178]CH(I) [137] 3120
- 3150 [130] I
- 3160 CH(N)[178]E
- 3170 [145] E [137] 1810,1910,2010,2110,2210,2310,2410,2510
- 3180 [143] SCORE
- 3183 UP[178]2
- 3185 [141] 850
- 3190 [153]""
- 3200 [153]" (null)OU ANSWERED";CT;"OUT OF 8 QUESTIONS"
- 3210 [153]" CORRECTLY."
- 3220 [139] CT[178]8 [137] 3320
- 3230 [139] CT[179]6 [137] 3300
- 3240 [153]" CHR$OOD-BUT YOUR SHOULD REVIEW"
- 3250 [153]" STR$O YOU WANT REVIEW NOW?(Y/N)";
- 3260 US$[178]"YN":UL[178]1:[141]35:Q$[178]UR$
- 3270 [139] Q$[178]"N" [137] 3340
- 3280 [139] Q$[179][177]"Y" [137] 3260
- 3290 R[178]1:N[178]0:CT[178]0:[137] 1630
- 3300 [153]" (null)OU SHOULD REVIEW"
- 3310 [137] 3250
- 3320 [153][166]15)"VALXCELLENT!"
- 3330 [141] 835
- 3335 UR$[178]"Q":[142]
- 3340 [153]"LOAD"
- 3350 UR$[178]"Q":[142]
- 3360 [143] MAP #1
- 3372 [153]"LOADSPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( CHR$EOG (null)AP "
- 3380 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC( SPC(SPC(SPC("
- 3390 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC("
- 3400 [153]"SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC( SPC(SPC( SPC(SPC(SPC(SPC("
- 3410 [153]"SPC(SPC(SPC(SPC( SPC(SPC(SPC( SPC(SPC("
- 3420 [153]"SPC(SPC(SPC(SPC( SPC(SPC( SPC("
- 3430 [153]"SPC(SPC(SPC(SPC( SPC("
- 3440 [153]"SPC(SPC(SPC(SPC(SPC( SPC(SPC( SPC( SPC(SPC(SPC("
- 3450 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC( SPC( SPC(SPC(SPC(SPC("
- 3460 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC("
- 3470 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
- 3480 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
- 3490 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
- 3500 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC( SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
- 3510 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
- 3520 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
- 3530 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
- 3540 [153]"SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC("
- 3550 [142]
-