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$"":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 +++$ 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: +++ HELP 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)UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN MONOMIAL MULTIPLICATION" @" 2. STUDENT INSTRUCTIONS"4E" 3. TEACHER INSTRUCTIONS"MO" 4. QUIT"|T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,400,500,396h300' ** RE-ENABLE STOP KEY AND END **V(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0UP0:UG$"TUDENT NST":8508: " EMEMBER, HIT KEY AFTER"e: " TYPING YOUR ANSWER. HIS TELLS": " THE COMPUTER TO ACCEPT WHAT YOU": " HAVE TYPED.": " YPE SHIFTED AT ANY TIME TO" : " QUIT DOING QUESTIONS AND RETURN TO"(: " THE MENU. "V" O SKIP A QUESTION, ENTER SHIFTED"v" FOR YOUR ANSWER.": 835:850" HIS PROGRAM GIVES PRACTICE IN MULTI-"" PLYING TWO OR THREE MONOMIAL FACTORS"" WITH EXPONENTS. N THE MULTIPLICATION"B" QUESTIONS WHICH FOLLOW,THERE ARE THREE"p" LEVELS OF DIFFICULTY TO CHOOSE FROM."" NTER YOUR COMPLETE ANSWER IN THE SAME"" WAY THAT YOU WOULD WRITE IT ON PAPER.":835UZ1UP%:217 ** TEACHER INSTRUCTIONS **?"":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 USINESS ACHINES"M" 3370 HARMACY VE.q" GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: ONOMIAL ULTIPLICATION"!" RITTEN Y : . . ICHOLSON A" PGRADED Y : l" HIS PROGRAM WILL RUN ON ANY" 64 " 64  835NUZ1UP%:217WX ** PROGRAM MODIFICATION INST ** Y"":UT,UL%*]UP0:UG$"ROGRAM OD":8503835GUZ1UP%:217Mr ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71  ** T I T L E P A G E **C""";:UT,UU%:(50003)053280,14:53281,6Y$I138:"";:q&I122:"";:(I137:"";:*I122:"";:," ."  0" '2" O4"C O M M O D O R Er6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828*>T1$"":T2$"":T3$"":T4$"":I03@300OC ** SPACE BAR PRESS **HUO,0:(UD$,24);" PRESS SPACE BAR TO CONTINUE "LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)0\" --------------------------------------"?`UH0870qa(UD$,24);(UP$,7);"QUIT - PRESS SHIFTED Q "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **EUX$"":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)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198)UD$""[UP$" "UT$" .": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** ** SET VARIABLES **900 ** CHECK FOR 8032 ** "":"": SHIFTED SPACE"(UB40)96700; ** MEMORY CHECK **O (0)2000937}"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !"UU71"":(50003)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **91075,133:1076,144:1077,234:1079,4:1080,133:1081,145o1091,155:1098,133:1099,144:1100,234:1103,1331104,145:1105,234:1082,234(50003)1609551093,88:1094,228:1097,85:1102,228:965(50003)1990 1093,49:1094,230:1097,46:1102,230:965U 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 !300: MENU;!"THE PGM WILL NOT WORK ON THIS MACHINE!":p!UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **!"";::(50003)053281,6:53280,6!UT,UL%!DN$""!$BL$" "%".B1$""N"8B2$" "}"BB3$" ":1170"L"":5)B1$"VI15:5)B2$:5)B3$:"`5)B2$:5)B1$:"""j14)""#t15)""#~11)"BY .. ICHOLSON"/#I11500:M#UG$"":UP0:UH1:850:H0~#" HAT LEVEL OF DIFFICULTY DO YOU WANT?"#" (1 EASY, 2 AVERAGE, AND 3 HARD) ";#2030:LV(Y$)#" RE NEGATIVE EXPONENTS ? ";:2040$Y$"Y"NG2:1320 $NG1$(H01390$ZH1-$n835:NQ0g$xUG$"QUESTION #":NQNQ1:UPNQ1:850:" IMPLIFY:"y$NG2750,2810$LV3F3:1440$F2$2680:2880$:I1F$"["; C$(I);$J1LV$E(I(J1)3)0 1500%B$(J);E$(I(J1)3); %J%"]";%I :7%D1: Q$"= ":2170M%D1550,1400,1970W%3000`%WC0t%"SE(0)CAWC1%,I1LV%6L(I)0:W(I)0%@J1LV%JB$(I)SB$(J)L(I)J:JLV%TJ%^I%hI1LV%rL(I)01680&|AE(I)SE(L(I))1700&W(I)1:1700#&AE(I)01700.&W(I)15&I`&WCW(1)W(2)W(3)0"IGHT!":1950&" ":" ORRECT ANSWER:=";&CA1TE0 1760&CA1TE0 "- ";:1760&(CA);&I1LV'AE(I)01790'B$(I);AE$(I); ')' :<'"OEFFICIENT"M'"=";:I1F`'&"[";C(I);"]";f'0v':" = ";CA:'DI1LV'N"XPONENT OF BASE ";B$(I):"= ";'XJ1F'b"[";E(3(I1)J);"]";'lJF " + ";'vJ'" = ";AE(I); (AE(I)0"AND ";B$(I);"0 = 1";+(::I4(835>(1400S(835::900:300l(US$"123":UL1:2050~(US$"YN":UL1(35:Y$UR$:(zZ$:Z$""2170(Q$;(Y$"":P$"":TC0:"";(Z$:Z$""2200(Z$"" D2:Z$:2550)Z$""D3:Z$:UP%:300")Z(Z$)1)Z132410G)Z20Z157 2290{) Z64Z91 P$P$"D":TC1:Z$;:Y$Y$Z$:2200)Z43(Z44Z58Z47)2390)2200)Y$""2200)(Y$)1"";:2190* Y$(Y$,(Y$)1):R$(P$,1) :P$(P$,(P$)1)* R$"U" " ";:2340+* " ";K*$ ZZ1(Y$):T((Y$,ZZ,1))b*. T 65 TC0:2370u*8 TC1: ZZ(Y$){*B *L 2200*V TC0P$P$"D":Z$;:Y$Y$Z$:2200*` P$P$"U":""Z$"";:Y$Y$Z$:2200*j *t TC0:ZE0:ZB1 +~ ZZ0 9:SE$(ZZ)"": $+ ZZ13:SB$(ZZ)"":4+ Y$""2500V+ L$(Y$,1):T(L$):Y$(Y$,2)|+ T65TC0SE$(0)SE$(0)L$:2450+ T65SE$(ZE)SE$(ZE)L$:2450+ SB$(ZB)L$:TC1:ZBZB1:ZEZE1:2450+ ZZ0 9:SE(ZZ) (SE$(ZZ)), SE$(ZZ)""SE(ZZ)1, *, SE$(0)""SE$(0)"+"SE(0)1C, SE$(0)"-"SE(0)1I, ],Z T(26(1))65,d T69T72T73T76T79T88T832650,n ,x 2650:B(1)T, 2650:TB(1)2690, B(2)T, 2650:TB(1)TB(2)2710, B(3)T - ZZ13:B$(ZZ)(B(ZZ)):- - ZZ1 92- E(ZZ)(10(1))O- E(ZZ)1E$(ZZ)"":2790p- E$(ZZ)""((E(ZZ)),2)""v- |- - ZZ1 9- E(ZZ)(19(1))9- E(ZZ)1E$(ZZ)"":2860- E(ZZ)0 E$(ZZ)""((E(ZZ)),2) "" :2860 ." E$(ZZ)"" (E(ZZ))""., .6 /.@ ZY13:T(ZY)0:D.J ZY1F:ZX1LVg.T T(ZY)T(ZY)(E(3(ZX1)ZY))2o.^ :{.h ZZ13.r C(ZZ)(17(1))8.| C(ZZ)02930. C(ZZ)1T(ZZ)0 C$(ZZ)" ":2980. C(ZZ)1T(ZZ)0 C$(ZZ)"- ":2980 / C$(ZZ)(C(ZZ))/ / $/ CA1:TE0;/ ZZ13:AE(ZZ)0:F/ I1FU/ CACAC(I)`/ J1F}/ AE(I)AE(I)E(3(I1)J)/ J/ TETE(AE(I))(AE(I))/ AE(I)1AE$(I)"":3110/ AE(I)0AE$(I)""((AE(I)),2)"":31100 AE$(I)""(AE(I))""0& I00 '0: " = ";AE(I):.0D I$(I)"":3110/ AE(I)0AE$(I)""((AE(I)),2)"":31100 AE$(I)""(