d VIC/64 DISK MENU3x"":53280,0:53281,0_"READING DISK DIRECTORY "lP$(100)| DIRECTORY PEEPER1,8,0,"$" LOAD ARRAY P$#1,B$:ST0270B$(34)190P$"" #1,B$:B$(34)P$P$B :198,2 NEXT SCREEN ";C h" LAST SCREEN"e r" EXIT TO BASIC "; |" S LOAD ONLY" " R LOAD AND RUN" Z$"":Z$:Z$""400 Z$"N"NN10:300 Z$"L"NN10:300 Z$"E" PR1:ZZ1P:PRPRFR:ZZ/ Y1MPR/ YY12480!0 10)"":12)"OU'RE CORRECT!":NCNC1:835:2620?0 12)"ORRECT ANSWER:"Q0 15)Q$" "k0 FR0FR$(FR):2520~0 FR$((FR),2)0 15)" = ";M$;"[";FR$;"]";P$0 15)" =N$B$"]"P$" = ":1560-RT2250,2400,1550-FRNX .Y11:ZZ1P:Y1Y1FR:ZZ.YY12290X.10)"":12)"OU'RE CORRECT!":NCNC1:835:2400v.12)"ORRECT ANSWER:".15)Q$" ". FR0FR$(FR):2330. FR$((FR) $:220 #1,B$:B$(32)230* P$(X)P$B #1,B$:B$"" 250W ST0XX1:180^ 1r  DISPLAY MENU{ "N10 ," MURRAY SOFTWARE "; 6" ";P$(0);"": @N10N10 JN100N100 TJ(N9)N:J;"- ";P$(J):J& ^)65+B69B73B76B78B792010+B$(B)+,Q$" "N$B$P$" = ":1560*, RT2070,2220,1550G,PR1:ZZ1P:PRPRX:ZZS, Y1NPRc,*YY12110,410)"":12)"OU'RE CORRECT!":NCNC1:835:2220,>12)"ORRECT ANSW:"PRESS NEXT SCREEN ";C h" LAST SCREEN"e r" EXIT TO BASIC "; |" S LOAD ONLY" " R LOAD AND RUN" Z$"":Z$:Z$""400 Z$"N"NN10:300 Z$"L"NN10:300 Z$"E" ";M$;:ZZ1P:"[";FR$;"]";::0 PR0PR$(PR):25600 PR$((PR),2)1 15)" = ";M$;"[";PR$;"]"41 Y10Y1$(Y1):2590G1 Y1$((Y1),2)[1 15)" = ";Y1$i1( W2:PP1r12 835x1< " = ":1560/t RT2430,2620,1550/~ FRNX/,2). 15)" = ";"[";FR$;"]";P$.$ 15)" = ";:ZZ1P:"[";FR$;"]";::/. Y10Y1$(Y1):2370,/8 Y1$((Y1),2)@/B 15)" = ";Y1$N/L W2:PP1W/V 835]/` /j Q$" "M$"["N$B$"]"P$" = ":1560/t RT2430,2620,1550/~ FRNX/ER:":,H15)Q$" ",RPR0PR$(PR):2150,\PR$((PR),2))-f15)" = ";N$;:ZZ1P:"(";X$;")";::H-p15)" = ";N$;"(";PR$;")"b-zY10Y1$(Y1):2190u-Y1$((Y1),2)-15)" = ";Y1$-W2:PP1-835--Q$" [""MENU STILL PRESENT":& Z$"S"U13:470= Z$"R"U131:470F 400m  SELECT AND PRINT LOAD "PROGRAM #"; S S1SX480 (P$(S))12P$(S)(P$(S),12)"*" "LOAD"(34)P$(S)(34)",8"; 631,19:632,U UH0870a(UD$,24);(UP$,7);"HELP - PRESS H ""fUH0:"":Ak ** PLEASE WAIT REMARK **wp(UD$,24);" ONE MOMENT PLEASE... "}u ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198: C O M M O D O R E6"EDUCATIONAL38"SOFTWAREN: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@30 ""((P),2)""'"YPE: N TO SKIP A QUESTION" ("H FOR HELP"A("Q TO QUIT"u(RT1:W1:Z$"F "B$" = "X$", EVALUATE:"((40(Z$))22)Z$(T2050,2230,2410(NPNP1(W11500 LOAD THE 'CBM 4032' PROGRAM"UU71: ** 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)05328 " &B1$""0&B2$" "U&$B3$" "k&."";:7)B1$&8Z16:7)B2$:7)B3$:&B7)B2$:7)B1$&L""&V16)""&HE QUESTIONS VARIES "" DIRECTLY WITH HOW WELL THE STUDENT IS"M$" DOING. PON COMPLETION OF THE QUIZ,x&" A SUMMARY IS PRESENTED SHOWING THE(" STUDENT'S ACHIEVEMENTS."M835:NUZ1UP%:217VUG$UU$:UPPUWX ** PR2099,141:2100,20:2101,3: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,3$UU48: DISABLE STOP KEY$800: TITLE$300: MENU$"THE PGM WIL 24"" (416) 499-4292"UP1: 835: 850:N" ROGRAM AME: IMPLE UBSTITUTION"y" RITTEN Y : . . ICHOLSON " PGRADED Y : " HIS PROGRAM WILL RUN ON ANY" à2.! ** MEMORY CHECK **! (0)2000937&""THIS MACHINE DOES NOT HAVE ENOUGH"J""MEMORY TO RUN THIS PROGRAM !"U"UU71["u""":(50003)0962" ** BASIC 2.0 OR 4.0 OR C-64 SETUP **"1075,133:1076,144:1077,234:10C"CORRECT FOR A SCORE OF";)NP0" 0";:1557*(NCNP100.49);*"%.":835:UP%:3006*(40(Q$))22)Q$;^*"UL5:US$"0123456789-QN":35:Y$UR$w*,Y$"N"RT2:NPNP1*6Y$"Q"RT3*;Y(Y$)*@*0M(11(1))5*:(M)2U4216:UC167:UU1024# UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0f (50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048 (50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198 UD$"" 0C ** SPACE BAR PRESS **,HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"CLUI$:UI$" "844INiR ** PAGE DESIGN ROUTINE **uTUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"` (T31500(CC1:C21500(MM(M0M$(M):1490)M$((M),2))1370!)P))X11)N18)TB)1320c)UH1:850:16)"ْ")" OU TRIED"NP"PROBLEM";:NP1"S,";)" AND GOT")" "N0,14:53281,6$I138:"";:&I122:"";:+(I137:"";:C*I122:"";:h," ."  0" 2" 4"`13)""&j17)" "'t15)""'~11)"BY .. ICHOLSON".'835:"";9'(T13I'2N1112Y'<X1112d'FP23w'PT3C1:1840'Z1880'd1960'n2010'sUG$"UESTION:":UPNP:UH1:850'xP$OGRAM MODIFICATION INST **Y"":UT,UL%ZUU$UG$:PUUP:UP1>]UP0:UG$"ROGRAM OD":850G835[UZ1UP%:217mUG$UU$:UPPUs ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " L NOT WORK ON THIS MACHINE!":%UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **E%"";::(50003)053281,6:53280,14% MODIFIED FOR EXPERIENCE '82 BY PAUL CAPES, SARNIA%"":UT,UL%%:900%NP0:NC0%BL$" 0 " 4.0 Ԡ8" 8032 ]" 64 f 835o850" HIS PROGRAM DRILLS THE STUDENT ON" EVALUATING MONOMIALS. HE LEVEL OF " DIFFICULTY OF T79,4:1080,133:1081,145#1091,155:1098,133:1099,144:1100,234:1103,133:#1104,145:1105,234:1082,234Q#(50003)160955#1093,88:1094,228:1097,85:1102,228:965#(50003)1990#1093,49:1094,230:1097,46:1102,230:965#1840*DM$(M)*N*XN(5(1))1*bNNN1+lT3C1N0N1+vN1N$"":1950/+N1N$"-":1950F+N0N$(N):1950W+N$((N),2)]+o+X(4(1))2z+XXX1+X0X$(X):2000+X$((X),2)++B(26(1)UP$" "F!UT$" Š": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!***L!f! ** SET VARIABLES **o!900u!:{!:! ** CHECK FOR 8032 **!"":"": SHIFTED SPACE!(UB40)96700  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 [5B]2""1)"AND -4[2C]3. O ANSWER A QUESTION,"N1)"WORK OUT THE ANSWER (ON PAPER IF"1)"NECESSARY) THEN TYPE THE FINAL ANSWER"1)"AND PRESS <>."1)"F YOU HIT A WRONG KEY PRESS <>."1)"O SKIP A QUESTI $)1300`US$""c(UR$)1000,400,500,396'h300N ** RE-ENABLE STOP KEY AND END **}(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **UT$" I " HAT WILL THE INDEX BE IF "SN$(I)""4 " WERE WRITTEN IN STANDARD NOTATION? "'4 " ";: 35:AN$UR$\4 AN$P$(I)" O TRY AGAIN.": 2770:26624 " ";C$(I): 8354 I4 4 8354 ):U4%(U4)%UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL+<, ** MENU **B-:q."":UT,UU%:(50003)053281,9:53280,8w/:1" MENU"6" --------------------------------------";" 1. BEGIN SIMPLE SUBSTITUTIO 25041 8351 UP2: 8501 "  HAT WILL THE INDEX (POWER OF 10)2 " BE FOR 632500 ? ";'2( 35:AN(UR$)`22 AN5" OU MOVED TO THE LEFT THIS TIME.":2770q26 AN5 25762< AN5 " HAT'S RIGHT ";N$;" "2>  UI$"":+ UF1: +++ HELP ROUTINE EXIT +++4 250= 245\ UQUB(U2%256U1%U3%2)x UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK:(50003)053281,6:53280,14 UT$UL$:"";:UT,UV%: 835/ UP1:UG$"EVIEW UES."/ 8500 " F 0.00365 WERE WRITTEN IN+0 " STANDARD NOTATION, WHAT WOULDL0 " THE POWER OF 10 BE ? ";_0 35:AN(UR$)0 AN3" OU MOVED THE DECIMAL TO THE RIGHT.":27700 AN3 2504OR HELP REQUEST +++5 ZUR$UX$195: EXIT TO HELP ROUTINED _UF1240Q dUF0::j f ++ CHECK DELETE ++{ i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US$US$UX$ US1 <>"835UZ1UP%:217!UG$UU$:UPPU'H ** TEACHER INSTRUCTIONS **x"":UT,UL%:(50003)053281,2:53280,10UT$" IMPLE UBSTITUTION":UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE," 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 ON, TYPE <>."-1)"O END THE PROGRAM, TYPE <>.";835:850l1)"OTE:O ADVANCE FROM ONE QUESTION"1)"TO THE NEXT PRESS THE BAR"1)"F AT ANY TIME YOU WISH TO RETURN"1)"TO THE PRESSMPLE UBSTITUTION"-"":UT,UL%:(50003)053281,0:53280,0DUU$UG$:PUUP:UP1eUP0:UG$"TUDENT NST":8501)" HIS PROGRAM IS INTENDED TO GIVE YOU"1)"PRACTICE IN THE EVALUATION OF"1)"MONONOMIALS SUCH AS -8A3 AND '""4 4 4 ""4 ": 2640 3F " HECK HOW FAR YOU MOVED THE DECIMAL.3J 2770: 2576F3P " ELL YOU SEEM TO KNOW IT, SO3Z " 'LL GIVE YOU 10 MORE AS A TEST.": 835:UG$"UESTION"3d I1103f UPI1: 8503x N"@" 2. STUDENT INSTRUCTIONS"FE" 3. TEACHER INSTRUCTIONS"bO" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE_(URAN5 " ": 2640 3F " HECK HOW FAR YOU MOVED THE DECIMAL.3J 2770: 2576F3P " ELL YOU SEEM TO KNOW IT, SO3Z " 'LL GIVE YOU 10 MORE AS A TEST.": 835:UG$"UESTION"3d I1103f UPI1: 8503x UQUB(U2%256U1%U3%3)"UQ,UQ%(UQUB):.U1,U1%:U2,U2%FU4,U4%TU3,U3%1\35d35UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):(UD$,24);"  HELP COMING ":U1%(U1):U2%(U2):U3%(U30 AN3 " " 1 AN3 " ORRECT ";N$;" "E1 AN3 " ": 2575u1 " HECK HOW MANY PLACES THAT "1 " YOU MOVED THE DECIMAL."1 2770:(US$) UI$(US$,US,1) ) UI$"":D ** STANDARD INPUT **U (UI$)46f UI$(32) (UI$)48(UI$)57170 (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): " THIS PROGRAM IS IN THE PUBLIC"7" DOMAIN. F THIS IS NOT THE CASE"T" PLEASE CONTACT:"~" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1UT SECTION +++" (UO,0:UR$"":UI$""2 *UL0UL80< -UC,0P 2UI$:UI$""50z 7UI$(13)(UR$)1UC,1:" ";:85 <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK F 1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU10243#: UT59468:UU%12:UL%14:UP%1146:UM32768v#(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048#(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024#: UD$" 4$"":I0 @: 300!C-----SPACE BAR PRESS-----:!H: (UD$,24);"PRESS SPACE BAR TO CONTINUE"T!L: UI$:UI$" "844]!N: !R-----PAGE DESIGN ROUTINE-----!T: UPUP1!W: ""(UT$UP$,21);(UG$UP$,14);UP!\: " -------- E ND MART+" HINK OU'VE OT T!"/,"5.12 + 0.654","5.77","236.1","1.4E02","12.564 + 6.1 + 70.89","89.6"x,"123.55","68","564-58.6","505","65.12/24.1","2.70","65/147","0.44","6.23 + 56.1 - 10","52","999/999","1.00","21.450 + .001" 50003)053280,14:53281,6$I138:"";:&I122:"";:3(I137:"";:K*I122:"";:p," ."  0" 2" ","0.00045","2","5.01","3","6.0","2"&*~"1.00010","6","0.01320","4","6.310E-09","4","5.20","3","698","3"^*"36.58","4","9800","2","0.0003","1","36.00001","7"*" OOD HOW!"," REAT!"," ANTASTIC!"*" AY O O!"," HAT'S REAT!"," UP!P%:217W: X-----PROGRAM MODIFICATION INST-----#Y: "":UT,UL%F]: UP0:UG$"ROGRAM OD":850R: 835i: UZ1UP%:217r: -----TO USE 8032 LOAD CBM4032-----"BEFORE RUNNING THIS PROGRAM ON AN 8032 2123,20:2124,3:2126,234:2127,141:2128,21:2129,3(: UU48: DISABLE STOP KEY)(: 800: TITLE<(: 300: MENUp(: "THE PGM WILL NOT WORK ON THIS MACHINE!":(: UZ1UP%:UP%:UZ0:-----PROGRAM STARTS HERE-----("";:(50003. . CHMIDT"" HIS PROGRAM WILL RUN ON ANY;" à2.0 b" 4.0 Ԡ" 8032 " 64   835: 850" HIS PROGRAM IS TO: %: "":(50003)0962&-----BASIC 2.0 OR 4.0 OR C-64 SETUP-----V&1075,133:1076,144:1077,234:1079,4:1080,133:1081,145&1091,155:1098,133:1099,144:1100,234:1103,133&1104,145:1105,234:1082,234&: (50003)124","-3","6520","3","89001","4","0.005001","-3","89","1","96200","4"/."0.000006","-6","0.04","-2","654","2","32140","4"T.UP0:UG$"EVIEW": UT,UL%: 850x.(" ELLO, MY NAME IS RED..2" HAT'S YOUR NAME ? ";.<UL10:US$"": 35:N$U" $: UP$" "W$: UT$" ": PLACE PROGRAM TITLE HERE!!!!!!!!!!!!!***`$: }$-----SET VARIABLES-----$: 900$N$(20),SF$(20),F%(20),C$(20),Q$(20),A$(20),SN$(10),P$(1------------------------------"""a: (UD$,24);(UP$,6);"HELP - PRESS H "1"f: "":S"k-----PLEASE WAIT REMARK-----"p: (UD$,24);" ONE MOMENT PLEASE... ""u: "-----SET UP VARIABLES-----#: UX$"H":UQ%( ,"21.451"-"6.5.254","1.6","58.2 + 6.10 + 3.001","67.3","65/8.45","7.7"E-"54 + .99 + 100","155","2512","3.0E02","56.23 -96.5","-40.3"-"1491","5E02",".001 + 62.8 - 84","-21","778.4/65.4","11.9"-"0.210 - 66.45 + 57.9","-8.3"- "0.004"C O M M O D O R E 6"EDUCATIONAL; 8"SOFTWAREV : ** COMMODORE LOGO ** ;(UD$,24);"PRESS SPACE BAR OR WAIT":I0 <A$:A$" "II1:I250828 >: T1$"":T2$"":T3$"":T"*" O AN O!"," ERRIFIC!"," NOTHER IGHT NE."+" ES IR!","REAT EARIE!"@+" OU'RE OOD!"," HAT'S Y ABY!"j+" EARNED OU OOD?!"," OOPIE!"+" RE OU HEATING?"," O T GAIN!!!"+" ORRECT"," RE OU UT" LOAD THE 'CBM 4032' PROGRAM": UU71: B ** 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%:()053281,6:53280,14(""(8(BD120:N$(D),SF$(D):)LD120:C$(D):/)VD120:Q$(D),A$(D):K)`D110:SN$(D),P$(D):)j"6.54E-03","3","65.001","5","9.00E11","3","110","2","0.00025","2")t"20.020","5","563.002","6","5600","2 ASSIST STUDENTS" IN THE AREA OF SCIENTIFIC NOTATIONA" BY DRILLING THEM. HE QUESTIONSi" ARE GIVEN AS A GROUP WITH THE " COMPUTER ENCOURAGING THE STUDENT."" HERE IS NO FINAL SCORE GIVEN.D835N: UZ1U60955&: 1093,88:1094,228:1097,85:1102,228:965': (50003)1990D': 1093,49:1094,230:1097,46:1102,230:965~'2099,141:2100,20:2101,3:2103,8:2104,141:2105,21'2106,3:2115,145:2117,52:2118,234:2121,49:2122,141'R$.AUS$"1234567890H-.":UL5.F" ELL ";N$;" 'M HERE, TO HELP$/P" YOU LEARN SCIENTIFIC NOTATION.-/ UP1X/ "  WILL GIVE YOU SOME QUESTIONS/ " TO LET YOU PROVE THAT YOU REALLY/ " DO KNOW THIS MATERIAL, "N$;"."/ 0)$:$-----CHECK FOR 8032----- %: "":"": SHIFTED SPACE'%: (UB40)96700C%-----MEMORY CHECK-----Z%: (0)2000937%: "THIS MACHINE DOES NOT HAVE ENOUGH"%: "MEMORY TO RUN THIS PROGRAM !"%: UU71%  910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** ---GENERAL INPUT ROUTINE----: ** TO OUR BEST KNOWLEDGE THIS  P $"TUDENT NST":850*" 5U" OR COMPUTERS, NUMBERS LIKE 5*10~" ARE A PROBLEM. O WE REPRESENT" 5" 10 WITH THE LETTER '', SO OUR" EXAMPLE IS WRITTEN AS 505. UM-" S"J"";O: " 4. QUIT"JT: " --------------------------------------"xY: " PRESS A NUMBER KEY (1-4) ";^: UL1:US$"1234":35:---INPUT ROUTINE---`: US$""c: (UR$)1000,400,500,396h: 300 ---- WRITTEN 8.14X100;%" 100 CAN BE EXPRESSED AS 10 SQUARED.C" 2"o" THUS 814 = 8.14X10 . HE IDEA IS" TO TAKE THE NUMBER AND MAKE IT INTO" A NUMBER BETWEEN 1 & 10 MULTIPLIED" BY 10 TO SOME PO((U2%256U1%U3%)UB)40:(UD$,UD%1):Y: (UD$,24);"  HELP COMING ":: U1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$:UJUL: UJ$US$:UK$UG$:UJUP:UKUL: ,-----MENU------:.: "":UT 10 THEN THE POWER OF 10'" WILL BE POSITIVE. F THE DECIMALR" IS MOVED TO THE RIGHT, THE POWER}" OF 10 WILL BE A NEGATIVE NUMBER.835:850" OTE:O ADVANCE FROM ONE QUESTION"" TO THE NEXT PRESS THE  : & : (UI$)193 (UI$)218UI$"":T : (UT)12(UT)21UI$((UI$)128):] : m : UI$"": : UF1:-----HELP ROUTINE EXIT----- : 250 : 245 : UQUB(U2%256U1%U3%2) : UQ%(UQUB)(UQ)::""OR";:N11N1;"TIMES.":2010," ONCE.""-" -YOU MISSED THE DENOMINATOR";:D11D1;"TIMES.":20200-" ONCE.";-835:I- Q1 P_- GCFA(Q) 2070g- Qr-  1670-:GCF;"IS A FACTOR, BUT NOT THE ..."- R1:UPUP1-*I$; P: 50. U-----CHECK FOR HELP REQUEST-----Y Z: UR$UX$195: EXIT TO HELP ROUTINEk _: UF1240z d: UF0:: f-----CHECK DELETE----- i: (UR$)150 n: UR$(UR$,(UR$)1) s: " ";:50 x-----CHECK FOR VALID CHARAC.":850: " O THE BEST OF OUR KNOWLEDGE,"B: " THIS PROGRAM IS IN THE PUBLIC"q: " DOMAIN. F THIS IS NOT THE CASE": " PLEASE CONTACT:": " OMMODORE USINESS ACHINES": " 3370 HARMROGRAM 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 BERS SUCH AS 54321010551 ARE AWKWARD:" TO WRITE AND WORK WITH. T WASf" FOR THIS REASON THAT A BETTER WAY" OF WRITING THEM WAS DEVELOPED." HE METHOD IS SCIENTIFIC NOTATION. 835: 850" O 814 CAN BE -RE-ENABLE STOP KEY AND END----->: (50003)1(50003)160(50003)0399k: UU71:(50003)053281,6:53280,14z: "":: 875:-----STUDENT INSTRUCTIONS-----: "":UT,UL%:(50003)053281,0:53280,0UP0:UGWER. " 0.0052 IS 5.2X(1/1000)8" -3 -3"f" 1/1000 = 10 THUS 0.0052 = 5.2X10v 835: 850" F YOU HAVE TO MOVE THE DECIMAL" TO THE LEFT TO GET A NUMBER BET-" WEEN 1 AND,UU%:(50003)053281,9:53280,8/:81: " MENU"j6: " --------------------------------------";: " 1. SCIENTIFIC NOTATION"@: " 2. STUDENT INSTRUCTIONS"E: " 3. TEACHER INSTRUCTION BAR."" F AT ANY TIME YOU WISH TO RETURN"=" TO THE PRESS 'H' "I: 835`: UZ1UP%:217i: -----TEACHER INSTRUCTIONS-----: "":UT,UL%:(50003)053281,2:53280,10: UP0:UG$"EACHER NST: UZ1:UV%(UT): 300UUZ0:US$UJ$:UG$UK$:UPUJ:ULUK:(50003)053281,6:53280,14: "";:UT,UV%:UQUB(U2%256U1%U3%3): UQ,UQ%(UQUB):: U1,U1%: U2,U2%: U4,U4%: U3,U3%1: 35: UD% 16901050,UG$"UMMARY":UP0:UH1:850:"UT OF";C;"PROBLEMS,"?," -YOU MISSED THE Y/N PART";:FL1F1;"TIMES.":1990M," ONCE."," -YOU MISSED THE ...";:G11G1;"TIMES.":2000," ONCE."," -YOU MISSED THE NUMERATTERS----- }: (US$)0150* : US1(US$)F : UI$(US$,US,1)O : _ : UI$"":} -----STANDARD INPUT----- : (UI$)46 : UI$(32) : (UI$)48 (UI$)57170 : : (UI$)65 (UI$)90180ACY VE. : " GINCOURT, NTARIO"0: " ANADA 1 24"S: " (416) 499-4292"iUP1: 835: 850:" ROGRAM AME: CIENTIFIC OTATION"" RITTEN Y : . . RAY"" PGRADED Y : NPUT SECTION-----" (: UR$"":UI$""6 *: UL0UL80C -: UC,0Z 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: U "UU71  ** T I T L E P A G E **I""";:UT,UU%:(50003)053280,14:53281,6_$I138:"";:w&I122:"";:(I137:"";:*I122:"";:," ." " REDUCES THE FRACTION STEP BY STEP."D835)NUZ1UP%:217/WUX ** PROGRAM MODIFICATION INST **fY"":UT,UL%]UH1:UP0:UG$"ROGRAM OD":850b" HE RANGE OF VALUES USED IS REGULATED"g" IN LINES 1380 AND 1390 129,3"UU48: DISABLE STOP KEY"800: TITLE#300: MENU?#"THE PGM WILL NOT WORK ON THIS MACHINE!":t#UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **#"";::(50003)053281,6:53280,14#UT,UL%:UG$"UESTION #"#UP0:C $""H$(X)$F$""D$(Z) %G$""(Y)"%850:E$:F$:G$4% P11 1630?% 1480F%PL%Y%K(A2)j% K1 1340~% N K 2 1% (AN)AN (BN)BN 1310%  N% 1340%PP1%(62  ** BASIC 2.0 OR 4.0 OR C-64 SETUP **=!1075,133:1076,144:1077,234:1079,4:1080,133:1081,145s!1091,155:1098,133:1099,144:1100,234:1103,133!1104,145:1105,234:1082,234!(50003)160955!1093,88:1094,228:1097,85" AN YOU REDUCE THIS FRACTION ? "; 'US$"YNH":35:A$UR$%' A$"Y" P0 1630?' A$"Y" P0 1560Y' A$"N" P0 1580t' A$"N" P0 1610' 1480':" RONG!! OOK AGAIN!!"'"F1F11: 1480',:" IGH50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198-UD$""_UP$" "UT$" Ǡ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** ** SET VARIABLES **G11:1630(M$" IGHT!! "()M$" EDUCE THE NUMERATOR TO ";L)US$"0123456789H":35:NU(UR$)b) NUXGCF 1730)" RONG!! RY AGAIN!":N1N11: 1690)" IGHT!! ")P1W""(UT$UP$,21);(UP$UG$(UP),18)2\" --------------------------------------"A`UH0870ua(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE..:1790*&" IGHT!! "*0 DEN 10 Z$" "+:G$G$" "Z$(DEN)+DG$&+NZ$""<+v GCFA(1) 1940Q+835:JJ1 :P11k+P0:XNUM:YDEN:1420+" ORRECT!!!!!"+835+ C 10 19  0" -2" U4"C O M M O D O R Ex6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE. HE MAXIMUM"l" VALUE IS PRESENTLY '60', BUT THIS CAN"0q" BE CHANGED."9835MUZ1UP%:217Sx ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM0#CC1:"":875#$P0:H$"":J1:R0:P10 $.M$""?$8N$" "Q$BH$(2)""^$LH$(0)""l$VD$(1)""{$`D$(2)""$jD$(3)""$t 1380$~P11 1200$ X9 Y9 H$" "$EA(P)N%2 1290%< P0 1150%F (1).2 1150&P1380&ZX,Y:%&dX(60(1))18&nY(60(1))1I&x XY 1380Z& XY 1380v& X9 Y9 Z2:1440~&Z1& XY 1460&AY:BX: 1470&AX:BY& 1250&M$:1102,228:965!(50003)1990"1093,49:1094,230:1097,46:1102,230:965Y"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:2T!! "'@835: 1950(J:" RONG!! OOK AGAIN!!""(TF1F11: 1480R(^M$" REATEST COMMON FACTOR = ";|(hUL6:US$"0123456789H":35:GCF(UR$)(r GCFA(1) 1680(| 2030(" RONG!! TRY AGAIN!":G1900 ** CHECK FOR 8032 ** "":"": SHIFTED SPACE& (UB40)96700?  ** MEMORY CHECK **S  (0)2000937 "THIS MACHINE DOES NOT HAVE ENOUGH" "MEMORY TO RUN THIS PROGRAM !" UU71  "":(50003)09 NUM10 Y$" ")E$E$" "Y$(NUM):F$F$" = "D$(2)*E$:F$*""(*Y$""V*" EDUCE THE DENOMINATOR TO ";{*US$"0123456789H":35:DEN(UR$)* DENYGCF 1830*" RONG!! RY AGAIN!":D1D11. "u ** SET UP VARIABLES **IUX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048 (70+ 1050,UG$"UMMARY":UP0:UH1:850:"UT OF";C;"PROBLEMS,"?," -YOU MISSED THE Y/N PART";:FL1F1;"TIMES.":1990M," ONCE."," -YOU MISSED THE ...";:G11G1;"TIMES.":2000," ONCE."," -YOU MISSED THE NUMERAT BAR OR WAIT":I0 <A$:A$" "II1:I2508280>T1$"":T2$"":T3$"":T4$"":I09@300UC ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUPU  910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$ UH1: 850$" O ADVANCE FROM ONE QUESTION"M" TO THE NEXT PRESS THE BAR"}"F AT ANY TIME YOU WISH TO RETURN"" TO THE PRESS H "835UZ1UP%:217 ** TEACHER INSTRUCTIONS ** 81,0:53280,0!UH1:UP0:UG$"TUDENT NST":850T" HIS IS A SIMPLE DRILL TO TEST YOUR"z" ABILITY TO REDUCE FRACTIONS."" OU WILL BE GIVEN 10 FRACTIONS TO "" REDUCE, AFTER WHICH THE COMPUTER WILL"" SUMMARIZE YO(VYVX)+" X VALUE =";X;UL$(U)," Y VALUE =";Y;UL$(U)), " VELOCITY V(X) =";VX;UV$(U)K," VELOCITY V(Y) =";VY;UV$(U)n, " ABS. VELOCITY =";VT;UV$(U),*" ELEVATION =";AN57.3;"DEG",4" NEXT ?(Y/N) ";,>US$ 3. TEACHER INSTRUCTIONS"@J" 4. MODIFICATION OF PROGRAM"\O" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-5) ";^UL1:US$"12345":35: INPUT ROUTINE`US$"" cAN(VYVX)+" X VALUE =";X;UL$(U)," Y VALUE =";Y;UL$(U)), " VELOCITY V(X) =";VX;UV$(U)K," VELOCITY V(Y) =";VY;UV$(U)n, " ABS. VELOCITY =";VT;UV$(U),*" ELEVATION =";AN57.3;"DEG",4" NEXT ?(Y/N) ";,>US$: U1,U1% U2,U2% U4,U4%* U3,U3%12 35d UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4) UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL1:35:Y$UR$)bY$"Y"1780)l:900:300*vTHVG(U)(AL):HVTH(AL)G(U)THTH2YYZ*TR(V(AL)(VV(AL)(AL)2G(U)YY))G(U):RVTR(AL)~*850:" VALUES IN EXTREME CASE*" MAX HEIGHT =";H;UL$(U)*" TIME AT MAX HT.="": ** STANDARD INPUT **+ (UI$)46< UI$(32)Y (UI$)48(UI$)57170_ | (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HELP ROUTINE OMMODORE USINESS ACHINES"(" 3370 HARMACY VE.L" GINCOURT, NTARIO"n" ANADA 1 24"" (416) 499-4292"UH1:UP1: 835: 850:" ROGRAM AME: EDUCING RACTIONS" "":UI$"" *UL0UL80" -UC,06 2UI$:UI$""50` 7UI$(13)(UR$)1UC,1:" ";:85s <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++ ZUR$ "":UT,UL%:(50003)053281,2:53280,10;UH1:UP0:UG$"EACHER NST":850i" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" UR RESULTS." 835:UH1:850:" IRST, YOU WILL HAVE TO FIGURE"g" OUT THE GREATEST COMMON FACTOR. OR"" THIS YOU MAY NEED PAPER AND A PENCIL."" OU WON'T BE WORKING WITH NUMBERS ANY"" LARGER THAN 60" 835 835:UH1:850(" Ǡ IS A PROGRAM "R" DESIGNED AS A DRILL ON FRACTION "" REDUCTION. HE STUDENT IS REQUIRED TO"" CALCULATE THE GREATEST COMMON MULTIPLE"" OF NUMERATOR AND DENOMINATOR. E THEN"(UR$)1000,400,500,600,396h300; ** RE-ENABLE STOP KEY AND END **j(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)0532"YNH":UL1:35:Y$UR$,HY$"Y"1990,R,\ UNIT >>,a850<-f" PROJECTILE MOTION":" SELECTION OF UNIT OF MEASUREMENT:m-p" 1. METERS-SECONDS"::" 2. FEET-SECONDS"-z" YOUR CHOICE? ";-US$"12H":UL1:35:U$UR$-U(U$): , ** MENU **-:?."":UT,UU%:(50003)053281,9:53280,8E/:b1" MENU"6" --------------------------------------";" 1. BEGIN REDUCING FRACTIONS"@" 2. STUDENT INSTRUCTIONS"E"";TH;"SEC"*" MAX RANGE =";R;UL$(U) +" TIME AT MAX RN.=";TR;"SEC"+6+850:" INSTANTANEOUS POSITION"m+" INPUT TIME (SEC): ";:US$"":UL10:35:T(UR$)+XX(T):YY(T)+VXV(AL):VYV(AL)9.8T+VT(VXVXVYVY): EXIT +++ 250 2452 UQUB(U2%256U1%U3%2)N UQ%(UQUB)(UQ)::""a UZ1:UV%(UT)j 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK:(50003)053281,6:53280,14 UT$UL$:"";:UT,UV%:UQUB(U2%256U1%U3%3) UQ,UQ%(UQUB) RITTEN Y : OUGLAS EINLEN&" PGRADED Y : EIL UNTQ" HIS PROGRAM WILL RUN ON ANYx" à2.0 " 4.0 Ԡ" 8032 " 64 UX$195: EXIT TO HELP ROUTINE* _UF12407 dUF0::P f ++ CHECK DELETE ++a i(UR$)150y nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1) UI$ 900 ** CHECK FOR 8032 **"":"": SHIFTED SPACE-(UB40)96700F ** MEMORY CHECK **Z (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !"UU71"":(50003)0 .. "u ** SET UP VARIABLES **PUX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048 QL,22Y0::X1;32)X2%"%, <<< PLOT GRAPHS&6T.05 :KX(X2X1)35:KY(Y2Y1)201&@XX(T):YY(T)E&JXX1XX21650Y&TYY1YY21650{&^I((XX1)KX):J((YY1)KY)&hPAI40J:P,81&r"T(SEC)="(T1000)100017)"PRESS ANY KEY E BAR OR WAIT":I0<A$:A$" "II1:I2508287>T1$"":T2$"":T3$"":T4$"":I0@@300\C ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUP ";:US$"0123456789-H":UL20:35:X2(UR$),$Z" MIN OF Y? ";:US$"0123456789-H":UL20:35:Y1(UR$)g$d" MAX OF Y? ";:US$"0123456789-H":UL20:35:Y2(UR$)m$n$x <<< DRAW AXES$"":A3368832768UM$X10X201440$QL,22::19)Y1 "UU71  ** T I T L E P A G E **P""";:UT,UU%:(50003)053280,14:53281,6f$I138:"";:~&I122:"";:(I137:"";:*I122:"";:," ." -Y BOUNDS!`1400: <<< DRAW AXES "j1580: <<< PLOT GRAPHS"tY$"N"#"~1110,"8502"H" X(T)VT(AL)k"Y(T)VT(AL)G(U)2TTYYq"" <<< DEFINE FUNCTIONS"850" WIPE OUT""";"I1N"J140" PGRADED Y : (" HIS PROGRAM WILL RUN ON ANYO" à2.0 v" 4.0 Ԡ" 8032 " 64  835NUZ1UP%:217WX 2129,3UU48: DISABLE STOP KEY 800: TITLE 300: MENUF "THE PGM WILL NOT WORK ON THIS MACHINE!":{ UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE ** "";::(50003)053281,6:53280,14 :900 UT$" PROJECTILE PLOT" 5:YY(UR$)'" INPUT INITIAL VELOCITY (";UV$(U);") ";(US$"":UL5:35:V(UR$)A(" INPUT ANGLE OF ELEVATION (DEG) ";_(US$"":UL5:35:AL(UR$)p(ALAL0.0174z(1180(850:" SELECTION MODE"(" 1. PLOT PROJECTILE"(" 2. 962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **D1075,133:1076,144:1077,234:1079,4:1080,133:1081,145z1091,155:1098,133:1099,144:1100,234:1103,1331104,145:1105,234:1082,234(50003)1609551093,88:1094,228:1097,8 (50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO1984UD$""fUP$" "UT$" ROJECTILE LOT": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** ** SET VARIABLES ** TO STOP"&|Y$:Y$""1680&TTDT:1600'"";17)"AGAIN (Y/N)? ";?'US$"":UL1:35:Y$UR$:Y$""1690E'O'2140{'850:" PROGRAM FOR PROJECTILE MOTION"'" INPUT INITIAL HEIGHT (";UL$(U);") ";'US$"":UL5:3 UP1 W""(UT$UP$,21);(UP$UG$(UP),18)9\" --------------------------------------"H`UH0870|a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE. :QL,2::19)Y2:1490$X0(X1(X2X1)35):PAX0%I020%P40I,93%IC%QL,22::X0)Y1:QL,2::X0)Y2Y%Y10Y201510x%QL,12::X1;32)X2;:1570%Y0(Y1(Y2Y1)20)%PA40Y0%I035%PI,64%I%   0" 42" \4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPAC " ";:J::I""";" " <<< X-Y BOUNDS#850G#(" INCREMENT OF T (RADIANS)? ";:US$"":UL20:35:DT(UR$)U#2Y$"N"{#<:" LOWER & UPPER BOUNDS : ":#F" MIN OF X? ";:US$"0123456789-H":UL20:35:X1(UR$)#P" MAX OF X?  ** PROGRAM MODIFICATION INST **Y"":UT,UL%7]UP0:UG$"ROGRAM OD":850@835TUZ1UP%:217Z ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM   PROJECTILE  WONG HANG 80! COLUMBIA COLLEGE(! 1619 W10 AVE VANCOUVER BCu!$UL$(1)"M.":UL$(2)"FT.":UV$(1)"M/SEC":UV$(2)"FT/SEC":G(1)9.8:G(2)32!.QLU4!81710: <<< CHOICE!B1180!LA3368832768UM:850!V1300: <<< X FIND VALUES IN EXTREME CASE")" 3. FOR INSTANTANEOUS POSITION "#)" 4. RETURN TO MAIN MENU"@)&" YOUR SELECTION? ";`)0US$"1234H":UL1:35:S$UR$v):S(S$):S4300)DS1110,1910,1990)N" NEXT MODE ?(Y/N) ";)XUS$"YNH":UL 5: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,212106,3:2115,145:2117,52:2118,234:2121,49:2122,1412123,20:2124,3:2126,234:2127,141:2128,21:  910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$ "-4->-H""-R CH 4 2180.\DIST 4 CH.fDO 16.p"";(.z 2310<. CH 8 2230N.DIST 8 CHZ.DO 13i."";t. 2310. CH 12 2280.DIST 12 CH.DO 10." UDENT NST":850-" HIS PROGRAM PLOTS PROJECTILE MOTION."]" OU ARE ABLE TO WORK IN FEET OR METRES"" PER SECOND. OU MAY ALSO CHOOSE THE"" THE INITIAL HEIGHT, VELOCITY, AND ANGLE";" OF ELEVATION."" HE PROGRAM WIL OLICE OFFICER."+X"THE ROBBERS STOLE THE TOWN"+b2015+l,v R1 8 1950?,"BETTER LUCK NEXT TIME, THE ROBBERS STOLE"k,"MOST OF THE VALUABLES IN YOUR TOWN."u,2015, R1 16 1990,"YOU'RE NOT A BAD COP, YOU CAUGHT MORE  3. TEACHER INSTRUCTIONS",O" 4. QUIT"[T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,400,500,396h300 ** RE-ENAB )r: N1 ((1)RANGE) LO)|: N1LO 1650 *:N2 ((1)RANGE) LO$*: N2N1 16707*: N1;"-"; N2w* "THE ANSWER: ";:US$"H0123456789":UL5:35:ANSWER(UR$)*TTAL TTAL 1*: ANSWERN1N2 1740*: 1800*: : U1,U1% U2,U2% U4,U4%* U3,U3%12 35d UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4) UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL "' ("1234"1("5678"X(""91011 12"(,"13141516"(6"WHAT IS YOUR CHOICE ";:US$"H0123456789 "": ** STANDARD INPUT **+ (UI$)46< UI$(32)Y (UI$)48(UI$)57170_ | (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HELP ROUTINE UT$" ROJECTILE LOT":UP0:UG$"EACHER NST":850M" O THE BEST OF OUR KNOWLEDGE,"v" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES "":UI$"" *UL0UL80" -UC,06 2UI$:UI$""50` 7UI$(13)(UR$)1UC,1:" ";:85s <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++ ZUR$";. 2310.DIST 16 CH.DO 7."";/ DIST 3 QQ 1(/ DIST 2 QQ 9A/ DIST 1 QQ 17Z/$ DIST 0 QQ 25i/. QQ)W0RD$z/8 D 1 DO/B "";/L /V /` -*" L PLOT THE MOTION WITH"1" YOUR CHOICE OF AXES. HE EXTREME OR"^" INSTANTANEOUS POSITIONS CAN ALSO BE"s" DETERMINED."|835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10 ,"ROBBERS THAN YOU LET ESCAPE.,2015 -"GREAT!!! YOU CAUGHT ALL OF THE6-"ROBBERS. I WOULDN'T MIND LIVING INI-"YOUR TOWN."R-835X-j- GET ROUTINEs-835-""-  ZQ 1 8-*" LE STOP KEY AND END **5(50003)1(50003)160(50003)0399_UU71:(50003)053281,6:53280,14k"":v875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0UT$" ROJECTILE LOT":UP0:UG$"T "CORRECT ANSWER"*W0RD$" COPS "* 2120* 2030+:R1R11+: 1840,+:"SORRY, WRONG ANSWER!"?+W0RD$"ROBBER"J+ 2120U+& 2030l+0 TTAL 16 1590+:"";+D R1 0 1910+N"YOU'RE NOT A VERY GOOD P  , ** MENU **-:?."":UT,UU%:(50003)053281,9:53280,8E/:b1" MENU"6" --------------------------------------";" 1. BEGIN PROJECTILE PLOT"@" 2. STUDENT INSTRUCTIONS"E" ":UL2(;35:CH$UR$)@ CH$ "" " ": 1590')JCH (CH$)i)TCH0CH16" ":1590w)^ PROCESS)h" ")m: RANGE HI LO 1  EXIT +++ 250 2452 UQUB(U2%256U1%U3%2)N UQ%(UQUB)(UQ)::""a UZ1:UV%(UT)j 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK:(50003)053281,6:53280,14 UT$UL$:"";:UT,UV%:UQUB(U2%256U1%U3%3) UQ,UQ%(UQUB) " " 3370 HARMACY VE.0" GINCOURT, NTARIO"R" ANADA 1 24"r" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: ROJECTILE LOT" RITTEN Y : ONG ANG " UX$195: EXIT TO HELP ROUTINE* _UF12407 dUF0::P f ++ CHECK DELETE ++a i(UR$)150y nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1) UI$ :UG$"EACHER NST":850," O THE BEST OF OUR KNOWLEDGE,"U" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMA TRACTION"" QUESTION. "4" O WIN YOU MUST COMPLETE THE "m" SQUARE TRYING TO SAVE THE TOWN FROM":" CRIME."" OOD LUCK IN PREVENTING CRIME."835:UP1:UH1850" OTE:O ADVANCE FROM ONE QUESTION" 4);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844N9R ** PAGE DESIGN ROUTINE **ETUPUP1oW""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870a(UD$,24);(UP$,7);"HELP - PRES :UP%1146:UM32768:UO158: 50003,06 (50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048u (50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198 UD$"" UP$" "! "";:(I137:"";:*I122:"";:8," Z."  {0" 2" 4"C O M M O D O R E6" 0)2000937""THIS MACHINE DOES NOT HAVE ENOUGH")""MEMORY TO RUN THIS PROGRAM !"4"UU71:"T""":(50003)0962" ** BASIC 2.0 OR 4.0 OR C-64 SETUP **"1075,133:1076,144:1077,234:1079,4:1080,133:1081,145"109 RS YOU HAVE AN ERROR AS YOUR LOW"-i" VALUE IS GREATER THAN YOUR HIGH VALUE."Zj" O YOU WANT TO WORK WITH NEGATIVE "k" ANSWERS? ";:US$"YN":UL1:35l UR$"Y" 660m605835UZ1UP%:217 ** TO USE 8032 LOAD ,8:2104,141:2105,21$2106,3:2115,145:2117,52:2118,234:2121,49:2122,141S$2123,20:2124,3:2126,234:2127,141:2128,21:2129,3q$UU48: DISABLE STOP KEY$800: TITLE$300: MENU$"THE PGM WILL NOT WORK ON THIS MACHINE!":$ ICATION INST **Y"":UT,UL%%]UH1:UP0:UG$"ROGRAM OD":850Q_" ODIFICATIONS OF THIS PROGRAM ARE "z`" LIMITED TO CHANGING THE RANGE OFa" VALUES USED IN THE QUESTIONS. HE "b" CURRENT VALUES ARE: "HI" AND":" "LO"."  COPS AND ROBBERS"%L J 1 100%V&`" "%&j J 1 100+&t1&~:&""I& I1 22k&" CRIME GAME"}& J 1 100&&" "& J 1 100& CY VE." GINCOURT, NTARIO"1" ANADA 1 24"Q" (416) 499-4292"lUP1: 835:UH1: 850:" ROGRAM AME: OLICE UBTRACTION" RITTEN Y : EBBY ABICZ" PGRADED Y : " TO THE NEXT PRESS THE BAR"@" F AT ANY TIME YOU WISH TO RETURN"d" TO THE PRESS H "m835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UH1:UP0 S H "fUH0:"":k ** PLEASE WAIT REMARK **Gp(UD$,24);" ONE MOMENT PLEASE... "Muj ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14 UT$" .": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***!9! ** SET VARIABLES **B!900T!HI1000:LO50Z!:u! ** CHECK FOR 8032 **!"":"": SHIFTED SPACE!(UB40)96700! ** MEMORY CHECK **! ( EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **V;(UD$,24);"PRESS SPACE BAR OR WAIT":I0x<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRESS **HUO,0:(UD$,2 1,155:1098,133:1099,144:1100,234:1103,133#1104,145:1105,234:1082,2340#(50003)160955_#1093,88:1094,228:1097,85:1102,228:965t#(50003)1990#1093,49:1094,230:1097,46:1102,230:965#2099,141:2100,20:2101,3:2103 CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 P" LOAD THE 'CBM 4032' PROGRAM"[UU71a  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122: UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **#%"";::(50003)053281,6:53280,63%R10:TTAL0K% SPRING ASSIGNMENT\% CRIME GAMEb%:z% DEBBY BABICZ, 12E% MARCH 5, 1982%$ START%.""%8 I1 22%B" &c" HAT IS TO BE THE NEW HIGH VALUE? ";:US$"0123456789":UL5:35jdHI(UR$):" HAT IS TO BE THE NEW LOW VALUE? ";:35:LO(UR$)~e HI LO 660fUG$"MOD ERROR":UP1:UH1:850g" NLESS YOU ARE LOOKING FOR NEGATIVE"h" ANSWE &&" THE HIGHEST VALUE IS ";HI'" THE LOWEST VALUE IS ";LO'835.'"CHOOSE SQUARE.W'""b'A14'" "'" "'"̤  " HIS PROGRAM WILL RUN ON ANY8" à2.0 _" 4.0 Ԡ" 8032 " 64  835NUZ1UP%:217WX ** PROGRAM MODIF-  ""!"STUPID PROGRAM.")30  910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **: ** TO OUR BEST KNOWLEDGE THIS  PR UT SECTION +++" (UO,0:UR$"":UI$""2 *UL0UL80< -UC,0P 2UI$:UI$""50z 7UI$(13)(UR$)1UC,1:" ";:85 <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK F "*",8.5:6:CN:15:2: ***TITLE SCREEN***2:"";:53280,3:53281,63: I1 38:"";:/3: I1 22:"";:H3: I1 37:"";:a3: I1 22:"";:j3:""3:"THE DEVELOPING DATA BASE(C)19813:" ":2.5:6:CN:15:2: ***TITLE SCREEN***2:"";:53280,3:53281,63: I1 38:"";:/3: I1 22:"";:H3: I1 37:"";:a3: I1 22:"";:j3:""3:"THE DEVELOPING DATA BASE(C)19813:" 0<("HOW MANY";T:T1T99"OUT OF RANGE.":103000F(A$(T):T10A$" "A$1P(F$(NF)F$(NF)A$:JJ3$1Z(10380@1n("STRING:";A$:A$A$"!"g1x((A$)J255NFNF1:J0:F$(NF)""1(F$(NF)F$(NF)A$:JJ(A$)1(J252NFNF1:J0:F$(NF)""1( 0040.j'.t'"FORMAT NAME:";A$.~'5500.'6,8,6,"0:"A$".FMT,S,R"/'5500/'6,NF2/'J0NF:781,6:896:F$(J)V$:9/'6?/'c/'"FORMAT NOT FOUND":11000:200y/'NF0:J0:F$(0)""/'"":"START IN THE UPPER LEFT CORNER AND WORK ACR  BS2AS1:J7, 8345, BS1AS2:J7, J, AS0BS18355 - AS18380- DS01700.- SB33300>- SB35000N- SB46000^- RS1I3I2f- I3- :"THAT'S ALL":11000:- -'# ERROR SUBROUTINE #1............-(# (US$,US,1)  UI$"":4 ** STANDARD INPUT **E (UI$)46V UI$(32)s (UI$)48(UI$)57170y (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": %U3%3)UQ,UQ%(UQUB):U1,U1%)U2,U2%5U4,U4%CU3,U3%1K35}UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):(UD$,24);"  HELP COMING ":U1%(U1):U2%(U2):U3%(U3):U4%(U4) UJ$US$:U TUDENT INSTRUCTIONS".E" 3. TEACHER INSTRUCTIONS"[J" 4. MODIFICATION OF PROGRAM"wO" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-5) ";^UL1:US$"12345":35: I 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 OR HELP REQUEST +++5 ZUR$UX$195: EXIT TO HELP ROUTINED _UF1240Q dUF0::j f ++ CHECK DELETE ++{ i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$ "":UT,UL%:(50003)053281,0:53280,0<UH1:UP0:UG$"TUDENT NST":850m" RIME GAME IS A GAME WHERE COPS "" AND ROBBERS ARE IN BATTLE TO TAKE"" OVER THE SQUARE, YOU BEING THE COP"" MUST CORRECTLY ANSWER THE SUB 3: 19)"BY3: 12)"MARK PELCZARSKI4; 11)"ENHANCED 1983, BY#4; 12)"ROBERT STEINBERGJ4; 9) "ADAPTED FOR C64,1983, BYd4$; 14)"BRIAN SCHOTT"y4.; O1 5000::41,8,15:1,"S0:DBASE":14"DBASE",8: 102201("FORMAT NAME:";A$1(55001(6,8,6,"@0:"A$".FMT,S,W"1(5500(2(6,(NF)(13);:J0NF:6,F$(J)(13);:52(5500:6;2(h2(PRINT"DISC ERROR":GOSUB11000:GOSUB10400}2*A$:A$""110002+2\+F$2f+2+" OSS EACH LINE."0'"1:HEADING, 2:ITEM, 3:TAB, 4:NEXT LINE, 5:STRING, 6:END":J10'J11J161022040(F$(NF)F$(NF)(J1):JJ2`0 (J110260,10260,10300,10300,10350,10400~0(T0NH:T1;") ";H$(T):0("WHICH";T:TT1:T0TNH102700((10310 "THERE'S NO DATA IN MEMORY."-2#I11000:.' PRINT FORMATTING VERS.1.........'F$(0)""100409.'"SAME FORMAT?";:11000:G.$'A$"Y"Z..'A$"N"10010.8'"(L) LOAD FORMAT, OR (C) CREATE FORMAT";:11000:.B'A$"C"10200.L'A$"L"1  UF1: +++ HELP ROUTINE EXIT +++$ 250- 245L UQUB(U2%256U1%U3%2)h UQ%(UQUB)(UQ)::""{ UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK:(50003)053281,6:53280,6 UT$UL$:"";:UT,UV%:UQUB(U2%256U1 K$UG$:UL$UT$:UJUP:UKUL#, ** MENU **)-:X."":UT,UU%:(50003)053281,9:53280,8^/:{1" MENU"6" --------------------------------------";" 1. BEGIN COPS & ROBBERS SUBT."@" 2. S NPUT ROUTINE`US$""&c(UR$)1000,400,500,600,396/h300V ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS ** I%I1T1NI%I;" ";I1%A7130,7140 &I$(I1)I$(T)TI1&7145-&I$(I1)I$(T)TI15&I1C&TI7180e&T$I$(T):I$(T)I$(I):I$(I)T$&J1P%(T):P%(T)P%(I):P%(I)J1& I& SS0:&? SEARCH SUBROUTINE VERS.2.......& LETE THIS RECORD? ";#11000:A$"Y"A$"N"6070$A$:A$"N"6150$RP%(I)($58005$LKP%(I)D$I1I1NIh$I$(I11)I$(I1):P%(I11)P%(I1)p$I1$NINI1:SS0:II1$$WSORT SUBROUTINE V.1.............$XNI19000: READ 1 FIELD *! **************************"5330+"15,"P"(CN)(R1)(R2)(1B%(CH))5"5270;":^"D ****************************"I * FDD BLOCK READ 1ST FIELD *"L ****************************"N5330"X15,"P"(CN)(R1)(R2) R1R1R20 R1255R2(R1256):R1R1256R2 ,  ***********************J  * FDD BLOCK READ *h  ***********************r "5330 ,K$"P"(CN)(R1)(R2) 65270 @FI0NH J15,K$(1B%(FI)) T781,CN:896: *Q * FDD BLOCK WRITE *R ***********************Z53308dK$"P"(CN)(R1)(R2)EnFI0NH[s15,K$(1B%(FI))xCN,TT$(FI);(X$,B%(FI1)B%(FI)(TT$(FI))1);(13);:5270 *********************** * ERR (TT$(J),T) CHANGE SUBROUTINE VERS.2.......Z:"(C) CHANGE ITEM, (K) KEEP ITEM, OR":"(R) KEEP REMAINDER OF RECORD"o:"RECORD ";I1CS1:RS0:J0NH:H$(J);" : ";TT$(J);" ";RS1:509011000:A$"C"A$"K"A$ :N1J22N::<B$"":3960FJ(F$(T))TT1:J1 PJ2JGZ(F$(T),J2,2)"!"J2J22:3930edA$(F$(T),J,J2J):JJ22rnB$B$A$xJ(F$(T))TT1:J1}3820B$: ADD SUBROUTINE VERS.2..........SS0:NINI1  PRINT ONE RECORD............... SB24,4:4+ FM3700,3800A SB24:4:3350b SB411000:A$(95)RS1h sPRINT ONE DEFAULT V.1...........t:"RECORD ";I1:~J0NHH$(J),TT$(J)J PRINT O :1300*6 J12DS1*: II11:I3I1I2:II1 +; DS0TT$(CH)I$(I):8255+< 1700#+? AS0:J07<+D C1%(J)1J7:8345W+N C2%(J)8280,8290,8310t+X TT$(C1%(J))C$(J)8330~+] 8340+b TT$(C1%(J))C$(J)8330+d C3$(J)"S"8306+g (C "SEARCH BY E) ENTRY (FAST)":11);"S) STRING (SLOW)")C3$(J):C3$(J)""80920)C3$(J)"E"C3$(J)"S"8091D)JJ1:J78160N)8015j)" ";I:I1INI18100t)II1)C2%(J)1I2I)C2%(J)2I1I:I2I)C2%(J)3I1I)8015 @N119000:&JI10:I2NI:J0:C1%(0)1:BS1'O"":"SEARCH CRITERIA:":-'T" 0 ) RECORD NUMBER"L'^I0NH:I1;") ";H$(I):Ib'c:NH2;") BEGIN"'h11200:"":"SELECT : ";I:I0INH28040'mINH2C1%(J)1:8150'rC1%(J)I1' $b:J0NH$l"(";J1;") ";H$(J)$vJ%"SORT ON WHICH HEADING";J1%J1J111%J10J1NHI%J1CHCHJ1:1300z%"[(A) ASCENDING, OR (D) DESCENDING?":11000%A$"A"A1:7100%A$"D"A2:7100%7060%I0NI1%T (1)"l5270"# *****************************%# * FDD BLOCK WRITE 1ST FIELD *I# *****************************S#5330r#15,"P"(CN)(R1)(R2)(1)#CN,(LK);(13);#5270##o DELETE SUBROUTINE VERS.2.......#p:"DE TT$(FI)(V$,(142)) h r !| ************************! * ERROR CHECK *H! ***********************]!15,EN,EM$,ET,ESi!EN0!"ERROR STATUS:";EN;EM$;ET;ES!12000:! **************************! * FDD BLOCK OR CHECK * ***********************15,EN,EM$,ET,ES#EN20MEN50"ERROR STATUS:";EN;EM$;ET;ESbEN5012000:h *************************** * SET HIGH & LOW RECORD # * *************************** "R"5060A$:A$"K"5090 A$"R"RS1:50904500CS0%J.RS0h"(M) TO CONTINUE SEARCH":"(E) TO END SEARCH":11000A$"M"A$"E"5097A$"E"RS1CS01800:I$(I)TT$(CH)P ********************** :"RECORD ";NI1:J0NH4500 J"LK1RNI:4080+RLK55700@CN,LKb1800:P%(NI)R:I$(NI)TT$(CH)h INPUT AN ITEM..................TB%(J1)B%(J)1H$(J);:" : ";TT$(J)(TT$(J))TTT$(J) NE FORMAT V.1...........J1:T0:B$""%J1((F$(T),J,2)):JJ2GJ15N((F$(T),J,3)):JJ3mJ13850,3860,3870,3890,3910,3970 A$H$(N):3950A$TT$(N):3950B$(B$,N1):(B$)N1J2(B$)N2:B$B$" ":(39602B$ $(J),1)"*"8340+j T(C$(J))1:(TT$(C1%(J)))T8340,n (TT$(C1%(J)),T)(C$(J),T)8330!,q 8340C,r L1(TT$(C1%(J))):L2(C$(J)){,s J51(L1L21):(TT$(C1%(J)),J5,L2)C$(J)THEM8330,t ,u 8340,v TT$(C1%(J))C$(J)8330, 8340, )J28200)11200:"":"1) ITEM MUST MEET ALL CONDITIONS"=*"2) ITEM MAY MEET ANY CONDITION":A$:A$"1"A$"2"8160J*BS(A$)]* RS0:J1C1%(0)m* DS0:J07* C1%(J)1J7:8240*& J1C1%(J)J12*0 *5 J11J1CHCHJ1 |11200:"":"(1) SMALLER (2) EQUAL (3) LARGER ":11000(A$"1"A$"3"8060$(C2%(J)(A$)k(11200:"OST SEARCHES REQUIRE A 'WILD CARD' * AFTER THE STRING."("":"COMPARED TO : ";:C1%(J)18100(" ";C$(J):C2%(J)28094(  *****ARRAY FOR ALTERNATIVES*****B*"DO YOU WANT A SUMMARY OF THE ALTERNATIVES YOU EXAMINED";AA$V, AA$"N" 900-"";"SUMMARY OF ALTERNATIVES"."ALT","TOTALCOST"," COST/MILE"0 AAA1 XX1AAA,(F(AAA)100)   THE DEVELOPING DATA BASEG COPYRIGHT 1981 MARK PELCZARSKIm SEPT 1982 CREATIVE COMPUTING ENHANCEMENTS BY ROBERT STEINBERG FEB 1983 CREATIVE COMPUTING ADAPTED TO THE C64 BY BRIAN SCHOTT  1041 NORTH HILLS DRI G FOR MAX (255)2 % 160,2,177,45,153,137,0,200,192,6K & 208,246,32,198,255v ' 32,228,255,201,13,240,15,164,142,145 ( 140,200,132,142,196,139,240,4,165,144,240,234,76,204,255 )J896935:X:J,X:TTX:J *T5957 + BUTTER DECATUR,GA 30033 A MARCH 19834 FFD0:FX5:CN2:FP1^ H"**********************"{ J 12)"INSERT DATA DISK" L"**********************" N"TO START PRESS 'S'" PP$:P$"S"80 R CREATE MEANS TO P":1000:200A$"I"1500:200 130B"":"(S) SAVE CURRENT DATA"X"(P) PRINT DATA"l"(A) ADD DATA""(C) CHANGE A RECORD""(D) DELETE A RECORD""(T) SORT"***PRINT"(F) FILENAMES"***PRINT"(N) NEW DATA FILE"00 A$"Q"A$"N"500200 SS1530*2000512000HA$"N":100N&TXz LOAD SUBROUTINE VERS.1........."FILENAME";:F$55005,8,5,"0:"F$".HDG,S,R"55005,NH,NI,MX,LKjH$(NH),B%(NH1),P%(MP%(I):5600(CN,I$(I) 2<7 INITIALIZE SUBROUTINE VERS.1...W"GIVE YOUR FILE A NAME";_F$j12000"HOW MANY HEADINGS ";NHNH11520NHNH1:NI1:LK1H$(NH),B%(NH1),TT$(NH):B%(0)0" I0NH,"HEA0)2000)(J2)) hP%(MX),I$(MX)r|SS0:A READ RECORD I INTO TT$.........O:RP%(I)`FORJ1=0TONH|PRINTREM;R;",B";B%(J1)INPUTTT$(J1) NEXT5400: WRITE RECORD R FROM T$.........:FORJ1=0TONH;R5,(B%(NH1))(13); NI12270.I0NI:5,(P%(I))(13);:55@SS1:^"DISK ERROR":11000:200 PRINT SUBROUTINE VERS.4........ NI19000: "(S) SELECT FORMAT, OR (D) DEFAULT";:11000: A$"S"10000:FM2 ***BORDER 1***"" T$"":U$"":V$"":S$""( V1 39:T$;: V:"J V1 15:U$;37)V$: V:"e V1 39:S$;:V:"k4*****BOARDER 2******5""6T$"":U$"":V$"":S$""8 V1 39:T$;: V:":100: 30)""(G(AAA)1000)10002 AAA 3""84"ALT"," MO PMT "," FINC CHG "I5 AAA1 XX6AAA,(PT(AAA)100)100:30)""(FC(AAA)100)1007 AAA8"":"THE USEFULNESS OF THE ABOVE DEPENDS ON";"KNOWING THEVE, DECATUR, GEORGIA, 30033*  APRIL 19836  15000[  ** STRING THING (UNIVERSAL) **  ** JIM BUTTERFIELD ** STRING MUST BE FIRST VARIABLE !V$"ABCDEFGHIJKLMNOPQ" "V$V$V$V$V$V$ #V$V$V$V$ $ ABOVE SETS STRINFIELD'S ROUTINE/ , HAS BEEN ADJUSTED TO CHANGE THES - FILE NUMBER EXTERNALLY WITH Az . POKE781,'FILE"' COMMAND. IT HAS / BEEN IMPLEMENTED ON LINES 5460 0 AND 10150. 1 ******************************** 2 1041 NORTH HILLS DRIVE <AD FIELDS WITH SPACES TX$" "* VI16:X$X$X$1 XIE ZX$X$(X$,126)p iC$(7),C1%(7),C2%(7),F$(5),C3$(7):CH0 n"":"(L) LOAD A PREVIOUSLY SAVED DATA SET?" x"(I) CREATE A NEW DATA SET?"; 11000:A$A$"L"12000:15,8,15,"I0""(Q) QUIT"2':NI1;" RECORDS, ROOM FOR ";MXNI1;" MORE"C,11000:A$:Z@A$"S"2000:200qJA$"P"3000:200TA$"A"4000:200^A$"C"SB3:8000:200hA$"D"SB4:FM1:8000:200rA$"T"7000:200|A$"F"600:2X),TT$(NH),I$(MX)tI0NH:5,H$(I),B%(I):,~5,B%(NH1)<NI11180SI0NI:5,P%(I):Z5jCN,8,CN,F$zNI112201300SS1:"FILE NOT FOUND":11000:110 READ ITEMS UNDER HEADING CH....:I0NIRDING #";I1;:" : ";H$(I)6"MAXIMUM LENGTH : ";J4@B%(I1)B%(I)J1;JImO15,8,15,"I0":CN,8,CN,F$",L,"(1B%(NH1))T"WHICH HEADING IS THE LONGEST ON WHICH YOU WILL SORT?"UJ:JJ1YJ0JNH1620^JB%(J1)B%(J)1:MX(((;",B";B%(J1)PRINTTT$(J1)&NEXT05200:@ WRITE SUBROUTINE VERS.1........X: ONERR GOTO 229015,"S0:"F$".HDG":5,8,5,"0:"F$".HDG,S,W"55005,(NH)","(NI)","(MX)","(LK)(13);I0NH:5,H$(I)","(B%(I))(13);: :3010 A$"D"3005 FM1/ "(S) SCREEN, OR (P) PRINTER";:11000:F A$"P"SB2:3050X A$"S"3010 SB1::"AFTER EACH RECORD ( _ ) WILL RETURN TO" "THE MENU, ANY OTHER KEY CONTINUES." "(PRESS ANY KEY)":11000:8010 V1 22:U$;37)V$: V:" < V1 39:S$;:V:" >? " "p " "v $20M25N29O63XX1I(2).1106:YF3:AF4200 150  PARAMETERS YOU ALTERED!!"A$"CHEVORLET"B$"CAMERO"%C$"1978"0E5865>F5:UL10HG.63RH.78^I35.00jK30000vJ15000L220M25N29O63XX1I(2).1106:YF3:AF4200 150  ?53272,21:53280,1:53281,1: C64 MODS 1983 BY WIMg2000:"": 16)"CAR COST";"""THIS PROGRAM CALCULATES THE ACTUAL""COST OF A CAR IN DOLLARS PER MILE.""PURCHASE AND BUYING ON TIME ARE" "CONSIDERED, Ae13)" 13)"MODIFIED 1983& 17)"BY WIM9 T1 3000:E 100T Jk"4J2);C$(X): Iq,}6 J1M@4(J1));(100T(J)T0.5);J JT4(M));"TOTAL":^"TYPE A FOR ANALYSIS,S FOR SELECTI PARAMETER IS TO BE CHANGED-(LETTER,VALUE)";AA$,BB641&Q1:6009"OK (Y/N)";Q$BQQ0QQ$"Y" bQ$"Y" 205u Q$"Y" 660{"HIWAY MPG";N"USEFUL LIFE";UL****EX AMETER IS TO BE CHANGED-(LETTER,VALUE)";AA$,BB% AA$"E" EBB: AA$"F" FBBP AA$"F" 690e AA$"G" GBBz AA$"H" HBB AA$"I" IBB AA$"K" KBB AA$"J" JBB AA$"L" LBB AA$"O" O..";B$ f "CAR YEAR.........";C$(j "(E)PURCHASE PRICE...";EJl "(F)YEARS OF USE,LIFE";F;ULin "(G)GAS PRICE........";Gp "(H)OIL PRICE........";Hr "(I)TIRE COST........";It "(K)TIRE LIFE........";Kv "(J)MILES/YEAR.......";PV(1(1(1(I(2)12))(YF12)))(I(2)12)<PMT(1PV)AF:FC(12YFPMT)AFKPCHDPNFCQn*****EXPENDIBLES*******A(1)J(O100)(1M)G:**$/YR CITY GASA(2)J((100O)100)GN:**HWY GASQQ(1)(1.01)FGAS(A(1)A(2(FJ))1000)10002"MONTHLY PAYMENT..........$";(PMT100)100c"TOTAL LOAN COST..........$";(FC100)100"TOTAL COSTS (FINANCED)...$";(C(2)100)100"COST PER MILE............$";(C(2)(FJ)1000)1000 700:: "DO % HIWAY MILAGE......";O& "AMOUNT FINANCED..";AFC "YEARS FINANCED...";YFf "FINANCE CHARGE %.";I(2)100"ARE THE ABOVE INPUTS CORRECT-Y/N";Z$ Z$"Y" 600 300 500FC(XX)FC:PT(XX)PMT C(1)EPPCHFC:D(XX)C(RMINATES THE INPUT PHASE OF THE "> "PROGRAM.......HERE IS A SUMMARY!G ZTI^ (TIZ)300 170 "";10);"INPUT PARAMETERS";"" "MANUFACTURER.....";A$ "MODEL............";B$ "CAR YEAR.........";C$ "PURCHASE PRICESTIMATED COST OF OIL PER QUART....";HZ d"WHAT IS YOUR ESTIMATED TIRE COST PER TIRE..";I n"WHAT IS YOUR ESTIMATED NUMBER OF DRIVING MILES PER YEAR...";J x"WHAT IS THE ESTIMATED TIRE LIFE IN MILES...";K! "WHAT IS YOUR ESTIMATED CS ARE FINANCE CHARGES,"A "OIL CONSUMPTION, TIRE & GAS COSTS,"j "MAINTENANCE COSTS, PLANNED USE," "AND USEFUL LIFE." "ARE YOU READY (YES/SAMPLE INPUT=1)";V$  V$"1" 1000  XX1  "WHO IS THE CAR MANUFACT"PARTS..........";PTS:29)""(100(PTSC(2)));"%"K"INSURANCE......";INS:29)""(100(INSC(2)));"%"^ I(2)0 720:"FINANCE CHARGE ";FC:33)""(100(FCC(2)));"%""DEPRECIATION ";DPN:33)""(100(DPNC(2)));"%" PENDABLES DETAIL****)"EXPENDIBLES....";EP:33)""(100(EPC(2)));"%"c"GAS............";GAS:29)""(100(GASC(2)));"%""OIL............";OIL:29)""(100(OILC(2)));"%""TIRES..........";TYR:29)""(100(TYRC(2)));"%"BB AA$"M" MBB AA$"M" 680- AA$"I(2)" I(2)BB.01D AA$"AF" AFBB[ AA$"YF" YFBBrQ1Q0:QQ1666|3000"DO YOU WANT TO CHANGE SOMETHING ELSE? (Y/N)";ZX$:3000 ZX$"Y" 665"WHATJx "(L)INSURANCE COST...";L.y"(M)CITY/HIWAY MILAGE......";M;",";NOz "(O)% HIWAY MILAGE.....";O~|"I(2) % LOAN INTEREST RATE.....";I(2)100} "(AF)AMOUNT FINANCED...";AF~ "(YF)YEARS FINANCED...";YF:Q1 666"WHAT PAR))QQ(1)F OIL(8J6000)H(1.01)FF+TYR(JK)FI44IEPTS3512(1.10)FFQ(INSLFl2EPGASOILPTSINSTYRr5X"***MODIFY PERAMETERS**"`" PARAMETERS"ab "MANUFACTURER.....";A$d "MODEL..........YOU WISH TO MODIFY A PARAMETER";ZZ$& ZZ$"Y" XXXX1: ZZ$"Y" 600D 800a,*DPN & FINANCE COSTS***{8***VALUE DECREASE***:WE:MM0:DPN0;VF11<MM(WUL)1.5>DPNDPNMM:WEDPN@V*****FINANCE COSTS*****1):E(XX)C(1)(FJ):FC(XX)FC9C(2)EPPCH:F(XX)C(2):G(XX)C(2)(FJ)C2100d" COST SUMMARY""";A$;" ";B$;" ";C$ 26)"$";E"TOTAL COSTS(NOT FINANCED)$";(C(1)100)100"COST PER MILE............$";((C(1)...";E "YEARS OF USE,LIFE";F;",";UL9 "GAS PRICE........";GU "OIL PRICE........";Hq "TIRE COST........";I "TIRE LIFE........";K "MILES/YEAR.......";J "INSURANCE COST...";L "MILAGE CITY,HIWAY...";M;",";N  "OST OF COLLISION INSURANCE PER YEAR...";Le "AMOUNT TO BE FINANCED";AF:"YEARS OVER WHICH FINANCED";YF "ESTIMATED INT. RATE APR%....";I(2):I(2)I(2).01 "MPG RATING (CITY,HIWAY)...";M,N "% HIWAY DRIVING....";O "THIS TE URER....";A$5 ( "WHAT IS THE YEAR OF THE CAR....";C$j < "WHAT IS THE PURCHASE COST OF THE CAR....";E F "INPUT THE ESTIMATED YEARS OF (USE,LIFE) ....";F,UL P"WHAT IS YOUR ESTIMATED COST OF GAS IN $/GALLON...";G Z"WHAT IS YOUR E ? 53280,0:53281,0:E31744: C64 MODS BY WIM '83L 1700Vd""x" DECISION MAKER IS IN TWO PARTS,"" ANALYSIS AND SELECTION."" ANALYSIS IS USED TO STUDY"" ALTERNATIVES AND CRITERIA." " SEL J1:14(P1));"";  P: I1 N:XT2(I)5 J1 M:YT1(J)L4(J1));D(X,Y);T Jk"4J2);C$(X): Iq,}6 J1M@4(J1));(100T(J)T0.5);J JT4(M));"TOTAL":^"TYPE A FOR ANALYSIS,S FOR SELECTITHERE ARE NO "$E"PAYMENTS TO TELL ME HOW LONG THE LOAN"PF"LASTS. ENTER THE NUMBER OF INTERVALS"yG"THE LOAN WILL LAST, EVEN IF THERE"H"ARE NO PAYMENTS."I"LETS START OVER":100 *** TITLE PAGE ***"";:53280,1:53 HIS- THERE ARE NO "$E"PAYMENTS TO TELL ME HOW LONG THE LOAN"PF"LASTS. ENTER THE NUMBER OF INTERVALS"yG"THE LOAN WILL LAST, EVEN IF THERE"H"ARE NO PAYMENTS."I"LETS START OVER":100 *** TITLE PAGE ***"";:53280,1:531100)F2(1I1)N (P3BF22Bx"AMOUNT INTEREST PAYMENT BALLOON NUM."t"AMOUNT INTEREST PAYMENT BALLOON NUM."P1;10);I;18);P2;28);B;36);N"IF YOU WANT TO MODIFY A VARIABLE AND ""RERUN, ENTER THE NUMBER O:I(I3I4)2u 1300z 1100 P5(P2F1)P38 (P1.01)P5 915O (P1.01)P5 925Z 1200cI3Im 930vI4I~ J "INTEREST DID NOT CONVERGE" 1200P1(P1$)P2(P2$)N1(N1$)N(N$)I(PECT"V"TO: ";C$(I);""::` J1 M/j5);D$(J): JBt"":::::X~ J1 M: E$(J)qD(I,J)((E$(J),4))S(I)S(I)D(I,J) J I I1 N J1 MT(J)T(J)C(I)D(I,J)T0 T0 C(I)D(I,J) D(ISION IS REQUIRED"> D1$:H;R:"LIST CRITERIA FOR DECISION:"A\Vf I1 10:5);bp C$(I)wz C$(I)"*" 910 INI1""::"RANK 0(BAD) TO 10(GOOD) WITH RESPECT""TO ";D1$;"": I1 N:5);C$(I)(N2N)2)) X I b I1 N) l J1 N IA v B(J)B(J1) 670V BB(J): A$A$(J)t B(J)B(J1):A$(J)A$(J1) B(J1)B:A$(J1)A$  J  I  I1 N  B(I);5);A$(I)  I  220 :"" " SELEYPE * TO END THE LIST."7 6:" WHAT DECISION IS REQUIRED?"@ @ D$d J:"LIST IMPORTANT CRITERIA:":s T I1 10} ^5); h A$(I) r A$(I)"*" 390 | I NI1  I1 N1  JI1 N "" "SELECT THE MOST IMPORTAECTION CHOOSES AMOUNG MULTIPLE"B " ALTERNATIVES AND CRITERIA."y :" EXAMPLE: TO DECIDE ON A WIDGET SUP-" " " PLIER, USE ANALYSIS ON THE CRITERIA:" " VARIETY, QUALITY, AND PRICE. THEN USE" " SELECTION ON: COMPANY A, COMPd J1 M1n C(J)C(J1) 1430(xX C(J):Y T2(J)FC(J)C(J1):T2(J)T2(J1)]C(J1)X:T2(J1)Ye Jm I"";D1$:"": J1 M:YT1(J) P1 J:14(P1));""; P4(J1));D$(Y) J P1 ON."h Z$r Z$"A" 270| Z$"S" 740" 1640(H ** TITLE SCREEN ** BY RGST""m I1 38:"";: I1 22:"";: I1 37:"";: I1 22:"";: 12)"DECISION MAKER 281,1 I1 38:"*";: I1 22:"*";:0 I1 37:"*";:I I1 22:"*";:R""s 11)"LOAN CALCULATIONS 11)" 16)"CODED BY 14)"R L DEMPSEY T1 2500: 10 F THE VARIABLE."J16:J;")";A$(J):J""K"IF YOU HAVE A NEW PROBLEM, ENTER -NEW-."t"TO STOP THE PROGRAM, ENTER -STOP-"Q$: Q$"STOP" 2500Q$"NEW" 99J(Q$):"ENTER ";A$(J);:B$(J)130@"I CAN'T HANDLE TI$)B(B1$)LN01600NN101600/QI1I(N1100)JVF1I1(1(1(1I1)N))P`jP1((P1100).5)100P2((P2100).5)100N(N.5)B((B100).5)100I((I100).5)100 1400N101600I1I(N I,J)(10D(I,J)C(I)S(I).5) J I3 J1 M:T1(J)J:JL I1 N:T2(I)I:IZ  I1 Mj J1 M1 T(J)T(J1) 1350(X T(J):YT1(J)2T(J)T(J1):T1(J)T1(J1)<T(J1)X:T1(J1)YF JP IZ I1 N I"":::: I1 N: F$(I)1C(I)((F$(I),4))9 IB""`: "LIST ALTERNATIVES":o I1 10y5); D$(I) D$(I)"*" 1070$ I.MI18 I1 NB""L:"RANK 0(BAD) TO 10(GOOD) WITH RESCTION"(:" SELECTION CHOOSES AMOUNG MULTIPLE"J"ALTERNATIVES AND CRITERIA."r" THE RANKING USED IS 0 (BAD) TO" "10 (GOOD). BE SURE TO REMEMBER""THIS WITH NEGATIVE CRITERIA." " TYPE * TO END A LIST."*4:"WHAT DECNT WITH" "RESPECT TO ";D$;":"( :::9 "1 ";A$(I)L :"0 ";A$(J)U  B$g  B$"1" 520y  B$"0" 540  480 T(I)T(I)1  550 T(J)T(J)1 & J 0 I :"";D$:::: D I1 N NB(I) (100T(I)( ANY B, AND COMPANY C."E "":" TYPE A FOR ANALYSIS OR S FOR"Z " SELECTION.";c Z$v Z$"S" 740  Z$"A" 240 " ANALYSIS" :" ENTER UP TO TEN ALTERNATIVES." "" DON'T USE PUNCTUATION." ," T0 THEPROGRAM OR RECORDS ON THE DISK."KVJ"DO YOU WISH TO PROCEED? Y/N"K`JM$:M$""19040KjJM$"Y"64738LtJ19005L NJAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DECCCLESTON DRIVE"aJI10)"SUITE #103"zJ I10)"TORONTO, ONT."  "EMPLOYER'S TAXES"#""B( 53280,8: 53281,8: (5)N2:::y<" * * * * * * * * * * * * * * * *"FP"COMPUTER ASSISTANCE FOR COMPLETION OF"Zd" IRS FORM 941 - EMPLOYER'S QUARTERLY"i n" FEDERAL TAX  , MICHIGAN, 49630." @ "THE AUTHOR HAS FOUND IT HELPFUL IN "m "PREPARING IRS FORM 941. DR. MESCH IS" "NOT AN ACCOUNTANT OR TAX ADVISOR AND" ""ASSUMES NO RESPONSIBILITY FOR ERRORS IN" 6"TAX RETURNS. IF FORM 941 IS REVISED OR"!  (5)% "IS THIS THE FIRST QUARTER'S 941,"O  "DUE APRIL 30 ? (ANSWER Y OR N)";F$U j  F$"Y" 510  F$"N" 540  F$"Y" F$"N" 460  "ENTER THE NUMBER OF EMPLOYEES IN THE"  "PAY PERIOD THAT INCLUDES MARCH 12"IABILITY"; D #F"ARE YOU READY TO COMPUTE";R$Y R$"Y" 720m R$"Y" 650zSF.143ZSTP(ST)D"""ENTER THE AMOUNTS INDICATED FOR ""EACH LINE # ON FORM 941"  EE A CHECK". P0 "LINE 16 -> ";(P)"(YOU HAVE A CREDIT"F"FOR THIS AMOUNT)"L{"MAKE SURE YOUR EMPLOYER ID NUMBER IS ON""THE FORM AND DON'T FORGET TO SIGN IT."NDICATED FOR ""EACH LINE # ON FORM 941"  E 0 01/01/85 001 NOT  ASTRO-BIORHYTHM CROSS-REF64ENERGY SAVERINVESTMENT CALC. MARKS-DISK MERGER SORT DEMO  1700. 53280,1:53281,1:53272,21d "*****************LOANS*****************" :"THIS PROGRAM CALCULATES THE AMOUNT OF" "THE LOAN,THE AMOUNT OF EACH PAYMENT,""THE NUMBER OF PAYMENTS, THE YEARLY IN-" "TEREST RAHE"- )"LOAN PARAMETERS TO BE ENTERED,AND WILL"W *"WAIT UNTIL YOU ENTER THE VALUE AND" +"DEPRESS THE -RETURN KEY. FOR THE VALUE" ,"YOU WANT COMPUTED, ENTER A QUESTION" -"MARK(?) AND DEPRESS RETURN. IF THE LOAN" ."IS FULLY AMORTIZED,EPROGRAM; A YES OR Y": 5"WILL CAUSE IT TO ASK FOR NEW DATA. ANY"h 6"OTHER ANSWER WILL CAUSE THE PROGRAM TO" 7"REPEAT ITS QUESTION. ENTER 'HELP' TO" 8"SEE THESE INSTRUCTIONS AGAIN" :"DATA VALUES FOR AMOUNTS SHOULD BE" ;"ENTERED IN DOL40 E ZA$(1)"LOAN AMOUNT OR PROCEEDS"A[A$(2)"ANNUAL INTEREST RATE"f\A$(4)"TOTAL NUMBER OF PAYMENTS"]A$(5)"AMOUNT OF EACH PAYMENT"^A$(6)"AMOUNT OF BALLOON PAYMENTS"_A$(3)"NUMBER OF PAYMENTS PER YEAR"c""d I16:IRETURN" x5 " * * * * * * * * * * * * * * * *"Z 9)"TAX RATE REVISED 1MAY86m 17)"BY RGS X15000: X "" : "THIS PROGRAM WAS WRITTEN IN " "SEPTEMBER 1983 BY DR. JOHN P. MESCH," "P.O. BOX 229, EMPIREJ"THE FICA TAX IS CHANGED, THEN THIS"J ^"PROGRAM WILL HAVE TO BE MODIFIED."P h r"THIS PROGRAM WORKS FOR MOST CASES WHERE" "THERE ARE NO TIPS OR ADJUSTMENTS TO" "BE CONSIDERED."  I110000: I "" 53280,6:53281,6 ;E & "ENTER THE TOTAL WAGES SUBJECT TO"; &"WITHHOLDING";WA 0j :"ENTER TOTAL INCOME TAX WITHHELD";Tp D N"ENTER THE TOTAL FICA WAGES PAID";F S X"ENTER THE TOTAL OF DEPOSITS" l"MADE THIS QUARTER AGAINST THIS"v"TAX L0 "LINE 1 -> ";E "LINE 2 -> ";W-4"LINE 3 -> ";TAH"LINE 5 -> ";Ta\"LINE 6 -> ";F;"AND -> ";Sup"LINE 8 -> ";S"LINE 10 -> ";S"LINE 11 -> ";Z"LINE 13 -> ";Z"LINE 14 -> ";D P0 "LINE 15 -> ";P;"(ENCLOS COMPUTE PAYMENT P2$"0"" 1000#, 130006P4P1P3;@ 1100HJP2P4F1ST 1200oY COMPUTE PRESENT VALUEx^P10r 1000| 1300 1100P4P2F1P1P3P4 1200B0 1000 1100N01600N101600P4P2F1P3P1P4%I1I(N1100)9BP3((1I1)N)D 1200T COMPUTE NjN0: 1000: 1300w0P4P1P3:N(1)((1P4(I(1200P2)))(1(I1200)))D 1200R COMPUTE IWI0:I30:I4200: 1000k J1 25TE, OR THE BALLOON PAYMENT DUE"K "AFTERTHE LAST PAYMENT, WHEN THE OTHER"y "FOUR OF THE ABOVE VALUES ARE SUPPLIED." "" "DO YOU NEED INSTRUCTIONS?"  Q$ (Q$,1)"N"90 40 #90 ("THE PROGRAM WILL ASK FOR EACH OF T NTER ZERO(0) FOR"' /"THE BALLOON PAYMENT."U 0"AFTER ALL VALUES ARE ENTERED, THE UNK-" 1"NOWN WILL BE COMPUTED AND ALL 5 VALUES" 2"WILL BE DISPLAYED. IT WILL THEN ASK IF" 3"YOU HAVE ANOTHER PROBLEM. A NO ANSWER" 4"WILL TERMINATE THE  LARS AND CENTS(147.33)."; <"THE DECIMAL AND TRAILING ZEROS CAN BE"d ="LEFT OFF FOR WHOLE DOLLAR AMOUNTS" >"THE INTEREST RATE IS ENTERED AS THE" ?"NUMBER OF PERCENT PER YEAR(9.75 OR 6) @"ARE YOU READY?" A Q$ C(Q$,1)"Y" D;")";A$(I);:B$(I)nB$(I)"HELP" 40"xI`P1$B$(1):I$B$(2):N1$B$(3):N$B$(4):P2$B$(5):B1$B$(6)s P1$"?" 350 P2$"?" 270I$"?"850N$"?" 520B1$"?" 430"THERES NO ?-- WHAT DO I DO NOW?"100 A* Ol WMISC. #23CK2AAMORTIZN TABLESBALANCEBAR GRAPH CAR COSTCOLUMN CALCDBASE.DCALENDARDECISION MAKERDIALER EMPLR QRTLY TAX LOAN CALCPERSONNEL.HDGPERSONNEL POLICE SUBT(PRIME FACT PROJ-PLOT' R-PLOT%REDUCE FRACTIONS'RENT OR BUYRESULTANTS ROOT FINDER+SC-NOTATION.SIMPLE SUBST* STATISTICS1 STUPID PROGRAM.WORD PROCESSORMENU <53280,1:53281,1:53272,21: C64 MODS 1983 BY WIMU20000:21000:22000xD2$""$B1$" "L" WHAT IS THE NOMINAL INTEREST RATE"`"PER ANNUM (%)";I$: I(I$)100 TO REPAY THE LOAN";K$:K(K$)/ E(1IN)(NP)1O (X((1(1E)(PK))1)ELf <N1X:25000:X$N1$} PN1L:25000:L$N1$ d22000 "":1063,110 I121:"":106340I,93: " T OUTSTANDING"5 |1)"NO. ON DEBT ON PRINC. DEBT "q 0)"":1423,115 I112:4)""10)""10)"" : 2)"0"25) L$ 0)"":1503,115 N1IN:25000:IN$N1$PYNSIN/N1J:27000: 1)N1$;JN1IN:25000: 5)N1$;eN1NS:25000:16)N1$;t33)"NIL"N1INNS:25000X$N1$"":17)"LAST PAY'T:";N1$4000OSNSJPKJ2080 4000 CC40A(A$):A1A24040! A 4100,4200222000:1100?h22000:d NF1$""*NF2$" "4NF3$" ">ND1$""HN"";D1$;:8)F1$RNS15:8)F2$:8)F "]"";:S110:1)C1$:]4aN2(100N1.5)100heN20N21N1$" $"((((N2),2))):26200eN210N1$" $"((N2),2):26200eN2100N1$" $" ((N2),2):26200eN21000N1$" $" ((N2),2):2620010R :NN%100(R.005)f10N%NN%N1$N1$"0"fExiN110N1$" "((N1),2):27100kiN1100N1$" "((N1),2):27100~iN1$((N1),2)iPN1 81274.6954 :N1$((N2),2)8Ǎ25000 ˙"N1:";N1:"N2:";N2:"R:";R:"N%:";N%:"NN%&:WRITTEN BY M.C.HOFHEINZ,8/1/782 700Q 53280,1:53281,1:""y" THIS PROGRAM WILL PRESENT A" BAR GRAPH WITH BAR LENGTHS(" EQUAL TO THE QUANTITIES2" ENTERED. THE SCALE OF THE <" GRAPH I"WHAT IS FIRST QUANTITY";: A+ Z1 280L "WHAT IS SECOND NAME";: B$p "WHAT IS SECOND QUANTITY";: B Z2 280 "WHAT IS THIRD NAME";: C$ "WHAT IS THIRD QUANTITY";: C Z3 280 "WHAT IS FOURTH NAME";: D$  BC BD BE BF NB: 340K , CA CB CD CE CF NC: 340z 6 DA DB DC DE DF ND: 340 @ EA EB EC ED EF NE: 340 JNF T N1 N5 N5: 410 ^ N5 N10 N10: 410 h ' t" WHAT IS THE NUMBER OF INTEREST"K "PERIODS PER ANNUM";N$:N(N$)t " WHAT IS THE NUMBER OF PAYMENTS" "PER ANNUM";P$:P(P$) " WHAT IS THE AMOUNT" "OF THE LOAN ($)";L$:L(L$) "HOW MANY YEARS ARE THERE TO" "":1943,125< 10)"AMORTIZATION TABLE"Y , 8)"INSTALMENT OF ";X$ @1)"PAID";P;"TIMES PER YEAR FOR";K;"YEARS" J1) PK;"PAY'TS" T"":1303,115 h1)"PAY INTEREST PAYMEN OSL:CC0 J(CC1)(CC10)% INOSE> N1IN:25000:IN$N1$J &PYXINc 0N1PY:25000:PY$N1$p :NSOSPY DN1NS:25000:NS$N1$ NN1J:27000: 1)N1$; X 5)IN$; b16)PY$; l29)NS$ vNSX2000 JJ1 :INNSECC10  A$:A$""2980< D2$;:"DO YOU WANT THE TABLE TO CONTINUE?"P A$:A$""3010c A$"Y"4000z 24000:0)"";B1$ "" 1780A$:A$""4000D2$;:"SELECT: 1-START OVER, 2-END PROGRAM"A$:A$""403$:\N8)F2$:8)F1$:D1$"";.fN15)"AMORTIZATION"ApN18)"TABLES"GNYRS13000::U"";:B1$" "VS024:B1$:106340S,32:V"":]C1$"    eN210000N1$" $" ((N2),2):26200>eN2100000N1$" $" ((N2),2):26200ieN21000000N1$"$" ((N2),2):26200|eN1$((N2),2)XfN2(N2)N1$N1$".00" :26300bfN210RN2(N210)10 :26220gfRN2lfN%:";NN%:"N1$:";N1$$ ((N2),2):26200>eN2100000N1$" $" ((N2),2):26200ieN21000000N1$"$" ((N2),2):26200|eN1$((N2),2)XfN2(N2)N1$N1$".00" :26300bfN210RN2(N210)10 :26220gfRN2lfN%S AUTOMATICALLY5 F" ADJUSTED TO SUIT THE VALUES P" ENTERED.THE QUANTITIES MUST BE BETWEEN 1 AND 1000. U T1 7500::"" Z"HOW MANY NAMES WILL THERE BE?"::: d Z: Z0 100 n"WHAT IS FIRST NAME": A$ x "WHAT IS FOURTH QUANTITY";: D( Z4 280H "WHAT IS FIFTH NAME";: E$k "WHAT IS FIFTH QUANTITY";: E{ Z5 280 "WHAT IS SIXTH NAME";: F$ "WHAT IS SIXTH QUANTITY";: F  AB AC AD AE AF NA: 340 " BA  N10 N20 N20: 4101 r N20 N50 N50: 410S | N50 N100 N100: 410u  N100 N500 N500:410  N500 N1000 N1000 "":"0";:5);N5;:11);2N5;  17);3N5;  23);4N5;:29)N " "";: O1 30CN:" ";: O :' Z3 660M&"Y0"";D$:"";: P1 30DN:" ";: P:D Z4 660N"X"";E$b"";: R1 30EN:" ";: R :lƤ 22:"";: I1 37:"";:. I1 22:"";:7""Q 15)"BAR GRAPHf  15)"w 19)"BY  14)"M C HOFHEINZ* T1 3000:4 10 X"";E$b"";: R1 30EN:" ";: R :l ************************************0Q REAL ESTATE: THIS PROGRAMw CALCULATES THE VALUE OF OWNING AS AGAINST RENTING DONATED BY : JAMES C.DOWNER DATE FEB 1980 *********************************** 4 "WHAT DO YOU ESTIMATE THE APPRECIATION TO HAVE BEEN; AG AA100h "WHAT WAS THE DOWN PAYMENT"o D "HOW MANY YEARS,MONTHS DID YOU OWN" Y,M Y(Y12M)12 300 S((1A)Y)(LD) S(S) ,"YOUR SELLING PRICE IS"2Y3) Q2L5I(1Q1)( Q2(Q2100.5)1005 X51Y1O U2(L5I100.5)100\ U3Q2U2r L5L5U3:I6I6U2z X5 I9I6Y "YOUR INTEREST PAID";I6 &"SELECT GROSS INCOME" 0"1. 5000 TO 10,000 :"2. 10,000 TO 15,000Z2$"J"Z22:"JOINT"Z20660*T81 27T91 7BM8,M9SM8,M9,T9,T8pT9Z1T8Z2T1M8:T3M9.04,.23,.1,.28,.17,.33,.24,.39,.32,.42,.4,.46,.48,.49.05,.19,.08,.22,.11,.26,.15,.32,.2,.36,.25,.39,.3,.44T9: "ANNUAL MAINTAENANCE COST"K.C1S.0138"CLOSING COSTS";C1==F.06JBF1S.06aL"REALOR'S FEE";F1"ENTER OTHER SELLING EXPENSES"PC4(FS)P :C3KNEY(C2C3)C1C4:Z GE"IT COST "E"BASED ON SELLING PRICEdD1M1R1>n"THAT FEE IS"D1"LESS THAN YOUR AVERAGE MONTHLY COST OF OWNING"~x"WHAT IS THE HIGHEST % RETURN YOU WOULD EXPECT ON SAVINGS"R3R3R3Y1100D3D(1R3)(4Y)D4D1((1R3)(12Y)1)R3D5D4D3'"AT THE INT F1)((F0F1)(T3Y))@F3F0F1F2DR7=J"RENTING AND INVESTING BROUGHT YOU";Z6mT"OR INTEREST FULLY TAXED";F3;"CASH IN HANDsh: *** TITLE PAGE ***"";: 53280,3: 53281,11 I1 38:"";: I1 22:"";:"";A$B"";: M1 30AN:" ";: M :R Z1 660x""";B$"";: Q1 30BN:" ";: Q: Z2 660""";C$ Z5 660"v"."";F$W"";: S1 30FN:" ";: S : "670 *** TITLE SCREEN ***"";: 53280,15: 53281,15 I1 38:"";: I1  I1 37:"";: I1 22:"";: ""6 14)"RENT OR BUYM  14)"j* 13)"CONTRIBUTED BY4 12)"JAMES C. DOWNER> 13)"MODIFIED,1983H 17)"BY WIMR T1 3000:f"";p I1 38: 2000A 53280,1:53281,1:53272,21: C64 MODS 1983 BY WIMa 2" PROPERTY PROFIT" <"CALCULATES PROFIT FROM REAL ESTATE n"WHAT IS THE SELLING PRICE" sS x"WHAT WAS THE ORIGINAL MORTGAGE }L "YEARS OF LOAN" Y3;S @GS(LD)+ T"CAPITAL GAIN (ORG-SELL)";GX r"NOW WE WILL DETERMINE THE COST TO OWN"m { ROPERTY TAX=1%~ |T2(LD).01 "PROPERTY TAX YEARLY AVERAGE"T2 "INTEREST RATE ON LOAN" I II12100:Y1(Y12):L5L Q11(1I)(1 D"3. 15,000 TO 20,000. N"4. 20,000 TO 25,000J X"5. 25,000 TO 30,000f b"6. 30,000 TO 35,000 l"7. 35,000 TO 40,000 "WHAT GROUP" Z1 "SINGLE OR JOINT RETURN" Z2$:Z2$""670 Z20 Z2$"S"Z21:"SINGLE"T8 T1(T1):C2(C2)K"MARGINAL BENIFIT TAX RATE";T1;"DOLLAR ADDED TAX RATE";T3cH"STATE INCOME TAX"uRT1T1(T1.3)\C2((1T1)I9)((1T1)T2)f"ANNUAL COST OF INTEREST AND TAXES";C2pNS.002:"INSURANCE COST ";NKS.005";S"GROSS SELLING PRICE";G%"NET RETURN IS";ZB "COMPARISON TO RENTING"_2"MONTHLY RENT OF HOUSE"g<R1FM1EY1:R1M11380PD6R1M1QD6(D6)Z"YOU ARE ";D6;"AHEAD BY OWNING"\"AVERAGE MONTHLY COST OF OWNING";M1_ EREST RATE SPECIFIED THE DOWN PAYMENT AND MONTHLY INVESTMENT"E"WOULD HAVE GROWN TO";D5RR7R1Y1"YOUR COST FOR RENT WOULD HAVE BEEN";R7"OWNING & SELLING BROUGHT ";ZD;"CASH IN HAND",Z6D5R76F0D4(D1Y1):F1D3D:F2(F0 L"ADAPTED BY STEVEN DARNOLD, P.O. BOX 201 ALEXANDRA, NEW ZEALANDb53280,6:53281,6 V(15,60),X$(50),V$(15,60):CR$"":CT$" ******* CALCULATING *******" "C O L U M N C A L C U L A T O R":C%1:R%1  11)"V ?":Y0 `AN$:AN$""96< aX18:AN$("VEDZGSMP",X,1)YXm b:Y230,1000,2020,120,702,802,940,12010:10~ xCR$:X115 Y150 V(X,Y)0 Y X "ENTER COLUMN (1 TO 13):";C% C%1C%13"";:190 :"ENTER R T JUMP MENU"; TC$:C$""340F hC$"U"R%R%10:(13);"";:220l |C$"D"R%R%10:(13);"";:220 C$"L"C%C%2:470 C$"R"C%C%2:470 C$"J"190 C$"M"10 340 C%1C%13(13);:190 230 9);"";:z I1 22:"";: I1 37:"";:6 I1 22:"";:?""\ 14)"THIS PROGRAM 5) "COMPARES THE VALUE FROM OWNING 6) "TO THAT OBTAINED FROM RENTING T1 3000: 30$"";: "LOOKING FOR ";FL$1,8,0,(FL$)?"FOUND ";FL$;" .....LOADING"KX112WY149e1,V(X,Y)lYsX #1:"OK.....GOT DATA"I11000:I""WHAT NAME FOR THIS FILE";FL$H1,8,1,(FL$)RX112\Y1490"HOW MANY ROWS (1-50)";K$,K(K$):K50K11040O$:"ROW","CURRENT","COLUMN";CLZ.Y1K8:Y,V(CL,Y),:"";V:V(CL,Y)VBYL"C FOR ANOTHER COLUMN M FOR MENUVD$:D$""1110`D$"C"1000j BASE ROW*" 7 MAKE COLUMN % OF BASE COLUMNC4" 8 SUM INDIVIDUAL COLUMNSg>" 9 SERIES OF CALCULATIONSH" M RETURN TO MENUI"  "WHICH ONE ?"; 198,7:AN$:AN$""3510 AN$"M" (AN$)ILL BE STORED IN ROW"S21 X114V(X,S21)0$X0X114=YS1S2\V(X,S21)V(X,S21)V(X,Y)cYjXpCR$;CT$:"SUM WILL BE STORED IN COLUMN 13Y148V(13,Y)0YY148X112V(13,Y)1)YX :Y7070,7130,7190,7250:7030&"AMOUNT TO ADD";AD:"WHAT COL #";XN"WHAT ROW #";YcV(X,Y)V(X,Y)ADm7999"AMOUNT TO MULTIPLY BY";ML"WHAT COL #";X"WHAT ROW #";YV(X,Y)V(X,Y)ML7999"AMOUN N EACH ROW";AVE#TCR$;CT$:"AVERAGE WILL BE STORED IN COLUMN 14/^Y150CcV(13,Y)08050{hV(14,Y)V(13,Y)AVE:V(14,Y)(V(14,Y)1000.5)1000rY|2#"WHICH IS BASE ROW";BR<#"WHICH IS ROW FOR PERCENTAGES";Y:BRYF#X1IEW COLUMNS"  11)"ENTER DATA@ ( 11)"DO CALCULATIONSZ 2 11)"ZERO MATRIX{ < 11)"GET DATA FROM DISK F 11)"SAVE DATA ON DISK P 11)"MEMORY CHECK U 11)"PRINT DATA ON PRINTER" _"WHAT IS YOUR CHOICE OW (1 TO 31):";R% R%1R%31210. "";:500: "";J YR%R%19T 9);c XC%C%2t X$(V(X,Y)) "10(X$));X$; , 6(13); @ E" "; J"UP DOWN LEFT RIGH I13 " COLUMN"; - (13);9);< &IC%C%2P 0S%7:I10S%8h :S%);"";(I);"";n Dz N(13); XIR%R%19 bS$"":I10S$" " l2);"ROW"S$(I);"" v  "WHAT IS NAME OF FILE YOU WANT";FL$13_#V(X,BR)09075,d#V(X,Y)V(X,Y)V(X,BR):V(X,Y)(V(X,Y)10000.5)1003s#X9x#Y'"WHICH IS BASE COLUMN";CX$'"WHICH IS COLUMN FOR PERCENTAGES";X:XCX.'Y150G'V(CX,Y)010075L'V(X,Y)V(X,Y)V(CX,Y):V(X,Y)(V(X,Y)10000f1,V(X,Y)pYzX-#1:"OK.....DATA ON DISK">I11000:ID_" "(A)"BYTES FREEpI11000:Iv"":"WHICH COLUMN (1-12)";K$CL(K$):CL1CL121000CL13CL14CL15"RESERVED FOR TOTALS":101"YOU MAY CHOOSE ANY OF THE FOLLOWING"7" 1 SUM DOWN COLUMNST" 2 SUM ACROSS ROWSv" 3 REPRODUCE ANY COLUMN " 4 ADD-MULT-DIV-SUB AT ANY POINT" 5 AVERAGE ACROSS ROWS (DO 2 FIRST) " 6 MAKE ROW % OF4001,5010,6010,7010,8010,9010,10010,11010,11510$ 2020e"DO YOU WISH TO DESIGNATE THE ROWS TO BE SUMMED?"yA$:A$""4002A$"N"S11:S249:4005"FIRST ROW";S1:"LAST ROW";S2:S1S2S10S2494001CR$;CT$:"SUM WV(13,Y)V(X,Y)XY*z"DUPLICATE WHICH COLUMN";CXK"PUT IT IN WHICH COLUMN";XWY150jV(X,Y)V(CX,Y)qYwbY0l"ADD MULTIPLY SUBTRACT DIVIDEvA$:A$""7030X14:A$("AMSD",X, T TO SUBTRACT";SB "WHAT COL #";X*"WHAT ROW #";Y04V(X,Y)V(X,Y)SB:>7999YR"AMOUNT TO DIVIDE BY";DVm\"WHAT COL #";Xf"WHAT ROW #";YpV(X,Y)V(X,Y)DVzV(X,Y)(V(X,Y)1000.5)10007999?J"HOW MANY ITEMS I 19,-1, 1130,-1 NAME, 0 ADDRESS, 21 CTY/ST/ZP, 37 TELEPHONE, 60 SOC SECUR #, 75 DATE HIRED, 87 STARTING JOB, 96 STARTING PAY, 109 LAST WK EVAL, 119 DATE EVALUATED, 130 CURR PAY, 139 DATE LAST RAISE, 149 CURRENT JOB TTL, 158 DATE PROMOT OR TRANSF, 171 # C   2000+E(X)(0)65536((0)0)ZT7%(213):Y1%(T7%2)20:YT%(T7%21)31~4,4,7:Y1%2E(0)31000Y1%3 Y1%24:4:4,4DK%1T179:MG1:ET(E(0)60)Y2%4:Y3%4:Y4%17:CD$"":PK%194,   iY1%3788,PK%:"";:1101 k144,88:59468,14i n""YT%)"**PERATIONS**":YT%)"--------------" YT%)"גRITE":YT%)"ŒDIT TEXT" YT%)"ĒISPLAY TEXT":YT%)"DDRESS LETTER" YT%)"ВRINT TEXT" YT%)"ƒILE COMMANDS".5)100['Y`'+"WHICH COLUMN DO YOU WANT TO SUM";4 +CA:CA1CA1511020`+"WHOLE COLUMN OR PART OF COLUMN?" +YN$:YN$"P"YN$"W"11040*+YN$"P"11210:110654+S11:S2499+V(CA,S21)0>+YS1S2H+V(CA,S21)0(NM$)811520 -NM(NM$):NM0K-"ENTER OPERATIONS IN THE ORDER YOU WANT THEM TO BE PERFORMED."W-I1NM(-"ENTER OPERATION #"I" ";2-A$:OP(I)(A$):OP(I)1OP(I)8115707-OP(I)<-IF-I1NMP-0/"FIRST ROW TO BE PRINTED";S1:"LAST ROW TO BE PRINTED";S23&/SP$" "<0/4,4yD/4," COLUMNS ";:I15:4,I;" ";:N/4X/YS1S2b/4,("ROW"(Y)SP$,10);g/I15:4,(SP$(V(I,Y)),14);:I:aYS1S2/4,("ROW"(Y)SP$,10); /I1115:4,(SP$(V(I,Y)),14);:I:4' /Y- /<0/4,4yD/4," COLUMNS ";:I15:4,I;" ";:N/4X/YS1S2b/4,("ROW"(Y)SP$,10);g/I15:4,(SP$(V(I,Y)),14);:I:FSQ",I,1)570 I:500K :"":I1000,5500,6000,6000,600,12000,4000,21000,8000T D100 XI15:"DDRESSEE'S NAME":"DDRESS":"ITY" "TATE + IP":"ODAY'S DATE" J15:(CD$,J4);" "C$(J);:C$(J)""SH$ J  "";:53280,3: 53281,12& I1 38:"";:? I1 22:"";:X I1 37:"";:q I1 22:"";:z "" 13)"WORD PROCESSOR  13)"* T1 2500:4 CXCYCZCX:CXCY:CYCZ CZCYCX1 19000 ICXHICZ( T$(I)T$(ICZ)D I:T$(I)"":CX0:JI1` IJJCZ2:T$(I)"":Iq 19000:5745"̒OAD","ӒAVE":" <SH>-POOL FILE""ВURGE","ÒATALOG"18000:M$A$FK$"@W/":M$""M$""FK$"@SOMMENDATIONS, 180 # REPRIMANDS, 184 DATE LAST REPRIMAND, 188 DATE INSUR EFFECTIVE, 197 TERMINATION DATE, 206 REASON, 215 228 DECISION MAKER RENT OR BUYCAR COSTCOLUMN CALCY1%1CD$CD$"":Y2%2:Y3%10:Y4%21:PK%52Y LL1:G$(34):SH$(160):T$(ET),TR$(20)r -A(X)W3(Z61)Y2% 2S$(32):I115:SQ$SQ$S$::SP$(SQ$,5) F100 UYT%)"**ISK ERROR**":95 ZYT%)"*O FILE IN MEMORY*" _18000 d::YT%)"ӒET FORMAT":; YT%)"ђUIT":YT%)"^ ..."] AC0:RW0:I12:I:J12:J| YT%6)"AIT":19000:2 ,YT%1)"";(E(0)(T15))"LINES FREE" YT%)"OP LINE:"HI 18010 A$""4:500 I19:A$("WEDAPV(CA,S21)V(CA,Y)R+Y\+!+"ROW OF FIRST ITEM IN THE SUM";S1`+"ROW OF LAST ITEM IN THE SUM";S2:S1S2S10S24911210f+,:"HOW MANY CALCULATIONS (1-8)?",I15:" ":-NM$:NM$""11520-(NM$)OP(I)4001,5010,6010,7010,8010,9010,10010,11010 Z-Id-T."MAKE SURE PRINTER IS ON.":"...HIT ANY KEY WHEN READY."i.A$:A$""12020."DO YOU WANT TO DESIGNATE THE ROWS TO BE PRINTED?"/A$:A$""12040/A$"N"S11:S250:12074l/Y:4:4v/4," COLUMNS ";:I610:4,I;" ";:%{/42/YS1S2O/4,("ROW"(Y)SP$,10);y/I610:4,(SP$(V(I,Y)),14);:I:4/Y:4:4/4," COLUMNS ";:I1115:4,I;" ";:/4//":4040 M$"C"49000M$"P"49704M$"S"M$"L"100Q(M$"S"M$"")HI090q"ԒAPE","ĒISK":18000J1:M$"L""TARTING ADDRESS 1";JA$"D"4600A$"T"100JM$"S"M$""AC1h"APE READY?":18 (CD$,I4);:C$(I):C$(I)SH$C$(I)""# IH "OK? (Y/N)":18000:A$"N"600Q 100{ "RITE":"Β NEW PARAGRAPH" HI0HI;T$(HI)"" 10000:L2LLET100 T$(LL)L$::LLLL1 $1030  *** TITLE SCREEN *** sW31W31vZ41:"":IW3W3Y3%C(CD$,Z4);I"";4)(34);T$(I);(34):Z4Z4Y2%JIe(CD$,22);:Y1%1:">DIT _WAP ĒELETE";:Y1%1"ɒNSERT ҒUP, DOWN";Z61Z61:W3W31:5745%Z6Y4%Z6Y4%:W3 "_"JG$""JH$T$(A(0)):T$(A(0))JG$:JG$JH$:5745,a(A$)131006f5955CpHI090Nz17000nTUT1:T1T7%:RW1:I4AC1y12010T1TU:A$""10095@" ARE YOU SURE? (Y/N)"J S$:S$""8010T S$"Y"10 AC96)(AC192AC219)L$L$A$:A$;`'10020F*I1HI:Y7$T$(I):13000:A$""AC1:"BORTING"l+I:PG0PGPG157:4::13000z+AC1100+PD0:11000.HI090." ":"ΒEW DOCUMENT"."ÒONTINUE OLD DOCUMENT":"ӒP 0:.TLHI:PH0:I1:T$"".(T$)(T$(I)S$)24512100E/((T$(I),1)"_"I1)ITLPH1:12100^/T$T$T$(I)S$:II1i/12030D/(T$,1)"_"T$SP$(T$,2)N/JT111X/(T$,J,1)S$T1$(T$,J1):T$(T$,J1):12200b/J:T1$(6100,1000"OP-OF-FORM? (/)":18000:A$"Y"100 0PG01001*013000:12320A2RW213800X2A$:A$""18010h2RW3130502RW1Y7$:Y7$"":2Y7$(SQ$,SP)Y7$24,Y7$:Y7$"",3PGPG1:PG58E3PDPD1:PD$"("((1$,J):JJ1:J5J51:J5T8x7JJ1:J(T1$)7140508hB"> AUSE":"V BORT"SB"-----------------":hPFIK110:A$:IK}ZFA$:A$""18010dF8JI1ET2:T$(I)""19020?JT$(I)""T$(I1)""T$(I2)""T$(I)"":A$"S"T172:SP4SRA$"L"T163:SP8" lR"IGHT-JUSTIFICATION? (*/)":MG1: R18000:A$"N"MG0h R"OUBLE SPACE?":" ْES":" ΒO":DT0 R"*’ETWEEN PARAGRAPHS":18000:A$"Y"DT1 RA$"N"DT2 SY1%2100 4S"EPEATING KEY TOUCH-TONE DIALER. BY BOB HUFFMAN4:?( 1500S2 B$(50),C$(50)td COMMODORE,1-(215) 337-7100n RON & NANCY,1-(202) 456-1414x COMPUTE!,1-(919) 275-9809 MCI," 886-8385 IBM ACCESS CODE," 39562# 000rY1%2144,85|2,1,AC:4650%DK%185K"ILENAME?":" MISC";FL$tFM$",S,W":M$"L"M$""FM$",S,R"FL$FK$FL$FM$ 2,8,2,FL$:20000:E1085%M$""RW2:12010*M$"L"M$""48004I1HI:2,G$T2HILBET25200TR$(LB)L$:LB&PLBLB1:LB05745TIHILBLG1LB1:T$(I)T$(ILB):I:J0ILG1LGLB:JJ1:T$(I)TR$(J):TR$(J)"":I:19000:5745|HI090CX0:"LINE # 1";W3:Z61:Z51:JG$""qW3HIY3%W3HIY3%W31:5745>(CD$,Z5)" ";!@(CD$,Z6)">";:Z5Z6,C18000HJA$""Z6Z6Y2%:5915yMA$""2);:JG$T$(A(0)):T$(A(0)):5745RA$""Z6Z6Y2%:5915TA$"D"CX0CYA(0):3000VA$"D"CXA(0)WA$"I"5000\A$0^ Y1%2144,85h: 'L$"" 'AC13LL1L$"_"3$'"";:L(L$)M.'18010:A$""A$SP$_0'A$SH$A$S$l3'AC(A$)8'(L57AC32)L72AC13S$;:='(AC20AC148)L1"";:L$(L$,L1):10020B'AC3410020L'(AC31OOL FILE".RW0:18000:M$A$:M$"C"17000:12020,.M$"N"M$"S"100\.PG0:PD0:" ET TO TOP-OF-FORM.. EADY?"y.18010:A$""4:12006.17000:M$"S"RW3:11000.C$(1)""12020.I17:Y7$C$(I):I3Y7$Y7$",".1300T$,T11):T$(T$,T1) /MG1(RW1AC1)14000&/Y7$T1$:13000:T1$""7/DT113000I/A$""12300]/(T$)T112110s/PH1T$""12245~/12250/PH0:DT013000/ITL12050/PH112110/ITL12300/12030 0RWPD),2)")"^34:4,""65)PD$ 3J16:4:J:PG0555Y7$(SQ$,SP)Y7$:Y7$""Y7$S$OL62,G$Y7$G$:Y7$"":{6J51:T8T1(T1$):J1:MD0:T825T8256MD$(T1$,J,1)6MD$S$MD17MD$S$MD014200F7MD$S$T1$(T1$,J)(T19020BJILJHII1:LLI:  NEE0EE15:EE,8,EE*NEE,E1,E2$,E3,E4+4NE10?>NE1;E2$;E3;E4:\R""CD$YT%)"* EFAULT";oR"ARGINS:"~R"*ΒONE"!R" ӒMALL","(1/2 INCH)"&R" ̒ARGE","(1.5 INCH)":18000:T179:SP0DR:S? (/*)":18000 fS650,0:A$"Y"650,128!S100*NEE,E1,E2$,E3,E4+4NE10?>NE1;E2$;E3;E4:\R""CD$YT%)"* EFAULT";oR"ARGINS:"~R"*ΒONE"!R" ӒMALL","(1/2 INCH)"&R" ̒ARGE","(1.5 INCH)":18000:T179:SP0DR SMALL BUS ADMIN," 371-6587-  0,0G  53281,15: 53280,12Z  (147)(151)b P1t  B$(P),C$(P)  B$(P)"0" 1040 PP1: 1010 PMP1:CF.795:K.059604645  N0 3: F:FFCFK $RH(N)(F256):RL(N)F256RH(N) $(I)G$8"*";:I:100'IJET:2,T$(I):(ST)641008$"*";:I:85sj"RE YOU SURE? (Y/N)":18000:A$"Y""BORTED":95tI1ET:T$(I)""::I14:C$(I)""::9019000:LGA(0):AC0""LG">";T$(LG)LB120:::10000:L "-"N$"("N$")" 1410 2VA(N$)1( <R%VA37 FC%VA3R%U P V11,RH(R%): V1,RL(R%)s Z V21,CH(C%): V2,CL(C%) d V14,17: V24,17 n N1 100: x V14,0: V24,0 :P1:A$"": 1110  *** TITLE SCREEN *** "";: DO YOU NEED INSTRUCTIONS?";Q$T Q$.Y Q$"" 1620E^ Q$"Y" 1700Khf *** INSTRUCTIONS ***s""; I1 38:"";: I1 22:"";: I1 37:"";: I1 22:"";:"" 4)" TOP KEY;THEN TYPE'LIST'AND"40 4)"QUICKLY HIT THE STOP KEY AGAIN"\: 4)"SO THAT LINE 100 WILL BE NEARD 4)"THE TOP OF THE SCREEN WHEN ITN 4)"STOPS SCROLLING. YOU MAY NOWX 4)"ENTER YOUR FIRST LISTING AS"b 4)"FOLLOWS:l AST ONE 4)"USED FOR A PHONE LISTING. THEND 4)"TYPE A SPACE, THE WORD 'DATA',o 4)"ANOTHER SPACE, THE NAME YOU WISH 4)"TO LIST, COMMA, THE TELEPHONE 4)"NUMBER, AND RETURN. NOW, SAVE 4)"THE REVISED PROGRAM TO DISK 910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$UX$195: EXIT TO HELP ROUTINE* _UF12407 dUF0::P f ++ CHECK DELETE ++a i(UR$)150y nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1) UI$ EXIT +++ 250 2452 UQUB(U2%256U1%U3%2)N UQ%(UQUB)(UQ)::""a UZ1:UV%(UT)j 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK:(50003)053281,6:53280,6 UT$UL$:"";:UT,UV%:UQUB(U2%256U1%U3%3) UQ,UQ%(UQUB): , ** MENU **-:>."":UT,UU%:(50003)053281,9:53280,8D/:a1" MENU"6" --------------------------------------";" 1. BEGIN R-PLOT@" 2. STUDENT INSTRUCTIONS"E" 3. TE: . 697,770,852,941/ 8 N0 2: F:FFCFKV BCH(N)(F256):CL(N)F256CH(N):k C 1209,1336,1477 DV154272:V2V17: V124,15 E V15,0: V16,240 F V25,0: V26,240 LP1 V (147)"KEY PARTY"27)"NUMBER": ` B$(P)"0"TURN TO END";A$ A(A$(0))8  A$"R" P1:A$"": 1110F  A0 m  APM "TRY AGAIN":A$"": 1220{ NB$C$(A)  J1 (NB$) N$(NB$,J,1)  N$"0" N$"11"  N$"*" N$"10"  N$"#" N$"12" ( N$" "N$ 53272,21 53280,12:53281,15- I1 38:"";:F I1 22:"";:_ I1 37:"";:x I1 22:"";:""" 11)"TOUCH-TONE DIALER, 19)"BY6 14)"BOB HUFFMAN@ T1 2500:J "THIS PROGRAM REQUIRES THE USE"7 4)"OF A MODEM OR OTHER SUITABLE"_ 4)"CONNECTOR TO YOUR TELEPHONE." 4)"YOU MAY LIST UP TO 50 NAMES" 4)"AND TELEPHONE NUMBERS OF YOUR" 4)"CHOICE. TO ENTER A LISTING,HIT" & 4)"THE S T1 12000:v""; I1 38:"";:7 I1 22:"";:P I1 37:"";:i I1 22:"";:s"" 4)"ON THE LINE FOLLOWING'READY'," 4)"TYPE A LINE NUMBER WHICH IS 4)"LARGER BY 10 THAN THE L.  T1 15000::; I1 38:"";:7 I1 22:"";:P I1 37:"";:i I1 22:"";:s"" 4)"ON THE LINE FOLLOWING'READY'," 4)"TYPE A LINE NUMBER WHICH IS 4)"LARGER BY 10 THAN THE L"":UI$"" *UL0UL80" -UC,06 2UI$:UI$""50` 7UI$(13)(UR$)1UC,1:" ";:85s <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++ ZUR$"": ** STANDARD INPUT **+ (UI$)46< UI$(32)Y (UI$)48(UI$)57170_ | (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HELP ROUTINE U1,U1% U2,U2% U4,U4%) U3,U3%11 35c UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4) UJ$US$:UK$UG$:UL$UT$:UJUP:UKULACHER INSTRUCTIONS"!O" 4. QUIT"PT" --------------------------------------"{Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,400,500,396h300 ** RE-ENABLE STOP KEY 1220 j P;4)B$(P);23)C$(P)& tPP1H ~ (P1)18((P1)18) 1170R 1120 : "ENTER KEY OR RETURN FOR NEXT PAGE";A$ A(A$(0))  A0 1110  APM "TRY AGAIN":A$"": 1170 NB$C$(A): 1270 : "ENTER KEY OR RE ROGRAM PLOTS POINTS ON A GRAPH "<" AND FINDS THE LINE OF BEST FIT. T "f" ALSO CALCULATES THE CORRELATION "" COEFFICIENT, MEAN VALUES, AND STANDARD";" DEVIATION."835:850" F YOU WANT TO ENTER YOUR OWN DATA," ANCE FROM ONE QUESTION"+" TO THE NEXT PRESS THE BAR."["F AT ANY TIME YOU WISH TO RETURN""TO THE PRESS H ."835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281 3370 HARMACY VE.&" GINCOURT, NTARIO"H" ANADA 1 24"h" (416) 499-4292"~UP1: 835: 850:" ROGRAM AME: -LOT " RITTEN Y : NKNOWN" PGRADED Y :  MODIFICATION INST **Y"":UT,UL%(]UP0:UG$"ROGRAM OD":8501835EUZ1UP%:217Kp ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"  0" %2" M4"C O M M O D O R Ep6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT"(UT$UP$,21);(UP$UG$(UP),18)+\" --------------------------------------":`UH0870~a PRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLE(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO1986UD$""hUP$" "UT$" -LOT ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** ** SET VARIABLES )0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **F1075,133:1076,144:1077,234:1079,4:1080,133:1081,145|1091,155:1098,133:1099,144:1100,234:1103,1331104,145:1105,234:1082,234(50003)1609551093,88:1094,228:10 AND END ***(50003)1(50003)160(50003)0399TUU71:(50003)053281,6:53280,14`"":k875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0UP0:UG$"TUDENT NST":850" HIS P21:2129,3 UU48: DISABLE STOP KEY!800: TITLE!300: MENUH!"THE PGM WILL NOT WORK ON THIS MACHINE!":}!UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **!"";::(50003)053281,6:53280,6!:900: UT,UL%!UG$"":UP0" ASK FOR INSTRUCTIONS AT THE BEGINNING"E" OF THE MAIN PROGRAM. F YOU ENTER YOUR"w" OWN RANGE OF VALUES FOR THE GRAPH, MAKE";" SURE THAT THEY ARE CORRECT, OR ELSE THE";" GRAPH WON'T WORK."835:850" OTE:O ADV,2:53280,10UP0:UG$"EACHER NST":850C" O THE BEST OF OUR KNOWLEDGE,"l" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" " HIS PROGRAM WILL RUN ON ANY@" à2.0 g" 4.0 Ԡ" 8032 " 64  835NUZ1UP%:217WX ** PROGRAMUU71   ** T I T L E P A G E **A""";:UT,UU%:(50003)053280,14:53281,6W$I138:"";:o&I122:"";:(I137:"";:*I122:"";:," ."":I0<A$:A$" "II1:I250828(>T1$"":T2$"":T3$"":T4$"":I01@300MC ** SPACE BAR PRESS **HUO,0:(UD$,25);"PRESS SPACE BAR TO CONTINUE";LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUPUP1W"ASE... "u ** SET UP VARIABLES **RUX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048**900 ** CHECK FOR 8032 **"":"": SHIFTED SPACE/(UB40)96700H ** MEMORY CHECK **\ (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !"UU71"":(50003 97,85:1102,228:965(50003)1990( 1093,49:1094,230:1097,46:1102,230:965b 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, !UH1:850:"!ROU(A)(2A)(A)"$TH(A)ROU(1000A)1000"8N,"BU90:A1N5"LX,YG"V,X,Y:LILI1p"[(LI15)15LI835:UH1:850:""w"`A"j835:"tPRINT " O YOU WANT YOUR OWN MIN AND MAX? ";:US$="YNH":GOSUB35:Z  MIN? ";:35:XI(UR$):" MAX? ";:35:XA(UR$)2$." MIN? ";:35:YI(UR$):" MAX? ";:35:YA(UR$)K$2PRINT" "XI,XA,YI,YAl$7 IFXA-XI=0THENXS=0:GOTO1370$8 IFYA-YI=0THENYS=0:GOTO1370$< GOSUB835$FXS37(XAXI)$PYS17(YAYI)$Z ;XA%%Q%N0%A1Q%X,Y(&SXSXX:XXXXXX:SYSYY:YYYYYY:XYXYXY:NN11&""J&L117(YS(YYI))S&:L^&F$""u&(XS(XXI)));F$|&"A&,R(XYSXSYN)(((XXSXSXN)(YYSYSYN)))&6B R((YYSYS )))'|1780'X(XI)(XA)(XAXI)20'""'F$""(BXEYI1740/(Q117(YS(BXEYI))8(:QO((XS(XXI)));F$V(X_(""u("":C118::C(1620(835:7000:""(I14:" UT,UL%:850)&" RUNNING CORRELATION OF THE DATA"#*(" GIVING POINTS, CORRELATION COEFFICIENT";C**" AND LINE OF BEST FIT"K*010*:1,1,3,5,22,30,4,6,8,4,9,9,12,15,18,18,7,8,20,19*N*XQ*bROU(A)(2A)(A)*lTH(A)ROU(10R);20)"Y =";TH(B);"X+";:TH(E)0""; ,TH(E):(A11)11A835:850:"",A ,835:300V,X(UD$,25);" ";\,b8,4,9,9,12,15,18,18,7,8,20,19*N*XQ*bROU(A)(2A)(A)*lTH(A)ROU(10 910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **: ** TO OUR BEST KNOWLEDGE THIS  PRUT SECTION +++" (UO,0:UR$"":UI$""2 *UL0UL80< -UC,0P 2UI$:UI$""50z 7UI$(13)(UR$)1UC,1:" ";:85 <UI$(20)105 = UI$UX$ 195: EXIT TO HELP ROUTINE > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR + }(US$)0150 US1(US$)3 UI$(US$,US,1)9 F UI$"":a ** STANDARD INPUT **r (UI$)46 UI$(32) (UI$)48(UI$)57170 (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): # UI$"":H UF1: +++ HELP ROUTINE EXIT +++m UF1: +++ HELP ROUTINE EXIT +++v 250 UJ$US$:UJUL:167,1:UK(59468) 245 UQUB(U2%256U1%U3%2) UQ%(UQUB)(UQ)::"" UZ1:UV%(UT)$=UR$"~IFZ$="Y"GOTO1310"N"X,Y #XIX:XAX:YIY:YAY#A2N!#X,Y3#X XI1230<#XIXN#X XA1250W#XAXi#Y YI1270r#YIY#Y YA1290#YAY# A#1330##(US$"-.0123456789H":UL4#-""";:UT,UU%$d"";$nG110%x""D%"̺̺̺̺̺̺̺̺̺̺̺̺̺̺̺̺̺̺̺"K%Gi%"R-PLOT"{%"";:"";YA%K117::K%"";YI:"";XI""YN)(XXSXSXN))&@ESYNBSXN&J167 0,'T"R =";TH(R);15) "Y =";TH(B);"X+";:TH(E)0"";g'^TH(E):"MEAN X =";TH(SXN);20)"MEAN Y =";TH(SYN)'h"S.D. X =";TH(((XXSXSXN)(N1)));'r20);"S.D. Y =";TH(((YYSYSYN)(N1 ";:("";-)"ENTER DESIRED Y VALUE ";:US$"-.0123456789H":35:W(UR$)M)"THE X VALUE IS ";(WE)Bs)"DESIRED X VALUE ";:35:D(UR$))"Y VALUE IS"BDE)GET A$:IF A$=""THEN1820)835)!"":00A)1000*vA1Q*X,Y+SXSXX:XXXXXX:SYSYY:YYYYYY:XYXYXY:NN1!+1)X;8) Y;,+A1:+A22010l+R(XYSXSYN)(((XXSXSXN)(YYSYSYN)))+B R((YYSYSYN)(XXSXSXN))+ESYNBSXN+13)"R =";TH( 300?UZ0:US$UJ$:UG$UK$:UPUJ:ULUK:(50003)053281,6:53280,14tUT$UL$:"";:UT,UV%:UQUB(U2%256U1%U3%3)UQ,UQ%(UQUB):865U1,U1%U2,U2%U4,U4%U3,U3%135UD%((U2%256U1%U3%)UB)40:(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$UR$UI$ KUI$; P50: U +++ CHECK FOR HELP REQUEST +++b ZUR$UX$195: EXIT TO HELP ROUTINEq _UF1240~ dUF0:: f ++ CHECK DELETE ++ i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS + ONS **"":UT,UL%:(50003)053281,2:53280,10?UP0:UG$"EACHER NST":850m" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:" " Y : NKNOWN" PGRADED Y : A" HIS PROGRAM WILL RUN ON ANYh" à2.0 " 4.0 Ԡ" 8032 " 64  835 OM LINES 1660 ON.b"$c" F YOU WISH TO CORRECT THEM HAVE AQd" NICE TIME TRYING TO FIGURE OUT WHATce" THEY DO.jf"g" HE REST OF THE PROGRAM LINES ARE JUSTh" COSMETICS SO YOU CAN IGNORE THEM.i840835U AM ON AN 8032LOAD CBM 4032 PROGRAM" 1093:-  ** T I T L E P A G E **a""";:UT,UU%:(50003)053280,14:53281,6w$I138:"";:&I122:"";:(I137:"";:*I122:"";:,");"PRESS SPACE BAR OR WAIT":I0$<A$:A$" "II1:I250828H>T1$"":T2$"":T3$"":T4$"":I0Q@300mC ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DED$,24);" ONE MOMENT PLEASE... "u$ ** SET UP VARIABLES **oUX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U221UD$,UD%1):9(UD$,24);"  HELP COMING ":eU1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL, ** MENU **-:."":UT,UU%:(50003)053281,9:53280,8/:1" -"Y" PRESS A NUMBER KEY (1-4) ";C^UL1:US$"1234":35: INPUT ROUTINE`c(UR$)1000,400,500,396ih300 ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14ABLY HAVE FACTORS " UP TO$" 20<" d" HE POLYNOMIAL CAN ALSO INCLUDE" IMAGINARY NUMBERS WHICH MAY BE" ENTERED WHEN PROMPTED.840UZ1UP%:217 ** TEACHER INSTRUCTI*** ** SET VARIABLES **  A(21),B(21),C(21),D(21),X(21),Y(21)& 900, :2 :M  ** CHECK FOR 8032 **k "":"": SHIFTED SPACE (UB40)96700  ** MEMORY CHECK **  (0)2000937 "THIS MACHINE DOES NO OMMODORE USINESS ACHINES"," 3370 HARMACY VE.P" GINCOURT, NTARIO"r" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: OOT INDER" RITTEN NUZ1UP%:217WX ** PROGRAM MODIFICATION INST **0Y"":UT,UL%P]UP0:UG$"ROGRAM OD":850u^" .. OOT INDER_" ROGRAM ODIFICATIONS`" HE PROGRAM'S PHYSICAL WORKINGSa" ARE LOCATED FRZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **L"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71 ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGR ."  '0" E2" m4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24SIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)J\" --------------------------------------"Y`UH0870a PRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(U 0:U3211:U4214:UC204:UU2048/(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198SUD$""UP$" "UT$" OOT INDER ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!! MENU"+6" --------------------------------------"Q;" 1. BEGIN ROOT FINDER{@" 2. STUDENT INSTRUCTIONS"E" 3. TEACHER INSTRUCTIONS"O" 4. QUIT"T" -------------------------------------"":875:! ** STUDENT INSTRUCTIONS **P"":UT,UL%:(50003)053281,0:53280,0qUP0:UG$"TUDENT NST":850x"" OU MAY ENTER A POLYNOMIAL THAT IS"" COMPOSED OF UP TO 20 FACTORS SO ONE" ONE COULD CONCEIV T HAVE ENOUGH"!"MEMORY TO RUN THIS PROGRAM !" !UU71!,!"":(50003)0962[! ** BASIC 2.0 OR 4.0 OR C-64 SETUP **!1075,133:1076,144:1077,234:1079,4:1080,133:1081,145!1091,155:1098,133:1099,144:1100,234:1103, 5:2117,52:2118,234:2121,49:2122,141+#2123,20:2124,3:2126,234:2127,141:2128,21:2129,3I#UU48: DISABLE STOP KEYZ#800: TITLEj#300: MENU#"THE PGM WILL NOT WORK ON THIS MACHINE!":#UZ1UP%:UP%:UZ0: ** PROGRAM STARTS NTER THE EXPONENT OF THE HIGHEST %M" TERM IN THE OLYNOMIAL? ";+%VUL2:US$"0123456789":35H%`(UR$)1(UR$)211150%j" LEASE NTER A UMBER FROM 2 TO 20.":I12000:%t" ":1100%~N &" NTER THE "C$" VALUE: ";'UL8:US$"0123456789.-+":35''A(I1)(UR$)1'1380;'1330T'I:I11000::1430Z' :`':{'A$A$" "((I),2)'INB$B$" "C$""(" ",((I))1):1330'(B$B$" +"390(kFIJ2(nB$(B$,FI)UR$(B$,J1))xA$(A$,FI)(" ",(UR$)1)(A$,J) )&):X)850:" RE THERE ANY IMAGINARY COEFFICEINTSv)" IN THE OLYNOMIAL? ";)UL1:US$"NY":35:UR$"N"I0N:B(I)0::1600)" LCULATING"*JNO:1660*K850 +TFLAG" O ROOTS FOUND.":1647-+X" POSSIBLE VALUEW+Y" ROOTS REAL IMAGINARY+[" +hJ1O+i5((J)))(J)" ";+jA(15(Y1 :Y(2)1 :X(1)1,L0 :Y(1)0 :X.1 :X(2).1-1930: INITIAL ESTIMATES$-GF:M0:Q0:P0:K0:LL1/-K1NS-PPK(A(K1)X(K)B(K1)Y(K))w-QQK(A(K1)Y(K)B(K1)X(K))~-K-ZPPQQ-D(UPVQ)Z-E (UQVP)Z : CONVERGENCE FAILED.C(N)X(2). D(N)Y(2)/ AA(N1):A(N1)0/ BB(N1):B(N1)0=/ (C(N)) (D(N))1E8 C(N)0c/ (D(N)) (C(N))1E8 D(N)0k/&KNv/'XX(2)/(YY(2)/0KK1:K01870/:CA(K1)/;DB(K1) (C(1)) (D(1))1E8 C(1)00v0 **** SUBROUTINE SILJAK *** 1XXX(2):YYY(2)1ZXXXXYYYY01T2XX:N21950=1K0N2Z1X(K3)TX(K2)ZX(K1)w1Y(K3)TY(K2)ZY(K1)~1K1V0:U01K0N1UUA(K1)X(K1)|B(K1)Y(K1)1VVA(K1)Y(K1)B(K1)X(K1)1K1FUUVV1$2 FORI=25TO0STEP-1:A$=A$+STR$(I):NEXTB(1);0ZUA(2)F0[VB(2)T0\TUUVVj0]C(1)(AUBV)T0bD(1) (AVBU)T0c (D(1)) (C(1))1E8 D(1)00l 133!1104,145:1105,234:1082,234"(50003)1609557"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,141:2105,21"2106,3:2115,14 HERE **#"";::(50003)053281,6:53280,14$UG$""Q$ HP ROOT FINDING PROGRAM (THE BEST AVAILABLE...COMPLEX COEFF'S TOO!)$ MODEFIED BY FOUAD DEHLAWI:P.O.BOX 10197 , STANFORD ,CA. 94305$UT,UL%:UG$"ROGRAM":UP0:850$L" (UR$)%" "&" NTER THE REAL COEFFICIENTS"9&" "a&" "&" "&ON:CT1:A$"":B$"":C$"Y"&IN01&1310C$""(" ",((I))1)(2" "(A$,CT,30)" "(<" "(B$,CT,30)9(FCT(A$)30CTCT1:1330?(PE(Z:g(dJ1(B$):(B$,J,1)C$ J(i V$="":LE=LEN(UR$)-1:IFVAL(UR$)<0THENUR$=""+UR$:V$=""(j(UR$)0FIJ1:1NTER THE IMAGINARY COEFFICEINTS")CT1:A$"":B$"":C$"I"*IN01*1310C*" NTER THE "C$" VALUE: ";d*UL8:US$"0123456789.-+":35v*B(I1)(UR$)*1380*1330**@850*B" A(C(J))))2+k(A))(C(J))(A.5));,l(15((D(J))))2)(D(J)),mJ6,n" "L,o840:UPUP1:300r,r ** BEGINNING OF SUBROUTINE ROOT,|FLAG0 : SET FLAG WHEN NO CONVERGENCE,-MM1-X(2)XD-Y(2)YE-1930-FG1750-M101780.DD4.EE4.1710?. (D)1E8 (E)1E8 1800N.L501790Y.XX(2)d.YY(2)n.1680. (U)1E7 (V)1E7 1800.FLAG1. /<UA(K2)/=VB(K2)/>A(K1)AXUYV/DB(K1)BXVYU0IAC:BD:18400NNN1:N11670%0XAA(1)00YBB(1);0ZUA(2)F0[VB(2)T0\TUUVVj0]C(1)(AUBV)T0bD(1) (AVBU)T0c (D(1)) (C(1))1E8 D(1)00l   910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **: ** TO OUR BEST KNOWLEDGE THIS  PR UT SECTION +++" (UO,0:UR$"":UI$""2 *UL0UL80< -UC,0P 2UI$:UI$""50z 7UI$(13)(UR$)1UC,1:" ";:85 <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK F (US$) UI$(US$,US,1) ) UI$"":D ** STANDARD INPUT **U (UI$)46f UI$(32) (UI$)48(UI$)57170 (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128):  UQUB(U2%256U1%U3%3)"UQ,UQ%(UQUB):.U1,U1%:U2,U2%FU4,U4%TU3,U3%1\35UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):(UD$,24);"  HELP COMING ":U1%(U1):U2%(U2):U3%(U3):U4%( 2. STUDENT INSTRUCTIONS"7E" 3. TEACHER INSTRUCTIONS"SO" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINEc(UR$)1000,400,500UG$"TUDENT NST":8502" HIS PROGRAM WILL FIND PRIME FACTORS"^" OF ANY NUMBER. O QUIT TYPE A '0'."" OTE:O ADVANCE FROM ONE QUESTION"" TO THE NEXT PRESS THE BAR.""F AT ANY TIME YOU WISH TO RETURN"  IN THE PUBLIC"$" DOMAIN. F THIS IS NOT THE CASE"A" PLEASE CONTACT:"k" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" ( 4.0 Ԡ" 8032 ?" 64 H 835\NUZ1UP%:217bWX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD":850835UZ1UP%:217 4032 PROGRAM"1093:  ** T I T L E P A G E **N""";:UT,UU%:(50003)053280,14:53281,6d$I138:"";:|&I122:"";:(I137:"";:*I122:"";:," ."  0" 22" Z4"C O M M O D O R E}6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACOGRAM 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. : # +++ INPOR HELP REQUEST +++5 ZUR$UX$195: EXIT TO HELP ROUTINED _UF1240Q dUF0::j f ++ CHECK DELETE ++{ i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US$US$UX$ US1 UI$"":+ UF1: +++ HELP ROUTINE EXIT +++4 250= 245\ UQUB(U2%256U1%U3%2)x UQ%(UQUB)(UQ)::"" UZ1:UV%(UT) 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK:(50003)053281,6:53280,14 UT$UL$:"";:UT,UV%:U4)UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL#4, ** MENU **:-:i."":UT,UU%:(50003)053281,9:53280,8o/:1" MENU"6" --------------------------------------";" 1. BEGIN PRIME FACTORS @" ,396h300" ** 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,0UP0:" TO THE PRESS H ."835)UZ1UP%:217/P ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS416) 499-4292" UP1: 835: 850:4" ROGRAM AME: RIME ACTORSV" RITTEN Y : NKNOWN" PGRADED Y : TEVE UTZ " HIS PROGRAM WILL RUN ON ANY" à2.0 "  ** TO USE 8032 LOAD CBM4032 **7"BEFORE RUNNING THIS PROGRAM ON AN 8032 m" LOAD THE 'CBM 4032' PROGRAM"xUU71~ ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM E BAR OR WAIT":I0<A$:A$" "II1:I2508285>T1$"":T2$"":T3$"":T4$"":I0>@300ZC ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUP .. "u ** SET UP VARIABLES **NUX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048 900:: ** CHECK FOR 8032 ** "":"": SHIFTED SPACE7(UB40)96700P ** MEMORY CHECK **d (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !"UU71"": ,228:1097,85:1102,228:965 (50003)19900 1093,49:1094,230:1097,46:1102,230:965j 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,14!850:" HIS PROGRAM WILL FIND THE PRIME"%"" FACTORS FOR ANY NUMBER YOU WISH."T"" F THE NUMBER IS PRIME THE COMPUTER"s"" WILL SAY IT IS PRIME.""$" NPUT A (0) TO QUIT."".835"B850:"""LA0"V" HAT NUMBER?B ":1290#1190#I#" IS PRIME"# 835$(1090OR ANY NUMBER YOU WISH."T"" F THE NUMBER IS PRIME THE COMPUTER"s"" WILL SAY IT IS PRIME.""$" NPUT A (0) TO QUIT."".835"B850:"""LA0"V" HAT NUMBER? 910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$UX$" ";:195: EXIT TO HELP ROUTINE2 _UF1240? dUF0::X f ++ CHECK DELETE ++i i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1)  ROUTINE EXIT +++ 250 245/ UQUB(UB880)K UQ%(UQUB)(UQ)::""^ UZ1:UV%(UT)g 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK:(50003)053281,6:53280,14 UT$UL$:"";:UT,UV%:UQUB(UB880) UQ,UQ%(UQUB): U1,U1% U2,U2% U4,U4% U3,U3%1$ 35V UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4) UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL , **UP1W""(UT$UP$,21);(UP$UG$(UP),18)7\" --------------------------------------"F`UH0870za(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE.(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO1982UD$""dUP$" "UT$" RIME ACTORS": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** ** SET VARIABLES **(50003)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **N1075,133:1076,144:1077,234:1079,4:1080,133:1081,1451091,155:1098,133:1099,144:1100,234:1103,1331104,145:1105,234:1082,234(50003)1609551093,88:10941:2128,21:2129,3 UU48: DISABLE STOP KEY!800: TITLE!300: MENUP!"THE PGM WILL NOT WORK ON THIS MACHINE!":!UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **!"";::(50003)053281,6:53280,14!UP0:UG$"" :UT,UL% ";:US$"0123456789":UL9:35:N(UR$)"`N0%#~N2UH1: 850:" "N" = ";:1280-#BNM#UH1: 850:" "N" = ";Z#I2N1p#NI(NI)1270|#I;"X";#A0AI:1240#AAI#AB" ":1290#NNI#N1" MENU **-:1."":UT,UU%:(50003)053281,9:53280,87/:T1" MENU"6" --------------------------------------";" 1. BEGIN RESULTANT"@" 2. STUDENT INSTRUCTIONS"E" 3. TEACHER INS"":UI$"" *UL0UL80" -UC,06 2UI$:UI$""50` 7UI$(13)(UR$)1UC,1:" ";:85s <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++# ZUR$ UI$"":" ** STANDARD INPUT **3 (UI$)46D UI$(32)a (UI$)48(UI$)57170g (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HELP **!(50003)1(50003)160(50003)0399KUU71:(50003)053281,6:53280,14W"":b875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0UT$" ":UH1:UP0:UG$"TUDENT NST":850 CE 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  "  POLAR FORM." 835UZ1UP%:217#D ** TEACHER INSTRUCTIONS **t"":UT,UL%:(50003)053281,2:53280,10UT$" ":UH1:UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PR 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$"  (416) 499-4292"UH1:UP1: 835: 850:?" ROGRAM AME: ESULTANTe" RITTEN Y : NDY AMBLE" PGRADED Y : EIL UNT" HIS PROGRAM WILL RUN ON ANY" à2.0 " * (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,147 ** 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,6TRUCTIONS"O" 4. QUIT"GT" --------------------------------------"rY" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,400,500,396h300 ** RE-ENABLE STOP KEY AND END 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 ** SPA 01,3:2103,8:2104,141:2105,21-2106,3:2115,145:2117,52:2118,234:2121,49:2122,141g2123,20:2124,3:2126,234:2127,141:2128,21:2129,3UU48: DISABLE STOP KEY800: TITLE300: MENU"THE PGM WILL NOT WORK ON THIS MACH"  HIS PROGRAM CAN BE USED AS A"D" DRILL OR SIMPLY A MATHEMATICAL""  UTILITY. OU INPUT VECTORS IN":"  EITHER POLAR OR RECTANGULAR"" FORM AND THE COMPUTER GIVES""  YOU THE RESULTANT VECTOR IN":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:UC167:OGRAM IS IN THE PUBLIC"." DOMAIN. F THIS IS NOT THE CASE"K" PLEASE CONTACT:"u" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24""  "EUT$" ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***Ke ** SET VARIABLES **n900 ** CHECK FOR 8032 **"":"": SHIFTED SPACE(UB40)96700 ** MEMORY CHECK * 4.0 Ԡ$" 8032 I" 64 R835fNUZ1UP%:217lWX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UH1:UP0:UG$"ROGRAM OD":850835UZ1UP%:21 5 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:21$I138:"";:&I122:"";:'(I137:"";:?*I122:"";:d," ."  0" 2" 4"C O M ,&RÙ(TI$,1,2)":"(TI$,3,2)&SÉ50001)180%qX10 A1A1180*%t Y0 X0 A1A1360e%xUH1:835:850:" RESULTANT IS "(R1000.5)1000%" AT "(A11000.5)1000" DEGREES"%1460%835: UH1:UPUP1:850:"";% INE!": UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **8 "";::(50003)053281,6:53280,14C UG$""k  RESOLVING VECTORS :ANDY GAMBLE 79 COLUMBIA COLLEGE  1619 W10 AVE VANCOUVER BC UP0:UT$" RESULTANT" .850:::X10:  910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** ---GENERAL INPUT ROUTINE----:::#-----INPUT SECTION----- (: UR$)!e 850!j!tZ21260!~1460"""":W1N%"" VECTOR"W":"g"UL4:5);:" MAGNITUDE:";:US$"-.0123456789H":35:M(UR$)"5);:" ANGLE: ";:US$"-.0123456789H":35:A(UR$):"XM(A180)"YM(A180) --CHECK FOR HELP REQUEST-----D Z: UR$UX$195: EXIT TO HELP ROUTINEV _: UF1240e d: UF0:: f-----CHECK DELETE----- i: (UR$)150 n: UR$(UR$,(UR$)1) s: " ";:50 x-----CHECK FOR VALID CHARACTERS----- }: (US$ Y1Y1Y## (W4)W4850:""#(#2 $<R(X12Y12)1$F (X1).0005 (Y1).0005 1360w$K"RESULTANT TOO SMALL FOR CALCULATION":1430$PX10Y10A190:1400$ZX10Y10A1270:1400$dX10Y10" RESU 193 (UI$)218UI$"":? : (UT)12(UT)21UI$((UI$)128):H : X : UI$"": : UF1:-----HELP ROUTINE EXIT----- : 250 : 245 : UQUB(U2%256U1%U3%2) : UQ%(UQUB)(UQ)::"" : UZ1 : 3006 UL4: " TRY AGAIN? ";:US$"YN":35:S$UR$&S$"Y"UP0:1070&8&"";24);" 90"K& 24);" "`& 24);"1800"s& 24);" "& 24);" 270"&&PÙ"";&QÙ""; 2: (UD$,24);"  HELP COMING ":a: U1%(U1):U2%(U2):U3%(U3):U4%(U4)sUJ$US$:UJUL: UJ$US$:UK$UG$:UJUP:UKUL: ,-----MENU------:.: "":UT,UU%:(50003)053281,9:53280,8/: 1: " MENU"C6: " --------------------------------------"e;: " 1. STATISTICS@: " 2. STUDENT INSTRUCTIONS"E: " 3. TEACHER INSTRUCTIONS"J: " 4. MODIFICATION OF PROGRAM"!O: " 5. QUIT"@T: " --------------------------------------"nY: " PRESS A NUMBER KEY (1-5) ";^: UL1:US$"12345":35:---INPUT ROUTINE---_: (UR$)1300`: US$""c: (UR$)1000,400,500,600,396h: Y10 8" ARE YOUR VECTORS GIVEN IN:" !B" (1) MAGNITUDE AND ANGLE OR">!L" (2) X,Y-COORDINATES"!V" ";:US$"12H":35:Z(UR$)!`UL4:"  HOW MANY VECTORS?";:US$"01H23456789":35:N(  UR$"":UI$""! *: UL0UL80. -: UC,0E 2: UI$:UI$""50r 7: UI$(13)(UR$)1UC,1:" ";:85 <: UI$(20)105 >: (UR$)UL 50 A: 120: CHECK FOR VALID CHARACTER F: UR$UR$UI$ K: UI$; P: 50 U--- "X1X1X:Y1Y1Y" (W4)W4850:1460:""# ##1340#W1N5#" VECTOR"W":"u#UL4:5);:" X-COORD: ";:US$"-.0123456789H":35:X(UR$)# UL4:5);:" Y-COORD: ";:US$"-.0123456789H":35:Y(UR$)##X1X1X: )0150 : US1(US$)1 : UI$(US$,US,1): : J : UI$"":h -----STANDARD INPUT-----} : (UI$)46 : UI$(32) : (UI$)48 (UI$)57170 : : (UI$)65 (UI$)90180 :  : (UI$) LTANT IS ZERO VECTOR":835$nA1((Y1X1))180%qX10 A1A1180*%t Y0 X0 A1A1360e%xUH1:835:850:" RESULTANT IS "(R1000.5)1000%" AT "(A11000.5)1000" DEGREES"%1460%835: UH1:UPUP1:850:"";% UZ0:US$UJ$:UG$UK$:UPUJ:ULUK:(50003)053281,6:53280,14^ : "";:UQUB(U2%256U1%U3%3)v : UQ,UQ%(UQUB): : U1,U1% : U2,U2% : U4,U4% : U3,U3%1 : 35 : UD%((U2%256U1%U3%)UB)40:(UD$,UD%1):! NNO"" HIS PROGRAM WILL RUN ON ANY6" à2.0 ]" 4.0 Ԡ" 8032 " 64  : 835: 850: " HIS PROGRAM WILL ! ";:*I122:"";:," 5."  V0" t2" 4"C O M M O D O R E6"EDUCATIONAL8"! 300-----RE-ENABLE STOP KEY AND END-----N: (50003)1(50003)160(50003)0399{: UU71:(50003)053281,6:53280,14: "":: 875:-----STUDENT INSTRUCTIONS-----: "":UT,UL%:(50003)053281,0:53280! : " CHOICE USING THE INSTRUCTIONS IN"6 : " '4. ΠƠ'."c": " HE STATISTICS CALCULATED ARE:"$: " INIMUM AXIMUM UM"&: " EAN EDIAN ANGE"(: " OWER INGE PPER I!A."" HE DATA MAY BE ENTERED IN EITHER"4" OF TWO FORMS:"c" 1) S A SIMPLE LIST OF VALUES, OR"" 2) ITH AN IDENTIFIER ACCOMPANYING"" EACH VALUE.": 835: 850" EMEMBER TO HIT "!f: !SPEED UP": " THE PROCESS OF CALCULATING STAT-"+: " ISTICS."X: " HE DATA MAY BE TYPED IN WITH,": " OR WITHOUT, IDENTIFIERS UP TO A": " MAXIMUM OF "MX". HIS MAY BE": " CHANGED TO ANY NUMBER OF YOUR"! SOFTWARE: ** COMMODORE LOGO **1 ;(UD$,24);"PRESS SPACE BAR OR WAIT":I0S <A$:A$" "II1:I250828z >: T1$"":T2$"":T3$"":T4$"":I0 @: 300 C-----SPACE BAR PRESS----- H: (UD$,24);"PRESS SPACE BA!,0UP0:UG$"TUDENT NST":850>" HIS PROGRAM DOES A STATISTICAL"k" ANALYSIS ON A LIST OF DATA VALUES."" (AXIMUM "MX") T WILL ORDER THE"" LIST AND FIND SEVERAL STATISTICAL"" QUANTITIES DESCRIBING THE DAT!NGE ID PREAD" *: " TANDARD EVIATION" ,: " ARIANCE"&.:20: 835IN: UZ1UP%:217RW: {X-----PROGRAM MODIFICATION INST-----Y: "":UT,UL%]: UP0:UG$"ROGRAM OD":850^: " HIS PROGRAM SETS A !URN> AFTER"" TYPING YOUR ANSWER. HIS TELLS"G" THE COMPUTER TO ACCEPT WHAT YOU"^" HAVE TYPED."" YPE AT ANY TIME TO RETURN"" TO THE MENU FOR HELP. OU WILL"" BE RETURNED TO THE PLACE IN THE"" !INE 908; EXIT THE PROGRAM"n: " (OPTION 5) AND TYPE ' 908'."Lp: " SE THE CURSOR CONTROLS TO CHANGE"er: " THE NUMBER."q: 835: UZ1UP%:217: -----TO USE 8032 LOAD CBM4032-----"BEFORE RUNNING !NST.":850: " O THE BEST OF OUR KNOWLEDGE,"K: " THIS PROGRAM IS IN THE PUBLIC"z: " DOMAIN. F THIS IS NOT THE CASE": " PLEASE CONTACT:": " OMMODORE USINESS ACHINES": " 3370 H" A SET OF DATA(B$"BACK":E$"END"($Z(0)0:N$" ").UT,UL%)8""16)""7)B16);:J15:(192);::d)" OULD YOU LIKE TO USE IDENTIFIERS")" WITH YOUR INPUT (Y OR N) ? ";)UL1:US$"YNH":35)UR$"Y"F1:1260)" "":!k-----PLEASE WAIT REMARK-----/"p: (UD$,24);" ONE MOMENT PLEASE... "8"u: X"-----SET UP VARIABLES-----": UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024": UT59468:UU%12:UL%14:UP%1" R (ABBREVIATED ..) AND ITS"+<" VALUE IN RESPONSE TO THE SEPARATE"++F" QUESTION MARKS.":2220G+P2260:J19:R$::N1T+ZN1N1z+d2490:" ATA TEM #";N+nF0D$(N)N$:1430+x" .. ";:UL16:US$"" ": PLACE PROGRAM TITLE HERE!!!!!!!!!!!!!!!*** $: MX100:($-----SET VARIABLES-----4$: 900O$: D$(MX),V(MX),Z(MX)U$:s$-----CHECK FOR 8032-----$: "":"": SHIFTED SPACE$: (UB40)96700$-----MEMORY CHECK-":NN1:1490,NN1:1370,NN1 -N0" ** Ϡ -- RUN ABORTED **":300-"":2260A-"ONTINUATION PTIONS"j-" 1) IST DATA IN ORIGINAL ORDER-" 2) IST DATA IN RANKING ORDER-" 3) ISPLAY STATISTICS"079,4:1080,133:1081,145&1091,155:1098,133:1099,144:1100,234:1103,1335&1104,145:1105,234:1082,234O&: (50003)160955&: 1093,88:1094,228:1097,85:1102,228:965&: (50003)1990&: 1093,49:1094,230:1097,46:1102";"OTAL NTRIES":2280.:" # ALUE";.F0.F122);".." /2260/J1N//J;5);V(J);22);D$(J):/2370G/:835:Q/2260u/" ŠΠǠ":/" ";N;"OTAL NTRIES"/2280/875: --- ONE M"ENU': "THE PGM WILL NOT WORK ON THIS MACHINE!":1(: UZ1UP%:UP%:UZ0:-----PROGRAM STARTS HERE-----[("";:(50003)053281,6:53280,14( --------------STATS-----------------------------------------------( BASIC STATISTICS OF" ": --- ONE MOMENT ---0NP0:NN0:NZ0:SQ0:W0 1J1N:WWV(J):SQSQV(J)V(J)1V(J)0NPNP111V(J)0NNNN1E1V(J)0NZNZ1a1:MWN:VA0:N12000s1VA(SQN)MM1SD(VA)1" "NP;"OSITIVE;";NN;"EGATIVE;";NZ#;"ERO"12400:" INIMUM ALUE = ";V(Z(N)) 2" AXIMUM ALUE = ";V(Z(1)):2" ANGE = ";V(Z(1))V(Z(N))^2" UM OF THE VALUES = ";W:2 " EAN = ";(100M)1002Q((N1)2)2 MD(V(Z(Q"UR$"N"F0:1260)"":2260 *" HE DATA MUST NOW BE ENTERED."*:F11320D* " NTER EACH VALUE SEPARATELY IN"n*" RESPONSE TO THE QUESTION MARK."*2220:1360*(" OR EACH DATA ITEM ENTER ITS"*2" IDENTIFIE"146:UM32768#(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048Q#(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024x#: UD$""#: UP$" "#: UT$" "":35:R$UR$:R$E$1490+R$B$NN1:1370+D$(N)R$+," ALUE ";:US$"-.0123456789H*ENDBACK"K,UL5:35:R$UR$:R$E$1490`,R$B$F11380x,R$B$NN1:1370,V(N)(R$),NMX:"** O MORE DATA ALLOWED **":835"----$: (0)2000937%: "THIS MACHINE DOES NOT HAVE ENOUGH"9%: "MEMORY TO RUN THIS PROGRAM !"G%: UU71P%: m%: "":(50003)0962%-----BASIC 2.0 OR 4.0 OR C-64 SETUP-----%1075,133:1076,144:1077,234:1"-" 4) ND SESSION-"" NTER OPTION (1,2,3, OR 4)-,2260.6" ";:UL1:US$"1234H":35&.J""3.TR(UR$)T.^R4300: --- MAIN MENU ---m.h R 1660,1770,1900x.r1510.|2260:." Š̠":." ";N",230:965'2099,141:2100,20:2101,3:2103,8:2104,141:2105,21A'2106,3:2115,145:2117,52:2118,234:2121,49:2122,141{'2123,20:2124,3:2126,234:2127,141:2128,21:2129,3': UU48: DISABLE STOP KEY': 800: TITLE': 300: M"OMENT ---/2400::" # ALUE";/&F0/0F122);".."0:22600DJ1N20NJ;5);V(Z(J));22);D$(Z(J))=0X2370J0b:835:T0l2260v0v10);"̠"0" OUR LIST HAS";N;"VALUES"0N10875:"# ))V(Z(N1Q)))22*" EDIAN = ";(100MD)10024H1(N2)43> H1(H1) H1(H1):2140A3HUHV(Z(H1)):LHV(Z(N1H1)): 2160M3R 2160l3\UH(V(Z(H1))V(Z(H11)))23fLH(V(Z(N1H1))V(Z(NH1)))23p" OWER INGE # AKE, TYPE"4" '"B$;"' TO RE-ENTER THE LAST DATUM." 5:" HEN THE LIST IS COMPLETED, TYPE"75" '"E$;"' TO TERMINATE THE LIST.":Q5-----PRINT LINE-----o5" ";:J137:(45);::w5:5:" HILE THE LIST IS DISPLAYING, YOU#:K1N:J1NM:N1Z(J)6~ N2Z(J1):V(N1)V(N2)24506 Z(J1)N1:Z(J)N27 ::Z(0)1:&7 -----CLEAR BOTTOM SCREEN-------B7 "";M7 Q157 : " "7 Q7 "# = ";(100LH)1003z" PPER INGE = ";(100UH)1004" ID-PREAD = ";(100(UHLH))100N4:" ARIANCE = ";(100VA)100|4" TANDARD EVIATION= ";(100SD)1004835:4:" F YOU MAKE A MIST#"5" CAN HIT ANY KEY TO CAUSE A TEMPORARY"5" HALT. HE DISPLAY WILL RESUME WHEN6 " YOU HIT ANOTHER KEY."*6 "":226036 835<6. ""B68 S6B R$:R$""h6L R$:R$""2380n6V |6` Z(0)16j J1N:Z(J)J::N16t NMN1 ";7 N HIT ANY KEY TO CAUSE A TEMPORARY"5" HALT. HE DISPLAY WILL RESUME WHEN6 " YOU HIT ANOTHER KEY."*6 "":226036 835<6. ""B68 S6B R$:R$""h6L R$:R$""2380n6V |6` Z(0)16j J1N:Z(J)J::N16t NMN1