Xh`@> 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| 4 4 decided to use transfer mode 4& HS,ؚ|@́|;́|ú| p<́| p|*+ ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|)x  |"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|Xhx1F`>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:XhI 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="6595b64144ccf1df",type="win32",version="1.0.2600.5581"C:\WINDOWS\WinSxS\Manifests\x86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.2600.5581_x-ww_dfbc4fc4.Manifestx86_Microsoft.Windows.GdiPlus_6595b64144ccf1df_1.0.2600.5581_x-ww_dfbc4fc4Microsoft.Wi GRAM !"!UU71!!"":(50003)0962-" ** BASIC 2.0 OR 4.0 OR C-64 SETUP **k"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" U3211:U4214:UC204:UU2048+ (50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198O UD$"" UP$" " UT$" & ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!** TO DO ? ";*US$"0123456789":UL2:35*J(UR$)* I1 J&+UG$"UESTION #":TCTC1:UPI1:850<+C(201(1)100)R+A(201(1)100)c+ A0 1530~+ CA(CA)0 1530+B(201(1)100)+" B0 1560+, CB(CB) ** PAGE DESIGN ROUTINE **TUPUP1%W""(UT$UP$,21);(UP$UG$(UP),18)T\" --------------------------------------"c`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0 g}J/ ** =36" " ORRECT": 1408(iEE1: E3 1402)n" RONG ANSWER. RY AGAIN. B = ";: 13707)z:" HAT'S THREE TRIES."\)|" HE CORRECT ANSWER WAS ";CBe)835m) K)TCTC1:UH1:UG$"":UP0:850)" O YOU WISH ANY MORE EXAMPLES ."  10" O2" w4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO ** 850&B(201(1)100)& B0 1240'A(201(1)100)' AB(AB)0 12403'C(201(1)100)N'  CB(CB)0 1280v'" F ";A;"X + ";B;"Y + ";C;" = 0'" THEN M = ";:D0'(US$"-.0123456789":UL4: 35'-M(UR$)'2'S THREE TRIES. HE CORRECT ANSWER",w" WAS ";CA:-|" THE Y-INTERCEPT IS : ";:G01-US$"-.0123456789":UL4:35>-Y(UR$)a- YCB " ORRECT":1707x-GG1: G3 1700-" RONG. RY AGAIN. Y-INTERCEPT = ";: 1670-:" 53280,14$ ETOBICOKE BOARD OF EDUCATION,% "SLOPE AND Y-INTERCEPT BY C EDEHNL% "PET COURSE MARCH 12,1981h%`TTI:TC1:UPTC:UT,UL%%tUG$"":UH1:UP0:850%~" F AX + BY + C = 0":%" THEN Y = MX + B":%" ".""835", 1300"6ZY1YY1 #@UG$"END":UH1:UP0#AYZ111620Z#E850:" YOU HAD";Z;"CORRECT FOR";YZ1;"WRONG."#J" THAT'S"(Z(Z(YZ1))100)"%!"#O1650#T850:"  PERFECT SCORE!!"#^" THAT'S 1(50003)160955 #1093,88:1094,228:1097,85:1102,228:965#(50003)1990M#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#*   ** SET VARIABLES ** 900 :!:! ** CHECK FOR 8032 **=!"":"": SHIFTED SPACET!(UB40)96700m! ** MEMORY CHECK **! (0)2000937!"THIS MACHINE DOES NOT HAVE ENOUGH"!"MEMORY TO RUN THIS PRO0 1560+6" F ";A;"X + ";B;"Y + ";C;" = 0,@" THEN THE X-INTERCEPT IS : ";:F01,JUS$"-.0123456789":UL4:35>,OX(UR$)a,T XCA " ORRECT":1660w,YFF1: F3 1650,^" RONG. RY AGAIN. X-INTERCEPT = ";: 1610,r:" HAT,24);" ONE MOMENT PLEASE... "u  ** SET UP VARIABLES **kUX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U2210:? ";)US$"YN":UL1: 35:A$UR$) A$"Y" 1210* A$"N" 1440*TCTC1:UPTC-*UG$"":UH1:850Y*" OW WILL PRINT AN EQUATION IN*" STANDARD FORM AND ASK FOR THE TWO  INTERCEPTS."*:" OW MANY DO YOU WISH ;(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 MAB " ORRECT":1360'<DD1: D3 1352$(F" RONG ANSWER. RY AGAIN. M = ";: 1320B(H:" HAT'S THREE TRIES."g(J" HE CORRECT ANSWER WAS ";AB(P:" AND B = ";:E0(ZUS$"-.0123456789":UL4: 35(_BY(UR$)(d BYCB HAT'S THREE TRIES. THE CORRECT ANSWER"-" WAS ";CB:-835. I".UH1:TCTC1:UG$"":UP0:850U." O YOU WISH ANY MORE EXAMPLES ? ";r.US$"YN":UL1:35:B$UR$. B$"Y" 1490.INTERCEPT = ";: 1610,r:" HATWHERE M = -A/B AND B = -C/B%:&" OTE THAT M IS THE SLOPE OF THE LINE"8&" AND B IS THE Y-INTERCEPT."h&::" OW MANY EXAMPLES WOULD YOU LIKE? ";&US$"0123456789":UL2:35:N(UR$)& K1 N&UG$"UESTION #":TCTC1:UPK1:00%!!"#h"   YOU'RE SO BRILLIANT, YOUR"$i" INTELLIGENCE IS BEYOND THE"F$j"  SCOPE OF THIS PROGRAM! WHY"p$k" DON'T YOU GET INTO SOMETHING"$m" HEAVIER LIKE CHEMISTRY OR":" ALGEBRA?"$rZ0:Y0:835:FOR";Y;2123,20:2124,3:2126,234:2127,141:2128,21:2129,3$UU48: DISABLE STOP KEY,$800: TITLE<$300: MENUm$"THE PGM WILL NOT WORK ON THIS MACHINE!":$UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **$"";::(50003)053281,6:  910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **: ** TO OUR BEST KNOWLEDGE THIS  PR " CEPT AS DEFINED BY THE GIVEN EQUATION."`" EMEMBER TO PRESS RETURN AFTER YOU":" HAVE ENTERED YOUR ANSWER.n835:850" F AX + BY + C = 0":" THEN Y = MX + B":" WHERE M = -A/B AND B = -C/B:" OTE THA US$"1234":35: INPUT ROUTINE_(UR$)1300)`US$""Fc(UR$)1000,400,500,396Oh300v ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: 835UZ1UP%:217' ** TEACHER INSTRUCTIONS **W"":UT,UL%:(50003)053281,2:53280,10xUP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. FG ":&U1%(U1):U2%(U2):U3%(U3):U4%(U4)NUJ$US$:UK$UG$:UL$UT$:UJUP:UKULTe, ** MENU **k-:."":UT,UU%:(50003)053281,9:53280,8/:1" MENU"6" --------------------------------------";" ROGRAM AME: LOPE & NTERCEPTS"8" RITTEN Y : . . EHN "\" PGRADED Y : " HIS PROGRAM WILL RUN ON ANY" 64 " 64  835:850I$((UI$)128):  UI$"":@ UF1: +++ HELP ROUTINE EXIT +++I 250R 245q UQUB(U2%256U1%U3%2) UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK(50003)053281,1:"";:53281PR$(PR):25600 PR$((PR),2)0 15)" = ";M$;"[";PR$;"]" 1 Y10Y1$(Y1):25901 Y1$((Y1),2)01 15)" = ";Y1$>1( W2:PP1G12 835M1< " = ":1560v/t RT2430,2620,1550/~ FRNX/ PR1:ZZ1P:PRPRFR:ZZ/ Y1MPR/ $ KUI$; P502 U +++ CHECK FOR HELP REQUEST +++Z ZUR$UX$195: EXIT TO HELP ROUTINEi _UF1240v dUF0:: f ++ CHECK DELETE ++ i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }D Y INTER-"" CEPTS FROM THE DISPLAYED EQUATION."D8351NUZ1UP%:2177W]X ** PROGRAM MODIFICATION INST **nY"":UT,UL%]UP0:UG$"ROGRAM OD":850b"NOT APPLICABLE"835UZ1UP%:217OGRAM 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. : # +++ INPT M IS THE SLOPE OF THE LINE'" AND B IS THE Y-INTERCEPT."5835:850d" O ADVANCE FROM ONE QUESTION"" TO THE NEXT PRESS THE SPACE BAR.""F AT ANY TIME YOU WISH TO RETURN"" TO THE MENU PRESS H RETURN." ** STUDENT INSTRUCTIONS **6"":UT,UL%:(50003)053281,0:53280,0WUP0:UG$"TUDENT NST":850" HIS PROGRAM GIVES AN EQUATION IN "" STANDARD FORM AND ASKS YOU TO INPUT"" THE VALUE OF THE SLOPE AND THE Y-INTER-" THIS 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:" 1. BEGIN SLOPE & INTERCEPTS"D@" 2. STUDENT INSTRUCTIONS"nE" 3. TEACHER INSTRUCTIONS"O" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) "; ^UL1: " N THIS PROGRAM, THE STUDENT IS";" EXPECTED TO TYPE IN THE SLOPE AND THE "k" X-INTERCEPT OF THE GIVEN EQUATION (IN "" THE FIRST SECTION).":" N THE SECOND SECTION, THE STUDENT"" IS SUPPOSED TO INPUT THE X AN,6:53280,14:220"";>UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3)SUQ,UQ%(UQUB):_U1,U1%kU2,U2%wU4,U4%U3,U3%135UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):(UD$,24);"  HELP COMIN LOAD CBM 4032 PROGRAM"1093:  ** T I T L E P A G E **S""";:UT,UU%:(50003)053280,14:53281,6i$I138:"";:&I122:"";:(I137:"";:) A$: A$"" 300*I122:"";:,"(US$)0150 US1(US$)+ UI$(US$,US,1)1 > UI$"":Y ** STANDARD INPUT **j (UI$)46{ UI$(32) (UI$)48(UI$)57170 (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%U ** TO USE 8032 LOAD CBM4032 **<"BEFORE RUNNING THIS PROGRAM ON AN 8032 r" LOAD THE 'CBM 4032' PROGRAM"}UU71 ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 UT SECTION +++" (UO,0:UR$"":UI$""2 *UL0UL80N + US$"" US$US$UX$a -" ";:UC,0u 2UI$:UI$""50 7UI$(13)(UR$)1UC,1:" ";:85 <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI 32768:UO158: 50003,04(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048s(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$""UP$" "UT$"  OES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !"UU71 :"":(50003)0962i ** 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: R):2150,\PR$((PR),2),f15)" = ";N$;:ZZ1P:"(";X$;")";::-p15)" = ";N$;"(";PR$;")"7-zY10Y1$(Y1):2190J-Y1$((Y1),2)^-15)" = ";Y1$l-W2:PP1u-835{--Q$" ["N$B$"]"P$" = ":1560-RT2250,2400115,145:2117,52:2118,234:2121,49:2122,14192123,20:2124,3:2126,234:2127,141:2128,21:2129,3WUU48: DISABLE STOP KEYh800: TITLEx300: MENU"THE PGM WILL NOT WORK ON THIS MACHINE!":UZ1UP%:UP%:UZ0: ** PROGRAM bNNN1*lT3C1N0N1*vN1N$"":1950+N1N$"-":1950+N0N$(N):1950,+N$((N),2)2+D+X(4(1))2O+XXX1f+X0X$(X):2000w+X$((X),2)}++B(26(1))65+B69B73B76B78B792010+B" (1) MAGNITUDE AND ANGLE OR"!L" (2) X,Y-COORDINATES"Z!V" ";:US$"12H":35:Z(UR$)!`UL4:"  HOW MANY VECTORS?";:US$"01H23456789":35:N(UR$)!e 850!j!tZ21260!~1460(M0M$(M):1490(M$((M),2)(1370(P(X1)N1 )T)13208)UH1:850:16)"ْ"r)" OU TRIED"NP"PROBLEM";:NP1"S,";)" AND GOT")" "NC"CORRECT FOR A SCORE OF";)NP0" 0";:"""""1340"W1N#" VECTOR"W":"G#UL4:5);:" X-COORD: ";:US$"-.0123456789H":35:X(UR$)# UL4:5);:" Y-COORD: ";:US$"-.0123456789H":35:Y(UR$)##X1X1X:Y1Y1Y## (W4)W4850:""#(#2&t15)""&~11)"BY .. ICHOLSON"'835:"";'(T13'2N1112.'<X11129'FP23L'PT3C1:1840V'Z1880`'d1960j'n2010'sUG$"UESTION:":UPNP:UH1:850'xP$""((P),2)""'"YPE: N )" = ";:ZZ1P:"[";FR$;"]";::.. Y10Y1$(Y1):2370/8 Y1$((Y1),2)/B 15)" = ";Y1$#/L W2:PP1,/V 8352/` _/j Q$" "M$"["N$B$"]"P$" = ":1560v/t RT2430,2620,1550/~ FRNX/ PR1:ZZ1P:PRPRFR:ZZ/ Y1MPR/ P%:UP%:UZ0: ** PROGRAM STARTS HERE **%"";::(50003)053281,6:53280,14^% MODIFIED FOR EXPERIENCE '82 BY PAUL CAPES, SARNIAo%"":UT,UL%z%:900%NP0:NC0%BL$" "%B1$ ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***7 ** SET VARIABLES **@900[ ** CHECK FOR 8032 **y"":"": SHIFTED SPACE(UB40)96700 ** MEMORY CHECK ** (0)2000937"THIS MACHINE D ,1550-FRNX-Y11:ZZ1P:Y1Y1FR:ZZ-YY12290-.10)"":12)"OU'RE CORRECT!":NCNC1:835:2400K.12)"ORRECT ANSWER:"].15)Q$" "w. FR0FR$(FR):2330. FR$((FR),2). 15)" = ";"[";FR$;"]";P$.$ 151103,1331104,145:1105,234:1082,234(50003)160955E1093,88:1094,228:1097,85:1102,228:965Z(50003)19901093,49:1094,230:1097,46:1102,230:9652099,141:2100,20:2101,3:2103,8:2104,141:2105,212106,3:2B$(B)++Q$" "N$B$P$" = ":1560+ RT2070,2220,1550,PR1:ZZ1P:PRPRX:ZZ(, Y1NPR8,*YY12110s,410)"":12)"OU'RE CORRECT!":NCNC1:835:2220,>12)"ORRECT ANSWER:":,H15)Q$" ",RPR0PR$(PSTARTS HERE ** "";::(50003)053281,6:53280,14 UG$""=  RESOLVING VECTORS :ANDY GAMBLE 79S COLUMBIA COLLEGEs  1619 W10 AVE VANCOUVER BC UP0:UT$" RESULTANT" .850:::X10:Y10 8" ARE YOUR VECTORS GIVEN IN:" :1557)(NCNP100.49);)"%.":835:UP%:300 *(40(Q$))22)Q$;3*"UL5:US$"0123456789-QN":35:Y$UR$L*,Y$"N"RT2:NPNP1]*6Y$"Q"RT3i*;Y(Y$)o*@*0M(11(1))5*:(M)21840*DM$(M)*N*XN(5(1))1*!""!:W1N!" VECTOR"W":"9"UL4:5);:" MAGNITUDE:";:US$"-.0123456789H":35:M(UR$)t"5);:" ANGLE: ";:US$"-.0123456789H":35:A(UR$):"XM(A180)"YM(A180)"X1X1X:Y1Y1Y" (W4)W4850:1460TO SKIP A QUESTION"'"H FOR HELP"("Q TO QUIT"J(RT1:W1:Z$"F "B$" = "X$", EVALUATE:"b((40(Z$))22)Z$x(T2050,2230,2410(NPNP1(W11500(T31500(CC1:C21500(MMYY12480/ 10)"":12)"OU'RE CORRECT!":NCNC1:835:26200 12)"ORRECT ANSWER:"&0 15)Q$" "@0 FR0FR$(FR):2520S0 FR$((FR),2)u0 15)" = ";M$;"[";FR$;"]";P$0 15)" = ";M$;:ZZ1P:"[";FR$;"]";::0 PR0""&B2$" "*&$B3$" "@&."";:7)B1$]&8Z16:7)B2$:7)B3$:q&B7)B2$:7)B1$&L""&V16)""&`13)""&j17)" " OUR KNOWLEDGE,"$" THIS PROGRAM IS IN THE PUBLIC"P" DOMAIN. F THIS IS NOT THE CASE"m" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO""  RESS SPACE BAR TO CONTINUE"LUI$:UI$" "844N7R ** PAGE DESIGN ROUTINE **CTUPUP1mW""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H U3,U3%1F 35x 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$:03)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **L1075,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)1609551093,88:1094,228:"BEFORE RUNNING THIS PROGRAM ON AN 8032 N" LOAD THE 'CBM 4032' PROGRAM"YUU71_  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:8"SOFTWARE: ** COMMODORE LOGO **T;(UD$,24);"PRESS SPACE BAR OR WAIT":I0v<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRESS **HUO,0:(UD$,24);"P ANADA 1 24" " (416) 499-4292";UH1:UP1: 835: 850:a" ROGRAM AME: ESULTANT" RITTEN Y : NDY AMBLE" PGRADED Y : EIL UNT" HIS PROGRAM WILL RUN ON ANY" N>"fUH0:"":k ** PLEASE WAIT REMARK **Ep(UD$,24);" ONE MOMENT PLEASE... "Kuh ** SET UP VARIABLES **UX$"H":UQ%(1024):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM YOU THE RESULTANT VECTOR IN":"  POLAR FORM."+835?UZ1UP%:217Ef ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UT$" ":UH1:UP0:UG$"EACHER NST":850" O THE BEST OF $!N$"Q"1590!N(UR$)"N$"""":1480/":V$"ARE":P$"S.":B1V$"IS":P$"."[" NB " CORRECT! ";:ZZ1:1560{" NB " WROONNGG!""" THERE "V$B"SIGNIFICANT DIGIT"P$"" YOU ARE NOW";Z;"FOR";Y; ** RE-ENABLE STOP KEY AND END **C(50003)1(50003)160(50003)0399mUU71:(50003)053281,6:53280,14y"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0 UT$" ":UH1 SIGNIFICANT DIGITS":UG$"QUESTION #"$ 850:B2((X)1000):B2$(B2):C1(B2$)18 B1((X)10)1G (B131310Y 2A1(X):Q$""g <A1$(A1)y FA2$(A1$,B1) P(A2$,1)"0"1330 ZC(A2$)2 dA1(A2$) nAB2A1:BC1C xYY1 UL$UT$:UJUP:UKUL , ** MENU **$-:S."":UT,UU%:(50003)053281,9:53280,8Y/:v1" MENU"6" --------------------------------------";" 1. BEGIN RESULTANT"@" 2. STUDENT INSTRUCTION1097,85:1102,228:965(50003)1990.1093,49:1094,230:1097,46:1102,230:965h2099,141:2100,20:2101,3:2103,8:2104,141:2105,212106,3:2115,145:2117,52:2118,234:2121,49:2122,1412123,20:2124,3:2126,234:2127,141:212 +++ HELP ROUTINE EXIT +++ 250$ 2459 UQUB(UB1024)U UQ%(UQUB)(UQ)::""h UZ1:UV%(UT)q 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB194 (I137:"";:*I122:"";:6," X."  y0" 2" 4"C O M M O D O R E6"EDUCATIONAL 64 " 64 $8358NUZ1UP%:217>WdX ** PROGRAM MODIFICATION INST **uY"":UT,UL%]UH1:UP0:UG$"ROGRAM OD":850835UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **  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$ "" PLEASE CONTACT:"2" OMMODORE USINESS ACHINES"U" 3370 HARMACY VE.y" GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UH1:UP1: 835: 850:" ROG UH1:UP0:UG$"TUDENT NST":850D" OR EACH NUMBER THAT APPEARS, YOU ARE"p" TO ENTER THE NUMBER OF SIGNIFICANT"" DIGITS IN THAT NUMBER. EMEMBER NOT TO"" COUNT ZEROES AT THE END OF A NUMBER."835UZ1UP%:217 X ** PROGRAM MODIFICATION INST **Y"":UT,UL%?]UH1:UP0:UG$"ROGRAM OD":850H835\UZ1UP%:217b ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRA 2. STUDENT INSTRUCTIONS"8E" 3. TEACHER INSTRUCTIONS"TO" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)10  0" <2" d4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESU2%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)TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)A\" --------------------------------------"P`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT P 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(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198<UD$""nUP$" "UT$" Ԡ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** ** SET VARIABLE"":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 +++RAM AME: IGNIFICANT IGIT+" RITTEN Y : IKE ONTINOP" PGRADED Y : TEVE UTZ{" HIS PROGRAM WILL RUN ON ANY" 64 " 64  835NUZ1UP%:217W  ** TEACHER INSTRUCTIONS **B"":UT,UL%:(50003)053281,2:53280,10hUH1:UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASEM"UU71$  ** T I T L E P A G E **X""";:UT,UU%:(50003)053280,14:53281,6n$I138:"";:&I122:"";:(I137:"";:*I122:"";:," ."00,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,0S SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828?>T1$"":T2$"":T3$"":T4$"":I0H@300dC ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN SIGNIFICANT DIGITS"@"  LEASE... "u  ** SET UP VARIABLES **XUX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048P 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(S **900 ** CHECK FOR 8032 **"":"": SHIFTED SPACE5(UB40)96700N ** MEMORY CHECK **b (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !"UU71"":(500$ 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)  0.00025","2""$t"20.020","5","563.002","6","5600","2","0.00045","2","5.01","3","6.0","2"h$~"1.00010","6","0.01320","4","6.310E-09","4","5.20","3","698","3"$"36.58","4","9800","2","0.0003","1","36.00001","7"$" OOD HOW!"," REAT!","  06,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 KEYt": 800: TITLE OSCC": 300: MENU": "THE PGM WILL NOT WORK ON THIS MACHINE!":": UZ1U  : " MEMORY TO RUN THIS PROGRAM !" : UU71 : , : "":(50003)0962^ -----BASIC 2.0 OR 4.0 OR C-64 SETUP----- 1075,133:1076,144:1077,234:1079,4:1080,133:1081,145 1091,155:1098,133:1099,144:1100,234:1103(I): 835:1610*"TR2" RONG, TRY AGAIN.":WW1: 835:15300+," TILL WRONG, THE ANSWER IS ";SF$(I):WW1A+6 835:X$"A"P+@W4 1620^+JL: 1650h+T 850+Y" OU SEEM TO BE HAVING SOME"+^" PROBLEMS. EE YOUR TEACHER F53272:UU%21:UL%23:UP%2139: UD$""M: UP$" ": UT$" IGNIFICANT IGITS": PLACE PROGRAM TITLE HERE!!!!!!!!!!!!!!!***: -----SET VARIABLES-----: 900 GE.(2" HAT IS YOUR NAME? ";(<UL10: 35:N$UR$)AUS$"1234567890H-.")""@)" 'LL GIVE YOU A NUMBER "N$"."k)" OU TELL ME HOW MANY SIGNIFICANT)" DIGITS IT HAS.):::X$"D": 835)L110)UG$"EVIEW UES.": UPUP1 W: ""(UT$UP$,21);(UG$UP$,14);UP?\: " --------------------------------------"va: (UD$,24);(UP$,6);"HELP - PRESS H "f: "":k-----PLEASE WAIT REMARK-----p: (UD$,23);" ONE MOMENT PLEAS23 + 56.1 - 10","52","999/999","1.00","21.450 + .001","21.451"B'"6.5.254","1.6","58.2 + 6.10 + 3.001","67.3","65/8.45","7.7"'"54 + .99 + 100","155","2512","3.0E02","56.23 -96.5","-40.3"'"1491","5E02",".001 + 62.8 - 84","-21","778.4/65.4","1ANTASTIC!"%" AY O O!"," HAT'S REAT!"," UP!"?%" O AN O!"," ERRIFIC!"," NOTHER IGHT NE."a%" ES IR!"," REAT !!!"%" HAT'S OOD!"," HAT'S IT!!"%" TAUGHT YOU WELL!"," HOOPIE!"%" RE YOP%:UP%:UZ0:-----PROGRAM STARTS HERE-----#"";:(50003)053281,6:53280,14%#8A#BD120:N$(D),SF$(D):V#LD120:C$(D):q#VD120:Q$(D),A$(D):#`D110:SN$(D),P$(D):#j"6.54E-03","3","65.001","5","9.00E11","3","110","2"," ,133:1104,145 1105,234:1082,234!: (50003)160955@!: 1093,88:1094,228:1097,85:1102,228:966X!: (50003)1990!: 1093,49:1094,230:1097,46:1102,230:966!2099,141:2100,20:2101,3:2103,8:2104,141:2105,21"21OR+h" HELP!+r W0 835:+wUG$"LL IGHT":UP1: 850%,|" OU DID IT! OU GOT THEM ALLG," RIGHT WITHOUT AN ERROR!"S, 835:N$(20),SF$(20),F%(20),C$(20),Q$(20),A$(20),SN$(10),P$(10):0-----CHECK FOR 8032-----Q: "":"": SHIFTED SPACEk: (UB40)96700-----MEMORY CHECK-----: (0)2000937: " THIS MACHINE DOES NOT HAVE ENOUGH")I(20(1)1):F%(I)11500*F%(I)1:C1C11:TR0:C1151530*D120:F%(D)0::C10-*UPL: 850Z*" OW MANY SIGNIFICANT DIGITS ARE*" THERE IN THE NUMBER ";N$(I)" ? ";*UL2: 35:AN$UR$:TRTR1:* AN$SF$(I)C$E... "u: -----SET UP VARIABLES-----W: UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024~: UT59468:UU%12:UL%14:UP%1146(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT1.9"'"0.210 - 66.45 + 57.9","-8.3"6( "0.0024","-3","6520","3","89001","4","0.005001","-3","89","1","96200","4"m("0.000006","-6","0.04","-2","654","2","32140","4"("":UT,UL%:UP0:UG$"EVIEW"(# 850((" ELLO, MY NAME IS EORIT":I0<A$:A$" "II1:I250828+>: T1$"":T2$"":T3$"":T4$"":I07@: 300VC-----SPACE BAR PRESS-----H: (UD$,24);"PRESS SPACE BAR TO CONTINUE"L: UI$:UI$" "844N: R-----PAGE DESIGN ROUTINE-----TU CHEATING?"," O IT AGAIN!!!"&" ORRECT"," ERY GOOD!"'&" THINK YOU'VE GOT IT!"q&"5.12 + 0.654","5.77","236.1","1.4E02","12.564 + 6.1 + 70.89","89.6"&"123.55","68","564-58.6","505","65.12/24.1","2.70","65/147","0.44"'"6. " HIS PROGRAM WILL DRILL YOU ON ?" YOUR KNOWLEDGE ABOUT SIGNIFICANTR" DIGITS.~" F YOU HAVE ANY TROUBLE, ASK YOUR" TEACHER FOR HELP. 835:UP1: 850" OTE:O ADVANCE FROM ONE QUESTION" "  4. QUIT"3T: " --------------------------------------"aY: " PRESS A NUMBER KEY (1 - 4) ";^: UL1:US$"1234":35:---INPUT ROUTINE---`: US$""c: (UR$)1000,400,500,396h: 300-----RE-ENABLE STOP KEY AND E: UP0:UG$"EACHER NST.":850<: " O THE BEST OF OUR KNOWLEDGE,"h: " THIS PROGRAM IS IN THE PUBLIC": " DOMAIN. F THIS IS NOT THE CASE": " PLEASE CONTACT:": " OMMODORE USINESS ACHINES"  56U1%U3%)UB)40:(UD$,UD%1):T: (UD$,24);"  HELP COMING ":: U1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$:UJUL: UJ$US$:UK$UG$:UJUP:UKUL: ,-----MENU------: .: "":UT,UU%:" PGRADED Y :..CHMIDT+" HIS PROGRAM WILL RUN ON ANYI" 64 l" 64 UP2: 835: 850" HIS PROGRAM PROVIDES STUDENTS WITH!" A DRILL IN THE AREA OF SIGNIFICANT &193 (UI$)218UI$"":? : (UT)12(UT)29UI$((UI$)128):H : X : UI$"": : UF1:-----HELP ROUTINE EXIT----- : 250 : 245 : UQUB(U2%256U1%U3%2) : UQ%(UQUB)(UQ)::"" : UZ1 : 300 Y: "":UT,UL%]: UP0:UG$"ROGRAM OD":850": 8359: UZ1UP%:217B: j-----TO USE 8032 LOAD CBM4032-----"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM": --CHECK FOR HELP REQUEST-----D Z: UR$UX$195: EXIT TO HELP ROUTINEV _: UF1240e d: UF0:: f-----CHECK DELETE----- i: (UR$)150 n: UR$(UR$,(UR$)1) s: " ";:50 x-----CHECK FOR VALID CHARACTERS----- }: (US$TRY AGAIN":2850:" D$;" OK? (Y/N) ";:US$"YNH":UL1:35:UR$"Y":, 300;6 " YPE A NUMBER 1 TO 9? ";3;@ US$"123456789H":UL1:35B;J Q(UR$):};T TL$RI$"":N115:RI$""::R$R$"GRADE"G"SPEED"GI;^ ; ----- CLEAR ME  0" %2" M4"C O M M O D O R Ep6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WA8 PC1,99:8 PC1,78:8 PCL,78:8 PCL,100:8 PC,77:#9 PCPCTL2A1:TTTTT:AAAA2A1:(TT)8(AA)11-9 3000\9 E1:1(AA0)2(TT0)2790,2800,2820,28409 D$" SLOWER!TRY AGAIN":28509 GG1:GGND-----': (50003)1(50003)160(50003)0399T: UU71:(50003)053281,6:53280,14c: "":q: 875:-----STUDENT INSTRUCTIONS-----: "":UT,UL%:(50003)053281,0:53280,0UP0:UG$"TUDENT NST":850 TO THE NEXT PRESS THE BAR.":" F AT ANY TIME YOU WISH TO RETURN"c" TO THE PRESS 'H' ."o: 835: UZ1UP%:217: -----TEACHER INSTRUCTIONS-----: "":UT,UL%:(50003)053281,2:53280,10 (50003)053281,9:53280,8/:31: " MENU"e6: " --------------------------------------";: " 1. SIGNIFICANT DIGITS"@: " 2. STUDENT INSTRUCTIONS"E: " 3. TEACHER INSTRUCTIONS"O: ": " 3370 HARMACY VE.1: " GINCOURT, NTARIO"V: " ANADA 1 24"y : " (416) 499-4292" UP1: 835: 850:" ROGRAM AME :IGNIFICANT IGITS" RITTEN Y :..RAYUZ0:US$UJ$:UG$UK$:UPUJ:ULUKN (50003)053281,1:"";:53281,6:53280,14:220X ""; UT$UL$::UQUB(U2%256U1%U3%3) : UQ,UQ%(UQUB): : U1,U1% : U2,U2% : U4,U4% : U3,U3%1 : 35: UD%((U2%2" DIGITS. HE QUESTIONS ARE GIVEN IN:+" A GROUP WITH THE COMPUTER PROVIDINGb0" ASSISTANCE AND ENCOURAGEMENT.5" HERE IS NO FINAL SCORE GIVEN.D: 835N: UZ1UP%:217W: X-----PROGRAM MODIFICATION INST-----)0150 : US1(US$)1 : UI$(US$,US,1): : J : UI$"":h -----STANDARD INPUT-----} : (UI$)46 : UI$(32) : (UI$)48 (UI$)57170 : : (UI$)65 (UI$)90180 :  : (UI$)PSSAGE -----; TL$;; Z110; : " "; Z; TRY HARDERPROBLEMS":2850I: GG1:GGGG10:G1"TRY AGAIN!":835:300: D$" TRY EASIERPROBLEMS":2850: D$" FASTER! UU71:   ** T I T L E P A G E **A""";:UT,UU%:(50003)053280,14:53281,6W$I138:"";:o&I122:"";:(I137:"";:*I122:"";:," ."GG109 G9" WELL DONE":835:300: D$" TRY HARDERPROBLEMS":2850I: GG1:GGGG10:G1"TRY AGAIN!":835:300: D$" TRY EASIERPROBLEMS":2850: D$" FASTER! UM1024)96XX40%LLM5:RM35:SL3:XX80LM25:RM55&VUT,UL%:1140=&`RED$(28):GRN$(30):BLU$(31):WHT$(5)n&jCYN$(159):PUR$(156):YEL$(158):BCK$""&t QN QUESTION NUMBER&~ NA NUMBER OF ANSWERS FOR EACH& PT POINTS EARNED 4,141:2105,21$2106,3:2115,145:2117,52:2118,234:2121,49:2122,141L$2123,20:2124,3:2126,234:2127,141:2128,21:2129,3j$UU48: DISABLE STOP KEY{$800: TITLE$300: MENU$"THE PGM WILL NOT WORK ON THIS MACHINE!":$UZ1 70.b FORMAT S$.lDN$"".v(DN$,LN2); /LLRMLM1)/FX0:LE(S$):LELL2010\/L1LL:(((S$,L,1))127)32FXFX1:LLLL1c/Lt/LLL111/(S$,L,1)" "1990/L:LLL1:LF1/LM)(S$,L 937!"THIS MACHINE DOES NOT HAVE ENOUGH""""MEMORY TO RUN THIS PROGRAM !"-"UU713"M""":(50003)0962|" ** BASIC 2.0 OR 4.0 OR C-64 SETUP **"1075,133:1076,144:1077,234:1079,4:1080,133:1081,145"1091,155:  COULD GET WAS"(MX)" POINTS.":1890-|SCPTMX:SC.85S$RED$"XCELLENT WORK!":17003-SC.70S$"OOD WORK!":1700V-SC.50S$"EEDS MORE WORK!"-SC.50S$RED$"LEASE SEE THE TEACHER!"-835:UPUP1:850-" O YOU WANT TO L%14:UP%1146:UM32768:UO158: 50003,0; (50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048z (50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198 UD$"" UP$" I)IN 1600*TRTR1*TR21560*1570'+S$RED$"OU ARE WRONG!RY AGAIN!":1890::X1500:X]+" ":1360+"S$RED$" ORRY, CORRECT ROOTS ARE: "(A(1))" AND"(A(2))+,PTPT3TR1:S$:8 UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844N>R ** PAGE DESIGN ROUTINE **JTUPUP1tW""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870a(UD$,24);(UP$,7);"HELP - L:1890:TR0(FQN$(" "(N),2)". ")PS$BCK$QN$Q$:LNSL2:1890)ZC(1)(A(1)A(2))6)dC(2)(A(1))(A(2))V)nI12:C$(I)((C(I)),2):{)xS$" X2":C(1)0S$S$"+ ")C(1)0S$S$"- ")S$S$C$(1)"X ")C(2)0S$S$"+  910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** ---GENERAL INPUT ROUTINE----::#-----INPUT SECTION----- (: UR$ & LM/RM LEFT/RIGHT MARGIN& LN WHERE PRINTED' SL STARTING LINE FOR SCREEN6' XX CHARACTERS PER LINEV' Q$ QUESTION A$(N) ANSWERSw' TR TRIES AT GETTING ANSWER' CA NUMBER OF RIGHT ANSWER' S$ STRING TO BE PRINTED' YA Y UP%:UP%:UZ0: ** PROGRAM STARTS HERE **%"";::(50003)053281,6:53280,14#%8% QUIZ EQU ROOTSL% R MACNAUGHTON[% FEB 1982e%""~%$QN10:NA1:MA9:PT0%.(UM)96XX22:LM0:RM21:SL1:(14):1120%8:%BXX40:(1);::LML1XX/S$(S$,LELLF):LF0:LNLN2:1920/LM)S$;/0835 0:0'0  ****DATA****d0 "HAT ARE THE ROOTS OF THE FOLLOWING EQUATION? "r0  END,END"A"C$"Z"C$((C$)128).XIN$IN$C$:C$"";:17 1098,133:1099,144:1100,234:1103,133#1104,145:1105,234:1082,234)#(50003)160955X#1093,88:1094,228:1097,85:1102,228:965m#(50003)1990#1093,49:1094,230:1097,46:1102,230:965#2099,141:2100,20:2101,3:2103,8:210  PLAY AGAIN? ";-UL1:US$"YN":35- UR$"Y" UP0:1000- 300. INPUT ROUTINE3.IN$"":UL5:US$"-0123456789"W.35:IN$UR$:IN(UR$):LE(IN$)].:q.DC$((C$)127).NC$"A"C$"Z"C$((C$)128).XIN$IN$C$:C$"";:17  "!UT$" ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***$!>! ** SET VARIABLES **G!900M!:S!:n! ** CHECK FOR 8032 **!"":"": SHIFTED SPACE!(UB40)96700! ** MEMORY CHECK **! (0)2000 35:1590+6 N:1620,@S$RED$"HAT'S ! OOD ORK!":1890:2030,JPTPT3TR1:1590],TUPUP1:850:LN4:S$BLU$"HAT'S THE END OF THIS QUIZ.":1890,^LNLN2:S$"OU GOT"(PT)" POINTS.":1890,hMXQN2,rLNLN4:S$"HE MOST YOU  PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **Lp(UD$,24);" ONE MOMENT PLEASE... "Ruo ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:U  ")C(2)0S$S$"- ")S$S$C$(2))S$S$" = 0"*LNLN3:1890C*LNLN3:S$BCK$" IRST OOT : ":1890:1750`* I12: A(I)IN 1510l*:1530*LNLN2:S$BCK$" ECOND OOT: ":1890:1750*LNLN2: A(3"":UI$"" *: UL0UL80. -" ";:UC,0E 2: UI$:UI$""50r 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 U--- OUR ANSWER NUMBER' MA ROOTS ARE FROM -MA TO MA' Q$(N1QN( I12/(A(I)(.5(1)2MA)MA[(A(I)0 (A(I))1 (A(1)A(2))1300b((I{(2UG$" UESTION":850(7S$BLU$"ڠ:"(PT)" POINT":PT1S$S$"S"(<LNS ":875: ** STUDENT INSTRUCTIONS **N"":UT,UL%:(50003)053281,0:53280,0oUP0:UG$"TUDENT NST":850" HIS PROGRAM WAS DESIGNED TO HELP YOU":" DEVELOP YOUR SKILL IN FINDING THE ROOTS"" OF A TRINOMIAL. W QUIZ "%@" 2. STUDENT INSTRUCTIONS"OE" 3. TEACHER INSTRUCTIONS"|J" 4. MODIFICATION OF PROGRAM"O" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-5) E CAN BE CHANGED SO THAT THE RANGE":t" IS + TO -."!8355UZ1UP%:217;` ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71 $ UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3)9 UQ,UQ%(UQUB):E U1,U1%Q U2,U2%] U4,U4%k U3,U3%1s 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2% 835NUZ1UP%:217W#X ** PROGRAM MODIFICATION INST **4Y"":UT,UL%T]UP0:UG$"ROGRAM OD":850c" HE NUMBER OF GUESSES THAT YOU":d" CAN HAVE AT A QUESTION CAN BE ALTERED.":f" N LINE 1540 THE NUMBER 2(.. <  UI$(US$,US,1) $ UI$"":? ** STANDARD INPUT **P (UI$)46a UI$(32)~ (UI$)48(UI$)57170 (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128):  GHTON"" PGRADED Y : . EE :" HIS PROGRAM WILL RUN ON ANYZ" 64 " 64  835 850" HIS PROGRAM WILL HELP THE STUDENT":" TO DEVELOP THEIR SKILLS I $"" )UR$"":UI$""$ *UL0UL807 -" ";:UC,0K 2UI$:UI$""50u 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 UT,UL%:(50003)053281,2:53280,10.UP0:UG$"EACHER NST":850\" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE 122:"";:(I137:"";:*I122:"";:=," _."  0" 2" 4"C O M M O D O R E6" ILL GIVE YOU 2":." CHANCES TO GET THE ANSWER CORRECT. OU":[" WILL HAVE TO GIVE 2 ROOTS FOR EACH":" TRINOMIAL. OU WILL RECEIVE ONE POINT":" FOR EACH CORRECT ANSWER, AND AFTER":" YOU HAVE AQUIRED 20 POINTS, YOUR FINAL": ";^UL1:US$"12345":35: INPUT ROUTINE2_UA0:(UR$)1300=`US$""^c(UR$)1000,400,500,600,396gh300 ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"  ** TO USE 8032 LOAD CBM4032 **M"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"Y1093:y  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6#(142);$I138:"";:&I (U2):U3%(U3):U4%(U4)4UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL:K, ** MENU **Q-:."":UT,UU%:(50003)053281,9:53280,8/:1" MENU"6" --------------------------------------";" 1. BEGIN ROOTS 2.)"h" CAN BE CHANGED TO A DESIRED VALUE.":Bj" HE RANGE OF NUMBERS THAT SHOW UP IN":ql" QUESTIONS CAN BE SET BY ALTERING THE":n" CONTENT OF THE VARIABLE  ON LINE":p" 1060. T IS INITIALLY SET TO 9 BUT THE"r" VALU UI$"":& UF1: +++ HELP ROUTINE EXIT +++/ 2508 245W UQUB(U2%256U1%U3%2)s UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; N CALCULATING": " THE ROOTS OF A TRINOMIAL. HIS CAN":Q" ALSO BE USED TO MAKE UP A QUIZ FOR THE":b" CLASS.":" HE STUDENT IS GIVEN 10 DIFFERENT":" TRINOMIALS, AND 2 POINTS ARE GIVEN FOR":" EACH RIGHT TRINOMIAL.":  REQUEST +++0 ZUR$UX$195: EXIT TO HELP ROUTINE? _UF1240L dUF0::e f ++ CHECK DELETE ++v i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US$US$UX$ US1(US$) USINESS ACHINES"" 3370 HARMACY VE.?" GINCOURT, NTARIO"a" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: OOTS UIZ " RITTEN Y : . ACAU EDUCATIONAL8"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:( " MARK WILL BE SHOWN."835:UP1:850:UP0P" RESS AFTER EACH INPUT AND":" PRESS AND IF YOU WANT TO GO":" BACK TO THE MENU."835UZ1UP%:217 ** TEACHER INSTRUCTIONS ** "": ,15)30)(TI$,3,2)":"(TI$,5,2)!L(UD$,8)30)X"VN1"`R(6(1)1)""t13800"~R11210Q"S(N)S(N)1:S(N)MFMFS(N)m"(UD$,10)30)" "N|"NN11240"N1N"(UD$,13)30)N1"1240"NN1"1120"X"835: 0:1097,46:1102,230:965# 2099,141:2100,20:2101,3:2103,8:2104,141:2105,21_ 2106,3:2115,145:2117,52:2118,234:2121,49:2122,141 2123,20:2124,3:2126,234:2127,141:2128,21:2129,3 UU48: DISABLE STOP KEY 800: TITLE  "0123456789012345678901234567890"*14)"UMBER OF OLLS";)+"":ZI8SC1SC:6T(ZI));ZI"":ZI=+4);0""e+ZI19:" "("REQUENCY",ZI,1):ZI+>XX119X110:ZSS(X)2SC:ZTZS+CZS.252170+H(UD$,20);26XX1)" SPACE(UB40)96700  ** MEMORY CHECK ** (0)2000937K"THIS MACHINE DOES NOT HAVE ENOUGH"o"MEMORY TO RUN THIS PROGRAM !"zUU71"":(50003)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **107 "(D" "(NI1NR!)X" ݠ "()bIS)l" "Y)v{)X120N110:SC((MF1)8)1)""10)"")10)"  UP VARIABLES **3UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024qUT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:U  "'6" MAXIMUM # ROLLS "<'@" IN ONE TRIAL: "h'J" ^ "'T" ELAPSED TIME: "'^" PRESENT " "ѝ",CC,CC139,"";,CC,"";,CC119- "ѝ";- CC- CC139)-$ "ѝ";1-. CC;-8 "";R-B (UD$,4);:2590:s-L " ROLLS UNTIL ONE"-V 2590:-` " THIS PROGRAM ROLLS A SINGLE DIE AND"-j " $"123":35$K(UR$)1260,1930,300$d(UD$,8);#%nR15)"   ":1450J%xR65)"   ":1450q%R55)"   ":1450%R45)"   ":1450%R25)"   ":1450%R A BAR-GRAPH OF THE". " RESULTS.". 2590:. 835:+/ 12)"OW MANY TRIALS":12)"DO YOU WISH? ";T/ US$"0123456789H":UL3:35:TR(UR$)Z/ w/ "";:CC138:"";::-` " THIS PROGRAM ROLLS A SINGLE DIE AND"-j " 1310"UG$"RESULTS TABLE""X11N126#NR13:N1X125NR((N1X1)2)11#1840:(UD$,8);C#XX1X1NR1i# 10T(X));X;17T(S(X)));S(X);#25T(XNR));XNR;32T(S(XNR)));S(XNR)#X:835:X1#"":UT,UL%:UH1:850# 300: MENU !"THE PGM WILL NOT WORK ON THIS MACHINE!":>!UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **j!"";::(50003)053281,6:53280,14}!:900:UT,UL%!850:2560!1460!N10:MF0!.TI$"000000"!8X1TR!B(UD$ ";:ZSZS.5+RZS.252140+SZT14" ":2170,TXX110"":2170,V"":2170*,\ZS.75"":2170D,f"";:ZSZS1:2130K,zX,UO,0:(UD$,25);"PRESS SPACE BAR TO CONTINUE",844:X1:1310,850,CC118, 5,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,234v(50003)1609551093,88:1094,228:1097,85:1102,228:965(50003)19901093,49:1094,23  ")10)""*6)""*IB115I*6)"۳"O*y*6)""*6);:ZIX1101X1102:""(ZN$,ZI,1);9):ZI*:6) L%23:UP%2139:UM1024:UO198UD$""IUP$" "^T(ZZ)((ZZ))} S(90):ZN$"123456789": ** SET VARIABLES **900 ** CHECK FOR 8032 **"":"": SHIFTED 'h" ROLL TRIALS REQUESTED: "(r" "/((UD$,17)30)TR:=(0UH1:850i(5" "(:" #ROLLS FREQ.#ROLLS FREQ."(?" /TRIAL /TRIAL RECORDS HOW MANY ROLLS ARE REQUIRED".t " BEFORE ONE SPOT APPEARS FACE UP.".~ 2590:=. " YOU MAY REQUEST A TABLE OF RESULTS"c. " AT ANY TIME BY PRESSING 'T'."o. 2590:. " AFTER THE TABLE HAS BEEN DISPLAYED,". " PRESS 'G' FO R35)"   "%&"":UT,UU%:UH1:850:""4&" "`&" PRESENT TRIAL: "&" "&"" # ROLLS LAST TRL: "&,"  910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **:# +++ INPUT SECTION +++ (UO,0:UR$"":UI #11)"OULD YOU LIKE TO:" $(" 1. EE THE ABLE OF*$-" ESULTS;R$2" 2. EE THE REQUENCYt$4" AR RAPH; OR$7" 3. ETURN TO THE AIN"$<" ENU? ";$FUL1:US  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$ ETURNED TO THE PLACE IN THE"0" PROGRAM WHERE YOU LEFT OFF AS"]" SOON AS THE OPTION FROM THE MENU"v" IS COMPLETE."835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280, UP0:UG$"TUDENT NST":8506" HIS PROGRAM SIMULATES THE"^" STATISTICAL PROBLEM OF HOW"" MANY TIMES A DIE NEEDS TO BE"" ROLLED BEFORE A '1' APPEARS."" HE RESULTS ARE THEN PRESENTED" " 3370 HARMACY VE." GINCOURT, NTARIO">" ANADA 1 24"^" (416) 499-4292"m@835:850:B" ROGRAM AME: OLLS IL NE":19)"OT PPEARS"D" RITTEN Y : NKNOWNF" PGRADED Y  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,4 1UP%:217 ** TO USE 8032 LOAD CBM4032 **N"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14 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)FLM)S$;,l, ****DATA****, "ALCULATE: ", END,ENDEE THE TEACHER!"!+,LNLN4:1770)+6:_+@" ANT TO PLAY AGAIN ? ";:UL1:US$"YN":35t+J UR$"Y" 1001z+T+ FORMAT S$+DN$""+(D  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 C O M M O D O R E6"EDUCATIONAL78"SOFTWARER: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300 "":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 +++ 10 UP0:UG$"EACHER NST":8509" O THE BEST OF OUR KNOWLEDGE,"b" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" IN BOTH TABULAR AND GRAPHICAL"" FORM."+835:850W" EMEMBER TO HIT AFTER"v" TYPING YOUR ANSWER.|::" YPE AT ANY TIME TO RETURN"" TO THE MENU FOR HELP. OU WILL"" BE R :H" HIS PROGRAM WILL RUN ON ANY1N" 64 VP" 64 _R835sTUZ1UP%:217yVX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD":850835UZ 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  :53281,6$I138:"";:&I122:"";:/(I137:"";:G*I122:"";:l," ."  0" 2" 4" UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN 'ROLLS TIL ONE' @" 2. (UP$UG$(UP),18)\" --------------------------------------"+`UH0870_a(UD$,24);(UP$,7);"HELP - PRESS H "pfUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u ** SET 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( C ** SPACE BAR PRESS **0HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"GLUI$:UI$" "844MNmR ** PAGE DESIGN ROUTINE **yTUPUP1U(UT)UL%UT$" Ӡ̠Š":855VUT$" ROLLS TIL ONE DOT"W""(UT$UP$,21); $ 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) -INE 1100 = HARS PER LINE (80)+o" -INE 1070 = # OF POINTS/ANSWER (1)4835?UG$""SUZ1UP%:217Y~ ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGR ESS AND LEARNING" COMPREHENSION DURING THE IMPORTANT<" YEARS OF MATH TEACHING."ED835PKUG$""dNUZ1UP%:217jWX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UT$" ":UP0:UG$"ROGRAM OD":850_" HE :1100,234:1103,133#1104,145:1105,234:1082,234#(50003)160955F#1093,88:1094,228:1097,85:1102,228:965[#(50003)1990#1093,49:1094,230:1097,46:1102,230:965#2099,141:2100,20:2101,3:2103,8:2104,141:2105,21$ ** PROGRAM STARTS HERE ** %"";::(50003)053281,6:53280,14%!% QUIZ MULT5% R MACNAUGHTOND% FEB 1982V%$"":UT,UL%j%.QN10:NA1:PT0t%LXX40%`LM5:RM35:SL6:%t QN QUESTION NUMBER%~ NA NUMBER OF ANSWERS FOR EA  " !UT$" ڠ": PROGRAM TITLE!,! ** SET VARIABLES **5!900;!:A!:\! ** CHECK FOR 8032 **z!"":"": SHIFTED SPACE!(UB40)96700! ** MEMORY CHECK **! (0)2000937!"THI  TO BE PRINTED& YA YOUR ANSWER NUMBER' N2 MAXIMUM NUMBER' N1 MINIMUM NUMBER+'N15:N2129' UP0: Q$E'N1QNl'I12:A(I)((1)(N2N11))N1:'("";:S$"ڠ:"(PT)" POINT":PT1S$S$"S"'2LNSL:850:"":1 ;(UP$,7);"HELP - PRESS H "fUO,0:UH0:"":-k ** PLEASE WAIT REMARK **cp(UD$,24);" ONE MOMENT PLEASE... "iu ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU102 (1450(S$RED$" OU ARE WRONG!RY AGAIN!":1770:13502)S$RED$" HE CORRECT ANSWER IS"(AN)" "A)1770:835O) N:1500)S$RED$" HAT'S ! OOD ORK!":1770:835)PTPT3TR1:1470)"":UH1:850:LN4:S$BLU$ 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 80*SC.50S$" EEDS MORE WORK!"+"SC.50S$RED$" LEASE SEE THE TEACHER!"!+,LNLN4:1770)+6:_+@" ANT TO PLAY AGAIN ? ";:UL1:US$"YN":35t+J UR$"Y" 1001z+T+ FORMAT S$+DN$""+(D AM"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: TEACHER MAY CHANGE THE GRADE*a" LEVEL (2-6) BY MODIFYING THE FOLLOWING=c" VARIABLES:He"";vg" 2-INE 1280 = AX. # TO MULTIPLY (12)i" 1-INE 1280 = IN. # TO MULTIPLY (5)k" -INE 1420 = RIES AT ANSWERING (2)m" 2106,3:2115,145:2117,52:2118,234:2121,49:2122,141:$2123,20:2124,3:2126,234:2127,141:2128,21:2129,3X$UU48: DISABLE STOP KEYi$800: TITLEy$300: MENU$"THE PGM WILL NOT WORK ON THIS MACHINE!":$UZ1UP%:UP%:UZ0: CH% PT POINTS EARNED% LM/RM LEFT/RIGHT MARGIN& LN WHERE PRINTED4& SL STARTING LINE FOR SCREENQ& XX CHARACTERS PER LINEq& Q$ QUESTION A$(N) ANSWERS& TR TRIES AT GETTING ANSWER& CA NUMBER OF RIGHT ANSWER& S$ STRING S MACHINE DOES NOT HAVE ENOUGH"""MEMORY TO RUN THIS PROGRAM !""UU71!";""":(50003)0962j" ** 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 770:TR0'<QN$((N),2)". "(FS$BCK$QN$Q$:LNSL2:1770.(PS$(A(1))" X"(A(2))" = "" """@(ZLNLN3:1770p(dUL3:US$"1234567890H":35:IN(UR$):UR$""(nANA(1)A(2):LNLN3(x (ANIN).1 1480(TRTR1(TR21440 4 UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0R (50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048 (50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198 UD$"" UP$" " HAT'S THE END OF THIS QUIZ.":1770*LNLN2:S$" OU GOT"(PT)" POINTS.":1770*MXQN2c*LNLN4:S$" HE MOST YOU COULD GET WAS"(MX)" POINTS.":1770*SCPTMX:SC.85S$RED$" XCELLENT WORK!":1580*SC.70S$" OOD WORK!":15  **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) N$,LN);+LLRMLM1+FX0:LE(S$):LELL1890 ,L1LL:(((S$,L,1))127)32FXFX1:LLLL1',&L8,0LLL111P,:(S$,L,1)" "1870c,DL:LLL1:LF1,NLM)(S$,L1);::LML1XX,XS$(S$,LELLF):LF0:LNLN2:1800,b "";:&I122:"";:(I137:"";:)*I122:"";:N," p."  0" 2" 4"C O M M O D O R E  910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **# +++ INPUT SECTION +++(UO,0:UR$"":UI$""  R OR WON'T KNOW WHEN YOU" ARE FINISHED!"=" XAMPLE: 2 * 2 =  "e" TYPE IN '4' FOR A RESPONSE.s835:850" OTE:O ADVANCE FROM ONE QUESTION"" TO THE NEXT PRESS THE BAR."" F AT ANY TIM UCTIONS **'"":UT,UL%:(50003)053281,0:53280,0YUT$" ":UP0:UG$"TUDENT NST":850" ETS PRACTICE "" WILL ASK YOU A SERIES OF MATH" PROBLEMS USING YOUR KNOWLEDGE OF" MULTIPLYING TWOcPT),32))UMN23,81)NPTUM96040(NPT),32*NPT23UMNPT23,32*:RR1:19309("ѝ "@(P^((UM96040N)81FLAG1q(D24:R1:1930}((20);(FLAG11960(FLAG0(I(&R1(0(UMN)811900ENT INSTRUCTIONS"-E" 3. TEACHER INSTRUCTIONS"ZJ" 4. MODIFICATION OF PROGRAM"vO" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-5) ";^UL1:US$"12345":35: INPU'R111272'J(R19)2'IPM(7,J)11(I01830 (P1I(D125P-(DD1:RR1:19309("ѝ "@(P^((UM96040N)81FLAG1q(D24:R1:1930}((20);(FLAG11960(FLAG0(I(&R1(0(UMN)811900UB(U2%256U1%U3%3)! UQ,UQ%(UQUB):- U1,U1%9 U2,U2%E U4,U4%S U3,U3%1[ 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4)8%A$: A$"H"300%1440%K1150:K&D31930:"ѝ ":D%&D2(D2)1470:&1930:"ѝ ":DK&P((1).5)Y&P0P1c&RPRm&1520|&D181550&1930&P1"ё ":D&P1"ё ":D&PM(1,(R9)2) UI$"":' ** STANDARD INPUT **8 (UI$)46I UI$(32)f (UI$)48(UI$)57170l (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++HE BEST OF OUR KNOWLEDGE,"*" THIS PROGRAM IS IN THE PUBLIC"V" DOMAIN. F THIS IS NOT THE CASE"s" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO" *UL0UL80 -" ";:UC,03 2UI$:UI$""50] 7UI$(13)(UR$)1UC,1:" ";:85p <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++ ZUR$UX E YOU WISH TO RETURN""" TO THE PRESS H ."+8356UG$""JUZ1UP%:217Pq ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UT$" ":UP0:UG$"EACHER NST":850" O T NUMBERS.835:850," HE TWO NUMBERS WILL BE PRINTEDV" IN THE UPPER-LEFT PORTION OF THE"" SCREEN. OU ARE TO TYPE IN YOUR ANSWER" TO THE PROBLEM. EMEMBER TO PRESS" THE Β KEY AFTER TYPING IN" THE ANSWE  64  " 64 . 835:850T" HIS PROGRAM IS WELL SUITED|" FOR GRADE 2 TO GRADE 6 STUDENTS" IN THE AREA OF MATHEMATICS." HIS MAY BE USED TO CHECK THE" STUDENT'S PROGRT ROUTINE _(UR$)1300`US$""7c(UR$)1000,400,500,600,396@h300g ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTR(:(UM96040N)81FLAG1(DD24:R1:1930(N(20); )XFLAG11960)b1840!)lPOPT+)v11701)L)P$""(D$,D)(R$,R)U)P$;[)v)***TURN THE CORNER***)NN1)N232020)UM96040N,81)NPTUM96040(NUJ$US$:UK$UG$:UL$UT$:UJUP:UKUL"3, ** MENU **9-:h."":UT,UU%:(50003)053281,9:53280,8n/:1" MENU"6" --------------------------------------";" 1. QUIZ MULT"@" 2. STUD11630&D1923&"ID17:J(R9)2',PM(I,J)1PM(I1,J)1:PM(7,J)PM(7,J)1:13201'61930:"ѝ "8'@DP'JPM(6,J)1:PM(7,J)1Z'T1320v'^I19:PTPTPM(7,I):I'hPOPT1670'rLAG21320'|FLAG0:POPO1:1640'I1500:I HELP ROUTINE EXIT +++ 250 245? UQUB(U2%256U1%U3%2)[ UQ%(UQUB)(UQ)::""n UZ1:UV%(UT)w 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQ " ANADA 1 24"&" (416) 499-4292"<UP1: 835: 850:b" ROGRAM AME: UIZ ULT" RITTEN Y : . ACHAUGHTON" PGRADED Y : OBERT EE" HIS PROGRAM WILL RUN ON ANY"$195: EXIT TO HELP ROUTINE' _UF12404 dUF0::M f ++ CHECK DELETE ++^ i(UR$)150v nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US$US$UX$ US1(US$) UI$(US$,US,1) 835NUZ1UP%:217W&X ** PROGRAM MODIFICATION INST **7Y"":UT,UL%W]UP0:UG$"ROGRAM OD":850`835tUZ1UP%:217z ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032  "  " DOMAIN. F THIS IS NOT THE CASE"." PLEASE CONTACT:"X" OMMODORE USINESS ACHINES"{" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292" 44:1077,234:1079,4:1080,133:1081,145. 1091,155:1098,133:1099,144:1100,234:1103,133P 1104,145:1105,234:1082,234g (50003)160955 1093,88:1094,228:1097,85:1102,228:965 (50003)1990 1093,49:1094,230:1097,46:1 N THE"!" MIDDLE COLUMNS THAN IN THE END COLUMNS."P" HEN A COLUMN IS FULL, THE BALLS ARE"" REDIRECTED TO THE TOP AND THE PROCESS"" IS REPEATED."835850"F AT ANY TIME YOU WISH TO RETURN"" TO THUP$" "OUT$" ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***Uo ** SET VARIABLES **|PM(7,9)900:: ** CHECK FOR 8032 **"":"": SHIFTED SPACE((UR$)1300`US$""$c(UR$)1000,400,500,396-h300T ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H ")fUH0:"":Hk ** PLEASE WAIT REMARK **~p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **UX$"":UQ%(1000):UB32768:U1196:U2197:U3198:"THE PGM WILL NOT WORK ON THIS MACHINE!":/"UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **[""";::(50003)053281,6:53280,14x"**PROBABILITY MACHINE**"**BY JO ANN COMITO**"**COPYRIGHT 1978 BY**"**SUNY STONY BROOK**"C 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@3"#tUT,UU%$~(50003)053281,1:"":53281,6:53280,14:1170$""?$ I17:J19:PM(I,J)0:J,IX$PT0:N0:FLAG0:N10a$R18o$D2162y$1930$I1(D2)2$" ";$I$RR1$D$:$J110:10 LOAD THE 'CBM 4032' PROGRAM"UU71A ** 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)0532UP1: 835: 850:!" ROGRAM AME: ROBABILITY I" RITTEN Y : O NN AMITOm" PGRADED Y : " HIS PROGRAM WILL RUN ON ANY" 64 " 64  102,230:965!2099,141:2100,20:2101,3:2103,8:2104,141:2105,21P!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!E PRESS H. "835UZ1UP%:217= ** TEACHER INSTRUCTIONS **m"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"UB40)96700 ** MEMORY CHECK ** (0)2000937<"THIS MACHINE DOES NOT HAVE ENOUGH"`"MEMORY TO RUN THIS PROGRAM !"kUU71q"":(50003)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **1075,133:1076,1":UT,UL%:(50003)053281,0:53280,05UP0:UG$"TUDENT NST":850e" HIS PROGRAM SIMULATES A PROBABILITY"" MACHINE. BALL WILL FALL THROUGH A"" MAZE. OTICE THAT THERE IS MORE PROB-"" ABILITY OF THE BALL ARRIVING IU4216:UC167:UU1024)UT59468: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$"" $**8/1/78**".**REVISED 8/4/78**#8"":10)"PROBABILITY MACHINE";#B"":12)"BY JO ANN COMITO"k#L" COPYRIGHT, SUNY STONY BROOK, 1978"|#VI11000:I#`D$""#jR$"00C ** 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)\" --------------------------------------")" ";:J:$ I15:J110:10)" ";:J$$I%(N11813700%2(UM18N1)81UM18N1,32<%<N1N11M%FFLAG21660W%P1400%Z(UM(N118)40)81(UM(N118)40),32%dN1N11%nFLAG21660%xD1:R19:1930:""%D2180,14:53281,6$I138:"";:&I122:"";:2(I137:"";:J*I122:"";:o," ."  0" 2" 4" OR C-64 SETUP **#1075,133:1076,144:1077,234:1079,4:1080,133:1081,145Y1091,155:1098,133:1099,144:1100,234:1103,133{1104,145:1105,234:1082,234(50003)1609551093,88:1094,228:1097,85:1102,228:965(50003)  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 M1024:UO198UD$""9UP$" "UT$" RIME ACTORS": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** ** SET VARIABLES **900:: ** CHECK FOR 8032 UT 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 ++18) \" --------------------------------------"`UH0870Oa(UD$,24);(UP$,7);"HELP - PRESS H "`fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES ** 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):  2" /4"C O M M O D O R ER6"EDUCATIONALq8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:# 835#(1090OR ANY NUMBER YOU WISH.")"" F THE NUMBER IS PRIME THE COMPUTER"H"" WILL SAY IT IS PRIME."g"$" NPUT A (0) TO QUIT."p".835"B850:"""LA0"V" HAT NUMBER? ";:US$"0123456789":UL9:35:N(UR$)"`IME"!" FACTORS FOR ANY NUMBER YOU WISH.")"" F THE NUMBER IS PRIME THE COMPUTER"H"" WILL SAY IT IS PRIME."g"$" NPUT A (0) TO QUIT."p".835"B850:"""LA0"V" HAT NUMBER? ";:US$"0123456789":UL9:35:N(UR$)"`"UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3)7UQ,UQ%(UQUB):CU1,U1%OU2,U2%[U4,U4%iU3,U3%1q35UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):(UD$,24);"  HELP COMING ": U1%(U1):U2%1990 1093,49:1094,230:1097,46:1102,230:965? 2099,141:2100,20:2101,3:2103,8:2104,141:2105,21{ 2106,3:2115,145:2117,52:2118,234:2121,49:2122,141 2123,20:2124,3:2126,234:2127,141:2128,21:2129,3 UU48: DISABLE STOOGRAM 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 **"":"": SHIFTED SPACE (UB40)96700% ** MEMORY CHECK **9 (0)2000937g"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !"UU71"":(50003)0962 ** BASIC 2.0 OR 4.0+ 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$)#UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024aUT59468: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%2139:U UI$"":$ UF1: +++ HELP ROUTINE EXIT +++- 2506 245U UQUB(U2%256U1%U3%2)q UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 "";I250828 >T1$"":T2$"":T3$"":T4$"":I0@300/C ** SPACE BAR PRESS **jHUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UP$UG$(UP),BILITY ""@" 2. STUDENT INSTRUCTIONS"LE" 3. TEACHER INSTRUCTIONS"hO" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE_N0"~N2UH1: 850:" "N" = ";:1280#BN"#UH1: 850:" "N" = ";/#I2N1E#NI(NI)1270Q#I;"X";d#A0AI:1240n#AAI#AB" ":1290#NNI#N1" ":1290#1190#I#" IS PRIME"(U2):U3%(U3):U4%(U4)2UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL8I, ** MENU **O-:~."":UT,UU%:(50003)053281,9:53280,8/:1" MENU"6" --------------------------------------";" 1. BEGIN PROBAP KEY 800: TITLE 300: MENU%!"THE PGM WILL NOT WORK ON THIS MACHINE!":Z!UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **!"";::(50003)053281,6:53280,14!UP0:UG$"" :UT,UL%!850:" HIS PROGRAM WILL FIND THE PR  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$  910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **: ** TO OUR BEST KNOWLEDGE THIS  PR UT 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 ++  US1(US$) UI$(US$,US,1)% 2 UI$"":M ** STANDARD INPUT **^ (UI$)46o UI$(32) (UI$)48(UI$)57170 (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$):220"";2UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3)GUQ,UQ%(UQUB):SU1,U1%_U2,U2%kU4,U4%yU3,U3%135UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):(UD$,24);"  HELP COMING ":1. BEGIN PRIME FACTORS2@" 2. STUDENT INSTRUCTIONS"\E" 3. TEACHER INSTRUCTIONS"xO" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: I(50003)053281,0:53280,0(UP0:UG$"TUDENT NST":850W" HIS PROGRAM WILL FIND PRIME FACTORS"" OF ANY NUMBER. O QUIT TYPE A '0'."" OTE:O ADVANCE FROM ONE QUESTION"" TO THE NEXT PRESS THE BAR." "KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"I" DOMAIN. F THIS IS NOT THE CASE"f" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" )  UI$"":+ ** STANDARD INPUT **< (UI$)46M UI$(32)j (UI$)48(UI$)57170p (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1:4 " 64  8351NUZ1UP%:2177W]X ** PROGRAM MODIFICATION INST **nY"":UT,UL%]UP0:UG$"ROGRAM OD":850835UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 ** """: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 +++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. : # +++ INP+ 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 US$US$UX$128):  UI$"":4 UF1: +++ HELP ROUTINE EXIT +++= 250F 245e UQUB(U2%256U1%U3%2) UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14U1%(U1):U2%(U2):U3%(U3):U4%(U4)BUJ$US$:UK$UG$:UL$UT$:UJUP:UKULHY, ** MENU **_-:."":UT,UU%:(50003)053281,9:53280,8/:1" MENU"6" --------------------------------------";" NPUT ROUTINEc(UR$)1000,400,500,396 h300G ** RE-ENABLE STOP KEY AND END **v(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:F AT ANY TIME YOU WISH TO RETURN"1" TO THE PRESS H .":835NUZ1UP%:217Tu ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST":850" O THE BEST OF OUR  ANADA 1 24"" (416) 499-4292"/UP1: 835: 850:Y" ROGRAM AME: RIME ACTORS{" RITTEN Y : NKNOWN" PGRADED Y : TEVE UTZ " HIS PROGRAM WILL RUN ON ANY" 6 E P A G E **#""";:UT,UU%:(50003)053280,14:53281,69$I138:"";:Q&I122:"";:i(I137:"";:*I122:"";:," ."  0"BEFORE RUNNING THIS PROGRAM ON AN 8032 B" LOAD THE 'CBM 4032' PROGRAM"MUU71Sx ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"1093:  ** T I T L, ZUR$UX$" ";:195: EXIT TO HELP ROUTINE; _UF1240H dUF0::a f ++ CHECK DELETE ++r i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1Al@TMATHEMATICSMG2ARESULTANTS.C3PRIME-FACT.C3PRIME NUMBER.C3PROBABILITY.C3#QUIZ ADD.C3&QUIZ MULT.C3&SHAPES.C35 ROLLS TIL ONE.C3(chine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |cLFx |]|F/`"8|/``,,{`,   !"#$%&'()*+,-./01234567ROOT FINDER.C3+ ROOTS QUIZ.C3)SAUCER MULT.C2G SIG-DIGITS.C3(SIGNIFCNT DIG.C3SIMPLE SUBST.C3* SKIER.C3!SLOPE AND INT.C3' W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p| 4 4 decided to use transfer mode 4& HS,ؚ|@́|SLOPE AND INT.C3(x| E h5|>|)x  |"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|Xhx1F`>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:XhI 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 +++ (UR$"":UI $ 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 PRIME NUMBER"@" 2. ,500,396h300( ** RE-ENABLE STOP KEY AND END **W(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0 UERS WITHIN THAT RANGE." 835850A" HERE WILL BE A PAUSE AS THE 64p"SEARCHES FOR THE NUMBERS. HE LENGTH"" OF TIME NEEDED IS PROPORTIONAL TO THE"" HIGH NUMBER."835850"OTE: ""F AT WLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"F" DOMAIN. F THIS IS NOT THE CASE"c" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO""  " 64  835:850E"HIS PROGRAM IS USED TO FIND PRIME"s"NUMBERS. HE STUDENT WILL PROVIDE A""NUMBER TO BE THE HIGHEST NUMBER. HE"!"64 WILL FIND ALL THE PRIME NUMBERS"&"LESS THAN O USE 8032 LOAD CBM4032 **0"BEFORE RUNNING THIS PROGRAM ON AN 8032 f" LOAD THE 'CBM 4032' PROGRAM"qUU71w ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032  0" +2" S4"C O M M O D O R Ev6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR$"":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$"":# ** 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"2E" 3. TEACHER INSTRUCTIONS"NO" 4. QUIT"}T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,400P0:UG$"TUDENT NST":850/" "X" HIS PROGRAM WILL GENERATE PRIME" NUMBERS GIVEN THE HIGHEST NUMBER."" IMPLY ENTER A NUMBER FROM ONE TO""999 AND THE 64 WILL LIST ALL THE""PRIME NUMBANY TIME YOU WISH TO RETURN"." TO THE PRESS '' <>"7835KUZ1UP%:217Qr ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOANADA 1 24"" (416) 499-4292",UP1: 835: 850:U" ROGRAM AME: RIME UMBER" RITTEN Y : AMES HITEWOOD" PGRADED Y : " HIS PROGRAM WILL RUN ON ANY" 64 THE HIGH NUMBER. HIS "%+"PROGRAM IS RECOMMENDED FOR JUNIOR"80"STUDENTS."AD835UNUZ1UP%:217[WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD":850835UZ1UP%:217 ** T PROGRAM"1093:  ** T I T L E P A G E **G""";:UT,UU%:(50003)053280,14:53281,6]$I138:"";:u&I122:"";:(I137:"";:*I122:"";:," ." OR WAIT":I0 <A$:A$" "II1:I250828.>T1$"":T2$"":T3$"":T4$"":I07@300SC ** SPACE BAR PRESS **H(UD$,24);"PRESS SPACE BAR TO CONTINUE":UO,0LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUPUP1 "u ** SET UP VARIABLES **GUX$"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(5000 :: ** CHECK FOR 8032 **"":"": SHIFTED SPACE*(UB40)96700C ** MEMORY CHECK **W (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !"UU71"":(50003)0 85:1102,228:965 (50003)1990#!1093,49:1094,230:1097,46:1102,230:965]!2099,141:2100,20:2101,3:2103,8:2104,141:2105,21!2106,3:2115,145:2117,52:2118,234:2121,49:2122,141!2123,20:2124,3:2126,234:2127,141:2128,21:*******"* *#* WRITTEN BY: *F#$* *m#.* JAMES W. WHITEWOOD *#8* *#B*********************************#G"":UT2:1160%UH1:850:"INISHED":J1:I2HN:(AI)3212000%(J4(J4))411190,1184,1186,1188E%"";2);I:1195[%"";12);I:1195q%"";22);I:1195%"";32);I:1195%J40835:UH1:850:J0%JJ1%I%835% 910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **# +++ INPUT SECTION +++(UO,0:UR$"":UI$"" $195: EXIT TO HELP ROUTINE' _UF12404 dUF0::M f ++ CHECK DELETE ++^ i(UR$)150v nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US$US$UX$ US1(US$) UI$(US$,US,1) HELP ROUTINE EXIT +++ 250 245? UQUB(U2%256U1%U3%2)[ UQ%(UQUB)(UQ)::""n UZ1:UV%(UT)w 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUJ$US$:UK$UG$:UL$UT$:UJUP:UKUL"3, ** MENU **9-:h."":UT,UU%:(50003)053281,9:53280,8n/:1" MENU"6" --------------------------------------";" 1. QUIZ ADD"@" 2. STUDEW""(UT$UP$,21);(UP$UG$(UP),18)0\" --------------------------------------"?`UH0870sa(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... 3)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198+UD$""]UP$" "UT$" ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** ** SET VARIABLES **900962  ** BASIC 2.0 OR 4.0 OR C-64 SETUP **A 1075,133:1076,144:1077,234:1079,4:1080,133:1081,145w 1091,155:1098,133:1099,144:1100,234:1103,133 1104,145:1105,234:1082,234 (50003)160955 1093,88:1094,228:1097,2129,3!UU48: DISABLE STOP KEY"800: TITLE"300: MENUC""THE PGM WILL NOT WORK ON THIS MACHINE!":x"UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **""";::(50003)053281,6:53280,14""**************************,UL%#LUS$"H0123456789":UG$"":UP0#Q8505$V"NPUT THE HIGH NUMBER? ";:UL3:35:HN(UR$):A40963I$["ORKING..."e$`I1HN:AI,160:I:J2w$jJ(HN)1180$t(AJ)32JJ1:1130$~SUJ$SUSUJ:SUHNJJ1:1130$ASU,3%#LUS$"H0123456789":UG$"":UP0#Q8505$V"NPUT THE HIGH NUMBER? ";:UL3:35:HN(UR$):A40963I$["ORKING..."e$`I1HN:AI,160:I:J2w$jJ(HN)1180$t(AJ)32JJ1:1130$~SUJ$SUSUJ:SUHNJJ1:1130$ASU,3 *UL0UL80 -" ";:UC,03 2UI$:UI$""50] 7UI$(13)(UR$)1UC,1:" ";:85p <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++ ZUR$UX UI$"":' ** STANDARD INPUT **8 (UI$)46I UI$(32)f (UI$)48(UI$)57170l (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ UB(U2%256U1%U3%3)! UQ,UQ%(UQUB):- U1,U1%9 U2,U2%E U4,U4%S U3,U3%1[ 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4) NT INSTRUCTIONS",E" 3. TEACHER INSTRUCTIONS"YJ" 4. MODIFICATION OF PROGRAM"uO" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-5) ";^UL1:US$"12345":35: INPUT CTIONS **&"":UT,UL%:(50003)053281,0:53280,0WUT$" ڠ":UP0:UG$"TUDENT NST":850" ETS PRACTICE !"" WILL ASK YOU A SERIES OF MATH" PROBLEMS USING YOUR KNOWLEDGE OF" ADDING TWO NUMBER WON'T KNOW WHEN YOU ARE"" FINISHED!"$835:850F" XAMPLE: 2 + 2 =  "o" TYPE IN '4' FOR A RESPONSE." OTE:O ADVANCE FROM ONE QUESTION"" TO THE NEXT PRESS THE BAR"" F AT ANY TIME YOU  OF OUR KNOWLEDGE,""" THIS PROGRAM IS IN THE PUBLIC"N" DOMAIN. F THIS IS NOT THE CASE"k" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO""  64 " 64 $ 835:850I" HIS PROGRAM IS WELL SUITEDv" FOR KINDERGARTEN TO GRADE 3 STUDENTS" IN THE AREA OF MATHEMATICS." HIS MAY BE USED TO CHECK THE" STUDENT'S PROGRESS AND THE GRADEa" LEVEL (-3) BY MODIFYING THE FOLLOWING*c" VARIABLES:5e"";`g" 2 - INE 1280 = AX. # TO ADD (25)i" 1 - INE 1280 = IN. # TO ADD (10)k" - INE 1420 = RIES AT ANSWERING (2)m" - INE 1100 = HARS PUU71  ** 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:"";:&I1EDUCATIONAL8"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 **HUO,0:(UDRESS H "fUO,0:"":k ** PLEASE WAIT REMARK **Kp(UD$,24);" ONE MOMENT PLEASE... "Qun ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL" UT$" ڠ": PROGRAM TITLE ! ** SET VARIABLES **!900"!:(!:C! ** CHECK FOR 8032 **a!"":"": SHIFTED SPACEx!(UB40)96700! ** MEMORY CHECK **! (0)2000937!"THIS MACHINE DOES NOT HAVE E ROUTINE _(UR$)1300`US$""6c(UR$)1000,400,500,600,396?h300f ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUS.835:850&" HE TWO NUMBERS WILL BE PRINTEDO" IN THE UPPER-LEFT PORTION OF THE~" SCREEN. OU ARE TO TYPE IN YOUR ANSWER" TO THE PROBLEM. EMEMBER TO PRESS THE" Β KEY AFTER TYPING IN THE"" ANSWER OR WISH TO RETURN"" TO THE PRESS H "$835/UG$""CUZ1UP%:217Ij ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UT$" ڠ":UP0:UG$"EACHER NST":850" O THE BEST  ANADA 1 24"" (416) 499-4292"4UP1: 835: 850:Y" ROGRAM AME: UIZ DD" RITTEN Y : . ACNAUGHTON" PGRADED Y : " HIS PROGRAM WILL RUN ON ANY"  LEARNING" COMPREHENSION DURING THE IMPORTANT5" YEARS OF MATH TEACHING.">&835RNUZ1UP%:217XW~X ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UT$" ڠ":UP0:UG$"ROGRAM OD":850_" HE TEACHER MAY CHANGEER LINE (80)o" - INE 1070 = # OF POINTS/ANSWER (1)!835,UG$""@UZ1UP%:217Fk ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"22:"";:(I137:"";:*I122:"";:;," ]."  ~0" 2" 4"C O M M O D O R E6"$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844N<R ** PAGE DESIGN ROUTINE **HTUPUP1rW""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870a(UD$,24);(UP$,7);"HELP - P %14:UP%1146:UM32768:UO158: 50003,0: (50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048y (50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198 UD$"" UP$"  NOUGH"!"MEMORY TO RUN THIS PROGRAM !""UU71""""":(50003)0962Q" ** BASIC 2.0 OR 4.0 OR C-64 SETUP **"1075,133:1076,144:1077,234:1079,4:1080,133:1081,145"1091,155:1098,133:1099,144:1100,234:1103,133" 52:2118,234:2121,49:2122,141!$2123,20:2124,3:2126,234:2127,141:2128,21:2129,3?$UU48: DISABLE STOP KEYP$800: TITLE`$300: MENU$"THE PGM WILL NOT WORK ON THIS MACHINE!":$UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE ** % LM/RM LEFT/RIGHT MARGIN% LN WHERE PRINTED& SL STARTING LINE FOR SCREEN6& XX CHARACTERS PER LINEV& Q$ QUESTION A$(N) ANSWERSw& TR TRIES AT GETTING ANSWER& CA NUMBER OF RIGHT ANSWER& S$ STRING TO BE PRINTED& YA YOU QN$Q$:LNSL2:1770(PS$(A(1))" +"(A(2))" = "" """(ZLNLN3:1770D(dUL3:US$"0123456789H":35:IN(UR$):UR$""](nANA(1)A(2):LNLN3v(x (ANIN).1 1480(TRTR1(TR21440(1450(S$" OU ARE WRONG!RY AGAIN! GOT"(PT)" POINTS.":1770)MXQN2**LNLN4:S$" HE MOST YOU COULD GET WAS"(MX)" POINTS.":1770[*SCPTMX:SC.85S$" XCELLENT WORK!":1580~*SC.70S$" OOD WORK!":1580*SC.50S$" EEDS MORE WORK!"*"SC.50S$" LEASEL:(((S$,L,1))127)32FXFX1:LLLL1+&L+0LLL111,:(S$,L,1)" "1870#,DL:LLL1:LF1G,NLM)(S$,L1);::LML1XXo,XS$(S$,LELLF):LF0:LNLN2:1800|,bLM)S$;,l, ****DATA****, "ALCULATE: ", END,E80$qX10 A1A1180$t Y0 X0 A1A13607%xUH1:835:850:" RESULTANT IS "(R1000.5)1000`%" AT "(A11000.5)1000" DEGREES"j%1460%835: UH1:UPUP1:850:"";%UL4: " TRY AGAIN? ";:US$"YN": 910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **:::# +++ INPUT SECTION +++ (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)  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: +++ HEL1104,145:1105,234:1082,234"(50003)160955-#1093,88:1094,228:1097,85:1102,228:965B#(50003)1990q#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,$"";::(50003)053281,6:53280,14% QUIZ ADD% R MACNAUGHTON$% FEB 1982;%$UP0:"":UT,UL%O%.QN10:NA1:PT0Y%LXX40n%`LM5:RM35:SL6:%t QN QUESTION NUMBER%~ NA NUMBER OF ANSWERS FOR EACH% PT POINTS EARNEDR ANSWER NUMBER& N2 MAXIMUM NUMBER' N1 MINIMUM NUMBER'N110:N225'  Q$&'N1QNM'I12:A(I)((1)(N2N11))N1:'("":S$"ڠ:"(PT)" POINT":PT1S$S$"S"'2LNSL:850:1770:TR0'<QN$((N),2)". "'FS$":1770:2000:1350)S$" HE CORRECT ANSWER IS"(AN)" ")1770:835) N:1500O)S$" HAT'S ! OOD ORK!":1770:835f)PTPT3TR1:1470)"":UH1:850:LN4:S$" HAT'S THE END OF THIS QUIZ.":1770)LNLN2:S$" OU SEE THE TEACHER!"*,LNLN4:1770*6::+J" ANT TO PLAY AGAIN ? ";:UL1:US$"YNH":35:4+O UR$"Y" 1001:+TJ+ FORMAT S$o+DN$""+(DN$,LN);+LLRMLM1+FX0:LE(S$):LELL1890+L1LNND,OW11000:," "-? ";:UL1:US$"YNH":35:4+O UR$"Y" 1001:+TJ+ FORMAT S$o+DN$""+(DN$,LN);+LLRMLM1+FX0:LE(S$):LELL1890+L1L#<R(X12Y12)$F (X1).0005 (Y1).0005 1360I$K"RESULTANT TOO SMALL FOR CALCULATION":1430d$PX10Y10A190:1400$ZX10Y10A1270:1400$dX10Y10" RESULTANT IS ZERO VECTOR":835$nA1((Y1X1))135:S$UR$%S$"Y"UP0:1070% &"";24);" 90"& 24);" "2& 24);"1800"E& 24);" "_& 24);" 270"e&o&PÙ"";&QÙ"";&RÙ(TI$,1,2)":"(TI$,3,2)&SÉ50001)1"":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 +++ P ROUTINE EXIT +++ 250 245/ UQUBUM1023K UQ%(UQUB)(UQ)::""^ UZ1:UV%(UT)g 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB1943 UQ, UK$UG$:UJUP:UKUL , ** MENU **$-:S."":UT,UU%:(50003)053281,9:53280,8Y/:v1" MENU"6" --------------------------------------";" 1. SHAPE RECOGNITION"@" 2. STUDENT INSTRUCTI 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  N": " EACH TEST. EMEMBER, TIME AND"F: " ACCURACY ARE IMPORTANT FACTORS."W: 835:850: " EMEMBER TO HIT AFTER": " TYPING YOUR ANSWER. HIS TELLS": " THE COMPUTER TO ACCEPT WHAT YOU":  OU WILL": " BE RETURNED TO THE PLACE IN THE"J: " PROGRAM WHERE YOU LEFT OFF AS"x: " SOON AS THE OPTION FROM THE MENU": " IS COMPLETE.": 835:850: " N THE GRAPH, ACCURACY IS PLOTTED": " ON O": " SLOW FOR THE SPEED SELECTED.">: " OUR AIM IS TO STAY IN THE TOP"m: " RIGHT QUADRANT OF THE GRAPH. HE": " TEST ENDS WHEN YOU EXCEED THE": " LIMITS OF THE GRAPH. HEN THE": " COMPUTER WILL GIVES PROGRAM IS IN THE PUBLIC"(" DOMAIN. F THIS IS NOT THE CASE"E" PLEASE CONTACT:"o" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"64  835NUZ1UP%:217 W/ ** TO USE 8032 LOAD CBM4032 **e"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71  ** T I T L E P A G E **""";: 4"C O M M O D O R E/6"EDUCATIONALN8"SOFTWAREi: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":---------------"a(UD$,24);(UP$,6);"HELP - PRESS H "$f"":Ck ** PLEASE WAIT REMARK **yp(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **UX$"H":UQ%(1024):UB32768:U1196:U2197:U3198:UQ%(UQUB): U1,U1% U2,U2%& U4,U4%4 U3,U3%1< 35n UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4) UJ$US$:UJULUJ$US$:ONS" E" 3. TEACHER INSTRUCTIONS"<O" 4. QUIT"kT" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE_: (UR$)1300`US$""c(UR$)1000,UP0:UG$"TUDENT NST":850>: " HIS IS AN APTITUDE TEST WITH"j: " DIFFICULTY LEVELS RANGING FROM": " GRADE 1 TO GRADE 9. OU CAN ALSO": " CHOOSE THE SPEED FROM 1 TO 9.": " OLLOW THE INSTRUCTIONS I" HAVE TYPED. RRORS CAN BE ERASED"?: " WITH THE KEY. F YOU"n: " WISH TO PASS ON A QUESTION, ENTER": " INSTEAD OF YOUR ANSWER.": " YPE AT ANY TIME TO RETURN": " TO THE MENU FOR HELP. THE -AXIS. ORRECT ANSWERS"/: " MOVE THE LINE TO THE RIGHT AND"]: " WRONG ANSWERS TO THE LEFT. IME": " IS PLOTTED ON THE -AXIS. P MEANS": " THAT YOU ARE WITHIN THE SPEED": " AND DOWN MEANS THAT YOU ARE TO YOU ADVICE ON": " WHAT TO DO NEXT."835,UZ1UP%:2172S ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST.":850" O THE BEST OF OUR KNOWLEDGE,"" THI" (416) 499-4292"UP1: 835: 850:1" ROGRAM AME: HAPESS" RITTEN Y : NKNOWNw" PGRADED Y : EREK EE" HIS PROGRAM WILL RUN ON ANY" 64 " UT,UU%:(50003)053280,14:53281,6$I138:"";:.&I122:"";:F(I137:"";:^*I122:"";:," ."  0" 2" T3$"":T4$"":I0@300 C ** SPACE BAR PRESS **EH(UD$,24);"PRESS SPACE BAR TO CONTINUE "\LUI$:UI$" "844bNR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UG$UP$,14);UP\" ----------------------- U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768: 50003,0a(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024UD$""UP$"  "THIS MACHINE DOES NOT HAVE ENOUGH"!"MEMORY TO RUN THIS PROGRAM !"'!UU71-!G!"":(50003)0962v! ** 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 105,21 #2106,3:2115,145:2117,52:2118,234:2121,49:2122,141F#2123,20:2124,3:2126,234:2127,141:2128,21:2129,3h#UU48: DISABLE STOP KEYADY.y#800: TITLE#300: MENU#"THE PGM WILL NOT WORK ON THIS MACHINE!":#UZ1UP  910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **: ** TO OUR BEST KNOWLEDGE THIS  PRUT SECTION +++" (UO,0:UR$"":UI$""2 *UL0UL80E -" ";:UC,0Y 2UI$:UI$""50 7UI$(13)(UR$)1UC,1:" ";:85 <UI$(20)105 = UI$UX$ 195: EXIT TO HELP ROUTINE > (UR$)UL50 A120: CHECK FOR VALID CHARACTRACTERS ++ }(US$)0150% US1(US$)< UI$(US$,US,1)B O UI$"":j ** STANDARD INPUT **{ (UI$)46 UI$(32) (UI$)48(UI$)57170 (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"":%(UT)300)UZ0:US$UJ$:UG$UK$:UPUJ:ULUK`(50003)053281,1:"";:53281,6:53280,14:220j"";UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3)UQ,UQ%(UQUB):865U1,U1%U2,U2%U4,U4%U3,U3%135281,9:53280,8/:!1" MENU"P6" --------------------------------------"v;" 1. BEGIN ROOT FINDER@" 2. STUDENT INSTRUCTIONS"E" 3. TEACHER INSTRUCTIONS"O" 4. QUIT"T" 71:(50003)053281,6:53280,14"":%875:F ** STUDENT INSTRUCTIONS **u"":UT,UL%:(50003)053281,0:53280,0UP0:UG$"TUDENT NST":850"" OU MAY ENTER A POLYNOMIAL THAT IS"" COMPOSED OF UP TO 20 FAC217 ** TEACHER INSTRUCTIONS **C"":UT,UL%:(50003)053281,2:53280,10dUP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE " UT$" " !  ** SET VARIABLES *** 900M S$(10,5),C$(10,4),R(10),S(10)h  ** CHECK FOR 8032 ** "":"": SHIFTED SPACE (UB40)96700  ** MEMORY CHECK **  (0)2000937 :1099,144:1100,234:1103,133 "1104,145:1105,234:1082,234#"(50003)160955R"1093,88:1094,228:1097,85:1102,228:965g"(50003)1990"1093,49:1094,230:1097,46:1102,230:965"2099,141:2100,20:2101,3:2103,8:2104,141:2"%:UP%:UZ0: ** PROGRAM STARTS HERE **$"";::(50003)053281,6:53280,14j$395AN=INT(6*RND(1)+1):AM=AN:IFG>6THENAM=INT(AN+2+3*RND(1)):AM=AM+6*(AM>6)$ 'SHAPES' (C) MTD/LBH 1980$"":UT,UL%:875$$I17:J15:S$(I,J)::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. : # +++ INPER FUR$UR$UI$ KUI$; P50C U +++ CHECK FOR HELP REQUEST +++k ZUR$UX$195: EXIT TO HELP ROUTINEz _UF1240 dUF0:: f ++ CHECK DELETE ++ i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHA (UT)UU%UI$((UI$)128): , UI$"":Q UF1: +++ HELP ROUTINE EXIT +++v UF1: +++ HELP ROUTINE EXIT +++ 250 UJ$US$:UJUL:167,1:UK(59468) 245 UQUB(U2%256U1%U3%2) UQ%(UQUB)(UQ)::"" UZ1:UV#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, ** MENU **-:."":UT,UU%:(50003)053--------------------------------------"@Y" PRESS A NUMBER KEY (1-4) ";h^UL1:US$"1234":35: INPUT ROUTINEc(UR$)1000,400,500,396h300 ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU TORS SO ONE " ONE COULD CONCEIVABLY HAVE FACTORS." UP TOI" 20a" " HE POLYNOMIAL CAN ALSO INCLUDE" IMAGINARY NUMBERS WHICH MAY BE" ENTERED WHEN PROMPTED.840UZ1UP%: "" PLEASE CONTACT:"." OMMODORE USINESS ACHINES"Q" 3370 HARMACY VE.u" GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:" ROGRAM  DIFICATION INST **Y"":UT,UL%%]UP0:UG$"ROGRAM OD":850J^" .. OOT INDERr_" ROGRAM ODIFICATIONS`" HE PROGRAM'S PHYSICAL WORKINGSa" ARE LOCATED FROM LINES 1660 ON.b"c" F YOU WI AD CBM4032 **!"BEFORE RUNNING THIS PROGRAM ON AN 8032 W" LOAD THE 'CBM 4032' PROGRAM"bUU71h ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032LOAD CBM 4032 PROGRAM" 0" 2" B4"C O M M O D O R Ee6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0P$,21);(UP$UG$(UP),18)\" --------------------------------------".`UH0870pa PRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... )0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198(UD$""ZUP$" "UT$" OOT INDER ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** ** SET VARIABLES ** AOGRAM !" UU71 !"":(50003)09620! ** BASIC 2.0 OR 4.0 OR C-64 SETUP **n!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!2123,20:2124,3:2126,234:2127,141:2128,21:2129,3#UU48: DISABLE STOP KEY/#800: TITLE?#300: MENUp#"THE PGM WILL NOT WORK ON THIS MACHINE!":#UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **#"";::(50003)053281,6: RM IN THE OLYNOMIAL? ";%VUL2:US$"0123456789":35%`(UR$)1(UR$)211150_%j" LEASE NTER A UMBER FROM 2 TO 20.":I12000:%t" ":1100%~N(UR$)%" "%" NTER THE REAL COEFFICIENTS"&" "6&" "^&" "~&ON:CT1:A$"":B$"":C$"Y"&IN01&1310&" NTER THE "C$" VALUE: AME: OOT INDER" RITTEN Y : NKNOWN;" PGRADED Y : f" HIS PROGRAM WILL RUN ON ANY" Ԡ64 " 64  835NUZ1UP%:217WX ** PROGRAM MOSH TO CORRECT THEM HAVE A&d" NICE TIME TRYING TO FIGURE OUT WHAT8e" THEY DO.?f"og" HE REST OF THE PROGRAM LINES ARE JUSTh" COSMETICS SO YOU CAN IGNORE THEM.i840835UZ1UP%:217 ** TO USE 8032 LO1093:  ** T I T L E P A G E **6""";:UT,UU%:(50003)053280,14:53281,6L$I138:"";:d&I122:"";:|(I137:"";:*I122:"";:," ."  <A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0&@300BC ** SPACE BAR PRESS **}HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$U "u ** SET UP VARIABLES **DUX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003(21),B(21),C(21),D(21),X(21),Y(21)900 : :"  ** CHECK FOR 8032 **@ "":"": SHIFTED SPACEW (UB40)96700p  ** MEMORY CHECK **  (0)2000937 "THIS MACHINE DOES NOT HAVE ENOUGH" "MEMORY TO RUN THIS PR(50003)160955 "1093,88:1094,228:1097,85:1102,228:965!"(50003)1990P"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#53280,14#UG$""&$ HP ROOT FINDING PROGRAM (THE BEST AVAILABLE...COMPLEX COEFF'S TOO!)j$ MODEFIED BY FOUAD DEHLAWI:P.O.BOX 10197 , STANFORD ,CA. 94305$UT,UL%:UG$"ROGRAM":UP0:850$L" NTER THE EXPONENT OF THE HIGHEST$M" TE ";&UL8:US$"0123456789.-+":35&A(I1)(UR$)'1380'1330)'I:I11000::1430/' :5':P'A$A$" "((I),2)'INB$B$" "C$""(" ",((I))1):1330'(B$B$" +"C$""(" ",((I))1)'2" )(xA$(A$,FI)(" ",(UR$)1)(A$,J)((:-)850:" RE THERE ANY IMAGINARY COEFFICEINTSK)" IN THE OLYNOMIAL? ";)UL1:US$"NY":35:UR$"N"I0N:B(I)0::1600)" NTER THE IMAGINARY COEFFICEINTS")CT1:A " O ROOTS FOUND.":1647+X" POSSIBLE VALUE,+Y" ROOTS REAL IMAGINARYZ+[" e+hJ1O+i5((J)))(J)" ";+jA(15((C(J))))2+k(A))(C(J))(A.5));+ X(2).1,1930: INITIAL ESTIMATES,GF:M0:Q0:P0:K0:LL1-K1N(-PPK(A(K1)X(K)B(K1)Y(K))L-QQK(A(K1)Y(K)B(K1)X(K))S-Ka-ZPPQQt-D(UPVQ)Z-E (UQVP)Z-MM1-X(2)XD-Y(2)YE-193. D(N)Y(2). AA(N1):A(N1)0. BB(N1):B(N1)0/ (C(N)) (D(N))1E8 C(N)08/ (D(N)) (C(N))1E8 D(N)0@/&KNK/'XX(2)V/(YY(2)j/0KK1:K01870w/:CA(K1)/;DB(K1)/<UA(K2)/=VB(K2)/>A(K1)AXU **** SUBROUTINE SILJAK ***0XXX(2):YYY(2)0ZXXXXYYYY1T2XX:N219501K0N2/1X(K3)TX(K2)ZX(K1)L1Y(K3)TY(K2)ZY(K1)S1K_1V0:U0j1K0N1UUA(K1)X(K1)B(K1)Y(K1)1VVA(K1)Y(K1)B(K1) 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(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) "(A$,CT,30)" "'<" "(B$,CT,30)(FCT(A$)30CTCT1:1330(P(Z:<(dJ1(B$):(B$,J,1)C$ Jz(i V$="":LE=LEN(UR$)-1:IFVAL(UR$)<0THENUR$=""+UR$:V$=""(j(UR$)0FIJ1:1390(kFIJ2(nB$(B$,FI)UR$(B$,J1$"":B$"":C$"I")IN01)1310*" NTER THE "C$" VALUE: ";9*UL8:US$"0123456789.-+":35K*B(I1)(UR$)U*1380_*1330e*n*@850*B" ALCULATING"*JNO:1660*K850*TFLAGl(15((D(J))))2)(D(J))+mJ ,n" "!,o840:UPUP1:300G,r ** BEGINNING OF SUBROUTINE ROOT,|FLAG0 : SET FLAG WHEN NO CONVERGENCE,Y1 :Y(2)1 :X(1)1,L0 :Y(1)0 :X.1 :0-FG1750-M101780-DD4-EE4-1710. (D)1E8 (E)1E8 1800#.L501790..XX(2)9.YY(2)C.1680g. (U)1E7 (V)1E7 1800r.FLAG1. : CONVERGENCE FAILED.C(N)X(2)YV/DB(K1)BXVYU/IAC:BD:1840/NNN1:N11670/XAA(1)0YBB(1)0ZUA(2)0[VB(2))0\TUUVV?0]C(1)(AUBV)TU0bD(1) (AVBU)T{0c (D(1)) (C(1))1E8 D(1)00l (C(1)) (D(1))1E8 C(1)00v0 QX(K1)1K1FUUVV11 FORI=25TO0STEP-1:A$=A$+STR$(I):NEXTB(1)0ZUA(2)0[VB(2))0\TUUVV?0]C(1)(AUBV)TU0bD(1) (AVBU)T{0c (D(1)) (C(1))1E8 D(1)00l (C(1)) (D(1))1E8 C(1)00v0 "":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: +++ HEL UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN SAUCER MULTIPLICATION"@"  45":35: INPUT ROUTINE`US$""3c(UR$)1000,400,500,600,396<h300c ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTI O THE BEST OF OUR KNOWLEDGE,":" THIS PROGRAM IS IN THE PUBLIC"f" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT Y " 64 0" 64 9 835D 10108XNUZ1UP%:217^WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UH1:UP0:UG$"ROGRAM OD":850d10700835UZ1UP%:217I138:"";: &I122:"";:$(I137:"";:<*I122:"";:a," ."  0" 2" 4"C O M M O DR PRESS **%HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"<LUI$:UI$" "844BNbR ** PAGE DESIGN ROUTINE **nTUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870 a(24UT59468: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%2139:UM1024:UO198UD$""UP$" ** MEMORY CHECK ** (0)2000937,"THIS MACHINE DOES NOT HAVE ENOUGH"P"MEMORY TO RUN THIS PROGRAM !"[UU71a{"":(50003)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **1075,133:1076,144:1077,234:1079,4: ,141:2100,20:2101,3:2103,8:2104,141:2105,21@2106,3:2115,145:2117,52:2118,234:2121,49:2122,141z2123,20:2124,3:2126,234:2127,141:2128,21:2129,3UU48: DISABLE STOP KEY800: TITLE300: MENU"THE PGM WILL NOT WORK ON THIS MACHINE!":UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **K"";::(50003)053281,6:53280,14X UT,UU%^:u ROB WILLIAMS 11F{: A MULTIPLICATION DRILL$ MARCH 4 1982.:8 VARIABLESB: L A$ 2. STUDENT INSTRUCTIONS";E" 3. TEACHER INSTRUCTIONS"hJ" 4. MODIFICATION OF PROGRAM"O" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-5) ";^UL1:US$"123ONS **#"":UT,UL%:(50003)053281,0:53280,0DUP0:UG$"TUDENT NST":850N5700W835kUZ1UP%:217q ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST":850", NTARIO"" ANADA 1 24"6" (416) 499-4292"LUP1: 835: 850:u" ROGRAM AME: AUCER ULT." RITTEN Y : OB ILLIAMS" PGRADED Y : " HIS PROGRAM WILL RUN ON AN  ** TO USE 8032 LOAD CBM4032 **C"BEFORE RUNNING THIS PROGRAM ON AN 8032 y" LOAD THE 'CBM 4032' PROGRAM"UU71  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$ O R E 6"EDUCATIONAL,8"SOFTWAREG: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAUD$,24);(UP$,7);"HELP - PRESS H "fUH0:""::k ** PLEASE WAIT REMARK **pp(UD$,24);" ONE MOMENT PLEASE... "vu ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU10 "BUT$" Ҡ.": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***Hb ** SET VARIABLES **k900HP144:HM12:TS4 ** CHECK FOR 8032 **"":"": SHIFTED SPACE(UB40)96700 1080,133:1081,1451091,155:1098,133:1099,144:1100,234:1103,133@1104,145:1105,234:1082,234W(50003)1609551093,88:1094,228:1097,85:1102,228:965(50003)19901093,49:1094,230:1097,46:1102,230:9652099 STANDS FOR ANSWER$(OR THE INPUT OF ONE KET PRESS)9 V B$ IS THE COMPLETE ANSWER TO THE MATH PROBLEMu ` PA$ - PF$ ARE STRINGS MAKING UP THE SPACESHIP PICTURE j TRUCK$ IS THE FIRST PART OF THE TRUCK t TAUCK$ IS THE REST OF THE TRUCK!~ M$ IS THE ERASE OF THE EXPLOSION"" HP IS THE HIGHEST PRODUCTE" HM IS THE HIGHEST MULTIPLIER" TS IS THE TIME TO ANSWER A PROBLEM, IN SECONDS" J IS A VARIABLE USED IN "WAIT" LOOPS ED$ ALL OTHERS HAVE MEANINGS INCLUDED (OR DON'T REALLY HAVE ANY!)$(:!$2:2$< DEDICATION8$F:E$P UT,UL%K$Z:Q$:W$:`$""$ GO READ PICTURE VARIABLES$ 5000$:$ COMMAND MODULE$:$:$ BEGINNING GRA SHIP%0:%: 3340%D:%N PRINT THE TRUCK&X 5200&b:&l ROBOTS DISEMBARK(&v 3520.&:P& PRINT MAKE THE MATH PROBLEM[& 3710a&:& ANSWER THE QUESTION ROUTINE& 4010&:& DID YOU ANSWER RIGHT IN TIME OR NOT ?'H" YOU GOT ALL 10 ANSWERS RIGHT!!"'M835(R 2200(\ YOU DIDN'T ANSWER RIGHT!*(f 53500(p:6(z:X( HOW MANY DID YOU GET RIGHT?c( 4420m(2290(" DO YOU WANT TO PLAY AGAIN Y OR N? ";:US$"YN":UL1(35:A$UR,UL%: LOWER CASE GRAPHICS)0 :)l 3290)v :* "EY OOF!"6* J 1 600 : : WAIT!_* "AAA OU!"* J 1 600 : : WAIT!* "Y MAKING THE PRODUCT BIGGER THAN THE"* "MUL+f "";+p ,PD$,,PC$,,PB$,,,PA$+z J1 150 : J+ "";, ,PE$,,PD$,,PC$,,PB$,,,PA$+, J1 150 : J5, "";Y, ,PF$,,PE$,,PD$,,PC$,,PB$,,,PA$_, e, :, PRINT ROBOTS DISEMBARKING SPACESHIP ROUTINE, :, , 0.999 3690-B: (UM177 A),B-L: J 1 50 : : WAIT!.V 3570 .`:.j:.t.~:Z. MAKING THE MULTIPLICATION EQUATION`.:s.F((1)HM)1.S((2)HM)1.PRODUCT FS. PRODUCT HP 3740 /F"";/P:/Z/d:/n:0x THIS IS THE MAIN PROGRAM0:0:]0 TIMED 'GET' INPUT MODULE WITH SAFETY DIVICE.c0:0B$"" : NULL ANSWER STRING0CRSR$"": ALL CURSOR KEYS ...OR ANY KEYS TO BE IGNORED0TI$"000000" : SET THE CLOCK0:0 LOOP0:21: "";A1: LB(B$)[1: CURSOVER1 LB1h1: :"";y1: CURSOVER1: :1":"";1,: A$ : LOOK AT THE KEY B ERASE$ IS THE ERASE OF THE FIRST PART OF THE TRUCK4! ESASE$ IS THE REST OF THE ERASE OF THE TRUCKT! ROBOT$ IS THE ROBOT PRINT! R1OBOT$ IS A SPECIAL CASE ROBOT PRINT! SBOOM$ IS THE PRINT OF THE EXPLOSION" EBOO" A IS THE ADDITIONAL SPACING FOR THE POKE# B IS THE CHARACTER FOR THE POKE;# F IS THE FIRST MULTIPLEZ# S IS THE SECOND MULTIPLE#  L IS THE LENGTH OF THE EQUATION TO PRINTED# LB IS THE DISTANCE TO BE BACK CURSORPHICS MODULE$" 2320$,:$6:$r:$|:% PICKING NUMBER RANGE% 30800% HMHP 16706%:N% RESET THE COUNTER^%COUNTER 1d%:y% HOW MUCH TIME?%:%:% UT,UU%: UPPER CASE GRAPHICS%:%& PRINT THE SPACE& (TI$)TS 2140&:' YOU GOT THE RIGHT ANSWER ' 4590':/' HAVE YOU WON 10 ROUNDS?K'  COUNTER 10 2100e'COUNTER COUNTER 1}' "ATTACK";COUNTER'* 1900'4" YOU HAVE SAVED THE EARTH!!"'>:$(:( 2220(:)"THE END")835)) : ) :;) PRINT SCANNING ROBOTA)$ :d). UT,UU%: UPPER CASE GRAPHICSj)8 p) :v) :) 835) ) :) PICK NUMBER VALUES ROUTINE) :)& UTTIPLIER YOU'RE GOING TO FOUL UP THE PROGRAM!!"* :* 3010+ :+ + :'+ THE SPACESHIP LANDS!-+ :7+ "";A+ ,PA$U+ J1 150 : J_+* "";o+4 ,PB$,,,PA$+> J1 150 : J+H "";+R ,PC$,,PB$,,,PA$+\ J1 150 : J :, LOOP- : A,B : READ FOR LEFT RAMP-: A 0.999 36909-: B 0.999 3690P-: (UM177 A),B-$: A,B : READ FOR RIGHT RAMP-.: A 0.999 3690-8: B. 3810.:..:/ PRINTING THE MULTIPLICATION PROBLEM ON THE SCREEN/:3/L((F))((S))3D/ LB(L2.5)\/"";r/ CN 9 3 1/(: LB CN "";/2 CN/< " ";F;" ";S;" " OARD16: A$"" (TI$)TS 4370 : CHECK THE TIME!2@: (TI$)TS 4410 : TIME'S UPO2J:A(A$) : CONVERT CHARACTER TO A NUMBER2T: A47 A58 4340 : ACCEPT SPACE,0-9,A-Z,.,:+-*/2^:J(CRSR$)2h: A$(C "RETURN" KEY3: B$"" 43603:B$(B$,(B$)1)3: A 32 43703:4: " ";V4: FOR THREE PREVIOUS LINES - DELETE - MAKE SURE B$ IS NOT EMPTYb4: 43604: A$; : PRINT THE CHARACTER4: B$B$A$ : ADD THE CHARA "";5 TI(60115TS) TI(60215TS) JS$R1OBOT$;6"";6 DIV 2 14S6: TI(60DIV15TS) TI(60(DIV1)15TS) JS$ROBOT$;_6: "";i6 DIVo6u6:6 YOU'RE RIGHT !6:6  RESET THE C SBOOM$;7 J 1 100 : J : WAIT!7EBOOM$;7 J 1 100 : J : WAIT!8"";8SBOOM$;.8 J 1 100 : J : WAIT!;8EBOOM$;Z8 J 1 100 : J : WAIT!f8C3C31z8$ C32 49308."";88 48008B:8L"9ERASE$ "  ":ESASE$ "  "7:PF$" Y:PE$" ߒ{:PD$" :PC$"    ";<JS$"  ";F;P:| 101,2,77,6,78,2,32,6,32,42,99,46,99,3K> 105,5,95,3,78,2,160,5,77,6m> 160,2,32,6,32,1,160,3,105,5> 95,7,160,1,32,3,78,5,77,7,32,039,103,27,78? 66,78,105,78,144,78,183,78,263,64,264,64? 265,64,266,64,267,64,268,64,258,2,259,15@ 260,15,261,13,0.999,0.999-@D INSTRUCTIONS]@N" OU ARE A RADIO FREQUENCY JAMMER."@X" OUR JOB IS TO JAM THE RADIO FREQUENCY" WILL BE "A" PRINTED AT THE TOP OF THE SCREEN IN"A" THE SPACESHIP. OU TYPE IN THE ANSWER" B" (DON'T PRESS RETURN), IF YOU MAKE A "LB" MISTAKE YOU CAN DELETE YOUR ANSWER"{B" AGAIN BUT HURRY BEFORE THE ROBOTS GET"B" YOU. HE COMPUTER WILL ONLY ACCEPT A"B" RIGHT ANSWER."B835:UP2:UH1:850 C " EMEMBER: ON'T PRESS RETURN!"6C" F YOU PRESS RETURN YOU WILL LOSE!""";7H LOOP7R: M (UM177C2)=7\: M 102 M 160 4750G7f"";V7p: C2C240a7z 4680g7:t7 BOOM!!z7:7 SET COUNTER7C3 07:7:8V"",PF$,,PE$,,PD$,,PC$,,PB$,,,PA$8`""9j: 15)TRUCK$TAUCK$;9t: 9~9:9:.9 PICTURE STRINGS49:9TRUCK$ " ͤ  "9TAUCK$ " ѝ :PB$" : PA$" ".;ROBOT$"   "c;R1OBOT$"  ";(SBOOM$"Ν͝";2EBOOM$" $ESASE$;<: J 1 25<: J 1 50< DIS<: DIS)TRUCK$TAUCK$;="ATTACK";COUNTER ==:=""= LOOP.=: A,BI=: A 0.999 5420`=: (UM680 A),Bk=" 5370q=,:w=6}=@:=J DATA=T:=^,160,2,160,6,160,8,160,0.999,0.999>:> DATA SET #2 FOR TRUCK BLOWING UP>:1? 251,64,252,64,253,64,254,64,255,64,256,64,12,77k? 53,77,94,77,135,77,176,77,-141,103,-101,103,-61,103? -21,103,19,103,59,103,99,103,1@b" (WHICH IS THE ANSWER TO THE MATH "@l" PROBLEM) THE ROBOTS ARE OPERATED ON SO"Av" THE ROBOTS WILL SELF DESTRUCT. F YOU"GA" STOP ENOUGH RAIDS YOU SAVE THE EARTH!"`A 835:UP1:UH1:850fA:A" MULTIPLICATION PROBLEM  (1)999)UMCFT,42:DC#T120:LL1C(#L,209:L1,209:L1,209:L2,233:L2,223D2#L40,120:L39,124:L41,126"D3#L,215:L1,215:L1,2157D<#L3,32:L38,32>DF#TRDZ#LUM20:T115D_#LL40:L40,32:L41,32:L42,32:L38,32:L3 SAUCERֵ";E'Y125:LL40EG'L80,32:L81,32:L82,32:L78,32:L79,32FL'L,209:L1,209:L1,209:L2,233:L2,2234FV'L40,120:L39,124:L41,126QFW'L,215:L1,215:L1,215fF`'L3,32:L38,32mFj'YF|'UH1:UP2:850 G'835:UH1:UP3:850G'" ESCRIPTION F TUDENT CTIVITIES"G'" ----------------------------------" H'" NVOLVED:":" --------"7H'" HE STUDENT WILL BE INVOLVED IN "dH(" ANSWERING MULTIPLICATION QUESTIONS"H (" UNTIL THE STUDENT URRICULUM:":" ----------"I<(" HIS PROGRAM IS MADE FOR A SINGLE"IF(" STUDENT BUT A GROUP COULD PLAY THE"Jd(" PROGRAM ONE AT A TIME TRYING TO STOP"KJn(" THE LIENS FROM DESTROYING THE ARTH."cJ(835:UP5:UH1:850J(" UGGESTIOLEASE PICK THE HIGHEST NUMBER VALUE "K) " WANTED FOR THE ANSWER (PRODUCT) TO THE  PROBLEM (CURRENT ";K)" VALUE =";HP") ";8L)US$"0123456789":UL3:35:HP(UR$):835:UP1:UH1:850nL)" LEASE PICK THE HIGHEST NUMBER VALUE"L)"GRAPHICSM2*" LEASE TYPE IN THE AMOUNT OF TIME, IN"M4*" SECONDS, WANTED FOR ANSWERING THE "N6*" MULTIPLICATION PROBLEM.":" (CURRENT VAL. =";:N7*TS") ";:US$"0123456789":UL2NN8*35:TS(UR$):THE HIGHEST NUMBER VALUE"L)"ڐ|-|pˁ|;́| p| 4 4 decided to use transfer mode 4& HS,ؚ|@́| 910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **: ** TO OUR BEST KNOWLEDGE THIS  PR UT SECTION +++" (UO,0:UR$"":UI$""2 *UL0UL80E -" ";:UC,0Y 2UI$:UI$""50 7UI$(13)(UR$)1UC,1:" ";:85 <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++> ZUR$UX$195: EXIT TO HELP ROUTINEM _UF1240Z dUF0::s f ++ CHECK DELETE ++ i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US$US$UX$9,32Dd#L,209:L1,209:L1,209:L2,233:L2,223Dn#L40,120:L39,124:L41,126Do#L,215:L1,215:L1,215 Ex#L3,32:L38,32E#T E#Y125=E#L,215:L1,215:L1,215lE#L,209:L1,209:L1,209:L2,233:L2,223sE#YE'13);"F~'" DUCATIONAL ATIONALE:":" ----------------------"F'" HIS PROGRAM HELPS THE STUDENT'S TO"G'" BETTER UNDERSTAND MULTIPLICATION."AG'" T ALSO ENCOURAGES THE STUDENT TO"G'" THINK FASTER SO THAT THE PROGRAM WILL":" CONTINUE." GETS A QUESTION"H(" WRONG OR UNTIL THE STUDENT SAVES THE"H(" ARTH. HE STUDENT SAVES THE ARTH"I#(" WHEN HE GETS 10 RIGHT IN A ROW."+I$( 835:UP4:UH1:850tI((" LACEMENT ITHIN HE UBJECT":" ---------------------------"I2(" NS FOR STUDENT USAGE":" -----------------------------"J(" HIS PROGRAM COULD BE USED TO TEST"K(" THE STUDENTS ABILITY ON HOW WELL"7K(" HE/SHE CAN MULTIPLY WITH A TIME LIMIT."BK)835:hK)" *Ӡ!!*"K) "  TO BE MULTIPLIED BY.":" (CURRENT VAL. ="HM") ";L)UL3:35:HM(UR$)L) HP HM 10720L) RESET THE COUNTERM)COUNTER 1:835:UP2:UH1:850YM&* TS IS THE TIME TO ANSWER A PROBLEM, IN SECONDS|M0* UT,UL%: LOWER CASE ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2 US1(US$) UI$(US$,US,1)% 2 UI$"":M ** STANDARD INPUT **^ (UI$)46o UI$(32) (UI$)48(UI$)57170 (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)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. : # +++ INP :220"";2UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3)GUQ,UQ%(UQUB):SU1,U1%_U2,U2%kU4,U4%yU3,U3%13535UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):(UD$,24);"  HELP COMING  NTARIO" " ANADA 1 24"," (416) 499-4292"BUP1: 835: 850:s" ROGRAM AME: IMPLE UBSTITUTION"" RITTEN Y : . . ICHOLSON " PGRADED Y : " HIS PROGRAM WILL  1. BEGIN SIMPLE SUBSTITUTION"A@" 2. STUDENT INSTRUCTIONS"kE" 3. TEACHER INSTRUCTIONS"O" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) "; ^UL1:US$ OW WELL THE STUDENT IS""$" DOING. PON COMPLETION OF THE QUIZ,M&" A SUMMARY IS PRESENTED SHOWING THEn(" STUDENT'S ACHIEVEMENTS."yM835:NUZ1UP%:217VUG$UU$:UPPUWX ** PROGRAM MODIFICATION INST **Y"":UT,UL% STUDENT INSTRUCTIONS **#UT$" IMPLE UBSTITUTION"R"":UT,UL%:(50003)053281,0:53280,0iUU$UG$:PUUP:UP1UP0:UG$"TUDENT NST":8501)" HIS PROGRAM IS INTENDED TO GIVE YOU"1)"PRACTICE IN THE EVALUATION OF"UU71 ** TO USE 8032 LOAD CBM4032 **Z"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"f1093:  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&ISS <>.""1)"O SKIP A QUESTION, TYPE <>."R1)"O END THE PROGRAM, TYPE <>."`835:8501)"OTE:O ADVANCE FROM ONE QUESTION"1)"TO THE NEXT PRESS THE BAR"1)"F AT ANY TIME YOU WISH T EDUCATIONAL8"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:(128):  UI$"":4 UF1: +++ HELP ROUTINE EXIT +++= 250F 245e UQUB(U2%256U1%U3%2) UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14 O THE BEST OF OUR KNOWLEDGE,"0" THIS PROGRAM IS IN THE PUBLIC"\" DOMAIN. F THIS IS NOT THE CASE"y" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT,  ":"U1%(U1):U2%(U2):U3%(U3):U4%(U4)JUJ$US$:UK$UG$:UL$UT$:UJUP:UKULPa, ** MENU **g-:."":UT,UU%:(50003)053281,9:53280,8/:1" MENU"6" --------------------------------------";" RUN ON ANY " 64 2" 64 ; 835D850o" HIS PROGRAM DRILLS THE STUDENT ON" EVALUATING MONOMIALS. HE LEVEL OF " DIFFICULTY OF THE QUESTIONS VARIES"" DIRECTLY WITH H"1234":35: INPUT ROUTINE_(UR$)1300&`US$""Cc(UR$)1000,400,500,396Lh300s ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: **ZUU$UG$:PUUP:UP1]UP0:UG$"ROGRAM OD":8508350UZ1UP%:217BUG$UU$:UPPUHm ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"1)"MONONOMIALS SUCH AS -8A3 AND [5B]2"G1)"AND -4[2C]3. O ANSWER A QUESTION,"s1)"WORK OUT THE ANSWER (ON PAPER IF"1)"NECESSARY) THEN TYPE THE FINAL ANSWER"1)"AND PRESS <>."1)"F YOU HIT A WRONG KEY PRE122:"";:(I137:"";:*I122:"";:=," _."  0" 2" 4"C O M M O D O R E6" O RETURN"1)"TO THE PRESS <>" 8354UZ1UP%:217FUG$UU$:UPPULm ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UT$" IMPLE UBSTITUTION":UP0:UG$"EACHER NST":850"  910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UR$"":UI UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844N>R ** PAGE DESIGN ROUTINE **JTUPUP1tW""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870a(UD$,24);(UP$,7);"HELP - +% ZUR$UX$195: EXIT TO HELP ROUTINE4 _UF1240A dUF0::Z f ++ CHECK DELETE ++k i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1) L%14:UP%1146:UM32768:UO158: 50003,0; (50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048z (50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198 UD$"" UP$" LP ROUTINE EXIT +++ 250 245< UQUB(U2%256U1%U3%2)X UQ%(UQUB)(UQ)::""k UZ1:UV%(UT)t 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB 7!"THIS MACHINE DOES NOT HAVE ENOUGH"""MEMORY TO RUN THIS PROGRAM !"*"UU710"J""":(50003)0962y" ** BASIC 2.0 OR 4.0 OR C-64 SETUP **"1075,133:1076,144:1077,234:1079,4:1080,133:1081,145"1091,155:109 TU$TI$:UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL'8, ** MENU **>-:m."":UT,UU%:(50003)053281,9:53280,8s/:1" MENU"6" --------------------------------------";" 1. SKIER@" 2. STUD 41:2105,21$2106,3:2115,145:2117,52:2118,234:2121,49:2122,141I$2123,20:2124,3:2126,234:2127,141:2128,21:2129,3g$UU48: DISABLE STOP KEYx$800: TITLE$300: MENU$"THE PGM WILL NOT WORK ON THIS MACHINE!":$UZ1U 396h300# ** RE-ENABLE STOP KEY AND END **R(50003)1(50003)160(50003)0399|UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0UP0:U!G$"TUDENT NST":8501150 : 850$" OTE:P" F AT ANY TIME YOU WISH TO RETURN"t" TO THE PRESS H " " OTE :"" HEN YOU ASK FOR HELP THE COMPUTER WILL"" STOP THE CLOCK ON YOUR ANSWER. OU MAY"  $"": UO,0 *UL0UL80, -" ";:UC,0@ 2UI$:UI$""50j 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 H "fUH0:"":k ** PLEASE WAIT REMARK **Lp(UD$,24);" ONE MOMENT PLEASE... "Ruo ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:U  UI$"":$ ** STANDARD INPUT **5 (UI$)46F UI$(32)c (UI$)48(UI$)57170i (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HE  "!UT$" Š": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!***!!;! ** SET VARIABLES **D!900J!:P!:k! ** CHECK FOR 8032 **!"":"": SHIFTED SPACE!(UB40)96700! ** MEMORY CHECK **! (0)200093 (U2%256U1%U3%3) UQ,UQ%(UQUB):* U1,U1%6 U2,U2%B U4,U4%P U3,U3%1X 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4)! 8,133:1099,144:1100,234:1103,133#1104,145:1105,234:1082,234&#(50003)160955U#1093,88:1094,228:1097,85:1102,228:965j#(50003)1990#1093,49:1094,230:1097,46:1102,230:965#2099,141:2100,20:2101,3:2103,8:2104,1 ENT INSTRUCTIONS"-E" 3. TEACHER INSTRUCTIONS"IO" 4. QUIT"xT" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,400,500,! ** PAGE DESIGN ROUTINE **TUPUP1-W""(UT$UP$,21);(UP$UG$(UP),18)\\" --------------------------------------"k`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,2! " TAKE AS LONG AS YOU WANT."835'UZ1UP%:217-N ** TEACHER INSTRUCTIONS **~"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN ! 211:U4214:UC204:UU20483(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198WUD$""UP$" "UT$" ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***! 499-4292"UP1: 835: 850:2" ROGRAM AME: KIER T" RITTEN Y : NKNOWNo" PGRADED Y : " HIS PROGRAM WILL RUN ON ANY" 64 " 64  8!U71"":(50003)0962) ** BASIC 2.0 OR 4.0 OR C-64 SETUP **g1075,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)1609!LOAD THE 'CBM 4032' PROGRAM"UU71>  ** T I T L E P A G E **r""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I137:"";:*I122:"";:,"!,3:2126,234:2127,141:2128,21:2129,3UU48: DISABLE STOP KEY(800: TITLE8300: MENUi"THE PGM WILL NOT WORK ON THIS MACHINE!":UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **"";::(50003)053281,6:53280,6 !(UD$,24);"PRESS SPACE BAR OR WAIT":I05<A$:A$" "II1:I250828Y>T1$"":T2$"":T3$"":T4$"":I0b@300~C ** SPACE BAR PRESS **H UO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ! TE."  " F NOT, HE GOES INTO THE TREES."+! " OU ARE BEING TIMED SO TRY TO ANSWER"[! " THE QUESTIONS AS QUICKLY AS POSSIBLE."g! 835:!"HOW MANY GATES DO YOU WANT? ";:US$"0123456789H":UL2:35!NG(UR$):NG01180"" "  ɧݧݥ "7""HE'S AT THE STARTING GATE"G"A1500:AU"B311g""";20);Bw"A1500:A~"B"TI$"000000""GT1NG"""18)"""17)" ":C$"!4);" ONE MOMENT PLEASE... " u( ** SET UP VARIABLES **sUX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U2210:U3!THE PUBLIC""" DOMAIN. F THIS IS NOT THE CASE"?" PLEASE CONTACT:"i" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416)! ** SET VARIABLES **900 ** CHECK FOR 8032 **9"":"": SHIFTED SPACEP(UB40)96700i ** MEMORY CHECK **} (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !"U!35NUZ1UP%:217W(X ** PROGRAM MODIFICATION INST **9Y"":UT,UL%Y]UP0:UG$"ROGRAM OD":850b835vUZ1UP%:217| ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032  " !551093,88:1094,228:1097,85:1102,228:965(50003)1990I1093,49:1094,230:1097,46:1102,230:9652099,141:2100,20:2101,3:2103,8:2104,141:2105,212106,3:2115,145:2117,52:2118,234:2121,49:2122,1412123,20:2124! ."  80" V2" ~4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;!220,251L""16)"SKIER" `12)"BY BRENT OLSON." j835:1180K ~ " HE OBJECT OF THIS GAME IS TO GUIDE"s  " THE SKIER THROUGH THE COURSE."  " F YOU ANSWER THE QUESTION CORRECTLY,"  " THE SKIER GETS THROUGH ANOTHER GA"  ̤"&J"  ߒ ߩ",&T"  "U&^"  "~&h"  "&r"   "&|"   " ""(C$" ":C$" + " #<C$" ":C$" "##PC$" ":C$" ";#dC$" ":C$" "S#xC$" ":C$" "k#C$" ":C$" "#TP((1)451)#BT((1)451)#"";16);"";TP#"";15);"";BT#chine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |cLF" $h"  $r"  %|"  Ҥ%"  Ҥ3%"  ҤJ%"  Ҥ]%"  p%" %"  %"  %" %"  %" 89:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~   & ! 0 `9 R}    " 9R|+T|lRlS" "&X" ͥ "'b" "#'l" "4'vAG(TI$)NGS'20);""a'30);TI$'20);"SWISS TIME:";36);""'20);"AVERAGE TIME "'20);"PER GATE:";AGڐ|-|pˁ|;́| p| 4 4 decided to use transfer mode 4& HS,ؚ|@́|;́|ú| p<́| p|*+ ipj decided to use transfer mode 4|` |`||I@|<@|"$I05:T$(I1):S$(8I2,1(I1)4)T$(I1):%I17:J04:C$(I,J)::?%"    "f%"""%,""%6""%@"ϣ# "&" "'" "9'" "`'"Σ  ͤ"}'"   ߒ"'""'""'"@x| @A|>]|-| x>Ґ|Ґ|u|xu|"UB296,233#UB375,32#D$"" $D$"":D$""#$D$"":D$"ͥ"<$D$"":D$""I$ANTPBTS$"""|$,US$"0123456789H":UL2:35:RS(UR$)$6RSAN1620$@GT$J1810$T" ߒ$^" V|Xhx1F`>J?a|0= h V w ` q v n i s e "  %""17)"CRASH"%""&2010&" ";&" ߒ "X&&" FISCHER ߩߒ "u&0" ̤ "&:" "&D" "&N" TSؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh 'UB596,225:EUB597UB604:E,32:E(EUB621UB635:E,98:E#(UB620,252:UB636,254^("WOULD YOU LIKE TO TRY AGAIN? ";:US$"YN":UL1:35i(A$UR$(A$"Y""":1180( "&D" "&N" FՌF .j FT d d,nnMicrosoft.Windows.SystemCompatible,processor# )":2870:GIQ:GG60(12GI)G10.k"":UT,UU% /pCCUM668:PCCC:L40:E0:AA0:TT0B/z(50003)053281,1:"":53281,6:53280,14:2177K/""s/D$R$"۳"/TL$RI$"":N115:RI$""::R$R$"GRADE"G"SPEED"GI# "'"   "("    "?(" "`(" "(" "(" Υ   "("# $0" "0"";Q$:Q$"?""":23101A0:(Q$)AN(Q$)AMA1-1" "P1TTICLGG:T(T)((T)GG3)d12700:E12160r1A122001TRA0TR1:" RETRY":2900:22201 " ANSWER WA# )b"" *l"    "2*v"ߒ ߒ ߒ ߒߩ"S*"   "*" ߒ   ߩ"*"    "*" ߩ#AMAN:2B TL$" WHICH TRIANGLE HAS":" A "Q2$:" TO"Q3$3L X6:Y5:2670:I05:SS(0):IAN1SS(1)V3V RR(I)3(R(I)3)4:BP$(I)BB$S$(R,5)BP$(I)C$(R,S)::AMAN:3` TL$" TWO ARE THE SAME":" ROTATED; GIVE ONE"3j X6:Y5:2670:SR1((1)#"ߒ","ߒ"+"ߒ","","",""2,"","","","","",""i,"","","","","","",B1$" ",B2$" 1 2 3 #:2670:I05:RR(0):IAN1RR(1)4 SS(I5(I4)):BP$(I)BB$S$(R1,S1)::AMAN:*5 TL$" WHICH SHAPE HAS":" A"Q2$"PATTERN"95 " TO"Q3$h5 X6:Y4:2670:I05:SS(0):IAN1SS(1)5 BP$(I)BB$S$(R(I)1,S1)::AMAN:5 TL$" TWO SHAPES#)::D$"".>R$"":RI$R$R$"":NL$"":TL$""8.HUG$" ":UP0:850a.RQ2$" DIFFERENT ":Q3$" THE OTHERS ".\" RADE (1=EASY...9=HARD)":2870:GQ.f" PEED (1=SLOW...9=FAST# :AMAN:62 TL$" WHICH IS"Q2$6< X10:K5:2670:I05:SS(0)1:RR(0):IAN1RR(1)!7F BP$(I)BB$S$(R1,14S)::AMAN:]7P TL$" GIVE ONE OF":" THE TWO WHICH":" ARE THE SAME"7Z X10:Y5:2670:R(AM1)R(AN1):S(AM1)S(AN1):I05:SS(I)1 7d BP$(I)BB$S$(R(I)1,14S)::7n I0X:R(I)I::I0Y:S(I)I:8x I1X:R(1)X:S(1)X:JR(R):R(R)R(S):R(S)J:W8 I1Y:R(1)Y:S(1)Y:JS(R):S(R)S(S):S(S)J::8 T23(A1)2710,2720,2730,2740,2750,2760:27708 PCL1,77:#/""B1$:B2$:N15:B$::B3$02900:AN(6(1)1):AMAN:AM(AN23(1)):AMAM6(AM6)J0G2610,2580,2460,2500,2640,2540,2330,2370,2400:TR00UT,UU%:CLTI:D$" ";0"? ";:US$"123456?H":UL1:35:Q$UR#   "("")&""*)0""U):"   ͥ"z)D"   ")N"")X""#S"AN:8351 " GRADE"G" SPEED"GI2 " ":220002 TL$" WHICH HAS MOST 'S"^2$ X6:Y5:2670:I05:K(1)3:IAN1K32. RR(I)3(R(I)3)4:BP$(I)BB$S$(R,5)28 J0K:BP$(I)C$(R,S(J)):::# ߒ"+"  "5+""," "," "," "," "p+"ߒߩ","ߒ","","ߩ","ߒ"+"","","","","ߒ","ߒ"+"ߒ",#3):SI0:(AMAN)SRSRSR13t I053~ SS(4):IAN1IAM1SS(SI):SISI124 RR(I)3(R(I)3)4:BP$(I)BB$S$(R,5)BP$(I)C$(R,S)[4 SSSR5(SSR4):BP$(I)C$(R,S)::4 TL$" WHICH BOX CONTAINS":" A"Q2$" SHAPE"4 " TO"Q3$4 X6:Y4# 4 5 6 ", B$" ",-B3$" "b- BB$" ":BB$BB$BB$BB$BB$BB$""-*BP$""-4I05:BP$(I)(BP$,56I# ARE":" THE SAME GIVE ONE"5 X6:Y5:2670:SI0:R(AN1)R(AM1):I056 SS(4):IAN1IAM1SS(SI):SISI1;6 BP$(I)BB$S$(R(I)1,S1)::R6 TL$" WHICH IS"Q2$6 X10:Y2:2670:I05:SS(0):IAN1SS(1)6( BP$(I)BB$S$(R(I)1,14S):