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 COPS & ROBBERS SUBT."*@" 2. STUDENT INSTRUCTIONS"TE" 3. TEACHER INSTRUCTIONS"J" 4. MODIFICATION OF PROGRAM"O" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-5) "; ^UL1:US$"12345":35: INPUT ROUTINE+`US$""Lc(UR$)1000,400,500,600,396Uh300| ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875:  ** STUDENT INSTRUCTIONS **<"":UT,UL%:(50003)053281,0:53280,0bUH1:UP0:UG$"TUDENT NST":850" RIME GAME IS A GAME WHERE COPS "" AND ROBBERS ARE IN BATTLE TO TAKE"" OVER THE SQUARE, YOU BEING THE COP"" MUST CORRECTLY ANSWER THE SUBTRACTION"-" QUESTION. "Z" O WIN YOU MUST COMPLETE THE "" SQUARE TRYING TO SAVE THE TOWN FROM":" CRIME."" OOD LUCK IN PREVENTING CRIME."835:UP1:UH1850 " OTE:O ADVANCE FROM ONE QUESTION"5" TO THE NEXT PRESS THE BAR"f" F AT ANY TIME YOU WISH TO RETURN"" TO THE PRESS H "835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10$UH1:UP0:UG$"EACHER NST":850R" O THE BEST OF OUR KNOWLEDGE,"{" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE.5" GINCOURT, NTARIO"W" ANADA 1 24"w" (416) 499-4292"UP1: 835:UH1: 850:" ROGRAM AME: OLICE UBTRACTION" RITTEN Y : EBBY ABICZ " PGRADED Y : 7" HIS PROGRAM WILL RUN ON ANYV" 64 {" 64  835NUZ1UP%:217WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UH1:UP0:UG$"ROGRAM OD":850&_" ODIFICATIONS OF THIS PROGRAM ARE "O`" LIMITED TO CHANGING THE RANGE OF|a" VALUES USED IN THE QUESTIONS. HE "b" CURRENT VALUES ARE: "HI" AND":" "LO"."c" HAT IS TO BE THE NEW HIGH VALUE? ";:US$"0123456789":UL5:35?dHI(UR$):" HAT IS TO BE THE NEW LOW VALUE? ";:35:LO(UR$)Se HI LO 660vfUG$"MOD ERROR":UP1:UH1:850g" NLESS YOU ARE LOOKING FOR NEGATIVE"h" ANSWERS YOU HAVE AN ERROR AS YOUR LOW"i" VALUE IS GREATER THAN YOUR HIGH VALUE."/j" O YOU WANT TO WORK WITH NEGATIVE "Uk" ANSWERS? ";:US$"YN":UL1:35hl UR$"Y" 660qm605z835UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 %" LOAD THE 'CBM 4032' PROGRAM"0UU716V  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I137:"";:*I122:"";: ," /."  P0" n2" 4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **+;(UD$,24);"PRESS SPACE BAR OR WAIT":I0M<A$:A$" "II1:I250828q>T1$"":T2$"":T3$"":T4$"":I0z@300C ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUPUP1DW""(UT$UP$,21);(UP$UG$(UP),18)s\" --------------------------------------"`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... ""u? ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0 (50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048J (50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198n UD$"" UP$" " UT$" .": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** ! ** SET VARIABLES **!900)!HI1000:LO50/!:J! ** CHECK FOR 8032 **h!"":"": SHIFTED SPACE!(UB40)96700! ** MEMORY CHECK **! (0)2000937!"THIS MACHINE DOES NOT HAVE ENOUGH"!"MEMORY TO RUN THIS PROGRAM !" "UU71")""":(50003)0962X" ** BASIC 2.0 OR 4.0 OR C-64 SETUP **"1075,133:1076,144:1077,234:1079,4:1080,133:1081,145"1091,155:1098,133:1099,144:1100,234:1103,133"1104,145:1105,234:1082,234#(50003)1609554#1093,88:1094,228:1097,85:1102,228:965I#(50003)1990x#1093,49:1094,230:1097,46:1102,230:965#2099,141:2100,20:2101,3:2103,8:2104,141:2105,21#2106,3:2115,145:2117,52:2118,234:2121,49:2122,141($2123,20:2124,3:2126,234:2127,141:2128,21:2129,3F$UU48: DISABLE STOP KEYW$800: TITLEg$300: MENU$"THE PGM WILL NOT WORK ON THIS MACHINE!":$UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **$"";::(50003)053281,6:53280,6%R10:TTAL0 % SPRING ASSIGNMENT1% CRIME GAME7%:O% DEBBY BABICZ, 12Ec% MARCH 5, 1982o%$ STARTx%.""%8 I1 22%B" COPS AND ROBBERS"%L J 1 100%V%`" "%j J 1 100&t&~&""& I1 22@&" CRIME GAME"R& J 1 100X&&" "& J 1 100&&&" THE HIGHEST VALUE IS ";HI&" THE LOWEST VALUE IS ";LO&835'"CHOOSE SQUARE.,'""7'A14_'" "'" "'"̤"''"1234"("5678"-(""91011 12"T(,"13141516"(6"WHAT IS YOUR CHOICE ";:US$"H0123456789":UL2(;35:CH$UR$(@ CH$ "" " ": 1590(JCH (CH$)>)TCH0CH16" ":1590L)^ PROCESSv)h" ")m: RANGE HI LO 1)r: N1 ((1)RANGE) LO)|: N1LO 1650):N2 ((1)RANGE) LO): N2N1 1670 *: N1;"-"; N2L* "THE ANSWER: ";:US$"H0123456789":UL5:35:ANSWER(UR$)`*TTAL TTAL 1}*: ANSWERN1N2 1740*: 1800*:"CORRECT ANSWER"*W0RD$" COPS "* 2120* 2030*:R1R11*: 1840+:"SORRY, WRONG ANSWER!"+W0RD$"ROBBER"+ 2120*+& 2030A+0 TTAL 16 1590[+:"";n+D R1 0 1910+N"YOU'RE NOT A VERY GOOD POLICE OFFICER."+X"THE ROBBERS STOLE THE TOWN"+b2015+l+v R1 8 1950,"BETTER LUCK NEXT TIME, THE ROBBERS STOLE"@,"MOST OF THE VALUABLES IN YOUR TOWN."J,2015^, R1 16 1990,"YOU'RE NOT A BAD COP, YOU CAUGHT MORE,"ROBBERS THAN YOU LET ESCAPE.,2015,"GREAT!!! YOU CAUGHT ALL OF THE -"ROBBERS. I WOULDN'T MIND LIVING IN-"YOUR TOWN."'-835--?- GET ROUTINEH-835`-""q-  ZQ 1 8-*" "-4->-H""-R CH 4 2180-\DIST 4 CH-fDO 16-p"";-z 2310. CH 8 2230#.DIST 8 CH/.DO 13>."";I. 2310^. CH 12 2280q.DIST 12 CH}.DO 10."";. 2310.DIST 16 CH.DO 7."";. DIST 3 QQ 1. DIST 2 QQ 9/ DIST 1 QQ 17//$ DIST 0 QQ 25>/. QQ)W0RD$O/8 D 1 DOY/B "";_/L e/V k/` DIST 2 QQ 9