32' PROGRAM"UU71+ ** TO USE 8032 LOAD CBM4032 **v"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"1093:  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$ $." $8" %B" 0%L" J%V" d%`" ~%j" %t" ϣ%~" %"  217WX ** PROGRAM MODIFICATION INST **!Y"":UT,UL%A]UP0:UG$"ROGRAM OD":850qb" O CHANGE THE SIZE OF THE NUMBERSd" USED IN THE PROGRAM, CHANGE THE VALUEf" OF TO YOUR DESIRED UPPER LIMIT ANDg" CHANGE T 00,20:2101,3:2103,8:2104,141:2105,21.#2106,3:2115,145:2117,52:2118,234:2121,49:2122,141h#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 IS NOT THE CASE"" PLEASE CONTACT:"<" OMMODORE USINESS ACHINES"_" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:"Y CHECK **  (0)2000937!"THIS MACHINE DOES NOT HAVE ENOUGH">!"MEMORY TO RUN THIS PROGRAM !"I!UU71O!i!"":(50003)0962! ** BASIC 2.0 OR 4.0 OR C-64 SETUP **!1075,133:1076,144:1077,234:1079,4:1080,133" OU WILL BE ASKED A SERIES OFC" QUESTIONS AND IF YOU GET ANY WRONG YOU"q" WILL BE ASKED IF YOU WANT MORE. HEN" YOU GET SIX CORRECT ANSWERS IN A ROW" THEN YOU WILL ALSO BE ASKED IF YOU" WANT MORE."8351024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0W(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$""UP$" "":875:# ** STUDENT INSTRUCTIONS **R"":UT,UL%:(50003)053281,0:53280,0sUP0:UG$"TUDENT NST":850" OU WILL BE GIVEN AN ADDITION PROBLEM." OU HAVE TO ANSWER THE QUESTION RIGHT" SO THAT YOU WON'BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"4LUI$:UI$" "844:NZR ** PAGE DESIGN ROUTINE **fTUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870aI138:"";:&I122:"";:(I137:"";:4*I122:"";:Y," {."  0" 2" 4"C O M M O %" &" 4&" T&" s&" &" &" &QQQQ1&AHE VALUE OF TO YOUR DESIRED+h" LOWER LIMIT. HESE VALUES ARE LOCATEDAj" IN LINE 1020.J835^UZ1UP%:217d ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 40THIS MACHINE!": $UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **9$"";::(50003)053281,6:53280,14W$N0:CO0:TL100:LL1:QQ0f$QSTLLL1$ "":UT,UU%:UT$" BOMB ADDITION "$NN1:UG$"QUESTION #":UPN1:850$"$$" ROGRAM AME: OMB DDITION-" RITTEN Y : ARRIN ROVERW" PGRADED Y : EVIN 'ONNELL" HIS PROGRAM WILL RUN ON ANY" 64 " 64  835NUZ1UP%::1081,145 "1091,155:1098,133:1099,144:1100,234:1103,133."1104,145:1105,234:1082,234E"(50003)160955t"1093,88:1094,228:1097,85:1102,228:965"(50003)1990"1093,49:1094,230:1097,46:1102,230:965"2099,141:21UZ1UP%:217! ** TEACHER INSTRUCTIONS **Q"":UT,UL%:(50003)053281,2:53280,10rUP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS  ": UT$" Π": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***@ Z  ** SET VARIABLES **c 900i :o :  ** CHECK FOR 8032 ** "":"": SHIFTED SPACE (UB40)96700  ** MEMORT GET BLOWN UP BY THE." BOMB THE QUESTION IS PRINTED ON. HEN]" YOU THINK YOU KNOW THE ANSWER, TYPE IT" IN AND HIT THE '' BUTTON."" F YOU WANT TO GO BACK TO THE " PRESS 'H' THEN ''"835:UP2:850(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":2k ** PLEASE WAIT REMARK **hp(UD$,24);" ONE MOMENT PLEASE... "nu ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU D O R E6"EDUCATIONAL$8"SOFTWARE?: ** COMMODORE LOGO **w;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE  "( UT$" ΠŠ/": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***. H  ** SET VARIABLES **Q 900W :] :x  ** CHECK FOR 8032 ** "":"": SHIFTED SPACE (UB40)96700  ** MEMORY CHECK **   91,155:1098,133:1099,144:1100,234:1103,133"1104,145:1105,234:1082,2343"(50003)160955b"1093,88:1094,228:1097,85:1102,228:965w"(50003)1990"1093,49:1094,230:1097,46:1102,230:965"2099,141:2100,20:2101,3:210 #UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **&$"";::(50003)053281,6:53280,6R$:900:UX$"":UT$" BRAIN CRANE /":UP0m$UH1:850:N11:N21::$I09:A$(I)::1280$1)" HIS PROGRAM 'BUILDS UP' A STUDENT'S"$1)"DI NOT GET ALL"&`1)"THE QUESTIONS CORRECT, THE SAME NUMBER"5&j1)"FAMILY WILL BE DRILLED AGAIN. HE RANGE"p&t1)"OF FAMILIES AVAILABLE IS FROM 1 TO 12.":835:850&~1)" OU HAVE THE OPTION OF CHOOSING ONE"&1)"FAMILY OF NUMBERS FOR1)"RANDOM NUMBERS? ";:US$"YN":UL1:35:L81( UR$"N"L80:UR$"":1310R(" WHAT GRADE IS THE STUDENT IN ? ";:US$"0123456789":UL2:35q(R912:UR$"4"UR$""R99{((2250(JXJX1:UPJX1:850:(UD$,16)(5);:ZA$(B):2680:S$;UP$:1570)^" THAT'S 3 WRONG ANSWERS. THE ANSWER IS":T8T81"*`" "B;ZZ$C"="A:N10G*h835:NWNW1:N20:N11:Y0:1520*|I175:(UD$,15)"RIGHT!!!RIGHT!!!"::T6T61*(UD$,13)UP$(UD$,24)UP$"";:NRNR1:N11:N+"  ";,"   ";Q,"  . ";,"  ";,"NUMBER  0-0B$((C),2):(B$)1C$A$((B$)):D$"":1860.:C$A$(((B$,1))):D$A$(((B$,1)))C.DB$"    "p.N""XX);:IXX21:B$;:J120:J,I.XI03:RUB20240I:R,93:R1,32:R40,75:R39,74.bJ1/J1I2:"";::"";:I112:" "C$;"";/J120:J,I*0I901:RRR40I:R,93:R39,74:R40,75M0R79,32:R80,32:J120:J,Ic0D$""835:20300GG4:C$D$:D$"":18600JX10Y0:2250:15200850014)"NG ":'U1%(U1):U2%(U2):U3%(U3):U4%(U4)OUJ$US$:UK$UG$:UL$UT$:UJUP:UKULUf, ** MENU **l-:."":UT,UU%:(50003)053281,9:53280,8/:1" MENU"6" --------------------------------------"(0)2000937!"THIS MACHINE DOES NOT HAVE ENOUGH",!"MEMORY TO RUN THIS PROGRAM !"7!UU71=!W!"":(50003)0962! ** BASIC 2.0 OR 4.0 OR C-64 SETUP **!1075,133:1076,144:1077,234:1079,4:1080,133:1081,145!103,8:2104,141:2105,21#2106,3:2115,145:2117,52:2118,234:2121,49:2122,141V#2123,20:2124,3:2126,234:2127,141:2128,21:2129,3t#UU48: DISABLE STOP KEY#800: TITLE#300: MENU#"THE PGM WILL NOT WORK ON THIS MACHINE!":VISION SKILLS BY DRILL. FAMILY"%.1)"OF NUMBERS IS DRILLED TEN TIMES,"B%81)"AFTER WHICH THE STUDENT'S SCORE IS"p%B1)"PRINTED. HE COMPUTER WILL GIVE A"%L1)"COMMENT THAT IS APPROPRIATE TO THE"%V1)"SCORE. F THE STUDENT DID  INTENSIVE STUDY,"'1)"OR THE COMPUTER CAN RANDOMLY CHOOSE"4'1)"DIFFERENT FAMILIES FOR EACH QUESTION."g'1)" N EXAMPLE OF A NUMBER FAMILY IS THE"'1)"12 IN '36 / 3 = 12'."''1)"DO YOU WANT THE COMPUTER TO PICK"' (ZA$(C):2690:" ";:ZA$(A):2680:D0,)"(UD$,13)" WHAT IS THE NUMBER? ";:3040:D(UR$)A)6CDD$"":1660U)@YY1:Y31630)J" SORRY, THAT'S WRONG. PLEASE TRY AGAIN.":5000:D0:D$"N")TD0D$"0"(UD$,13);UP$:UP$:21*" ";!+" ֥ ";R+" ";+" Σ";+"  "; ";," ղ";!-" BOX ѳ";T-" ʱ";-" ":XX14-G(((B))1)3:G3G2-&G9G120:J,I.lR40,93:R39,32:I1500:/vI15:(UD$,11);:J1I:"";: /" "(C$,7I):J150:J,INR5"OOPS!! LET'S TRY IT AGAIN.":22201HNR8"LET'S TRY TO DO BETTER BY PRACTISINGSOME MORE.":222;" 1. BEGIN BOMB ADDITION"@@" 2. STUDENT INSTRUCTIONS"jE" 3. TEACHER INSTRUCTIONS"J" 4. MODIFICATION OF PROGRAM"O" 5. QUIT"T" --------------------------------------" Y"  PRESS A NUMBER KEY (1-5) ";6^UL1:US$"12345":35: INPUT ROUTINEA`US$""bc(UR$)1000,400,500,600,396kh300 ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14 ION MARK IS. N THIS"$1)"CASE, YOU WOULD TYPE IN '4'"W1)"(WITHOUT THE QUOTATION MARKS [']). HE"1)"COMPUTER WILL THEN FIX THE QUESTION BY"1)"PUTTING YOUR ANSWER IN IT WITH A CRANE."835:8501)"OTE:O ADVANC  ** RE-ENABLE STOP KEY AND END **A(50003)1(50003)160(50003)0399kUU71:(50003)053281,6:53280,14w"":875: ** STUDENT INSTRUCTIONS **UT$" RAIN RANE /""":UT,UL%:(50003)053281,0:53280, UO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE""LUI$:UI$" "844(NHR ** PAGE DESIGN ROUTINE **TTUPUP1~W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870a(UD$,24);(UP$,7) , ** MENU ** -::."":UT,UU%:(50003)053281,9:53280,8@/:]1" MENU"6" --------------------------------------";" 1. BEGIN BRAIN CRANE / "@" 2. STUDENT INSTRUCTIONS" E" &I122:"";: (I137:"";:"*I122:"";:G," i."  0" 2" 4"C O M M O D O R E6"00UZ0:US$UJ$:UG$UK$:UPUJ:ULUKR(50003)053281,1:"";:53281,6:53280,14:220\"";~UT$UL$:UT,UV%:UQUBUB900UQ,UQ%(UQUB):U1,U1%U2,U2%U4,U4%U3,U3%1(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"": k ** PLEASE WAIT REMARK **Vp(UD$,24);" ONE MOMENT PLEASE... "\uy ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468: 3. TEACHER INSTRUCTIONS"&O" 4. QUIT"UT" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE_(UR$)1300`US$""c(UR$)1000,400,500,396h300EDUCATIONAL8"SOFTWARE-: ** COMMODORE LOGO **e;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRESS ** HETURN>"-(UD$,13)" WHAT IS THE NUMBER? ";:UP%:3040_UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):(UD$,24);"  HELP COMING ":U1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL"UU71 ** TO USE 8032 LOAD CBM4032 **d"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"p1093:  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";: (UI$)65(UI$)90180 ? (UI$)193(UI$)218UI$"":b (UT)UU%UI$((UI$)128):h u UI$"": UF1: +++ HELP ROUTINE EXIT +++ 250 245 UQUBUB900 UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 3E  " AN EILSON 1" RUCE OHNSON\" HIS PROGRAM WILL RUN ON ANY| " 64  " 64 :835:850:1040D835NUZ1UP%:217WX05 > (UR$)UL505 A120: CHECK FOR VALID CHARACTERE FUR$UR$UI$O KUI$;W P50| U +++ CHECK FOR HELP REQUEST +++ ZUR$UX$195: EXIT TO HELP ROUTINE _UF1240 dUF0:: f ++ CHECK DELETE ++ i(UR$)150 nUR$(UR$81,2:53280,10(UT$" RAIN RANE /":UP0:UG$"EACHER NST":850V" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE US ACTISED3" (BETWEEN 1 AND 50) ";3US$"1234567890":UL2:35:AA(UR$):A714AA50AA1"":2280'4 2260R4x I2(ZA$):A$(((ZA$,I,1)))"";::4 I2(ZA$):J15:"???";::" ";::4 "    "5 "    "6 "  "K6 "   "t6 "":IUMUM39:I,102:I960,102:6 IUM40UM96040:I,102:I39,102:6 22201f""2p"PERFECT!!!!!!":"YOU'RE TOO GOOD FOR ME!!";:I120B2z"YOU'RE TOO GOOD FOR ME!!";P2J150:2"YOU'RE TOO GOOD FOR ME!!";2J150:2:2835 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  PR39,74:R40,75/R79,32:R80,32:J120:J,I/D$""835:20300GG4:C$D$:D$"":1860/0JX10Y0:2250:152080850P014)"FAMILY OF"AA|0 "TOTAL RIGHT TOTAL WRONG"0*" "04"630)J" SORRY, THAT'S WRONG. PLEASE TRY AGAIN.":5000:D0:D$"N"2)TD0D$"0"(UD$,13);UP$:UP$:UP$:1570j)^" THAT'S 3 WRONG ANSWERS. THE ANSWER IS":T8T81)`" "B;ZZ$C"="A:N10)h835:NWNW1:N20:N11:Y0:1520)|I1   ".N""XX);:IXX21:B$;:J120:J,I>.XI03:RUB20240I:R,93:R1,32:R40,75:R39,74O.bJ120:J,Ip.lR40,93:R39,32:I1500:.vI15:(UD$,11);:J1I:"";:." "(C$,7I):J150: COMPUTER CAN RANDOMLY CHOOSE"'1)"DIFFERENT FAMILIES FOR EACH QUESTION."D'1)" N EXAMPLE OF A NUMBER FAMILY IS THE"b'1)"12 IN 'X + Y = 12'."h''1)"DO YOU WANT THE COMPUTER TO PICK"' 1)"RANDOM NUMBERS? ";:US$"YN":UL"  . ";,"  ";P,"NUMBER  ";," ղ";," BOX ѳ";ED BY DAVE SCHEELE. UNDER AN EXPERIENCE '82N ! GRANT IN OXFORD COUNTY!T ":p # +++ INPUT SECTION +++ (UO,0:UR$"":UI$"" *UL0UL80 -" ";:UC,0 2UI$:UI$""50 7UI$(13)(UR$)1UC,1:" ";:85 <UI$(20)1835:NWNW1:N20:N11:Y0:1520*|I175:(UD$,15)"RIGHT!!!RIGHT!!!"::T6T61R*(UD$,13)UP$(UD$,24)UP$"";:NRNR1:N11:N21*" ";*" ֥ ";* "4 "    "5 "  "=5 "  "j5 "    "5 "  "5 "2NR10"":JX0:NR0:NW0:15202UP%:3003UG$" QUESTION #":ZZ$"-":L81A71:AA((1)501)M3BAA:A((1)B1):CBA:S$"  "e3A71UX$"H":15203UL2:US$"0123456789"3" WHAT NUMBER FAMILY SHOULD BE PR3 US$"0123456789":UL2:35:6A811200::"5 "  "=5 "  "j5 "    "5 "  "5 ""8)NR28)NW"":NR10NW0>NR5"OOPS!! LET'S TRY IT AGAIN.":2220B1HNR8"LET'S TRY TO DO BETTER BY PRACTISINGSOME MORE.":22201RNR10"WOW! ALMOST PERFECT. LET'S DO IT AGAIN AND SEE IF WE ";1\NR10"CAN GET 10!": OGRAM 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. :  REVISJ,I.RUB238:B$(B$,30)C$."";:I212G:J1I:" ";:J:B$;/"     "D/J120:J,I:RRRI180:XX12G~/J1I2:"";::"";:I112:" "C$;"";/J120:J,I/I901:RRR40I:R,93:R1:35:L80' UR$"Y"L81'2250 (JXJX1:UPJX1:850:(UD$,16))(5);:ZA$(B):2680:S$;b(ZA$(C):2690:" ";:ZA$(A):2680:D0("(UD$,13)" WHAT IS THE NUMBER? ";:3040:D(UR$)(6CDD$"":1660(@YY1:Y31," ʱ";-" ":XX14<-G(((B))1)3:G3G2J-&G9G10}-0B$((C),2):(B$)1C$A$((B$)):D$"":1860-:C$A$(((B$,1))):D$A$(((B$,1)))-DB$" ECT, THE SAME NUMBER FAMILY WILL BE"&j1)"DRILLED AGAIN. HE RANGE OF FAMILIES"M&t1)"AVAILABLE IS FROM 1 TO 50.":835:UP2:850&~1)" OU HAVE THE OPTION OF CHOOSING ONE"&1)"FAMILY OF NUMBERS FOR INTENSIVE STUDY,"&1)"OR THE" ";+" Σ";K+"  ";~+"  ";+"   ";+ TO USE 8032 LOAD CBM4032 **C"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"O1093:o  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I1 EILSON " RUCE OHNSON;" HIS PROGRAM WILL RUN ON ANY[ " 64  " 64 :835:850:1040D835NUZ1UP%:217WX ** PROGRAM MODIFICATION INST ** 3:2115,145:2117,52:2118,234:2121,49:2122,1415#2123,20:2124,3:2126,234:2127,141:2128,21:2129,3S#UU48: DISABLE STOP KEYd#800: TITLEt#300: MENU#"THE PGM WILL NOT WORK ON THIS MACHINE!":#UZ1UP%:UP%:UZ0: ** PROG ANE +":UP0:UG$"EACHER NST":8505" O THE BEST OF OUR KNOWLEDGE,"^" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" NE DOES NOT HAVE ENOUGH" !"MEMORY TO RUN THIS PROGRAM !"!UU71!6!"":(50003)0962e! ** 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, THIS"" CASE, YOU WOULD TYPE IN '4' (WITHOUT "J" QUOTATION MARKS [']). HE COMPUTER "y" WILL THEN FIX THE QUESTION BY PUTTING"" YOUR ANSWER IN IT WITH A CRANE."835:850" OTE:O ADVANCE FROM ONE QUESTION""O158: 50003,0$(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048c(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$""UP$" " UT$" ͠ABLE STOP KEY AND END **3(50003)1(50003)160(50003)0399]UU71:(50003)053281,6:53280,14i"":t875: ** STUDENT INSTRUCTIONS **UT$" RAIN RANE +""":UT,UL%:(50003)053281,0:53280,0UP0:UG$CE BAR TO CONTINUE"LUI$:UI$" "844N'R ** PAGE DESIGN ROUTINE **3TUPUP1]W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "f OF"$.1)"NUMBERS IS DRILLED TEN TIMES, AFTER"*%81)"WHICH THE STUDENT'S SCORE IS PRINTED."W%B1)"HE COMPUTER WILL GIVE A COMMENT "%L1)"APPROPRIATE TO THE SCORE. F THE"%V1)"STUDENT DID NOT GET ALL THE QUESTIONS"%`1)"CORR37:"";:*I122:"";:&," H."  i0" 2" 4"C O M M O D O R E6"EDUCATIONAL8Y"":UT,UL%]UP0:UG$"ROGRAM OD":850835+UZ1UP%:2171V ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71 ** RAM STARTS HERE **$"";::(50003)053281,6:53280,61$:900:UX$"":UT$" BRAIN CRANE +":UP0L$UH1:850:N11:N21::f$I09:A$(I)::1280$1)" HIS PROGRAM 'BUILDS UP' A STUDENT'S"$1)"ADDITION SKILLS BY DRILL. FAMILY3370 HARMACY VE." GINCOURT, NTARIO":" ANADA 1 24"Z" (416) 499-4292"pUP1: 835: 850:" ROGRAM AME: RAIN RANE +" RITTEN Y : AVE CHEELE " AN 234:1103,133!1104,145:1105,234:1082,234"(50003)160955A"1093,88:1094,228:1097,85:1102,228:965V"(50003)1990"1093,49:1094,230:1097,46:1102,230:965"2099,141:2100,20:2101,3:2103,8:2104,141:2105,21"2106, TO THE NEXT PRESS THE BAR"9" F AT ANY TIME YOU WISH TO RETURN"]" TO THE PRESS H "f835zUZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UT$" RAIN R": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** '  ** SET VARIABLES **0 9006 :< :W  ** CHECK FOR 8032 **u "":"": SHIFTED SPACE (UB40)96700  ** MEMORY CHECK **  (0)2000937 "THIS MACHI"TUDENT NST":850/" HIS PROGRAM HELPS YOU WITH ADDITION."_" HE COMPUTER WILL ASK YOU SOME ADDITION"" QUESTIONS SUCH AS '1 + ? = 5' . OU"" HAVE TO TYPE IN THE NUMBER THAT SHOULD"" BE WHERE THE QUESTION MARK IS. NUH0:"":k ** PLEASE WAIT REMARK **5p(UD$,24);" ONE MOMENT PLEASE... ";uX ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:U INSTRUCTIONS"O" 4. QUIT"GT" --------------------------------------"rY" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE_(UR$)1300`US$""c(UR$)1000,400,500,396h300 ** RE-EN"SOFTWARE : ** COMMODORE LOGO **D;(UD$,24);"PRESS SPACE BAR OR WAIT":I0f<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPA "   "6 "":IUMUM39:I,102:I960,102:7 IUM40UM96040:I,102:I39,102:U7 14)"BRAIN CRANE":5)"WRITTEN BY: DAVE SCHEELE"7 17)"DAN NEILSON":17)"BRUCE JOHNSON"7 17)"FOR":"MICROCOMP 4x I2(ZA$):A$(((ZA$,I,1)))"";::5 I2(ZA$):J15:"???";::" ";::45 "   "a5 "    "5 "  "5 "   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  PR O GOOD FOR ME!!";2J150:3"YOU'RE TOO GOOD FOR ME!!";3J150:3:"3835G3NR10"":JX0:NR0:NW0:1520U3UP%:3003UG$" QUESTION #":ZZ$"X":L81A71:AA((1)R91)3BAA:C((1)R91ED BY DAVE SCHEELE. UNDER AN EXPERIENCE '82N ! GRANT IN OXFORD COUNTY!T ":p # +++ INPUT SECTION +++ (UO,0:UR$"":UI$"" *UL0UL80 -" ";:UC,0 2UI$:UI$""50 7UI$(13)(UR$)1UC,1:" ";:85 <UI$(20)1850014)"FAMILY OF"AA0 "TOTAL RIGHT TOTAL WRONG" 1*" "B14""8)NR28)NW"":NR10NWr1>NR5"OOPS!! LET'S TRY IT AGAIN.":22201HNR8"LET'S TRY TO DO BETTER BY PRACTISINGSO,(UR$)1) s" ";:50; x ++ CHECK FOR VALID CHARACTERS ++M }(US$)0150] US$US$UX$n US1(US$) UI$(US$,US,1) UI$"": ** STANDARD INPUT ** (UI$)46 UI$(32) (UI$)48(UI$)57170 39,74.bJ120:J,I.lR40,93:R39,32:I1500:/vI15:(UD$,11);:J1I:"";:./" "(C$,7I):J150:J,IJ/RUB238:B$(B$,30)C$u/"";:I212G:J1I:" ";:J:B$;/"     "/J120:J,I:RRRI00UZ0:US$UJ$:UG$UK$:UPUJ:ULUKR(50003)053281,1:"";:53281,6:53280,14:220\"";~UT$UL$:UT,UV%:UQUBUB900UQ,UQ%(UQUB):U1,U1%U2,U2%U4,U4%(UD$,24);(UP$,7);"HELP - PRESS H "MENU **-:,."":UT,UU%:(50003)053281,9:53280,82/:O1" MENU"~6" --------------------------------------";" 1. BEGIN BRAIN CRANE + "@" 2. STUDENT INSTRUCTIONS"E" 3. TEACHERUTERS IN SPECIAL EDUCATION"7" 8)"AN EXPERIENCE '81 PROJECT"7, 13)"SPONSORED BY"%86 3)"OXFORD COUNTY BOARD OF EDUCATION"H8@ 8)"REVISED BY DAVE SCHEELE"v8E "MICROCOMPUTERS IN SPECIAL EDUCATION"8J 6)"AN EXPERIENCE '82 PROJECT":I "5 "    "6 "  "B6 "  "o6 "    "6 "  "6 OGRAM 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. :  REVIS):ABC:S$""3A71UX$"H":15203UL2:US$"0123456789"(4" WHAT NUMBER FAMILY SHOULD BE PRACTISED"O4" (BETWEEN 1 AND"R9") ? ";|4US$"1234567890":UL2:35:AA(UR$):A714AA50AA1"":22804 226005 > (UR$)UL505 A120: CHECK FOR VALID CHARACTERE FUR$UR$UI$O KUI$;W P50| U +++ CHECK FOR HELP REQUEST +++ ZUR$UX$195: EXIT TO HELP ROUTINE _UF1240 dUF0:: f ++ CHECK DELETE ++ i(UR$)150 nUR$(UR$ME MORE.":2220 2RNR10"WOW! ALMOST PERFECT. LET'S DO IT AGAIN AND SEE IF WE ";*2\NR10"CAN GET 10!":2220A2f""2p"PERFECT!!!!!!":"YOU'RE TOO GOOD FOR ME!!";:I1202z"YOU'RE TO (UI$)65(UI$)90180 ? (UI$)193(UI$)218UI$"":b (UT)UU%UI$((UI$)128):h u UI$"": UF1: +++ HELP ROUTINE EXIT +++ 250 245 UQUBUB900 UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 3180:XX12G/J1I2:"";::"";:I112:" "C$;"";0J120:J,I80I901:RRR40I:R,93:R39,74:R40,75[0R79,32:R80,32:J120:J,Iq0D$""835:20300GG4:C$D$:D$"":18600JX10Y0:2250:15200 (UD$,13)" WHAT IS THE NUMBER? ";:UP%:3040QUD%((U2%256U1%U3%)UB)40:(UD$,UD%1):(UD$,24);"  HELP COMING ":U1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL, ** 2-&G9G10-0B$((C),2):(B$)1C$A$((B$)):D$"":1860.:C$A$(((B$,1))):D$A$(((B$,1)))Q.DB$"    "~.N""XX);:IXX21:B$;:J120:J,I.XI03:RUB20240I:R,93:R1,32:R40,75:R12500::8 US$"0123456789":UL2:35:8 850:"PLEASE CALL YOUR TEACHER AND ASK HIM",9& "OR HER TO READ THE TEACHER INSTRUCTIONS"Z90 "SO THAT THE TYPE OF ADDITION QUESTION"u9: "MAY BE SET.":835:9A811200::R":"MICROCOMP $TI$5000:5000(Z$:Z$"H" :900:300( I( 1390) DIGITS DATA STRING#)"Σ".)""9)""D)""O)""Z)"ͤ"e)" Υ"p)" "{)" ")"" ")," ")6"")@"Σ")J" ")T"  "&" HHMMSS")'(UD$,14)" ";N'US$"0123456789":UL6:35:A$UR$b'(A$)61296v' SET TIME HERE'(TI$A$'2 DRAW "TIME" WORD'<2260'F DRAW BORDER BOX'P20,13);UP$:UP$:UP$:1570 *^" THAT'S 3 WRONG ANSWERS. THE ANSWER IS":T8T810*`" "B;ZZ$C"="A:N10U*h835:NWNW1:N20:N11:Y0:1520*|I175:(UD$,15)"RIGHT!!!RIGHT!!!"::T6T61*(UD$,13)UP$(UD$,24)UP$"";: "$I$AL01260"%"":UT,UU%:" PLEASE TYPE THE TIME YOU WANT THE ALARM"E%" MINUTES"m%" HOURS SECONDS"%" "%" HHMMSS"%(UD$,14)"  ";+"  ";,,"   ";_,"  . ";,"  ";,"NUMBER YN":UL1:35"'UR$"Y"AL1"(UR$"N"AL00#)" :":" A) 12.00 HOUR FORMAT"V#*" B) 24.00 HOUR FORMAT."#+" NTER PTION -> ";:US$"AB":UL1:35#,UR$"A"OP1#L BIG TIME 2.0 NON-STOP#V ORIGINAL -- TIME HEADER-"";-W10.W)"УϠ Υ ϣ" .W)" ̤ "=. W)" "Z. W)" ̠ ̤"`. m.QQ110.54296,15:54277,75:54276,33:54273,17:54272,37.QZ1200:30:965!2099,141:2100,20:2101,3:2103,8:2104,141:2105,21K!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!" " "+ "ͤ"+  WRITE BORDERS FOR DIGITS+*" "; ,4I137:"";::8,>" Υ"C,HI12t,R""I)""352I)""I)"" z,\,f" ";:I129:"";::" "   ";," ղ";/-" BOX ѳ";b-" ʱ";-" ":XX14-G(((B))1)3:G3G")^" ")h" ")r"̤")|"Σ")" ")" " *" "*" " *"ͤ"+*""6*""A*"̤"L*" "W*" "b*" "n* "ϣ"z* "̤ "* " "* " "* " "*& "ͤ"*0 "Σ"*:90'Z**MAIN LOOP**'d POSITION CURSOR AT1ST DIGIT(n"";.(x DRAW NUMERALS FOR TIME9(I16Q(A$(((TI$,I,1)));s( INSERT COLON TWEEN HH-MM-SS(I2I4"ם";(OP1(TI$)126000TI$"000000"(ALB):2680:S$;)ZA$(C):2690:" ";:ZA$(A):2680:D0:)"(UD$,13)" WHAT IS THE NUMBER? ";:3040:D(UR$)O)6CDD$"":1660c)@YY1:Y31630)J" SORRY, THAT'S WRONG. PLEASE TRY AGAIN.":5000:D0:D$"N")TD0D$"0"(UD$ ";&US$"0123456789":UL6:35:AL$UR$&(AL$)61242-& ASK FOR TIMEl&"":UT,UU%:" PLEASE TYPE THE CURRENT TIME"&" MINUTES"&" HOURS SECONDS"& " NRNR1:N11:N21*" ";/+" ֥ ";`+" ";+" Σ";+"  LY BY SCOTT MAUCUS#` MODIFIED BY B. SEILER#j$tI09 4$~ SET UP A DIGIT@$J1 5H$A$h$ MOVE CURSOR DOWN & 3 LEFT$A$(I)A$(I)A$""$ J$A$$ MOVE CURSOR RIGHT & UP$A$(I)A$(I)A$"4QZ.54276,0:54277,0:54272,0.QQ." ";:I129:"";::" " +-I211K-""I)""352I)""I)""Q--" ͥ"-" ";:I137:"";:: THE PGM WILL NOT WORK ON THIS MACHINE!":*"UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **V""";::(50003)053281,6:53280,14""":UT,UL%: REVISED BY JOHN KACUR"$:UH1:UG$"":850"%" O YOU WANT THE ALARM OPTION? ";"&US$",pI18,z" "29)" " ,-" ";:I129:"";::" " +-I211K-""I)""352I)""I)""Q--" ͥ"-" ";:I137:"";::  UT,UV%:UQUBUB919UQ,UQ%(UQUB):T(UD$,24);" "`U1,U1%lU2,U2%xU4,U4%U3,U3%135UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):(UD$,24);"  HELP COMI " "*D "̤ "*N ""*X ""*b "ͤ"*l "ϣ" +v " "+ " ""+ " ".+ " ":+ " "F+ "Σ"R+ ""^+ "ͤ"j+ " "v+ ""+ "ͤ"+ "Σ"+ " "+ "ͤ"+ " "+  Y : NKNOWN" PGRADED Y : OUR AME@" HIS PROGRAM WILL RUN ON ANYg" à2.0 " 4.0 Ԡ" 8032 " 64  835DE"Y"POINT.";:Y1"S."/""NAME$" HAS"L"POINT.";:L1"S.":2210(0"ANT TO PLAY AGAIN "NAME$" (Y/N)? ";>0UL1:US$"YN":35i0UR$"Y":900:UP0:UG$"":850:11700UR$"N":900:300*". " HAVE"Y"POINT.";:Y1"S." **"":UT,UL%:(50003)053281,2:53280,10<UP0:UG$"EACHER NST":850j" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:""  + 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$)16:UC167:UU1024%UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0h(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$""UP$OGRAM 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. : # +++ INP300C ** SPACE BAR PRESS **4HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"KLUI$:UI$" "844QNqR ** PAGE DESIGN ROUTINE **}TUPUP1W""(UT$UP$,21);(UP$UG$,18)\" --------------------------------------"`UH:2080. ""NAME$" HAS"L"POINT.";:L1"S.":2100.*/4"** OUND 1 TOTALS **";/>" HAD"O"POINT.";:O1"S.":2130m/R""NAME$" HAD"P"POINT.";:P1"S.":2150s/\/fYOY:LPL/p"** RAND OTALS **"/z" HAV280,14:53281,6$I138:"";:&I122:"";:3(I137:"";:K*I122:"";:p," ."  0" 2" 4")96700 ** MEMORY CHECK **  (0)20009377"THIS MACHINE DOES NOT HAVE ENOUGH"["MEMORY TO RUN THIS PROGRAM !"fUU71l"":(50003)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **1075,133:1076,144:1835NUZ1UP%:217W'X ** PROGRAM MODIFICATION INST **8Y"":UT,UL%X]UP0:UG$"ROGRAM OD":850a835uUZ1UP%:217{ ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032  " UI$"":$ UF1: +++ HELP ROUTINE EXIT +++- 2506 245H UQUBUB999d UQ%(UQUB)(UQ)::""w UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 "";UT$UL$: OMMODORE USINESS ACHINES")" 3370 HARMACY VE.M" GINCOURT, NTARIO"o" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: ROGRAM ITLE" RITTEN   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): " AN ALARM. (HE ALARM IS RATHER QUIET"B" THOUGH AND PROBABLY WILL NOT WAKE YOU "g" UP FROM YOUR FRENCH CLASS.)"" YPE AT ANY TIME TO RETURN TO THE"" MENU. "835UZ1UP%:217 ** TEACHER INSTRUCTIONSUT 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 ++0870a(UD$,24);(UP$,7);"HELP - PRESS H "$fUH0:"":Ck ** PLEASE WAIT REMARK **yp(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U42 " "KUT$" ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***Qk ** SET VARIABLES **w A$(9)900:: ** CHECK FOR 8032 **"":"": SHIFTED SPACE(UB40C O M M O D O R E6"EDUCATIONAL;8"SOFTWAREV: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@077,234:1079,4:1080,133:1081,145) 1091,155:1098,133:1099,144:1100,234:1103,133K 1104,145:1105,234:1082,234b (50003)160955 1093,88:1094,228:1097,85:1102,228:965 (50003)1990 1093,49:1094,230:1097,46:1102,2 LOAD THE 'CBM 4032' PROGRAM"UU71B ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"1093:  ** T I T L E P A G E **""";:UT,UU%:(50003)053 41:2128,21:2129,3!UU48: DISABLE STOP KEY"800: TITLE"300: MENUO""THE PGM WILL NOT WORK ON THIS MACHINE!":"UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **""";::(50003)053281,6:53280,14"UT,UL%:PG$"B.T.C. M :(50003)0962  ** BASIC 2.0 OR 4.0 OR C-64 SETUP **M 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)160955 1093,88:109 ORE"*18);Y"POINT";:O1"S";*27)L"POINT";:P1"S"+""+I11000:*+WQ((1)3)1D+ WQ 1820,1780,1820f+A((1)88)12:R((1)4)1+ R 1810,1800,1810,1810+B100:1840+B((1)3)10+A((1)9 (50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO1981UD$""cUP$" "UT$" ԠŠ-": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!*** ** SET VARIABLES ** ,C$C$Z$:1510(6C$""1510)@CD"":"CORRECT";:PP1:28)"1 POINT":1620))J1640C)TC$"":835:S:1660w)^" "::"OT FAST ENOUGH!";:Q9110:D$:Q9)h"":"NSWER IS: "C;19);"1 POINT"::OO1)rC$"":835:S UP1W""(UT$UP$,21);(UP$UG$(UP),18)6\" --------------------------------------"E`UH0870ya(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE &" **** OUND 1 ****":19)"Y SCORE OUR SCORE"'18);O"POINT";:O1"S";9'27)P"POINT";:P1"S"B'""R'I11000:c'A((1)10)t'B((1)10)~'CAB'" ";A;"X";B;"= ";'ZTTI:ZC2'T1TM3.9'Z$:Z   0" 12" Y4"C O M M O D O R E|6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPA  POINT FOR ME."%(TM$)0"YOU'LL HAVE ONLY "(TM$,4)" SECONDS ";.%((TM$)0 "TO ANSWER."P%2"F YOU TAKE LONGER THAN";%<" THE TIME YOU CHOOSE, IT'S A POINT FOR ME."%> 835: 850%F"HE QUESTIONS ARE DIVIDED INTO 2%P D(C$):1960,(Z$)20D(C$):D0C$(C$,D1):Z$;:1880.-(Z$)20D(C$):D101880:C$(C$,D1):1880@-(C$)41880I-Z$;^-C$C$Z$:1880p-C$""1880-CD"":"CORRECT";:LL2:29)"2 POINTS":1990-20 LTIPLY"#BUG$"":P0:850:"'M CALLED THE '64'."3#L"HAT IS YOUR FIRST NAME? ";R#VUL10:US$"":35:NAME$UR$w#t"HIS PROGRAM WILL TEST YOUR"#~"MULTIPLICATION SKILLS. OU WILL BE#"GIVEN 30 MULTIPLICATION QUEST 4,228:1097,85:1102,228:965!(50003)1990/!1093,49:1094,230:1097,46:1102,230:965i!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,1 )1:A4B(((1)9)1)10:1840+&B((1)39)12+0CAB,:" ";A;"X";B;"= "; ,DZTTI:ZC20,NV1TM3.9G,XZ$:Z$""1910,bZTTI("",ZC,1);"";:ZC3ZC:ZTTI15:V:2000DE,l1880,vZ$"H"195,w" ";:(Z$)13 900:: ** CHECK FOR 8032 **"":"": SHIFTED SPACE6(UB40)96700O ** MEMORY CHECK **c (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !"UU71"" )|UG$"CORING":UP0:850:"** OUND 1 TOTALS **"*O"POINT";:O1"S";!*" FOR ME."<*P"POINT";:P1"S";Q*" FOR "NAME$"."[* 835*UG$"UESTION #":S115:UPS1:850*" **** OUND 2 ****":19)"Y SCORE OUR SC ... "u ** SET UP VARIABLES **MUX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768: 50003,0:UO158(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048  $""1540(ZTTI("",ZC,1);"";:ZC3ZC:ZTTI15:T:1630(15105(Z$"H"195:C$"":Z$"":1490Y(" ";:(Z$)13D(C$):1590((Z$)20D(C$):D0C$(C$,D1):Z$;:1510((Z$)201510((C$)31510("Z$;( CE BAR OR WAIT":I0<A$:A$" "II1:I2508284>T1$"":T2$"":T3$"":T4$"":I0=@300YC ** SPACE BAR PRESS **H(UD$,24);"PRESS SPACE BAR TO CONTINUE":UO,0LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUP "ROUNDS OF 15 QUESTIONS EACH. OUND 2&Z"IS HARDER BUT EACH QUESTION SCORES 2,&_"POINTS!"\&d"EMEMBER TO PRESS RETURN AFTER YOU&n"ANSWER. Ġ---(AND THINK FAST!)"&x835:&UG$"UESTION #":S115:UPS1:85010-C$"":835:S:2030." ":"OT FAST ENOUGH!";:Z9110:D$:Z94."":"ANSWER IS: "C;19)"2 POINTS"::YY2F.C$"":835:SP. 835.UH1:UG$"CORING":UP1:850:"** OUND 2 TOTALS **". " HAVE"Y"POINT.";:Y1"S." IONS."#"OW "NAME$", HOW MANY SECONDS DO "-$"YOU WISH TO ANSWER EACH QUESTION? ";T$UL2:US$"1234567890": 35:TM$UR$b$TM(TM$)m$ 1410$ "ACH RIGHT ANSWER SCORES A POINT FOR YOU."$"RONG ANSWERS SCORE A CASE"" PLEASE CONTACT:"8" OMMODORE USINESS ACHINES"[" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:" ROGR BASE TEN NUMBER";X;"IS :-"$$ K2 16$ AX % I0% A1(AK)(% RAKA14% II1H% A$(I)B$(R1)S% AA1e% A0 1470s% 25I);% A$(I);% II1% I0 1540%" " BASE ";C$(K)%, K%6%@ "":875:! ** STUDENT INSTRUCTIONS **P"":UT,UL%:(50003)053281,0:53280,0qUP0:UG$"TUDENT NST":850"HIS PROGRAM TESTS YOUR KNOWLEDGE ""OF THE MULTIPLICATION TABLES. "835:850:1290UZ1 " AND WILL SHOW YOU HOW IT WOULD BE"# " REPRESENTED IN BASES TWO TO SIXTEEN")# ""X# " LEASE PRESS RETURN AFTER TYPING IN"# " YOUR NUMBER. HE NUMBER MUST BE"# " BETWEEN 1 AND 9999999."#  ""# 0,1,2,3,4,5,6,7,8,9,  CLOCK-MULTIPLY",@" 2. STUDENT INSTRUCTIONS"VE" 3. TEACHER INSTRUCTIONS"J" 4. MODIFICATION OF PROGRAM"O" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY  --- BASE CHANGE * ! * *0!$ * PROGRAMMED IN 'PET' BASIC *V!. * *|!8 * TREVOR L LUSTY 4/8/79 *!B * *!L *******************************!V UT,UV%:UQUB(U2%256U1%U3%3)- UQ,UQ%(UQUB):9 U1,U1%E U2,U2%Q U4,U4%_ U3,U3%1n S0 v 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ":U1%(U1):U2 ,230:1097,46:1102,230:965(2099,141:2100,20:2101,3:2103,8:2104,141:2105,21d2106,3:2115,145:2117,52:2118,234:2121,49:2122,1412123,20:2124,3:2126,234:2127,141:2128,21:2129,3: UU48: DISABLE STOP KEY800: TITLE 60 B=INT(RND(1)*10)"2i"1780 A=INT(RND(1)*88)+12:R=INT(RND(1)*4)+1"Vk"1810 B=INT(RND(1)*3)+10 "m"1820 A=INT(RD(1)*9)+1:IFA>4HEB=(INT(RND(1)*9)+1)*10:GOTO1840"o"1830 B=IN(RND(1)*39)+12 "p A16:LINE1450:  ** TO USE 8032 LOAD CBM4032 **6"BEFORE RUNNING THIS PROGRAM ON AN 8032 l" LOAD THE 'CBM 4032' PROGRAM"wUU71} ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CB AM AME: EAT THE LOCK-ULT"(" RITTEN Y : NKNOWNC" PGRADED Y : n" HIS PROGRAM WILL RUN ON ANY" 64 " 64 D835NUZ1UP%:217WX ** PROGRAo%J835%T" O YOU WANT ANOTHER ONE? ";&^US$"YNH":UL1:35:)&hUR$"Y""":1330/&rEN,SIXTEEN[$2 " BASE TEN NUMBER=";$<US$"0123456789H":UL7:35:X$UR$$P X(X$)$n X0 X107 1620$x ""$$ " HE UP%:217 ** TEACHER INSTRUCTIONS **M"":UT,UL%:(50003)053281,2:53280,10nUP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE A,B,C,D,E,F $ ONE,TWO,THREE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE,TEN@$( ELEVEN,TWELVE,THIRTEEN,FOURTEEN,FIFTEEN,SIXTEEN[$2 " BASE TEN NUMBER=";$<US$"0123456789H":UL7:35:X$UR$$P X(X$)$n X0 X107 1620$x ""$$ " HE  (1-5) ";"^UL1:US$"12345":35: INPUT ROUTINE4_(UR$)1300?`US$""`c(UR$)1000,400,500,600,396ih300 ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14 "":UT,UL%!`: I1 16!j B$(I)!t I "~ I1 16" C$(I)!" I." ""P" "  "r" "  "" "  "" " OU GIVE ME A BASE TEN NUMBER AND"" %(U2):U3%(U3):U4%(U4)7UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL=N, ** MENU **T-:."":UT,UU%:(50003)053281,9:53280,8/:1" MENU"6" --------------------------------------";" 1. BEAT THE 300: MENU "THE PGM WILL NOT WORK ON THIS MACHINE!":F UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **r "";::(50003)053281,6:53280,14  *******************************  * *  * PROGRAM NU10:A3NU88:LINE1780q A4 NU3:LINE18101r A5 NU39:LINE1830Es A2LINE1460}t 835:" "v" *** HANGE THE"NU;x"IN LINE "LINE"***"{A835UZ1UP%:217 M 4032 PROGRAM"1093:  ** T I T L E P A G E **M""";:UT,UU%:(50003)053280,14:53281,6c$I138:"";:{&I122:"";:(I137:"";:*I122:"";:," ." M MODIFICATION INST ** Y"":UT,UL%-]UP0:UG$"ROGRAM OD":850Z_"HE LEVEL OF DIFFICULTY IN THIS"|a"PROGRAM CAN BE MODIFIED."b835:850c"HE FOLLOWING LINES DEAL WITH THIS:"e"1450 A=INT(RND(1)*10)g"14 THE MENU FOR HELP. OU WILL"7: " BE RETURNED TO THE PLACE IN THE"b: " PROGRAM WHERE YOU LEFT OFF AS": " SOON AS THE OPTION FROM THE MENU": " IS COMPLETE."835UZ1UP%:217 ** TEACHER INSTRUCTION 400,500,396h300+ ** RE-ENABLE STOP KEY AND END **Z(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0  32768:U1196:U2197:U3198:U4216:UC167:UU1024BUT59468:UU%12:UL%14:UP%1146:UM32768: 50003,0(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024UD$" UJ$US$:UJUL"UJ$US$:UK$UG$:UJUP:UKUL(9, ** MENU **?-:n."":UT,UU%:(50003)053281,9:53280,8t/:1" MENU"6" --------------------------------------";" 1. BASE CHANGE" @" 2 1:I250828>T1$"":T2$"":T3$"":T4$"":I0@3004C ** SPACE BAR PRESS **iH(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UG$UP$,14);UP P ROUTINE EXIT +++ 250 245; UQUB(U2%256U1%U3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB( T L E P A G E **(""";:UT,UU%:(50003)053280,14:53281,6>$I138:"";:V&I122:"";:n(I137:"";:*I122:"";:," ."  0" $ ZUR$UX$15: XIT TO HELP ROUTIE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1) Y : REVOR . USTY"" PGRADED Y : ARK TEWARTM" HIS PROGRAM WILL RUN ON ANYm" 64 " 64 D: 835NUZ1UP%:217WX ** PROGRAM MODIFICATION INST **Y ED SPACE(UB40)96700 ** MEMORY CHECK **" (0)2000937P"THIS MACHINE DOES NOT HAVE ENOUGH"t"MEMORY TO RUN THIS PROGRAM !"UU71"":(50003)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **  S **"":UT,UL%:(50003)053281,2:53280,10@UP0:UG$"EACHER NST.":850n" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:" " UP0:UG$"TUDENT NST":850=: " EMEMBER TO HIT AFTER"i: " TYPING YOUR ANSWER. HIS TELLS": " THE COMPUTER TO ACCEPT WHAT YOU": " HAVE TYPED.": " YPE AT ANY TIME TO RETURN" : " TO "UP$" "aUT$" Š ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***g ** SET VARIABLES **900 A$(25),B$(17),C$(17) ** CHECK FOR 8032 **"":"": SHIFT . STUDENT INSTRUCTIONS"5E" 3. TEACHER INSTRUCTIONS"QO" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000, \" --------------------------------------"<a(UD$,24);(UP$,6);"HELP - PRESS H "Hf"":gk ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES ** UX$"H":UQ%(1000):UB U2%256U1%U3%3) UQ,UQ%(UQUB):) U1,U1%5 U2,U2%A U4,U4%O U3,U3%1W 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4)   2" 44"C O M M O D O R EW6"EDUCATIONALv8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II  UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UL%UI$((UI$)128): UI$"": UF1: +++ HEL "":UT,UL%]UP0:UG$"ROGRAM OD":850835,UZ1UP%:2172W ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71  ** T I 1075,133:1076,144:1077,234:1079,4:1080,133:1081,145B1091,155:1098,133:1099,144:1100,234:1103,133d1104,145:1105,234:1082,234{(50003)1609551093,88:1094,228:1097,85:1102,228:965(50003)19901093,49:1094  OMMODORE USINESS ACHINES"-" 3370 HARMACY VE.Q" GINCOURT, NTARIO"s" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: ASE HANGE" RITTEN "";:(I137:"";:*I122:"";:;," ]."  ~0" 2" 4"C O M M O D O R E6" DIFICATION INST **Y"":UT,UL%#]UP0:UG$"ROGRAM OD":850,835@UZ1UP%:217Fk ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"U MACHINE!": #UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **7#"";::(50003)053281,6:53280,14J# *** BAIRSTOW\# W HAWESb#{# *** PET USER GROUP#$ SOFTWARE EXCHANGE#. PO BOX 371#8 MOTGOMERYVILLE,PA 850:$ P0:Q0:Z0:Z11$L11:L1N%(" ENTER A";((L),2);" : ";A%*US$"0123456789.-+H":UL10:35:A(L)(UR$)a%-L10L1835:1288:L1L11m%2L:835w%<1500%FB(1)A(1)P:B(2)A(2)PB(1)Q%PK3N%ZB(K)A(K)PB(K1)QB(K2 81,145 !1091,155:1098,133:1099,144:1100,234:1103,133,!1104,145:1105,234:1082,234C!(50003)160955r!1093,88:1094,228:1097,85:1102,228:965!(50003)1990!1093,49:1094,230:1097,46:1102,230:965!2099,141:2100,2 PDP:QQDQ&M(DP)(DQ):ZZ1:1505'UG$"RESULTS-NTH=":UPN1:850E'(UD$,24);(UP$,15);"CALCULATING "'wwpmg}yyt}ęę́tٕџO}ɏ}}܏ UT$" BAIRSTOW NTH EQS": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***"< ** SET VARIABLES **E900gN100: A(N),B(N),C(N):C(0)1m: ** CHECK FOR 8032 **"":"": SHIFTED SPACE(UB40)96700 ** MEMORY CH  WHERE:"(^K11:K1N2(h" B";((K),2);" = ";B(K))mK9K1K1K11:835:850)rK3)|:900:835:300p)835:UH1:850:"THE ITERATIONS DO NOT APPEAR TO BE")"CONVERGING. DO YOU WISH TO CONTINUE?")"(Y OR N) ";:UL1:US$  H "fUH0:"":k ** PLEASE WAIT REMARK **Jp(UD$,24);" ONE MOMENT PLEASE... "Pum ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:  910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **:::# +++ INPUT SECTION +++ (UR$ EDUCATIONAL8"SOFTWARE!: ** COMMODORE LOGO **Y;(UD$,24);"PRESS SPACE BAR OR WAIT":I0{<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRESS **H(UD$,24);" U71  ** TO USE 8032 LOAD CBM4032 **X"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"d1093:  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:  1936#B#L""$V PROGRAM SUBMITTED BY W. HAWES$` HALIFAX, N.S. CANADA:$UG$"NTH ORDER=":UP0:850m$" ENTER ORDER N OF POLYNOMIAL(3-100)":" ";$US$"H0123456789":UL3:35:N(UR$)$N3N1001270$1288:1290$UPN1: )%dK%nC(1)B(1)P:C(2)B(2)PC(1)Q%xK3N&C(K)B(K)PC(K1)QC(K2)!&K6&CBC(N1)B(N1)W&DPB(N1)C(N2)B(N)C(N3){&DPDP(C(N2)C(N2)CBC(N3))&DQB(N)C(N2)B(N1)CB&DQDQ(C(N2)C(N2)CBC(N3))&P 0:2101,3:2103,8:2104,141:2105,21,"2106,3:2115,145:2117,52:2118,234:2121,49:2122,141f"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 835:1500:1350'1350'835:850'" P = ";P(" Q = ";Q1("" P & Q ARE A QUADRATIC FACTOR OF"T(," THE FORM Y^2 +P*Y + Q = 0"|(@" THE RESULTANT FACTOR IS OF THE"(J" FORM: Y^(N-2) + B1Y(N-3)+...+B(N-2)"(O835:850(T" ECK ** (0)2000937 "THIS MACHINE DOES NOT HAVE ENOUGH"< "MEMORY TO RUN THIS PROGRAM !"G UU71M g "":(50003)0962  ** BASIC 2.0 OR 4.0 OR C-64 SETUP ** 1075,133:1076,144:1077,234:1079,4:1080,133:10>"YNH":35)UR$"N")UR$"Y"Z1Z11:1500:1350" Q = ";Q1("" P & Q ARE A QUADRATIC FACTOR OF"T(," THE FORM Y^2 +P*Y + Q = 0"|(@" THE RESULTANT FACTOR IS OF THE"(J" FORM: Y^(N-2) + B1Y(N-3)+...+B(N-2)"(O835:850(T" UP%1146:UM32768: 50003,0:UO1589(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048x(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$""UP$" " "":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 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 +++ PRESS SPACE BAR TO CONTINUE":UO,0LUI$:UI$" "844N<R ** PAGE DESIGN ROUTINE **HTUPUP1rW""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870a(UD$,24);(UP$,7);"HELP - PRESS  910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UR$"":UI Y TIME YOU WISH TO RETURN"*" TO THE PRESS H <>"K835:UT$" BAIRSTOW NTH EQS"_UZ1UP%:217e ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UP0:UT$" נȠ":UG$"EACHER NS UP0:UT$" נȠ":UG$"TUDENT NST":850Y" SE THIS PROGRAM TO SOLVE AN N'TH ORDER";" POLYNOMIAL EQUATION OF THE FORM:"" Y^N + A1*Y^(N-1) + .... +AN = 0;"" WHERE A1,A2,....,AN ARE REAL NUMBERS." " AIRST ** STUDENT INSTRUCTIONS **7"":UT,UL%:(50003)053281,0:53280,0UUP0:UG$"SER NST":850" HIS PROGRAM SIMULATES A DIGITAL CLOCK."" OU CAN CHOOSE EITHER A 12 HOUR FORMAT"" OR A 24 HOUR FORMAT. OU CAN ALSO SET" 2. STUDEN INSTRUCTIONS"6E" 3. EACHER INSTRUCTIONS"RO" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000 -----------------------------------"3;" 1. BIGTIME "Z@" 2. USER INSTRUCTIONS"vO" 3. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-3) ";^UL1:US$"123":35: INPU U2%256U1%U3%3) UQ,UQ%(UQUB):) U1,U1%5 U2,U2%A U4,U4%O U3,U3%1W 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4) UK-(50003)053281,1:"";:53281,6:53280,14:2207"";fUT$UL$:UT,UV%:UQUB(U2%256U1%U3%3){UQ,UQ%(UQUB):U1,U1%U2,U2%U4,U4%U3,U3%135UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):"(UD$  UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HEL  GINCOURT, NTARIO""" ANADA 1 24"B" (416) 499-4292"XUP1: 835: 850:" ROGRAM AME: AIRSTOW TH QS"" RITTEN Y : . AWES" PGRADED Y : " HIS PROGRAM WILL R $"":UO,0 *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 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 +++ T":850" O THE BEST OF OUR KNOWLEDGE,"F" THIS PROGRAM IS IN THE PUBLIC"r" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." OW'S ITERATIVE METHOD IS USED TO"=" YIELD SUCCESSIVE QUADRATIC FACTORS AND"n" THE RESULTANT REDUCED ORDER POLYNOMIAL."w835850"OTE: LWAYS HIT THE <> KEY"" AFTER TYPING IN AN ANSWER."" F AT AN ELD SUCCESSIVE"" QUADRATIC FACTORS AND THE RESULTANT"A" REDUCED ORDER POLYNOMIAL."o" HE USER SHOULD HAVE A BACKGROUND IN"" THE AREA OF POLYNOMIALS."D835:UT$" BAIRSTOW NTH EQS"NUZ1UP%:217WX ** PROGRAM MO ,400,500,396h300, ** 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,0% T ROUTINE _(UR$)1300`US$""-c(UR$)1000,400,396Gd(UR$)2Z$"H"1330Ph300w ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN BAIRSTOW NTH EQS" @" ,24);"  HELP COMING ":NU1%(U1):U2%(U2):U3%(U3):U4%(U4)vUJ$US$:UK$UG$:UL$UT$:UJUP:UKUL|, ** MENU **-:."":UT,UU%:(50003)053281,9:53280,8/:1" MENU"6" --- P ROUTINE EXIT +++ 250 245; UQUB(U2%256U1%U3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB( UN ON ANY" 64 4" 64 = 835F 850r " HIS PROGRAM WILL SOLVE FOR YOU AN"" 'TH ORDER POLYNOMIAL EQUATION USING"" AIRSTOW'S TERATIVE METHOD."" HE PROGRAM WILL YI $ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1)  HIS MACHINE!": UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **@ "";::(50003)053281,6:53280,14Z UT$" BEADS IN A JAR"f  BEADS}  ANDY GAMBLE 1979  COLUMBIA COLLEGE  1619 W10 AVE VANCOUVER BC $ ******************* 1081,1451091,155:1098,133:1099,144:1100,234:1103,13351104,145:1105,234:1082,234L(50003)160955{1093,88:1094,228:1097,85:1102,228:965(50003)19901093,49:1094,230:1097,46:1102,230:9652099,141:210  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  PR "=UT$" EADS IN A AR": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***SM$(101),M(101):m ** SET VARIABLES **v900 ** CHECK FOR 8032 **"":"": SHIFTED SPACE(UB40)96700 ** MEMORYUT 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$; P505 T"PLU;LEFT$(UP$,7);"HELP - PRESS H "fUH0:"":5k ** PLEASE WAIT REMARK **kp(UD$,24);" ONE MOMENT PLEASE... "qu ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024DS"$d$nI0S:(M$(I))MLML(M$(I))%x:ML3014201%I0S:M$(I)(M$(I),(M$(I))30ML):=% I0SQ%I5)M$(I);M(I)w%(I10)10II0835:850:""% I%835%:900%300L3#35:R(UR$)## J1EDUCATIONAL8"SOFTWARE4: ** COMMODORE LOGO **l;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRESS **HU";:US$"1234567890":UL2"35:S(UR$)# S1 S100 "":1150N#" WHAT PERCENT ARE MARKED? ";:US$"1234567890":UL2_#35:M(UR$)w# M0 M100 1180#" HOW MANY RUNS? ";:US$"1234567890":UL3#35:R(UR$)## J1 ++ CHECK FOR VALID CHARACTERS +++ }(US$)0150< US1(US$)S UI$(US$,US,1)Y f UI$"": ** STANDARD INPUT ** (UI$)46 UI$(32) (UI$)48(UI$)57170 (UI$)65(UI$)90180 (UI$)********** . * IMPROVED BY R MACNAUGHTON * !8 * JAN/81 *D!B *****************************Z!GUG$" ":UP0:850!L"";" THIS PROGRAM SIMULATES SAMPLING FROM"!N" A BINOMIAL DISTRIBUTION."!V:" YOU HAVE A LARGE NU0,20:2101,3:2103,8:2104,141:2105,2152106,3:2115,145:2117,52:2118,234:2121,49:2122,141o2123,20:2124,3:2126,234:2127,141:2128,21:2129,3UU48: DISABLE STOP KEY800: TITLE300: MENU"THE PGM WILL NOT WORK ON TOGRAM 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. : # +++ INP CHECK ** (0)2000937!"THIS MACHINE DOES NOT HAVE ENOUGH"E"MEMORY TO RUN THIS PROGRAM !"PUU71Vp"":(50003)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **1075,133:1076,144:1077,234:1079,4:1080,133: RALS.C0" PRG S "0:BIGTIME.C2",8: PRGZ U +++ CHECK FOR HELP REQUEST +++ ZUR$UX$195: EXIT TO HELP ROUTINE _UF1240 dUF0:: f ++ CHECK DELETE ++ i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 xUT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0Z(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$""UP$"  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  PRO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE")LUI$:UI$" "844/NOR ** PAGE DESIGN ROUTINE **[TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870a PRINTLEFT$(UD$,24)R:850:""J;5)"";#C0# I 0 S1$(I10)10I:5);&$ (1)M10012700$"";:$1290D$"";N$CC1U$ Iq$" ";((C),((C))1)$M$(C)M$(C)""$(M(C)M(C)1$2835: J$Z850:" FREQUENCY OF MARKED BEA 193(UI$)218UI$"":0 (UT)UU%UI$((UI$)128):6 C UI$"":h UF1: +++ HELP ROUTINE EXIT +++q 250z 245 UQUB(U2%256U1%U3%2) UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULMBER OF BEADS IN A ""`" JAR. YOU CHOOSE HOW MANY ARE MARKED ()"?"e" OR UNMARKED (), HOW MANY YOU WISH TO"j"j" TAKE IN A ONE SAMPLE AND HOW MANY""t" SAMPLES YOU WISH TO TAKE. ""v835:UP2:850"~:" INPUT SAMPLE SIZE (1-99)?   910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UR$"":UI  910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$ $ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1)  P ROUTINE EXIT +++ 250 245; UQUB(U2%256U1%U3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB(UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN BEADS IN A JAR" @" 2.00,500,396h300* ** RE-ENABLE STOP KEY AND END **Y(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0!TURN""" TO THE PRESS '' <> WHEN THE">" CURSOR IS FLASHING."G835[UZ1UP%:217a ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UT$" EADS IN A AR":UP0:UG$"EACHER NST":850GINCOURT, NTARIO"" ANADA 1 24"<" (416) 499-4292"RUP1: 835: 850:}" ROGRAM AME: EADS IN A AR" RITTEN Y : NDY AMBLE " PGRADED Y : " HIS PROGRAM WILLUS$,US,1)  UI$"":3 ** STANDARD INPUT **D (UI$)46U UI$(32)r (UI$)48(UI$)57170x (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": E 8032 LOAD CBM4032 **0"BEFORE RUNNING THIS PROGRAM ON AN 8032 f" LOAD THE 'CBM 4032' PROGRAM"qUU71w  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:$"":UO,0 *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 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 +++"":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 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 +++ UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HELU2%256U1%U3%3) UQ,UQ%(UQUB):) U1,U1%5 U2,U2%A U4,U4%O U3,U3%1W 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4) STUDENT INSTRUCTIONS"4E" 3. TEACHER INSTRUCTIONS"PO" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,4UT$" EADS IN A AR":UP0:UG$"TUDENT NST":850P" OTE:O ADVANCE FROM ONE QUESTION"z" TO THE NEXT PRESS THE BAR.""FTER EACH INPUT OF DATA PRESS THE"" <>KEY.""F AT ANY TIME YOU WISH TO RE" O THE BEST OF OUR KNOWLEDGE,"@" THIS PROGRAM IS IN THE PUBLIC"l" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE."  RUN ON ANY" 64 8" 64 A 835UNUZ1UP%:217[WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD":850835UZ1UP%:217 ** TO US UF1: +++ HELP ROUTINE EXIT +++# 250, 245K UQUB(U2%256U1%U3%2)g UQ%(UQUB)(UQ)::""z UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:&I122:"";:(I137:"";:)*I122:"";:N," p."  0" 2" 4"C O M M O D O R E6"$ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US$US$UX$ US1(US$) UI$( :NAME$UR$$NAME$(NAME$,10)%NAME$"""";:1260$%  GAMES WRITTEN IN CAN @ OISE<% IN TORONTO CANADAb% TRANSLATED FOR USE ON COMMODORE%( PET BY * SIMON TAYLOR *%2 FOR MICRO COMPUTER LIBRARY%< NORTH YORK BOARD OF EDUCATIO 800: TITLE"300: MENU#"THE PGM WILL NOT WORK ON THIS MACHINE!":L#UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **x#"";::(50003)053281,6:53280,14#L0:Y0:O0:P0#XX(TI):XX0#UG$"DIV. GAME": PAGE HEADING# FAST ENOUGH!";-R"":" NSWER IS: "C::YY2-\C$"": 835.^ S.f(.hUG$"CORING":UP1:UH1:850Q.p" ** OUND 1 OTALS **".z" HAD"O"POINT.";:O1"S.":2190.." "NAME$" HAD"P"POI SETUP **!1075,133:1076,144:1077,234:1079,4:1080,133:1081,145K!1091,155:1098,133:1099,144:1100,234:1103,133m!1104,145:1105,234:1082,234!(50003)160955!1093,88:1094,228:1097,85:1102,228:965!(50003)1990!IDEND+CB+" ";AB;"/";A;"= ";+ZTTI:ZC2,V1TM3.9,Z$:Z$""2040Q,ZTTI("",ZC,1);" ";:ZC3ZC:ZTTI15:V:2120\,2010," ";: Z$"H"Z$""TE$TI$:PO(0):" ":FL1:195,Z$"H"(UD$,10);PO);:T:UM1024:UO198UD$""7UP$" "UT$" ... Š": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** ** SET VARIABLES **900 ** CHECK FOR 8032 **": "C:OO1:(UD$,9)22)O):C$"")= 835)? S*DUG$"CORING":UP0: 850=*F" O FAR, THE SCORING IS"d*N" "O"POINT";:O1"S";*X" FOR AND":" "P"POINT";:P1"S";*b" FOR "NAME$".":*l 8),18) \" --------------------------------------"`UH0870Ma(UD$,24);(UP$,7);"HELP - PRESS H "^fUH0:"":}k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES ZTTI:ZC2'T1TM3.9'Z$:Z$""1750-(ZTTI("",ZC,1);" ";:ZC3ZC:ZTTI15:T:18308(1720t(" ";: Z$"H" Z$""TE$TI$:PO(0):" ":FL1:195(Z$"H"(UD$,10);PO);:TI$TE$:1720((Z$)13D(C$):1790("/" HAS"Y"POINT.";:Y1"S.":2300/%0" "NAME$" HAS"L"POINT.";:L1"S."+0 Y0 " ANT TO PLAY AGAIN "NAME$"? ";w0 US$"YN":UL1: 35:W$UR$0$ W$"Y" L0:Y0:O0:P0:"": 13800. W$N%F WILLOWDALE, ONTARIO JUNE 1980&d" OW "NAME$", HOW MANY SECONDS DO YOU"J&n" WISH TO ANSWER EACH QUESTION ? ";r&xUL2:US$"0123456789H": 35:TM$UR$&TM(TM$)& TM0 "";: 1390&rS115&tUPS1: QUESTION NUMBUT,UL%#********************************$* CHANGES MADE BY HIN JANG AND *@$* PROGRESSIVE PROGRAMING *f$********************************$" 'M CALLED THE '64'."$" HAT IS YOUR FIRST NAME? ";$US$"":UL10: 35 NT.";:P1"S.":2210.." ** OUND 2 OTALS **"1/" HAS"Y"POINT.";:Y1"S.":22407/s/" "NAME$" HAS"L"POINT.";:L1"S.":2260y//YYO:LLP/" **  Ӓ **1093,49:1094,230:1097,46:1102,230:9651"2099,141:2100,20:2101,3:2103,8:2104,141:2105,21m"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"I$TE$:2010,(Z$)13D(C$):2080,Z$;- (Z$)20D(C$):C$(C$,D1):2010%-C$C$Z$:20106- C$""2010o-*CD"":" ORRECT":LL2:(UD$,9)30)L:2110z-42130->C$""-A 835-D S:2150-H" "::" OT":"": SHIFTED SPACE(UB40)96700  ** MEMORY CHECK **+  (0)2000937Y "THIS MACHINE DOES NOT HAVE ENOUGH"} "MEMORY TO RUN THIS PROGRAM !" UU71  "":(50003)0962  ** BASIC 2.0 OR 4.0 OR C-6435*S1 15*UPS1: QUESTION NUMBER ON PAGE HEADING/+UG$"UESTION #": 850:(UD$,24);24);" "k+" **** OUND 2 ****":20)" ";NAME$+"";22);Y;30);L+A((1)5)8: DIVISOR+B((1)12)1: DIV**!UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024_UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139Z$;((Z$)20D(C$):C$(C$,D1):1720)C$C$Z$:1720)C$""1720M)CD"":" ORRECT";:PP1:(UD$,9)30)P:1820X)1840b)C$""l) 835{)" S: 1860)&" "::" OT FAST ENOUGH!";)0"":" NSWER IS4"N" 08 " ";:23300B 8500V OUND 2 OTALS **"1/" HAS"Y"POINT.";:Y1"S.":22407/s/" "NAME$" HAS"L"POINT.";:L1"S.":2260y//YYO:LLP/" **  Ӓ **ER ON PAGE HEADING 'uUG$"UESTION #": 850:(UD$,24);24);" "I'w" **** OUND 1 ****"::20)" ";NAME$a'y"";22);O;30);P}'|A((1)9)1: DIVISOR'B((1)13): DIVIDEND'CB'" ";AB;"/";A;"= ";'  910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$ OUND 2 IS HARDER"'" BUT EACH QUESTION SCORES 2 POINTS!"V" EMEMBER TO PRESS RETURN AFTER EACH" ANSWER. ---(AND THINK FAST!)" 835 850" O ADVANCE FROM ONE QUESTION"" TO THE NEXT PRESS THE  RUCTIONS **("":UT,UL%:(50003)053281,0:53280,0NUH1:UP0:UG$"TUDENT NST":850" HIS PROGRAM WILL TEST YOUR ADDITION"" SKILLS. OU'LL BE GIVEN 30 QUESTIONS."" IGHT ANSWERS SCORE POINTS FOR YOU," " BUT WRON :UP0:UG$"EACHER NST":8501" O THE BEST OF OUR KNOWLEDGE,"Z" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 " 2. STUDENT INSTRUCTIONS"@E" 3. TEACHER INSTRUCTIONS"mJ" 4. MODIFICATION OF PROGRAM"O" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-5) "; ^UL1:US$UNT" HIS PROGRAM WILL RUN ON ANY1" 64 V" 64 _ 835sNUZ1UP%:217yWX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UH1:UP0:UG$"ROGRAM OD":850b" U2%256U1%U3%3)* UQ,UQ%(UQUB)::FL1FL0:6 U1,U1%B U2,U2%N U4,U4%\ U3,U3%1d 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):OR AND"" DIVIDEND WILL BE CHANGED."835%UZ1UP%:217+P ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71  ** T I T UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HEL 2" -4"C O M M O D O R EP6"EDUCATIONALo8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II"":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 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 +++ BAR""F AT ANY TIME YOU WISH TO RETURN"L" TO THE PRESS H OR JUST"i" H DURING THE DRILL."r835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UH1G ANSWERS SCORE POINTS FOR ME."9" F YOU TAKE LONGER THAN THE TIME YOU"f" CHOOSE AT THE START OF THE PROGRAM,"" THEN IT'S A POINT FOR ME." 835:UH1:850" HE QUESTIONS ARE DIVIDED INTO TWO 15"" QUESTION ROUNDS. HARMACY VE." GINCOURT, NTARIO"6" ANADA 1 24"V" (416) 499-4292"qUH1:UP1: 835: 850:" ROGRAM AME: ... IVIDE" RITTEN Y : IMON AYLOR" PGRADED Y : EIL "12345":35: INPUT ROUTINE`US$""8c(UR$)1000,400,500,600,396Ah300h ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTY CHANGING THE MULTIPLICATION FACTOR"6g" OF RND(1) OR THE ADDITION NUMBER AFTER"al" IT ON LINES 1660 AND 1670 FOR THE"q" FIRST ROUND AND LINES 1950 AND 1960"v" FOR THE SECOND DRILL ROUND, THE "{" POSSIBLE VALUES FOR THE DIVISU4%(U4)%UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL+<, ** MENU **B-:q."":UT,UU%:(50003)053281,9:53280,8w/:1" MENU"6" --------------------------------------";" 1. BEGIN B.T.C. DIVIDE"@ L E P A G E **!""";:UT,UU%:(50003)053280,14:53281,67$I138:"";:O&I122:"";:g(I137:"";:*I122:"";:," ."  0"P ROUTINE EXIT +++ 250 245; UQUB(U2%256U1%U3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB(1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300-C ** SPACE BAR PRESS **hHUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UP$UG$(UP$ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1) AlMATHEMATICSMB2ABLOCKS FREE. B.T.C. DIVIDE.C3*B.T.C. FRAC.C3,B.T.C. MULT.C3)B.T.C. PERCNT.C3/ BAIRSTOW NTH.C3#BIGTIME.C3(BALANCE.C3. BASE CHANGE.C3chine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |cLFx |]|F/`"8|/``,,{`,   !"#$%&'()*+,-./01234567BEADS IN A JA.C3BOMB ADD.C3,BONDS.C3!BRAIN CRANE X.C32BRAIN CRANE +.C30BRAIN CRANE -.C30BRAIN CRANE /.C32BRAIN CRANE -.C30 W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|v4 4 decided to use transfer mode 4& HSMM,ؚ|@́|!BRAIN CRANE /.C33x| E h5|>|XRx  |"B| `||B|B| K|| |@|D \\.\opencbm0I]@K`$g"|l |$(|||>V| @@x| @A|>]|-| x>Ґ|Ґ|u|xu|>x $|$ؚ|P ||!x $lp> >h>>00, OK,00,00 OR,00,00 |=|>V|h+ x1F`>J?a|0= h V w ` q v n i s e t b Bt dh r\ 2P E0`hVwqbBt:i:s:e:d:r:2vnE:h+ I 0 Z0!wp|TSؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2FՌF .j FT d d,nnMicrosoft.Windows.SystemCompatible,processorArchitecture="x86",publicKeyToken="6595b64144ccf1df",type="win32",version="5.1.2600.2000"System Default ContextMicrosoft.Windows.GdiPlusd4,A Microsoft.Windows.GdiPlus,processorArchitecture="x86",publicKeyToken  910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$ $ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1)  P ROUTINE EXIT +++ 250 245. UQUBUB600J UQ%(UQUB)(UQ)::""] UZ1:UV%(UT)f 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB1600 UQ,U U2%(U2):U3%(U3):U4%(U4)9UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL?P, ** MENU **V-:."":UT,UU%:(50003)053281,9:53280,8/:1" MENU"6" --------------------------------------";" 1. BEGIN R KEY (1-5) ";'^UL1:US$"12345":35: INPUT ROUTINE2`US$""Sc(UR$)1000,400,500,600,396\h300 ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":" F YOU TAKE LONGER THAN THE TIME YOU"F" CHOOSE, THEN IT'S A POINT FOR ME."Y835:UH1:850" EDUCE FRACTIONS TO LOWEST TERMS."" XPRESS A MIXED FRACTION, (EG. 2 1/2),"" AS AN IMPROPER FRACTION, (E.G. 5/2)."" O THE BEST OF OUR KNOWLEDGE,">" THIS PROGRAM IS IN THE PUBLIC"j" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." WILL RUN ON ANY" 64 :" 64 M 835:UH1:850z " HIS PROGRAM IS TO BE USED IN THE"" GRADES 4 THROUGH 8, AS A PRACTICE WITH"" FRACTION MULTIPLICATION. LSO INCLUDED""ER."D835NUZ1UP%:217W-X ** PROGRAM MODIFICATION INST **@Y"":UT,UL%:e]UH1:UP0:UG$"ROGRAM OD":850_" O MODIFY THIS PROGRAM, THE LEVEL"a" OF DIFFICULTY MAY BE CHANGED. HE"c" LINES WHICH DETERMINE m" 1430 A=INT(RND(1)*12+1)"*o" 1440 B=INT(RND(1)*12+1)"Pq" 1470 D=INT(RND(1)*12+1)"s" 1480 IFD=1THENA=1:C=B*(INT(RND(1)":" *10+1)):GOTO1530"u" 1490 C=INT(RND(1)*12+1)"w" 1520 D="":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 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 +++ UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HELQ%(UQUB): U1,U1% U2,U2%% U4,U4%3 U3,U3%1p FL1FL0:AATIM:"";:x 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ":U1%(U1):BEAT THE CLOCK FRAC."1@" 2. STUDENT INSTRUCTIONS"[E" 3. TEACHER INSTRUCTIONS"J" 4. MODIFICATION OF PROGRAM"O" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBE875: ** STUDENT INSTRUCTIONS **C"":UT,UL%:(50003)053281,0:53280,0iUH1:UP0:UG$"TUDENT NST":850" ACH RIGHT ANSWER SCORES A POINT  FOR YOU."(M$)0" YOU'LL HAVE ONLY "(M$,4)" SECONDS TO ANSWER."" EMEMBER TO PRESS RETURN AFTER EACH"M" ANSWER. Ġ---(AND THINK FAST!)"V835jUZ1UP%:217p ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UH1:UP0:UG$"EACHER NST":850GINCOURT, NTARIO"" ANADA 1 24":" (416) 499-4292"UUH1:UP1: 835: 850:" ROGRAM AME: ... RACTIONS" RITTEN Y : IN ANG" PGRADED Y : ARY EWIS" HIS PROGRAM  IS THE TESTING OF REDUCING FRACTIONS"7" TO LOWEST TERMS. HIS TYPE OF PROGRAM"g" IS BEST SUITED FOR AN INDIVIDUAL STUDY"" OF FRACTIONS AND PROGRESS CAN BE "" MARKED BY KEEPING A RECORD OF THE"" TOTALS GIVEN BY THE COMPUT THIS ARE 1430,"e" 1440, 1470, 1480, 1490, AND 1520."Gg" OU MUST CHANGE THE NUMBER BEING "ui" MULTIPLIED BY "(34)"RND(1)"(34)".";j" NCREASING THE NUMBER INCREASES THE LEVEL OF"k" DIFFICULTY. "l 835:UP1:UH1:850 A*(INT(RND(1)*10+1))"-x 264,177,265,178,344,177,345,178,424,177,425,178,624,177[z 532,177,533,176,625,178,707,177,708,176|| A112: ADRES(A),PK(A):A~59467,16:59466,15 A1121:ADRES(A)UM,PK(A):59464,A:A 59467,0  BEFORE RUNNING THIS PROGRAM ON AN 8032 8" LOAD THE 'CBM 4032' PROGRAM"CUU71Ii  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I1 "SOFTWARE: ** 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 SPA UH0:"": k ** PLEASE WAIT REMARK **/!p(UD$,24);" ONE MOMENT PLEASE... "5!uR! ** SET UP VARIABLES **!UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024!UT59468:UU%12:UL%14:UP%1146:UM32768:U": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***#!# ** SET VARIABLES ***#900G#ADRES(14),PK(14),X$(50)b# ** CHECK FOR 8032 **#"":"": SHIFTED SPACE#(UB40)96700# ** MEMORY CHECK **# (0)2000937#:1099,144:1100,234:1103,133%1104,145:1105,234:1082,234%(50003)160955L%1093,88:1094,228:1097,85:1102,228:965a%(50003)1990%1093,49:1094,230:1097,46:1102,230:965%2099,141:2100,20:2101,3:2103,8:2104,141:2P%:UZ0: ** PROGRAM STARTS HERE **'"";::(50003)053281,6:53280,14,'PG$"B.T.C. FRACTIONS"Q'*******************************v'* MODIFICATIONS MADE BY *'* CARY LEWIS AND HIN JANG *'$*******************************" HAT IS YOUR FIRST NAME? ";(UL0:US$"":35:NAME$UR$)NAME$(NAME$,10)C)" OU WILL BE GIVEN 15 QUESTIONS."n)" OW "NAME$", HOW MANY SECONDS DO")" YOU REQUIRE TO ANSWER A QUESTION? ";)UL2:US$"0123456789H":35:M520*D((1)121)*D1A1:CB(((1)101)):1530 +C((1)121)+CD1490)+1530@+DA(((1)101))L+2390\+EAC:FBDh+2270x+B11960+"D12000+,2050+6ZTTI:ZC2:AATI:CT0+@CTCTT0:1600, X$(CT)"H"FL1:195:1610$-Z(X$(CT)):Z20X$(CT);:BB(CT2):U$(U$,BB):CTBB:16008-Z13:1700Z-U$U$X$(CT):X$(CT);:1600-T$"":I1CT:T$T$X$(I)::F11720-1740-(T$)E" RONG. T'S:"E;A112:ADRES(A),PK(A)128:A" ŠŠ:"a" PRESS SPACE BAR TO CONTINUE";z SP$: SP$" " 690 638835UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **"37:"";:*I122:"";: ," B."  c0" 2" 4"C O M M O D O R E6"EDUCATIONAL8CE BAR TO CONTINUE"LUI$:UI$" "844 N! R ** PAGE DESIGN ROUTINE **- TUPUP1W W""(UT$UP$,21);(UP$UG$(UP),18) \" --------------------------------------" `UH0870 a(UD$,24);(UP$,7);"HELP - PRESS H " fO158: 50003,0"(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048]"(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198"UD$"""UP$" "#UT$" ...-"THIS MACHINE DOES NOT HAVE ENOUGH"$"MEMORY TO RUN THIS PROGRAM !"!$UU71'$A$"":(50003)0962p$ ** 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,133105,21&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 KEYo&800: TITLE&300: MENU&"THE PGM WILL NOT WORK ON THIS MACHINE!":&UZ1UP%:U'.* NOVEMBER 12, 1980'8* BEAT THE CLOCK(B* PROGRAM WRITTEN FOR THE 'PET'=(L* DERIVED FROM A CAN PROGRAM ATJ(V* OISEh(`* -PROGRAM BY HIN JANG-n(j:t(t:z(~:(:("":UT,UL%(" 'M CALLED THE '64'."($UR$)M(M$)60*F"": 835:MP0:YP0:OU,0 *o:*p:*q:*r:!*s:'*t:Q*xR125:UG$"UESTION #":UPR1: 850t*" **** UESTION ****":""*A((1)121)*B((1)121)*BA1440*B1C1:1 1+JX$(CT):X$(CT)""1665,TZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI158,^TI(AAM):" OO SLOW. T'S:";:1650D,h1610m,rF1E;" MY POINT":1830,|E;"/";((F),2);" MY POINT":1830, CT1 X$(CT)(13) C " MY POINT":1830." ORRECT. OUR POINT":YPYP1:1840.(T$)E1750X." RONG. T'S:";E;"/";((F),2);" MY POINT":1830d.PP25.X$(PP)"/"WWPP1:1780.PP.A$"":PIWW8.A$A$X$(PI) " ** GAME TOTALS **":" "MP"POINT";:MP1"S";0X" "YP"POINT";:YP1"S":1900!0bD0l" FOR ME. FOR YOU."n0v" ANT TO PLAY AGAIN "NAME$" ? ";0UL1:US$"YN":35:PO$UR$0PO$"Y"1260:CLR:DIMX$(50): "A1 ""C1R"."1 " * ="1*" "B24""D>2>"";:1590D2HO21410X2JR2e2JR212|2E1(EJR):E2EJR2E1E223702 E1E22 F1FJR:  910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$$ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1) P ROUTINE EXIT +++ 250 245; UQUB(U2%256U1%U3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB(U4%(U4)%UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL+<, ** MENU **B-:q."":UT,UU%:(50003)053281,9:53280,8w/:1" MENU"6" --------------------------------------";" 1. BEGIN B.T.C. PERCENTS"@(UR$)1000,400,500,396h3008 ** RE-ENABLE STOP KEY AND END **g(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281, LONG YOU NEED TO DO EACH PROBLEM."835:850L" N PART 1, YOU WILL BE CHANGING A "x" GIVEN PERCENTAGE TO A FRACTION AND"" REDUCING IT TO ԠӒ."" IE. 20% IS 1/5 (NOT 20/100!)"" 37 1/2% IS 3THE"" BEGINNING OF THE PROGRAM."@" ACH CORRECT ANSWER SCORES A POINT FOR"o" YOU. VERY TIME YOU TAKE TOO LONG OR"" YOUR ANSWER IS WRONG, 64 WINS A"" POINT."835UZ1UP%:217 ** TEACHER INSTRUCT.PI.(A$)F" ORRECT. OUR POINT":YPYP1:1840./" RONG. T'S:";E;"/";F;" MY POINT":/&MPMP1O/0::R151870_/:U$"":A$""/D"": 835:R/N835:UG$"UMMARY":UP0:UH1:850/SPRINT"":GOTO24700PO$"N" 0" ";:19201" ";C1R"."/1" ";A;"* ="N1" ";D:2110_1" ";Aj1R"."1" * "C" = "1" ";B121101" F2(FJR)2 F1F223702$ EE1:FF22. JR1228 22702B JR2L 3V SHAB:HS(AB)!3` B1242033j SHHS1430H3t DFCD:FD(CD)X3~ D11540j3 DFFD1460v3 1540|3 = "1" ";B121101" "":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 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 +++ UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HELU2%256U1%U3%3)* UQ,UQ%(UQUB)::FL1FL0:6 U1,U1%B U2,U2%N U4,U4%\ U3,U3%1d 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):" 2. STUDENT INSTRUCTIONS"BE" 3. TEACHER INSTRUCTIONS"^O" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c0:53280,0UH1:UP0:UG$"TUDENT NST":850Q" HIS PROGRAM WILL TEST YOUR SKILL IN"" HANDLING PERCENTS. OU WILL BE GIVEN"" 30 QUESTIONS IN 2 PARTS. T THE START"" OF THE GAME YOU WILL BE ABLE TO CHOOSE"" HOW /8"835:850." OU WILL EVALUATE EXPRESSIONS OF THE"S" TYPE % OF = ? IN PART 2."{" IE. 20% OF 10 = 2"835:850" ETWEEN PART 1 AND 2, YOU WILL BE ABLE"" TO CHANGE THE TIME LIMIT SET-UP AT  IONS **"":UT,UL%:(50003)053281,2:53280,10CUH1:UP0:UG$"EACHER NST":850q" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:" " RITTEN Y : . ANG"" PGRADED Y : . UMASM" HIS PROGRAM WILL RUN ON ANYm" 64 " 64  835:UH1:850" ... ERCENTS IS A PROGRAM DESIGNED"" AS  CHED HALF" " WAY THROUGH THE PROGRAM) IS SET UP BY"D"" THE STUDENT AT THE BEGINNING OF THE"T$" DRILL."]D835qNUZ1UP%:217wWX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UH1:UP0:UG$"ROGRAM OD":850835 53280,14:53281,6$I138:"";:&I122:"";:2(I137:"";:J*I122:"";:o," ."  0" 2" 4"@300C ** SPACE BAR PRESS **3HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"JLUI$:UI$" "844PNpR ** PAGE DESIGN ROUTINE **|TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------198:U4216:UC167:UU1024*UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0m(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$""UB40)96700  ** MEMORY CHECK ** ! (0)20009378!"THIS MACHINE DOES NOT HAVE ENOUGH"\!"MEMORY TO RUN THIS PROGRAM !"g!UU71m!!"":(50003)0962! ** BASIC 2.0 OR 4.0 OR C-64 SETUP **!1075,133:1076,1102,230:965#2099,141:2100,20:2101,3:2103,8:2104,141:2105,21L#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# DERIVED FROM A CAN PROGRAM$: AT OISE% : -PROGRAM BY HIN JANG-% #%UH1:850L%" 'M CALLED THE '64'."%" HAT IS YOUR FIRST NAME? ";%(US$"":UL10: 35:NAME$UR$%2NAME$"""";:1310%"95":PC$(20)"33 1/3":PC$(21)"66 2/3":PC$(22)"12 1/2"K'xPC$(23)"37 1/2":PC$(24)"62 1/2":PC$(25)"87 1/2":F$(1)"1/20":F$(2)"1/10"'F$(3)"3/20":F$(4)"1/5":F$(5)"1/4":F$(6)"3/10":F$(7)"7/20":F$(8)"2/5"'F$(9)"9/20":F$(10)"1/2":F$(11) " OMMODORE USINESS ACHINES"0" 3370 HARMACY VE.T" GINCOURT, NTARIO"v" ANADA 1 24"" (416) 499-4292"UH1:UP1: 835: 850:" ROGRAM AME: ... ERCENTSA DRILL THAT GIVES THE STUDENT"-" PRACTICE IN CONVERTING PERCENTS INTO"]" LOWEST TERM FRACTIONS. T HAS A SECOND"" PART IN WHICH EQUATIONS OF THE TYPE"" % OF = ? ARE TO BE COMPLETED. "" TIME LIMIT (THAT MAY BE SWITUZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **Q"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)0C O M M O D O R E6"EDUCATIONAL:8"SOFTWAREU: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0"`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H ")fUH0:"":Hk ** PLEASE WAIT REMARK **~p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3 UP$" "P UT$" ...Ӡ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***V p  ** SET VARIABLES **y 900 PC$(25),F$(25)  ** CHECK FOR 8032 ** "":"": SHIFTED SPACE (44:1077,234:1079,4:1080,133:1081,145*"1091,155:1098,133:1099,144:1100,234:1103,133L"1104,145:1105,234:1082,234c"(50003)160955"1093,88:1094,228:1097,85:1102,228:965"(50003)1990"1093,49:1094,230:1097,46:1"THE PGM WILL NOT WORK ON THIS MACHINE!":+$UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **W$"";::(50003)053281,6:53280,14c$LUT,UL%i$$: NOVEMBER 7, 1980$: BEAT THE CLOCK$: PROGRAM WRITTEN FOR THE 'PET'$: FZ91&PPC$(1)"5":PC$(2)"10":PC$(3)"15":PC$(4)"20":PC$(5)"25":PC$(6)"30"d&ZPC$(7)"35":PC$(8)"40":PC$(9)"45":PC$(10)"50":PC$(11)"55":PC$(12)"60"&dPC$(13)"65":PC$(14)"70":PC$(15)"75":PC$(16)"80":PC$(17)"85":PC$(18)"90"&nPC$(19) "11/20":F$(12)"3/5":F$(13)"13/20",(F$(14)"7/10":F$(15)"3/4":F$(16)"4/5":F$(17)"17/20":F$(18)"9/10"s(F$(19)"19/20":F$(20)"1/3":F$(21)"2/3":F$(22)"1/8":F$(23)"3/8"(F$(24)"5/8":F$(25)"7/8"( Z9 01500(850("   910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** ---GENERAL INPUT ROUTINE----:::#-----INPUT SECTION----- (: ND REDUCE TO")" LOWEST TERMS.")835$*I115:UH1:UG$"UESTION #":UPI1:850:2700<*A((1)251):CT0i*" ";PC$(A);" % = ";x*ZTTI:ZC2*T1METI:UL6:PO(0)*CTCT1*&Z$:Z$""1865*0ZTSZ(Z$)+XZ20(0)POZ$;:BB(CT2):YA$(YA$,BB):CTBB:1820,bZ13" ":19104,g((Z$)127)32Z$(34)1830O,lZ$;:YA$YA$Z$:1820,vYA$F$(A)" ORRY, THAT'S NOT IT":YA$"":1940," ORRECT!":-" F YES, TYPE IN THE NUMBER OF SECONDS."-" F NO, HIT KEY 'N'.." OUR ANSWER. ";?.US$"0123456789NH":UL2: 35:A$UR$P.A$"N"2031s.(A$)0A$(13)"";:2015.M((A$)60).850." Ԡ((1)91))10/zANS((PCQ)100):2260/PC(((1)71))250PC1002180%0Q(((1)101))20:2170K0PC((1)31):Q(((1)331))3u0PC1PC2$"33 1/3":ANS(Q3):22400PC2$"66 2/3":ANS((Q3)2)0" UGH.":YA$"":24001 23001 (YA$)ULZ$(13)Z$(20)23002$ Z$"H"TE$TI$:FL1:PO(0):195M2' Z$"H""";PO2);"= ";:TI$TE$:2300Y2( Z(Z$)2) Z20(0)POZ$;:BB(CT2):YA$(YA$,BB):CTBB:22902. Z13" ":2370NS;" 1 POINT FOR ME."3j I3024303t 835:I3~ 835:UG$"ESULTS":UP0:850(4 " *****̠*****"O4 " "MP"POINT";:MP1"S";_4 " FOR ME."4 " "YP"POINT";:YP1"S";4 " FOR "NAME$"."4 8354 (UD$,24);(UP$,11);"HELP - PRESS H"5 3~ 835:UG$"ESULTS":UP0:850(4 " *****̠*****"O4 " "MP"POINT";:MP1"S";_4 " FOR ME."4 " "YP"POINT";:YP1"S";4 " FOR "NAME$"."4 835 U-----CHECK FOR HELP REQUEST-----J Z: UR$UX$195: EXIT TO HELP ROUTINE\ _: UF1240k d: UF0:: f-----CHECK DELETE----- i: (UR$)150 n: UR$(UR$,(UR$)1) s: " ";:50 x-----CHECK FOR VALID CHARACTERS----- }: (US$)0150 : US1(US$)7 : UI$(US$,US,1)@ : P : UI$"":n -----STANDARD INPUT----- : (UI$)46 : UI$(32) : (UI$)48 (UI$)57170 : : (UI$)65 (UI$)90180 :  :  UR$"":UI$""! *: UL0UL804 -" ";:UC,0K 2: UI$:UI$""50x 7: UI$(13)(UR$)1UC,1:" ";:85 <: UI$(20)105 >: (UR$)UL 50 A: 120: CHECK FOR VALID CHARACTER F: UR$UR$UI$ K: UI$; P: 50  OW "NAME$", HOW MANY SECONDS DO")" YOU REQUIRE TO ANSWER A QUESTION? ";5)US$"0123456789H":UL2: 35:M$UR$D)M(M$)60M)|850u)" Ԡ:")" HANGE THE GIVEN PERCENTAGE")" TO A FRACTION ATI(" ",ZC,1);"";:ZC3ZC:ZTTI15&+:TI(T1MEM):" ORRY, NOT FAST ENOUGH.":YA$"":19401+D1830Y+I(YA$)ULZ$(13)Z$(20)1830+NZ$"H"TE$TI$:PO(0):FL1:195+QZ$"H""";PO2);"= ";:TI$TE$:1830+" 1 POINT FOR YOU.":YA$"",YPYP1:1950+-MPMP1:" HE ANSWER IS: ";F$(A);" 1 POINT FOR ME.":-I151970F-835:I`-835:UG$"":UP1:850-" Ԡϒ"-" O YOU WANT TO CHANGE THE TIME LIMIT?":." VALUATE THE FOLLOWING"/" EXPRESSIONS OF THE TYPE"+/" % OF = ?"=/4835:I1630i/>UG$"UESTION #":UPI1:UH1:850:2700{/\A((1)31)/f A 2160,2180,2210/pPC(((1)91))10:Q(";PC2$;" % OF";Q;"= ";022700" ";PC;"% OF";Q;"= ";1ZTTI:ZC2:CT0'1T1METI:UL6:PO(0)31CTCT1H1Z$:Z$""2335x1 ZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI151 TI(T1MEM):" ORRY, NOT FAST ENO23 ((Z$)127)32Z$(34)230028 Z$;:YA$YA$Z$:2290)3B (YA$)ANS" ORRY, THAT'S NOT IT":YA$"":2400r3L " ORRECT!":" 1 POINT FOR YOU":YA$""3V YPYP1:24103` MPMP1:" HE ANSWER IS: ";A4 4 835:8504 " !"5 (M$)1"OU HAVE ONLY 1 SECOND TO ANSWER":2570C5 "OU'LL HAVE "(M$,4)" SECONDS TO ANSWER"s5 "EACH QUESTION. F YOU TAKE LONGER THAN"5 "THAT, IT'S A POINT FOR ME."5x 16605 (UI$)193 (UI$)218UI$"":E : (UT)12(UT)21UI$((UI$)128):N : ^ : UI$"": : UF1:-----HELP ROUTINE EXIT----- : 250 : 245 : UQUB(U2%256U1%U3%2) : UQ%(UQUB)(UQ)::"" : UZ1:UV%(UT) 35-: UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):k: (UD$,24);"  HELP COMING ":: U1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$:UJUL: UJ$US$:UK$UG$:UJUP:UKUL: ,-----MENU------: EACHER INSTRUCTIONS"%J: " 4. QUIT "WT: " --------------------------------------"Y: " PRESS A NUMBER KEY (1-4) ";^: UL1:US$"1234":35:---INPUT ROUTINE---_: (UR$)1300`: US$"":UT$" "c:  T,UL%:(50003)053281,0:53280,00UP0:UG$"TUDENT NST":850a: " EMEMBER TO HIT AFTER": " TYPING YOUR ANSWER. HIS TELLS": " THE COMPUTER TO ACCEPT WHAT YOU": " HAVE TYPED.": " YPE  HEN TYPING IN THE WEIGHTS YOU"1" NEED ONLY THE FOLLOWING KEYS:j" 0 1 2 5 K G RETURN AND DEL"" HEN YOU FEEL THAT THE WEIGHT IS "" BALANCED WITH THE LEFT SIDE THEN "" HIT THE KEYS IN THE PUBLIC"$: " DOMAIN. F THIS IS NOT THE CASE"D: " PLEASE CONTACT:"q: " OMMODORE USINESS ACHINES": " 3370 HARMACY VE.: " GINCOURT, NTARIO": " ANADA 1 24" 64 : 2000:850I0: " HIS PROGRAM IS FOR ELEMENTARY "z1: " GRADES. HE STUDENT IS TO BALANCE"2: " THE RIGHT SIDE WITH THE LEFT SIDE,"3: " USING THE WEIGHTS GIVEN. HILE " 4ATION INST-----Y: "":UT,UL%"]: UP0:UG$"ROGRAM OD":850.: 835E: UZ1UP%:217N: v-----TO USE 8032 LOAD CBM4032-----"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM  0" 12" Y4"C O M M O D O R E|6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESSROUTINE-----T: UPUP1W: ""(UT$UP$,21);(UG$UP$,14);UPK\: " --------------------------------------"a: (UD$,24);(UP$,3);"HELP OR QUIT - PRESS H "f: "":k-----PLEASE WAIT REMARK-----p: (UD$,24);"  : 300' UZ0:US$UJ$:UG$UK$:UPUJ:ULUK^ (50003)053281,1:"";:53281,6:53280,14:220h ""; UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3) : UQ,UQ%(UQUB): : U1,U1% : U2,U2% : U4,U4% : U3,U3%1 : $.: "":UT,UU%:(50003)053281,9:53280,8*/:J1: " MENU"|6: " --------------------------------------";: " 1. BEGIN BALANCE PROGRAM"@: " 2. STUDENT INSTRUCTIONS"E: " 3. T (UR$)1000,400,500,396h: 300=-----RE-ENABLE STOP KEY AND END-----o: (50003)1(50003)160(50003)0399: UU71:(50003)053281,6:53280,14: "":: 875:-----STUDENT INSTRUCTIONS-----: "":U AT ANY TIME TO RETURN".: " TO THE MENU FOR HELP. OU WILL"[: " BE RETURNED TO THE PLACE IN THE": " PROGRAM WHERE YOU LEFT OFF AS": " SOON AS THE OPTION FROM THE MENU": " IS COMPLETE.":2000:850 " . ": 2000: UZ1UP%:217: @-----TEACHER INSTRUCTIONS-----s: "":UT,UL%:(50003)053281,2:53280,10: UP0:UG$"EACHER NST.":850: " O THE BEST OF OUR KNOWLEDGE,": " THIS PROGRAM I": " (416) 499-4292"UP1: 2000: 850:E" ROGRAM AME: ALANCE l" RITTEN Y : . . EANS"" PGRADED Y : RMAND IELLO"" HIS PROGRAM WILL RUN ON ANY" 64 : " BALANCING BOTH SIDES THE STUDENT";5: " PRACTICES SOME MATH SKILLS AND ALSO"h6: " FAMILIARIZES HIM/HERSELF WITH "7: " METRIC WEIGHTS."D: 2000:"":59468,12N: UZ1UP%:217W: X-----PROGRAM MODIFIC": UU71:   ** T I T L E P A G E **M""";:UT,UU%:(50003)053280,14:53281,6c$I138:"";:{&I122:"";:(I137:"";:*I122:"";:," ." SPACE BAR OR WAIT":I0<A$:A$" "II1:I2508287>: T1$"":T2$"":T3$"":T4$"":I0C@: 300bC-----SPACE BAR PRESS-----H: (UD$,24);"PRESS SPACE BAR TO CONTINUE"L: UI$:UI$" "844N: R-----PAGE DESIGN  ONE MOMENT PLEASE... "u: -----SET UP VARIABLES-----k: UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024: UT59468:UU%12:UL%14:UP%1146:UM32768: 50003,0(50003)0UB1024:U1209:U2210:U32 -----SET VARIABLES-----&!B$(3),W$(11),K$(11),U(2,11),V(11):B$(13)" ":DID02!: 9008!:V!-----CHECK FOR 8032-----w!: "":"": SHIFTED SPACE!: (UB40)96700!-----MEMORY CHECK-----!: (0)2000937!:  ,155:1098,133:1099,144:1100,234:1103,133#1104,145:1105,234:1082,2342#: (50003)160955d#: 1093,88:1094,228:1097,85:1102,228:965|#: (50003)1990#: 1093,49:1094,230:1097,46:1102,230:965#2099,141:2100,20:2 ON THIS MACHINE!":%: UZ1UP%:UP%:UZ0:-----PROGRAM STARTS HERE----->%"";:(50003)053281,6:53280,14R% C MT DEANS 81%DIDDID1:UT$" BALANCE":UG$"":UP0:850%" NUMBER OF WEIGHTS TO USE (1 TO 5) ? ";%US$:B$B$X$A$::X$:B$B$X$ '`I03:J,K:CL$(I)(C$,J):CR$(I)(C$,K):5'jW$(0)"   ":1880X'tW$""'~B1$"ݩ ":B2$"G "'S$"":N$(13)"":SS$(W35:Q$UR$:W(Q$):W(W)1195(A$(Q$,1):A$"*"12704)A$"G"(Q$)2"  YOU FORGOT UNITS!":2000:1195a)(Q$,(Q$)1,1)"K"W((W.0001)1000))W9999"  TOO BIG!":2000:1195)W(W)" NO FRACTIONS OF A GRAM!":1660:LE WITH ONLY"EE"WEIGHTS"*A2000 +FWT0:"":T116:11)X$::11)XX$D+PWWZ:W1$B1$(" "(W),4)B2$:E0:WL2:I3:W4$""}+ZV$(1)"125"(13):V$(2)"50KG":V$(3)"G":V$(4)(13)+d1630:W3$"":S$N$"UPTO"EE"WEIGHTS"N$;+nC1+x"5(F1))(1999(F3)):1400,Q$;:C4:1400 -" "N$N$;:EE1:WW0EEE:1520J-OK0:L111:WWV(L)W3$W3$W$(L):U(0,L)0:WTWTWW:OK1l-:OK0""E$""N$;:EE1-E3W3$W3$""-W4$W3$:WL0:I3-1630:(W$,72 1630::1950:2000.61195.@"LIGHT":1950:2000#/JSS$"SHOULD BE":WL1:W4$W2$:I0:1640:1950:2000-/O1195A/T PASS WL,I,W4$g/^W$;:J111:K$(J)W$(U(WL,J));:/hB$(B(I))""CL$(I)P$B$W1$:""32)CR$(I)P$B$W4$/r/|DE12000::/DE110000::/" "0" Ҥ "H0" ţ Ҥ "s0"8 8"0" 8  8 "0"11:U4214:UC204:UU2048 (50003)0UT53272:UU%21:UL%23:UP%2139:UM1024G : UD$""| : UP$" " : UT$" BALANCE ": PLACE PROGRAM TITLE HERE!!!!!!!!!!!!!!!*** : "THIS MACHINE DOES NOT HAVE ENOUGH"": "MEMORY TO RUN THIS PROGRAM !"*": UU713": P": "":(50003)0962"-----BASIC 2.0 OR 4.0 OR C-64 SETUP-----"1075,133:1076,144:1077,234:1079,4:1080,133:1081,145"1091101,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,3$: UU48: DISABLE STOP KEY$: 800: TITLE$: 300: MENU$: "THE PGM WILL NOT WORK"12345":UL1:35:EE(UR$")")%$ DID1 1195&("":875&)A$"":P$"": &.I02Y&8A$" ":J04:X$:A$A$X$B$::B$(I)A$:B(I)I:&BB(2)0:B(3)2:C$"8888":A$""&LJ06:X$:P$P$X$A$::B$""&VJ05:X$$,82EE)N$(X$" ":XX$""((E$N$" ":E$E$E$L(UT$" BALANCE":UG$"":UP0:850("";:J111:K$(J)W$(J);:::"";(" WEIGHT ON LEFT PAN ? ";(US$"0125KGH":UL8:1200)WT1:W0W((1(1)7)):WT0*W2$"":C0:ZW:L111:U(0,L)L:U(2,L)L:"* L1111T*F0:V(L)ZZZV(L):W2$W2$W$(L):CC1:F1w*C3F1W2$W2$""*(CEEL1:1340*2F11300*<:Z0WT1" NOT POSSIB?";:Q$:Q$""1400+} WW10000 Q$(20),(Q$)20:11)""X$N$"";:WW0:1390L,F0:K1(V$(C)):FFK(Q$(V$(C),K,1))::F01400g,C1440,1460,1470,1480,F4Q$;:C2:WW(Q$):1400,1480,Q$;:CF(F1):WW(WW10(F3)E)N$;:EEEWW0:1390.ZW:L1111:U(1,L)L:V(L)ZU(1,L)0:ZZV(L)".:2(WWT)1560,1580,1600Q."HEAVY":I2:1630:I1:1630:1950:2000."SS$"SHOULD BE":WL1:W4$W2$:I0:1640:1950:2000.'1195.,"GOOD":II04:III3: "0" 8Ҥ Ƥ "1" 8 Ҥ Ƥ "D1" 8  ҤƤ "o1" 8  Ҥ"1" "1"  "2:" "," "," ",""3D" "," ",""03N7,7,1,13,7,7,13,1p3XI111:W((" 1 2 5 10 20 50100250500 1 2",3I2,3))3bC(("11122233344",I,1)):C1910,1920,1930,194034" "::4-----SPACE BAR PRESS-----45: (UD$,24);" PRESS SPACE BAR TO CONTINUE "N5: UI$:UI$" "844W5: 0 1 2",3I2,3))3bC(("11122233344",I,1)):C1910,1920,1930,19403 "("";:SUM100"";/(US$"1234567890H":UL3:35:AN(UR$)L( ANSUM COCO1:1340V((1790i(< RIGHT ANSWERy(> UM378,32(@ UM180,42:I1100:(BI19(D F(F UMF,42(H J *" /*" Y*" *" *"*"*" *" +' Y$"Y" 1040+, 2400+ "WRONG ANSWER", UM180,42:I1100:,I111, F),& UMF,428,0 J180:F,: UMF,32L,DR,I,N180,220,219,179,178,218,258,298,338,378,418,"";:(50003)053281,7:2320,"  "-R" " .\" "O.f" "~.p" ".z" ". "/" "%0" "T0" "0" "0"   THE QUESTION WAS ";A;"+";B;"="18 " THE ANSWER IS";SUM 2= QQ6 835:104022B " DO YOU WANT TO DO MORE ? ";P2L US$"YN":UL1: 35:Y$UR$Y2Q QQ0m2V Y$"Y" 10402` " YOU HAD ";N;" QUESTIONS"2j " YOU ANSWEREDK ";CO;" RIGHT"2t " THAT IS ";(CON100.5);" PERCENT"2 835: "?1 " "o1 "YOU BLEW IT!!"1 I 1 38201$ :(50003)053281,61. " 8 "1" ţ 8 "2" Ťţ 8 "@2"ţ 8 "t2&" 8 "," 8 "," 8 "20" "," "," "," lK$(I)K$:W$(I)W$:V(I)V::3vW$""(W48)"":VW:4W$""((W),2)"":K$"":VW:K4W$""((W),3)" ":K$" ":VW:4W$""(W48)"KG ":K$" ":VW1000:4(UD$,25);4 X1 3((1)(QSLL))&B((1)(QSLL))&SUM A B 'A$(A):B$(B)*' (A$)5 A$" "A$:1262J' (B$)5 B$" "B$:1263s'"";A$'"+";B$' "180:(J UMF,32(L(N:FFUM!)P F1,64: F1,64: F41,77:F41,77: F39,78:F39,780)ZI1200:l)d F1,32: F1,32: F39,32:F41,32: F41,32:F39,32{)nI1800:)")" )"  *" +" 1+" Y+" ":835k+ QQ6 1040+" DO YOU WANT TO DO MORE ? ";+"US$"YN":UL1: 35:Y$UR$+$QQ0 "- " "5-*" "d-4" "->" "-H" " " /" ":/" "i/" "/" "/"  "0" "1" "?1 " "o1 "YOU BLEW IT!!"1 I 1 38201$ :(50003)053281,61. "  910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$ $ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1)  +++ 250 245, UQUB(U2%256U1%U3%2)H UQ%(UQUB)(UQ)::""[ UZ1:UV%(UT)d 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB(U2%256U1%U3% $:UL$UT$:UJUP:UKUL , ** MENU **&-:U."":UT,UU%:(50003)053281,9:53280,8[/:x1" MENU"6" --------------------------------------";" 1. BEGIN BONDS "@" 2. STUDENT INSTRU00 ** RE-ENABLE STOP KEY AND END **H(50003)1(50003)160(50003)0399rUU71:(50003)053281,6:53280,14~"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0UT$" ONDS": #DS O IRST OUPON NTER THE"9" NUMBER OF PERIODS TO PASS BEFORE"`" RECEIVING THE FIRST COUPON."o" EG.1" 4. ERIODS NTER THE NUMBER OF":" YEARS."" EG 10 (YEARS)" 5. LL INPUTS MUST BE GREATER THA1UP%:217 ** TEACHER INSTRUCTIONS **J"":UT,UL%:(50003)053281,2:53280,10xUT$" ONDS":UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F T" ROGRAM AME: ONDS 5" RITTEN Y : OBERT . RAKE^" PGRADED Y : HRYL LDHAM " HIS PROGRAM WILL RUN ON ANY" 64 " 64  835 1480 D THE 'CBM 4032' PROGRAM"UU717  ** T I T L E P A G E **k""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I137:"";:*I122:"";:," ."  10" O2" w4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO ** ;("":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 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 +++ UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h v 835:850| (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HELP ROUTINE EXIT 3) UQ,UQ%(UQUB): U1,U1%& U2,U2%2 U4,U4%@ U3,U3%1H 35z UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4) UJ$US$:UK$UGCTIONS"#E" 3. TEACHER INSTRUCTIONS"?O" 4. QUIT"nT" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,400,500,396h3 UG$"TUDENT NST":UP0:850V" 1. OUPON ALUE NTER DOLLAR VALUE OF":" THE COUPON."j" EG $1000"" 2. ATE NTER BOND INTEREST RATE." *ŠԠŠ*"" EG. .25 (25%) " 3. N 0."835:850+" OTE:O ADVANCE FROM ONE QUESTION TO"P" THE NEXT PRESS THE BAR"|" F AT ANY TIME YOU WISH HELP"" PRESS 'H' ."" NSWERS ARE GIVEN TO THE NEAREST"" DOLLAR."835UZHIS IS NOT THE CASE"" PLEASE CONTACT:"B" OMMODORE USINESS ACHINES"e" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UP1: 835: 850: NUZ1UP%:217W!X ** PROGRAM MODIFICATION INST **2Y"":UT,UL%R]UP0:UG$"ROGRAM OD":850[835oUZ1UP%:217u ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOA UD$,24);"PRESS SPACE BAR OR WAIT":I0.<A$:A$" "II1:I250828R>T1$"":T2$"":T3$"":T4$"":I0[@300wC ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** P ONE MOMENT PLEASE... "u  ** SET UP VARIABLES **kUX$"@":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U2210:U3211  ** SET VARIABLES **900 ** CHECK FOR 8032 **1"":"": SHIFTED SPACEH(UB40)96700a ** MEMORY CHECK **u (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !"UU71 1093,88:1094,228:1097,85:1102,228:965 (50003)1990A 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: BONDS"! !UP0!UG$" PROGRAM""850"UT,UU%"""S"" COUPON VALUE? $ ";:US$"H.0123456789"i"UL8 : 35:V$UR$t" (13)"" RATE(DECIMAL)? ";:US$"H.0123456789":UL4" 35:R$UR$"# (R$,(V((1R)N))(1(1((1R)P)))(1(1(1R)))$: 9)"PRESENT VALUE IS $";7$((PV.005)100)100""Q$" MORE (Y OR N)? ";p$US$"YNH":UL1: 35:Y$UR$$ Y$"Y" 1185$$$@850:""$J" HIS ROUTINE WAS DESIGNED FROR%" PERIOD. HIS ROUTINE ALLOWS YOU TO &" ENTER THE STUDENT CALULATED VALUES FORM&" ANY AND ALL OF THESE AND CALCULATE Am&" CORRECT PRESENT VALUE."{&835:850& " Y CONTROLLING THE NUMBER OF"&" PAYMENTS, A SINGLE SU^ HANDLE ANY PRESENT"(" VALUE QUESTION, ALONG WITH BONDS.(""(:835:M&" ANY AND ALL OF THESE AND CALCULATE Am&" CORRECT PRESENT VALUE."{&835:850& " Y CONTROLLING THE NUMBER OF"&" PAYMENTS, A SINGLE SU  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. :  REVISAGE DESIGN ROUTINE **TUPUP1%W""(UT$UP$,21);(UP$UG$(UP),18)T\" --------------------------------------"c`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);":U4214:UC204:UU2048+(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198OUD$""UP$" "UT$" ONDS ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***"":(50003)0962! ** BASIC 2.0 OR 4.0 OR C-64 SETUP **_1075,133:1076,144:1077,234:1079,4:1080,133:1081,1451091,155:1098,133:1099,144:1100,234:1103,1331104,145:1105,234:1082,234(50003)1609552126,234:2127,141:2128,21:2129,3!UU48: DISABLE STOP KEY !800: TITLE0!300: MENUa!"THE PGM WILL NOT WORK ON THIS MACHINE!":!UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **!"";::(50003)053281,6:53280,14!UT$"1)"." "": 1300"(:"#2" # PDS TO FIRST COUPON? ";:US$"H0123456789":UL22#< 35:N$UR$=#F(13)i#P" # PERIODS? ";:US$"H0123456789":UL2y#Z 35:P$UR$#n #xV(V$):R(R$):P(P$):N(N$)#} V0R0N0P0 1190#PVM A NEED$T" TO CORRECT STUDENT WORK ON PRESENT"2%^" VALUE CALCULATIONS WITH RESPECT TO":" BONDS."@%c835:850n%h" HE PROBLEM WAS THAT A STUDENT WOULD%r" MISCALCULATE THE COUPON VALUE, THE%|" DEFERRMENT OR THE INTEREST RATE PEM PRESENT VALUE"'" CAN BE CALCULATED. OR THE CASE OF A"0'" BOND WITH TWO OR THREE COUPON VALUES,"\'" CALCULATE EACH COUPON SEQUENCE AND"r'" THEN COMBINE.'835:850'" T SHOULD BE OBVIOUS THAT THIS"'" PROGRAM WILLED BY DAVE SCHEELE. UNDER AN EXPERIENCE '82N ! GRANT IN OXFORD COUNTY!T ":p # +++ INPUT SECTION +++ (UO,0:UR$"":UI$"" *UL0UL80 -" ";:UC,0 2UI$:UI$""50 7UI$(13)(UR$)1UC,1:" ";:85 <UI$(20)1 ,(UR$)1) s" ";:50; x ++ CHECK FOR VALID CHARACTERS ++M }(US$)0150] US$US$UX$n US1(US$) UI$(US$,US,1) UI$"": ** STANDARD INPUT ** (UI$)46 UI$(32) (UI$)48(UI$)57170  00UZ0:US$UJ$:UG$UK$:UPUJ:ULUKR(50003)053281,1:"";:53281,6:53280,14:220\"";~UT$UL$:UT,UV%:UQUBUB900UQ,UQ%(UQUB):U1,U1%U2,U2%U4,U4%U3,U3%1(UD$,24);(UP$,7);"HELP - PRESS H (UR$)UL505 A120: CHECK FOR VALID CHARACTERE FUR$UR$UI$O KUI$;W P50| U +++ CHECK FOR HELP REQUEST +++ ZUR$UX$195: EXIT TO HELP ROUTINE _UF1240 dUF0:: f ++ CHECK DELETE ++ i(UR$)150 nUR$(UR$6"EDUCATIONAL8"SOFTWARE5: ** COMMODORE LOGO **m;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRESS  (UI$)65(UI$)90180 ? (UI$)193(UI$)218UI$"":b (UT)UU%UI$((UI$)128):h u UI$"": UF1: +++ HELP ROUTINE EXIT +++ 250 245 UQUBUB900 UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 3ETURN>"-(UD$,13)" WHAT IS THE NUMBER? ";:UP%:3040_UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):(UD$,24);"  HELP COMING ":U1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL 3. TEACHER INSTRUCTIONS"&O" 4. QUIT"UT" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE_(UR$)1300`US$""c(UR$)1000,400,500,396h3000 UP0:UG$"TUDENT NST":850=1)"HIS PROGRAM HELPS YOU WITH MULTIPLI-"p1)"CATION. HE COMPUTER WILL ASK YOU SOME"1)"QUESTIONS SUCH AS '5 ? = 20' . OU"1)"HAVE TO TYPE IN THE NUMBER THAT SHOULD"1)"BE WHERE TO ADVANCE FROM ONE QUESTION"-1)"TO THE NEXT PRESS THE BAR"`1)"F AT ANY TIME YOU WISH TO RETURN"1)"TO THE PRESS H "835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003DORE USINESS ACHINES"" 3370 HARMACY VE.A" GINCOURT, NTARIO"c" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: RAIN RANE X" RITTEN Y : AVX ** PROGRAM MODIFICATION INST **Y"":UT,UL%7]UP0:UG$"ROGRAM OD":850@835TUZ1UP%:217Z ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRA "";:&I122:"";:(I137:"";:**I122:"";:O," q."  0" 2" 4"C O M M O D O R E **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"*LUI$:UI$" "8440NPR ** PAGE DESIGN ROUTINE **\TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870a(UD$,24); T59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0M(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$""UP$"   (0)2000937!"THIS MACHINE DOES NOT HAVE ENOUGH"4!"MEMORY TO RUN THIS PROGRAM !"?!UU71E!_!"":(50003)0962! ** BASIC 2.0 OR 4.0 OR C-64 SETUP **!1075,133:1076,144:1077,234:1079,4:1080,133:1081,145 1,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,3|#UU48: DISABLE STOP KEY#800: TITLE#300: MENU#"THE PGM WILL NOT WORK ON THIS MACHI1)"MULTIPLICATION SKILLS BY DRILL. ""%.1)"FAMILY OF NUMBERS IS DRILLED TEN TIMES,"O%81)"AFTER WHICH THE STUDENT'S SCORE IS"}%B1)"PRINTED. HE COMPUTER WILL GIVE A"%L1)"COMMENT THAT IS APPROPRIATE TO THE"%V1)"SCORE. F THEF NUMBERS FOR INTENSIVE STUDY,"'1)"OR THE COMPUTER CAN RANDOMLY CHOOSE"A'1)"DIFFERENT FAMILIES FOR EACH QUESTION."t'1)" N EXAMPLE OF A NUMBER FAMILY IS THE"'1)"12 IN '12 2 = 24'."''1)"DO YOU WANT THE COMPUTER  ""XX);:IXX21:B$;:J120:J,I.XI03:RUB20240I:R,93:R1,32:R40,75:R39,74&.bJ120:J,IG.lR40,93:R39,32:I1500:m.vI15:(UD$,11);:J1I:"";:." "(C$,7I):J150:J,I.RUB238:B$(B$,30)C$." ";*" Σ";"+"  ";U+"  ";+"   ";+"  . ";," ":XX14-G(((B))1)3:G3G2!-&G9G10T-0B$((C),2):(B$)1C$A$((B$)):D$"":1860|-:C$A$(((B$,1))):D$A$(((B$,1)))-DB$"    "-N";:I212G:J1I:" ";:J:B$;."     "/J120:J,I:RRRI180:XX12GU/J1I2:"";::"";:I112:" "C$;"";f/J120:J,I/I901:RRR40I:R,93:R39,74:R40,75/R79,32:R80,32:J(UP$,7);"HELP - PRESS H " fUH0:"":(k ** PLEASE WAIT REMARK **^p(UD$,24);" ONE MOMENT PLEASE... "du ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024 U "0 UT$" Π X": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***6 P  ** SET VARIABLES **Y 900_ :e :  ** CHECK FOR 8032 ** "":"": SHIFTED SPACE (UB40)96700  ** MEMORY CHECK **"1091,155:1098,133:1099,144:1100,234:1103,133$"1104,145:1105,234:1082,234;"(50003)160955j"1093,88:1094,228:1097,85:1102,228:965"(50003)1990"1093,49:1094,230:1097,46:1102,230:965"2099,141:2100,20:210NE!":$UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **.$"";::(50003)053281,6:53280,6Z$:900:UX$"":UT$" BRAIN CRANE X":UP0u$UH1:850:N11:N21::$I09:A$(I)::1280$1)" HIS PROGRAM 'BUILDS UP' A STUDENT'S"$ STUDENT DID NOT GET ALL"&`1)"THE QUESTIONS CORRECT, THE SAME NUMBER"B&j1)"FAMILY WILL BE DRILLED AGAIN. HE RANGE"}&t1)"OF FAMILIES AVAILABLE IS FROM 1 TO 12.":835:850&~1)" OU HAVE THE OPTION OF CHOOSING ONE"&1)"FAMILY O TO PICK"' 1)"RANDOM NUMBERS? ";:US$"YN":UL1:35:L81( UR$"N"L80::UR$"":1310`(" WHAT GRADE IS THE STUDENT IN ? ";:US$"0123456789":UL2:35(R912:UR$"4"UR$""R99((2250(JXJX1:UPJX1:850:(UD$,16)(5);:ZA$(75:(UD$,15)"RIGHT!!!RIGHT!!!"::T6T61)*(UD$,13)UP$(UD$,24)UP$"";:NRNR1:N11:N21Z*" ";*" ֥ ";*"  ";+"  ";',"NUMBER  ";Z," ղ";," BOX ѳ";," ʱ 200::"4 "  "5 "  "B5 "    "o5 "  "5 "  "5 " 120:J,I/D$""835:2030/GG4:C$D$:D$"":18600JX10Y0:2250:15200850'014)"FAMILY OF"AAS0 "TOTAL RIGHT TOTAL WRONG"~0*" "04""8)NR28)NW"":NR10NW0>NR5"  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  PR FECT!!!!!!":"YOU'RE TOO GOOD FOR ME!!";:I1202z"YOU'RE TOO GOOD FOR ME!!";'2J150:a2"YOU'RE TOO GOOD FOR ME!!";o2J150:w2:28352NR10"":JX0:NR0:NW0:15202ED BY DAVE SCHEELE. UNDER AN EXPERIENCE '82N ! GRANT IN OXFORD COUNTY!T ":p # +++ INPUT SECTION +++ (UO,0:UR$"":UI$"" *UL0UL80 -" ";:UC,0 2UI$:UI$""50 7UI$(13)(UR$)1UC,1:" ";:85 <UI$(20)1;3US$"1234567890":UL2:35:AA(UR$):A713AA50AA1"":22803 2260*4x I2(ZA$):A$(((ZA$,I,1)))"";::a4 I2(ZA$):J15:"???";::" ";::4 "   "4 "   ,(UR$)1) s" ";:50; x ++ CHECK FOR VALID CHARACTERS ++M }(US$)0150] US$US$UX$n US1(US$) UI$(US$,US,1) UI$"": ** STANDARD INPUT ** (UI$)46 UI$(32) (UI$)48(UI$)57170     "5 "  "#6 "   "L6 "":IUMUM39:I,102:I960,102:v6 IUM40UM96040:I,102:I39,102:6 US$"0123456789":UL2:35:6A811 00UZ0:US$UJ$:UG$UK$:UPUJ:ULUKR(50003)053281,1:"";:53281,6:53280,14:220\"";~UT$UL$:UT,UV%:UQUBUB900UQ,UQ%(UQUB):U1,U1%U2,U2%U4,U4%(UD$,24);(UP$,7);"HELP - PRESS H " (UD$,13)" WHAT IS THE NUMBER? ";:UP%:3040QUD%((U2%256U1%U3%)UB)40:(UD$,UD%1):(UD$,24);"  HELP COMING ":U1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL, ** MENU **-:,."":UT,UU%:(50003)053281,9:53280,82/:O1" MENU"~6" --------------------------------------";" 1. BEGIN BRAIN CRANE -"@" 2. STUDENT INSTRUCTIONS"E" 3. TEACHER OOPS!! LET'S TRY IT AGAIN.":22201HNR8"LET'S TRY TO DO BETTER BY PRACTISINGSOME MORE.":2220h1RNR10"WOW! ALMOST PERFECT. LET'S DO IT AGAIN AND SEE IF WE ";1\NR10"CAN GET 10!":22201f""1p"PEROGRAM 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. :  REVISUP%:3002UG$" QUESTION #":ZZ$"+":L81A71:AA((1)501)$3AAA:B((1)A1):CAB:S$" "<3A71UX$"H":1520V3UL2:US$"0123456789"3" WHAT NUMBER FAMILY SHOULD BE PRACTISED"3" (BETWEEN 1 AND 50) "05 > (UR$)UL505 A120: CHECK FOR VALID CHARACTERE FUR$UR$UI$O KUI$;W P50| U +++ CHECK FOR HELP REQUEST +++ ZUR$UX$195: EXIT TO HELP ROUTINE _UF1240 dUF0:: f ++ CHECK DELETE ++ i(UR$)150 nUR$(UR$ "4 "  "5 "  "B5 "    "o5 "  "5 "  "5 " (UI$)65(UI$)90180 ? (UI$)193(UI$)218UI$"":b (UT)UU%UI$((UI$)128):h u UI$"": UF1: +++ HELP ROUTINE EXIT +++ 250 245 UQUBUB900 UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 3 AN EILSON +" RUCE OHNSON V" HIS PROGRAM WILL RUN ON ANYv " 64  " 64 :835:850:1040D835:"":UT,UU%NUZ1UP%:217W 59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0L(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$""UP$" INSTRUCTIONS"O" 4. QUIT"FT" --------------------------------------"qY" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE_(UR$)1300`US$""c(UR$)1000,400,500,396h300 ** RE-ENA "UU71  ** TO USE 8032 LOAD CBM4032 **k"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"w1093:  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:" "TUDENT NST":850-1)"HIS PROGRAM HELPS WITH SUBTRACTION."]1)"HE COMPUTER WILL ASK SOME QUESTIONS"1)"SUCH AS '5 - ? = 4' . OU HAVE TO"1)"TYPE IN THE NUMBER THAT SHOULD BE"1)"WHERE THE QUESTION MARK IS. N THIS 6"EDUCATIONAL8"SOFTWARE4: ** COMMODORE LOGO **l;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRESS * TION"1)"TO THE NEXT PRESS THE BAR"I1)"F AT ANY TIME YOU WISH TO RETURN"o1)"TO THE PRESS H "x835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10 (UP$,7);"HELP - PRESS H "fUH0:"":'k ** PLEASE WAIT REMARK **]p(UD$,24);" ONE MOMENT PLEASE... "cu ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024 UT S"" 3370 HARMACY VE.," GINCOURT, NTARIO"N" ANADA 1 24"n" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: RAIN RANE -" RITTEN Y : AVE CHEELE " !  (0)2000937!"THIS MACHINE DOES NOT HAVE ENOUGH"3!"MEMORY TO RUN THIS PROGRAM !">!UU71D!^!"":(50003)0962! ** BASIC 2.0 OR 4.0 OR C-64 SETUP **!1075,133:1076,144:1077,234:1079,4:1080,133:1081,145 X ** PROGRAM MODIFICATION INST **Y"":UT,UL%6]UP0:UG$"ROGRAM OD":850?835SUZ1UP%:217Y~ ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM "/ UT$" ΠŠ-": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***5 O  ** SET VARIABLES **X 900^ :d :  ** CHECK FOR 8032 ** "":"": SHIFTED SPACE (UB40)96700  ** MEMORY CHECK ** BLE STOP KEY AND END **2(50003)1(50003)160(50003)0399\UU71:(50003)053281,6:53280,14h"":s875: ** STUDENT INSTRUCTIONS **UT$" RAIN RANE -""":UT,UL%:(50003)053281,0:53280,0UP0:UG$ ";:&I122:"";:(I137:"";:)*I122:"";:N," p."  0" 2" 4"C O M M O D O R E "1)"CASE, YOU WOULD TYPE IN '1'"C1)"(WITHOUT THE QUOTATION MARKS [']). HE"t1)"COMPUTER WILL THEN FIX THE QUESTION BY"1)"PUTTING YOUR ANSWER IN IT WITH A CRANE."835:UP2:8501)"OTE:O ADVANCE FROM ONE QUES *HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE")LUI$:UI$" "844/NOR ** PAGE DESIGN ROUTINE **[TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870a(UD$,24); UT$" RAIN RANE -": UP0:UG$"EACHER NST":850I" O THE BEST OF OUR KNOWLEDGE,"r" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINE R$)(6CDD$"":1660(@YY1:Y31630+)J" SORRY, THAT'S WRONG. PLEASE TRY AGAIN.":5000:D0:D$"N"[)TD0D$"0"(UD$,13);UP$:UP$:UP$:1570)^" THAT'S 3 WRONG ANSWERS. THE ANSWER IS":T8T81)`" "B;ZZ$C"="A:N10)h! "1091,155:1098,133:1099,144:1100,234:1103,133#"1104,145:1105,234:1082,234:"(50003)160955i"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! !";2J150:2"YOU'RE TOO GOOD FOR ME!!";3J150: 3:383593NR10"":JX0:NR0:NW0:1520G3UP%:3003UG$" QUESTION #":ZZ$"/":L81A71:AA((1)R91)3AAA:C((1)R91):BAC:S$" ! E!":$UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **-$"";::(50003)053281,6:53280,6W$:900:UT$" BRAIN CRANE":UP0:UG$""h$N11:N21::$I09:A$(I)::1270$1)" HIS PROGRAM 'BUILDS UP' A STUDENT'S"$1)"SUBTRAC!A$):A$(((ZA$,I,1)))"";::4 I2(ZA$):J15:"???";::" ";::(5 "   "U5 "    "5 "  "5 "  !L THE QUESTIONS"&`1)"CORRECT, THE SAME NUMBER FAMILY WILL BE"7&j1)"DRILLED AGAIN. HE RANGE OF FAMILIES"g&t1)"AVAILABLE IS FROM 1 TO 50.":835:850&~1)" OU HAVE THE OPTION OF CHOOSING ONE"&1)"FAMILY OF NUMBERS FOR INTENSIV!  "6 "":IUMUM39:I,102:I960,102:7 IUM40UM96040:I,102:I39,102:I7 14)"BRAIN CRANE":5)"WRITTEN BY: DAVE SCHEELE"u7 17)"DAN NEILSON":17)"BRUCE JOHNSON"7 17)"FOR":"MICROCOMPUTERS IN SPE!ICK"( 1)"RANDOM NUMBERS? ";:US$"YN":UL1:35:L80:UR$"Y"L81(22504(JXJX1:UPJX1:850:(UD$,16)R(5);:ZA$(B):2680:S$;(ZA$(C):2690:" ";:ZA$(A):2680:D0("(UD$,13)" WHAT IS THE NUMBER? ";:3040:D(U8 US$"0123456789":UL2:35:8 850:"PLEASE CALL YOUR TEACHER AND ASK HIM" 9& "OR HER TO READ THE TEACHER INSTRUCTIONS"N90 "SO THAT THE TYPE OF ADDITION QUESTION"i9: "MAY BE SET.":835:|9A811200::R":"MICROCOMPUTERS IN SPE \\.\opencbm0I]@K`$g"|l |$(|||>V| @!01RNR10"WOW! ALMOST PERFECT. LET'S DO IT AGAIN AND SEE IF WE ";2\NR10"CAN GET 10!":222032f""s2p"PERFECT!!!!!!":"YOU'RE TOO GOOD FOR ME!!";:I1202z"YOU'RE TOO GOOD FOR ME!!,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,3{#UU48: DISABLE STOP KEY#800: TITLE#300: MENU#"THE PGM WILL NOT WORK ON THIS MACHIN!"3A71UX$"H":15203UL2:US$"0123456789"4" WHAT NUMBER FAMILY SHOULD BE PRACTISED"C4" (BETWEEN 1 AND"R9") ? ";p4US$"1234567890":UL2:35:AA(UR$):A714AA50AA1"":22804 22604x I2(Z!TION SKILLS BY DRILL. FAMILY"%.1)"OF NUMBERS IS DRILLED TEN TIMES, AFTER"I%81)"WHICH THE STUDENT'S SCORE IS PRINTED."v%B1)"HE COMPUTER WILL GIVE A COMMENT "%L1)"APPROPRIATE TO THE SCORE. F THE"%V1)"STUDENT DID NOT GET AL!"5 "    " 6 "  "66 "  "c6 "    "6 "  "6 " !E STUDY,"&1)"OR THE COMPUTER CAN RANDOMLY CHOOSE"+'1)"DIFFERENT FAMILIES FOR EACH QUESTION."^'1)" N EXAMPLE OF A NUMBER FAMILY IS THE"|'1)"12 IN '12 - Y = X'."''UH1:850:""'1)"DO YOU WANT THE COMPUTER TO P!CIAL EDUCATION"7" 8)"AN EXPERIENCE '81 PROJECT"7, 13)"SPONSORED BY"86 3)"OXFORD COUNTY BOARD OF EDUCATION"<8@ 8)"REVISED BY DAVE SCHEELE"j8E "MICROCOMPUTERS IN SPECIAL EDUCATION"8J 6)"AN EXPERIENCE '82 PROJECT":I12500::h+ `@> 1A~@ |||<T|<<xg]#@ǜ| <| www8@ ",w$+T|Machine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |cLFx |]|F/`"8|/``,,{`,   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~   & ! 0 `9 R}    " 9R|+T|lRlS W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|v4 4 decided to use transfer mode 4& HSMM,ؚ|@́|;́|ú| p<́| p|*+ ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|XRx  |"B| `||B|B| K|| |@|D \\.\opencbm0I]@K`$g"|l |$(|||>V| @@x| @A|>]|-| x>Ґ|Ґ|u|xu|>x $|$ؚ|P ||!x $lp> >h>>00, OK,00,00 OR,00,00 |=|>V|h+ x1F`>J?a|0= h V w ` q v n i s e t b Bt dh r\ 2P E0`hVwqbBt:i:s:e:d:r:2vnE:h+ I 0 Z0!wp|TSؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2FՌF .j FT d d,nnMicrosoft.Windows.SystemCompatible,processorh+ `@> 1A~@ |||<T|<<xg]#@ǜ| <| www8@ ",w$+T|Machine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |cLFx |]|F/`"8|/``,,{`,   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~   & ! 0 `9 R}    " 9R|+T|lRlS W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|v4 4 decided to use transfer mode 4& HSMM,ؚ|@́|;́|ú| p<́| p|*+ ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|XRx  |"B| `||B|B| K|| |@|D \\.\opencbm0I]@K`$g"|l |$(|||>V| @@x| @A|>]|-| x>Ґ|Ґ|u|xu|>x $|$ؚ|P ||!x $lp> >h>>00, OK,00,00 OR,00,00 |=|>V|h+ x1F`>J?a|0= h V w ` q v n i s e t b Bt dh r\ 2P E0`hVwqbBt:i:s:e:d:r:2vnE:h+ I 0 Z0!wp|TSؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2FՌF .j FT d d,nnMicrosoft.Windows.SystemCompatible,processor