u`@> 1A~@ |||<T|<<xg]#@ǜ| <| www8@ ",w$+T|Machine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |cLFx |]|F/`"8|/``,,{`,   !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`ABCDEFGHIJKLMNOPQRSTUVWXYZ{|}~   & ! 0 `9 R}    " 9R|+T|lRlS128):  UI$"":4 UF1: +++ HELP ROUTINE EXIT +++= 250F 245e UQUB(U2%256U1%U3%2) UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14 AS A STUDENT AID"( "AND IS A DEMONSTRATION OF THE ACCURACY"-( "AVAILABLE ON THE USING SPECIAL"\( "TECHNIQUES. HE PROGRAM CAN CALCULATE"( "EXPONENTS UP TO 250 DIGITS IN LENGTH,"( "WITH A BASE BETWEEN 2 AND 100000, AND"( + 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$ POWER"%" "&D25CYCY1C&CZ6:CY1CZ4:CY3CZ3:CY4CZ2:CY5CZ1I&R&850&" HE PURPOSE OF THIS PROGRAM IS"&" TO DEMONSTRATE EXPONENTIAL AND"&" FACTORU1%(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" --------------------------------------" ;" 835:#" ":5$x" ESS THAN 250 DIGITS PLEASE.":T1700:Tf$}" ":$" OT LESS THAN 2 PLEASE.":T1700:T$" ":$>x $|$ؚ|P ||!x $lp> >h>>00, OK,00,00 OR,00,00 |=|>V|ux1F`>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:uI 0>Z0!wp|T0ؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-27"CALCULATE FACTORIALS UP TO 250 DIGITS."( 835:50 DIGITS."'835:' 850G' " O RUN '-' EFFECTIVELY, THEv' "USER SHOULD HAVE A BASIC UNDERSTANDING"' "OF EXPONENTS AND FACTORIALS. HE PROGRAM"' "IS INTENDED FOR USE 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$)IAL FUNCTIONS WITH A"'" PRECISION OF UP TO 250 DIGITS."'835:' 850G' " O RUN '-' EFFECTIVELY, THEv' "USER SHOULD HAVE A BASIC UNDERSTANDING"' "OF EXPONENTS AND FACTORIALS. HE PROGRAM"' "IS INTENDED FOR USE :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 ":UH1 %F1UG$"FACTORIAL":850:" FACTORIALS UP TO"M" DIGITS:"2%F1" NUMBER FACTORIAL"l%F1" ":1530%UG$"EXPONENTIAL":850:" BASE:"N;19)"MAXIMUM DIGITS: ";M%" INDEX  OU TYPE IN THE LOCATION OF THE POINT ," BY TYPING IN THE FIRST NUMBER, WHICH"<,"" IS 'X' THEN THE SECOND NUMBER IS 'Y'. "R,,835:"":UT,UU%\,62260g,@I15,J2370:2370:2410:B19:2850:2560:," DO YOU WANT MORE PRACT WRONG "6# K11500::25606( K11500:72 (UD$,24)" ":27F R20:D11:2060:1980@7Z X20:Y20K7d "ѝ";_7n M$:M$""26707s M$UX$WW1:195:"";:WW0:26707x M$"2"M$"4"M$ Y111Y11125164 X116X116X1(X1)Y111Y111Y1(Y1)24905 XX115:Y11Y1:5 D22:R1:1980X5 (UD$,24)" WHERE IS THE POINT LOCATED X ";5 US$"-0123456789":UL3:35:X2(UR$)5 X216X216"";:25705  8 M$"8"C1$;"";:DD1:2060:"ѝ";8 M$"6"X2X21:X215X2X21:26709 M$"6"C1$;"";:RR1:2060:"ѝ";%9 2670@9 P(I,1)X2P(I,2)Y2T9 D23:R18:19809 "WRONG";:K1900::" ";9 D11Y2:RX220:1980-10"2$ D11:R3:19802. "-15-10-5051015X":*3B X((1)31)1:Y((1)21)1:X1X15:Y111Y:D3j DY:RX5:2060:1980O3~ "":b3 D22:R1:19803 " THIS POINT IS LOCATED AT ("X1","Y1")":: I1N: X1P(I,1):Y1P(I,2): XX115:Y11Y1: 2450: 2630: I: : I1N,;& X1P(I,1):X2P(I1,1):Y1P(I,2):Y2P(I1,2)N;0 X1X2Y1Y2C$"":C7:3230p;: X1X2Y1Y2C$"":C8:3230;D X1X2Y1Y2C$"":C3;N X1X2P57PP12804C1$(P):0HIWW12:J:I,J:I1\169,91,162,0,157,45,128,232,224,31,208,248,961f81p"":17)"POINTS"[1"":12)"BY JO ANN COMITO"1" COPYRIGHT, SUNY STONY BROOK, 1978"1I1301R((1)999UM)1980:C$:K< C2DD1:RR1:1980:C$:K< C3RR1:1980:C$:K< C4RR1:1980:C$:K= C5DD1:RR1:1980:C$:K?= C6DD1:RR1:1980:C$:K[= C7DD1:1980:C$:Kw= C8DD1:1980:C$:K= I:= **DATA PICTURE FTER THE LAST POINT PET WILL.:"'CONNECT THE DOTS.' IF YOU HAVE"/D"LOCATED THE DOTS CORRECTLY YOU SHOULD7/N"SEE A PICTURE.M/X835:"":UT,UU%W/b2950h/lN10001960r/v3090/D22:R1:1980/"TRY ANOTHER PICTURE? 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. : # +++ INPICE? ";:US$"YN":UL1:35:A$UR$,A$"Y"1590,"":UT,UL%:850+-"HE 64 WILL GIVE YOU THE LOCATION OF A"V-"POINT. OU MUST MOVE THE DOT UNTIL"|-"IT IS AT THE CORRECT LOCATION."-" '8' TO MOVE DOT P 8"-" '4' TO MOVE"8"M$"6"M$(13)26707 M$(13)27907 M$"2"Y2Y21:Y210Y2Y21:2670!8 M$"2"C1$;"";:DD1:2060:"ѝ";K8 M$"4"X2X21:X215X2X21:2670u8 M$"4"C1$;"";:RR1:2060:"ѝ";8 M$"8"Y2Y21:Y210Y2Y21:2670(UD$,24)" WHERE IS THE POINT LOCATED Y ";6 US$"-0123456789":UL3:35:Y2(UR$)6 Y211Y2112575b6 X2X1Y2Y1(UD$,24)" RIGHT "6 X2X1Y2Y1 PS,P:26006 (UD$,24)" 9 C1$;9 26309" K1B96 DY:RX59@ K2(K2)1980:C1$:29209J C$""9T 1980:^ C$:h J1100:J:r K":| :: N=#PTS IN PICTUREA: NO: N1000Y: 2260u: I1N:P(I,1),P(I,2):: P(N1,1)P(1,1):P(N1,2)P(1,2)3 D22:R1:19803 (UD$,24)" CHOOSE A LOCATION X ";$4 US$"-0123456789":UL3:35:X1(UR$)B4 X116X116"";:2510y4 " CHOOSE A LOCATION Y ";4 US$"-0123456789":UL3:35:Y1(UR$)4Y1Y2C$"":C1;X X1X2Y1Y2C$"":C2;b X1X2Y1Y2C$"":C3;l X1X2Y1Y2C$"":C4 (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U ++ EFT "-" '6' TO MOVE IGHT 4 6"." '2' TO MOVE OWN "*." 2"S.:"FTER THE DOT IS AT THE CORRECT"w."LOCATION HIT THE RETURN KEY.".&:"HE 64 WILL GIVE YOU SEVERAL POINTS TO.0"PLOT. I250828>T1$"":T2$"":T3$"":T4$"":I0@300$C ** SPACE BAR PRESS **_HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"vLUI$:UI$" "844|NR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UP$UG$,18)\ 'X')d"THEN THE SECOND NUMBER WHICH IS 'Y'.*n"HE 64 WILL SHOW YOU WHERE THE POINT ISD*x"LOCATED. AKE SURE THAT THE FIRSTr*"NUMBER IS BETWEEN -16 & 16. AKE SURE*"THE SECOND NUMBER IS BETWEEN -11 & 11*835:"":UT,UU%* E P A G E **""";:UT,UU%:(50003)053280,14:53281,6.$I138:"";:F&I122:"";:^(I137:"";:v*I122:"";:," ."  0" YOU ALREADY KNOW HOW TO LOCATE (" POINTS IN THE COORDINATE PLANE, YOU"%(" CAN SKIP AHEAD."g(" O YOU WANT TO SKIP AHEAD? ";:US$"YN":UL1:35:A$UR$x("":UT,UU%(A$"Y"1540(2260(I15(2370:2410:2450:B20:285LIKE. EMEMBERING THAT " THE ROUTINE IS 12 CHARACTERS IN LENGTH"K" LSO THAT THE AMOUNT LISTED IS THEu" START OF THE ROUTINE NOT THE END.~835UZ1UP%:217:UT$" POINTS" ** TO USE 8032 LOAD CBM4032 **"B800: TITLE%300: MENU&"THE PGM WILL NOT WORK ON THIS MACHINE!":G&UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **r&"";::(50003)053281,0:53280,0&L**POINTS-BY JOANN COMITO-SUNY @ STONY BROOK&V**WRITTEN 7/30/78&`** IN THE" & COORDINATES ACCORDING TO YOUR/ " PICTURES COORDINATES.t"" HE FIRST VALUE IS THE NUMBER OF":" POINTS IN THE PICTURE.:835:UT$" POINTS"NUZ1UP%:217WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%4 SETUP **$1075,133:1076,144:1077,234:1079,4:1080,133:1081,145F$1091,155:1098,133:1099,144:1100,234:1103,133h$1104,145:1105,234:1082,234$(50003)160955$1093,88:1094,228:1097,85:1102,228:965$(50003)1990$UP1: 835: 850:" ROGRAM AME: OINTS G" RITTEN Y : O NN OMITO"k" PGRADED Y : " HIS PROGRAM WILL RUN ON ANY" 64 " 64 UO198!UD$""("UP$" "v"UT$" ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***|"" ** SET VARIABLES **"W842"900" ** CHECK FOR 8032 **"" --------------------------------------" `UH0870> a(UD$,24);(UP$,7);"HELP - PRESS H "O fUH0:"":n k ** PLEASE WAIT REMARK ** p(UD$,24);" ONE MOMENT PLEASE... " u  ** SET UP VARIABLES **!UX2260*I15*2490:2410:B19:2850:+"5-10-5051015XU+" DO YOU STILL NEED PRACTICE? ";:US$"YN":UL1:35:A$UR$f+A$"Y"1440+UH1:"":UT,UL%:850+ " OW THE 64 WILL SHOW YOU SOME POINTS.+" 2" $4"C O M M O D O R EG6"EDUCATIONALf8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:0:I)2" DO YOU NEED MORE PRACTICE? ";:US$"YN":UL1:35:A$UR$)<A$"N"15400)F"":UT,UL%:UH1:850d)K" OW THE 64 WILL LET YOU PICK SOME POINTS.")P"YPE IN THE LOCATION OF THE POINT BY)Z"TYPING IN THE FIRST NUMBER, WHICH ISEFORE RUNNING THIS PROGRAM ON AN 8032 7" LOAD THE 'CBM 4032' PROGRAM"BUU71Hm ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"1093:  ** T I T L REVISED 8/20/79**&j2120'tD$""7'~R$"":2160f'"":UH1:UG$" NSTRUCTIONS":UT,UL%:850'" HE 64 WILL HELP YOU PRACTICE PLOTTING"'" POINTS IN A PLANE."'" F]UP0:UG$"ROGRAM OD":850(" HERE IS A LITTLE MACHINE LANGUAGEW" PROGRAM USED FOR MAKING THE GRID/BOARD" THIS ROUTINE IS TOTALLY RELOCATABLE.835:850" UST CHANGE VARIABLE '' IN LINE 902" TO ANYTHING YOU 1093,49:1094,230:1097,46:1102,230:965,%2099,141:2100,20:2101,3:2103,8:2104,141:2105,21h%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%" 835:850" ATA LINES MAY BE ADDED AT THE END OFL" THE PROGRAM IN ORDER TO ADD OR CHANGEx" THE PICTURE'S THAT THE CAN DRAW" WHEN THE STUDENT TRIES TO 'CONNECT THE"" DOTS.'" LL THAT IS NEEDED IS TO TYPE"":"": SHIFTED SPACE"(UB40)96700# ** MEMORY CHECK **&# (0)2000937T#"THIS MACHINE DOES NOT HAVE ENOUGH"x#"MEMORY TO RUN THIS PROGRAM !"#UU71##"":(50003)0962# ** BASIC 2.0 OR 4.0 OR C-6 $"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024P!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:OF INTERSECTION OF:"0 1620:N1P:N2Q:N3R:18801 1630:1650:Q$(3)P$:V1A:V2B:V3C:1630:1650:Q$(4)P$V1$ V4A:V5B:V6C:1630:1650:Q$(5)P$:N1A:N2B:N3Cw1. 1950:AN1BN2CN30232018 P$V$:SSING THROUGH THE POINTS":Q$(4)"AND P  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 QUIT"&T" --------------------------------------"QY" PRESS A NUMBER KEY (1-5) ";z^UL1:US$"12345":35: INPUT ROUTINE_(UR$)1300`US$"":UT$" "c(UR$)1000,400,500,600,396h300 ** RE-ENABLE STOP KEY  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 ++40:(UD$,UD%1):@(UD$,24);"  HELP COMING ":lU1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL, ** MENU **-:."":UT,UU%:(50003)053281,9:53280,8/:1"  UI$(US$,US,1) " UI$"":= ** STANDARD INPUT **N (UI$)46_ UI$(32)| (UI$)48(UI$)57170 (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): 128):  UI$"":4 UF1: +++ HELP ROUTINE EXIT +++= 250F 245^ WW1UQUBUB919 WW0 UQUB(U2%256U1%U3%2) UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK(50003)05"UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3)7UQ,UQ%(UQUB):CU1,U1%OU2,U2%[U4,U4%iU3,U3%1q35UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):(UD$,24);"  HELP COMING ": U1%(U1):U2%INSTRUCTIONS IN THE PROGRAM"4" AS YOU NEED THEM, THE WILL GIVE "I" THEM TO YOU.w" UST REMEMBER THAT COORDINATE 'X' IS" GIVEN FIRST THEN THE 'Y', AND ALSO"" THAT THE FLASHING DOT IS THE POINT":" THAT THE WANTS..":835:UT$" POINTS"UZ1UP%:217; ** TEACHER INSTRUCTIONS **k"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC" & ROBBERS SUBT."*@" 2. STUDENT INSTRUCTIONS"TE" 3. TEACHER INSTRUCTIONS"J" 4. MODIFICATION OF PROGRAM"O" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEYOGRAM 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. : # +++ INPAND END **%(50003)1(50003)160(50003)0399OUU71:(50003)053281,6:53280,14["":f875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0UP0:UG$"TUDENT NST":850" HERE ARE + CHECK FOR HELP REQUEST +++> ZUR$UX$195: EXIT TO HELP ROUTINEM _UF1240Z dUF0::s f ++ CHECK DELETE ++ i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) MENU"26" --------------------------------------"Z;" 1. BEGIN POINTS "@" 2. STUDENT INSTRUCTIONS"E" 3. TEACHER INSTRUCTIONS"J" 4. MODIFICATION OF PROGRAM"O" 5. UI$"":$ UF1: +++ HELP ROUTINE EXIT +++- 2506 245U UQUB(U2%256U1%U3%2)q UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 "";3281,1:"";:53281,6:53280,14:220""";QUT$UL$:UT,UV%:UQUB(U2%256U1%U3%3)vWW0UQUB(U2%256U1%U3%3)UQ,UQ%(UQUB):U1,U1%U2,U2%U4,U4%U3,U3%1 WW1 35UD%((U2%256U1%U3%)UB) (U2):U3%(U3):U4%(U4)2UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL8I, ** MENU **O-:~."":UT,UU%:(50003)053281,9:53280,8/:1" MENU"6" --------------------------------------";" 1. BEGIN COPS  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$) 3" FTER '5' CORRECT ANSWERS YOU WILL  ADVANCE TO THE NEXT ROUND.p835:UP2:850:" OTE:O ADVANCE FROM ONE QUESTION" TO THE NEXT PRESS THE BAR."F AT ANY TIME YOU WISH TO RETURN" TO THE PRESS H " DOMAIN. F THIS IS NOT THE CASE"," PLEASE CONTACT:"V" OMMODORE USINESS ACHINES"y" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292" DIFFICULTY? ";:US$L4$:35:HN(UR$):875 $H((HN)):H2H2$HN2HN2($QNHM20404$QNQN1Y$OP1(5(1)):(2OPCH)01240z$OP1260,1270,1280,1290,1300$2110:1960:I13:" "Q$(I)::1980:1990:1220$2140:1960:I1 $(2)"IND THE DISTANCE":Q$(3)"FROM THE POINT ":Q$(4)"TO THE PLANE ",/1530:1620:N1M(1)P:N2M(2)Q:N3M(3)R:1880i/Q$(3)Q$(3)V$:AM(1):BM(2):CM(3):1650:Q$(4)Q$(4)P$|/P$((W),2):/Q$(2)"PASSING THROUGH THE POINTS":Q$(4)"AND P  OUR OPTIONS ARE:""B" 1. IVEN POINT & NORMAL, FIND PLANE"6"L" 2. IVEN 3 POINTS, FIND PLANE"d"V" 3. ISTANCE FROM A POINT TO A PLANE""`" 4. IND PLANE PASSING THROUGH 2 PTS""j" AND PERPENDICULAR TO A GIVEN PLANE""t"  WANT ANOTHER DRILL? ";:1480:A$"Y"1020,4->1620:N1P:N2Q:N3R:1880I-HQ$(2)"PASSING THROUGH THE POINT "V$:1630:N1A:N2B:N3C:1880x-RQ$(3)"WITH "V$" AS NORMAL VECTOR":1650-\Q$(2)"WHICH PASSES THROUGH THE POINTS"-f1620:N1P:2101,3:2103,8:2104,141:2105,21- 2106,3:2115,145:2117,52:2118,234:2121,49:2122,141g 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 MAV$V$((N3),2)")"*+AV2V6V3V5:BV3V4V1V6:CV1V5V2V4:'+UPQN1:UG$"UESTION #":850-+`+" NSWER: ";:US$L4$"+-=XYZ(),":UL17:1310+UR$P$" IGHT!":NC1NC:2010+" RONG! HE CORRECT ANSWER IS ":" ";P$ ** (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH"="MEMORY TO RUN THIS PROGRAM !"HUU71Nh"":(50003)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **1075,133:1076,144:1077,234:1079,4:1080,133:1081,B01780(B1P$P$"+Y":1780)B0P$P$"+"((B),2)"Y":1780")B1P$P$"-Y":17805)P$P$(B)"Y"C)C01830])C1P$P$"+Z":1830)C0P$P$"+"((C),2)"Z":1830)C1P$P$"-Z":1830)P$P$(C)"Z")&(P$7:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0b(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$""UP$" Z01530&(1).2M(1)Y:M(2)X'"(1).2M(1)Z:M(3)X:M(2)Y)',(1).2M(1)Z:M(3)Y:M(2)XK'6(1).2M(1)X:M(3)Y:M(2)Zm'@(1).2M(1)Y:M(3)X:M(2)Zs'J'TPR(HN):QR(HN):RR(HN):'^AR(HN):BR(HN):CR(HN):AABBCC3:" "Q$(I)::1980:1990:1220%2210:1960:I24:" "Q$(I)::1980:1990:1220R% 2250:1960:I15:" "Q$(I)::1980:1990:1220%2310:1960:I25:" "Q$(I)::1980:1990:1220%35%(%L81:LN1:US$"YNH":35:A$UR$:%N1ERPENDICULAR TO THE PLANE/1630:1620:1650:Q$(5)P$:V1A:V2B:V3C:1620=0N1P:N2Q:N3R:1880:Q$(3)V$:1620:V4N1P:V5N2Q:V6N3Rq0N1P:N2Q:N3R:1880:Q$(3)Q$(3)" & "V$:19500AABBCC02260016500 Q$(2)"IND THE POINT  5. IND THE INTERSECTION OF 3 PLANES"/#~" NTER YOUR CHOICE(S): ";:US$"12345H":UL5:35:CH$UR$A#QN0:H5H5p#CH0:I1(CH$):CHCH2(((CH$,I,1))):#" OW MANY QUESTIONS? ";:US$L4$:35:HM(UR$):HM01180#" NTER LEVEL OF N2Q:N3R:1880:Q$(3)V$:V1P:V2Q:V3R.p1620:N1P:N2Q:N3R:1880:Q$(3)Q$(3)", "V$:V4P:V5Q:V6RP.z1620:N1P:N2Q:N3R:1880:Q$(3)Q$(3)", "V$.V1V1P:V2V2Q:V3V3R:V4V4P:V5V5Q:V6V6R:1950.AABBCC02140.1650.QCHINE!": !UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **8!"";::(50003)053281,6:53280,14K!UG$"":UT,UL%j!R(N)N((2N1)(TI))!L4$"0123456789H"!NC0:HM0!Q$(1)"IND THE EQUATION OF THE PLANE"!8UG$"":850:"+835+ ,UG$"UMMARY":UH1:UP0:850:16);"LANES":" PTION(S): "CH$K," UT OF";HM;"QUESTIONS,":" YOU CORRECTLY ANSWERED";NCm, NCNC100HM:W(10NC.5)10," HAT'S ";:WNC"ABOUT ";, ""((W),2)"%",*" O YOU 145 1091,155:1098,133:1099,144:1100,234:1103,133-1104,145:1105,234:1082,234D(50003)160955s1093,88:1094,228:1097,85:1102,228:965(50003)19901093,49:1094,230:1097,46:1102,230:9652099,141:2100,20:,1)"+"P$(P$,2))0D01870):D0P$P$"+"((D),2):1870*DP$P$(D)*NP$P$"=0"::*XN10V$"("(N1)","[*bN10V$"("((N1),2)","u*lN20V$V$(N2)","*vN20V$V$((N2),2)","*N30V$V$(N3)")"*N30 "EUT$" ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***Ke ** SET VARIABLES **n900 ** CHECK FOR 8032 **"":"": SHIFTED SPACE(UB40)96700 ** MEMORY CHECK01630'h(rN1A:N2B:1490:N1CF:N2C:1490:ACFCF(A):1680(|BCFCF(B):1680-(CFCF(C)h(AACF:BBCF:CCCF:DAPBQCR:P$"":A0B0C1y(A0C0B1(B0C0A1(A1P$"X":1730(AP$((A),2)"X"( (N1):N2(N2):N2N1CFN1:N1N2:N2CF%N10CF1: &N20CFN1:5&CFN1N2(N1N2):N1N2:N2CF:1510y&AR(H):BR(H):CR(H):DR(H):XAABBCCDD:Y2AC2BD&Z2AD2BC:WAABBCCDD:M(1)X:M(2)Y:M(3)Z&XXYYZ$""1930/ ON THE LINE. YOU GUESS THE NUMBER.". 835:K25: 1630 . 1360 . A$"Y" 1350A."BYE NOW...":300Q.""].A116." ". A.."";.I1  910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$ $ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1)  P ROUTINE EXIT +++ 250 245; UQUB(U2%256U1%U3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB(UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN PLANES"@" 2. STUDE96h300" ** RE-ENABLE STOP KEY AND END **Q(50003)1(50003)160(50003)0399{UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0UH1:UPHE QUESTION(S) WILL BE GIVEN."6" OUR SCORE AND THE PERCENTAGE WILL"G" FOLLOW."P835^UH1:850n" OTE:"" EMEMBER TO PUT EQUATIONS IN"" THE FORM: AX+BY+CZ+D=0."" O ADVANCE FROM ONE QUESTION"$"EACHER NST":850+" O THE BEST OF OUR KNOWLEDGE,"T" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY  HIS PROGRAM WILL RUN ON ANY$" 64 I" 64 R 835fNUZ1UP%:217lWX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UH1:UP0:UG$"ROGRAM OD":850835UZ1UP%:6$I138:"";:&I122:"";:'(I137:"";:?*I122:"";:d," ."  0" 2" 4"C O PACE BAR PRESS **(HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"?LUI$:UI$" "844ENeR ** PAGE DESIGN ROUTINE **qTUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870"":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)NT INSTRUCTIONS",E" 3. TEACHER INSTRUCTIONS"HO" 4. QUIT"wT" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,400,500,30:UG$"TUDENT NST":8506" OU WILL SELECT THE OPTION ON WHICH"W" YOU WISH TO BE DRILLED."" OU WILL THEN BE ASKED FOR THE NUMBER"" OF QUESTIONS YOU WOULD LIKE TO ANSWER"" AND THE SKILL LEVEL YOU WOULD LIKE." " " TO THE NEXT PRESS THE BAR.">"F AT ANY TIME YOU WISH TO RETURN"c" TO THE PRESS H ."l835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UH1:UP0:UGVE." GINCOURT, NTARIO"0" ANADA 1 24"P" (416) 499-4292"kUH1:UP1: 835: 850:" ROGRAM AME: LANES" RITTEN Y : . . OOPER" PGRADED Y : TEVE UTZ"  217 ** TO USE 8032 LOAD CBM4032 **F"BEFORE RUNNING THIS PROGRAM ON AN 8032 |" LOAD THE 'CBM 4032' PROGRAM"UU71  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281, M M O D O R E6"EDUCATIONAL/8"SOFTWAREJ: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** S a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":=k ** PLEASE WAIT REMARK **sp(UD$,24);" ONE MOMENT PLEASE... "yu ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC16 098,133:1099,144:1100,234:1103,133#1104,145:1105,234:1082,234(#(50003)160955W#1093,88:1094,228:1097,85:1102,228:965l#(50003)1990#1093,49:1094,230:1097,46:1102,230:965#2099,141:2100,20:2101,3:2103,8:2104 HIDE"-"IT ON THE LINE. YOU GUESS THE NUMBER.". 835:K25: 1630 . 1360 . A$"Y" 1350A."BYE NOW...":300Q.""].A116." ". A.."";.I1 "!UT$" Ҡ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***#!=! ** SET VARIABLES **F!900L!:R!:m! ** CHECK FOR 8032 **!"":"": SHIFTED SPACE!(UB40)96700! ** MEMORY CHECK **! (0)2000 OU WON!";+Z1) "YOU WON!"+"Z1+,Z,6"WOULD YOU LIKE TO PLAY AGAIN (Y/N) ?";Q,@US$"YN":UL1:35:AA$UR$: AA$"Y" Z1:UPUP1:1220g,EAA$"H"195:300,JAA$"N" "":300,T1600,^UH1:UG$"":850:"",h"----PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **Kp(UD$,24);" ONE MOMENT PLEASE... "Qun ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL0))Z"WHAT IS YOUR GUESS? ";)d1930)n1760*x (AA$)47 (AA$)58 1430+*}AA$"H"195:1420L*"COME ON NOW!"V*1370c*N(AA$)m*1810~* NR 1480*NR1470*"";*"TOO SMALL. TRY A BEDUCATIONAL 8"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, (" PROGRAMS MAY BE COPIED FOR EDUCATIONAL USE ONLY AND [(" ARE NOT TO BE SOLD. a(:( MODIFIED FOR EXPERIENCE '82 BY RAFFAELO D'ALESSANDRO AND( KEITH D'SOUSA,"UU71 ** TO USE 8032 LOAD CBM4032 **_"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"k1093:  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:UT$" GUESS A NUMBER":UG$"":UP0%j9&t" ݠ SAN MATEO COUNTY &~" OFFICE OF EDUCATION & &" COMPUTER-USING EDUCATORS S,141:2105,21$2106,3:2115,145:2117,52:2118,234:2121,49:2122,141K$2123,20:2124,3:2126,234:2127,141:2128,21:2129,3i$UU48: DISABLE STOP KEYz$800: TITLE$300: MENU$"THE PGM WILL NOT WORK ON THIS MACHINE!":$UZ11 (N4)1.&"";.0 I1.:Z115/D(" ѝ",(K1)21,2);:K1(K0)/NZ2150:Z2/XZ1-/b"";N;"";M/l (A1$)2 " ":1920Y/v" "_//US$"0123456789":UL1:35:AA$UR$/(" ",(K1)21,2);:K1(K0):AA937!"THIS MACHINE DOES NOT HAVE ENOUGH"!""MEMORY TO RUN THIS PROGRAM !","UU712"L""":(50003)0962{" ** BASIC 2.0 OR 4.0 OR C-64 SETUP **"1075,133:1076,144:1077,234:1079,4:1080,133:1081,145"1091,155:1-----------------------"-r"0 1 2 3 4 5 6 7 8 9"-w K25 K0:1360/-|Z1 Z0:13609-1240R-"HELLO THERE!"d-Z11500:Z1-"I WANT TO PLAY A GAME WITH YOU."-"I WILL THINK OF A NUMBER AND%14:UP%1146:UM32768:UO158: 50003,0: (50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048y (50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198 UD$"" UP$" IGGER NUMBER!"*1370*""; +"TOO BIG. TRY A SMALLER NUMBER!"+1370*+""<+Z21750:Z2Q+Z1 2:Z1123k+23Z1)"YOU WON!";+Z1) "YOU WON!"+Z1:Z21580+Z123 1 1+23Z1)"Y0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844#NCR ** PAGE DESIGN ROUTINE **OTUPUP1sW""(UT$UP$,21);(UP$UG$,18)\" --------------------------------------"`UH0870a(UD$,24);(UP$,7);"HELP - SARNIA.(:("":UT,UU%(1630&)K0:"NUMBER LINE"1)Z13;)B176X) Z1UM241 UM277 4b)Z1,Bs) Z2120:Z2)Z1,(B128))BB1)(Z1)2Z)<)F 1760)PR((X)1&I122:"";:(I137:"";:*I122:"";:B," d."  0" 2" 4"C O M M O D O R E6"OFTSWAP #'" q'"333 MAIN STREET, REDWOOD CITY CA 94063 (415)364-5600 EX4401'"  UP%:UP%:UZ0: ** PROGRAM STARTS HERE **%"";::(50003)053281,6:53280,14"%E% GUESS-A-NUMBER APRIL 1981K%o% PRIMARY GRADE STUDENT GUESSES%$ A NUMBER FROM 0 - 9%.%8 8K P.E.T.%B%L%V CHRIS EDWARDS%` 2r J13 Y0 A0 15902|XI3: 1720:I$X$:XP3: 17203 "TOT";(S$,12(I$));I$;(S$,12(X$));X$;""73 Y0 A0 1760Y3Y3Y31:J1:FL1:835:FJ1d3 1560s3A$((X))3 (A$)3 A$(A$,1)"0"(A$,1)3X$(A$, ";:UL4:US$"0123456789H":35:Y3(UR$)0Y33000"":15500UP0?1UPY31:UG$" YEAR":LS11:UH1:850:LS14:(UD$,25)UP$""l1 "BALANCE =$";A100;23)"RATE =";I1;"%z1"I30:P301, "MTH INTEREST PAYMENT BALANCE"T INSTRUCTIONS **."":UT,UL%:(50003)053281,0:53280,0EPU$UG$:PUUP:UP1fUP0:UG$"TUDENT NST":850" ELCOME TO --Ғ! N THIS"" GAME YOU ARE SHOWN A NUMBER LINE AND "" YOU ARE ASKED TO GUESS A NUMB 35:Z$UR$. (Z$,1)"N" 1760. 1510+/"PRINCIPAL AMOUNT ($) ";:UL10:US$"H01234567"F/US$"H0123456789.":35i/A1(UR$):A15E6"":1480|/A(A1100.5)/"NUMBER OF PAYMENTS? ";:UL4:35:YNY TIME YOU WISH TO RETURN")"TO THE PRESS H ."2835FUZ1UP%:217XUG$PU$:UPPU^ ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST":850" O THE BE":1360,ZI(1I1(2100))(16)1-d"SHALL I FIND PAYMENT AMOUNT? (Y/N) ";:UL1:US$"YN":35(-iZ$UR$A-n (Z$,1)"N" 1480-x"LENGTH OF LOAN (IN YEARS) ";:UL4:US$"H0123456789."-}35:Y1(UR$):Y140Y1.06"":1400" ANADA 1 24"#" (416) 499-4292"9UP1: 835: 850:e" ROGRAM AME: UESS UMBER"" RITTEN Y : . DWARDS" PGRADED Y : " HIS PROGRAM WILL RUN ON ANY" ROGRAM CALCULATES"*"AMOUNT OF MONTHLY PAYMENT"+"THEN PAYMENT TABLES ARE PRINTED."D+"NOTE: LINE 1370 WORKS OUT INTEREST"n+"ON 'COMPOUNDED SEMI-ANNUAL' BASIS"+"'I=(1+I1/200)^(1/6)-1'(CANADA STANDARD)"+:+"..CHANGE Tb" HE MODIFCATION AVAILABLE FOR THIS ";d" PROGRAM CONCERNS THE HINTS THAT THE"je" COMPUTER OFFERS AFTER EACH GUESS. T"f" PRESENT THESE HINTS ARE SET AS :"g" 'Ϡ. ٠Ҡ!'"h" 'Ϡ. ٠EN TO THE STUDENTS TYPE :"%" 1465 '******' <>"E" "p" 1475 '******' <>"" NSERT THE HINT YOU DESIRE IN PLACE OF  THE ******";" BEFORE RUNNING THE PROGRAM,"" (A$)2)"."(A$,2)33835:3'" HIS PROGRAM WILL COME4'"IN HANDY FOR HOME BUYERS, AS WELL "04$'"AS STUDENTS.64.'^2T"";M$(J);(S$,12(I$));I$;2^(S$,12(P$));P$;(S$,11(X$));X$2hI3I3I2:P3P3P:YY1:JJ11. " "16I2(IA.5): PAI2 PAI2 2@AAI2P<2JXI2: 1720:I$X$:XP: 1720:P$X$:XA: 1720^2T"";M$(J);(S$,12(I$));I$;2^(S$,12(P$));P$;(S$,11(X$));X$2hI3I3I2:P3P3P:YY1:JJ1: INPUT ROUTINE_(UR$)1300`US$"">c(UR$)1000,400,500,600,396Gh300n ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDEN(UR$)/"AMT. OF EACH PAYMENT ($) ";:UL8:35:0P1(UR$)0P(P1100.5)U0 "MONTH OF FIRST PAYMENT? ";:UL3:US$"":35:Z$UR$d0Z$(Z$,3)0 J1 12: Z$M$(J) 15500 J:"": 15100"YEAR? ER BETWEEN"&" ZERO(0) AND NINE(9). HE COMPUTER WILL"R" GIVE YOU CLUES TO FIND THE NUMBER."j" Ġ!!!"~ 835:UP2:850"OTE:O ADVANCE FROM ONE QUESTION""TO THE NEXT PRESS THE BAR.""F AT A-YY112:RII((I1)Y1)."PRINCIPAL AMOUNT ($) ";:UL10:35:5.A1(UR$):A15E6"":1420H.A(A1100.5)X.P(AR.5)f.XP:1720~. "PAYMENT=";X$."SCHEDULE FOR THIS? (Y/N) ";:UL1:US$"YN":ST OF OUR KNOWLEDGE,"'" THIS PROGRAM IS IN THE PUBLIC"S" DOMAIN. F THIS IS NOT THE CASE"p" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"O SUIT YOUR LOCALE, E.G.,"+ "FOR MONTHLY COMPOUNDING USE:" ,"'I=I1/1200'"B, JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC,P"ENTER ANNUAL INTEREST RATE (%) ";:UL5:US$"H0123456789.",U"";:35:I1(UR$):I125I11" 64 " 64 & 835,I@NUZ1UP%:217RVUG$PU$:UPPUXW~X ** PROGRAM MODIFICATION INST **Y"":UT,UL%:(50003)053281,9:53280,9ZPU$UG$:PUUP]UP0:UG$"ROGRAM OD":850 Ҡ!'";i" : HESE HINTS ARE PERMENANT PARTS OF THE PROGRAM AND EVEN ";j"AFTER MODIFICA- TION THEY WILL BE REACTIVATED WHENEVER THE ";k"PROGRAM IS LOADED."835UP2:850" O CHANGE THE HINTS THAT ARE GIVBUT TAKE CARE THAT THE PROPER HINT IS  IN THE RIGHT LINE."!8355UZ1UP%:217GUG$PU$:UPPUMr ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM 3)053281,2:53280,10UP0:UG$"EACHER NST":850J" O THE BEST OF OUR KNOWLEDGE,"s" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHIN k ** PLEASE WAIT REMARK **"!p(UD$,24);" ONE MOMENT PLEASE... "(!uE! ** SET UP VARIABLES **!UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024!UT59468:UU%12:UL%14:UP%1146:UM32768: 50003,0:UO1 A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@3008C ** SPACE BAR PRESS **kDFL1(UD$,23)" EXIT - PRESS E"tEFJ0H(UD$,24);"PRESS SPACE BAR TO CONTINUE":UO,0IUI$:KFL1UI$"E"FL0 CE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***"# ** SET VARIABLES **#900B# M$(12):S$" ":LS14[# J1 12: M$(J):v# ** CHECK FOR 8032 **#"":"": SHIFTED SPACE#(UB40)96700# ** MEMORY CHECK **# :  ** T I T L E P A G E **,""";:UT,UU%:(50003)053280,14:53281,6B$I138:"";:Z&I122:"";:r(I137:"";:*I122:"";:," ."   1091,155:1098,133:1099,144:1100,234:1103,133%1104,145:1105,234:1082,2341%(50003)160955`%1093,88:1094,228:1097,85:1102,228:965u%(50003)1990%1093,49:1094,230:1097,46:1102,230:965%2099,141:2100,20:2101,3: " I1 = THE INTEREST RATE (%)&" 2 = THE # OF COMPOUNDINGI" PERIODS PER YEARn" 6 = THE # OF PAYMENTS" PER COMPOUNDING PERIOD835UZ1UP%:217 ** TO USE 8032 LOAD CBM :&UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **%'"";::(50003)053281,6:53280,14A'UT$" MORTGAGE":UT,UU%Q' MORTGAGEh' JIM BUTTERFIELD' TORONTO PET USERS GROUP' DONATED TO CUE BY B.GODFREY''$ CALCULAT D":850b"'I=(1+I1/200)^(1/6)-1'(CANADA STANDARD)"Ge" HIS PROGRAM IS SET UP TO PERFORM"th"INTEREST CALCULATIONS BASED ON SEMI-k"ANNUAL COMPOUNDING AND MONTHLY PAYMENTSn"HIS IS THE STANDARD METHOD FOR ."q83  SOFTSWAP &)j" t)t"333 MAIN STREET, REDWOOD CITY CA 94063 (415)364-5600 EX4401)~" ES" " 3370 HARMACY VE.-" GINCOURT, NTARIO"O" ANADA 1 24"o" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: ORTGAGE" RITTEN Y : IM UTTERFIELD" 58"(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048P"(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198t"UD$"""UP$" ""UT$" ": PLA :FJ1:LUI$" "841NFL0: R ** PAGE DESIGN ROUTINE ** TUPUP1J W""(UT$UP$,21);(UP$UG$(UP),18)y \" --------------------------------------" `UH0870 a(UD$,24);(UP$,7);"HELP - PRESS H " fUH0:"":  (0)2000937$"THIS MACHINE DOES NOT HAVE ENOUGH"*$"MEMORY TO RUN THIS PROGRAM !"5$UU71;$U$"":(50003)0962$ ** BASIC 2.0 OR 4.0 OR C-64 SETUP **$1075,133:1076,144:1077,234:1079,4:1080,133:1081,145$ 0" 2" 84"C O M M O D O R E[6"EDUCATIONALz8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0< 2103,8:2104,141:2105,21&2106,3:2115,145:2117,52:2118,234:2121,49:2122,141T&2123,20:2124,3:2126,234:2127,141:2128,21:2129,3r&UU48: DISABLE STOP KEY&800: TITLE&300: MENU&"THE PGM WILL NOT WORK ON THIS MACHINE!" 4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 K" LOAD THE 'CBM 4032' PROGRAM"VUU71\ ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"1093 ES MORTGAGE PAYMENTS'.'8 PET 8K'B<(L" ݠ SAN MATEO COUNTY (V" OFFICE OF EDUCATION & (`" COMPUTER-USING EDUCATORS 5:850t" F YOUR APPLICATION REQUIRES A "<w"VARIATION OF THE FORMULA USED, YOU "ez"MAY MAKE THE REQUIRED CHANGES IN}"LINE 1370. URRENTLY THAT LINE SHOULD"READ : 1370 I=(1+I1/(2*100))^(1/6)-1."HERE:"*" PROGRAMS MAY BE COPIED FOR EDUCATIONAL USE ONLY AND ^*" ARE NOT TO BE SOLD. }*UP0:UG$"DATA ENTRY":850*1360* "*** MORTGAGE ***"*"IF DESIRED, THE P PGRADED Y : OHN OSSLING'" HIS PROGRAM WILL RUN ON ANYF" 64 k" 64 tD835NUZ1UP%:217WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM O  910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UR$"":UIB(NG):NG(N$)8| (1).5NGNG1:N$"("(NG)")":8 6 27007 ""/7 " NUMBER GENERATOR"P7 ""q7 +++++++PARAMETERS++++++++++7 L1 - LOW BOUND7 H1 - HI ** "":UT,UL%:(50003)053281,0:53280,0AUP0:UG$"NSTRUCTIONS":850l" HIS PROGRAM MAY BE USED TO"CALCULATE VARIOUS INFORMATION ABOUT"MORTGAGE AMORTIZATION, PAYMENT, ETC.":10000:835:850:" HE USE 1)):SS$""6 (IN$)1SS$(20)IN$"":27006 IN$IN$SS$6 27007 ""/7 " NUMBER GENERATOR"P7 ""q7 +++++++PARAMETERS++++++++++7 L1 - LOW BOUND7 H1 - HI TRUCTIONS"&E" 3. TEACHER INSTRUCTIONS"SJ" 4. MODIFICATION OF PROGRAM"oO" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-5) ";^UL1:US$"12345":35: INPUT ROUTI TINE"4 ""4 83552 "":1);" "5< >5F ""`5P "INPUT SUBROUTINE "5Z ""5d +++++++PARAMETERS++++++++++ 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)  ""2B ""MENU" SUBROUTINE "3L ""%3V ++++++++PARAMETERS+++++++F3` OB1 - OBJECTIVE NUMBERg3j AN$ - SELECTION INPUT z3t DE$"#":22403~ "":8);"BJECTIVE #";OB13 8);  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 "HEN ENTERING NUMBERS DO NOT INCLUDE ">"DOLLAR ($) OR PERCENT (%) SIGNS."" FTER ENTERING THE DATA, PRESS  THE Β KEY.835:850" F DESIRED, THE COMPUTER WILL THEN""DISPLAY TABLES FOR THE AMORTIZAT $"":UO,0 *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 7UI$(13)(UR$)1UC,1:" ";:85| <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++ T"TO THE . 835:850:" URTHERMORE, IF WHILE ENTERING"g"THE DATA YOU WISH TO RETURN TO THE""MENU, PRESS ."835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(5000 R IS FIRST REQUIRED TO "0"ENTER CERTAIN NECESSARY DATA, WHICH`"SERVES AS THE BASIS OF THE CALCULATIONS"HEN ENTERING THIS DATA, THE USER"WILL BE GUIDED BY THE COMPUTER AS TO"EXACTLY WHAT IS REQUIRED TO BE ENTERED.  BOUND7" RETURNS NG7, DF076 L1(L1)L1L110:H1H110:DFDF18@ F$(L1):L1(F$):L1(L1)2870D8J H1(H1)H1H110:L1L110:DFDF1:2890j8T F$(H1):H1(F$):H1(H1)2900w8^ MGH1L18h NG(((TI)MG)L1)(10DF)8r N$ NE_(UR$)1300`US$""0c(UR$)1000,400,500,600,3969h300` ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS 5n IN - NUMERIC INPUT5x IN$ - STRING INPUT5 PR$;"? ";"";"";:IN$"" 6 35:)6 SS$(13)IN(IN$):" ":F6 (IN$)0SS$(20)2700f6 SS$(13)IN(IN$):" ":x6 SS$;"";"";6 (IN$)1SS$(20)IN$(IN$,((IN$) UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN MORTGAGE"@" 2. INS ""3 ""3 8);"ϠՠȠ:"3 :4);"A) Š4 :4);"B) ϠŠ[4 :4);"(Ҡ 'A' 'B') ";:US$"AB":UL1:35h4 AN$UR$:n4 4 ""4 " BREAK SUBROU 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( ION"OF THE LOAN, BASED ON THE INFORMATION8"THAT YOU HAVE ENTERED.g" HIS PROCESS MAY TAKE QUITE SOME ""TIME TO COMPLETE. F AT ANY TIME"DURING THIS PROCESS YOU WISH TO STOP,"SIMPLY PRESS THE Œ KEY TO EXI $ 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) " HENTHE SIGNS APPEAR BEFORE A NUMBER,"&:" THE FIRST SIGN INDICATES THE OPERATION"O&" TO BE PERFORMED '+' INDICATES ADDITION"~&:" AND '-' INDICATES SUBTRACTION WHILE "&:" THE SECOND SIGN INDICATES WHETHER "&:" THE NUMBERI :2240#$""#.8);" 1 - Š2"$88);""'$B""T$L3);" Π"$V3);""$`:13);"":13);""$j835$t " UMBER CORRECT..CT3R132010.CT5R142010.CT82010/CT4R102010"/CTCT1:1810:/835:DE$"*":2240F/""Y/MR(R1CT)100j/MR752100{/MR502170/ 3)"LEASE SEE YOUR INSTRUCTOR FOR"/:3); ,230:1097,46:1102,230:965""2099,141:2100,20:2101,3:2103,8:2104,141:2105,21^"2106,3:2115,145:2117,52:2118,234:2121,49:2122,141"2123,20:2124,3:2126,234:2127,141:2128,21:2129,3"UU48: DISABLE STOP KEY"800: TITLE" ٠ȠƠŠ:",R10:CT1:L10:H115-2790:ANG:A$N$:2790:BNG:B$N$:S$"+"/-(1).5S$"-"H-&S$"-"A1AB:1850S-0A1AB-:"";CT;". ";A$;" ";S$;" ";B$;" = ";:US$"1234567890-+H":UL3:35-DA2(UR$)-NA1A2 ED SPACE(UB40)96700  ** MEMORY CHECK **  (0)2000937J "THIS MACHINE DOES NOT HAVE ENOUGH"n "MEMORY TO RUN THIS PROGRAM !"y UU71  "":(50003)0962  ** BASIC 2.0 OR 4.0 OR C-64 SETUP **! '-': Š'-' '+'"*^:"() 6 - (8) = 6 - 8 = (-2)"%+h:2);" '-': Š'+' TO '-'"M+r:"() -3 - (5) = (-3) - 5 = (-8)"|+|:2);"ԠΠ'-': Š'+' Ϡ'-'"+835:850+""+": FA NUMBER IS NO :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:UL%23:UP%2139:UM1024:UO19 '-'"(4);"Ҡ '-' Ϡ'+'."(835:850):"() 4 + (+3) = 4 + 3 = 7"7):2);"Ԡ '+': Р'+'"Y):"() 4 + (-3) = 4 - 3 = 1"):2);"ԠΠ'+': Р'-'"):"() 4 - (+3) = 4 - 3 = 1"):2);"ԠΠ'-'  REVIEW THIS MATERIAL"0:3);"BEFORE YOU ATTEMPT THE UNIT"1:3);"TEST. O YOU WISH TO REVIEW NOW?"N1:3);"NSWER 'Y' OR 'N' ";:US$"YN":UL1:35k1A$(UR$,1):A$"Y"11801A$"N"""::900:300122001 " S POSITIVEOR NEGATIVE."&835&(850'2"() 4 + (+3) : Ϡ+4 +3"@'<:"() 4 + (-3) : Ϡ+4 Ġ-3"r'F:"() 4 - (+3) : ͠+4 Ԡ+3"'P"() 4 - (-3) : +4 -3"'Z"ϠŠȠ, "$~ " 'MENU' "% "" %OB2:2360:AN$"B"1750:% ""T% " 1-2 "n% ""%UG$"EVIEW ":UP0:850%2);" NDICATED ADDITION AND SUBTRACTION":""% "ASSISTANCE WITH THIS MATERIAL"/ :3);"BEFORE GOING ON." 0*"":835::900:300.043);"OU HAVE PASSED THE TEST"P0>:3);"FOR THIS OBJECTIVE. "Y0R835i0\:900:3000f:3);"ANSWER 'Y' OR 'N'";:26300p19700z3);"OU SHOULD 300: MENU#"THE PGM WILL NOT WORK ON THIS MACHINE!":=#UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **h#"";::(50003)053281,6:53280,6# ""# " INTRO 1-2 "# ""#UT,UL%:DE$" " "";23);"":R1R11:1900.X(A1)(A2)"";23)" ; ";A1:1900(.b"";23);"; ";A1:1900I.l ""j.v " MARKING SUBRTN ". "". CT = QUESTION CTR. R1 = N 1075,133:1076,144:1077,234:1079,4:1080,133:1081,145 KEY AFTER"h: " TYPING YOUR ANSWER. HIS TELLS": " THE COMPUTER TO ACCEPT WHAT YOU": " HAVE TYPED.": " YPE AT ANY TIME TO RETURN" : " TO 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,400 "";:UT,UU%:(50003)053280,14:53281,6"$I138:"";::&I122:"";:R(I137:"";:j*I122:"";:," ."  0" 2" 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) ER."%835:850 &" ECOMMENDED FOR JUNIOR STUDENTS."L*" OR MORE PROGRAMS IN THIS SERIES, "y," CONTACT HERIDAN OLLAGE, AKVILLE."D835NUZ1UP%:217WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0: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: +++ HEL " PGRADED Y : 2" HIS PROGRAM WILL RUN ON ANYQ" 64 v" 64  835:850" HIS IS A SAMPLE COPY OF ."" HE STUDENT IS GIVEN A LESSON ON" "":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 +++ (50003)053281,2:53280,10%UP0:UG$"EACHER NST":850S" O THE BEST OF OUR KNOWLEDGE,"|" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS "":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRESS **SHUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"jLUI$:UI$" "844pNR ** PAGE DESIGN ROUTINE **S"";TUPUP1W(UT$UP$,21);(UP$UG$(UP),18)\" - THE MENU FOR HELP. OU WILL"6: " BE RETURNED TO THE PLACE IN THE"a: " PROGRAM WHERE YOU LEFT OFF AS": " SOON AS THE OPTION FROM THE MENU": " IS COMPLETE.":835:850" "" OU WILL BE ,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  4"C O M M O D O R E;6"EDUCATIONALZ8"SOFTWAREu: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$ UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN MICROMATH +-"@" 2. G$"ROGRAM OD":850835UZ1UP%:217; ** TO USE 8032 LOAD CBM4032 **q"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71  ** T I T L E P A G E ** " 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( " ADDITION AND SUBRACTION."- " HE STUDENT IS THEN GIVEN A SHORT "]!" DRILL TO TEST HIS/HER KNOWLEDGE OF THE""" LESSON. F THE STUDENT REQUIRES "#" MORE INSTRUCTION, THE WILL ADVISE"$" THE STUDENT TO CONSULT THE TEACH $ 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) ACHINES"" 3370 HARMACY VE.6" GINCOURT, NTARIO"X" ANADA 1 24"x" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: ICROMATH +- " RITTEN Y : HERIDAN OLLEGE -------------------------------------" `UH0870?a(UD$,24);(UP$,7);"HELP - PRESS H "PfUH0:"":ok ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **UX$"H" GIVEN A LESSON ON ADDITION"2" AND SUBRACTION, THEN A SMALL TEST. "c" NSWER QUESTIONS BY ENTERING THE NUMBER"" EITHER POSITIVE (+) OR NEGATIVE (-)."835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%: ":$UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE ***%"";::(50003)053281,6:53280,14A%UP0:UT$" METRIC"% MODIFIED FOR EXPERIENCE '82 BY DAVE ARTHURS,SARNIA%% THIS PROGRAM IS A REVIEW OF% THE METRIC SYSTEM. 1091,155:1098,133:1099,144:1100,234:1103,133#1104,145:1105,234:1082,2346#(50003)160955e#1093,88:1094,228:1097,85:1102,228:965z#(50003)1990#1093,49:1094,230:1097,46:1102,230:965#2099,141:2100,20:2101,3 = M",45-"750M = ",.750,".0258M = ",.0000258."6.3CM = MM",63C."83MM = CM",8.3,"1.15KG = G",1150\.".25M = CM",25f.::l.." ELL, GUESS YOU REALLY DIDN'T KNOW.".Z$" HE CORRECT A UT$" ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***!6! ** SET VARIABLES **K!A$(100),B$(100)T!900Z!:`!:{! ** CHECK FOR 8032 **!"":"": SHIFTED SPACE!(UB40)96700! ** MEMORY CHECK **! .0178M = CM",1.78+"3.15MM = CM",.3156,"123CM = MM",1230,"456MM = CM",45.6,"78.1CM = MM",781l,"887.4M = KM",.8874,"16.2M = CM",1620,".023MM = CM",.0023,"15.5 = M",15500,"3.12M =  H "fUH0:"":k ** PLEASE WAIT REMARK **Ep(UD$,24);" ONE MOMENT PLEASE... "Kuh ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:U ES SIR!":3000:1550)Z$" OU'RE TOO MUCH":3000:1550*XTI*X120TI1560L*"" OUR SCORE IS";C;" ORRECT ";W;"RONG"*," OUR RATING IS" ;(C(CW)10000)100;"%"*6" O YOU WISH TO CONTINUE ? (Y OR N) ";*@Y 8"SOFTWARE: ** COMMODORE LOGO **F;(UD$,24);"PRESS SPACE BAR OR WAIT":I0h<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS .-":UL0: 35:UPY'P UR$"HELP" 1420'ZB$(I)UR$1450(d UR$"N"1640$(nQQ1:Q11780_(sZ$"OT CORRECT...TRY AGAIN":3000:WW1:X1 1200:(x" "(1330("1M=100CM 1M=1000MM 1CM=10MMWTYPE IN RUN IF YOU WISH TO PLAY AGAIN "/l"999",9990 (40(Z$))2)Z$:MM",63C."83MM = CM",8.3,"1.15KG = G",1150\.".25M = CM",25f.::l.." ELL, GUESS YOU REALLY DIDN'T KNOW.".Z$" HE CORRECT A % WRITTEM BY DON WHITEWOOD,&$ OAKWOOD COLLEGIATE,&&. 991 ST. CLAIR AVE.,L&8 TORONTO, ONTARIO, CANADAp&B PLEASE COPY, BUT CREDIT ABOVEv&L&` I1 100&j A$(I),B$(I)&tA$(I)"999"T0I1:1160&~ I& :2103,8:2104,141:2105,21$2106,3:2115,145:2117,52:2118,234:2121,49:2122,141Y$2123,20:2124,3:2126,234:2127,141:2128,21:2129,3w$UU48: DISABLE STOP KEY$800: TITLE$300: MENU$"THE PGM WILL NOT WORK ON THIS MACHINE! NSWER IS "B$(I)".":(40(Z$))2)Z$/Z$" OW WILL ASK YOU AGAIN!":(40(Z$))2)Z$/&ZTI!/0835+/:"";5/D1320u/N" HANKS FOR PLAYING HOPE YOU LEARNED SOMETHING.":/X"OU HAVE EXHAUSTED MY STORED MEMORY!"/b"   (0)2000937 ""THIS MACHINE DOES NOT HAVE ENOUGH"/""MEMORY TO RUN THIS PROGRAM !":"UU71@"Z""":(50003)0962" ** BASIC 2.0 OR 4.0 OR C-64 SETUP **"1075,133:1076,144:1077,234:1079,4:1080,133:1081,145" ",.00312,"65879M = ",65.879-"654M = KM",.654,"9.5 = M",95002-".0189MM = CM",.00189|-"5.2KG = G",5200,".012 = M",12,".147M = ",.000147-".012 = M",12,"9.7 = M",9700,".045 P%1146:UM32768:UO158: 50003,04 (50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048s (50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198 UD$"" UP$" "! UP:US$"YN":UL1: 35:UPY*J UR$"Y" UPUP1: 1640+T UR$"N" 1870+^ 1590%+hCOT01880/+r1280{+|"100M = CM","10000","1.0M = CM",100,".015CM = MM",.15+".0193M = CM","1.93"+"9.9KM = M",9900,"  SPACE BAR TO CONTINUE"LUI$:UI$" "844 N)R ** PAGE DESIGN ROUTINE **5TUPUP1_W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"^BB1870`UH0870a(UD$,24);(UP$,7);"HELP - PRESS ("1=1000M=1000CM^3 1KM=1000M(1340)NN1:CC1:R(4(1))1)R11510*)R215208)R31530F)R41540o)" ORRECT..YOU'RE A GENIUS!":1550)Z$" IGHT ON!":3000:1550)Z$" LL RIGHT!":3000:1550)Z$"  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$  "": UT,UL%&I0:N0:C0:W0:CO0:UP1'I(T0(1))1'  A$(I)"*" 1280$'COCO1;'F$A$(I):A$(I)"*"Z'(UG$"QUESTION #": 850:Q0q'2 UR$"HELP" 1420'<""(40(F$))2)"";F$'A""15)" ";'FYUP:US$"1234567890HELPN  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 " RANDOM PLEASE TYPE IN THE APPROPRIATE"<" FOLLOWED BY A <>."e" F YOU NEED '' AT ANY TIME"" SIMPLY TYPE IN '' AND A LIST WILL "" APPEAR." 835: 850" F YOU DO NOT WANT TO DO A QUESTION" PUT 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 H "835 UZ1UP%:217UG$UU$:UPPU%F ** TEACHER INSTRUCTIONS **v"":UT,UL%:(50003)053281,2:53280,10UT$" ETRIC":UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PRU1%(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" --------------------------------------";"  (416) 499-4292"UP1: 835: 850:6" ROGRAM AME: ETRIC ^" RITTEN Y : ON HITEWOOD" PGRADED Y : " HIS PROGRAM WILL RUN ON ANY" 64 " 128):  UI$"":4 UF1: +++ HELP ROUTINE EXIT +++= 250F 245e UQUB(U2%256U1%U3%2) UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14" " NUMBER TEN. HUS, THIS PROGRAM WOULD"< " AID IN THE TEACHING OF DIVISON AND"[  " MULTIPLICATION BY 10.dD835xNUZ1UP%:217VUG$UU$:UPPUWX ** PROGRAM MODIFICATION INST **Y"":UT,UL%ZUU$UG$:PUUP:UP+ 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$ ** TO USE 8032 LOAD CBM4032 **E"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"Q1093:q  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(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" TYPE IN AN ''AND WILL PROCEED TO "4 " THE NEXT QUESTION."C 835:850r" OTE:O ADVANCE FROM ONE QUESTION"" TO THE NEXT PRESS THE BAR"" F AT ANY TIME YOU WISH TO RETURN"" TO THE PRESSTIONS **UT$" ETRIC"5"":UT,UL%:(50003)053281,0:53280,0LUU$UG$:PUUP:UP1mUP0:UG$"TUDENT NST":850" HIS PROGRAM WILL TEST YOUR"" KNOWLEDGE OF THE METRIC SYSTEM."" FTER EACH IS ASKED AT"OGRAM IS IN THE PUBLIC"(" DOMAIN. F THIS IS NOT THE CASE"E" PLEASE CONTACT:"o" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" 1. BEGIN METRIC "1@" 2. STUDENT INSTRUCTIONS"[E" 3. TEACHER INSTRUCTIONS"wO" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: IN 64  835:850, " FTER EACH QUESTION THE NUMBER OF"^ " CORRECT AND INCORRECT ANSWERS IS SHOWN." " HE PERCENT OF CORRECT ANSWERS IS" " ALSO GIVEN.": 835:850 " HE METRIC SYSTEM IS BASED ON THE :220"";2UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3)GUQ,UQ%(UQUB):SU1,U1%_U2,U2%kU4,U4%yU3,U3%135UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):(UD$,24);"  HELP COMING ": 1]UP0:UG$"ROGRAM OD":850835UZ1UP%:217-UG$UU$:UPPU3X ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71 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$) I137:"";:*I122:"";:(," J."  k0" 2" 4"C O M M O D O R E6"EDUCATIONALUT 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 ++ "B"S(I,J)CCS(I,J)5"HAVE YOU ENTERED THE MATRIX YOU WOULD"6"LIKE TO FIND THE DETERMINANT OF AS "P6"MATRIX 'A'?(Y/N) ";UL1:US$"YN":35:UR$"N"1260u6UG$"DETERMINANT":UP0:UH1:8506"HAVE YOU ENTERED THE MATRIX YOU WOUL ATION. MAKE SURE"3"THAT THE FIRST MATRIX HAS BEEN ENTERED"4"AS 'A' AND THE SECOND AS 'B'.":50000X4"RENAME MATRICES?(Y/N) ";:UL1:US$"YN":35:UR$"Y"20094C1%R2%"CANNOT CONTINUE: THE FIRST ROW OF"4C1%R2% "MATR (I,J):::835:> ""12)"TRANSPOSE"> "TRANSPOSE OF WHAT MATRIX (A,B,C)?";? US$"ABCH":UL1:35:M$UR$"? 2420:EF1M$:2720,? 1630U? "MATRIX "M$" WILL BE TRANSPOSED."? I0R%:J0C%:M$"A"S(I,J)A(I,J)? M$"B"M(I, 5:UR$"N"19421]19251v"THE COMPUTER WILL CALCULATE :"2w"MATRIX A+MATRIX B AND STORE THE RESULT"22x"AS MATRIX C."<2y1883|2C1%C2%R1%R2%"CANNOT CONTINUE: MATRICES MUST HAVE"2C1%C2%R1%R2%"SAME DIMENSIONS.":C%< W$"B"S(I,J)A(I,J)< W$"C"M(I,J)A(I,J)< ::2620< I0R%:J0C%= W$"A"A(I,J)S(I,J)"= W$"C"M(I,J)S(I,J)0= ::2620D= I0R%:J0C%^= W$"A"A(I,J)M(I,J)x=( W$"B"S(I,J)M(I,J)=2 :=< W$"A"R1%R%:1FJ0:1780/835/0I0R%:I2) :2870::KC%KK1:JJ1:1810 0184080"PRESS RETURN TO CONTINUE LISTING"L0B$:B$""1820V0&1720x00"END OF MATRIX":835: 0:S%1:AN$"-"S%1:18700DUG$"ADDITION":UP0N,E)A(N,N1)A(N,N):IN1:8 JI1:S0:B EG:SSA(I,J)M(J,E):L JNJJ1:2370;V M(I,E)(A(I,N1)S)A(I,I)(;` I0II1:23603;j 835:X;t EF0:XZ(M$)64:XZ4XZ02440s;~ "WRONG ENTRY":EF1:; "MATRIX "M$;":":; UG$"RENUMN ";J1;", ROW ";D1;"? ";:UL2:US$"01-23456789":35 .6X(UR$):M$"A"A(D,J)X.@M$"B"S(D,J)X3.JM$"C"M(D,J)X=.T1470W.^M$"A"R%R1%:C%C1%q.hM$"B"R%R2%:C%C2%.rM$"C"R%R3%:C%C3%.|.UG$"DISPLAY":UH1:UP0:850"DIM ERROR":22008\2250:BB%R:2220:K021908fI0R:J0C:A(I,J)S(I,J)::9p2660:ER19z214049"DET=0.SINGULAR MATRIX.":O94)"DETERMINANT="KX9835^99"REARRANGING. FATAL ERROR.":KR19K1:I0BB%9EЩ@ UG$"INVERSE":UP0:850@6"MAY NOT BE GREATER THAN ";(G)@61425 A:BL$" "A:I121:BL$:$A:TAPÙ"THE RESULTS WILL BE STORED AS MATRIX C"ZAZÎ:J0C%:M$"A"S(I,J)A(I,J)? M$"B"M(I,D"6"LIKE TO FIND THE DETERMINANT OF AS " 7"MATRIX 'A'?(Y/N) ";:UL1:US$"YN":35:UR$"N";7RC"THE COMPUTER CANNOT CALCULATE THE"l7RC"DETERMINANT OF A MATRIX THAT DOES"7RC"NOT HAVE THE SAME NUMBER OF ROWS"7IX 'A' MUST HAVE THE SAME NUMBER OF" 5C1%R2%"ENTRIES AS THE FIRST COLUMN OF MATRIX B":2008D5T0:N0:M0: K0R1%:I0C:J0C1%:BA(K,J)S(J,I)[5M(N,M)TB:TTB:w5T0:MM1::M0:NN1:5C3%C2%:R3%R1%:583555M$ J)S(I,J)? M$"C"S(I,J)M(I,J)? :? I0R%:J0C%? M$"A"A(I,J)S(J,I)@ M$"B"S(I,J)M(J,I)@" M$"C"M(I,J)S(J,I)'@, ::B@6 M$"A"I2); A(I,J)d@@ M$"B"I2); S(I,J)@J M$"C"I2); M(I,J)@T 19412I0R1%:J0C1%:M(I,J)A(I,J)S%S(I,J)::2C3%C1%:R3%R1%:28353.3UG$"MULTIPLICATION":UP0:UH1:850:Y3"THE COMPUTER WILL CALCULATE A X B"3"REMEMBER THAT MATRIX MULTIPLICATION IS"3"NOT A COMMUTATIVE OPERC1%C%=F W$"B"R2%R%:C2%C%=P W$"C"R3%R%:C3%C%=Z >d ER0:CCCC1:CCF"SINGULAR MATRIX. DET=0":ER1:)>n R1"DET=0":ER1:^>x I0C:ZA(R1,I):A(R1,I)A(R12,I):A(R12,I)Z:w> R1R11:R1R2R10> I0R:J0C:S(I,J)A:UH1:850:19100NUG$"SUBTRACTION":UP0:UH1:850 1X"THE COMPUTER WILL CALCULATE :":1Y"MATRIX A-MATRIX B AND STORE THE RESULT"P1Z"AS MATRIX C."}1["HAVE YOU STORED THE MATRICES IN THE"1\"PROPER ORDER?(Y/N) ";:UL1:US$"YN":3AMING":UP0:UH1:850; "CHOOSE FROM (A,B,C)-"< "MATRIX TO BE RENAMED? ";:UL1:US$"ABC":35:M$UR$8< "NEW NAME FOR MATRIX ";M$;"? ";:35:W$UR$B< 1630_< (M$)642500,2540,2580< "INCORRECT FIRST MATRIX":2450< I0R%:J0."DISPLAY WHAT MATRIX(A,B,C)? ";.UL1:US$"ABC":35:M$UR$ /1630:UH1:850#/"MATRIX ";M$;""//I0R%=/: J0C%X/M$"A"J5);A(I,J);s/M$"B"J5);S(I,J);/M$"C"J5);M(I,J);/: /: ""//FJXCC9K((1)CC)KA(I,I)::9K0:ZF09IK1:A(K,K)09MA(I,K)A(K,K):A(I,K)0:JK1":A(I,J)A(I,J)MA(K,J)7:V1:AN$"D"V0Q: JR1%VJJ1:2290i: IR1%II1:2270: KR1%1KK1:2260:$ :. EG:NR1%:M(  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  PRRC"AS COLUMNS. ENTER AGAIN.":21957 R1KA(0,0)A(1,1)A(0,1)A(1,0):21908*R0C0KA(0,0):2190=84R1%4"BE IN FOR A LONG WAIT"a8>I0R:J0C:S(I,J)A(I,J)::8HMM0:C10:R10:FCR:F1:I0R:FF(FCI1):8RRC ONE MOMENT PLEASE... "u ** SET UP VARIABLES **\UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768: 50003,0:UO158(50003)0UB1024:U1209:U2210:U3211:U4214:U "DIM ERROR":1290)< T$"K" 1350)A"")FUH1:8500*KJ0C:UL2:"":15000:"":"ENTER : "^*PI0R::"COL. ";J1;",ROW ";I1;": ";*ZM$"A"UL2:US$"-0123456789":35:A(I,J)(UR$)*dM$"B"UL2:US$"-0123456789":35 ACE BAR OR WAIT":I0 <A$:A$" "II1:I2508281>T1$"":T2$"":T3$"":T4$"":I0:@300VC ** SPACE BAR PRESS **H(UD$,24);"PRESS SPACE BAR TO CONTINUE":UO,0LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TU :XZ01230(XZ1260,2020,1950,1670,1440,2450,1850,1850,3500:1080(AN$"Q"7(UG$"ENTER MATRIX":UP0:850:U("CHOOSE FROM (A,B,C)-"("WHICH MATRIX WOULD YOU LIKE TO ENTER?";:UL1:US$"HABC"(35:M$UR$(2420:EF11260( BM 4032 PROGRAM"1093:  ** T I T L E P A G E **J""";:UT,UU%:(50003)053280,14:53281,6`$I138:"";:x&I122:"";:(I137:"";:*I122:"";:," ."DUCTION":UP1:850:"NOTE:"%*""(&.T$"K": "THE MAXIMUM DIMENSION OF ANY MATRICES"W&/"WHICH YOU MAY WORK WITH IS ";(G):835{&8UG$"OPERATIONS":UH1:UP0:850&j"E: ENTER *: MULTIPLY"&o"+: ADD UN ON ANY" 64 -" 64 DD835:UT$" MATRIX"XNUZ1UP%:217^WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD":850835UZ1UP%:2172122,141 $2123,20:2124,3:2126,234:2127,141:2128,21:2129,3)$UU48: DISABLE STOP KEY:$800: TITLEJ$300: MENU{$"THE PGM WILL NOT WORK ON THIS MACHINE!":$UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **$"";::(50003O RUN THIS PROGRAM !"!UU71! """:(50003)0962;" ** BASIC 2.0 OR 4.0 OR C-64 SETUP **y"1075,133:1076,144:1077,234:1079,4:1080,133:1081,145"1091,155:1098,133:1099,144:1100,234:1103,133"1104,145:1105,234:1+US$"ABC":UL1:35+M$UR$+UH1:850:"MATRIX ";M$;"",1630:FJ1: 1710R,"WOULD YOU LIKE TO MAKE A CHANGE?(Y/N)";:UL1:US$"YN":35d,UR$"N"1510n,1511t,,"CHANGE IS IN COLUMN # ";:UL2:US$"0123456789":35:J(URC204:UU2048 (50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198@ UD$""r UP$" " UT$" MATRIX ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** G10:A(G,G :S(I,J)(UR$)*nM$"C"UL2:US$"-0123456789":35:M(I,J)(UR$)+x::M$"A"R1%R:C1%C1+M$"B"R2%R:C2%CI+M$"C"R3%R:C3%CR+835X+x+UG$"CHANGE":UP0:UH1:850+"CHOOSE FROM (A,B,C)-"+"MATRIX TO BE CHANGED? ";PUP1W""(UT$UP$,21);(UP$UG$(UP),18)3\" --------------------------------------"E^FTFT0:870T`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" "ENTER NUMBER OF ROWS: ";:UL2:US$"H0123456789") 35:R(UR$)11) R(G1)"DIMENSION TOO LARGE":14000U)"ENTER NUMBER OF COLUMNS: ";h)35:C(UR$)1)CG1:"DIMENSION TOO LARGE":14000)(RG"DIM ERROR":1290)2CG  0" .2" V4"C O M M O D O R Ey6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SP -: SUBTRACT"'p"M: RENAME D: DETERMINANT"0'q"C: CHANGE Y: DISPLAYF'r"Q: QUIT'"ENTER AN OPERATION CODE: ";:UL1:US$"YEM+-*TDCQ"'35:AN$UR$':XZ0:I19:AN$(LT$,I,1)XZI' ** TO USE 8032 LOAD CBM4032 **3"BEFORE RUNNING THIS PROGRAM ON AN 8032 i" LOAD THE 'CBM 4032' PROGRAM"tUU71z ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD C)053281,6:53280,14$G(((O)588)16):G8 G8% UG$"INTRODUCTION":UP0*% FT1: 850i% ""13)"MATRIX MATH":""12)"COPYRIGHT 1978"%4)"COMMODORE BUSINESS MACHINES,INC.":LT$"ED*YCM+-T"%$I12000:%)UG$"INTRO082,234"(50003)160955#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#2106,3:2115,145:2117,52:2118,234:2121,49:$)1,JC"NO SUCH COLUMN":835:1470-:JC%J1"NON-EXISTENT COL":1500R-"CHANGE IS IN ROW # ";:UL2:US$"0123456789":35:D(UR$)1w-DC%"NO SUCH ROW":835:1470-,"WHAT IS THE NEW VALUE OF THE ELEMENT"--"IN COL),M(G,G),S(G,G)   ** SET VARIABLES **!900 !:!:-! ** CHECK FOR 8032 **K!"":"": SHIFTED SPACEb!(UB40)96700{! ** MEMORY CHECK **! (0)2000937!"THIS MACHINE DOES NOT HAVE ENOUGH"!"MEMORY T  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  910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UR$"":UI $ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1)  P ROUTINE EXIT +++ 250 245; UQUB(U2%256U1%U3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB(UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN MATRIX@" 2. STUDEN6h300! ** 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:UT$OWS). EXT YOU WILL BE ASKED TO ENTER":"THE MATRIX ELEMENT BY ELEMENT."h"DD/UBTRACT: ALCULATES + OR -.""ATRIX AND ATRIX MUST FIRST BE""ENTERED. ATRIX AND ATRIX MUST""HAVE THE SAME DIMENSIONS.":83 DETER-"MINANT OF MATRIX . HE MATRIX MUST9"BE A SQUARE MATRIX."g"ISPLAY: ISPLAYS THE MATRIX OF YOUR""CHOICE.":835:850"OTE: FTER OPERATIONS SUCH AS"ADDITION, SUBTRACTION OR MULTIPLICATION "TH+ 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$ >.""F AT ANY TIME YOU WISH TO RETURN"D"TO THE PRESS H <>."[835:UT$" MATRIX"oUZ1UP%:217u ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UP0:UT$" ":UG$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$"":UO,0 *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 7UI$(13)(UR$)1UC,1:" ";:85| <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++ UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HELU2%256U1%U3%3) UQ,UQ%(UQUB):) U1,U1%5 U2,U2%A U4,U4%O U3,U3%1W 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4)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" ":UG$"TUDENT NST":8504"XPLANATION OF PERATIONS:"W"""NTER: SED FOR ENTERING THE MATRICES."HE FIRST STEP IS TO GIVE THE MATRIX""DIMENSIONS (NO. OF COLUMNS AND NO. OF""R5:850"ULTIPLICATION: ALCULATES X. "J"HE NUMBER OF COLUMNS IN MATRIX MUST"r"EQUAL THE NUMBER OF ROWS IN .""ENAME: AKES IT POSSIBLE TO CHANGE"THE LETTER NAME OF A MATRIX.""ETERMINANT: ALCULATES THE E RESULT WILL BE STORED IN MATRIX ."7"O SEE THE RESULT, ASK TO SEE THE "g"DISPLAY WHEN YOU ARE ASKED TO ENTER AN""OPERATION CODE."835850"OTE:O ADVANCE FROM ONE QUESTION""TO THE NEXT PRESS THE <E." GINCOURT, NTARIO"(" ANADA 1 24"H" (416) 499-4292"^UP1: 835: 850:" ROGRAM AME: ATRIX" RITTEN Y : NKNOWN" PGRADED Y : " HIS PROGRAM WILL R"EACHER NST":850#" O THE BEST OF OUR KNOWLEDGE,"L" THIS PROGRAM IS IN THE PUBLIC"x" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VUT 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 ++A MATHEMATICSMF2APOINTS.C37MATRIX.C3:METER READING.C32METRIC(ECCO).C3)METRIC.C3) MICROMATH +-.C32MIXED NUMBERS.C3$MONOMIAL MULT.C3)chine\SoQ" onQlV| 6|"Ev|`v3vwdmaud.drvv6 |cLFx |]|F/`"8|/``,,{`,   !"#$%&'()*+,-./01234567 MORTAGE.C3-NUMBER GUESS.C3)PERCENT.C3# PIZZA.C3-PLANES.C3*POLICE SUBT.C3("POWER-FACT.C3"" POWER-FACT.C3" W|tu_||_|||x,|U|T|xp,@\||G]|@ڐ|-|pˁ|;́| p|ۜ4 4 decided to use transfer mode 4& HSSj,ؚ|@́|;́|ú| p<́| p|*+ ipj decided to use transfer mode 4|` |`||I@|<@|x| E h5|>|Jx  |"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|ux1F`>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:uI 0>Z0!wp|T0ؚ|p|bHActx $ 4[IY-2FՌ F4 .j Fh ,P$|SsHd,X,ZZ$4C:\WINDOWS\WinSxs\[IY-2FՌF .j FT d d,nnMicrosoft.Windows.SystemCompatible,processorArchitecture="x86",publicKeyToken="6595b64144ccf1df",type="win32",version="5.1.2600.2000"System Default ContextMicrosoft.Windows.GdiPlusd4,A Microsoft.Windows.GdiPlus,processorArchitecture="x86",publicKeyToken  910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** ---GENERAL INPUT ROUTINE----: ** TO OUR BEST KNOWLEDGE THIS  P NPUT SECTION-----" (: UR$"":UI$""6 *: UL0UL80I -" ";:UC,0` 2: UI$:UI$""50 7: UI$(13)(UR$)1UC,1:" ";:85 <: UI$(20)105 >: (UR$)UL 50 A: 120: CHECK FOR VALID CHARACTER F: UR$UR$UI$ K CHARACTERS----- }: (US$)0150, US$US$UX$@ : US1(US$)\ : UI$(US$,US,1)e : u : UI$"": -----STANDARD INPUT----- : (UI$)46 : UI$(32) : (UI$)48 (UI$)57170 : : (UI$ UB)(UQ)::"": UZ1:UV%(UT)': 300LUZ0:US$UJ$:UG$UK$:UPUJ:ULUK(50003)053281,1:"";:53281,6:53280,14:220"";UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3): UQ,UQ%(UQUB):: U1,U1%: U2,U2%KUL: ,-----MENU------:I.: "":UT,UU%:(50003)053281,9:53280,8O/:o1: " MENU"6: " --------------------------------------";: " 1. METER READING@: " 2. STUDENT INSTRUCT""c: (UR$)1000,400,500,396h: 300E-----RE-ENABLE STOP KEY AND END-----w: (50003)1(50003)160(50003)0399: UU71:(50003)053281,6:53280,14: "":: 875:-----STUDENT INSTRUCTIONS-----ST" TYPE YOUR ANSWER AND THEN PRESS=" THE KEY MARKED . F YOUj" DO NOT DO THIS, WON'T RECEIVE THE" ANSWER AND WILL JUST SIT AND WAIT." F YOU MAKE A TYPING MISTAKE, YOU" CAN ERASE IT BY PRESSING E SCALES AND 2 OR 3#" RANGES FOR EACH SCALE. HE SCALESN" USUALLY GO FROM 0 TO 1, 2.5 OR 5.z" HE RANGES OF THE READINGS WILL BE" THE MAX SCALE VALUE OR THE MAX VALUE" MULTIPLIED BY 10 OR 100 OR 1000." HUS AUPUP1: 2480" OTICE THE THREE SCALES EACH OFC" WHICH STARTS AT ZERO ON THE LEFT.p" INCE THE SCALES ARE DIFFERENT, THE" VALUE OF THE SMALLEST DIVISION WILL" BE DIFFERENT FOR EACH SCALE. 835: 850:UPUP1  TO GET THE METER READING.*" N THE PRACTICE THAT FOLLOWS, AT" VOLTMETER WILL BE DRAWN, AND YOU" WILL BE ASKED TO GIVE THE READING." O NOT GIVE UNITS WITH YOUR ANSWER," ONLY GIVE THE NUMERICAL VALUE OF THROGRAM IS FREE FOR0  DUPLICATION IN CANADA.N  IF YOU HAVE CONTRARYk  INFORMATION, PLEASE  CONTACT COMMODORE CANADA AND  EVERY EFFORT WILL BE MADE TO  WITHDRAW COPIES OF THIS  PROGRAM. : #-----I: UI$; P: 504 U-----CHECK FOR HELP REQUEST-----_ Z: UR$UX$195: EXIT TO HELP ROUTINEq _: UF1240 d: UF0:: f-----CHECK DELETE----- i: (UR$)150 n: UR$(UR$,(UR$)1) s: " ";:50 x-----CHECK FOR VALID )65 (UI$)90180 : < : (UI$)193 (UI$)218UI$"":j : (UT)12(UT)21UI$((UI$)128):s : : UI$"": : UF1:-----HELP ROUTINE EXIT----- : 250 : 245 : UQUB(U2%256U1%U3%2): UQ%(UQ: U4,U4%: U3,U3%1: 35R: UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):: (UD$,24);"  HELP COMING ":: U1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$:UJUL: UJ$US$:UK$UG$:UJUP:UIONS" E: " 3. TEACHER INSTRUCTIONS"?O: " 4. QUIT"qT: " --------------------------------------"Y: " PRESS A NUMBER KEY (1-4) ";^: UL1:US$"1234":35:---INPUT ROUTINE---_(UR$)1300`: US$: "":UT,UL%:(50003)053281,0:53280,08UP0:UG$"TUDENT NST":850d" LEASE FOLLOW INSTRUCTIONS." F SAY TO PRESS SOME LETTER, THEN" THAT IS ALL YOU NEED TO DO. F YOU" ARE ANSWERING A QUESTION, YOU MUTHE" KEY. (ONCE FOR EACH$" LETTER)"D 835:UPUP1: 850:UPUP1r" HE PURPOSE OF THIS PROGRAM IS TO" GIVE YOU PRACTICE READING ELECTRICAL" METERS. OST ELECTRICAL METERS HAVE" THREE OR MOR METER WITH THE 3 SCALES GIVEN+" ABOVE COULD MEASURE VALUES IN THEU" RANGE 0 TO 1 OR UP TO 0 TO 5000," DEPENDING ON THE SCALE MULTIPLIER." WILL NOW SHOW YOU A TYPICAL METER" FACE WITH ITS 3 SCALES. 835: 850: " HE NEXT THING IS TO READ THE METER.#" HE STEPS ARE:Q" 1. ETERMINE THE SCALE BEING USEDz" 2. ETERMINE THE SIZE OF THE" SMALLEST DIVISION FOR THAT " SCALE"" 3. DD THE DIVISIONS E" READING." HE DRILL WILL END WITH 10 RIGHT*" ANSWERS."4 835K: UZ1UP%:217T: x-----TEACHER INSTRUCTIONS-----: "":UT,UL%:(50003)053281,2:53280,10: UP0:UG$"EACHER NST.":850:  " GINCOURT, NTARIO": " ANADA 1 24">: " (416) 499-4292"TUP1: 835: 850:~" ROGRAM AME: ETER EADING" RITTEN Y : .. RAY" PGRADED Y : . CHMIDT"  THE " +" COMPUTER ENCOURAGING THE STUDENT. "30" HERE IS NO FINAL SCORE GIVEN."<D835SN: UZ1UP%:217\W: X-----PROGRAM MODIFICATION INST-----Y: "":UT,UL%]: UP0:UG$"ROGRAM OD":850: 835:  ING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"!1093:/!  ** T I T L E P A G E **c!""";:UT,UU%:(50003)053280,14:53281,6y!$I138:"";:!&I122:"";:!(I137:"";:!*I122:"";:!,"**#;(UD$,24);"PRESS SPACE BAR OR WAIT":I0&#<A$:A$" "II1:I250828M#>: T1$"":T2$"":T3$"":T4$"":I0Y#@: 300x#C-----SPACE BAR PRESS-----#H: (UD$,24);"PRESS SPACE BAR TO CONTINUE"#L: UI$:UI$" "8---%p: (UD$,24);" ONE MOMENT PLEASE... " %u: +%-----SET UP VARIABLES-----y%: UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024%: UT59468:UU%12:UL%14:UP%1146:UM32768:50003,0%(50003)0U&: &-----SET VARIABLES-----&: 900' C$(25),FL(15) ':*'-----CHECK FOR 8032-----K': "":"": SHIFTED SPACEe': (UB40)96700'-----MEMORY CHECK-----': (0)2000937': "THIS MACHINE DOES NOT HAVE34:1103,133(1104,145:1105,234:1082,234): (50003)1609558): 1093,88:1094,228:1097,85:1102,228:965P): (50003)1990): 1093,49:1094,230:1097,46:1102,230:965)2099,141:2100,20:2101,3:2103,8:2104,141:2105,21UP%:UP%:UZ0:-----PROGRAM STARTS HERE-----+"";:(50003)053281,6:53280,14#+"":UT,UL%G+ READING ELECTRICAL METERS BY+ R.W.DRAY R.R.#2 PETERBOROUGH ONT. K9J 6X3 1981+""++LCD$""+VCLYE! "," EVER A NEGATIVE RESPONSE! "," OOD." -" OUV'E GOT THAT ONE."=-" OU MUST BE VERY TALENTED. "," IGHT."l-" ELL ONE."," ON'T YOU EVER MISS."-C15:UP0:UG$"UESTION #":"":UT,UL%-2470:2620:2790-" O THE BEST OF OUR KNOWLEDGE,"-: " THIS PROGRAM IS IN THE PUBLIC"\: " DOMAIN. F THIS IS NOT THE CASE"|: " PLEASE CONTACT:": " OMMODORE USINESS ACHINES": " 3370 HARMACY VE.: HIS PROGRAM WILL RUN ON ANY" 64 Ҡ<" 64 OUP3:835:850" HIS PROGRAM IS TO ASSIST STUDENTS!" IN METER READING. HE QUESTIONS "&" ARE GIVEN AS A GROUP WITH UZ1UP%:217:  -----TO USE 8032 LOAD CBM4032-----F "BEFORE RUNNING THIS PROGRAM ON AN 8032 | " LOAD THE 'CBM 4032' PROGRAM" : UU71 :  ** TO USE 8032 LOAD CBM4032 **!"BEFORE RUNN "."  )"0" G"2" o"4"C O M M O D O R E"6"EDUCATIONAL"8"SOFTWARE": ** COMMODORE LOGO 44#N: #R-----PAGE DESIGN ROUTINE-----$T: UPUP1/$W: ""(UT$UP$,21);(UG$UP$,14);UPa$\: " --------------------------------------"$a: (UD$,24);(UP$,6);"HELP - PRESS H "$f: "":$k-----PLEASE WAIT REMARK--B1024:U1209:U2210:U3211:U4214:UC204:UU2048-&(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024T&: UD$""&: UP$" "&: UT$" ETER EADING": PLACE PROGRAM TITLE HERE ENOUGH"': "MEMORY TO RUN THIS PROGRAM !"': UU71(: $(: "":(50003)0962V(-----BASIC 2.0 OR 4.0 OR C-64 SETUP-----(1075,133:1076,144:1077,234:1079,4:1080,133:1081,145(1091,155:1098,133:1099,144:1100,2)2106,3:2115,145:2117,52:2118,234:2121,49:2122,1412*2123,20:2124,3:2126,234:2127,141:2128,21:2129,3S*: UU48: DISABLE STOP KEYg*: 800: TITLEz*: 300: MENU*: "THE PGM WILL NOT WORK ON THIS MACHINE!":*: UZ1 $" "+`I14:C$(I):,j" ORRECT."," ERY OOD."K,t" KAY."," AVE YOU DONE THIS BEFORE."x,~" 'D BE SHOCKED IF YOU WERE WRONG. "," ELL ONE."," IGHT."," OU'VE GOT A GOOD E  D0.0:2930:TR0- "";(CD$,15);. " HAT IS THE READING ON THE ";SC$.$ " SCALE? ";N.) US$"1234567890.":UL5:35:AN(UR$): P0 P1k.. (ANCA)(CAP.2)2440.8 TRTR1:TR22410.B " OUR ANSWER IS INCORRECT, TRY AGAIN." 6 8 10 / " 0 .5 1 1.5 2 2.5 0 " 0 1 2 3 4 5 B0 " m0 " 0 " 0 "  TING METER READING1A Z1 2740:Z01F P(24(TI)): P0 26302P PP8(P(P))1:2Z PP 2660,2670,2680,2690,2700,2710,2720,2730K2d NP101:2740[2n NP84:2740k2x NP71:2740{2 NP66:27402 NP93:27402 NP72:27402 NP89:274 P.04:29203 SC$"2.5 VOLT":CAP.1:29203" SC$"5 VOLT":CAP.2:29204, SC$"10 VOLT":CAP.4:2920246 SC$"25 VOLT":CAP1:2920Q4@ SC$"50 VOLT":CAP2:2920q4J SC$"100 VOLT":CAP4:29204T SC$"250 VOLT":CAP10:29204^ SC$"500 VOLT":COMMENT & CHECK FLAG5D J( 4(TI)1)5N FL(J)1:NCNC1:NC1231705X 6b D115:FL(D)0::NC0:56l CLEAR WRONG ANSWER FROM SCREEN`6v "";(CD$,15):D18: (CL$,39)::6 " PRESS 'C' TO CONTINUE."6 G$:G$(67)32106 6IT HAS BEEN FUN WORKING WITH YOU. \GOODBYE UNTIL NEXT TIME. "7 C$(20)F1$F2$F3$7 J208\ 8f 8p K148 K+8 D0:2930:98 D0:2930d8 CL$="":PRINT"":PRINTCL$:PRINT""n8 34108 R.W.DRAY R.R.#2 PETERBOROUGH ONT. K9J 6XINPUT ROUTINE _(UR$)1300`US$""5c(UR$)1000,400,500,396>h300e ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTR "$" ETRIC ONVERSIONS "R" " "" """:" OU WILL RECEIVE A MINIMUM" " INPUT YOUR DATA.""" O ADVANCE FROM ONE QUESTION"K" TO THE NEXT PRESS THE BAR."{" F AT ANY TIME YOU WISH TO RETURN"" TO THE PRESS H (OR ) . HIS" "" ONLY WORKS IF NO OTHER DATA IS TYPED"" IN. F DATA IS PRESENT YOU MUST FIRST">" DELETE IT AND THEN TYPE H (OR ) "G835[UZ1UP%:217a ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UT$" ETRIC ()":UP0:UG$"EACHER NST.L 835.V 3180.` 2320.j CA(100CA)100/t " O, THE CORRECT READING IS";CA/~ 835:2300E/ 3130:2950: 835:CC1:C253250O/ 2300Y/ 2300k/ UPUP1: 850/ " / " 0 2 4  0 " 1 " D1 " o1 " 1( " 12 1< SELEC02 NP103:27402 DRAWING METER NEEDLE2 I142 UM286P(I40),NP3 I3 03 SELECTING SCALE AND CORRECT ANSWERQ3 SC(9(TI)1):SCSD 2800[3 SDSC3 SC 2830,2840,2850,2860,2870,2880,2890,2900,2910,3 SC$"1 VOLT":CACAP20:29204h 4r TIME DELAY4| D11D1000::4 PRINT COMMENT FOR CORRECT5 "";(CD$,20);&5 I1(C$(J))<5 (C$(J),I,1);:B5 M5 K14T5 Kf5 D000:2930:t5 D0:29305& "";(CD$,20);CL$;50 30205: SELECT  CLEAR, DRAW METER, POSITION CURSOR6 "";:2470:"";(CD$,14);:7 "":NA$""3280%7 F1$"WELL YOU SEEM TO BE ABLE \"/7 3300\7 M$"WELL ":M1$", YOU SEEM TO BE ABLE \"o7 F1$M$NA$M1$7 F2$"TO READ METERS QUITE WELL. \"7 F3$" 3 1981DRAW METER, POSITION CURSOR6 "";:2470:"";(CD$,14);:7 "":NA$""3280%7 F1$"WELL YOU SEEM TO BE ABLE \"/7 3300\7 M$"WELL ":M1$", YOU SEEM TO BE ABLE \"o7 F1$M$NA$M1$7 F2$"TO READ METERS QUITE WELL. \"7 F3$"1. BEGIN METRIC (ECCO)"3@" 2. STUDENT INSTRUCTIONS"]E" 3. TEACHER INSTRUCTIONS"yO" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: UCTIONS **UT$" ETRIC ()="":UT,UL%:(50003)053281,0:53280,0^UP0:UG$"TUDENT NST":850h::" "" ""  OF 12 QUESTIONS. F YOU MAKE"5" A MISTAKE, THE COMPUTER WILL GIVE"]" YOU ANOTHER SIMILAR QUESTION."" OLLOW THROUGH TO END YOUR SCORE."835UP1:850" OTE:FTER EACH RESPONSE YOU GIVE," HIT TO  ":850" O THE BEST OF OUR KNOWLEDGE,"?" THIS PROGRAM IS IN THE PUBLIC"k" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE."  HIS PROGRAM WILL RUN ON ANY" 64 ?" 64 M 835:850x " RADE EVEL: UNIOR-NTERMEDIATE" " UBJECT REA: ATH"" OPIC: ETRIC ONVERSIONS"" TUDENT IS DRILLED IN A SIMILIAR QUESTION IS PRESENTED AND"/ " STUDENT IS TOLD HOW TO MOVE THE DECIMAL"J"" POINT TO CONVERT."z$" HE DRILL CONTINUES UNTIL 12 QUESTIONS"&" ARE ANSWERED CORRECTLY AND A FINAL"(" SCORE IS GIVEN AT THE END OF THE DRILL"D 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)053C 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@ `UH0870!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:U319UP$" "G#UT$" à()": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***M#g# ** SET VARIABLES **p#900#A(1),A$(1),A(2),A$(2),A(3),A$(3),A(4),A$(4)#1000,K,1,"",0.01,C,0.001,M#RPACE$(UB40)96700$ ** MEMORY CHECK **% (0)2000937<%"THIS MACHINE DOES NOT HAVE ENOUGH"`%"MEMORY TO RUN THIS PROGRAM !"k%UU71q%%"":(50003)0962% ** BASIC 2.0 OR 4.0 OR C-64 SETUP **%1075:1097,46:1102,230:965'2099,141:2100,20:2101,3:2103,8:2104,141:2105,21P'2106,3:2115,145:2117,52:2118,234:2121,49:2122,141'2123,20:2124,3:2126,234:2127,141:2128,21:2129,3'UU48: DISABLE STOP KEY'800: TITLE'3KELOCK H.S.( SEPT.'79 BY R.M.SMYTHE) COPYING IS WELCOMED, BUT PLEASE() CREDIT THE ABOVE..)4)=)FG0K)xNR0:NW0V)K14a)I14p)CT4CT1})N(TI))IK1690)N(1))2020)N$(N))N$(N$,5) GINCOURT, NTARIO"" ANADA 1 24";" (416) 499-4292"QUP1: 835: 850:{" ROGRAM AME: ETRIC ()" RITTEN T : . . LAKELOCK .. "" PGRADED Y : "  METRIC CONVER-"" SIONS (WITHIN METRIC). F A WRONG"F" ANSWER IS GIVEN, THE STUDENT MAY REPEAT"v" THE SAME QUESTION. ONVERSION EQUALITY"" IS GIVEN AT THIS TIME (I.E. 1=1000)"" F STUDENT GIVES WRONG ANSWER AGAIN,"" 835NUZ1UP%: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 " 280,14:53281,6$I138:"";:&I122:"";:)(I137:"";:A*I122:"";:f," ."  0" 2" 4"300C ** SPACE BAR PRESS *** HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"A LUI$:UI$" "844G Ng R ** PAGE DESIGN ROUTINE **s TUPUP1 W""(UT$UP$,21);(UP$UG$(UP),18) \" --------------------------------------"8:U4216: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$"""C$(1),RC$(2),RC$(3),RC$(4)$"CORRECT!","RIGHT","GOOD","THAT'S RIGHT!"2$RW$(1),RW$(2),RW$(3),RW$(4)U$"NO","WRONG","INCORRECT","NO"y$X(1),X(2),X(3),X(4):3,0,-2,-3$KK0:NR0:NW0:CT0$ ** CHECK FOR 8032 **$"":"": SHIFTED S,133:1076,144:1077,234:1079,4:1080,133:1081,145.&1091,155:1098,133:1099,144:1100,234:1103,133P&1104,145:1105,234:1082,234g&(50003)160955&1093,88:1094,228:1097,85:1102,228:965&(50003)1990&1093,49:1094,230 00: MENU'"THE PGM WILL NOT WORK ON THIS MACHINE!":/(UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **[("";::(50003)053281,6:53280,14y(UP0:UT$" METRIC (ECCO)"(` METRIC CONVERSIONS(j(t(~ DEVELOPED AT T.A.BLA )CTCT1)E902240)E90)25)""RW$(I))"""+*," TO GO FROM ";A$(K);U$;" TO "A$(I);U$","F*6" MOVE THE DECIMAL ";W*@MOV$"RIGHT"w*J X(K)X(I)0 MOV$"LEFT"*T" POINT ";(X(K)X(I));"TO THE":" ";MOV$*^""*h" TRY (SC.1.5).1+" SCORE: ";SC;" %"+,SC25 " GET HELP FROM YOUR TEACHER."L,SC25SC40" HAT'S POOR. OU NEED MORE PRACTICE.",SC40SC50 " MORE PRACTICE IS RECOMMENDED.",&SC60SC70" THAT'S NOT BAD, BUT YOU COULD D 690-NN(10(1))-NN5U$"G"-NN6U$"M".N((1000N))100 . KKKK1.K1NN100/. I1NN100@.*KK3N0.08F.4V.>N.012020y.CUG$"QUESTION #":UPNRNW:850.H.I""N;A$(K);U$;" = ? ";A$(I);U$.R.f"x TRY THE QUESTION AGAIN:"/UPUP1:835:850::21200 " 1";A$(I);U$;" = ";10(X(I)X(K));A$(K);U$$0 2290100@.*KK3N0.08F.4V.>N.012020y.CUG$"QUESTION #":UPNRNW:850.H.I""N;A$(K);U$;" = ? ";A$(I);U$.R.f" 910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$$ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1) +++ HELP ROUTINE EXIT +++ 250# 2457 UQUB(UB880)S UQ%(UQUB)(UQ)::""f UZ1:UV%(UT)o 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB(U2%US$:UK$UG$:UL$UT$:UJUP:UKUL+, ** MENU **1-:`."":UT,UU%:(50003)053281,9:53280,8f/:1" MENU"6" --------------------------------------";" 1. BEGIN MIXED NUMBERS@" 2. STU,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:  THE INTEGER SUM." 835UZ1UP%:217%F ** TEACHER INSTRUCTIONS **v"":UT,UL%:(50003)053281,2:53280,10UH1:UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE A SIMILAR QUESTION."*r*|NWNW1*KK0*835:1490+I+K)+UG$"FINAL SCORE":UP0:850:/+5+c+" OUT OF A TOTAL OF ";NRNW;" QUESTIONS"+" YOU GOT ";NR;" CORRECT AND ";NW;" INCORRECT."++SCNR(NRNW)100:SCO BETTER.",0SC70SC90 " YOU ARE PRETTY GOOD AT THIS."-:SC90" EXCELLENT!"D-DSC50SC60" THAT'S NOT THE BEST BUT A PASS"J-NP-X[-835:g-CTCT1v-CT4CT1-25)""RC$(CT)-NRNR1-KK0-E90-835:1 ANSWER IS... ";:US$".0123456789":UL10:35:Y$UR$.zY(Y$) /CNA(K)A(I)/Y$(Y)"/C$(C)3/C$Y$1950=/1530P/25)""RW$(I)V/_/E91w/(X(K)X(I))12310/" 1";A$(K);U$;" = ";10(X(K)X(I));A$(I);U$/" PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"<" PLEASE CONTACT:"f" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416) 49"":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: 256U1%U3%3) UQ,UQ%(UQUB):% U1,U1%1 U2,U2%= U4,U4%K U3,U3%1S 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$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 UP0:UG$"TUDENT NST":850:"  OU ARE ASKED FOR THE NUMBER OF"d" ADDENDS YOU WISH TO ADD.(4 IS"" THE MAX.) HEN YOU WILL BE GIVEN"" THE QUESTION.OU ARE TO TYPE IN""  THE DENOMINATOR, NUMERATOR AND":" ϥ " ̤ ̥! !" 12345M!2" THE BOX ON THE LEFT HAS BEEN DIVIDEDT!<"!F" INTO FIVE EQUAL PARTS. THIS IS USUALLY!P" STATED BY THE SYMBOL Ò OR /. THUS ONE!Z"!d" O "(TYPE Q TO QUIT)#"";)#US$"Q234H":355#N1$UR$G#N1$"Q"2000U#N1(UR$)^#875#" "#" "# I1N1#A(I) B(I))):$,1730$61601$@WW1:1440+%A(UD$,24);" HELP - PRESS H "P%J""17)"I N"%T""12)"TYPE DENOMINATOR":Q(ND):1840%^DD21710:%h""12);"TYPE NUMERATOR ":N3N(QD): 9-4292" UH1:UP1: 835: 850:4" ROGRAM AME: IXED UMBERSV" RITTEN Y : NKNOWN{" PGRADED Y : TEVE UTZ" HIS PROGRAM WILL RUN ON ANY" 64 " 64  " LOAD THE 'CBM 4032' PROGRAM"(UU71.N  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I137:"";:*I122:"";:ORE LOGO **#;(UD$,24);"PRESS SPACE BAR OR WAIT":I0E<A$:A$" "II1:I250828i>T1$"":T2$"":T3$"":T4$"":I0r@300C ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "8**p(UD$,24);" ONE MOMENT PLEASE... "u7 ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U!!!!!!!!!!!*** ** SET VARIABLES **900* ** CHECK FOR 8032 **H"":"": SHIFTED SPACE_(UB40)96700x ** MEMORY CHECK ** (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PR(50003)1609551093,88:1094,228:1097,85:1102,228:965)(50003)1990X1093,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,14153280,14LUT$" MIXED NUMBERS":UG$"SET-UP" UP0:UH1:850:""= " MIXED NUMBERSj "  THIS PROGRAM EXERCISES YOUR "p  " ABILITY TO ADD MIXED NUMBERS.":835 UH1:850:""; " ϣF THE SMALL BOXES IN THE RIGHT BIG""n" 17"x" BOX WOULD BE STATED AS OR 1/5.W"" 5b"""l"1800"UG$"QUESTION #""X0:UH1:UPW:850:"HOW MANY ADDENDS DO YOU WANT? ";:"((TI)10):A(I)01470$B(I)((TI)10):B(I)01480:B(I)11480($NA(I):DB(I):1730:$A(I)N:B(I)DZ$3);A(I)(A(I)B(I))B(I)q$(A(I)B(I));" "$" "; B(I)$:$N0:D1$I1N1:DDB(I):$"I1N1:NN(A(I)(D1860%rN3N21720 &|""12);"TYPE INTEGER SUM ":1880&QQ21700i&"THAT'S RIGHT!":"***VERY GOOD***"w&ZZ(3X)&835:&" INTEGER SUM INCORRECT":XX1&"  835NUZ1UP%:217 W3X ** PROGRAM MODIFICATION INST **DY"":UT,UL%i]UH1:UP0:UG$"ROGRAM OD":850r835UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 ," '."  H0" f2" 4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE: ** COMMOD44NR ** PAGE DESIGN ROUTINE **TUPUP1<W""(UT$UP$,21);(UP$UG$(UP),18)k\" --------------------------------------"z`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK 1209:U2210:U3211:U4214:UC204:UU2048B(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198fUD$""UP$" "UT$" ĠӠ": PLACE PROGRAM TITLE HERE !!!!!!OGRAM !"UU71 "":(50003)09628 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **v1075,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 2123,20:2124,3:2126,234:2127,141:2128,21:2129,3&UU48: DISABLE STOP KEY7800: TITLEG300: MENUx"THE PGM WILL NOT WORK ON THIS MACHINE!":UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **"";::(50003)053281,6:  910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$ $ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1)  P ROUTINE EXIT +++ 250 245; UQUB(U2%256U1%U3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB( TRY AGAIN":1900:1660'" DENOMINATOR INCORRECT":XX1@'" TRY AGAIN":1900:1620s'"  NUMERATOR INCORRECT":XX1'" TRY AGAIN":1900:1640''PN21'NP(123 456789NH":35(EN2$UR$:N2$"N"N2(N2$):)N""20)" ":1860J)X""16);:"I ";:US$"012345 6789IH":35d)YQ2$"I"Q2(UR$):~)b""15)" " :1880)l835)n" UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN MONOMIAL MULTIPLICATION" @" 500,396h300' ** RE-ENABLE STOP KEY AND END **V(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0UP)"*835*W0:Z0:UP0:X0*N2(N2$):)N""20)" ":1860J)X""16);:"I ";:US$"012345 6789IH":35d)YQ2$"I"Q2(UR$):~)b""15)" " :1880)l835)n"  IT DOING QUESTIONS AND RETURN TO"(: " THE MENU. "V" O SKIP A QUESTION, ENTER SHIFTED"v" FOR YOUR ANSWER.": 835:850" HIS PROGRAM GIVES PRACTICE IN MULTI-"" PLYING TWO OR THREE MONOMIAL FACTORS"" WITH EXPONENTS. N THE MULTIPLICATION"B" QUESTIONS WHICH FOLLOW,THERE ARE THREE"p" LEVELS OF DIFFICULTY TO CHOOSE FROM."" NTER YOUR COMPLETE ANSWER IN THE SAME"" WAY THAT YOU WOULD WRITE IT ON PAPER.":835UZ1UP%:217"":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)NP)1760'P'DP(DP)1780'1750'NNP:DDP((835:R(0""20);:" D ";:UL3:US$"01 23456789DH":35t(1D2$UR$:D2$"D"D2(D2$):(:""20)" ":1840(D""20);:" N ";:US$"0 " *p" ":*v""8)" ":E*W0b*UG$"END":UP0:UH1:850*"YOU GOT"Z"POINTS OUT OF A POSSIBLE"W3*"THAT'S"(Z(W3)100)"%! 2. STUDENT INSTRUCTIONS"4E" 3. TEACHER INSTRUCTIONS"MO" 4. QUIT"|T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,400,0:UG$"TUDENT NST":8508: " EMEMBER, HIT KEY AFTER"e: " TYPING YOUR ANSWER. HIS TELLS": " THE COMPUTER TO ACCEPT WHAT YOU": " HAVE TYPED.": " YPE SHIFTED AT ANY TIME TO" : " QU ** TEACHER INSTRUCTIONS **?"":UT,UL%:(50003)053281,2:53280,10`UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE" OMIAL ULTIPLICATION"!" RITTEN Y : . . ICHOLSON A" PGRADED Y : l" HIS PROGRAM WILL RUN ON ANY" 64 " 64  835NUZ1UP%:217WX ** PROGR UU71  ** T I T L E P A G E **C""";:UT,UU%:(50003)053280,14:53281,6Y$I138:"";:q&I122:"";:(I137:"";:*I122:"";:," ." IT":I0<A$:A$" "II1:I250828*>T1$"":T2$"":T3$"":T4$"":I03@300OC ** SPACE BAR PRESS **HUO,0:(UD$,24);" PRESS SPACE BAR TO CONTINUE "LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUPUP1 u ** SET UP VARIABLES **EUX$"":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0 ** CHECK FOR 8032 ** "":"": SHIFTED SPACE"(UB40)96700; ** MEMORY CHECK **O (0)2000937}"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !"UU71"":(50003)096228:965(50003)1990 1093,49:1094,230:1097,46:1102,230:965U 2099,141:2100,20:2101,3:2103,8:2104,141:2105,21 2106,3:2115,145:2117,52:2118,234:2121,49:2122,141 2123,20:2124,3:2126,234:2127,141:2128,21:2129,3 !$BL$" "%".B1$""N"8B2$" "}"BB3$" ":1170"L"":5)B1$"VI15:5)B2$:5)B3$:"`5)B2$:5)B1$:"E NEGATIVE EXPONENTS ? ";:2040$Y$"Y"NG2:1320 $NG1$(H01390$ZH1-$n835:NQ0g$xUG$"QUESTION #":NQNQ1:UPNQ1:850:" IMPLIFY:"y$NG2750,2810$LV3F3:1440$F2$2680:2880$:I1F$"["; C$(I);$" PLEASE CONTACT:"*" OMMODORE USINESS ACHINES"M" 3370 HARMACY VE.q" GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: ON%^I%hI1LV%rL(I)01680&|AE(I)SE(L(I))1700&W(I)1:1700#&AE(I)01700.&W(I)15&I`&WCW(1)W(2)W(3)0"IGHT!":1950&" ":" ORRECT ANSWER:=";&CA1TE0 1760&AM MODIFICATION INST ** Y"":UT,UL%*]UP0:UG$"ROGRAM OD":8503835GUZ1UP%:217Mr ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"  0" '2" O4"C O M M O D O R Er6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAW""(UT$UP$,21);(UP$UG$(UP),18)0\" --------------------------------------"?`UH0870qa(UD$,24);(UP$,7);"QUIT - PRESS SHIFTED Q "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "UT53272:UU%21:UL%23:UP%2139:UM1024:UO198)UD$""[UP$" "UT$" .": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** ** SET VARIABLES **900 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **91075,133:1076,144:1077,234:1079,4:1080,133:1081,145o1091,155:1098,133:1099,144:1100,234:1103,1331104,145:1105,234:1082,234(50003)1609551093,88:1094,228:1097,85:1102,2UU48: DISABLE STOP KEY 800: TITLE !300: MENU;!"THE PGM WILL NOT WORK ON THIS MACHINE!":p!UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **!"";::(50003)053281,6:53280,6!UT,UL%!DN$""""j14)""#t15)""#~11)"BY .. ICHOLSON"/#I11500:M#UG$"":UP0:UH1:850:H0~#" HAT LEVEL OF DIFFICULTY DO YOU WANT?"#" (1 EASY, 2 AVERAGE, AND 3 HARD) ";#2030:LV(Y$)#" R J1LV$E(I(J1)3)0 1500%B$(J);E$(I(J1)3); %J%"]";%I :7%D1: Q$"= ":2170M%D1550,1400,1970W%3000`%WC0t%"SE(0)CAWC1%,I1LV%6L(I)0:W(I)0%@J1LV%JB$(I)SB$(J)L(I)J:JLV%TJ CA1TE0 "- ";:1760&(CA);&I1LV'AE(I)01790'B$(I);AE$(I); ')' :<'"OEFFICIENT"M'"=";:I1F`'&"[";C(I);"]";f'0v':" = ";CA:'DI1LV'N"XPONENT OF BASE ";B$(I):"= ";'XJ1F'b"[";E(3 TC0:"";(Z$:Z$""2200(Z$"" D2:Z$:2550)Z$""D3:Z$:UP%:300")Z(Z$)1)Z132410G)Z20Z157 2290{) Z64Z91 P$P$"D":TC1:Z$;:Y$Y$Z$:2200)Z43(Z44Z58Z47)2390)2200)Y$""2200) ":""Z$"";:Y$Y$Z$:2200*j *t TC0:ZE0:ZB1 +~ ZZ0 9:SE$(ZZ)"": $+ ZZ13:SB$(ZZ)"":4+ Y$""2500V+ L$(Y$,1):T(L$):Y$(Y$,2)|+ T65TC0SE$(0)SE$(0)L$:2450+ T65SE$(ZE)SE$(ZE)L$:2450+ SB$(ZB)L$:TC1:ZBZ 90, B(2)T, 2650:TB(1)TB(2)2710, B(3)T - ZZ13:B$(ZZ)(B(ZZ)):- - ZZ1 92- E(ZZ)(10(1))O- E(ZZ)1E$(ZZ)"":2790p- E$(ZZ)""((E(ZZ)),2)""v- |- - ZZ1 9- E(ZZ)(19(1))9- E(ZZ)1E$(ZZ)T(ZZ)0 C$(ZZ)" ":2980. C(ZZ)1T(ZZ)0 C$(ZZ)"- ":2980 / C$(ZZ)(C(ZZ))/ / $/ CA1:TE0;/ ZZ13:AE(ZZ)0:F/ I1FU/ CACAC(I)`/ J1F}/ AE(I)AE(I)E(3(I1)J)/ J/ TETE(AE(I))(AE(I))/ AE(I)1AE$( 910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$$ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1) P ROUTINE EXIT +++ 250 245; UQUB(U2%256U1%U3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB( UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN GUESS A NUMBER" @" 2. STUDENT INSTRUCTIONS"4E" 3. TEACHER INSTRUCTIONS"aJ" 4. MODIFICATION OF PROGRAM"}O" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-5) ";^UL1:US$"12345":35(I1)J);"]";'lJF " + ";'vJ'" = ";AE(I); (AE(I)0"AND ";B$(I);"0 = 1";+(::I4(835>(1400S(835::900:300l(US$"123":UL1:2050~(US$"YN":UL1(35:Y$UR$:(zZ$:Z$""2170(Q$;(Y$"":P$"":(Y$)1"";:2190* Y$(Y$,(Y$)1):R$(P$,1) :P$(P$,(P$)1)* R$"U" " ";:2340+* " ";K*$ ZZ1(Y$):T((Y$,ZZ,1))b*. T 65 TC0:2370u*8 TC1: ZZ(Y$){*B *L 2200*V TC0P$P$"D":Z$;:Y$Y$Z$:2200*` P$P$"UB1:ZEZE1:2450+ ZZ0 9:SE(ZZ) (SE$(ZZ)), SE$(ZZ)""SE(ZZ)1, *, SE$(0)""SE$(0)"+"SE(0)1C, SE$(0)"-"SE(0)1I, ],Z T(26(1))65,d T69T72T73T76T79T88T832650,n ,x 2650:B(1)T, 2650:TB(1)26"":2860- E(ZZ)0 E$(ZZ)""((E(ZZ)),2) "" :2860 ." E$(ZZ)"" (E(ZZ))""., .6 /.@ ZY13:T(ZY)0:D.J ZY1F:ZX1LVg.T T(ZY)T(ZY)(E(3(ZX1)ZY))2o.^ :{.h ZZ13.r C(ZZ)(17(1))8.| C(ZZ)02930. C(ZZ)1I)"":3110/ AE(I)0AE$(I)""((AE(I)),2)"":31100 AE$(I)""(AE(I))""0& I00 '0: " = ";AE(I):.0D IZY1F:ZX1LVg.T T(ZY)T(ZY)(E(3(ZX1)ZY))2o.^ :{.h ZZ13.r C(ZZ)(17(1))8.| C(ZZ)02930. C(ZZ)1"":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 7UI$(13)(UR$)1UC,1:" ";:85| <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++ 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)  910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **:::# +++ INPUT SECTION +++ (UR$ $ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1)  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$:UJUL"UJ$US$:UK$UG$:UJUP:UKUL(9, ** MENU **?-:n."":UT,UU%:(50003)053281,9:53280,8t/:1" MENU"6" --------------------------------------";" 1. PERCENT COMPOSITION"@"`US$""c(UR$)1000,400,500,396!h300H ** RE-ENABLE STOP KEY AND END **w(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(SE ACTUAL FIGURES."E" HE SAMPLE CALCULATION WILL":" SHOW HOW THIS IS DONE."S835:850: " EMEMBER TO HIT AFTER": " TYPING YOUR ANSWER. HIS TELLS": " THE COMPUTER TO ACCEPT WHAT YOU" : " : " SOON AS THE OPTION FROM THE MENU",: " IS COMPLETE."5835IUZ1UP%:217Op ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST.":850" O THE BEST OF OUR KNANADA 1 24"" (416) 499-4292"+UP1: 835: 850:O" ROGRAM AME: ERCENTs" RITTEN Y : .. AMB" PGRADED Y : EREK EE" HIS PROGRAM WILL RUN ON ANY" 64  NG THIS PROGRAM ON AN 8032 4" LOAD THE 'CBM 4032' PROGRAM"?UU71Ee  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I137:"";:*I122:"";:," >."  _0" }2" 4"C O M M O D O R E6"EDUCATIONAL8""":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)UL%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"=E" 3. TEACHER INSTRUCTIONS"YO" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE_: (UR$)130050003)053281,0:53280,0)UP0:UG$"TUDENT NST":850V" HIS PROGRAM WILL CALCULATE"" PERCENT COMPOSITION BY MASS OF A"" COMPOUND CONTAINING BETWEEN TWO"" AND FIVE ELEMENTS. T IS SUGGESTED"" THAT YOU UHAVE TYPED. OU CAN ERASE ERRORS"1: " WITH THE KEY."_: " YPE AT ANY TIME TO RETURN": " TO THE MENU FOR HELP. OU WILL": " BE RETURNED TO THE PLACE IN THE": " PROGRAM WHERE YOU LEFT OFF AS"OWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"E" DOMAIN. F THIS IS NOT THE CASE"b" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" " 64 835#NUZ1UP%:217)WOX ** PROGRAM MODIFICATION INST **`Y"":UT,UL%]UP0:UG$"ROGRAM OD":850835UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNI SOFTWARE: ** COMMODORE LOGO **:;(UD$,24);"PRESS SPACE BAR OR WAIT":I0\<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRESS **H(UD$,24);"PRESS SPACE BAR TO CONTINUE" p(UD$,24);" ONE MOMENT PLEASE... "u1 ** SET UP VARIABLES **|UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768: 50003,0(50003)0UB1024:U1209:U2  ** SET VARIABLES **900 ** CHECK FOR 8032 **-"":"": SHIFTED SPACED(UB40)96700] ** MEMORY CHECK **q (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !"UU71 1093,88:1094,228:1097,85:1102,228:965 (50003)1990= 1093,49:1094,230:1097,46:1102,230:965w 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,R.J.LAMB.1980!"":UT,UL%"UG$" ":UP0:850U"6" O YOU WISH TO SEE A SAMPLE":" CALCULATION? ";s"@US$"YHN":UL1:35:A$UR$"J A$"N" 1900"T1640"^ A1 1600"hUG$"AMPLE":UP0:850:" XAMPLTROGEN ATOMS."#" [] = ATOMIC MASS OF OXYGEN.""$" [] = NUMBER OF OXYGEN ATOMS0$835:850^$" = FORMULA MASS OF NITRIC ACID."$" = ([]*[])+([]*[])+([]*[])"$" = (1*1)+(14*1)+(16*3)"$" = 63"$ = (16*3/63)*100"%b" = 76.19"#&l" O YOU WANT TO DO A PROBLEM? ";A&vUS$"YHN":UL1:35:A$UR$R&A$"N"2190b&CO1:1960s& A0 2190& A1 1910&UG$"ROBLEM":UPCO1&850:Y0&" HENTS":1970' N1 J'UPUP1:850(" LEMENT ";NJ( " TOMIC MASS = ";:US$".0123456789H":UL10:35:M(N)(UR$)y(" UMBER OF ATOMS = ";:35:A(N)(UR$)( YYM(N)A(N)((UG$"ESULT":UPUP1:850( " ORMUL90)COCO1:1960)UPUP1:850(" LEMENT ";NJ( " TOMIC MASS = ";:US$".0123456789H":UL10:35:M(N)(UR$)y(" UMBER OF ATOMS = ";:35:A(N)(UR$)( YYM(N)A(N)((UG$"ESULT":UPUP1:850( " ORMUL 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$LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **#TUPUP1JW""(UT$UP$,21);(UG$UP$,14);UPy\" --------------------------------------"a(UD$,24);(UP$,6);"HELP - PRESS H "f"":k ** PLEASE WAIT REMARK **210:U3211:U4214:UC204:UU2048.(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024RUD$""UP$" ": UT$" ": PLACE PROGRAM TITLE HERE!!!!!!!!!!!!!!!!!!!***"":(50003)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **[1075,133:1076,144:1077,234:1079,4:1080,133:1081,1451091,155:1098,133:1099,144:1100,234:1103,1331104,145:1105,234:1082,234(50003)160955,234:2127,141:2128,21:2129,3 !UU48: DISABLE STOP KEY!800: TITLE,!300: MENU]!"THE PGM WILL NOT WORK ON THIS MACHINE!":!UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **!"";::(50003)053281,6:53280,14! PERCENTE:""r" HE PERCENT COMPOSITION OF NITRIC ACID."#|" ORMULA- ."2#" 3"[#" [] = ATOMIC MASS OF HYDROGEN."#" [] = NUMBER OF HYDROGEN ATOMS."#" [] = ATOMIC MASS OF NITROGEN."#" [] = NUMBER OF NI835:850$" ERCENT = ([]*[]/)*100"%" = (1*1/63)*100"2%&" = 1.59"Z%0" ERCENT = ([]*[]/)*100"|%:" = (14*1/63)*100"%D" = 22.22"%N" ERCENT = ([]*[]/)*%X" AT IS THE NUMBER OF ELEMENTS IN"!' " THE FORMULA? (2-5) ";:US$"2345H":UL1:35:J(UR$)U' J5 " AXIMUM OF 5 ELEMENTS PLEASE!":1970' J2 " ENSIBLE ANSWERS ONLY PLEASE.":1970' J(J) " T MUST BE A WHOLE NUMBER OF ELEMA MASS = ";Y(*" T.ASS O OF ATOMS % OMP.")4"" )>N1JD)HM(N);15)A(N);28)((M(N)A(N)Y100)100.5)100J)RP)\)f" O YOU WANT TO DO ANOTHER":" CALCULATION ? ";)pUS$"YHN":UL1:35:A$UR$)zA$"N"21 "":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 7UI$(13)(UR$)1UC,1:" ";:85| <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++  UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HEL 3%3) UQ,UQ%(UQUB): U1,U1%( U2,U2%4 U4,U4%B U3,U3%1J 35| UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4) UJ$US$:UK$ TIONS""E" 3. TEACHER INSTRUCTIONS">O" 4. QUIT"mT" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,400,500,396h30UDENT NST":850." N THIS PROGRAM YOU WORK IN A PIZZA"[" PLACE. EOPLE PHONE YOU AND ASK FOR"" A PIZZA. OUR JOB IS TO TELL THE"" DRIVER WHERE TO GO."" OUR CUSTOMER IS A LETTER OF THE"" ALPHABET. E LIVES IRONG DIRECTIONS, YOU LOSE A DOLLAR."8" O ADVANCE FROM ONE QUESTION"a" TO THE NEXT PRESS THE BAR""F AT ANY TIME YOU WISH TO RETURN"" TO THE PRESS H "835UZ1UP%:217 ** TEACHER CT:"" OMMODORE USINESS ACHINES":" 3370 HARMACY VE.^" GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UH1:UP1: 835: 850:" ROGRAM AME: IZZA-3!" DESIGNED AS A SIMPLE GAME TO TEACH"," COORDINATES AND POSITIONS."5835INUZ1UP%:217OWuX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UH1:UP0:UG$"ROGRAM OD":850835UZ1UP%:217 ** TO USE 8 I122:"";: (I137:"";:"*I122:"";:G," i."  0" 2" 4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE-: ** COMMODORE LOGO **e;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRESS **HUO,0$ 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. UQUBUB919J UQ%(UQUB)(UQ)::""] UZ1:UV%(UT)f 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB(U2%256U1%UUG$:UL$UT$:UJUP:UKUL#, ** MENU **)-:X."":UT,UU%:(50003)053281,9:53280,8^/:{1" MENU"6" --------------------------------------";" 1. BEGIN PIZZA-3!"@" 2. STUDENT INSTRUC0 ** RE-ENABLE STOP KEY AND END **G(50003)1(50003)160(50003)0399qUU71:(50003)053281,6:53280,14}"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0UH1:UP0:UG$"TN A TOWN WITH 9"&" STREETS ACROSS AND 9 STREETS UP."U" OU MUST TELL THE DRIVER HOW FAR OVER"t" AND HOW FAR UP TO GO."835:UH1:850" F YOU GIVE THE RIGHT DIRECTIONS"" YOU MAKE A DOLLAR. F YOU GIVE THE"" WINSTRUCTIONS **'"":UT,UL%:(50003)053281,2:53280,10MUH1: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" RITTEN Y : . RLEWINE*" PGRADED Y : EIL UNTU" HIS PROGRAM WILL RUN ON ANYt" 64 " 64  835:UH1:850" -3! IS A PRESCHOOL PROGRAM"032 LOAD CBM4032 **)"BEFORE RUNNING THIS PROGRAM ON AN 8032 _" LOAD THE 'CBM 4032' PROGRAM"jUU71p  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:& P%:UP%:UZ0: ** PROGRAM STARTS HERE ** """;::(50003)053281,6:53280,14<" ** PIZZA * S.ERLEWINEX"UT,UU%:UG$"GAME":UP0p" A PRE-SCHOOL GAME" BASED ON IDEA FROM 101 BASIC GAMES" *** PET USER GROUP  :(UD$,24);"PRESS SPACE BAR TO CONTINUE "'LUI$:UI$" "844-NMR ** PAGE DESIGN ROUTINE **YTUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870a(UD$,24);(UP$,7 116:P(I)0:I#I116:S$(I):I#$ I 1 16$X((7)82)"$ C1 166$ P(C)X 1190>$ CI$P(I)XQ$ Ic$ SET UP GRIDl$""u$V17$ " PIZZA-3!";V)" 1 2 3 4 5 6 7 8 9$ V)" $ :UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0J(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$""UP$" V)" 5ݠݠݠݠݠݠݠݠݠ5%nV)" &xV)" 4ݠݠݠݠݠݠݠݠݠ4;&V)" [&V)" 3ݠݠݠݠݠݠݠݠݠ3z&V)" &V)" 2ݠݠݠݠݠݠݠݠݠ2&V)" &V)7"THIS MACHINE DOES NOT HAVE ENOUGH"%"MEMORY TO RUN THIS PROGRAM !"0UU716P"":(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:109 2540'J S$(I);'T I'^ PRINT""'h FOR I= 1 TO 16((r PRINTP(I);" ";S$(I);","H(I);","V(I)5(| NEXT IG( FIND CALLERP(""\(I116n(P(I)01730v( I( 2100(I((7)17)(P(I)01730( GET GUESS( 265041:2105,21!2106,3:2115,145:2117,52:2118,234:2121,49:2122,141O!2123,20:2124,3:2126,234:2127,141:2128,21:2129,3m!UU48: DISABLE STOP KEY~!800: TITLE!300: MENU!"THE PGM WILL NOT WORK ON THIS MACHINE!":!UZ1U LIVES.")b" HOW MANY ACROSS?":" ";*lUS$"123456789H":35:H(UR$)!*v" HOW MANY UP?":" ";C*US$"123456789H":35:V(UR$)^*" OK. I'LL GO OVER"p* H"AND UP "V* K1850: K* GUESS CORRECT?*C0*P(V1)9H* PP( I) 2020* PP(I) 3290* 1890* 3070+" READY FOR "+" ANOTHER CALL?";;+US$"YNH":UL1:35:G$UR$O+  G$"N" 2100c+ G$"Y" 1670n+  2620y+* 2050+4 FINAL BALANCE+> 2650+H B0 2220+R B0 21 BOX 371#$ MONTGOMERYVILLE, PA 18936 REM #.""H#V" WHAT IS YOUR NAME? ";:US$"":UL10:35:N$UR$o#`" OK, "N$", YOU'VE GOT THE JOB!"#j X0 S$(20),P(20),V(20),H(20)#t A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P#~B0:I);"HELP - PRESS H "fUH0:"":%k ** PLEASE WAIT REMARK **[p(UD$,24);" ONE MOMENT PLEASE... "au~ ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468V)" 9ݠݠݠݠݠݠݠݠݠ9%V)" %(V)" 8ݠݠݠݠݠݠݠݠݠ8?%2V)" _%<V)" 7ݠݠݠݠݠݠݠݠݠ7~%FV)" %PV)" 6ݠݠݠݠݠݠݠݠݠ6%ZV)" %d "-UT$" -3! ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***3M ** SET VARIABLES **V900q ** CHECK FOR 8032 **"":"": SHIFTED SPACE(UB40)96700 ** MEMORY CHECK ** (0)200093" 1ݠݠݠݠݠݠݠݠݠ1&V)" 'V)" 1 2 3 4 5 6 7 8 9'""5' PRINT POSITIONSA'I116N'XP(I)9d' X(X)0 1570u'V(I) (X)1'H(I) P(I)((X)9)' 1590'"H(I) 9',V(I)X'6 2450'@8,133:1099,144:1100,234:1103,133 1104,145:1105,234:1082,234, (50003)160955[ 1093,88:1094,228:1097,85:1102,228:965p (50003)1990 1093,49:1094,230:1097,46:1102,230:965 2099,141:2100,20:2101,3:2103,8:2104,1(" RING!! RING!!"(" HELLO, "N$"?")" THIS IS "S$(I))" WOULD YOU SEND"/)" ME A PIZZA?"F) K 1 1000: Kb)&" THANKS! GOODBYE."q)0835:4000{):2650)D" THE DRIVER WANTS")N" TO KNOW WHERE "S$(I))X" Z)"";2 26502 " "N$" THIS IS "S$(Z)2 " I DIDN'T ORDER"3 " A PIZZA!"3 835:40103 2650%3 3030E34000:" "N$" YOU LOST"X3$" A DOLLAR."r3." WHAT'S "S$(I)"'S"38" ADDRESS AGAIN?"3B3(UD$,24);" 80+\" SORRY, "N$+f" YOU LOST $"(B)+p 2250,z G$"Y" 1140," WELL, "N$.," YOU BROKE EVEN."H," GOOD EXPERIENCE!"S, 2250f," GOOD WORK"w," ";N$;"!"," YOU MADE $ "B," WANT TO PLAY," AGAIN?"; ABICZ " PGRADED Y : 7" HIS PROGRAM WILL RUN ON ANYV" 64 {" 64  835NUZ1UP%:217WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UH1:U 2440-t H(I)9-~ V(I)X- - LOCATE CURSOR- "";. K1 21. "";. K&. K 1 180. "";8. K>. P. MOVE CURSORb. K 1 H(I)m. "";u. K. K 1 V(I). "";.( K.2 .< Y OR N SUB   ** STUDENT INSTRUCTIONS **<"":UT,UL%:(50003)053281,0:53280,0bUH1:UP0:UG$"TUDENT NST":850" RIME GAME IS A GAME WHERE COPS "" AND ROBBERS ARE IN BATTLE TO TAKE"" OVER THE SQUARE, YOU BEING THE COP"  C0 B B1/ C1 BB1/ / SUB RIGHT ANSWER/ C10 2650 0 24500& 2540(00 ""<0: " RING. RING."R0D " HELLO, "N$"?"i0N " THIS IS "S$(I)}0X " THANKS FOR"0b " THE PIZZA!"0l 835:40100v 26500 OTE:O ADVANCE FROM ONE QUESTION"5" TO THE NEXT PRESS THE BAR"f" F AT ANY TIME YOU WISH TO RETURN"" TO THE PRESS H "835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(500 24501* 272014 K 1 501> "!";1H Q 1 10 : Q1R " ";2\ Q 1 10 : Q2f K%2p 2650>2z " NO ONE'S HOME!"N2 3030:835Y2 3610h2 OCCUPIEDs2 2450~2 27202 "?";2 K 1 850: K2 ""S$( ACHINES"" 3370 HARMACY VE.5" GINCOURT, NTARIO"W" ANADA 1 24"w" (416) 499-4292"UP1: 835:UH1: 850:" ROGRAM AME: OLICE UBTRACTION" RITTEN Y : EBBY !P0:UG$"ROGRAM OD":850&_" ODIFICATIONS OF THIS PROGRAM ARE "O`" LIMITED TO CHANGING THE RANGE OF|a" VALUES USED IN THE QUESTIONS. HE "b" CURRENT VALUES ARE: "HI" AND":" "LO"."c" HAT IS TO BE THE NEW HIGH VALUE?a HELP - PRESS H ":4(UD$,24);" ": : Q2f K%2p 2650>2z " NO ONE'S HOME!"N2 3030:835Y2 3610h2 OCCUPIEDs2 2450~2 27202 "?";2 K 1 850: K2 ""S$( ,US$"YNH":UL1:35:G$UR$, G$"Y" 1140, G$"N" 2320- 2620- 2270- THE END/- " OK, "N$G-$ " SEE YOU LATER!"R-. 835:i-8 FIND COORDINATESv-B XP(I)9-L X(X)02420-V V(I)(X)1-` H(I)P(I)((X)9)-j  (1-5) "; ^UL1:US$"12345":35: INPUT ROUTINE+`US$""Lc(UR$)1000,400,500,600,396Uh300| ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: .F "Y OR N PLEASE.".P .Z CLR SCREEN.d "";.n K1 19/x " "/ K=/ " "C/ U/ MOVE CURSORd/ K 1 Ho/ "";w/ K/ K 1 V/ "";/ K/ / BALANCE/ " MUST CORRECTLY ANSWER THE SUBTRACTION"-" QUESTION. "Z" O WIN YOU MUST COMPLETE THE "" SQUARE TRYING TO SAVE THE TOWN FROM":" CRIME."" OOD LUCK IN PREVENTING CRIME."835:UP1:UH1850 "  P(I)00 30300 " ";N$;", YOU"0 " MADE A DOLLAR!"1 " THAT MAKES"1 " $"B" SO FAR."1 51 B0" GOOD WORK!";1 N1 WRONG ANSWERV1 C0i1 K1850: Ky1 Z 1 161 PP(Z) 34801 Z1 UNOCCUPIED1 03)053281,2:53280,10$UH1:UP0:UG$"EACHER NST":850R" O THE BEST OF OUR KNOWLEDGE,"{" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ! 50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048J (50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198n UD$"" UP$" " UT$" .": PLACE PROGRAM! ";:US$"0123456789":UL5:35?dHI(UR$):" HAT IS TO BE THE NEW LOW VALUE? ";:35:LO(UR$)Se HI LO 660vfUG$"MOD ERROR":UP1:UH1:850g" NLESS YOU ARE LOOKING FOR NEGATIVE"h" ANSWERS YOU HAVE AN ERROR AS YOUR LOW"i" V! HAVE ENOUGH"!"MEMORY TO RUN THIS PROGRAM !" "UU71")""":(50003)0962X" ** BASIC 2.0 OR 4.0 OR C-64 SETUP **"1075,133:1076,144:1077,234:1079,4:1080,133:1081,145"1091,155:1098,133:1099,144:1100,234:1103,1! ROGRAM ON AN 8032 %" LOAD THE 'CBM 4032' PROGRAM"0UU716V  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I137:"";:*I!:2117,52:2118,234:2121,49:2122,141($2123,20:2124,3:2126,234:2127,141:2128,21:2129,3F$UU48: DISABLE STOP KEYW$800: TITLEg$300: MENU$"THE PGM WILL NOT WORK ON THIS MACHINE!":$UZ1UP%:UP%:UZ0: ** PROGRAM STARTS !RE: ** COMMODORE LOGO **+;(UD$,24);"PRESS SPACE BAR OR WAIT":I0M<A$:A$" "II1:I250828q>T1$"":T2$"":T3$"":T4$"":I0z@300C ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"!%`" "%j J 1 100&t&~&""& I1 22@&" CRIME GAME"R& J 1 100X&&" "& J 1 100&&&" THE HIGHEST VALUE IS ";HI!LEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... ""u? ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0 (! 1234"("5678"-(""91011 12"T(,"13141516"(6"WHAT IS YOUR CHOICE ";:US$"H0123456789":UL2(;35:CH$UR$(@ CH$ "" "" ": 1590(JCH (CH$)>)TCH0CH16" ":1590L)^ PROCESSv)h" ")m: RANGE HI LO 1)r: N1 ((1)RANGE) LO)|: N1LO! TITLE HERE !!!!!!!!!!!!!!!!!*** ! ** SET VARIABLES **!900)!HI1000:LO50/!:J! ** CHECK FOR 8032 **h!"":"": SHIFTED SPACE!(UB40)96700! ** MEMORY CHECK **! (0)2000937!"THIS MACHINE DOES NOT!ALUE IS GREATER THAN YOUR HIGH VALUE."/j" O YOU WANT TO WORK WITH NEGATIVE "Uk" ANSWERS? ";:US$"YN":UL1:35hl UR$"Y" 660qm605z835UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS P!33"1104,145:1105,234:1082,234#(50003)1609554#1093,88:1094,228:1097,85:1102,228:965I#(50003)1990x#1093,49:1094,230:1097,46:1102,230:965#2099,141:2100,20:2101,3:2103,8:2104,141:2105,21#2106,3:2115,145!122:"";: ," /."  P0" n2" 4"C O M M O D O R E6"EDUCATIONAL8"SOFTWA!HERE **$"";::(50003)053281,6:53280,6%R10:TTAL0 % SPRING ASSIGNMENT1% CRIME GAME7%:O% DEBBY BABICZ, 12Ec% MARCH 5, 1982o%$ STARTx%.""%8 I1 22%B" COPS AND ROBBERS"%L J 1 100%V!LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUPUP1DW""(UT$UP$,21);(UP$UG$(UP),18)s\" --------------------------------------"`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** P!&" THE LOWEST VALUE IS ";LO&835'"CHOOSE SQUARE.,'""7'A14_'" "'" "'"̤"''""  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$" 1650):N2 ((1)RANGE) LO): N2N1 1670 *: N1;"-"; N2L* "THE ANSWER: ";:US$"H0123456789":UL5:35:ANSWER(UR$)`*TTAL TTAL 1}*: ANSWERN1N2 1740*: 1800*:"CORRECT ANSWER"*W0RD$" COPS "*" $ 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) " E TOWN"+b2015+l+v R1 8 1950,"BETTER LUCK NEXT TIME, THE ROBBERS STOLE"@,"MOST OF THE VALUABLES IN YOUR TOWN."J,2015^, R1 16 1990,"YOU'RE NOT A BAD COP, YOU CAUGHT MORE,"ROBBERS THAN YOU LET ESCAPE.,20"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("-R CH 4 2180-\DIST 4 CH-fDO 16-p"";-z 2310. CH 8 2230#.DIST 8 CH/.DO 13>."";I. 2310^. CH 12 2280q.DIST 12 CH}.DO 10."";. 2310.DIST 16 CH."UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN POWER-FACTORIAL" @" 2" UP0:UG$"TUDENT NST"2240:850D" EMEMBER TO HIT AFTER"n" TYPING YOUR ANSWER. HIS TELLS"" THE COMPUTER TO ACCEPT WHAT YOU"" HAVE TYPED."" YPE AT ANY TIME TO RETURN"" TO TH"400,500,396h300+ ** RE-ENABLE STOP KEY AND END **Z(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0#E MENU FOR HELP. OU WILL"2" BE RETURNED TO THE PLACE IN THE"[" PROGRAM WHERE YOU LEFT OFF AS"" SOON AS THE OPTION FROM THE MENU"" IS COMPLETE."835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"""":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 +++" 2120* 2030*:R1R11*: 1840+:"SORRY, WRONG ANSWER!"+W0RD$"ROBBER"+ 2120*+& 2030A+0 TTAL 16 1590[+:"";n+D R1 0 1910+N"YOU'RE NOT A VERY GOOD POLICE OFFICER."+X"THE ROBBERS STOLE TH" 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"15,"GREAT!!! YOU CAUGHT ALL OF THE -"ROBBERS. I WOULDN'T MIND LIVING IN-"YOUR TOWN."'-835--?- GET ROUTINEH-835`-""q-  ZQ 1 8-*" "-4->-H"""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)DO 7."";. DIST 3 QQ 1. DIST 2 QQ 9/ DIST 1 QQ 17//$ DIST 0 QQ 25>/. QQ)W0RD$O/8 D 1 DOY/B "";_/L e/V k/` -*" "-4->-H""". 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,# -------------"`UH0870-a(UD$,24);(UP$,7);"HELP - PRESS H ">fUH0:"":]k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1# ":UT,UL%:(50003)053281,2:53280,104UP0:UG$"EACHER NST":850b" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODO# "UP$" "2UT$" -"@N(255):Z ** SET VARIABLES **c900~ ** CHECK FOR 8032 **"":"": SHIFTED SPACE(UB40)96700 ** MEMORY CHECK ** (0# F" PGRADED Y : *H" HIS PROGRAM WILL RUN ON ANYIN" 64 nP" 64 wR835TUZ1UP%:217VX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD":#,155:1098,133:1099,144:1100,234:1103,133"1104,145:1105,234:1082,2349(50003)160955h1093,88:1094,228:1097,85:1102,228:965}(50003)19901093,49:1094,230:1097,46:1102,230:9652099,141:2100,20:2101,3:2103,#:(50003)053280,14:53281,6$I138:"";:/&I122:"";:G(I137:"";:_*I122:"";:," ."  0" 2"#UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **- "";::(50003)053281,6:53280,14E UT,UL%:UP0:UG$""w F0:850:" LEASE CHOOSE THE MAXIMUM" " NUMBER OF DIGITS IN THE TABLE." " ";:US$"H0123456789":UL3#T4$"":I0@300 C ** SPACE BAR PRESS **HHUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"_LUI$:UI$" "844eNR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" -------------------------# $"H0123456789":35:N(UR$)!N21410:1042 "N1F1"$15002"LT10:K1:N(0)N:CC0:CZ7M"VCCCZCC0:835:1500e"[J0M:N(J)T1130"`Q(N(J)T):WN(J)QT:N(J)W:N(J1)N(J1)Q"j:JM1:CY1"tN(J)0JJ1:1140"~ J M 1220"CCCC1:D0:K;7); #N$(N(J)):N$(N$,1):DD1(#D30D1::7);:CYCY1B#N$;:JJ1:J01170Q#F1NN1~#KK1::J0M:N(J)N(J)N::1230:1110#J1255:N(J)0::" EXT ANSWER IS LONGER THAN"M" DIGITS."##196:U2197:U3198:U4216:UC167:UU1024?UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$"#RE USINESS ACHINES"!" 3370 HARMACY VE.E" GINCOURT, NTARIO"g" ANADA 1 24"" (416) 499-4292"@835:850:B" ROGRAM AME: OWER-ACTORIALD" RITTEN Y : NKNOWN#)2000937"THIS MACHINE DOES NOT HAVE ENOUGH"2"MEMORY TO RUN THIS PROGRAM !"=UU71C]"":(50003)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **1075,133:1076,144:1077,234:1079,4:1080,133:1081,1451091#850835UZ1UP%:217 0 ** TO USE 8032 LOAD CBM4032 **f"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71  ** T I T L E P A G E **""";:UT,UU%#8:2104,141:2105,21"2106,3:2115,145:2117,52:2118,234:2121,49:2122,141\2123,20:2124,3:2126,234:2127,141:2128,21:2129,3zUU48: DISABLE STOP KEY800: TITLE300: MENU"THE PGM WILL NOT WORK ON THIS MACHINE!": # 4"C O M M O D O R E06"EDUCATIONALO8"SOFTWAREj: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":#:35:M(UR$) M250M11400:1032=! " OULD YOU LIKE EXPONENTIAL ":" OR FACTORIAL? ";`! US$"HEF":UL1:35:N(UR$)68s!N2N1:1050!" HICH BASE SHALL WE USE? "!UL6:M6ULM!" ";:US