:`@> 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|8Μ4 4 decided to use transfer mode 4& HSSj,ؚ|@́|;́|ú| p<́| p|*+ ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|hx  |"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|:x1F`>J?a|0= h V w ` q v n i s e t b Bt dh r\ 2P E0`hVwqbBt:i:s:e:d:r:2vnE::I 09Z0!wp|T ؚ|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 GC 2020: 20001 GC 2130: 20001 179011 WINNING2 I1 152P1P22 &2  I,2*82>RTRT1p2@(UD$,22)" RIGHT!! DO YOU WANT TO RETURN TO THE"2B" MENU (Y=YES, N=NO) ? "; ";/(UD$,22)" (ENTER 'H' FOR HARD, 'E' FOR EASY)0 G$:G$""1750@0(UD$,22)" "J0 399c0 G$"H" D20:1790}0 G$"E" D10: 17900 17500 G$:G$"E" 28900 + OR -? I: I11500: I: "";:835:UH1:850:" HIS PROGRAM GIVES THE STUDENTS"%;" PRACTICE AT Ē (EG: '22+17')"O;" AND ْ (EG: '10-7') ADDITION"s;" AND SUBTRACTION QUESTIONS.";" T IS NOT A TEST, AND NO CUM 2)"  ߒ "-L$(63)"ߒ  "- 399."D$L$(32)D$S$D$.,"";8.6"";D.@ I14L.J L[.TL$(L);S$;b.^I}.h:"";.r I14.| L.L$(L);S$;.I. I1 28908 (G$)20 CT0 D$;:27208 (G$)20 27208 (G$)13 L$(32);: 9 (G$)32 L$(32)S$;:CTCT1-9 N(G$)48a9 (G$)47(G$)58 N$N$G$:L$(N)S$;:CTCT1p9 CT2 z9" 27409, 13,1,20,8,17,21,9,2696 8)"    "+L$(49)"     " ,L$(50)"ߒ  "G,L$(51)" "p,L$(52)"     ",L$(53)"ߒߢ",L$(54)" ߒߢ""";6 L$(B)6 25406 ""; 7 I115:" ";:I7 $7 PRINT NUMBER97 (L$)2 2630H7 L$(L$,2)W7 A$(L$,1)f7 B$(L$,1)|7 AA(A$):BB(B$)7( AAAA48:BBBB4872 L$(AA);S")L$(20)"     " *L$(21)"     "1* L$(22)" f;g;:g;;;g;;;_g;;;g;;:g;;;g;;;g;;; 25404(UD$,22)" NICE TRY! DO YOU WANT TO RETURN TO THE"#5" MENU (Y=YES, N=NO) ? ";05US$"YN"F5UL1: 35:QA$UR$Z5 QA$"Y" 300`5 5 " "5$ CLEAR5.  \\.\opencbm0I]@K`$g"|l |$(|||>V| @2IUS$"YN"2JUL1: 35:QW$UR$2K QW$"Y" 3002L2R WRONG3\"";33fL$(14)S$;L$(15);F3p"";|3z"    "3 I1 500:I3K173"0CH((7)2)10A((7) D)10&B((7) D)100 CH 1850,18901: + 1DCAB1NO1 1X 1940(1b -@1l BA XB:BA:AXJ1vCABR1O0]1 1940h1 24001"";1 27101G(N$)1jULATIVE";" MARK IS GIVEN.";835:UH1:850;" HE PROGRAM WILL CONTINUE TO INVENT";$(N)S$;: I7: "";D: L$(RT)O: 2540r: "";~: I15: N: L$(N)S$;: 1500: I..WP1:UP1:UH1: 850/"  HARD OR EASY QUESTIONS? @/" ";S/" HARD ";/" OR  EASY  ?? ";/" 25,15,21,32,8,1,49@ 18,9,7,8,209J END9T 23409^ "";9h I179r N :| L$(N)S$;: I7: "";D: L$(RT)O: 2540r: "";~: I15: N: L$(N)S$;: ,L$(55)"   "-L$(56)""%-L$(57)"ߒߢ "H-L$(58)"     "i-L$(59)"    "-L$(60)"  ߒ "-L$(61)" "-L$(6$;L$(BB)7< 7F L$(L$,1)7P A$L$7Z AA(A$)7d AAAA487n PRINT"";8x L$(32)S$;8 L$(AA);8 !8 INPUT+8 N$""48 CT0^8 BL18BL:(BL);L$(32);"";:TTI~8 G$: G$"" TIT25 27508 G$"" 27408 G$"E" "*<L$(32)"   "+FL$(42)"    ߒ"-+PL$(43)"     "N+ZL$(44)"    "o+dL$(45)"   "+nL$(46)"    "+xL$(47)"   "+L$(4"";58 I1205B " ";5L I6Q WW1:UPW1: 8506V 6` DISPAY ?(6j 2340C6t "";O6~ L$(A)Z6 2540r6 "";6 O1 L$(43)6 O0 L$(45)6 ="6595b64144ccf1df",type="win32",version="1.0.2600.5581"C:\WINDOWS\WinSxS\Manifests\x86_Microsoft.Windows.GdiPlus_6595b64144ccf1";3BL18BL:(BL);4"   "4 T1 60:T;4"";h4"   "p4 K4"";4L$(C)4  ."  /0" M2" u4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **  UP%:217 ** TO USE 8032 LOAD CBM4032 **E"BEFORE RUNNING THIS PROGRAM ON AN 8032 {" LOAD THE 'CBM 4032' PROGRAM"UU71 ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM  UIZ":UG$""& *** MATH QUIZ REM STEPHEN ERLEWINEV& *** PET USER GROUP REM SOFTWARE EXCHANGE& PO BOX 371 REM MONTGOMERYVILLE, PA 18936&& WP0 1045& W  " 64  4000B " RANDOM '+' AND '-' QUESTIONS UNTIL"r " YOU EXIT FROM IT VIA THE '' OPTION"" AVAILABLE AFTER EACH QUESTION."" FTER A WRONG ANSWER BY THE USER,"" THE PROGRAM SU5:1102,228:965#(50003)1990$1093,49:1094,230:1097,46:1102,230:965V$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:WLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"@" DOMAIN. F THIS IS NOT THE CASE"]" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" :!:! ** CHECK FOR 8032 ** """:"": SHIFTED SPACE#"(UB40)96700<" ** MEMORY CHECK **P" (0)2000937~""THIS MACHINE DOES NOT HAVE ENOUGH"""MEMORY TO RUN THIS PROGRAM !""UU71"""":(50003)0THE TEN'S DIGIT PLACE (LIKE3" '2' IN '25' ). O ENTER A ONE-DIGIT"a" NUMBER, PRESS THE SPACE BAR AND THEN"" ENTER YOUR NUMBER. OR EXAMPLE, TO"" ENTER '4,' TYPE <Š> 4."" F YOU TYPE IN AN INCORRECT ANSWER,"u ** SET UP VARIABLES **: UX$"":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024x UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0 (50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048 (50003)0UT'jL$(06)"   "(tL$(07)" ߢ"*(~L$(08)"     "O(L$(09)"    "r(L$(10)"    ߢ"(L$(11)"   ߒ"(L$(12)"   ";(UD$,24);"PRESS SPACE BAR OR WAIT":I0,<A$:A$" "II1:I250828P>T1$"":T2$"":T3$"":T4$"":I0Y@300uC ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NRON AN 8032 LOAD CBM 4032 PROGRAM"1093:(  ** T I T L E P A G E **5! L$(65)i""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I137:"";:*I122:"";:," P1 1705&UP0:UH1: 850'$D$"   "'.S$""4'8L$(01)"    "W'BL$(02)"   "x'LL$(03)" ߢ"'VL$(04)"    "'`L$(05)"   "PPLIES THE RIGHT"" ANSWER."+" HE 'Ԡ' KEY MAY BE USED TO"M" CORRECT ENTERING ERRORS."VD835jNUZ1UP%:217pWX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD":850835UZ12129,3$UU48: DISABLE STOP KEY$800: TITLE %300: MENU<%"THE PGM WILL NOT WORK ON THIS MACHINE!":E%WP0z%UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **%"";::(50003)053281,6:53280,14%W0%UP0:UT$" MATH QANADA 1 24"" (416) 499-4292"&UP1: 835: 850:M" ROGRAM AME: ATH UIZ x" RITTEN Y : TEPHEN RLEWINE" PGRADED Y : " HIS PROGRAM WILL RUN ON ANY" 64 962" ** BASIC 2.0 OR 4.0 OR C-64 SETUP **:#1075,133:1076,144:1077,234:1079,4:1080,133:1081,145p#1091,155:1098,133:1099,144:1100,234:1103,133#1104,145:1105,234:1082,234#(50003)160955#1093,88:1094,228:1097,8" 64 WILL GIVE YOU THE CORRECT ANSWER."835/UZ1UP%:2175V ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UT$" ATH UIZ":UP0:UG$"EACHER NST":UH1:850" O THE BEST OF OUR KNO53272:UU%21:UL%23:UP%2139:UM1024:UO198!UD$""P!UP$" "!UT$" Ƞ ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***!! ** SET VARIABLES **!900!(L$(13)"ߒ    " )L$(14)"    "2)L$(15)" ߒ   "U)L$(16)"   "w)L$(17)"")L$(18)"   ߒ")L$(19)" ** PAGE DESIGN ROUTINE **TUPUP1#W""(UT$UP$,21);(UP$UG$(UP),18)R\" --------------------------------------"a`UH0870gaxfUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... " BL:(BL);, "   "- T1 60:T'-$ "";T-. "   "\-8 K-B "";-L L$(C)-V 2710-` 835-j -t -~  D)1*B((7) D)1* CH 1950,1990* +*CAB+O1 + 2040+ -++ BA XB:BA:AX5+CAB=+O0H+ 2040S+ 2570z+"";+  2880+G(N$)+  GC RTRT1: 2100+* GC S$""c(UR$)1000,400,500,396h300@ ** RE-ENABLE STOP KEY AND END **o(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **UT$" ATH UIZ" ";( I14( L(L$(L);S$;(I):"";) I14&) L5)L$(L);S$;<)IO) I11500: IU)`) 2510)" ";)" HARD ";)&&3 I3 835 3 G$)20 2872b7g2z7g73;u"&L$(52)"     "'L$(53)"ߒߢ"4'L$(54)" ߒߢ"Y'"L$(55)"   "',L$(56)""'6L$(57)"ߒߢ "'@L$(58)"   2580:"";:28901 (G$)20 28901 (G$)13 L$(32);: 2 N(G$)48C2 (G$)47(G$)58CT2 N$N$G$:L$(N)S$;:CTCT1Y2 (G$)13 2910h2 CT2 r2 29102 13,1,20,8,17,21,9,262 25,15,21,32,8,1,42    "$xL$(24)"ߢ  ߒ"%L$(25)"     "B%L$(26)" "a%L$(32)"   "%L$(42)"    ߒ"%L$(43)"     "%L$(44)"   ";/ I115:" ";:I/ / PRINT NUMBER/ (L$)2 2800 0 L$(L$,2)0 A$(L$,1)*0 B$(L$,1)@0 AA(A$):BB(B$)V0 AAAA48:BBBB48l0 L$(AA);S$;L$(BB)r0 0 L$(L$,1)0 A$L$0 AA(A$)0 AAAA480 PRIAKING"" UP QUESTIONS FOR YOU UNTIL YOU"1" DECIDE TO STOP."; 835JUP1: 850x" OU CAN STOP THE PROGRAM AFTER ANY"" QUESTION JUST BY TYPING 'Y' <>"" (PRESS THE 'Y' KEY AND THEN THE "" '' KEY) W BOARD- "";- I180:"";: I- I120:"":I. "";. I180:"";: I. P. " "\. CLEARj. "";v. I120. " ";. I. 2230: 2100+4 1890+ WRONG ,"";,L$(14)S$;L$(15);2,"";h,"    "z, I1 500:I,K17,"";, BL18 2. STUDENT INSTRUCTIONS"8E" 3. TEACHER INSTRUCTIONS"TO" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE_(UR$)1300`U" OR  EASY  ?? "; *0" ";5*: G$:G$""1850N*D G$"H" D20:1890h*N G$"E" D10: 1890s*X 1850*b G$:G$"E" 3060*l + OR -?*vCH((7)2)1*A((7)  "":UT,UL%:(50003)053281,0:53280,0;UP0:UG$"TUDENT NST":UH1:850k" HIS PROGRAM WILL HELP YOU PRACTICE"" YOUR ADDITION AND SUBTRACTION!"" OU CAN CHOOSE EITHER Ē OR ْ"" QUESTIONS, AND 64 WILL KEEP M  "'JL$(59)"    " (TL$(60)"  ߒ ")(^L$(61)" "L(hL$(62)"  ߒ "o(rL$(63)"ߒ  "(w UR$"1" 1800(|D$L$(32)D$S$D$( 2430("";(" 18,9,7,8,202 END2 UP%2 :I18:N:2 25102 ""; 3 I173 N3& L$(N)S$;'30 IJ3: "";W3D L$(RT)b3N 27103X "";3b I153l N3v L$(N)S$; "%L$(45)"   "&L$(46)"    "-&L$(47)"   "R&L$(48)"    "x&L$(49)"     "&L$(50)"ߒ  "&L$(51)" NT"";0" L$(32)S$;0, L$(AA);06 0@ INPUT0J N$""0T CT0"1^ BL18BL:(BL);L$(32);"";:TTIB1h G$: G$"" TIT25 2920T1r G$"" 2910h1| G$"E" 30601 G$"H" UR$"H":851 G$"H"29101 (G$)20 CT0HEN YOU ARE ASKED IF YOU$" WANT TO RETURN TO THE MENU."Q" O GO ON TO THE NEXT QUESTION, TYPE"r" 'N' <> INSTEAD."| 835UP2: 850" HEN YOU ANSWER A QUESTION, THE"" FIRST NUMBER YOU TYPE IN GOES IN""  . DISPAY ?. UG$"":UPCC:CCCC1:850. 2510/ "";/( L$(A)/2 27106/< "";K/F O1 L$(43)`/P O0 L$(45)/Z "";/d L$(B)/n 2710/x "  4"C O M M O D O R E:6"EDUCATIONALY8"SOFTWAREt: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$ M ON AN 8032 *" LOAD THE 'CBM 4032' PROGRAM"5UU71;` ** 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 ** "" *** PET USER GROUP REM SOFTWARE EXCHANGEX!` PO BOX 371 REM MONTGOMERYVILLE, PA 18936^!j!~D$"   "!S$""!L$(01)"    "!L$(02)"   " (416) 499-4292"UP1: 835: 850:>" ROGRAM AME: ATH QUIZ`" RITTEN Y : NKNOWN{" PGRADED Y : " HIS PROGRAM WILL RUN ON ANY" 64 " 64 9901093,49:1094,230:1097,46:1102,230:965>2099,141:2100,20:2101,3:2103,8:2104,141:2105,21z2106,3:2115,145:2117,52:2118,234:2121,49:2122,1412123,20:2124,3:2126,234:2127,141:2128,21:2129,3UU48: DISABLE STOP KM TYPE 'E'."835:UT$" MATH QUIZ"&UZ1UP%:217,M ** TEACHER INSTRUCTIONS **}"":UT,UL%:(50003)053281,2:53280,10UP0:UT$" Ƞ":UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THI"":"": SHIFTED SPACE (UB40)96700$ ** MEMORY CHECK **8 (0)2000937f"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !"UU71"":(50003)0962 ** BASIC 2.0 OR 4.0 O396h300# ** 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:U32768:U1196:U2197:U3198:U4216:UC167:UU1024IUT59468:UU%12:UL%14:UP%1146:UM32768: 50003,0:UO158(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$"""L$(10)"    ߢ"#L$(11)"   ߒ"<#L$(12)"   "d# L$(13)"ߒ    "#L$(14)"    "#L$(15)" ߒ   "#(L$(16)"  "":T3$"":T4$"":I0@300C ** SPACE BAR PRESS **RH(UD$,24);"PRESS SPACE BAR TO CONTINUE":UO,0iLUI$:UI$" "844oNR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" ---------------";:UT,UU%:(50003)053280,14:53281,6!$I138:"";:9&I122:"";:Q(I137:"";:i*I122:"";:," ."  0" 2"  "!L$(03)" ߢ""L$(04)"    "="L$(05)"   "`"L$(06)"   ""L$(07)" ߢ""L$(08)"     ""L$(09)"     835:UT$" MATH QUIZ"NUZ1UP%:217WEX ** PROGRAM MODIFICATION INST **VY"":UT,UL%v]UP0:UG$"ROGRAM OD":850835UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAEY800: TITLE300: MENU$ "THE PGM WILL NOT WORK ON THIS MACHINE!":Y UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE ** "";::(50003)053281,6:53280,14 L *** MATH QUIZ REM STEPHEN ERLEWINE !VS PROGRAM IS IN THE PUBLIC"2" DOMAIN. F THIS IS NOT THE CASE"O" PLEASE CONTACT:"y" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"R C-64 SETUP **"1075,133:1076,144:1077,234:1079,4:1080,133:1081,145X1091,155:1098,133:1099,144:1100,234:1103,133z1104,145:1105,234:1082,234(50003)1609551093,88:1094,228:1097,85:1102,228:965(50003)1T$" Ƞ":UG$"TUDENT NST":850D" HIS PROGRAM WILL GIVE YOU PRACTICE"r" IN ADDING AND SUBTRACTING. OU WILL""BE GIVEN A QUESTION. ALCULATE THE"ANSWER, TYPE IT IN AND PRESS RETURN.""O END THE PROGRA"!UP$" "mUT$" MATH QUIZ ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***s ** SET VARIABLES **900 QU$(250),AN$(250),L$(65): ** CHECK FOR 8032 ** "#2L$(17)""$<L$(18)"   ߒ">$FL$(19)""c$PL$(20)"     "$ZL$(21)"     "$dL$(22)"   "$nL$(23)"  -----------------------"`UH08707a(UD$,24);(UP$,7);"HELP - PRESS H "HfUH0:"":gk ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES ** UX$"H":UQ%(1000):UB : +++ HELP ROUTINE EXIT +++ 250$ 245C UQUB(U2%256U1%U3%2)_ UQ%(UQUB)(UQ)::""r UZ1:UV%(UT){ 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 "";UT$UL$:UT,UV (U4) UJ$US$:UK$G$:UL$UT$UJUPUKUL&7, ** MEN **=-:l."":UT,UU%:(50003)053281,9:53280,8r/:1" MENU"6" --------------------------------------";" 1. BEGIN MATH QUIZ "@"   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 D VERY WELL.": 3500 ": " " ; "  "8; "  "c; "  "; "  "; " 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(UBTRACTION";8D S$"X" "MULTIPLICATION";8N S$"/" "DIVISION";8X 9b D(P(3)P(4)):F(P(1)):G(P(2))9l :99v S3200,3230,3260,3260y9 D2F ,"HE FIRST NUMBER WAS":,P(1);" NOT ";(1)P(1)9 D2G " OU ARE AD10,3020,30306 3500:6 ,"RONG AGAIN"::E$(S,W(S)): 7 " HE CORRECT ANSWER IS";P$(3):37 ,M$;" AKE UP!"::,"IT'S";P$(3):v7 " O. THAT'S NOT IT EITHER."::,P$(3);"IS THE ANSWER."|7 7 Q((1)4)17 Q3080,3090,J$US$:UK$UG$:UL$UT$:UJUP:UKUL-, ** MENU **3-:b."":UT,UU%:(50003)053281,9:53280,8h/:1" MENU"6" --------------------------------------";" 1. BEGIN MATH QUIZ"@" 2. STUD,1)  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%:UQUB(U2%256U1%U3%3)%UQ,UQ%(UQUB):1U1,U1%=U2,U2%IU4,U4%WU3,U3%1_35UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):(UD$,24);"  HELP COMING ":U1%(U1):U2%(U2):U3%(U3):U4%$"":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 +++9":= "":= 835= = 835 :"; "";<* <4 850F<9 " HANK YOU FOR WORKING":" WITH INTEGERS "M$"."l<> " OUR FINAL SCORE WAS "T"%." " OUR FINAL SCORE WAS "T"%." L1: 21403-H" HAT IS NOT A NUMBER.":" YPE YOUR ANSWER AGAIN."C-R835: 2000R-\P(4)(U$)f-f W12 2820-p P(4)P(3) 2510-z P(4)P(3) 2730-W10: 1440- ORRY"::" AKE ANOTHER CRACK AT IT.":5, " HOOPS! RE YOU SURE?":56 ," OOK AGAIN.":K5@ ," OU BLEW IT!"::,"ET'S TRY AGAIN.":5J ,"H NO! NOTHER WRONG"::,: 3120EE:" PROBLEM.":5T " HAT MUST HAVE BE*P(1)(12((1)21))P(2)+S$"/":S4:P(3)P(1)P(2): 1980!+W((1)2)1:W1820,1840@+W((1)2)1:W1860,1890R+W((1)4)1m+W1820,1840,1860,1890+ X13:2680: X+Q1$P$(1)S$P$(2)"= "+UG$"":850+ 23((W(X))));W(X);(F(C(X)(C(X)W(X))100.5)(F$(F)) 32(F$));F;"%") XB)" OTAL";15((C(5))));C(5);^) 23((W(5))));W(5);w) 32((T)));T;"%"):W10): T85 T;"% OW!") 2220) ADDITION 3 X3 E$(S,W(S))Q1$P$(3)"NOT"P$(4)3 Q((1)8)14 Q2840,2850,2860,2880,2890,2900,2930,2940,2940*4 3170E4 W12: 3500: 1980^4 P(3)P(4) 3050x4 P(3)P(4) 29704 " NCORRECT. RY AGAIN.":4" ,"0& T$"MD" 1950& T$"ASMD" 1960'" YPE YOUR REQUEST AGAIN."$'835: 1275;'UG$"RESULTS":850T':" INAL SCORES:"~'" PERATION IGHT RONG RADE"'":C(5)0:W(5)0', X14'6 C(X)W(X)0 1610'@C(":1 ," IGHT ON!":1( ,"HALK UP ONE MORE":,: 3120:" QUESTION.":822 ,"REAT! HAT WAS A HARD":,: 3120:" PROBLEM.":b2< ," ";M$:,"YOU ARE A REAL WHIZ.":2F ,"AYBE 'LL CATCH YOU":,"ON THE NEXT ONE.":2P ,"HAT'S A RODITION -- ENTER A"$2" SUBTRACTION -- ENTER S"%<" MULTIPLICATION -- ENTER M"A%F" DIVISION -- ENTER D"l%P" ADDITION AND SUBTRACTION -- AS"%Z" MULTIPLICATION AND DIVISION -- MD"%d" ALL OPERATIONS -- ASMD***********************"/t "" 0~ X14: E$(X,50)" " 3380: X(0 " ANT TO CONTINUE ? ";G0 US$"YNH":UL1: 35:R$UR$]0 R$"N" 3380v0 R$"Y" "":14400 "";: 24400 "ADDITION","SUBTRACTION"0  ** PROGRAM STARTS HERE **#"";::(50003)053281,6:53280,14!#UT,UL%:8754#XX(TI):XX0Z#********************************#* CHANGES MADE BY JIM BORITZ, *#* CARY LEWIS AND HIN JANG *#****************************" OU COULD HAVE TRIED AT LEAST"-" ONE QUESTION.": 2430$." O YOU WANT A LIST OF YOUR ERRORS? ";D.:US$"YNH":UL1: 35:R$UR$Z. R$"N" 2430p. R$"Y" 2280."":X12:" ": X4:1100,234:1103,133!1104,145:1105,234:1082,234!(50003)160955K!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"3280: Q1$;:US$"-0123456789HS":UL4: 35:U$UR$+"",U$"S"1550", (U$)4 U$(U$,1,4)?, (U$,1,1)"-" 2070\, (U$,1,1)"+" 2070j, U$"+"U${, L12(U$),  (U$,L1,1)" " 2110,* ((U$,L1,1))57 2120 " TO THE PRESS H ."835&UZ1UP%:217,M ** TEACHER INSTRUCTIONS **}"":UT,UL%:(50003)053281,2:53280,10UH1:UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM  2768:UO158: 50003,0,(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048k(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$""UP$" "UT$"  RUCTIONS **("":UT,UL%:(50003)053281,0:53280,0NUH1:UP0:UG$"TUDENT NST":850" HIS PROGRAM WILL CHALLENGE YOU WITH"" QUESTIONS INVOLVING INTEGERS."" OU WILL BE GIVEN TWO TRIES ON EACH"" QUESTION.  SS SPACE BAR TO CONTINUE" LUI$:UI$" "844N/R ** PAGE DESIGN ROUTINE **;TUPUP1eW""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H " 2. STUDENT INSTRUCTIONS"@E" 3. TEACHER INSTRUCTIONS"mJ" 4. MODIFICATION OF PROGRAM"O" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-5) "; ^UL1:US$(I137:"";: *I122:"";:.," P."  q0" 2" 4"C O M M O D O R E6"EDUCATIONALUT$UL$:UT,UV%:UQUB2023( UQ,UQ%(UQUB):4 U1,U1%@ U2,U2%L U4,U4%Z U3,U3%1i " ";:35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ":U1%(U1):U2%(U2):U3%CAN BE"n" CHANGED."(q" HE '12' IN LINE 1870 AND 1900, THE"Tv" RANGE OF VALUES FOR MULTIPLICATION"{" AND DIVISION RESPECTIVELY, CAN BE "" CHANGED."835UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 ** 64  835:UH1:8508" IS A PROGRAM DESIGNED AS A"f" SIMPLE DRILL OF OPERATIONS INVOLVING"" INTEGERS. HE MAXIMUM VALUE USED IS"!" 144 WITH MULT. AND DIV. AND 40 WITH"&" ADDITION AND SUBTRACTION.IS MACHINE DOES NOT HAVE ENOUGH" "MEMORY TO RUN THIS PROGRAM !" UU71& @ "":(50003)0962o  ** 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,14IS IN THE PUBLIC"&" DOMAIN. F THIS IS NOT THE CASE"C" PLEASE CONTACT:"m" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24""  Ӡ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***/ ** SET VARIABLES **8900FE$(4,50)a ** CHECK FOR 8032 **"":"": SHIFTED SPACE(UB40)96700 ** MEMORY CHECK ** (0)2000937"THF YOU DON'T GET IT RIGHT,"1" THE 64 WILL TELL YOU THE CORRECT"B" ANSWER."L 835[UP2: 850" O ADVANCE FROM ONE QUESTION"" TO THE NEXT PRESS THE BAR.""F AT ANY TIME YOU WISH TO RETURN" "fUH0:"":k ** PLEASE WAIT REMARK **=p(UD$,24);" ONE MOMENT PLEASE... "Cu` ** SET UP VARIABLES **UX$"H":UQ%(1024):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM3"12345":35: INPUT ROUTINE`US$""8c(UR$)1000,400,500,600,396Ah300h ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INST8"SOFTWARE: ** COMMODORE LOGO **L;(UD$,24);"PRESS SPACE BAR OR WAIT":I0n<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRE(U3):U4%(U4)*UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL0A, ** MENU **G-:v."":UT,UU%:(50003)053281,9:53280,8|/:1" MENU"6" --------------------------------------";" 1. BEGIN INTEGERS"@"BEFORE RUNNING THIS PROGRAM ON AN 8032 F" LOAD THE 'CBM 4032' PROGRAM"QUU71Ww  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:P ROUTINE EXIT +++ 250% UQ19442023< UQ%(UQUB)(UQ):E 245U UQUB1943q UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; "D835NUZ1UP%:217W,X ** PROGRAM MODIFICATION INST **=Y"":UT,UL%b]UH1:UP0:UG$"ROGRAM OD":850b" Y CHANGING THE NUMBER '20' IN LINE"g" 1450 THE RANGE OF VALUES USED FOR"l" ADDITION AND SUBTRACTION  (416) 499-4292"UH1:UP1: 835: 850:6" ROGRAM AME: NTEGERS]" RITTEN Y : . . OOPER" PGRADED Y : EIL UNT" HIS PROGRAM WILL RUN ON ANY" 64 " 2 T(N) = TAN (N))" 3 T(N) = LOG (N) 4 T(N) = 2^N*10)"5 T(N) = 2^(1/N)=*10)"6 T(N) = ARCTAN (N)F*RZ1[*19);"2N^2+5N-8{*10);"7 T(N) = *19);"5N^2-6N+7* " HICH SEQUENCE WOULD YOU LIKE *2110'4" ERRIFIC - YOU GOT IT!"'9835:2190(>" OT CORRECT."@(H" O YOU WISH TO SEE MORE OF THISU(R" SEQUENCE";(WX1000", PERHAPS WITH A LARGER":" INTERVAL";(\"? ";:US$"YNH":UL1:35:R$UR$(pR$"Y"  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 HAT DO YOU THINK IS THE LIMIT"&" (F NO LIMIT EXISTS, ENTER N;"C&" IF YOU ARE NOT SURE, ENTER ?.)"b&" OF THIS SEQUENCE? ";&US$"H0123456789.N-?":UL8:35:"":T$UR$&ZI15:" :US$"0123456789H":UL3:35:C(UR$)1 4);"D= ";:US$"0123456789H":UL3:35:D(UR$) 1 1 :1 Q1 UH1:UG$"":850:" OULD YOU LIKE TO:{1 " 1 SEE THE FIRST LIST OF1 " SEQUENCES;1 " 2 :3000#SE1Y5#SE2YN#SE3Y4N6$SE4Y3N(N5)2$SE5Y(5N9)(20N11)d$SE6(CND)0ZT$"*** UNDEFINED ***":1900$SE6Y(ANB)(CND)$E1Y((180)N)$E2((180)N)0ZT$"*** UNDEFINED **  T(N) = . 21);"-20N+11. 21);"AN+B/ 11);"6 T(N) = / 21);"CN+D#/ KZ1L/ " HICH SEQUENCE DO YOU WISH"m/ " TO OBSERVE? (1-6) ";/ US$"123456":UL1:35:SE$UR$:SE(UR$)/, /6 850:" !" ET'S OBSERVE A FEW ";:ZZ0"MORE ";-""TERMS.":" OULD YOU LIKE TO SEE"Y"" A EVERY CONSECUTIVE TERM,~"" B EVERY 10TH TERM,"" C EVERY 100TH TERM, OR"" D EVERY 1000TH T  LOG (N) [BASE E],2 E4"T(N) = 2^N,< E5"T(N) = 2^(1/N)'-F E6"T(N) = ARCTAN (N) [IN DEGREES]"d-P E7" 2N^2+5N-8T(N) = -Z E76)" 5N^2-6N+7"-d -n E0:SE0:X0:UG$"HE IRST IST"-} 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 ++ "* " TO OBSERVE? (1-7) ";* US$"1234567":UL1:35:E$UR$+ E(((E$)))+8 1440(+ 850:6);B+ SE1"T(N) = -5":[+ SE2"T(N) = N":w+ SE3"T(N) = 4N-6":+ SE4" 3NT(N) = 1N+5":+ SE 1505(KZ1RZ13000)X0:E0:SE0:UG$"HE ECOND IST":UH1:8502)" ERE ARE SOME MORE SEQUENCES.\)" (HIS TIME, YOU DON'T HAVE TO")" GUESS THE LIMIT; JUST OBSERVE")" THE PATTERN.))" 1 T(N) = SIN (N) 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  ":ZI:""&T$"?"2120&L(T$)'SE1L52100'SE2T$"N"21004'SE3T$"N"2100G'SE4L32100]'SE5L.252100k'C02110' K(((108)(AC).5))(108)'L(108L.5)108' C0SE6LK2100'SEE THE SECOND LIST OF1 " SEQUENCES; OR 2 " 3 RETURN TO THE AIN"32 " ENU?":" ";R2 US$"123":UL1:35:KL$UR$h2 (UR$)1400,3025n2 2 KZ0:RZ0:21959H":UL3:35:B(UR$)0| 4);"C= "; *":1900$&E2Y((180)N)$0E3Y(N)%:E4Y2N%DE5Y2(1N).%NE6Y(N)180Y%XE7Y(2(N2)5N8)(5(N2)6N7)%]Y1E9ZT$;Y:1900:(INT(P*Y+.5)/P)%bZT$;((PY.5)P)%lN:ZZZZ10X%:E02120%"  YPE IN YOUR VALUES FOR THE/@ " CONSTANTS IN THIS EXPRESSION:60J " T(N) =";" AN + BCN + D"j0h 4);"A= ";:US$"0123456789H":UL3:35:A(UR$)0r 4);"B= ";:US$"0123456789H":UL3:35:B(UR$)0| 4);"C= "; ERM?""6ZZ01605#@" OUR LAST CHOICE WAS "CH$"."#E" ";P#JUS$"HABCD":UL1:35:CH$UR$:X10((UR$)65)\#2490:#NXZZ10XZZX:N(N.01):ZT$" T("((N),2)") = "#N126E4ZT$"*** OVERFLOW ***":835  X0:E0:SE0:UH1:850:" ET T(N) DEFINES THE GENERAL". " TERM OF THESE SEQUENCES:D. 4);"1 T(N) = -5 2 T(N) = NS. 33);"3N. 4);"3 T(N) = 4N-6 4 T(N) = . 32);"1N+5. 23);"5N+9. 11);"5 + CHECK FOR HELP REQUEST +++% _UF12402 dUF0::8 eQ f ++ CHECK DELETE ++b i(UR$)150z nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US$US$UX$ US1(US$) UI$(US$,US 5" 5N+9T(N) = -20N+11":), SE6"T(N) = ";A;"N +";BL, SE66)" "C"N +";D:x, E1"T(N) = SIN (N) [N IN DEGREES]", E2"T(N) = TAN (N) [N IN DEGREES],( E3"T(N) = T INSTRUCTIONS"+E" 3. TEACHER INSTRUCTIONS"GO" 4. QUIT"vT" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,400,500,39 `UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "-fUH0:"":Lk ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198 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) C O M M O D O R E6"EDUCATIONAL>8"SOFTWAREY: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@3 UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **U"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)0532 UP$" "UT$" "8 ** SET VARIABLES **A900\ ** CHECK FOR 8032 **z"":"": SHIFTED SPACE(UB40)96700 ** MEMORY CHECK ** (0)2000937"THIS MACHINE CHINES"" 3370 HARMACY VE.7" GINCOURT, NTARIO"Y" ANADA 1 24"y" (416) 499-4292"@835:850:B" ROGRAM AME: IMITSD" RITTEN Y : OB HEPHERDF" PGRADED :1103,1331104,145:1105,234:1082,234(50003)160955F1093,88:1094,228:1097,85:1102,228:965[(50003)19901093,49:1094,230:1097,46:1102,230:9652099,141:2100,20:2101,3:2103,8:2104,141:2105,212106,3: P. OU WILL"$" BE RETURNED TO THE PLACE IN THE"M" PROGRAM WHERE YOU LEFT OFF AS"y" SOON AS THE OPTION FROM THE MENU"" IS COMPLETE."835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(  STARTS HERE ** "";::(50003)053281,6:53280,14/  **** 3.0 **** 1/2/81 SYS880B KZ0:RZ0:ZZ0S UT,UL%:UP0h O8:P10O:1400 L850:" HIS PROGRAM WILL INTRODUCE V" YOU TO THE CONCEPT OF THE" [" 6h300! ** RE-ENABLE STOP KEY AND END **P(50003)1(50003)160(50003)0399zUU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0UP0:UG$ :U4216:UC167:UU1024.UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0q(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$"" UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN LIMITS@" 2. STUDEN 00C ** SPACE BAR PRESS **7HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"NLUI$:UI$" "844TNtR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------" 80,14:53281,6$I138:"";:&I122:"";:6(I137:"";:N*I122:"";:s," ."  0" 2" 4" 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,1451091,155:1098,133:1099,144:1100,234  Y : H" HIS PROGRAM WILL RUN ON ANY8N" 64 ]P" 64 fR835zTUZ1UP%:217VX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD":850835 2115,145:2117,52:2118,234:2121,49:2122,141:2123,20:2124,3:2126,234:2127,141:2128,21:2129,3XUU48: DISABLE STOP KEYi800: TITLEy300: MENU"THE PGM WILL NOT WORK ON THIS MACHINE!":UZ1UP%:UP%:UZ0: ** PROGRAM 50003)053281,2:53280,10&UP0:UG$"EACHER NST":850T" O THE BEST OF OUR KNOWLEDGE,"}" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS A  LIMIT OF A SEQUENCE.":835:850%!`" E'LL LOOK AT A SEQUENCE ANDP!j" DISCOVER WHAT HAPPENS TO THE"{!t" TERMS T(N) AS N STRICTLY"!~" INCREASES."!835:!x2670!SE62870!ZZ0!850 "TUDENT NST":11006850:" EMEMBER TO HIT AFTER"`" TYPING YOUR ANSWER. HIS TELLS"" THE COMPUTER TO ACCEPT WHAT YOU"" HAVE TYPED."" YPE AT ANY TIME TO RETURN"" TO THE MENU FOR HEL NY DIGITS DO YOU WISH"#" IN YOUR NUMBERS? (1-8) ";'#US$"12345678":UL1:35:QQ(UR$)1#1670T#.............................w#.......INSTRUCTIONS..........}##" OU WILL BE GIVEN A SUM TO ANSWER."#," UT MEANWHILE A LAZE Q1) B((TI)9QQ1) CAB!" "A"+"B"="!C!..............................g!.......IF PLAYER WINS.........! " YOU BEAT THE LAZER!!!"!" "!" ANOTHER GAME? (Y/N) ";  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$ 1:2129,3UU48: DISABLE STOP KEY 800: TITLE300: MENUK"THE PGM WILL NOT WORK ON THIS MACHINE!":UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **"";::(50003)053281,6:53280,14LV1350`..............ND DOWN)R..BB -RND. INT. 1 TO 20"*\..CC -SCREEN LOCATION OF 1'ST 21 PLACES (NOT INCLUDING HOME)N*f..DD,FF,AA,YY,JJ - DO LOOP PARAMETERS.1310_(v(..GG -ARRAY OF 20(..RR$-DIGITS OF ANSWER(..SS$-ANSWER(..WW$-CURSOR TO ANSW 0962  ** BASIC 2.0 OR 4.0 OR C-64 SETUP **I1075,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:109  THE LAZER HAS DESTROYED THE BLOCK!!!(" ",(" "A"+"B"="CO(" YOUR ANSWER: "SS$""Y(1310_(v(..GG -ARRAY OF 20(..RR$-DIGITS OF ANSWER(..SS$-ANSWER(..WW$-CURSOR TO ANSW 4:UC204:UU2048)(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198MUD$""UP$" "UT$" ": PROGRAM TITLEGG(20): ** SET VARIABLES **900 ..........%..............................&..............................&"",&AA120W&"  "_&AAi&1200&...........................&......LAZER LOOP...........&&DD120&01120 $ 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) R BEAM WILL BE"#6" DEMOLISHING THE BLOCK."$@" O ANSWER THE SUM AS FAST AS"H$J" YOUR FINGERS AND MIND WILL ALLOW."$T" OTE:":" O DELETE WRONG ANSWER, PRESS SPACE BAR"$h835$m$r1450$|..............................$ !(US$"YN":UL1:35:BB$UR$!-BB$"Y"1660 "2BB$"N""<1320:"F..............................._"P....GAME HEADING ETC...........e"Zk"dq"n".............................".......# OF DIGITS..........."" HOW MA "":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 +++ ............... j......GETS ANSWER............ tRR$ yRR$"H"1951 zRR$(13)1190A ~SS$SS$RR$c RR$" "WW$" ":SS$""p WW$;SS$v  ............................. .....WRITES EQUATION......... A((TI)9Q 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( 7,85:1102,228:965(50003)1990+1093,49:1094,230:1097,46:1102,230:965e2099,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:2128,2 ER POSITION(..C -CORRECT ANSWER( ..A -RND. # TO ADD)..B -RND. # TO ADD:) ..UU$-ANSWER TO "ANOTHER GAME?"_)*..KK$-ANSWER TO "INSTRUCTIONS?")4..QQ -ANSWER TO "# OF DIGITS?")>..OO$-CONTINUE AFTER INSTRUCTIONS)H..A$ -HOME A :: ** CHECK FOR 8032 **"":"": SHIFTED SPACE2(UB40)96700K ** MEMORY CHECK **_ (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !"UU71"":(50003) :(SS$)C1270&:BB((TI)201):GG(BB)01850'DGG(BB)1'NCCBB40UM!'XFF038/'bCCFF,677'lFFq'v(A$,BB1);" "y'DD'..........................'.......IF PLAYER LOST.....'"  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 ....INITIALIZES & DEFINES.....%SS$"":YY120:GG(YY)0:YY+%A$""b%WW$""%..............................%.....MAIN PROGRAM.............%.................... UP%:217 ** TO USE 8032 LOAD CBM4032 **Q"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71 ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM  ."  .0" L2" t4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO ** ;(UD$,24) HARMACY VE." GINCOURT, NTARIO"<" ANADA 1 24"\" (416) 499-4292"rUP1: 835: 850:" ROGRAM AME: AZER MATH" RITTEN Y : OHN HELLEW" PGRADED Y : TEPHEN ENTON(UD$,24)UP$: SMALLER 'H' GETS,"L"THE BETTER OUR APPROXIAMATION "L"BECOMES. I LEAVE IT TO YOU TO " M"DECIDE WHAT WOULD HAPPEN IF WE "NM"COULD MAKE 'H' INFINITELY SMALL!"^M835: 2150M'" HIS PROGRAM 80,0UP0:UG$"TUDENT NST":8501520&850V"F AT ANY TIME YOU WISH TO RETURN"t" TO THE PRESS H "}835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10  SO, THEN, THE SMALLER 'H' GETS,"L"THE BETTER OUR APPROXIAMATION "L"BECOMES. I LEAVE IT TO YOU TO " M"DECIDE WHAT WOULD HAPPEN IF WE "NM"COULD MAKE 'H' INFINITELY SMALL!"^M835: 2150M'" HIS PROGRAM IONS"!E" 3. TEACHER INSTRUCTIONS"=O" 4. QUIT"lT" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE_(UR$)1300`US$""c(UR$)1000,40 ":5595J24)""38)""JJ24)""J(UD$,5)29);"AREA":28)"ACTUAL"J28)"217.5"K25);" APPROXIMATE",K31(((AX))2))AXeK26);"DIFFERENCE":31(((217.5AX))2))217.5AX}K25)"SQUARE U 1%U3%3) UQ,UQ%(UQUB): U1,U1%, U2,U2%8 U4,U4%D U3,U3%N 1140 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$: IGN ROUTINE **TUPUP1"W""(UT$UP$,21);(UP$UG$(UP),18)Q\" --------------------------------------"``UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUO,0:"":k ** PLEASE WAIT REMARK **p(UD$,24);"  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: +++ ON AN 8032 LOAD CBM 4032 PROGRAM"1093:4  ** T I T L E P A G E **h""";:UT,UU%:(50003)053280,14:53281,6~$I138:"";:&I122:"";:(I137:"";:*I122:"";:," " HIS PROGRAM WILL RUN ON ANY4" 64 Y" 64 b 835vNUZ1UP%:217|WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD":850835UZ1 ;"PRESS SPACE BAR OR WAIT":I0+<A$:A$" "II1:I250828O>T1$"":T2$"":T3$"":T4$"":I0X@300tC ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DES UP0:UG$"EACHER NST":8507" O THE BEST OF OUR KNOWLEDGE,"`" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 IS INTENDED TO INTRODUCEM'" THE TOPIC OF BY DIVIDINGM'" THE AREA UNDER A CURVE INTO N'" PROGRESSIVELY SMALLER PIECES UNTIL A7N$'" REASONABLE APPROXIMATION OF THE AREAeN)'" IS ARRIVED AT. HERE IS NO REAL WORKkN.'N* 0,500,396h300) ** RE-ENABLE STOP KEY AND END **X(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"""":UT,UL%:(50003)053281,0:532 NITS"KK:K&:K0** EXPLANATION ERASUREK::KDQQ18:TT1TT0:QQ14KNQ6QQKX(UD$,Q)WE);" " LbQ:11000:*Lv(UD$,6)23);"THE ACTUAL"0Ln:6Lo:JLp ** CONCLUSIONPLq:VLr:\Ls:kLUH1: 850L" UK$UG$:UL$UT$:UJUP:UKUL&, ** MENU **,-:[."":UT,UU%:(50003)053281,9:53280,8a/:~1" MENU"6" --------------------------------------";" 1. LAZER MATH"@" 2. STUDENT INSTRUCT  ONE MOMENT PLEASE... "u ** SET UP VARIABLES **iUX$"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:U421  HELP ROUTINE EXIT +++ 250 2452 UQUBUB925N UQ%(UQUB)(UQ)::""a UZ1:UV%(UT)j 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB(U2%256U F WIDTH"=x"H. YOU MAY CALCULATE THESE IF YOU">"WISH, OR YOU CAN TRUST ME TO HAVE":"DONE IT CORRECT>835#> 4630)>:/>:5>:H>** TITLE PAGEN>:T>:f>ZXZX1:UPZXs>""> G115>2);""> );" ";(UD$,10)24);"INTO STRIPS";(UD$,14)24);" ";835< UH1: 850H<"FOR THE FOLLOWING GRAPHS,":"H = STRIP WIDTH."w<"WE WILL VARY THE STRIP WIDTH FROM"<("10 TO 4 TO 2 TO 1, 7:Q8 20F(UD$,Q)T);" "FQFT15:Q9 20F(UD$,Q)T);" "FQFT13:Q10 20G(UD$,Q)T);" "GQGT13:Q10(GJ158GTT2:QQ2FG MQ 20^G(UD$,M)T);" "eG MlGJGIN2:AX207: 5 B(UD$,5)24);"THE ACTUAL"9L(UD$,6)24);"AREA UNDER"9V(UD$,7)24);"THIS CURVE,":`(UD$,8)24);"FROM 0 TO "6:j(UD$,9)24);"20, IS "W:t(UD$,10)24);"217.5 "y:~(UD$,11)24);"SQUARE UNITS":(UD$,14)24);"(BY ACTUAL 20)3);" "D>IN10:AX120: 5560DH:DR:D\** 4'SDf:Dp:Dz:E835: 4320:T19:Q720:(UD$,Q)T);" "EQ(ET15:Q920BE(UD$,Q)T);" "IEQ[ET11:Q1220uE(UD$,Q)T);" "|EQET7 23);"ARE NOT "7 (UD$,10)23);"STRAIGHT "7 (UD$,11)23);"LINES? "8 835: 5680'8 (UD$,7)23);"WE GO BACK "H8 (UD$,8)23);"TO OUR IDEA "i8 (UD$,9)23);"OF CUTTING "8 (UD$,10)23);"STRIPS OF "8 (UD$,11)23)  "B1)" "B1)" "C1)" "5C1)" "[C1)" "C1)" "C 5 (UD$,6)23);"IN THIS CASE"5 (UD$,7)23);"THE SHADED "6 (UD$,8)23);"REGION IS "&6 (UD$,9)23);"THE AREA "H6 (UD$,10)23);"FROM 0 TO 10"X6* 835: 5680x64 (UD$,10)4);" "6> (UD$,6)23);"SINCE THE "6H (U  INTEGRATION"@" -----------"@@:@:@:@:@** GRAPH@:A:A:AUH1: 850"A""GAUD$""mA&1)"15 "A01)" "HQHQ7:T18:J12HQQ1:TT1:MQ20H(UD$,M)T);""HM:JHQ9 20H(UD$,Q)15);""I"QI,Q10 20'I6(UD$,Q)14);"".I@Q=IJQ10 20UIT(UD$,Q)13);""\I^QrIhQ10:T13:J110IrQQ1  G>""> G115>36);""> G>"":?""e?UD$""?"(UD$,8)14);"INTEGRATION:"?,( AND SEE WHAT "<2"HAPPENS TO OUR ESTIMATE, OR "<<"APPROXIMATION, OF THE AREA."=F835=PUH1: 850==Z"THE APPROXIMATION OF THE AREA"l=d"IS OBTAINED BY ADDING UP THE TOTAL"=n"AREAS FORMED BY THE STRIPS O 560G(:G2:G<** 1'SGF:GP:GZ:Gd835: 4320:Q520Gn(UD$,Q)22);" "GxQGQ520H(UD$,Q)21);""HQ#HQ5:T21:J12;HQQ1:TT1:MQ20RH(UD$,M)T);""\HM:JhHQ720H(UD$,Q)18);" ":(UD$,15)24);"COUNT) ":835:(UD$,5)24);"WE CAN GET";(UD$,6)24);"AN ESTIMATE"%;(UD$,7)24);"OF THE AREA"D;(UD$,8)24);"BY CUTTING"f;(UD$,11)24);" ";(UD$,9)24);"THE CURVE ";(UD$,15)24 :Q1620E(UD$,Q)T);" "EQE(UD$,20)3);" "EIN4:AX160: 5560E:E:E** 2'SE$:F.: F8:)FB835: 4320:T21:Q5 20AFL(UD$,Q)T);" "HFVQ[F`T19:Q7 20sFj(UD$,Q)T);" "zFtQF~T1 ;"WIDTH H. "8 835: 56808 UH1: 8508 "LET'S LOOK AT A CURVE"9"FOR WHICH AREAS WOULD"C9"BE DIFFICULT, BUT NOT"l9"IMPOSSIBLE, TO CALCULATE"9$"BY HAND."9.83598 43209 1)" "C1)" X "C1)"У "D1)" 0 10 20 "D"D:/D** 10'S5D:;D :RD 4320: Q10 20sD (UD$,Q)13);" "zD*QD4(UD$, D$,7)23);"AREA IS HALF"6R (UD$,8)23);"OF A 10X10 "6\ (UD$,9)23);"SQUARE, THE "7f (UD$,10)23);"AREA IS 50. ".7p 835: 5680O7z (UD$,6)23);"BUT HOW DO "p7 (UD$,7)23);"WE DEAL WITH"7 (UD$,8)23);"CURVES THAT "7 (UD$,9)  "A:1)" "AD1)" "BN1)"Y "+BX1)" "QBb1)" "wBl1)" "Bv1)" :TT1:MQ20I|(UD$,M)T);""IM:JIIN1:AX210: 5560I835: 6000I:I:I** DATA PRINT FOR GRAPHSJ:J:*J(UD$,4)24)"6JA819]JA8224)"":5596JA85A8724)" UD$,10)9);"THE AREA UNDER A CURVE."?6(UD$,13)9);"BY KELLY TRACY, " @@(UD$,15)9);"PARRY SOUND HIGH SCHOOL,"-@J(UD$,17)9);"AUGUST 1982."?@|A11500::E@:K@:Q@:p@** TITLE HEADER FOR PAGESv@:|@:@""@" 50(" WOULD YOU LIKE:")" (1) AN EXPLANATION,"3)" (2) THE GRAPHS "T)" (3) THE MENU "z)"  (PRESS 1,2 OR 3) ";)US$"123":UL1: 35:AN(UR$)) AN12320) AN246 ** 2360 GRAPH&** 4000 TITLE PAGE&.** 4320 GRAPH '8** 4600 10'S'B** 4700 4'S.'L** 4890 2'S?'V** 5180 1'Sb'`** 5560 DATA PRINT FOR GRAPHS'j** 5680 EXPLANATION ERASURE' 4000: 2150':':':'** SPACE BAR PRESS HE AREA "1 (UD$,9)17);"IS 40. "1 835:TT1: 56801 UH1: 8502 ""12 WE23:UD$""T2 3)"15 "w2 3)" "2 3)" Y=X "2 3)"  $2099,141:2100,20:2101,3:2103,8:2104,141:2105,21;%2106,3:2115,145:2117,52:2118,234:2121,49:2122,141u%2123,20:2124,3:2126,234:2127,141:2128,21:2129,3%UU48: DISABLE STOP KEY%800: TITLE%300: MENU%"THE PGM (UD$,Q)T);""/ Q/ TT1: 5680/ (UD$,6)17);"WE HAVE TWO "0" (UD$,7)17);"5X4 BLOCKS, ";0, (UD$,8)17);"SO THE AREA "\06 (UD$,9)17);"IS 40. "q0@ 835:TT1: 56800J (UD$,7)17);"THE AREA IS "0T (UD$,8)17);"EVEN EAS00" ** MEMORY CHECK **" (0)2000937'#"THIS MACHINE DOES NOT HAVE ENOUGH"K#"MEMORY TO RUN THIS PROGRAM !"V#UU71\#v#"":(50003)0962# ** BASIC 2.0 OR 4.0 OR C-64 SETUP **#1075,133:1076,144:1077,234:17);"THE CURVE "-Z (UD$,9)17);"Y=4, FROM 10" .d (UD$,10)17);"TO 20. (THE "-.n (UD$,11)17);"SHADED REGION)"B.x 835:TT1: 5680c. (UD$,6)17);"THE AREA CAN". (UD$,7)17);"BE EASILY ". (UD$,8)17);"DEDUCED BY ". (UD$,9U4216:UC167:UU1024!!UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0d!(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048!(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198!UD$""! "+ 8)" " , 8)" "3, 8)" "Y, 8)" Y=4 "~, 8)"Ф ", 8)"  ", 8)"  "3b 3)"  "3l 3)"  "4v 3)"  ">4 3)"  "a4 3)"  "4 3)"  X"4 3)"У 30)AN1 AN2 "'BYE FOR NOW!": 300)835):*:* :* ** EXPLANATION * :&*$ :,*. ::*8 ** GRAPH@*B :F*L :L*V :a*` WE17:UH1: 850l*j ""*t UD$""*~ 8)"15 "*':' :':( "PRESS TO CONTINUE"+(*SP$:SP$" "2090m(4" "s(>y(H:(R:(\:(f** INNER MENU(p:(z:(ZXZX1:UP0:UH1: 8 "2 3)"Y "3& 3)" "&30 3)" "I3: 3)"  "l3D 3)"  "3N 3)"  "3X 3)"  WILL NOT WORK ON THIS MACHINE!":&UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **F&"";::(50003)053281,6:53280,14O&ZX0n&::900:UT$" INTEGRATION"&** 2040 SPACE BAR PRESS&** 2150 INNER MENU&** 2320 EXPLANATION&IER "0^ (UD$,9)17);"TO SEE IF WE "0h (UD$,10)17);"USE H=1! "1r T20 1| Q1720$1 (UD$,Q)T);""=1 Q:T28TT1:2940R1 835:TT1: 5680s1 (UD$,6)17);"WE HAVE TEN "1 (UD$,7)17);"1X4 SLICES, "1 (UD$,8)17);"SO T1079,4:1080,133:1081,145$1091,155:1098,133:1099,144:1100,234:1103,133;$1104,145:1105,234:1082,234R$(50003)160955$1093,88:1094,228:1097,85:1102,228:965$(50003)1990$1093,49:1094,230:1097,46:1102,230:965)17);"CUTTING THE ". (UD$,10)17);"SHADED REGION" / (UD$,11)17);"INTO SLICES." / 835:TT1: 5680A/ (UD$,6)17);"LET'S TRY "b/ (UD$,7)17);"SLICES WITH "/ (UD$,8)17);"WIDTH OF H=5"/ 835:TT1: 5680/ T24:Q1720/ UP$" "G"UT$" Π": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***M"g" ** SET VARIABLES **p"900v":|":" ** CHECK FOR 8032 **""":"": SHIFTED SPACE"(UB40)967  ", 8)"  "- 8)"  X "@-( 8)"У "c-2 8)" 0 10 20 "-< (UD$,6)17);"CONSIDER THE"-F (UD$,7)17);"AREA UNDER "-P (UD$,8) "4 3)" 0 10 20 "4 (UD$,6)23);"EVEN FOR A " 5 (UD$,7)23);"CURVE SUCH "-5 (UD$,8)23);"AS Y=X, "N5 (UD$,9)23);"AREAS CAN BE"p5 (UD$,10)23);"READ FROM "5 (UD$,11)23);"THE GRAPH. "5 835: 5680 8)" "+ 8)" ")+ 8)" "O+ 8)"Y "u+ 8)" "+ 8)" "+ 8)"  ONS' SIZES" 1)"AFFECT THE AREA YOU COME UP WITH."R1)"HE REASON FOR INTRODUCING YOU TO THIS"1)"TECHNIQUE OF CUTTING UP THE AREA UNDER"1)"A CURVE IS THAT IT LEADS TO THE IDEA"1)"OF ."835: 850 1 TIONS ** UT$" NTEGRATION":"":UT,UL%:(50003)053281,0:53280,0[UP0:UG$"TUDENT NST":8501)"HIS PROGRAM ILLUSTRATES THE 'PIECE- "1)"MEAL' METHOD OF FINDING THE AREA UNDER"1)"A CURVE - THIS MEANS DIVIDING THE 0,14:53281,6$I138:"";:&I122:"";:)(I137:"";:A*I122:"";:f," ."  0" 2" 4" 1. BEGIN INTEGRATION"1@" 2. STUDENT INSTRUCTIONS"[E" 3. TEACHER INSTRUCTIONS"wO" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: IN835NUZ1UP%:217WX ** PROGRAM MODIFICATION INST **.Y"":UT,UL%N]UP0:UG$"ROGRAM OD":850W835kUZ1UP%:217q ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " :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 ":HES THE PROCESS)."835: 850+1)"F YOU WOULD PREFER TO SKIP THE "X1)"PREAMBLE INCLUDED IN THE PROGRAM,"1)"JUST PRESS '2' <> WHEN THE"1)"SECONDARY MENU COMES ON THE SCREEN."1)"(IE:THE MENU WHICH ASKS WHETHE 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$) OMMODORE USINESS ACHINES"(" 3370 HARMACY VE.L" GINCOURT, NTARIO"n" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: NTEGRATION " RITTE0C ** SPACE BAR PRESS ***HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"ALUI$:UI$" "844GNgR ** PAGE DESIGN ROUTINE **sTUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`)"OTE:O ADVANCE FROM ONE SCREEN"61)"TO THE NEXT, PRESS THE .i1)" F AT ANY TIME YOU WISH TO RETURN"1)"TO THE , PRESS '' ."835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT CURVE""1)"INTO SMALL SECTIONS AND THEN TOTALLING"R1)"UP THE AREA OF THOSE SMALL SECTIONS."a835: 8501)"OU WILL SEE HOW TO DIVIDE THE AREA"1)"UNDER A CURVE INTO SMALLER AND SMALLER"1)"SECTIONS, AND HOW THE SECTI C O M M O D O R E6"EDUCATIONAL18"SOFTWAREL: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@30PUT ROUTINE _(UR$)1300`US$""3c(UR$)1000,400,500,396<h300c ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUC LOAD THE 'CBM 4032' PROGRAM" UU718 ** 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)05328U1%(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" --------------------------------------";" R YOU"1)"WANT THE GRAPHS OR THE EXPLANATION.)"!835: 850Q1)"HE EXPLANATION INCLUDES THE GRAPHS,"} 1)"SO YOU WON'T HAVE TO GO BACK AND""1)"CHOOSE THE GRAPHS LATER IF YOU CHOOSE"$1)"THE EXPLANATION INITIALLY."I128):  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,14N Y : ELLY RACY " PGRADED Y : D" HIS PROGRAM WILL RUN ON ANYd" 64 " 64  835:850:10000 1)"TO BE DONE BY THE STUDENT (HE BASICALLY 1)"WATCUH0870 a(UD$,24);(UP$,7);"HELP - PRESS H " fUH0:"":? k ** PLEASE WAIT REMARK **u p(UD$,24);" ONE MOMENT PLEASE... "{ u  ** SET UP VARIABLES ** UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:,UL%:(50003)053281,2:53280,10;UT$" NTEGRATION":UP0:UG$"EACHER NST":850i" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" )160955 1093,88:1094,228:1097,85:1102,228:965 (50003)1990O1093,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,  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 !!!!*** ** SET VARIABLES **900! ** CHECK FOR 8032 **?"":"": SHIFTED SPACEV(UB40)96700o ** MEMORY CHECK ** (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM ! "":" "A$(R1,1)':'DR2(10(1))'N"":" "A$(R2,2)(X&(bR3(10(1)):" "A$(R3,3)::RR0,(lO(vR4(10(1)):" "A$(R4,4):WW0U(^(""x(" ERY GOOD!!!":""(" OU HAVE SUCCESSFULLY COMPLETED PART 1  OF THIS QUIZ.":"";(UD$,24);" ONE MOMENT PLEASE... "u. ** SET UP VARIABLES **yUX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U.","'M SO PROUD OF YOU!","EVIEW YOUR RULES."$&"ORRECT.","RONG.","REAT.","EE TEACHER!!"^&"IGHT!","RONG!","4 IN A ROW,FANTASTIC!","HINK!!!"&"ORRECT.","NCORRECT.","EEP THIS UP!!","AKE UP."&"ORRECT!","NCORRECT!!","OU'RE REALO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<<A$:A$" "II1:I250828`>T1$"":T2$"":T3$"":T4$"":I0i@300C ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844N835:# RT10 1290# 1930#RT0#C2$""$ 1290"$" BD 1600P$," RONG!":" ACK TO BEGINNING!!":835`$6RT0: 1290$@RTRT1:" IGHT.":835:""$J RT10 1290$T""$^"!!ONGRATULATIO6 1320!Q(11(1)):1325!(Q(10(1))"- ((Q))3 TBTB10"2 TB)"";Q9"<Q1QC"ATB18d"FSN(11(1)): SN6 1370{"PQ(11(1)):1375"ZQ(10(1))"_ ((Q))3 TBTB1"d TB)"";Q"n 17)"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 ++20:2124,3:2126,234:2127,141:2128,21:2129,3 UU48: DISABLE STOP KEY. 800: TITLE> 300: MENUo "THE PGM WILL NOT WORK ON THIS MACHINE!": UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE ** "";::(50003)053281,6:53280, 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"UU71"":(50003)0962/ ** BASIC 2.0 OR 4.0 OR C-64 SETUP **m1075,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(" OUR SCORE WAS ";(10QU100);"%":"";+)" OW, FOR PART 2, YOU MUST GET TEN RIGHT IN A ROW! ";1):)835E) "":ANTASTIC!","HINK!!"' "IGHT ON!","RONG!","UPER! REAT! ANTASTIC!","OME ON THINK!!"'&R1(10(1))'02210:U3211:U4214:UC204:UU20489(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198]UD$""UP$" "UT$" NTEGER DD ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!LY ROLLING!","EVIEW YOUR RULES!"#'"ORRECT!","NCORRECT!","'M SO PROUD OF YOU.","AKE UP!!"`'"IGHT ON!","RONG.","4 IN A ROW, FANTASTIC!","HINK!!"' "IGHT ON!","RONG!","UPER! REAT! ANTASTIC!","OME ON THINK!!"'&R1(10(1))'0R ** PAGE DESIGN ROUTINE ** TUPUP13W""(UT$UP$,21);(UP$UG$(UP),18)b\" --------------------------------------"q`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK ** pNS!!"$h""%r" !OU FINALLY GOT TEN CORRECT IN A ROW!")%|" !HAT'S ALL!":835/%i%"ORRECT.","NCORRECT.","OU'RE ON A ROLL!","HINK!"%"IGHT !","RONG !","HAT'S FOUR IN A ROW RIGHT!!","AKE UP!!"% "OOD.","OO BAD"x" ";#}US$"-0123456789H":UL3:35#B(UR$)#DQ1Q,# C2 1570=# BD 1450U#WW0:RRRR1: 1490o#WRWR1:RR0: WWWW1# 1860: WW3 1910#835:# 1290#RTRT1: 1830: RR3 1890#+ 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$14! ETOBICOKE BOARD OF EDUCATION / PROGRAM NAME "ADDITION OF INTE"I! X0 9: A$(X,1),A$(X,2),A$(X,3),A$(X,4): XU!UT,UL%^!QU0v!RR0:RT0:WW0:WR0! QUQU1!UG$"ROBLEM#":TCTC1:UPTC1:850!TB18!SN(11(1)): SN  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 **::# +++ INPUT SECTION +++ (UO,0:UR$ $ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1)  P ROUTINE EXIT +++ 250 245; UQUB(U2%256U1%U3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB(UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN INTEGER ADD "@" 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 U OU MUST OBTAIN A TOTAL"6" TOTAL OF TEN CORRECT. HEN 'LL PRINT"c" YOUR SCORE FROM THE TOTAL NUMBER OF"" QUESTIONS YOU TRIED."835:850" N PART 2 OF THIS QUIZ, YOU MUST"" OBTAIN TEN CORRECT IN A ROW TO GET"HE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"<" PLEASE CONTACT:"f" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416)  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 835NUZ1UP%:217 W/X ** PROGRAM MODIFICATION INST **@Y"":UT,UL%`]UP0:UG$"ROGRAM OD":850i835}UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 "":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$"" *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" REETINGS."&""S" QUESTION WILL APPEAR ON THE SCREEN"" AND YOU TYPE IN YOUR ANSWER. OWEVER,"" 'M KEEPING TRACK OF YOUR SCORE. N"" PART 1, 'LL GIVE YOU A BUNCH OF"" QUESTIONS." YOUR SCORE. OOD LUCK! 835$UZ1UP%:217*K ** TEACHER INSTRUCTIONS **{"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN T 499-4292"UP1: 835: 850:-" ROGRAM AME: NTEGER DDR" RITTEN Y : . ANCY v" PGRADED Y : " HIS PROGRAM WILL RUN ON ANY" 64 " 64  ."  ?0" ]2" 4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOG" LOAD THE 'CBM 4032' PROGRAM"UU71%E  ** T I T L E P A G E **y""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I137:"";:*I122:"";:,"$ 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) AMATHEMATICSME2AINTEGERS.C37INTEGER ADD.C3"INTEGER LINES.C3INTEGRATION.C3HLADDER MULT.C3#LAST BOTTLE.C3 LAZER MATH.C3#LIMIT CIRCLE.C3"chine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |cLFx |]|F/`"8|/``,,{`,   !"#$%&'()*+,-./01234567 LIMITS.C3+ LINEAR EQUA.C3' MATH QUIZ.C35MAKING CHANGE.C3MATH DICE.C3-MATH DRILL.C3- MATHPACK.C3@ MATHPACK.C3@ W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|8Μ4 4 decided to use transfer mode 4& HSSj,ؚ|@́|;́|ú| p<́| p|*+ ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|hx  |"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|:x1F`>J?a|0= h V w ` q v n i s e t b Bt dh r\ 2P E0`hVwqbBt:i:s:e:d:r:2vnE::I 09Z0!wp|T ؚ|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` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$ $ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1)  P ROUTINE EXIT +++ 250 245; UQUB(U2%256U1%U3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB( UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN LINE INTERSECTION @" ,400,500,396h300, ** RE-ENABLE STOP KEY AND END **[(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0 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 " ROGRAM AME: INE NTERSECTION<" RITTEN Y : . EE HONG `" PGRADED Y : " HIS PROGRAM WILL RUN ON ANY" 64 " 64  835NUZ1U032' PROGRAM" UU71/  ** T I T L E P A G E **c""";:UT,UU%:(50003)053280,14:53281,6y$I138:"";:&I122:"";:(I137:"";:*I122:"";:,"PRESS SPACE BAR OR WAIT":I0&<A$:A$" "II1:I250828J>T1$"":T2$"":T3$"":T4$"":I0S@300oC ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DESIGN RNE MOMENT PLEASE... "u ** SET UP VARIABLES **cUX$"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:UC2"":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 7UI$(13)(UR$)1UC,1:" ";:85| <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++ UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HELU2%256U1%U3%3) UQ,UQ%(UQUB):) U1,U1%5 U2,U2%A U4,U4%O U3,U3%1W 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4)2. STUDENT INSTRUCTIONS"6E" 3. TEACHER INSTRUCTIONS"RO" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000UP0:UG$"TUDENT NST":850:" HIS PROGRAM ENABLES YOU TO FIND"@l" THE POINT OF INTERSECTION OF TWO"r" STRAIGHT LINES OF THE FORM:""" AX + BY = C" DX + EY = FTHIS IS NOT THE CASE"" PLEASE CONTACT:"G" OMMODORE USINESS ACHINES"j" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:P%:217WX ** PROGRAM MODIFICATION INST ***Y"":UT,UL%J]UP0:UG$"ROGRAM OD":850S835gUZ1UP%:217m ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4 ."  )0" G2" o4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);" OUTINE **TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)L\" --------------------------------------"[`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" O 04:UU2048#(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198GUD$""yUP$" "UT$" INE NTERSECTION": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** ** S "":(50003)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **W1075,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: 27,141:2128,21:2129,3UU48: DISABLE STOP KEY800: TITLE(300: MENUY"THE PGM WILL NOT WORK ON THIS MACHINE!":UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **"";::(50003)053281,6:53280,14UT,UL%)TR0 "; US$".-0123456789H":UL9:35 C(UR$)!!" 2ND EQUATION" !=!" OEFFICIENT OF X = ";^!US$".-0123456789H":UL9:35k!D(UR$)!" OEFFICIENT OF Y = ";!US$".-0123456789H":UL9:35!E(UR$)!" ONSTANT F = "E =";(Y10000.5)10000"P"Z 835: 1095%#d" QUATIONS DO NOT REPRESENT STRAIGHT"4#i" LINES."E#n 835: 1095n#x" QUATIONS REPRESENT SAME LINE OR"#}" PARALLEL LINES."## 835: 1095#395#R$)!" ONSTANT F = " 910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **: ** GENERAL INPUT ROUTINE **  ** TO O PROGRAM. :, # +++ INPUT SECTION +++D (UO,0:UR$"":UI$""T *UL0UL80g -" ";:UC,0{ 2UI$:UI$""50 7UI$(13)(UR$)1UC,1:" ";:85 <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$ID CHARACTERS ++ }(US$)0150+ US1(US$)B UI$(US$,US,1)H U UI$"":p ** STANDARD INPUT ** (UI$)46 UI$(32) (UI$)48(UI$)57170 (UI$)65(UI$)90180 (UI$)193(UI$)218UI";:53281,6:53280,14:220"";HUT$UL$:UT,UV%:UQUB(U2%256U1%U3%3)]UQ,UQ%(UQUB):(UD$,24);" "U1,U1%U2,U2%U4,U4%U3,U3%135UD%((U2%256U1%U3%)UB)40: MENU"-6" --------------------------------------"^;" 1. BEGIN LADDER MULTIPLICATION"@" 2. STUDENT INSTRUCTIONS"E" 3. TEACHER INSTRUCTIONS"J" 4. MODIFICATION OF PROGRAM"O" ET VARIABLES **900  ** CHECK FOR 8032 **)"":"": SHIFTED SPACE@(UB40)96700Y ** MEMORY CHECK **m (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !"UU711094,228:1097,85:1102,228:965 (50003)199091093,49:1094,230:1097,46:1102,230:965s2099,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:21G"" IUG$"UESTION #":TRTR1:UPTR1: 850 J L" 1ST EQUATION"$ VA `" OEFFICIENT OF X = ";b jUS$".-0123456789H":UL9:35o oA(UR$) t" OEFFICIENT OF Y = "; ~US$".-0123456789H":UL9:35 B(UR$) " ONSTANT C =;!US$".-0123456789H":UL9:35!F(UR$)""A0 B0 1380-" D0 E0 1380C" B0 E0 1320X" ABDE 1400r"(X(CEBF)(AEBD)"2Y(AFCD)(AEBD)"<" X-COORDINATE =";(X10000.5)10000"F" Y-COORDINAT 5. QUIT"*T" --------------------------------------"UY" PRESS A NUMBER KEY (1-5) ";~^UL1:US$"12345":35: INPUT ROUTINE`US$""c(UR$)1000,400,500,600,396h300 ** RE-ENABLE STOP KEY AND END ** (50003)1UR BEST KNOWLEDGE THIS1  PROGRAM IS FREE FORQ  DUPLICATION IN CANADA.n  IF YOU HAVE CONTARY  INFORMATION, PLEASE  CONTACT COMMODORE CANADA AND  EVERY EFFORT WILL BE MADE TO  WITHDRAW COPIES OF THIS UR$UI$ KUI$; P50$ Q I U +++ CHECK FOR HELP REQUEST +++q ZUR$UX$195: EXIT TO HELP ROUTINE _UF1240 dUF0:: f ++ CHECK DELETE ++ i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VAL$"": (UT)UU%UI$((UI$)128):% 2 UI$"":W UF1: +++ HELP ROUTINE EXIT +++` 250i 245{ UQUBUB999 UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK(50003)053281,1:" (UD$,UD%1):;(UD$,24);"  HELP COMING ":gU1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL, ** MENU **-:."":UT,UU%:(50003)053281,9:53280,8/:1"  INUE"LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **%TUPUP1OW""(UT$UP$,21);(UP$UG$(UP),18)~\" --------------------------------------"`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"": 0(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048U(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198yUD$""UP$" "UT$" Ҡ. ": PLAC OES NOT HAVE ENOUGH"!"MEMORY TO RUN THIS PROGRAM !"!UU71!2!"":(50003)0962a! ** 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: 115,145:2117,52:2118,234:2121,49:2122,1411#2123,20:2124,3:2126,234:2127,141:2128,21:2129,3O#UU48: DISABLE STOP KEY`#800: TITLEp#300: MENU#"THE PGM WILL NOT WORK ON THIS MACHINE!":#UZ1UP%:UP%:UZ0: ** PROGRAM (50003)160(50003)03993UU71:(50003)053281,6:53280,14?"":J875:k ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0UH1:UP0:UG$"TUDENT NST":850" OUR TASK IS TO CLIMB THE " !!!!!835(UH1:UP1:850T9);"ŠƠŠĠ"]835qUZ1UP%:217w ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UH1:UP0:UG$"EACHER N GINCOURT, NTARIO"!" ANADA 1 24"A" (416) 499-4292"\UH1:UP1: 835: 850:" ROGRAM AME: ADDER ULT." RITTEN Y : ATTY ARN" PGRADED Y : " HIS PRVE A HIGH OF" :""HI;"AND A LOW OF ";LOW9" HE PRODUCT OF THE TWO LARGEST"h" VALUES MUST NOT EXCEED FIVE DIGITS IN"y" LENGTH."""" IGH ";:US$"-0123456789":UL3:35:HI(UR$) " OW ";:UL3: 35:LOWOAD CBM4032 **5"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"A1093:a  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I137:"";:SOFTWARE: ** COMMODORE LOGO **6;(UD$,24);"PRESS SPACE BAR OR WAIT":I0X<A$:A$" "II1:I250828|>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTk ** PLEASE WAIT REMARK **'p(UD$,24);" ONE MOMENT PLEASE... "-uJ ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,E PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***  ** SET VARIABLES **" 9002 HI12:LOW18 :S  ** CHECK FOR 8032 **q "":"": SHIFTED SPACE (UB40)96700  ** MEMORY CHECK **  (0)2000937 "THIS MACHINE D1103,133!1104,145:1105,234:1082,234"(50003)160955="1093,88:1094,228:1097,85:1102,228:965R"(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:2STARTS HERE **$"";::(50003)053281,6:53280,14$ PATTY GARN$:4$ MULTIPLICATION DRILLF$ MARCH, 1982L$:Y$LPUM813g$( PICTURE$2" $<" ϣХ$F" $P" LADDER BY%" ANSWERING THE QUESTIONS CORRECTLY."R" HEN AN ANSWER IS INCORRECT YOU WILLn" DROP DOWN ONE RUNG.:" FTER TOO MANY MISTAKES YOU'LL BE":" !!"" LEASE TRY HARD TO GET AWAY.ST":850" O THE BEST OF OUR KNOWLEDGE,"E" THIS PROGRAM IS IN THE PUBLIC"q" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." OGRAM WILL RUN ON ANY" 64 >" 64 G 835[NUZ1UP%:217aWX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UH1:UP0:UG$"ROGRAM OD":850" HE CURRENT VALUES HA(UR$)  LOW 10 LOW HI "":675UZ1UP%:217#H ** TO USE 8032 LOAD CBM4032 **~"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71 ** TO USE 8032 L *I122:"";:," :."  [0" y2" 4"C O M M O D O R E6"EDUCATIONAL8" %" %" ϣХ&" 8&" ϣХU&" r&" ϣХ&" &" ϣХ&"  ";N1;"";N2;"="(J"";6(M:US$"-0123456789":UL5:35F(OANSWER$UR${(T" "(^ANSWER(UR$)(h ANSWER N1 N2 PP 80(r ANSWER HORRY, YOU WERE JUST EATEN!")"";Z$*835:";6(M:US$"-0123456789":UL5:35F(OANSWER$UR${(T" "(^ANSWER(UR$)(h ANSWER N1 N2 PP 80(r ANSWER  ϣХ$Z" %d" ϣХ3%n" P%x" ϣХm%" %" ϣХ%" %" ϣХ 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$$ 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. LAST BOTTLE CAP"@" 2. ST(UR$)1000,400,500,396h3008 ** RE-ENABLE STOP KEY AND END **g(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281, HIS IS THE NUMBER OF BOTTLE CAPS "<" THAT YOU ARE GOING TO START OFF WITH.k" HE STUDENT WILL THEN BE ASKED TO PICK" THE NUMBER OF BOTTLE CAPS THAT HE/SHE" WANTS TO REMOVE FROM THE PILE WITH A" MAXIMUM OF THREE.835: 'A$"    "K'"";A$U'P,81c'" PROCESSv''RANGEHILO 1',: N1 ((1)RANGE)LOW'6: N2 ((1)RANGE)LO'@" N1 N2 PP 80(| P,81) ANSWER N1 N2 P80,32$) ANSWER N1 N2 P80,32;) PUM973 2000R) PUM13 1720c) m)1580t)I)"!!YOU'RE SAVED!!") 2045)Z$"S 850" OTE:O ADVANCE FROM ONE QUESTION"I" TO THE NEXT PRESS THE ."z" F AT ANY TIME YOU WISH TO RETURN"" TO THE PRESS H ."835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10MUT$" ԠŠ":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 CONTA"":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 7UI$(13)(UR$)1UC,1:" ";:85| <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++ UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HELU2%256U1%U3%3) UQ,UQ%(UQUB):) U1,U1%5 U2,U2%A U4,U4%O U3,U3%1W 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4)UDENT INSTRUCTIONS"/E" 3. TEACHER INSTRUCTIONS"KO" 4. QUIT"zT" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"H1234":35: INPUT ROUTINE_(UR$)1300`US$""c 0:53280,00UT$" ԠŠ":UP0:UG$"TUDENT NST":850_" N THIS GAME OF BOTTLE CAPS THE "" OBJECT OF THE GAME IS NOT TO TAKE"" THE LAST CAP. HE STUDENT WILL BE"" ASKED TO PICK A NUMBER FROM 4-25.""  R TURN,YOU MAY TAKE ONE," "" TWO, OR THREE BOTTLE CAPS."4"" THE OBJECT OF THE GAME IS NOT TO "W"" TAKE THE LAST BOTTLE CAP.""" ENTER NUMBER OF BOTTLE CAPS THAT YOU""" WANT TO PLAY WITH? ";"US$"H0123456789":UL2:35:N 400#<" HEADS! I GO FIRST"$d" I WILL TAKE 2 CAPS" $nNN2-$x835:UG$" TURN #":850S$" THE NUMBER OF CAPS LEFT IS"N$" YOUR TURN--YOU MAY TAKE 1,2,OR 3 CAPS."$" HOW MANY DO YOU WISH TO REMOVE(1-3)? ";$US$"H123":UL1400%" TOO BAD, YOU TOOK THE LAST CAP!" &" I BEAT YOU!!!"%&" GOOD BYE FOR NOW!"/&1780I&" YOU WON, LUCKY!"q&" YOU THINK YOU'RE PRETTY SMART!"&" LET'S PLAY AGAIN AND I'LL BEAT YOU!"&835:300$US$"H123":UL CT:"" OMMODORE USINESS ACHINES":" 3370 HARMACY VE.^" GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: AST OTTLE AP*Y"":UT,UL%]UP0:UG$"ROGRAM OD":8508351UZ1UP%:2177\ ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71   2" 94"C O M M O D O R E\6"EDUCATIONAL{8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$UG$(UP),18)\" --------------------------------------"%`UH0870Ya(UD$,24);(UP$,7);"HELP - PRESS H "pfUH0:UO,0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u ** SETL%23:UP%2139:UM1024:UO198UD$""IUP$" "dUT$" ԠŠ"j ** SET VARIABLES **900 ** CHECK FOR 8032 **"":"": SHIFTED SPACE(UB40)77,234:1079,4:1080,133:1081,145*1091,155:1098,133:1099,144:1100,234:1103,133L1104,145:1105,234:1082,234c(50003)1609551093,88:1094,228:1097,85:1102,228:965(50003)19901093,49:1094,230:1097,46:1102,23HE PGM WILL NOT WORK ON THIS MACHINE!":+!UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **W!"";::(50003)053281,6:53280,14!WUG$"":UH1:UT$" LAST BOTTLE CAP":850!t" THIS IS A GAME CALLED LAST BOTTLE CAPS"!" WHEN IT IS YOU(UR$)"N4N25"";:1220"UP2:850,#" LET'S FLIP A COIN TO SEE WHO GOES FIRST^#" IF IT COMES UP HEADS,I WILL GO FIRST":UP0#" OR IF TAILS YOU WILL GO FIRST"# Q(2(5))#Q11340#" TAILS !YOU GO FIRST"#211:35:K(UR$):NNK%" THERE ARE NOW";N;"CAPS REMAINING."%N41560!%N31580/%N21600>%N11750H%Z4KR%1610X%`%Z3j%"1610r%,Z2|%61610%@Z1%J" MY TURN! I REMOVE"Z"CAPS"%TNNZ%^N11700%h 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$"" " RITTEN Y : .UCKEYE*" PGRADED Y : U" HIS PROGRAM WILL RUN ON ANYu" 64 " 64 I835NUZ1UP%:217WX ** PROGRAM MODIFICATION INST *** T I T L E P A G E **-""";:UT,UU%:(50003)053280,14:53281,6C$I138:"";:[&I122:"";:s(I137:"";:*I122:"";:," ."  0"" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@3009C ** SPACE BAR PRESS **tHUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UP$ 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:U96700 ** MEMORY CHECK **  (0)20009378"THIS MACHINE DOES NOT HAVE ENOUGH"\"MEMORY TO RUN THIS PROGRAM !"gUU71m"":(50003)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **1075,133:1076,144:10 0:965 2099,141:2100,20:2101,3:2103,8:2104,141:2105,21L 2106,3:2115,145:2117,52:2118,234:2121,49:2122,141 2123,20:2124,3:2126,234:2127,141:2128,21:2129,3 UU48: DISABLE STOP KEY 800: TITLE 300: MENU "T  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)# *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 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. LIMIT CIRCLE "@" 2. (UR$)1000,400,500,396h3009 ** RE-ENABLE STOP KEY AND END **h(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"""":UT,UL%:(50003)UE OF I." 835:UP1:8503" HIS PROGRAM USES THE FORMULA -"]" =[*COS(I/)**SIN(I/)]x" TO FIND THE AREA." HERE IS THE AREA"" IS THE NUMBER OF SIDES OF THE INSCRIBED POLYGON"" CALCULATED."" HE PROGRAM SUBSTITUTES INH" NUMBERS FROM THE RANGE YOU SET AND"d" COMPUTES THE AREA."w835:UP4:850" HIS PROGRAM COMPARES THE VALUE TO I BECAUSE THE RADIUS IS";" 1 AND USING THE FORMUL" TO THE PRESS H " 835 UZ1UP%:217&G ** TEACHER INSTRUCTIONS **w"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN ) 499-4292"UP1: 835: 850:*" ROGRAM AME: IMIT IRCLEL" RITTEN Y : NKNOWNu" PGRADED Y : TEPHEN ENTON" HIS PROGRAM WILL RUN ON ANY" 64 " 64  *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: +++ 835NUZ1UP%:217W.X ** PROGRAM MODIFICATION INST **?Y"":UT,UL%_]UP0:UG$"ROGRAM OD":850h835|UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 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)STUDENT INSTRUCTIONS"1E" 3. TEACHER INSTRUCTIONS"MO" 4. QUIT"|T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE_(UR$)1300`US$"" c053281,0:53280,0#UP0:UG$"TUDENT NST":850R" HIS PROGRAM FINDS THE LIMIT OF THE"}" AREA OF A UNIT CIRCLE. HE VALUE "" SHOULD BE I AND THE PROGRAM COMPARES"" THE VALUE THAT YOU CALCULATE WITH THE"" REAL VAL IS THE RADIUS"835:UP2:850B" HIS PROGRAM ASKS FOR THE LEAST "o" NUMBER OF SIDES TO CONSIDER AND THE"" MOST NUMBER OF SIDES TO CONSIDER." T ALSO ASKS FOR THE NUMBER OF "" TIMES YOU WANT THE AREA A FOR THE AREA OF A CIRCLE (=(^2)),";;" THE AREA OF THE CIRCLE IS I."D835MUP5V850" OTE:O ADVANCE FROM ONE QUESTION"" TO THE NEXT PRESS THE BAR"" F AT ANY TIME YOU WISH TO RETURN" THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"8" PLEASE CONTACT:"b" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416 ACH SMALL TRIANLE)%jB-TOTAL AREA OF ALL N TRIANGLESUSING FORMULA B=N[R*COS(360/2N)*R*SIN(360/2N)Q%t" THE SIZE OF THE RADIUS WILL BE "%y" CONSIDERED TO BE ONE FOR COMPARISON SAKE."%~R1%" TYPE IN THE LOWEST NUMBER OF SIDES TO BE C A NUMBER GREATER"&X11000::1100.'" TYPE IN THE NUMBER OF TIMES YOU WISH THE AREA CALCULATED"]'" ? ";:US$"0123456789":UL5:35:L(UR$)'L1" COME ON NOW BE SENSIBLE":1205'IJ 1180'Q(IJ)L'"":875'Nd(2" IS THIS CLOSE ENOUGH ?(Y/N) ";)<US$"YN":UL1:35:A$UR$)FA$"N""": 1160)PLCULATED"]'" ? ";:US$"0123456789":UL5:35:L(UR$)'L1" COME ON NOW BE SENSIBLE":1205'IJ 1180'Q(IJ)L'"":875'N " LOAD THE 'CBM 4032' PROGRAM"UU71$I ** 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%:(54"C O M M O D O R E#6"EDUCATIONALB8"SOFTWARE]: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"--------"`UH0870 a(UD$,24);(UP$,7);"HELP - PRESS H "2fUO,0:"":Qk ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:" UP$" "3 UT$" ": PROGRAM TITLE9 S  ** SET VARIABLES **\ 900b :h :  ** CHECK FOR 8032 ** "":"": SHIFTED SPACE (UB40)96700  ** MEMORY CHECK145"1091,155:1098,133:1099,144:1100,234:1103,133'"1104,145:1105,234:1082,234>"(50003)160955m"1093,88:1094,228:1097,85:1102,228:965"(50003)1990"1093,49:1094,230:1097,46:1102,230:965"2099,141:2100,20:CHINE!":$UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **2$"";::(50003)053281,6:53280,14;$L""$V A PROGRAM FOR FINDING THE LIMIT OF THE AREA OF A CIRCLE HAVING N SIDES$` VARIABLES,N-NO. OF SIDES OF REGULAR POLYGON,A-AREA OF 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$ONSIDERED"%" ? ";:US$"0123456789":UL8:35:J(UR$) &J0 1160M&" TYPE IN THE HIGHEST NUMBER OF SIDES TO BE CONSIDERED":|&" ? ";:US$"0123456789":UL8:35:I(UR$)&IJ1200&" THIS IS SMALLER THAT THE LOWER VALUE GIVE ME JIQ'AR(N)R(N)'BNA'  (DC((100000)100000)&(P$():P$(P$,(P$)1)N(" ACTUAL VALUE OF (";P$;")"k(B$(B):B$(B$,(B$)1)(" VALUE OF CALCULATED (";B$;")"((" YOU WERE ONLY OUT";(B)100;"%""":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 +++0003)053280,14:53281,6 $I138:"";:"&I122:"";::(I137:"";:R*I122:"";:w," ."  0" 2" ":I0@300C ** SPACE BAR PRESS **;HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"RLUI$:UI$" "844XNxR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" ------------------------------U2197:U3198:U4216:UC167:UU10243UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0v(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$" **  (0)2000937!"THIS MACHINE DOES NOT HAVE ENOUGH"7!"MEMORY TO RUN THIS PROGRAM !"B!UU71H!b!"":(50003)0962! ** BASIC 2.0 OR 4.0 OR C-64 SETUP **!1075,133:1076,144:1077,234:1079,4:1080,133:1081,2101,3:2103,8:2104,141:2105,21'#2106,3:2115,145:2117,52:2118,234:2121,49:2122,141a#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 MA E. " GINCOURT, NTARIO"." ANADA 1 24"N" (416) 499-4292"iUH1:UP1: 835: 850:" ROGRAM AME: INEAR QUATION" RITTEN Y : ONALD ATTON" PGRADED Y :   1UP%:217 ** TO USE 8032 LOAD CBM4032 **O"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,1 C O M M O D O R E6"EDUCATIONAL88"SOFTWARES: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300 $ 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 LINEAR EQUATION" @" 2400,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: CANNOT GRAPH FRACTIONS, SO MY GRAPH WILL NOT BE EXACT.H835:UP1:UH1:850r" CANNOT GRAPH EQUATIONS WHOSE"" Y-INTERCEPT IS GREATER THAN 9 OR LESS"" THAN -9 OR WHOSE X-INTERCEPT IS"" GREATER THAN 20 OR LESS"EACHER NST":850)" O THE BEST OF OUR KNOWLEDGE,"R" THIS PROGRAM IS IN THE PUBLIC"~" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VH0870a(UD$,24);(UP$,7);"HELP - PRESS H "'fUH0:"":Fk ** PLEASE WAIT REMARK **|p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4" HIS PROGRAM WILL RUN ON ANY-" 64 R" 64 [ 835oNUZ1UP%:217uWX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UH1:UP0:UG$"ROGRAM OD":850835UZ4:53281,6$I138:"";:&I122:"";:0(I137:"";:H*I122:"";:m," ."  0" 2" 4" C ** SPACE BAR PRESS **1HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"HLUI$:UI$" "844NNnR ** PAGE DESIGN ROUTINE **zTUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`U 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"5E" 3. TEACHER INSTRUCTIONS"QO" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,UH1:UP0:UG$"TUDENT NST":8508" HIS PROGRAM WILL GRAPH"_" BASIC LINEAR FUNCTIONS."" E SURE YOUR EQUATION IS IN THE FORM:""  X + Y = "" , AND MUST BE WHOLE NUMBERS."0"  THAN -20."#" OTE:F AT ANY TIME YOU WISH TO"J"RETURN TO THE , PRESS"a" <>j835~UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UH1:UP0:UG$ 216:UC167:UU1024(UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0k(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$""UP$ ORY CHECK ** (0)2000937""THIS MACHINE DOES NOT HAVE ENOUGH"F"MEMORY TO RUN THIS PROGRAM !"QUU71Wq"":(50003)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **1075,133:1076,144:1077,234:1079,4:1080,1 2100,20:2101,3:2103,8:2104,141:2105,216 2106,3:2115,145:2117,52:2118,234:2121,49:2122,141p 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 O UATIONS! AX+BY=C!$!. 8K P.E.T.!8"B RONALD HATTON"L="V"c"`" SAN MATEO COUNTY "j" OFFICE OF EDUCATION "t" & "~" COMPUTER-USING ED$" PROGRAMS MAY BE COPIED FOR +$" EDUCATIONAL USE ONLY AND Q$" ARE NOT TO BE SOLD. w$"$2610$" WHAT IS THE VALUE OF A ?";:UL2:US$"1234567890-H":35ER ONE!"%d835:1280%nDX((B)):DY((A))&xDX151450&DY101450$&DX022203&DY02370=&1490s&" THIS SLOPE WILL NOT FIT ON MY GRAPH."&" LETS TRY ANOTHER ONE!"&835:1280& PRINTS AXIS *************";'^"5-5";'h"";(rW12140(|Q03( LOCATES (0,B1)***************<(""F(QQ1O(""k("";|(I1(10B1)("";(("ѝ";( JUMP TO PRINT II & III**********0)vC1DYB1101690)I1DX:"";:)I1DY:"";:*"ѝ";*1890'* PRINTS II & III0*C10C*(AB)02070k* PRINT +M IN I & IV**************w*C1C11*C1DX191690*C1DYB1101690*I1DX:"";:* 90+z""++""+Q0:C10+1280+"",I119(CA),"";, ,I120,,"";2,;,""C,W1M, 1500[, A02340e, 2220,$ "THIS IS NOT A LINEAR EQUATION.",. "LETS TRY ANOTHER ONE!",8 835:1280,B "",L I111(CB),V "";,` ,j I140-t ""; -~ - ""- W1$- 1500/-2 ""Q-< 11)"ONE LAST WARNING":::-F "I PLOT MY POINTS USING MULTIPLES OF YOUR"-P "COEFFICIENTS, SO IF YOUR COEFFICIENTS"-Z " "NUT$" Ҡ ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***Tn ** SET VARIABLES **w900 ** CHECK FOR 8032 **"":"": SHIFTED SPACE(UB40)96700 ** MEM33:1081,1451091,155:1098,133:1099,144:1100,234:1103,13361104,145:1105,234:1082,234M(50003)160955|1093,88:1094,228:1097,85:1102,228:965(50003)19901093,49:1094,230:1097,46:1102,230:9652099,141:N THIS MACHINE!":!UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **@!"";::(50003)053281,6:53280,6! MODIFIED FOR EXPERIENCE '82 BY PAUL CAPES, SARNIA! LINEAR EQUATIONS 1/15/79!! PROGRAM PLOTS LINEAR EQUCATORS "" !#" SOFTSWAP G#" m#"333 MAIN STREET, REDWOOD CITY#"CA 94063 (415)364-5600 EX4401#"#"$A(UR$)% " WHAT IS THE VALUE OF B?";:35:B(UR$)5%" WHAT IS THE VALUE OF C?";:35:C(UR$)C%B02320Q%(B1(CB)Y%2W0l%<(B1)101360v%F1390%P" THIS WILL BE OFF OF MY GRAPH - SORRY."%Z" LETS TRY ANOTH*****&"";&"";&X139&"";'X '"X";4'"";B'" Y";N'"X120Z',"";a'6X'@"";'J"-15-5515";'T"(Q21960(Q22140( JUMP TO PRINT -M)(AB)01890,) PRINT +M IN I & IV**************8)C1C11K)&C1DX201690a)0C1DYB1101690u):I1DX:"";:)DI1DY:"";:)N"ѝ";)X1820)bC1C11)lC1DX20169I1DY:"";:*"ѝ";* 2000*C1C11* C1DX191690+*C1DYB1101690&+4I1DX:"";::+>I1DY:"";:E+H"ѝ";O+R2070+\"DO YOU WANT TO GRAPH ANOTHER ONE? ";+fUL1:US$"YN":35+pUR$"Y"21"ARE TOO BIG, ALL PLOTTED POINTS WILL " .d "EXCEED MY 40 X 20 GRAPHING AREA.":::%.n 12)"GOOD PLOTTING!"..x 8354. C,W1M, 1500[, A02340e, 2220,$ "THIS IS NOT A LINEAR EQUATION.",. "LETS TRY ANOTHER ONE!",8  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 ROUTINE4 _UF1240A dUF0::Z f ++ CHECK DELETE ++k i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US$US$UX$ US1(US$) UI$ UF1: +++ HELP ROUTINE EXIT +++$ 250- 245L UQUB(U2%256U1%U3%2)h UQ%(UQUB)(UQ)::""{ UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$U3):U4%(U4))UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/@, ** MENU **F-:u."":UT,UU%:(50003)053281,9:53280,8{/:1" MENU"6" --------------------------------------";" 1. MAKING CHANGE "(UR$)1000,400,500,396h3009 ** RE-ENABLE STOP KEY AND END **h(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281Z1UP%:217  ** TEACHER INSTRUCTIONS **P"":UT,UL%:(50003)053281,2:53280,10qUP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT ROGRAM AME: AKING HANGE&" RITTEN Y : NKNOWNJ" PGRADED Y : u" HIS PROGRAM WILL RUN ON ANY" 64 " 64  835NUZ1UP%:217WX ** "UU71  ** T I T L E P A G E **M""";:UT,UU%:(50003)053280,14:53281,6c$I138:"";:{&I122:"";:(I137:"";:*I122:"";:," ."   0" 12" Y4"C O M M O D O R E|6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I2508284>T1$"":T2$"":T3$"":T4$"":I0=@300YC ** SPACE BAR PRESS **H UO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUPUP1$"": 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 ++(US$,US,1)  UI$"":4 ** STANDARD INPUT **E (UI$)46V UI$(32)s (UI$)48(UI$)57170y (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$""::UT,UV%:UQUB(U2%256U1%U3%3). UQ,UQ%(UQUB):: U1,U1%F U2,U2%R U4,U4%` U3,U3%1h 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ":U1%(U1):U2%(U2):U3%(@" 2. STUDENT INSTRUCTIONS"CE" 3. TEACHER INSTRUCTIONS"_O" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$"" c,0:53280,0UP0:UG$"TUDENT NST":850H" OU MUST MAKE CHANGE FOR THE AMOUNT"v" GIVEN USING AS FEW COINS A POSSIBLE."" OTE:" F AT ANY TIME YOU WISH TO RETURN"" TO THE PRESS H "835UTHE CASE"" PLEASE CONTACT:";" OMMODORE USINESS ACHINES"^" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:"  PROGRAM MODIFICATION INST **Y"":UT,UL%4]UP0:UG$"ROGRAM OD":850=835QUZ1UP%:217W| ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM  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 W""(UT$UP$,21);(UP$UG$(UP),18)7\" --------------------------------------"F`UH0870za(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE...  03)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO1982UD$""dUP$" "UT$" ǠŠ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** ** SET VARIABLES ** "":(50003)0962  ** BASIC 2.0 OR 4.0 OR C-64 SETUP **^1075,133:1076,144:1077,234:1079,4:1080,133:1081,1451091,155:1098,133:1099,144:1100,234:1103,1331104,145:1105,234:1082,234(50003)1609551234:2127,141:2128,21:2129,3UU48: DISABLE STOP KEY800: TITLE/300: MENU`"THE PGM WILL NOT WORK ON THIS MACHINE!":UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **"";::(50003)053281,6:53280,14T1(1)2500)100:TE$""!A$(A):(A$,(A$)1,1)"."A$A$"0",!" GIVEN THE AMOUNT";A$8!""v!T110:" HOW MANY "NM$(T);"(S)? ";:US$"01234":UL1:35! AN$(T)UR$:T!T29:(AN$(T))2T4T8TE$"YES"!T:(AN$(8))3" YOU ARE INCORRECT"#P" YOU SCORED";SC;"OUT OF";SO9#Z" DO YOU WANT TO PLAY AGAIN? ";:US$"YN":UL1:35P#dUR$"Y"1240:BA0V#n? ";:US$"01234":UL1:35! AN$(T)UR$:T!T29:(AN$(T))2T4T8TE$"YES"!T:(AN$(8))3UT 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$)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,14OGRAM 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 "u ** SET UP VARIABLES **NUX$"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(500900NM$(10),AN$(10),DN(10) ** CHECK FOR 8032 **0"":"": SHIFTED SPACEG(UB40)96700` ** MEMORY CHECK **t (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !"UU71093,88:1094,228:1097,85:1102,228:965(50003)1990@1093,49:1094,230:1097,46:1102,230:965z2099,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,011:NM$(T):TT110:DN(T):T `SO0:SC0I ~"PENNY","NICKEL","DIME","QUARTER","FIFTY CENT PIECE","$1 BILL"x "$2 BILL","$5 BILL","$10 BILL","$20 BILL" 2000,1000,500,200,100,50,25,10,5,1 : : : : : BA0:A(1(AN$(8))3TE$"YES"!T110 "BABA(AN$(T))DN(T):T*"(" YOUR ANSWER IS ";BA100H"2((BA100))(A$)1350q"<" YOU ARE CORRECT"::SCSC1:SOSO1"ATE$"YES"" BUT YOU COULD HAVE DONE IT USING LESS COINS.""B1360"FSOSO1::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 ":+ 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$ ** STUDENT INSTRUCTIONS **6"":UT,UL%:(50003)053281,0:53280,0XUP0:UG$"TUDENT NST.":850b""" I! Y NAME IS 64":" WILL THROW TWO DICE, AND SHOW THEM"" TO YOU. OUR JOB IS TO GIVE ME"" THE SUM OF CES"" TO ANSWER THE QUESTION. HERE IS A"H" LITTLE SUPRISE IF YOU DO WELL, SO TRY"l" YOU'RE BEST Ġˠ!"u835UG$""UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:532 3370 HARMACY VE." GINCOURT, NTARIO"@" ANADA 1 24"`" (416) 499-4292"vUP1: 835: 850:" ROGRAM AME: ATH ICE" RITTEN Y : NKNOWN" PGRADED Y :  --" HIS PROGRAM WILL HELP EARLY AGE">" STUDENTS (-3) TO DEVELOP THEIR SKILLS"g" IN COUNTING AND ADDING NUMBERS."v&835:"";KUG$""NUZ1UP%:217WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG" F A STUDENT WORKS OVER THE SET"/" STANDARD, A BIG MESSAGE WILL APPEAR.";9 835DUG$""XUZ1UP%:217^ ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' (142);$I138:"";: &I122:"";:$(I137:"";:<*I122:"";:a," ."  0" 2" 4" ** SPACE BAR PRESS **%HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"<LUI$:UI$" "844BNbR ** PAGE DESIGN ROUTINE **nTUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0U1%(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" --------------------------------------";" R KEY (1-5) ";%^UL1:US$"12345":35: INPUT ROUTINEFc(UR$)1000,400,500,600,396Oh300v ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875:UC167:UU1024 UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0_ (50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048 (50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198 UD$"" UP$"  THE TWO NUMBERS OF DOTS ON"4" THE DICE. FTER ENTERING THE ANSWER"b" PLEASE PRESS Β SO THAT KNOW"" WHEN YOU'VE ANSWERED.":835:850" NY TIME YOU NEED HELP, PRESS Ȓ AND"" Β. WILL GIVE YOU TWO CHAN80,10 UP0:UG$"EACHER NST.":850;" O THE BEST OF OUR KNOWLEDGE,"d" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES""  " HIS PROGRAM WILL RUN ON ANY-" 64 R" 64 ` 835:850 ------------------------------ " PGRADED FOR 64 BY: " YNDA ONANNO ----------------------------$"ROGRAM OD.":850!" 1830 (%/%)>.75 .........."M" "y" ^ "" N THE LINE 1830, THE VALUE 0.75 MAY"" BE CHANGED TO A DIFFERENT STANDARD."PROGRAM"UU71% ** TO USE 8032 LOAD CBM4032 **p"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"|1093:  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6# C O M M O D 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 870 a(UD$,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:1. BEGIN MATH DICE"/@" 2. STUDENT INSTRUCTIONS"YE" 3. TEACHER INSTRUCTIONS"J" 4. MODIFICATION OF PROGRAM"O" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBE NOT TO BE SOLD. ("$(******************************H(* *l(* MATH DICE *(* *(* KID-PROOFED BY JJ *(*  " !UT$" ATH ICE"!)! ** SET VARIABLES **2!9008!:>!:Y! ** CHECK FOR 8032 **w!"":"": SHIFTED SPACE!(UB40)96700! ** MEMORY CHECK **! (0)2000937!"THIS M " HOW MANY ROLLS WOULD YOU LIKE? ";:UL2:US$"0123456789":35*HIN$UR$:UR$"":R%(IN$)4*P X 1 R%:"";L*ZNN1:D((1)61)]*d" ϣ "n*n D1 1460~*x D2 1440* D3 1440*" ѧ "* 1470*"  100,234:1103,133"1104,145:1105,234:1082,234#(50003)160955C#1093,88:1094,228:1097,85:1102,228:965X#(50003)1990#1093,49:1094,230:1097,46:1102,230:965#2099,141:2100,20:2101,3:2103,8:2104,141:2105,21#2 1630+T" "+^" ̤ ":+h N2 1670,r" +":,|AD: 1370),TDA:" = ";b,UL2:US$"0123456789H":35:IN$UR$:UR$"":T1%(IN$)u, T1%T 1760," COUNT THE SPOTS AND GIVE ANOTHER ANSWER.","PROGRAM STARTS HERE **%"";::(50003)053281,6:53280,14%<% MATH DICE JULY 80 2 REMJ%C%0:T%0% COUNT & ADD DOTS ON DICE FOR CORRECT ANSWER%% 8K PET%$%."  RIGHT !!! "-C%C%1:T%T%1- H1 2000:- XR% 1800A." THE DICE ROLL AGAIN.....": H1 700:HG.S.N0: Xt."";.5);" "." YOU H &~"333 MAIN STREET, REDWOOD CITY'"CA 94063 (415)364-5600 EX4401B'"h'"'" PROGRAMS MAY BE COPIED FOR '" EDUCATIONAL USE ONLY AND '" ARE ";/D" THANKS FOR PLAYING WITH ME,";N$;"!"*0N"";14);"GOODBYE!":"":835:300M0X" Φ Φ p0b" 0l" ͦ0v" 0" 0" ͦ ͦΠ0"%1" Φ Φ Φ ΦM1" u1" 1" ͠1"  JULY 16, 1980 *( * * )******************************&):Y)(ZZ$" "k)2"";:UT,UU%)<" WHAT'S YOUR NAME? ";:UL12:US$"":35:IN$UR$:N$IN$)AUR$"")FACHINE DOES NOT HAVE ENOUGH" ""MEMORY TO RUN THIS PROGRAM !""UU71"8""":(50003)0962g" ** 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:1"* 1470*" "* D2 1520* D4 1520 + D6 1540+" Ѡ "'+ 15508+" "C+ 1550T+" ѧ "e+ D1 1620v+ D2 1600+" D3 1600+," ѧ "+6 1630+@" ѧ "+J106,3:2115,145:2117,52:2118,234:2121,49:2122,1417$2123,20:2124,3:2126,234:2127,141:2128,21:2129,3U$UU48: DISABLE STOP KEYf$800: TITLEv$300: MENU$"THE PGM WILL NOT WORK ON THIS MACHINE!":$UZ1UP%:UP%:UZ0: **  = ";-UL2:US$"1234567890H":35:IN$UR$:UR$"":T2%(IN$)"- T2%T 1760O-"";ZZ$;" NO, THE ANSWER IS "T:T%T%1-" "- 1770-"";Z$;" %8" SAN MATEO COUNTY &B" OFFICE OF EDUCATION 8&L" & ^&V" COMPUTER-USING EDUCATORS &`" &j" SOFTSWAP &t" AVE "C%" CORRECT IN "T%" TRIES.".& (C%T%).75 1880/0" DO YOU WANT TO ROLL SOME MORE? ";F/5UL1:US$"YN":35:IN$UR$:UR$"":A$IN$:s/: (A$,1)"Y" "";:"";:1350/?"";/A"  910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$ 1" 2" ͦ ͦΠͦ22:ME$N$" !!":N%(ME$)A2 X1 N%Z2(ME$,X);:T15:Tn2Y1X:"";:Y|2 "";: X2FORY=1 TON%:PRINT"";:NEXT Y2 Y3(4 $ 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,191:L1100::201903NP,152:L1100::201903NP,128:L1200::201904NP,152:L1100::T0:2019014NP,128:L1400:74NO4N59464,0:L1T::5:Tn2Y1X:"";:Y|2 "";: X2FORY=1 TON%:PRINT"";:NEXT Y2 Y3(4 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( UP0:UG$"TUDENT NST":850;"HIS PROGRAM GIVES YOU EIGHT TYPES"k" OF ALGEBRAIC PROBLEMS. N THE PARTS OF"" THE PROGRAM WHERE MULTIPLE INPUTS ARE"" ASKED (EG. NTER X1,Y1,N1,X2,Y2,N2)"" TYPE THE NUMBERS IN ONE AT A UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN MATHPACK"@" 2. STU TURN TO"!" THE TEMPORARILY, PRESS H ."*835>UZ1UP%:217De ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UH1:UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE, ,396h300$ ** RE-ENABLE STOP KEY AND END **S(50003)1(50003)160(50003)0399}UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0 UH1: "" THIS PROGRAM IS IN THE PUBLIC">" DOMAIN. F THIS IS NOT THE CASE"[" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA "":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 +++ 0N%)2:"";:T115:T:Y::20000:2 N CHARGE! ADAPTED FROM2*N 'CURSOR' 34N BY J. DAVID3>N WHCI#3HNP5946413RN59467,16>3\N59464,0I3fN20100h3pN59467,0:59466,0:59464,0n3zNt3N3N59466,15:T33NP,255:L1100::201903N  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!1 24"" (416) 499-4292")UH1:UP1: 835: 850:N" ROGRAM AME: ATHPACKp" RITTEN Y : NKNOWN" PGRADED Y : " HIS PROGRAM WILL RUN ON ANY" 64  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)  TIME." "F YOU WISH TO QUIT, TYPE '' AND"O" THAT WILL BRING YOU BACK TO THE MENU."e835:UPUP1:850" OTE:O ADVANCE FROM ONE QUESTION TO"" THE NEXT PRESS THE BAR.""F AT ANY TIME YOU WISH TO RE DENT INSTRUCTIONS".E" 3. TEACHER INSTRUCTIONS"JO" 4. QUIT"yT" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,400,500! SOFTWARE: ** COMMODORE LOGO **=;(UD$,24);"PRESS SPACE BAR OR WAIT":I0_<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CON! C (ALL FOUR)"." 4 2 VARIABLE SIMULTANEOUS EQUATIONS6"8" 5 3 VARIABLE SIMULTANEOUS EQUATIONS_"B" 6 COMBINATIONS & PERMUTATIONS"L" 7 FACTORIALS (HIGH MAX NUMBER)"V" 8 INVERSE OF 2*2 MATRIX"`" HAT IS YOUR CHOICE?! k ** PLEASE WAIT REMARK **.p(UD$,24);" ONE MOMENT PLEASE... "4uQ ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003! " HAT NUMBER DO YOU WANT FACTORED?"$" YPE 'Q' TO QUIT. ";9$US$"0123456789QH":UL4:35:N(UR$)H$UR$"Q"P$HN{$" RIME FACTORS OF";H;"ARE":" ";$R2$ANR$ A(A)R;:NA:1250$RR1$ R(N2)N1!CE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***  ** SET VARIABLES **)900D ** CHECK FOR 8032 **b"":"": SHIFTED SPACEy(UB40)96700 ** MEMORY CHECK ** (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH"!" 64  835!NUZ1UP%:217'WMX ** PROGRAM MODIFICATION INST **^Y"":UT,UL%]UH1:UP0:UG$"ROGRAM OD":850835UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNN!45:1105,234:1082,234(50003)160955.1093,88:1094,228:1097,85:1102,228:965C(50003)1990r1093,49:1094,230:1097,46:1102,230:9652099,141:2100,20:2101,3:2103,8:2104,141:2105,212106,3:2115,145:2117,52:211!:*I122:"";:," A."  b0" 2" 4"C O M M O D O R E6"EDUCATIONAL8"!";::(50003)053281,6:53280,14 UT,UL%+!" **********-************Z!" OUR CHOICE OF PROBLEMS IS AS FOLLOWS!" 1 PRIME FACTORS OF A NUMBER!" 2 QUADRATIC AND CUBIC EQUATIONS!$" 3 COMPLEX ARITHMATI"456789":UL2:35:A(UR$):UR$"Q"(&G", ";:US$"QH0123456789":UL2:35:B(UR$):UR$"Q"l&H", ";:US$"QH0123456789":UL2:35:C(UR$):UR$"Q"&I12)", ";:US$"QH0123456789":UL2:35:D(UR$):UR$"Q"&J16);", ";:US$!TINUE"LUI$:UI$" "844N R ** PAGE DESIGN ROUTINE **,TUPUP1VW""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":! ";"~US$"12345678HQ":UL1:35:A$UR$#A$"Q"#"":Q(A$):Q1Q81020N#Q1180,1436,2110,1306,2940,1800,2640,1930V#"_#UP0y#UG$"UESTION #":850#" HIS PROGRAM CALCULATES ALL"#" PRIME FACTORS OF A NUMBER."#!,0(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048\(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$""UP$" "UT$" ": PLA! ;N;:::835:1185$ N1::835:1185$1250%UP0%UG$"UESTION #":850I%" HIS PROGRAM SOLVES A 2 VARIABLE"i%(" SIMULTANEOUS EQUATION"%2" YPE 'Q' TO QUIT."%<" NTER X1,Y1,N1,X2,Y2,N2"%F" ";:PZ1:US$"QH0123!"MEMORY TO RUN THIS PROGRAM !"UU71 #"":(50003)0962R ** BASIC 2.0 OR 4.0 OR C-64 SETUP **1075,133:1076,144:1077,234:1079,4:1080,133:1081,1451091,155:1098,133:1099,144:1100,234:1103,1331104,1!ING THIS PROGRAM ON AN 8032 7" LOAD THE 'CBM 4032' PROGRAM"BUU71Hh  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I137:"";!8,234:2121,49:2122,141" 2123,20:2124,3:2126,234:2127,141:2128,21:2129,3@ UU48: DISABLE STOP KEYQ 800: TITLEa 300: MENU "THE PGM WILL NOT WORK ON THIS MACHINE!": UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE ** "" OOT X1= "(X110000.5)10000-" EAL ROOT X2= "(X210000.5)10000.835:"":1436#.X1(B)2A4.X2(Y)2AP." OOTS COMPLEX"." "(X110000.5)10000"+"(X210000.5)10000"J"." "(X110000.5)10000"-"" "Q0123456789":UL2:35:E(UR$):UR$"Q"!'K20);", ";:US$"Q0123456789":UL2:35:F(UR$)0'MUR$"Q"?'N" ":PZ0\'P" ";A;"X +";B;"Y ="Cy'Z" ";D;"X +";E;"Y ="F'dNAEBD'nN0" HAT CANNOT BE DONE. RY AGAIN.":835:130" MANY THINGS? ";/PZ1:US$"QH0123456789":UL2:35:N(UR$):UR$"Q"0:" OW MANY AT A TIME? ";M0US$"QH0123456789":UL2:35:M(UR$):UR$"Q"e0N0M0MN18240"NVALID DATA, TRY AGAIN..":QQ1300::18000 T71M0!(1." E DO YOU WANT TO FACTOR?"(" QUADRATIC OR CUBIC")" YPE 'Q' TO QUIT. ";4)US$"QUCH":UL9:35:A$UR$D) A$"Q" W)A$"QU"1500`)850)" UADRATIC EQUATION ENTER : A,B,C")" ";:PZ1:US$"QH0123456789":UL2:35:A"l" OMBINATIONS ARE ";P41v"1835:"": 18021UP0 2UG$"UESTION #":850+2" NVERSE OF 2*2 MATRIX>2" NTER ";T2" 1 2 u2" 3 4 2" AS 1,2,3,4 "2" ";:PZ1:US$"QH01234"9":UL2:35:A(UR$):UR$"Q"+", ";:US$"QH0123456789":UL2:35:B(UR$):UR$"Q"X+8)", ";:US$"QH0123456789":UL2:35:C(UR$):UR$"Q"+12)", ";:US$"QH0123456789":UL2:35:D(UR$):UR$"Q"+875:"":"":PZ0+"4:A6A2:A7A3:A8A13A9A4A1A6A3: 4A90" HIS MATRIX HAS NO INVERSE":835:"":193254A1A5A9:A2A6A9:A3A7A9:A4A8A9\4" ERE IS YOUR INVERSE MATRIX:4" 4""11)(A11000.5)1000;21)" DIVIDED BY FIRST ROOT ";(X10000.5)10000-h" A ="(A10000.5)10000" B ="(B10000.5)10000;>-m" C ="(C10000.5)10000J-rY4AC`-|YBBY:Y01750k-Y(Y)y-X1(B)Y-X1X12A-X2(B)Y-X2X22A-" EAL R" RACTION"5\" 3 FOR DIVISION"5f" 4 FOR MULTIPLICATION"6p" S SOON AS YOU HAVE ENTERED ONE OF"H6z" THE NUMBERS YOU ARE IN THAT MODE."q6" TYPE 'Q' TO END THE PROGRAM. ";6US$"1234QH":UL1:35:A$UR$:UP06A$"1#"22706A$"2"23606A$"3"24506A$"4"25507" RY AGAIN 1,2,3 OR 4":21207UG$"UESTION #":85067" OMPLEX ADDITION:_7" NTER REAL PART THEN IMAG(J)PART7" THEN OTHER COMPLEX NUMBER FOR ADDITION7" FORMULA I"(X210000.5)10000"J"."";26);"WHERE,"/"";26);"J2 + 1 = 0"/835:"":1436/UP07/ UG$"UESTION #":850]/ " ERMUTATIONS & COMBINATIONSw/" YPE Q TO QUIT."/" NTER FOR N THINGS TAKEN M AT A TIME":" OW "6'xX(CEBF)N'Y(AFDC)N'" X ="X(" Y ="Y(835:"":13066(UG$"ROBLEM #":UP1:850e(" HIS PROGRAM CALCULATES ALL THE ROOTS"(" (REAL OR IMAGINARY) OF A QUADRATIC OR"(" CUBIC EQUATION."(" HAT TYP"70141184E37 NT7)N18270"T7:18291#" UMBER IS TOO LARGE":UPUP1:835:18021%"":PZ01&P4N710P3P31:P3M1860N1:P4(NP3)P4:1840n1D" ERMUTATIONS ARE ";P4z1NP4P4M1XP3P31:P3119001bMM1:P4P4M:18801"(UR$):UR$"Q" *", ";:US$"QH0123456789":UL2:35:B(UR$):UR$"Q"M*8);", ";:US$"QH0123456789":UL2:35:C(UR$):UR$"Q"a*"":PZ0:1650r*UPUP1:850*" UBIC EQUATION ENTER A,B,C,D"*" ";:PZ1:US$"QH012345678"56789":UL5:35:A1(UR$):UR$"Q"3", ";:US$"QH0123456789":UL5:35:A2(UR$):UR$"Q"O38)", ";:US$"QH0123456789":UL2:35:A3(UR$):UR$"Q"312);", ";:US$"QH0123456789":UL5:35:A4(UR$):UR$"Q"3"":PZ03A5A"X3000:L100+XXL+YXXXAXXBXCD+Y0 1590,Y01530,"(Y)1E0615903,,XXL:LL10:1530j,6" X= "(X10000.5)10000,"(FIRST ROOT (REAL))"v,@BAXB,JCBXC,T" ONVERTED TO QUADRATIC FORM,^" CUBIC";(A21000.5)10004"4 ""11);(A31000.5)1000;21);(A41000.5)1000!5"  554835:"":1932S5>UG$"ROBLEM #":UP2:850m5C" OMPLEX NUMBERS"5H" 1 FOR ADDITION"5R" 2 FOR SUBT# >F 835:"":2550>P UP0>U UG$"UESTION #":850>W " XAMPLE 10000 TAKES 5.5 MINUTES?Z " HIS PROGRAM FINDS FACTORIALS$?d M1000.?n K1007?x L10?? T1G? U0X? S.434294482y? " OF ANY POSITIVE INTEGER? " ENTER X: ";# S (A +OR- J)+(A1 +OR- J1)7 " 2 COMPLEX NUMBERS AT A TIME A,J,A1,J1"8 " ";:PZ1:3150:A(UR$)%8 ", ";:3150:J(UR$)H8 ", ";:3150:A1(UR$)o8 ", ";:3150:J1(UR$)}8 "":PZ08 AAA1:JJJ18 "# T:GTX:JJG:@ " ACTORIAL OF"X"IS"J:835:"":2645@ GTX:JJ(G)S:@ JM2830 A JJM:UUM:2810A JK2850.A JJK:UUK:2830! ", ";:3150:A1(UR$)2>" ", ";:3150:J1(UR$)@># "":PZ0\>( PAA1JJ1:DAJ1A1Jv>2 "EAL PART="P>< "MAG PART="DF35:"":2952FN US$"QH0123456789":UL2:35:UR$"Q" UP%FS 3150:K3(UR$)D "":PZ0)E D((R7R5R3R8R6R1R9R4R2)(R1R5R9R6R2R7R3R4R8))hE D0 " HAT CANNOT BE DONE SORRY TRY AGAIN":835:2952E X((K3R5R3R8R6K1R $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)#? US$"QH0123456789":UL3:35:X(UR$):UR$"Q"@ X1X" HAT WOULD TAKE LONGER THAN THE UNIVERSE":2645(@ (X)X" O FRACTIONS":2720Q@ X0" O NEGATIVE NUMBERS":2720y@ X0"1E+0":835:"":2645@ X332800@ J#EAL PART="A8$ "MAG PART="J8. 835:"":227088 UG$"UESTION #":8509= " OMPLEX SUBTRACTION:<9B " NTER REAL PART THEN IMAG(J)PART THENi9L " OTHER COMPLEX NUMBER FOR SUBTRACTION9V " FORMULA IS (A +OR- J)-(A1 +OR- J1)9` "# HE FACTORIAL OF"X"IS"A^ ""J"E+"UAr 835:"":2645A| "A UP0A UG$"UESTION #":850B " HIS PROGRAM SOLVES A 3 VARIABLEFB " (X,Y,Z) SIMULTANEOUS EQUATION"lB " "B " NTER TOP PART X1,Y1#T="J: 835:"":2360: UG$"UESTION #":850: " OMPLEX DIVISION:; " NTER REAL PART THEN IMAG(J)PART?; " THEN OTHER COMPLEX NUMBER FOR DIVISIONj; " FORMULA IS (A +OR- J)/(A1 +OR- J1); " 2 COMPLEX NUMBERS AT A TIME A,J,A1,J1#C ", ";:3150:R5(UR$)C ", ";:3150:R6(UR$)C ", ";:3150:K2(UR$)D "":PZ0,D " HANK YOU AGAIN NOW LASTLY ENTERMD " BOTTOM PART X3,Y3,Z3,N3mD " ";:PZ1:3150:R7(UR$)D ", ";:3150:R8#T="M< 835:"":2450< UG$"UESTION #":850< " OMPLEX MULTIPLICATION:= " NTER REAL PART THEN IMAG(J)PARTQ= " THEN OTHER COMPLEX NUMBER FOR  MULTIPLICATION|= " ORMULA IS (A +OR- J)*(A1 +OR- J1)= " 2 COMPLEX NUMBE#9K2R2)(K1R9R5R2R6K3R3K2R8))DE Y((R7K2R3K3R6R1R9R4K1)(R1K2R9R6K1R7R3R4K3))D4F Z((R7R5K1R8K2R1K3R4R2)(R1R5K3K2R2R7K1R4R8))DBF "":850UF& "X ="XhF0 "Y ="Y{F: "Z ="ZFD 8