910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **: ** TO OUR BEST KNOWLEDGE THIS  PROGRAM IS FREE FOR/  DUPLICATION IN CANADA.L  IF YOU HAVE CONTARYi  INFORMATION, PLEASE  CONTACT COMMODORE CANADA AND  EVERY EFFORT WILL BE MADE TO  WITHDRAW COPIES OF THIS  PROGRAM. : # +++ INPUT SECTION +++" (UO,0:UR$"":UI$""2 *UL0UL80E -" ";:UC,0Y 2UI$:UI$""50 7UI$(13)(UR$)1UC,1:" ";:85 <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++> ZUR$UX$195: EXIT TO HELP ROUTINEM _UF1240Z dUF0::s f ++ CHECK DELETE ++ i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1) " UI$"":= ** STANDARD INPUT **N (UI$)46_ UI$(32)| (UI$)48(UI$)57170 (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"":$ UF1: +++ HELP ROUTINE EXIT +++- 2506 245U UQUB(U2%256U1%U3%2)q UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 "";"UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3)7UQ,UQ%(UQUB):CU1,U1%OU2,U2%[U4,U4%iU3,U3%1q35UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):(UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4)2UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL8I, ** MENU **O-:~."":UT,UU%:(50003)053281,9:53280,8/:1" MENU"6" --------------------------------------";" 1. BEGIN GEOG"@" 2. STUDENT INSTRUCTIONS"DE" 3. TEACHER INSTRUCTIONS"`O" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$"" c(UR$)1000,400,500,396h300: ** RE-ENABLE STOP KEY AND END **i(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0 UH1:UP0:UG$"TUDENT NST":850R" HIS PROGRAM DEMONSTRATES 8 GEOGRAPHY"" TERMS USING A MAP AND GIVES A SHORT"" DEFINITION OF EACH . FTER YOU HAVE"" REVIEWED THESE TO YOUR SATISFACTION" " YOU ARE TESTED ON YOUR NEWLY ACQUIRED"9" KNOWLEDGE . INALLY YOUR SCORE OUT OF"g" 8 IS GIVEN AND YOU MAY EITHER REVIEW"" AGAIN OR QUIT.":835:UH1:850" F YOU WISH TO QUIT FROM THE TEST"" TYPE AND PRESS . YPING"" RETURNS YOU TO THE MENU AND CLEARS"?" ALL VALUES AND VARIABLES."m" F AT ANYTIME YOU NEED HELP TYPE"" AND PRESS TO GET BACK TO"" THE MENU. FTER YOU COMPLETE THE"" OPTION, YOU WILL RETURN TO THE PLACE"" WHERE YOU LEFT OFF."835/UZ1UP%:2175V ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"*" DOMAIN. F THIS IS NOT THE CASE"G" PLEASE CONTACT:"q" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:1" ROGRAM AME: EOGX" RITTEN Y : EOFF OULET" PGRADED Y : HERYL LDHAM" HIS PROGRAM WILL RUN ON ANY"  PLOADED TO NIE BY .1 ""  [ ] "0" 64 U" 64 ^ 835rNUZ1UP%:217xWX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD":850835UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **M"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:.(I137:"";:F*I122:"";:k," ."  0" 2" 4"C O M M O D O R E6"EDUCATIONAL68"SOFTWAREQ: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRESS **/HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"FLUI$:UI$" "844LNlR ** PAGE DESIGN ROUTINE **xTUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "%fUH0:"":Dk ** PLEASE WAIT REMARK **zp(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024&UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0i(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$""UP$" "LUT$" ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***Rl ** SET VARIABLES ** N$(8),I$(8),CH(8)900:: ** CHECK FOR 8032 **"":"": SHIFTED SPACE(UB40)96700  ** MEMORY CHECK **  (0)2000937D "THIS MACHINE DOES NOT HAVE ENOUGH"h "MEMORY TO RUN THIS PROGRAM !"s UU71y  "":(50003)0962  ** BASIC 2.0 OR 4.0 OR C-64 SETUP **!1075,133:1076,144:1077,234:1079,4:1080,133:1081,1456!1091,155:1098,133:1099,144:1100,234:1103,133X!1104,145:1105,234:1082,234o!(50003)160955!1093,88:1094,228:1097,85:1102,228:965!(50003)1990!1093,49:1094,230:1097,46:1102,230:965"2099,141:2100,20:2101,3:2103,8:2104,141:2105,21X"2106,3:2115,145:2117,52:2118,234:2121,49:2122,141"2123,20:2124,3:2126,234:2127,141:2128,21:2129,3"UU48: DISABLE STOP KEY"800: TITLE"300: MENU#"THE PGM WILL NOT WORK ON THIS MACHINE!":7#UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **b#"";::(50003)053281,6:53280,6# ** BY **# ** CHERYL A. OLDHAM **# ** 1982 07 03 **# **OSHAWA,ONTARIO,CANADA**$ *************************$jUT,UL%: 1270($ TITLE BEGINS:$R1:CT0:AT0E$ 1360V$N$(1)"ULF"i$N$(2)"TRAIT"y$ N$(3)"RM"$N$(4)"APE"$N$(5)"SLAND"$(N$(6)"AY"$2N$(7)"ENINSULA"$<N$(8)"STHMUS"$F 1230$PBW$"BODY OF WATER"%ZPL$"PIECE OF LAND"1%dC$"CONNECTING TWO LARGER"K%nBP$"BODIES OF WATER"e%xPP$"PIECES OF LAND "v%NA$"NARROW"%PR$"PROJECTING INTO THE"%L$"LAND"%W$"WATER"%S$"NEARLY SURROUNDED BY"%I$(1)"A "BW$" "(S$,17)" BY "L$$&I$(2)"A "NA$" "BW$" "C$" "BP$_&I$(3)"A "NA$" "BW$" "(PR$,10)" INTO THE "L$&I$(4)"A "NA$" "PL$" "(PR$,10)" INTO THE "W$&I$(5)"A "PL$" COMPLETELY SURROUNDED BY "W$&I$(6)"A "BW$" "PR$" "L$.'I$(7)"A "PL$" "(S$,6)" "(S$,13)" "W$a'I$(8)"A "NA$" "PL$" "C$" "PP$m' INTRO'UP0:UG$"NTRODUCTION"' UH1: 850'" 64 WILL SHOW YOU A MAP."'" N THE MAP LAND IS MARKED BY "("" AND WATER IS BLANK."B(," 64 WILL PUT AN * ON THE MAP"r(6" AND TELL YOU THE NAME BELOW THE MAP."{(@835(^3360(h R 1800,3070(r" RESS R TO REVIEW."(|" RESS T TO TRY TEST.")" YPE IN YOUR CHOICE"D)" AND PRESS . ";d)US$"QHTR":UL1: 35:Y$UR$u) Y$"Q" ) Y$"R" 1630) Y$"T" 1680)R2:UP1:UH1) 850)" 64 WILL SHOW YOU THE MAP AGAIN"*" AND MARK IT WITH AN *"7*" WHEN YOU SEE A"c*" FLASHING CURSOR  TYPE IN"*" THE NAME AND PRESS "*835* 1630:R2UR$"Q"* LESSON*I1 5*"*"*& X1 100: X +0" "!+: X1 100: X)+D I@+N"*"X+XC1: R 2620,2740o+]" "+b R2 UR$"Q"+l R2 3100+v I1 5+"*"+ X1 100: X+" ", X1 100: X, I+,"*"C,C2: R 2620,2740`," "v, R2 UR$"Q", R2 3100, I1 5,"*", X1 100: X," " - X1 100: X-  I=-"*"U- C3: R 2620,2740}-*" "-/ R2 UR$"Q" -4 R2 3100-> I1 5-H"*"-R X1 100: X.\""(.f X1 100: X0.p IV.z"*"n.C4: R 2620,2740."". R2 UR$"Q". R2 3100. I1 5."*"/ X1 100: X*/"">/ X1 100: XF/ Il/"*"/C5: R 2620,2740/""/ R2 UR$"Q" / R2 3100/ I1 50 "*"#0 X1 100: XQ0$ " "e0. X1 100: Xm08 I0B "*"0L C6: R 2620,27400V " "0[ R2UR$"Q"1` R2 31001j I1 5@1t "*"T1~ X1 100: X1 ""1 X1 100: X1 I1 "*"1 C7: R 2620,2740 2 "" 2 R2UR$"Q"92 R2 3100 G2 I1 5v2 "*"2 X1 100: X2 ""2 X1 100: X2 I3 "*"3 C8: R 2620,2740K3 ""_3# R2UR$"Q"p3( R2 3100{32 16503< TEXT3F ""3P N$(C);"-";I$(C)"."3Z 8354 " "K4 " "4 " "4 " "5 " "5 (5 TEST CHECK15 AT1K5 ""~5 "UIT-PRESS Q RETURN:ELP-PRESS H RETURN"5 ""5 "YPE THE NAME FOR * AND PRESS RETURN ? ";5 US$""5 UL18: 35:K$UR$:"";6 K$"Q" 6 K$N$(C) 3010)6 ATAT1<6 AT4 2890j6 N1 " O TRY AGAIN"6 N1 " O TRY AGAIN"6" J1 500: J6, N1 " "76 N1 " "&7@ 2760M7J N1 " HE CORRECT NAME IS";v7T N1 "  HE CORRECT NAME IS";7^ N1 N$(C)7h N1 N$(C)7r 8357| " ",8 " "q8 " "8 " "8 " "D9 " "O9 3060o9 N1 " OOD9 N1 " OOD!"9 8359 AT1 CTCT19 29409 9 RANDOM QUIZ9 CT0:N09 II 8:CH(I)0: I: NN1:& N8 3180*:0 E(8(TI)1)::: I1 N1O:D ECH(I) 3120W:N Ic:X CH(N)E:b E 1810,1910,2010,2110,2210,2310,2410,2510:l SCORE:o UP2:q 850:v "": " OU ANSWERED";CT;"OUT OF 8 QUESTIONS"; " CORRECTLY."%; CT8 33207; CT6 3300a; " OOD-BUT YOUR SHOULD REVIEW"; " O YOU WANT REVIEW NOW?(Y/N)";; US$"YN":UL1:35:Q$UR$; Q$"N" 3340; Q$"Y" 3260; R1:N0:CT0: 1630< " OU SHOULD REVIEW"< 32501< 15)"XCELLENT!";< 835I< UR$"Q":R< ""`< UR$"Q":m< MAP #1<, " EOG AP "<4 " "<> " "=H " ">=R " "g=\ " "=f " "=p " "=z " "> " "=> " "j> " "> " "> " "> ""%? ""T? ""? ""?