" 64 HAS"Y"POINT.";:Y1"S.":21403R4\" "NAME$" HAD"L"POINT.";:L1"S.":2170"4pX4zYYO:LLP:" ** ĠӒ ** "4" 64 HAS"Y"POINT.";:Y1"S.":220044"  $C$Z$:19001C$""19002CD"":" ORRECT";:LL2:(UD$,9)30)L:200022020,2C$"":835:S:2040e2" "::" OT FAST ENOUGH!";:I9110:D$:I92YY2:"":" NSWER IS: "C:(UD$,9);22);Y2C$"":835 PS$"FOR "NAME$"."/ 835/S115:UG$"UESTION #":UPS1:85020" **** OUND 2 ****"::20)" 64 ";NAME$J0"";22);Y;30);LY0I1500:s00A((1)100):F100A0:B((1)F)0DCAB0N" ";A;"+";B;"= ";0X ";:22301 " HAVE A HABIT OF FORGETTING THINGS." 2 "HAT IS YOUR FIRST NAME AGAIN"72 UL0:US$"":835:UR$(UR$,10):NAME$UR$W2. P$" POINT ":PS$" POINTS "b28 1220170r0p0zYYO:LLP:" ** ĠӒ ** (Z$)20D(C$):C$(C$,D1):1580-hC$C$Z$:1580.rC$""1580;.|CD"":" ORRECT":PP1:(UD$,9)30)P:1710G.1700_.C$"":835:S:1720." "::" OT FAST ENOUGH!";:I9110:D$:I9.OO1:::" NSPOINT.";:P1"S.":2110/4/>" ** OUND 2 TOTALS **"*0H" HAS"Y"POINT.";:Y1"S.":214000Rl0\" "NAME$" HAD"L"POINT.";:L1"S.":2170r0p0zYYO:LLP:" ** ĠӒ **  HAVE ONLY 1 SECOND TO ANSWER":835,xS115:UG$"UESTION #":UPS1:850A," **** OUND 1 ****"::20)" 64 ";NAME$Y,"";22);O;30);Pi,I11000:z,A((1)10),B((1)10),CAB," ";A;"+";B;"= ";,(Z$)13D(C$):1970-Z$;-(Z$)20D(C$):C$(C$,D1):1900 .C$C$Z$:1900.C$""1900X.CD"":" ORRECT";:LL2:(UD$,9)30)L:2000d.2020|.C$"":835:S:2040." "::" OT FAST ENOUGH!";:I91 "NAME$" HAS"L"POINT.";:L1"S.":222045" ANT TO PLAY AGAIN "NAME$"? ";5UL1:US$"YN":3555UR$"Y""":1220E5UR$"N" e5" ";:22305 " HAVE A HABIT OF FORGETTING THINGS."5 "HAT IS Y:S22 UG$"CORING":UP1:UH1:850:" ** OUND 1 TOTALS ** "13" 64 HAD"O"POINT.";:O1"S.":209073 s3*" "NAME$" HAD"P"POINT.";:P1"S.":2110y343>" ** OUND 2 TOTALS **"3HZTTI:ZC20bV1TM3.90lZ$:Z$""19301{ZTTI("",ZC,1);"";:ZC3ZC:ZTTI15:V:2010&11900N1Z$"H"FL1:195:C$"":Z$"":1900r1" ";:(Z$)13D(C$):1970{1Z$;1(Z$)20D(C$):C$(C$,D1):19001CWER IS: "C:(UD$,9)22)O.C$"":835:S.UG$"CORING":UP0:850:*/" O FAR, THE SCORING IS"?/" ";O;_/O1P$"FOR 64 AND":1760u/PS$"FOR 64 AND"/" "P;/P1P$"FOR "NAME$".":1790/ "0" HAS"Y"POINT.";:Y1"S.":22000"1" "NAME$" HAS"L"POINT.";:L1"S.":2220(1W1" ANT TO PLAY AGAIN "NAME$"? ";m1UL1:US$"YN":351UR$"Y""":12201UR$"N" 1" ZTTI:ZC2:UL4,"T1TM3.9,,Z$:Z$""1610'-6ZTTI("",ZC,1);"";:ZC3ZC:ZTTI15:T:16903-@1580[-JZ$"H"FL1:195:C$"":Z$"":1580-L(C$)ULZ$(13)Z$(20)1580-O" ";:(Z$)13D(C$):1650-TZ$;-^10:D$:I9.YY2:"":" NSWER IS: "C:(UD$,9);22);Y.C$"":835:S/I/ UG$"CORING":UP1:UH1:850:" ** OUND 1 TOTALS ** "/" HAD"O"POINT.";:O1"S.":2090/ /*" "NAME$" HAD"P"rOUR FIRST NAME AGAIN"5 UL0:US$"":835:UR$(UR$,10):NAME$UR$6. P$" POINT ":PS$" POINTS "68 1220170"4pX4zYYO:LLP:" ** ĠӒ ** "4" 64 HAS"Y"POINT.";:Y1"S.":220044"  ROGRAM WILL RUN ON ANY" 64 ?" 64 R 835:UH1:850" HIS PROGRAM CAN BE USED TO SUPPORT "" THE MATH CURRICULUM. T IS GOOD FOR " " STUDENTS JUST LEARNING HOW TO ADD,  ** PAGE DESIGN ROUTINE **!TUPUP1"W""(UT$UP$,21);(UP$UG$(UP),18)K"\" --------------------------------------"Z"`UH0870"a(UD$,24);(UP$,7);"HELP - PRESS H ""fUH0:"":"k ** PLEASE WAIT REMARK **"p(UD$,   ."  ( 0" F 2" n 4"C O M M O D O R E 6"EDUCATIONAL 8"SOFTWARE : ** COMMODORE LOGO **! 3211:U4214:UC204:UU2048"$(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198F$UD$""x$UP$" "$UT$" ԠŠˠ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***"(34)" SO THAT IT BECOMES:3"1240 UL=2:US$="(34)"1234567890"(34)":GOSUB 35:";I"TM $=UR$"R835fUZ1UP%:217l ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " UU71%%"":(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)160 1840"|835:UP3:850#~" HE PROGRAM IN ITS PRESENT STATE WILL"R" ONLY ACCEPT ZERO THROUGH NINE AS TIME"" DURATIONS TO ANSWER EACH QUESTION. F"" YOU FEEL THAT YOU NEED A 2-DIGIT TIME"" DURATION, ADJUST LINE 1240 :"4,3:2126,234:2127,141:2128,21:2129,3(UU48: DISABLE STOP KEY(800: TITLE'(300: MENUX("THE PGM WILL NOT WORK ON THIS MACHINE!":(UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **("";::(50003)053281,6:53280,14("d"[1] HANGING ITS LEVEL OF DIFFICULTY"=f"[2] AKING ADJUSTMENTS TO ALLOW"eh"FOR GREATER TIME LENGTHS"xj835:UP2:850l" O CHANGE THE PROGRAM'S LEVEL OF"n" DIFFICULTY, ADJUST LINE NUMBERS 1520,"pHAT IS YOUR FIRST NAME? ";)BUL10:US$"":35:NAME$UR$*VNAME$"""";:10805*` GAMES WRITTEN IN CAN @ OISEM*j IN TORONTO CANADAs*t TRANSLATED FOR USE ON COMMODORE*~ C64 BY * SIMON TAYLOR ** FOR MICRO COMPUTER LIBERARY* OR""" AS A REVIEW PRACTICE."# 835:UH1:850F$" HEN USING THIS PROGRAM, MAKE SURE"r&" THAT YOU ADJUST IT TO THE LEVEL OF"(" DIFFICULTY OF THE GRADE LEVEL YOU ARE")" USING IT FOR."*" (EE SECTION ON ͠24);" ONE MOMENT PLEASE... ""u# ** SET UP VARIABLES **b#UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024#UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0#(50003)0UB1024:U1209:U2210:U;(UD$,24);"PRESS SPACE BAR OR WAIT":I0%!<A$:A$" "II1:I250828I!>T1$"":T2$"":T3$"":T4$"":I0R!@300n!C ** SPACE BAR PRESS **!HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"!LUI$:UI$" "844!N!R$$ ** SET VARIABLES **$900 % ** CHECK FOR 8032 **(%"":"": SHIFTED SPACE?%(UB40)96700X% ** MEMORY CHECK **l% (0)2000937%"THIS MACHINE DOES NOT HAVE ENOUGH"%"MEMORY TO RUN THIS PROGRAM !"% LOAD THE 'CBM 4032' PROGRAM"UU71.  ** T I T L E P A G E **b""";:UT,UU%:(50003)053280,14:53281,6x$I138:"";:&I122:"";:(I137:"";:*I122:"";:,"955&1093,88:1094,228:1097,85:1102,228:965 '(50003)19908'1093,49:1094,230:1097,46:1102,230:965r'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:212"1240 UL=1:US$="(34)"123456789"(34);6":GOSUB 35:TM$ =UR$": 835:UH1:850t" HANGE THE VARIABLE "(34)"UL"(34)" SO IT EQUALS" " ";(34)"2"(34)" AND ADD A ZERO ON THE END OF THE"" STRING VARIABLE, "(34)"US$ ********************************)* MODIFICATIONS MADE BY *+)* CARY LEWIS AND HIN JANG *Q)********************************)$P$"POINT ":PS$"POINTS ":PG$"B.T.C. ADD"))UT,UL%)." 'M CALLED THE '64'.")8" " 1530, AND 1840. HESE ARE THE LINES :"'r"1520 A=INT(RND(1)*10)"Ht"1530 B=INT(RND(1)*10)"rv"1840 A=INT(RND(1)*100):F=100-A"x" DJUST THE "(34)"10"(34)" IN LINES 1520, 1530"z" AND THE "(34)"100"(34)" IN LINENORTH YORK BOARD OF EDUCATION* WILLOWDALE,ONTARIO JUNE 1980)+" OW "NAME$", HOW MANY SECONDS DO YOU"]+" WISH TO ANSWER EACH QUESTION? ";+UL1:US$"123456789H":35:TM$UR$+TM(TM$):O0:P0:Y0:L0+K(TM$)1" OU)"-" TUDENTS MAY USE THIS PROGRAM ALONE ".." OR IN GROUPS. "7D835KNUZ1UP%:217QWwX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UH1:UP0:UG$"ROGRAM OD":850b" HIS PROGRAM MAY BE MODIFIED BY:  PLAYER 2 "%(" ";"ANGLE (1-90) ";:UL2^(US$"0123456789H":35:E(UR$): E90 E0 2025("POWDER (1-15) ";:35(V(UR$):V15 V0 2032(KK1: E0 13 850" O THE BEST OF OUR KNOWLEDGE,"A" THIS PROGRAM IS IN THE PUBLIC"m" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE."  "0t "ACH RESPONSE FROM THE KEYBOARD"0v B1110"1x (UD$,21);": < > AFTER "71y B21300::B20m1z (UD$,21);": < > AFTER "1{ B21300::B201| 1 B112000: B11 B101  ROUNDS. OUND 2 IS HARDER"1" BUT EACH QUESTION SCORES 2 POINTS!"`" EMEMBER TO PRESS RETURN AFTER EACH" ANSWER. ---(AND THINK FAST!)" 835UH1:850" OTE:O ADVANCE FROM ONE QUESTION"" TO THE  ";. X1 2: X: Z. X1 50: X. 2470/ "";/ (A$,L(3N)1);6/ (B$,24H(L(3N)1));A/ 2740G/ _/ WW(10((1).5))}/" "";(B$,24);" ";/, W0 " ";W;" MPH WIND -----> ";:UDENT INSTRUCTIONS **2"":UT,UL%:(50003)053281,0:53280,0XUH1:UP0:UG$"TUDENT NST":850" HIS PROGRAM WILL TEST YOUR ADDITION"" SKILLS. OU'LL BE GIVEN 30 QUESTIONS."" IGHT ANSWERS SCORE POINTS FOR YOU,"" A(MJ)0 2580, A(MJ)0 B(MJ)0 2620- (B$,A(MJ));- B(MJ)1 26000- (A$,B(MJ)1);:-( " ";D-2 "";[-< J: M1 2830{-F B(M)1 B(M)39 2840-P 2380-Z B(M1)1 2670-d (A$,B(M1)1);ADD" @" 2. STUDENT INSTRUCTIONS"JE" 3. TEACHER INSTRUCTIONS"wJ" 4. MODIFICATION OF PROGRAM"O" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-5) "; B(M4)0 2140* (B$,A(M4));*$ (A$,B(M4)1);+. " "; +8 "";+B 2140(+L M1 2140H+V B(M)1 B(M)39 1950+` LINES 2410 AND 2440 DETERMINE HIT. CHANGE '1.5' TO CHANGE DIFFICULTY.+j (B(M1)L(N))1.5 2430U2%256U1%U3%3) UQ,UQ%(UQUB):) U1,U1%5 U2,U2%A U4,U4%O U3,U3%1` FL1FL0:h 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ":U1%(U1):U2%(U2):U3%10(A2(N)A2(N)2.86( E90E( N1 2090( EE)*X1L(N))4Y1H(L(N))1%)>T0:M09)HV1(E180)VP)RV2(E180)V.7a)\TT.5:MM1z)fV1V1(V1W.5)1500)pXX1(V1W.550)T)zX(X.5))YY1(V2T3)T)Y GINCOURT, NTARIO"" ANADA 1 24"=" (416) 499-4292"XUH1:UP1: 835: 850:" ROGRAM AME: EAT THE LOCK DD" RITTEN Y : IN ANG" PGRADED Y : ARY EWIS" HIS P50/6 " ";W;" MPH WIND <----- ";: 1950/@ /J 0T "";15);"RTILLERY"::;0^ 11);"REATIVE OMPUTING"W0h 13);".. BOX 789-M"0r 6);"ORRISTOWN, EW ERSEY 07960"0s ":RESS < > AFTERNEXT, PRESS THE BAR"2"F AT ANY TIME YOU WISH TO RETURN"P" TO THE PRESS H."Y835mUZ1UP%:217s ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UH1:UP0:UG$"EACHER NST": 1950/6 " ";W;" MPH WIND <----- ";: 1950/@ /J 0T "";15);"RTILLERY"::;0^ 11);"REATIVE OMPUTING"W0h 13);".. BOX 789-M"0r 6);"ORRISTOWN, EW ERSEY 07960"0s ":RESS < > AFTER BUT WRONG ANSWERS SCORE POINTS FOR ME."C" F YOU TAKE LONGER THAN THE TIME YOU"p" CHOOSE AT THE START OF THE PROGRAM,"" THEN IT'S A POINT FOR ME." 835:UH1:850" HE QUESTIONS ARE DIVIDED INTO TWO 15"" QUESTION-n (B$,23H(B(M1)));-x Z1 3: "Α!";: X1 5:X,. " ";: X1 5: X: Z:"";7. 2830A. "";T. (A$,L(N)1);k. (B$,24H(L(N)));. Z1 10:"ѩͿ!Ν!Ν";"";. " ^UL1:US$"12345":35: INPUT ROUTINE!`US$""Bc(UR$)1000,400,500,600,396Kh300r ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** ST+t 2440+~ T1 2710+ (B(M1)L(3N))1.5 2790 , T1 2140, 2650 , ""K, " ANOTHER GAME ? (Y/N) ";b, UL1:US$"YNH":35w, UR$"Y" 1000, 300, "";, J4 1 1, MJ0 2620,(U3):U4%(U4)*UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL0A, ** MENU **G-:v."":UT,UU%:(50003)053281,9:53280,8|/:1" MENU"6" --------------------------------------";" 1. BEGIN BEAT THE CLOCK (Y.5))Z23Y:"";)A(M)Z:B(M)X: X39 X1 2530*YH(X)0 2520&* Z0 22909* Z0 2260G*(B$,Z);Z* X1 2280j*(A$,X1);s*""}*"";* M41 2140* A(M4)0 2340* A(M4)0  4:UC204:UU2048)(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198MUD$""UP$" "UT$" RTILLERY ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***A(100) N: N1 2010 &(UD$,23)" PLAYER 1 *PLAYER 2*"8&"";(A$,23);"ANGLE (1-90) ";:UL2v&US$"0123456789H":35:E(UR$): E90 " ";: 1970&"";:E0 1965&(B$,1);(A$,23);"POWDER(1-15) ";:UL2: SIGN ROUTINE **TUPUP1#W""(UT$UP$,21);(UP$UG$(UP),18)R\" --------------------------------------"a`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);"  B$,22);# I1 39:H(I)(H(I).5):I$ X1 39:X1 1750$"";-$(Z$,1,H(X)4);G$ Z1 H(X):"";:ZT$ X:""^$"";$(B$,1,22H(1));: L(1)1 1810$(A$,1,L(1)1);$"^";$"";$&(B$,1,22H(39)); ."  /0" M2" u4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO ** ;(UD$,243X1((1)(X2X16))3!H(X3)(1)119"D1(H(X3)H(1))2%"D2(H(X3)H(39))2=" D1D20 1610H"J180\"K180(X3X11)k"H9H(1)D1" IX11 X31"JJK"H(I)H9(J180)D1"I"J0"K180(X2X31)"Z1UP%:217WX ** PROGRAM MODIFICATION INST **0Y"":UT,UL%P]UP0:UG$"ROGRAM OD":850Y835mUZ1UP%:217s ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE ";::(50003)053281,6:53280,6 oUT,UL% t GOSUB 2890 x:900B "": UT,UU%: RESET TO GRAPHICSf Z$" ": X1 5:Z$Z$Z$:X A$"": X1 6:A$A$A$:X:B$"": X1 5:B$B$B$:X N2  CONSTRUCT MOUNTAIN #"" DOMAIN. F THIS IS NOT THE CASE"-" PLEASE CONTACT:"W" OMMODORE USINESS ACHINES"z" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UP45:1105,234:1082,234(50003)16095501093,88:1094,228:1097,85:1102,228:965E(50003)1990t1093,49:1094,230:1097,46:1102,230:9652099,141:2100,20:2101,3:2103,8:2104,141:2105,212106,3:2115,145:2117,52:211,B(100),H(39),A1(2),B1(2),A2(2),B2(2),L(2)" ** SET VARIABLES **+900F ** CHECK FOR 8032 **d"":"": SHIFTED SPACE{(UB40)96700 ** MEMORY CHECK ** (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH"US$"0123456789'US$US$"H":35:V(UR$): V15 V0 1975' 2040W'" ";" ";'" ";'(UD$,23)"*PLAYER 1* ONE MOMENT PLEASE... "u ** SET UP VARIABLES **iUX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U2210:U3211:U421$0(A$,1,L(2)1);$:"^";%?(UD$,23)"PLAYER 1PLAYER 2"(%D"";9%N(B$,1,24);I%X" ";Q%bK1d%lW0 1930%vW;" MPH WIND <----- ";% 1950%W;" MPH WIND ------> ";%"";%"";:N3);"PRESS SPACE BAR OR WAIT":I0,<A$:A$" "II1:I250828P>T1$"":T2$"":T3$"":T4$"":I0Y@300uC ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DEH9H(39)D2" IX31 X21""JJK#,H(I)H9(J180)D2#6I #@ 16905#JD(H(1)H(39))2=#TJ0Q#^K180(X2X11)`#hH9H(39)Dt#r IX11 X21~#|JJK#H(I)H9(J180)D# I#"";#W(100((1).5))#('CBM 4032' PROGRAM"UU715  ** T I T L E P A G E **i""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I137:"";:*I122:"";:,"";(UD$,23);"BUILDING MOUNTAIN..."!(X1(6(1)8)!2X2(25(1)8)2!<L(1)(3(X13)(1))P!FL(2)(X21(36X2)(1))a!PH9(1)111{!Z I1 X1:H(I)H9:I!dH9(1)111!n IX2 39:H(I)H9:I!x (H(1)H(39))4 1360!X1: 835: 850: " ROGRAM AME: RTILLERY B" RITTEN Y : NKNOWNf" PGRADED Y : " HIS PROGRAM WILL RUN ON ANY" 64 " 64  835NU8,234:2121,49:2122,141$2123,20:2124,3:2126,234:2127,141:2128,21:2129,3BUU48: DISABLE STOP KEYS800: TITLEc300: MENU"THE PGM WILL NOT WORK ON THIS MACHINE!":UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **" "MEMORY TO RUN THIS PROGRAM !"UU71 %"":(50003)0962T ** BASIC 2.0 OR 4.0 OR C-64 SETUP **1075,133:1076,144:1077,234:1079,4:1080,133:1081,1451091,155:1098,133:1099,144:1100,234:1103,1331104,1 ZX(ZX10000.5)10000- 2470- ZYZY(1.08ZY4ZT3)- 2420 . F12490. ZX1ZX=. " WHICH IS SIGNIFICANT AT";R(ZX)C. I. . 3,5,5,6,11,9,12,12,26,15,28,16,24,18,11,20,27,4,12,12,20,999. 5,6,7,6,12,7,10,12,8,14,4,9,15,8, ASHX(I)HC(I)2HY(I)+I+BWXPW2WY,F(BAS)(TN2K)AS(K1)6,:" HE F TEST FOR THE HYPOTHESIS OF EQUAL"f," SLOPES OF THE REGRESSION LINES IS";R(F)q,D1K1,D2TN2K,835, LKS!":GOSUB835,300  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$ IS";R(F)".")D1K1)D2TNK1)2290*" SQUARED IS "R(ABTA)"."A*" --------------------------------------"K*2550Q** CR(TNTCTTTY)(((TNTSTT2)(TNTMTY2)))*:" HE CORRELATION COEFFICIENT IS";R(CR)"."$ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1) -----------------------------" (0" :"11)R(BY)21)R(WY)30)R(RY);(:" :"11)R(BX)21)R(WX)30)R(RX)j(D" :*"11)R(PB)21)R(PW)30)R(RT)(N" ."11)K121)TNK30)TN1(XTARXRT2RY(bAWWXPW2WY(lABTAP ROUTINE EXIT +++ 250 2450 UQUB(UB987)L UQ%(UQUB)(UQ)::""_ UZ1:UV%(UT)h 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUBUB987 ;22)R(TNK);30)R(Q(TNK))&" OTAL";10)R(P);22)R(TN1)8&" --------------------------------------"O&FR(TNK)Q(K1)p&" HE F VALUE IS";R(F)"."&" ITH";K1;"AND";TNK;"DEGREES OF FREEDOM."&D1K1&D2TNK&22, ** MENU ** -:8."":UT,UU%:(50003)053281,9:53280,8>/:[1" MENU"6" --------------------------------------";" 1. BEGIN ARTILLERY@" 2. STUDENT INSTRUCTIONS"E" 3. TEACHD END **'(50003)1(50003)160(50003)0399QUU71:(50003)053281,6:53280,14]"":h875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0UP0:UG$"TUDENT NST":850 " HIS IS A Gs9,12,999. 7,4,8,5,3,7,4,9,10,10,5,6,999. 835. 850:!/p2,12,45,16,13,14,999,20,23,25,12,24,14,99929ZT_-` ZY((1ZK)ZZ(13)1ZJ)(ZKZZ(23)ZJ)n-j ZT42450-t ZX.5(1ZY(.196854ZY(.115194ZY(.000344ZY.019527))))4-~,ZX1,F12350, ZSD1, ZTD2, ZZF,$ 2380,. ZSD2-8 ZTD1-B ZZ1F -L ZJ29ZS.-V ZK29ZT_-` ZY((1ZK)ZZ(13)1ZJ)(ZKZZ(23)ZJ)n-j ZT42450-t ZX.5(1ZY(.196854ZY(.115194ZY(.000344ZY.019527))))4-~"":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 7UI$(13)(UR$)1UC,1:" ";:85| <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++* SPWWY**" RIGINAL AND ADJUSTED MEANS"*4I1K1+>I10)R(X(I)N(I))25)R(S(TYTNY(I)N(I))X(I)N(I))8+HIR+R:" OVARIATE MEANS"r+\" THE TOTAL WAS";R(TYTN)+f" AND EACH GROUP WAS"+pI1K+z" "I,R(Y(I)N(I))+AS UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HELAW(v" DJ, "11)R(AB)21)R(AW)30)R(TA))" DJ, ."11)K121)TNK130)TN2))SBAB(K1)<)SWAW(TNK1)c)" AR. EST."11)R(SB)21)R(SW ))" --------------------------------------")FSBSW)" HE ADJUSTED F VALUEUQ,UQ%(UQUB): U1,U1% U2,U2%) U4,U4%7 U3,U3%1? 35q UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);68);"HELP COMING";: U1%(U1):U2%(U2):U3%(U3):U4%(U4) UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL 90&" SQUARE IS";R(RP)"."'" -------------------------------------" '2550H'" 1-WAY NALYSIS OF OVARIANCE"w'" --------------------------------------"'&" OURCE";12)"ETWEEN";22)"ITHIN";32)"OTAL"'+" --------- ER INSTRUCTIONS"O" 4. QUIT"MT" --------------------------------------"xY" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,400,500,396h300 ** RE-ENABLE STOP KEY ANAME IN WHICH 2 PLAYERS SHOOT";6" AT EACH OTHER ACROSS A MOUNTAIN."d" T EACH TURN, THE PLAYER ENTERS THE "" ANGLE TO FIRE (1-90) AND THENUMBER OF BAGS OF ";" POWDER (1 TO 15 )." :" F YOU WISH PRESS 'H' ."835UZ1UP%:217< ** TEACHER INSTRUCTIONS **l"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC" 2' PROGRAM"UU71 +  ** T I T L E P A G E **_""";:UT,UU%:(50003)053280,14:53281,6u$I138:"";:&I122:"";:(I137:"";:*I122:"";:,"  91320!Y!N(I)N(I)1!X(I)X(I)X "Y(I)Y(I)Y"M(I)M(I)YY-" L(I)L(I)XY?"S(I)S(I)XXI"1220X"(I11340"2" ";11)"EAN";20)"TANDARD EVIATION":"<" "N(I);10)R(X(I)N(I));"A25)R(((S(I)N(I)(X(I) " ROGRAM AME: NKOVA 5" RITTEN Y : . ERGER \" PGRADED Y : TEVE UTZ " HIS PROGRAM WILL RUN ON ANY" 64 " 64  835NUZ1UP% 41 2123,20:2124,3:2126,234:2127,141:2128,21:2129,3* UU48: DISABLE STOP KEY; 800: TITLEK 300: MENU| "THE PGM WILL NOT WORK ON THIS MACHINE!": UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE ** "";::(50003)053835UZ1UP%:217 + ** TEACHER INSTRUCTIONS **["":UT,UL%:(50003)053281,2:53280,10|UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. FHIS PROGRAM !"UU71 "":(50003)0962< ** BASIC 2.0 OR 4.0 OR C-64 SETUP **z1075,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:UG$"TUDENT NST":850)" TOP THE PROGRAM AND ...:"O" NSERT DATA ON LINE 6000 AS:"z" 6000 DATA K,A1,AC1,A2,AC2,...,999"" ,B1,BC1,...,999 ETC. WHERE K IS THE"" NUMBER OF GROUPS AND AAND AC ARE"" DATA POINTS AND CU4214:UC204:UU2048,(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198PUD$""UP$" "UT$" OVARIANCE ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***TINE **TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)H\" --------------------------------------"W`UH0870aPRINTLEFT$(UD$,24);LEFT$(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" )Y(J)2N(J)#HC(J)L(J)X(J)Y(J)N(J)#J $BYTATY2TN$BXTWTT2TN+$WYTMTA>$PBTDTTTYTNP$RYTMTY2TN]$"WXTSTWf$,RBXo$6QWX|$@PWTCTD$JRTTCTTTYTN$TRXTSTT2TN$^PRQ$h" NIVARIATE 1-WAY  ."  %0" C2" k4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);" N(I))2)(N(I)1)))"FI"P2550"Z#dJ1K#nTTTTX(J)#xTYTYY(J)-#TCTCL(J)<#TSTSS(J)K#TMTMM(J)Z#TNTNN(J)p#TWTWX(J)2N(J)#TDTDX(J)Y(J)N(J)#TATAY(J)2N(J)#HX(J)S(J)X(J)2N(J)#HY(J)M(J:217WX ** PROGRAM MODIFICATION INST **&Y"":UT,UL%F]UP0:UG$"ROGRAM OD":850O835cUZ1UP%:217i ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 403281,6:53280,14 !:900: UG$"":UP0: UT,UL%!.850!K)!K1011190d!850:" HE NUMBER OF DATA ITEMS IS TOO BIG.":835:!R(X)(X100.5)100!::" HE NUMBER OF GROUPS IS ";K;".":""!I1K!X!X99 THIS IS NOT THE CASE"" PLEASE CONTACT:"F" OMMODORE USINESS ACHINES"i" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:(50003)1609551093,88:1094,228:1097,85:1102,228:965-(50003)1990\1093,49:1094,230:1097,46:1102,230:9652099,141:2100,20:2101,3:2103,8:2104,141:2105,212106,3:2115,145:2117,52:2118,234:2121,49:2122,1OVARIATES."'" NCE THE DATA IS INSERTED, TYPE RUN."08359850h" OTE:O ADVANCE FROM ONE QUESTION"" TO THE NEXT PRESS THE BAR.""F AT ANY TIME YOU WISH TO RETURN"" TO THE PRESS H ." ** SET VARIABLES ** N(100),X(100),S(100)900. ** CHECK FOR 8032 **L"":"": SHIFTED SPACEc(UB40)96700| ** MEMORY CHECK ** (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN T ONE MOMENT PLEASE... "u! ** SET UP VARIABLES **lUX$"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:NALYSIS OF ARIANCE" %r" --------------------------------------"E%|" OURCE";10)"UM OF QR";22)"..";30)"EAN QR."t%" --------------------------------------"%" ETWEEN";10)R(R);22)R(K1);30)R(R(K1))%" ITHIN";10)R(Q)PRESS SPACE BAR OR WAIT":I0"<A$:A$" "II1:I250828F>T1$"":T2$"":T3$"":T4$"":I0O@300kC ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DESIGN ROU N2(100N1.5)100+N20N21N1$" $"((((N2),2))):6010)+N210N1$" $"((N2),2):6010S+NN2100N1$" $" ((N2),2):6010}+N21000N1$" $" ((N2),2):6010+N210000N1$" $" ((N2),2):6010+N2100000N 5410:0)"";B1$(""(2660(:(:835:$)fF1$""I)F2$" "n)F3$" "~)D1$"")."";D1$;:8)F1$)`S15:8)F2$:8)F3$:)8)F2  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$ 0&d J(CC1)(CC10)& INOSE& N1IN:5560:IN$N1$ ' PYXIN"', N1PY:5560:PY$N1$/'^ NSOSPYG' N1NS:5560:NS$N1$`' N1J:6310: 1)N1$;n' 5)IN$;|'& 16)PY$;'X 29)NS$' NSX3760' JJ1 :INNSE' N1IN:5560:IN$$ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1) ":UM919,125$ 10)"AMORTIZATION TABLE"%> 8)"INSTALMENT OF ";X$A%p2)"PAID";P;"TIMES PER YEAR FOR";K;"YEARS"Z%12) PK;"PAYMENTS"%"":UM279,115% 1)"PAY INTEREST PAYMENT OUTSTANDINGP ROUTINE EXIT +++ 250 245; UQUB(U2%256U1%U3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB(";BL$;:10000 :L(UR$)"FL"":1460#L9999999 "":14607#UP1:UG$"DATA ENTRY":850a#" 5. HOW MANY YEARS ARE THERE TO"#J" TO REPAY THE LOAN? ";BL$;:10000:K(UR$)#TFL"":1560#YK100"":15601FL1-'..(UD$,24)" PRESS SPACE TO CONTINUE, E TO EXIT ":UO,0..A$:A$" "&..A$"E"UP%:1..120156260g,N210RN2(N210)10 :6160p,RN2,N%10R :NN%100(R.005),B10N%NN%N1$N1$"0",t,NUJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN COVARIANCE@" 2. ST1$" $" ((N2),2):6010+N21000000N1$"$" ((N2),2):6010,HN1$((N2),2)<,zN2(N2)N1$N1$".00" :6260g,N210RN2(N210)10 :6160p,RN2,N%10R :NN%100(R.005),B10N%NN%N1$N1$"0",t,N$:8)F1$:D1$"";)14)"AMORTIZATION"*17)"TABLES" *(835: *ZS12000::)*5360K*S024:B1$:3280740S,32:V*"":*"C1$"    "*T"";:S110:1)C1$:**"":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 7UI$(13)(UR$)1UC,1:" ";:85| <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++N1$' PYNSIN'R N1J:6310: 1)N1$;( N1IN:5560: 5)N1$;( N1NS:5560:16)N1$;-( 33)"NIL"@(N1INNS:5560m(LX$N1$"":17)"LAST PAY'T:";N1$w(~4360(OSNS(J(PKJ3960(F4360(xCCCC10(12000(r UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HEL"%8 1)"NO. ON DEBT ON PRINC. DEBT "0&j 0)"":UM399,115U& I112:4)""10)""10)"" :x& 2)" "25) L$& 0)"":UM479,115&2 OSL:CC U2%256U1%U3%3) UQ,UQ%(UQUB):) U1,U1%5 U2,U2%A U4,U4%O U3,U3%1W 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4)#^399#|E(1IN)(NP)1$X((1(1E)(PK))1)EL$N1X:5560:X$N1$2$N1L:5560:L$N1$<$D5260w$v"":UM39,110$I121:"":UM3940I,93:$"0,396h300% ** RE-ENABLE STOP KEY AND END **T(50003)1(50003)160(50003)0399~UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0UP0UDENT INSTRUCTIONS"/E" 3. TEACHER INSTRUCTIONS"KO" 4. QUIT"zT" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,400,50110N1$" "((N1),2):6460,N1100N1$" "((N1),2):6460 - N1$((N1),2)-<8-nN1 81274.6954 :N1$((N2),2)B-5560-"N1:";N1:"N2:";N2:"R:";R:"N%:";N%:"NN%:";NN%:"N1$:";N1$-'FL0:US$"H0123456789.":UL10:35:(UR$) USE 8032 LOAD CBM4032 **3"BEFORE RUNNING THIS PROGRAM ON AN 8032 i" LOAD THE 'CBM 4032' PROGRAM"tUU71z  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:""; GINCOURT, NTARIO"&" ANADA 1 24"F" (416) 499-4292"\UP1: 835: 850:" ROGRAM AME: MORTIZATION" RITTEN Y : NKNOWN" PGRADED Y : " HIS PROGRAM W 141:2105,212106,3:2115,145:2117,52:2118,234:2121,49:2122,141T2123,20:2124,3:2126,234:2127,141:2128,21:2129,3rUU48: DISABLE STOP KEY800: TITLE300: MENU"THE PGM WILL NOT WORK ON THIS MACHINE!":UZ1 " KEY WHEN DONE. "5" HERE ARE 5 DATA ITEMS IN TOTAL TO"J" BE ENTERED."S835gUZ1UP%:217m ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UT$" MORTIZATION":UP0:UG$"EACHER 37"THIS MACHINE DOES NOT HAVE ENOUGH"*"MEMORY TO RUN THIS PROGRAM !"5UU71;U"":(50003)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **1075,133:1076,144:1077,234:1079,4:1080,133:1081,1451091,155:10 ,500,396h300( ** RE-ENABLE STOP KEY AND END **W(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0U 8:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0O(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$""UP$" UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN AMORTIZATION"@" 2. UO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE",LUI$:UI$" "8442NRR ** PAGE DESIGN ROUTINE **^TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"`UH0870a(UD$,24);(UP$, A ENTRY":850 !" 1. WHAT IS THE NOMINAL INTEREST RATE"?!" PER ANNUM? (%) "BL$;:10000:I(UR$)100V!FL"":1160o!I30"":1160!" 2. WHAT IS THE NUMBER OF INTEREST"!" PERIODS PER ANNUM? "BL$;:10000:N( :&I122:"";:(I137:"";:,*I122:"";:Q," s."  0" 2" 4"C O M M O D O R E6 ILL RUN ON ANY" 64 ;" 64 D 835XNUZ1UP%:217^WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD":850835UZ1UP%:217 ** TO UP%:UP%:UZ0: ** PROGRAM STARTS HERE **% "";::(50003)053281,6:53280,140 UG$""H UT$" AMORTIZATION"k $D2$"" VB1$" " [BL$" " `UP0:UG$"DAT NST":850!" O THE BEST OF OUR KNOWLEDGE,"J" THIS PROGRAM IS IN THE PUBLIC"v" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." 98,133:1099,144:1100,234:1103,1331104,145:1105,234:1082,2341(50003)160955`1093,88:1094,228:1097,85:1102,228:965u(50003)19901093,49:1094,230:1097,46:1102,230:9652099,141:2100,20:2101,3:2103,8:2104, T$" MORTIZATION":UP0:UG$"TUDENT NST":850L" HIS PROGRAM WILL AMORTIZE A LOAN"z"BASED ON INFORMATION ENTERED BY THE "" USER."" O RUN THIS PROGRAM, SIMPLY ENTER"" ALL REQUESTED DATA AND PRESS THE Β";  "2UT$" MORTIZATION ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***8R ** SET VARIABLES **[900v ** CHECK FOR 8032 **"":"": SHIFTED SPACE(UB40)96700 ** MEMORY CHECK ** (0)20009  STUDENT INSTRUCTIONS"2E" 3. TEACHER INSTRUCTIONS"NO" 4. QUIT"}T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,400 7);"HELP - PRESS H " fUH0:"":*k ** PLEASE WAIT REMARK **`p(UD$,24);" ONE MOMENT PLEASE... "fu ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024 UT5946UR$)!(FL"":1260"2N366"":1260."P" 3. WHAT IS THE NUMBER OF PAYMENTS"["" PER ANNUM? ";BL$;:10000:P(UR$)r"FL"":1360"P100"":1360"" 4. WHAT IS THE AMOUNT""" OF THE LOAN? ($) "EDUCATIONAL8"SOFTWARE7: ** COMMODORE LOGO **o;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRESS **H ITION":" 4. UBTRACTION"2" 5. CALAR ULTIPLICATION" 3" 6. RIPLE RODUCTS"63" 7. ISTANCE ETWEEN WO OINTS"_3" 8. NGLE ETWEEN WO ECTORS"3" 9. REA OF A RIANGLE"3""3 " ---------------------- 1430:Q1$Q1$V$:C1C1X:C2C2Y:C3C3Z:X1X1X:X2X2Y:X3X3Z11460:A((XXYYZZ)4):1410:RA$A$:'1850a1CH7" SIMPLIFY:":""Q$:"= ";:L$L6$:1" "Q$:" "Q1$:" ANSWER: ";:L$L4$"-.":1 ** DO AN EXE  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$ ":A((XC1)2(YC2)2(ZC3)2):1410:RA$A$.wUG$"DISTANCE"::/|1440:A$"FIND THE ANGLE BETWEEN THE VECTORS":Q1$Q$" AND "V$P/X0Y0Z01660i/C10C20C301660/Q$A$:A(XC1YC2ZC3)((XXYYZZ)(C12C22C32))/A $ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1) 0,X1550,1570,1590,1610,1630-1450:Q$"("Q$")":X1X:X2Y:X3Z:1430:Q$V$Q$--C1X:C2Y:C3Z:1460:1635d-"1450:Q$"("Q$")":C1X:C2Y:C3Z:1430:Q$Q$V$-,X1X:X2Y:X3Z:1460:1635-61450:X1X:X2Y:X3Z:1430:Q$V$""Q$-@ 27TMTI:UL10:US$".H(),0123456789-":35:AN$UR$:TMTITM :TTTTTM8"";:CH6204008AN$RA$17)"RIGHT!":NCNC1:e8" WRONG!":" THE CORRECT ANSWER IS "RA$:8AN$((AN$)):RA$((((RA$).00005)10000)10000) 430:Q$V$:C1X:C2Y:C3Z:1430:X1X:X2Y:X3Z:+UG$"CROSS PRODUCT":1440:Q$Q$""V$Q+XC2X3C3X2:YC3X1C1X3:ZC1X2C2X1:1390:RA$V$:z+UG$"DOT PRODUCT":1440:Q$Q$""V$+AC1X1C2X2C3X3:1410:RA$A$:+1440:Q$Q$"+"V$ HN(AN$)5N(CH%28)18805O" N.B. PLEASE GIVE ANGLES TO THE"6P" NEAREST DEGREE AND NO DEGREE"@6Q" SIGN IS NECESSARY.":835:1920V6X(CH%27)019006b" N.B. PLEASE GIVE DISTANCES"6c" CORRECT TO 4 DECIMAL PLA P ROUTINE EXIT +++ 250 245; UQUB(U2%256U1%U3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB( ----------------"3"" HOOSE AN EXERCISE OR ENTER QUIT. ";$4&L22:L$"123456789":UL1:US$"123456789Q":35:AN$UR$E4(FL$"":UR$"Q"FL$"QUIT":r4+UP0:UG$"INFORMATION":"":UT,UU%:85040CH$AN$:CH%0:I1(AN$):CH%CH%2((AN$,I,1 RCISE **1LN1:L21:L81:L4$"1234567890":L6$L4$"(),-"2"":UT,UL%:12)"à"C2" --------------------------------------"^2UG$"AREA OF TRIANGLE"z2" 1. OT RODUCTS"2" 2. ROSS PRODUCTS"2" 3. DD "":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 7UI$(13)(UR$)1UC,1:" ";:85| <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++ 01660/A((A)(1(AA)1))180:A(A.5):A0 A180A 0RA$(A):UG$"ANGLE":$0UG$"AREA OF TRIANG"a0Q$"FIND THE AREA OF TRIANGLE ABC, GIVEN":Q1$"A":14300Q1$Q1$V$", B":C1X:C2Y:C3Z:1430:Q1$Q1$V$", C":X1X:X2Y:X3Z0  UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HEL C1X:C2Y:C3Z:1480:1635-J1450:X1X:X2Y:X3Z:1430:Q$Q$""V$.T1600@.^1470:KA:1430:Q$Q$V$:XXK:YYK:ZZK:1390:RA$V$\.cUG$"TRIPLE PRODUCTS":.h1440:A$"FIND THE DISTANCE BETWEEN THE POINTS":Q1$Q$" AND "V$.rQ$A$:A$"~8((AN$)(RA$)).0001AN$RA$:20208 20308'A09'A((A)(1(AA)1))180:A(A.5):A0 A180A9t'7875;7NC0:TT0:QN0:^7CH(R(9)):(2CHCH%)019507CH1470,1450,1490,1500,1510,1530,1640,1660,170071740:L2 :XC1X1:YC2X2:ZC3X3:1390:RA$V$+UG$"ADDITION":.,1440:Q$Q$"-"V$:XC1X1:YC2X2:ZC3X3:1390:RA$V$F,UG$"SUBTRACTION":,1440:AX:1410:Q$A$Q$:XC1A:YC2A:ZC3A:1390:RA$V$,UG$"SCALAR MULT.":,X(R(5)):X0153 CES.":835:19206l(CH%29)019206v" N.B. PLEASE GIVE AREAS CORRECT"7w" TO FOUR DECIMAL PLACES.":835&7875;7NC0:TT0:QN0:^7CH(R(9)):(2CHCH%)019507CH1470,1450,1490,1500,1510,1530,1640,1660,170071740:L2 U2%256U1%U3%3) UQ,UQ%(UQUB):) U1,U1%5 U2,U2%A U4,U4%O U3,U3%1W 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4) ))::""45" HOW MANY QUESTIONS? ";4:UL2 :US$"H0123456789":355< (UR$)0 18455?NQ(UR$)J5D" WHAT IS THE LARGEST CO-ORDINATE"s5E" THAT YOU WANT TO WORK WITH? ";5FUL2:US$"H0123456789":35:AN$UR$:""5I THIS PROGRAM IS IN THE PUBLIC"2" DOMAIN. F THIS IS NOT THE CASE"O" PLEASE CONTACT:"y" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24" %1146:UM32768: 50003,0*!(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048b!(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024!UD$""!UP$" "!UT$" ALGEBRAIC S ** H(UD$,24);"PRESS SPACE BAR TO CONTINUE""LUI$:UI$" "844(NHR ** PAGE DESIGN ROUTINE **TTUPUP1~W""(UT$UP$,21);(UP$UG$(UP),18)\" --------------------------------------"a(UD$,24);(UP$,6);"HELP - PR !""UU71"""":(50003)0962'# ** BASIC 2.0 OR 4.0 OR C-64 SETUP **e#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#(500 :"";:&I122:"";:(I137:"";:(*I122:"";:M," o."  0" 2" 4"C O M M O D O R E 3,20:2124,3:2126,234:2127,141:2128,21:2129,3%UU48: DISABLE STOP KEY&%800: TITLE6%300: MENUg%"THE PGM WILL NOT WORK ON THIS MACHINE!":%UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **%"";::(50003)053281,6:5328 " 64 -" 64 #.835@KUT$" ALGEBRAIC VECTORS"TNUZ1UP%:217ZWX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD":850835UZ1UP%:217 U M M A R Y "&V" YOUR SCORE IS"NC"OUT OF"NQ*'`" ("(((NC10000NQ.5)100),2)"%)."]'j" YOU TOOK";:TM(TT3600):TM;"MIN.,";'tA((TTTM3600)6.5)10:A;"SEC.,"'~" OR";(TT6NQ.5)10;"SECONDS PER QUESTION." TION."835:850!" HIS PROGRAM IS DESIGNED TO PRO-"L" VIDE BOTH PRACTICE AND REVIEW."u" STUDENT USING THIS PROGRAM"" SHOULD ALREADY HAVE KNOWLEDGE"" OF VECTORS. OR THIS REASON,"" THIS PR N$)LN1200((A$)13((AN$)LN(AN$)0)1200)(A$)13" ":LN1:L21:L81:0)((A$)20AN$""1200])2(A$)20A$;:AN$(AN$,(AN$)1):1200)<L91:L82(A$)64(A$)91A$;:AN$AN$A$:1200)F(L$,L9,1)A$A$;:AN$AN$A$:120 " (416) 499-4292" 835: 850:;" HIS PROGRAM CONTAINS NINE"y" EXERCISES DEALING WITH LGEBRAIC":" ECTORS."" HE STUDENT NOT ONLY HAS CONTROL"" OF THE NUMBER OF QUESTIONS BUT" " A  VECTORS"!! ** SET VARIABLES **!900" ** CHECK FOR 8032 **7""":"": SHIFTED SPACEN"(UB40)96700g" ** MEMORY CHECK **{" (0)2000937""THIS MACHINE DOES NOT HAVE ENOUGH"""MEMORY TO RUN THIS PROGRAM ESS H "f"": k ** PLEASE WAIT REMARK **B p(UD$,24);" ONE MOMENT PLEASE... "H ue  ** SET UP VARIABLES ** UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024 UT59468:UU%12:UL%14:UP 03)160955$1093,88:1094,228:1097,85:1102,228:965$(50003)1990G$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$212 6"EDUCATIONAL8"SOFTWARE3: ** COMMODORE LOGO **k;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE BAR PRES 0,14%UT,UL%:14)"XERCISES ON"&&12)"LGEBRAIC ECTORS":13)"BY . . OOPER6&I11000:U&R(X)X((2X1)(TI))m&1760:FL$"QUIT"&QNQN1:QNNQ1100&$1950&. 835:875&B1050&L850:12)" S  ** TO USE 8032 LOAD CBM4032 **/"BEFORE RUNNING THIS PROGRAM ON AN 8032 e" LOAD THE 'CBM 4032' PROGRAM"pUU71v  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138 ' 835'1040'AN$"":I19:A$::L3$"":L5$" "(A$: A$"" 1270&(L3$;:ATTI9(TIAT101220N(A$:A$""1270^(L5$;:ATTIq(TIAT101250{(1200((A$)13AN$""1200(L21290,1310,1300( (A$)13(A OGRAM IS RECOMMENDED FOR"# " STUDENTS TAKING RADE 13 ."1"835:850_&" ROGRAM AME: LGEBRAIC ECTORS"'" RITTEN Y : . . OOPER"(" PGRADED Y : UINCY EE)" HIS PROGRAM WILL RUN ON ANY, 0)PL9L91:L9(L$)1350)Z1200*d"(Y OR N) ";:L$"YN":UL1:US$"YN":35:AN$UR$ :W*nAX:1410:V$"("A$",":AY:1410:V$V$A$",":AZ:1410j*xV$V$A$")":}*A$(A):A0*A$(A$,2):*XR(HN):YR(HN):ZR(HN):1390*1 LSO THE SIZE OF THE NUMBERS"& " THAT HE WORKS WITH.":835:850T" T THE END OF THE EXERCISE, A"" SUMMARY WILL BE DISPLAYED. T"" WILLSHOW THE SCORE AND ALSO THE"" TIME TAKEN TO COMPLETE THE":" SEC  910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UR$"":UI!"=r 6,10,13,18IN"; :5)"MICROCOMPUTERS IN SPECIAL ED." < :7)"AN EXPERIENCE '82 PROJECT"< F12500::/< XZ1500::A< XZ1150::R< XZ150::e< XZ12000::< "   "< " UT$" à")UP0:UG$"TUDENT NST":850Q" HIS PROGRAM CONTAINS NINE"" EXERCISES DEALING WITH LGEBRAIC":" ECTORS."" OU MAY CHOOSE NOT ONLY THE"" NUMBER OF QUESTIONS BUT ALSO THE" ; :8)"REVISED BY MATT AUSTIN"; :5)"MICROCOMPUTERS IN SPECIAL ED." < :7)"AN EXPERIENCE '82 PROJECT"< F12500::/< XZ1500::A< XZ1150::R< XZ150::e< XZ12000::< "   "< " . STUDENT INSTRUCTIONS"5E" 3. TEACHER INSTRUCTIONS"QO" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000, 3 NUMBERS 11-13"9 " 4 NUMBERS 14-18"9 FU126609 8359d ':n UB241,32:UB408,127:J180:G$:G$""::265-:x ]: "":UT,UU%:IUBUB39:I,22:I880,102:: IUB40UB96040:I,102:I39,102:: 13)"ADDS A 6U1%U3%3) UQ,UQ%(UQUB):# U1,U1%/ U2,U2%; U4,U4%I U3,U3%1Q 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4) UJ$U UCTIONS##7t " HIS IS A PROGRAM THAT DRILLS THE " 8y "STUDENT ON ADDITION AND SUBTRACTION. "=8~ "HE COMPUTER DISPLAYS A NUMBER "m8 "SENTENCE AND THE STUDENT IS REQUESTED "8 "TO GIVE THE CORRECT ANSWER. O DO THIS, " UI$"": ** STANDARD INPUT **. (UI$)46? UI$(32)\ (UI$)48(UI$)57170b  (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HELP ROUT  EXAMPLE,":" (3,-5,6).+" : O NOT PUT IN"U" UNNECESSARY SPACES OR COMMAS!!"c835:850" EMEMBER TO HIT AFTER"" TYPING YOUR ANSWER. HIS TELLS"" THE COMPUTER TO ACCEPT WHAT YOU" $"" *UL0UL80% -" ";:UC,09 2UI$:UI$""50c 7UI$(13)(UR$)1UC,1:" ";:85v <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++ Z 835 UT$" ALGEBRAIC VECTORS"UZ1UP%:217#D ** TEACHER INSTRUCTIONS **t"":UT,UL%:(50003)053281,2:53280,10UT$" à":UP0:UG$"EACHER NST.":850" O THE BEST OF OUR KNOWLEDGE,"" " SIZE OF THE NUMBERS THAT YOU"0" WORK WITH.":835:850]" OU WILL NEED A CALCULATOR TO"|" DO THESE EXERCISES."" F YOUR ANSWER IS A VECTOR,"" PLEASE USE PARENTHESES AND"" COMMAS AS USUAL, FOR "<" ""<, ""=6 "  "!=@ ""D=J " "[=T ""=^ "  "=h "  400,500,396h300+ ** RE-ENABLE STOP KEY AND END **Z(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0 ND SUBS"::5)"WRITTEN BY: BRUCE JOHNSON": 17)"DAN NEILSON":17)"DAVE SCHEELE":+; 17)"FOR"::"MICROCOMPUTERS IN SPECIAL EDUCATION"Q; :7)"AN EXPERIENCE '81 PROJECT"k; :13)"SPONSORED BY"; :3)"OXFORD COUNTY BOARD OF EDUCATION" S$:UJULUJ$US$:UK$UG$:UJUP:UKUL"3, ** MENU **9-:h."":UT,UU%:(50003)053281,9:53280,8n/:1" MENU"6" --------------------------------------";" 1. ALGEBRAIC VECTORS" @" 2 8 "THE STUDENT TYPES IN THEIR ANSWER AND "8 "THEN HITS RETURN.":9 " HERE ARE 4 LEVELS OF DIFFICULTY: ":& ""D " LEVELS"g9 " 1 NUMBERS 0-6"9 " 2 NUMBERS 7-10"9 " INE EXIT +++ 250 2455 UQUB(U2%256U1%U3%2)Q UQ%(UQUB)(UQ)::""d UZ1:UV%(UT)m 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB(U2%25 " HAVE TYPED."%" YPE AT ANY TIME TO RETURN"O" TO THE MENU FOR HELP. OU WILL"y" BE RETURNED TO THE PLACE IN THE"" PROGRAM WHERE YOU LEFT OFF AS"" SOON AS THE OPTION FROM THE MENU"" IS COMPLETE." UR$UX$195: EXIT TO HELP ROUTINE- _UF1240: dUF0::S f ++ CHECK DELETE ++d i(UR$)150| nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1)  "":UL10:35:N$UR$ +t850:T0:W00:C0:" DO YOU WANT 1 ADDITION"3+~:" OR 2 SUBTRACTION"_+12)"YOUR CHOICE ";:US$"12":UL1:35k+AS$UR$+AS(AS$):850:"":D1:FU1:2490:FU0+"  WHAT LEVEL DO YOU WA ,52:2118,234:2121,49:2122,141)2123,20:2124,3:2126,234:2127,141:2128,21:2129,36)UU48: DISABLE STOP KEYG)800: TITLEW)300: MENU)"THE PGM WILL NOT WORK ON THIS MACHINE!":)UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE * UB701,32:" "Y$"";:27903Y9" ";3""Y$;:2790:"";4Y9"";;4I15:"    "LA$;:2800:"";:P4FG11:Y9FG104 R$(R$,7)Y$(R$,FG)" :: ":"";4I115:""R$;:59 ENOUGH"&"MEMORY TO RUN THIS PROGRAM !"&UU71&'"":(50003)0962H' ** BASIC 2.0 OR 4.0 OR C-64 SETUP **'1075,133:1076,144:1077,234:1079,4:1080,133:1081,145'1091,155:1098,133:1099,144:1100,234:1103,133' 0,1660,1670,1680,1690:18602:Z11600,1610,1620,1630,1640,1650,1660,1670,1680,16902D""EQ$:2N30042XX((TI)L.5):J2b""u2l" "N$",":"  YOU'RE RIGHT!!!":""2vR$" ߥ":59467,16:59466,15:59 %(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048F%(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198j%UD$""%UP$" "%UT$" ӠĠӠ": PLACE P UG$" QUESTION #":850:"";:W1017300WO$(W):L$(((WO$,1,2)))""L$(((WO$,1)));"01740.0L$(W);S0""PL$"";:Z1017700ZO$(Z):L$(((ZO$,1,2)))""L$(((ZO$,1)));017800L$(Z);0"" E""LUI$:UI$" "844"N #R ** PAGE DESIGN ROUTINE **#TUPUP1@#W""(UT$UP$,21);(UP$UG$(UP),18)o#\" --------------------------------------"~#`UH0870#a(UD$,24);(UP$,7);"HELP - PRESS H "#fUH0:"":#k UL3:35:A(UR$)-AY1550 .2790::" YOU ARE WRONG...TRY AGAIN":I12000:4." "H."":1410Y."".I111:" ":.,CV1:W0W01.61890.;CV0:1  ͑";:2800:5\"     ";6f"";:Y10L$(Y):2170:6pL$(1)""L$((((Y),1)))G6z59466,0P6835`6TT1:CC1q6 T10 22506CV11595612206UP0:850:" NT (1-4)? ";:US$"1234":UL1:35:V$UR$+V(V$)",LL(V)L(V1):1880:YXL(V1):LY:1880:ZX:WYZ1,AS11250U,WYZ:XW:WY:YX:PL$""_,1700,:I12:" "::""," YOUR ANSWER? ";:US$" *)"";::(50003)053281,6:53280,14*UP0:UG$"":UT$" ADDS AND SUBS"*(*.I09:L$(I):;*8I14:L(I):*BPL$"":EQ$"":QU$"    "*j850:" WHAT IS YOUR NAME? ";:US$ 464,I:4 "";:I115:" ";::"";4*I15:59464,255I5F54"    *   ";t5>"";:2800:" ͑";~5H28005R"   1104,145:1105,234:1082,234'(50003)160955$(1093,88:1094,228:1097,85:1102,228:9659((50003)1990h(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 464,02LA$""2W9"";2Z9"";93IUB852UB877:I,99::""R$""LA$;]3Y$((Y),((Y))1):Y9"";q3""Y$;:27903I13:Y9" ";3" "Y$;:2790:3 ROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***% & ** SET VARIABLES **&900&:&::& ** CHECK FOR 8032 **X&"":"": SHIFTED SPACEo&(UB40)96700& ** MEMORY CHECK **& (0)2000937&"THIS MACHINE DOES NOT HAVE EQ$""QU$:0W1018101160:"";:W91610,1620,1630,1640,1650,1660,1670,1680,1690:1820R1W11600,1610,1620,1630,1640,1650,1660,1670,1680,1690l1""PL$"";{1&Z101850101690:"";:Z1610,1620,1630,1640,165  ** PLEASE WAIT REMARK **$p(UD$,24);" ONE MOMENT PLEASE... "$u;$ ** SET UP VARIABLES **$UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024$UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0 250.@"";:.J"";:.T"";:/^"";:/h"";:2/r"";:P/|"";:j/"";:/" ";:/"";:/UPT: HERE ARE YOUR RESULTS"6"NUMBER OF QUESTIONS:"T7"NUMBER OF CORRECT ANSWERS:"TW0.7"NUMBER OF WRONG ANSWERS:"W0G7G((TW0)T100.5)_7"YOUR SCORE:"Gj7V 835:7` UP3:UG$"TEACHER INS":8507j ##TEACHER INSTR 1234567890":UL3:35:A(UR$),ZAY1890-d2790::" YOU ARE WRONG...TRY AGAIN":2820D-n" ":"";N-x1790-"":I12:" "::""-" YOUR ANSWER? ";:US$"1234567890": %:UG$" QUESTION #"UZ1UP%:2175 ** TEACHER INSTRUCTIONS **e"":UT,UL%:(50003)053281,2:53280,10UT$" DDS AND UBS":UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS L GIVE YOU THE RIGHT ANSWER AND THEN;" PRESS ''. F YOU ANSWER CORRECTLYi" THERE WILL BE APPROPRIATE CELEBRATION." F NOT WELL......."835850:" EMEMBER YOUR SCORE IS BEING KEPT, SO" DO YOUR BEST."" ":UPT1:59468,12:UG$" QUESTION #"UZ1UP%:2179 ** TO USE 8032 LOAD CBM4032 **o"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71 ** TO USE 8032 LOAD P KEY AND END **+(50003)1(50003)160(50003)0399UUU71:(50003)053281,6:53280,14a"":l875: ** STUDENT INSTRUCTIONS **UT$" DDS AND UBS""":UT,UL%:(50003)053281,0:53280,0UP0:UG$"TUDEN7WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%4]UP0:UG$"ROGRAM OD":850bb" HE NUMBER OF QUESTIONS GIVEN TO THEd" STUDENTS IS TEN. O CHANGE THAT NUMBERf" JUST CHANGE LINE 2215 (HANGING THEj" NUMBER OF QUES,8/:1" MENU"D6" --------------------------------------"n;" 1. BEGIN ADDS AND SUBS "@" 2. STUDENT INSTRUCTIONS"E" 3. TEACHER INSTRUCTIONS"J" 4. MODIFICATION OF PROGRAMMBERS IN THE EQUATION REPRESENT."'"  F THE STUDENT ANSWERS A QUESTIONV" INCORRECTLY THE NEXT QUESTION WILL NOT" APPEAR UNTIL THE CORRECT ANSWER IS" ENTERED. HEN THE QUESTION WHICH THE" STUDENT ANSWERED INCORRECTLY IS(UT)300&UZ0:US$UJ$:UG$UK$:UPUJ:ULUK](50003)053281,1:"";:53281,6:53280,14:220g"";UT$UL$:UT,UV%:UQUB(U2%256U1%U3%3)UQ,UQ%(UQUB):U1,U1%U2,U2%U4,U4%U3,U3%135UD%((U2 64 " 835:850:" HERE WILL BE 10 QUESTIONS GIVEN TOL " THE STUDENT (O CHANGE THE NO. OFy " QUESTIONS ASKED SEE 'Π " Ӡ' IN THE MENU). F THE " STUDENT DOES NOT ANSWER CORRECTLY THE" F *I122:"";: !," +!."  L!0" j!2" !4"C O M M O D O R E!6"EDUCATIONAL!8" IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE";" PLEASE CONTACT:"e" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (OOD UCK"835850F" OTE:O ADVANCE FROM ONE QUESTION"o" TO THE NEXT PRESS THE BAR"" F AT ANY TIME YOU WISH TO RETURN"" TO THE PRESS H "835"":UPT1:UT,UU CBM4032 **& "BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"2 1093:R  ** T I T L E P A G E ** """;:UT,UU%:(50003)053280,14:53281,6 $I138:"";: &I122:"";: (I137:"";:T NST":850%" N THIS PROGRAM THE COMPUTER WILL ASKS" YOU EITHER SOME ADDITION QUESTIONS OR" SOME SUBTRACTION QUESTIONS. O ANSWER" THE QUESTIONS ALL YOU HAVE TO DO IS" PRESS THE NUMBER KEY(S) WHICH YOU THINK " WILTIONS FROM 10).l" 2215n"2215 =10 2250Ip"OW HANGE HE 10 O 5"lt"2215 =5 2250u" ^v" CHANGED"x" (FROM 10 TO 5)"835"" O" 5. QUIT":T" --------------------------------------"eY" PRESS A NUMBER KEY (1-5) ";^UL1:US$"12345":35: INPUT ROUTINE_(UR$)1300`US$""c(UR$)1000,400,500,600,396h300 ** RE-ENABLE STO" REPEATED."835:850:"  TABULATION OF THE NUMBER OFG" QUESTIONS THE STUDENT ANSWERED BOTHu" CORRECTLY AND ANSWERED INCORRECTLY IS" DISPLAYED AFTER THE COMPLETION OF THE" TEN QUESTIONS.>835NUZ1UP%:21%256U1%U3%)UB)40:(UD$,UD%1):R(UD$,24);"  HELP COMING ":~U1%(U1):U2%(U2):U3%(U3):U4%(U4)UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL, ** MENU **-:."":UT,UU%:(50003)053281,9:53280IRST TIME, THE EQUATION IS DISPLAYED0" AGAIN USING A CERTAIN NUMBER OF OBJECTSW" TO REPRESENT THE NUMBERS IN THEt" EQUATION.":835:850"  T WILL BE HELPFUL TO THE STUDENT TO" SEE THE NUMBER OF OBJECTS WHICH THE" NU SOFTWARE!: ** COMMODORE LOGO **'";(UD$,24);"PRESS SPACE BAR OR WAIT":I0I"<A$:A$" "II1:I250828m">T1$"":T2$"":T3$"":T4$"":I0v"@300"C ** SPACE BAR PRESS **"HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINU416) 499-4292"UP1: 835: 850:/" ROGRAM AME: DDS AND UBS W" RITTEN Y : RUCE OHNSON{" PGRADED Y : " HIS PROGRAM WILL RUN ON ANY" 64 "  00:9 "HE CORRECT ANSWER WAS ";V9 8359 : 850:"HICH SET OF RULES DO YOU WANT TO SEE?"%: "1. IMPLIFYING IGNS"C: "2. DD AND UB ULES"p: "UST TYPE THE NUMBER OF THE SET OF": "RULES YOU WANT.";: US$"H12":U  910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$  "THE SAME, WRITE DOWN THEIR SIGN ":"AND ADD THEM UP." 8 "4. F THE SIGNS ARE DIFFERENT"78" "IGNORE THEM, PUT DOWN THE SIGN "w8, "OF THE LARGER ONE AND SUBTRACT":"THE NUMBERS."86 "5. MIT A LEADING '+' SIGN." $ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1) d 25905n "OU DID FAIRLY WELL, ";NA$;","6x "BUT PERHAPS YOU COULD STILL USE A":"LITTLE HELP."F6 "AVE YOUR TEACHER EVALUATE YOUR RESULTS"u6 "AND IF NECESSARY COME SEE ME AGAIN FOR"6 "ANOTHER LESSON."6 25906 "" 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  PRERHAPS YOU SHOULD GET SOME"4 "ADVICE FROM YOUR TEACHER BEFORE TRYING THE REST OF THIS PROGRAM."4 835:F4 "ONGRATULATIONS, ";NA$;"!!!"t4 "YOU PASSED THIS COURSE WITH HONOURS!"4 "YOU HAVE GRADUATED FROM THE Ԓ CHOOL"ED BY MATT AUSTIN- UNDER AN EXPERIENCE '82L ! GRANT IN OXFORD COUNTYR ":n # +++ INPUT SECTION +++ (UO,0:UR$"":UI$"" *UL0UL80 -" ";:UC,0 2UI$:UI$""50 7UI$(13)(UR$)1UC,1:" ";:85 <UI$(20)105 REPLACE THEM BY A SINGLE '+'":" SIGN."2L " 3. F THERE IS A '+' SIGN FOLLOWED"22V " BY A '-' SIGN, REPLACE THEM BY A"N2` " SINGLE '-' SIGN.x2j " 4. MIT A LEADING POSITIVE SIGN"2t " EG. +2-3 BECOMES 2-3.2~ 8352 (UR$)1) s" ";:509 x ++ CHECK FOR VALID CHARACTERS ++K }(US$)0150[ US$US$UX$l US1(US$) UI$(US$,US,1) UI$"": ** STANDARD INPUT ** (UI$)46 UI$(32) (UI$)48(UI$)57170 LL1: 35: UR$"1" 2260:: UR$"2" 2730:: I1I23080RY OOD!":H$(4)"IGHT N!!"9h P((1)41)#9r B120>9| ""H$(P):PA120:PAV9 "";H$(P);"":Bb9 SCSC1h9 9 "ORRY, ";NA$;", THAT'S WRONG."9 PA110"":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 7UI$(13)(UR$)1UC,1:" ";:85| <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++8@ 8358J 8T ""9^ H$(1)"ORRECT!":H$(2)"XCELLENT!!":H$(3)"ERY OOD!":H$(4)"IGHT N!!"9h P((1)41)#9r B120>9| ""H$(P):PA120:PAV9 "";H$(P);"":Bb9 SCSC1h9 9 "ORRY, ";NA$;", THAT'S WRONG."9 PA110 UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HEL;6 STS$6 S1226 "*";37);"*": S6 STS$6 "";7 "  ҠǠĠǒ"77 "1. IMPLIFY ALL SIGNS."p7 "2. DD OR SUBTRACT FROM LEFT":"TO RIGHT."7 "3. F THE SIGNS OF THE NUMBERS ARE"7OGRAM 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. :  REVIS:"OF RITHMETIC!"4 " ԠȠŠŠΠĠ"4( 835:52 "ONGRATULATIONS, ";NA$;"!"=5< "YOU HAVE PASSED THIS LESSON WITH"Y5F "FLYING COLOURS!!"5P "RAG TO YOUR TEACHER ABOUT YOUR GREAT"5Z "ACCOMPLISHMENT!"5  > (UR$)UL503 A120: CHECK FOR VALID CHARACTERC FUR$UR$UI$M KUI$;U P50z U +++ CHECK FOR HELP REQUEST +++ ZUR$UX$195: EXIT TO HELP ROUTINE _UF1240 dUF0:: f ++ CHECK DELETE ++ i(UR$)150 nUR$(UR$,2 " ORRY, ";NA$;" THE ANSWER IS: ":QQ$:PA12500:2 WW13 " OULD YOU LIKE TO LOOK AT THE RULES+3 " AGAIN? ";C3 US$"HYN":UL1: 35X3 UR$"Y" 2260^3 3 "OU HAVE ANSWERED BOTH QUESTIONS INCOR- RECTLY.";3 "  (UI$)65(UI$)90180 = (UI$)193(UI$)218UI$"":` (UT)UU%UI$((UI$)128):f s UI$"": UF1: +++ HELP ROUTINE EXIT +++ 250 245 UQUB(U2%256U1%U3%2) UQ%(UQUB)(UQ)::"" UZ1:UV% P ROUTINE EXIT +++ 250 245; UQUB(U2%256U1%U3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB( RS."%Z"HE FIRST THING YOU MUST LEARN IS WHAT":"TO DO ";,%d"WITH ALL THOSE MESSY SIGNS."?%n835:UH1:850l%x"ET'S LOOK AT THE FOLLOWING EXAMPLE:"%"4-+2+-21++36--10":PA1500:%"RACKETS MAKE IT CLEARER,":PA1200: ""T112 #"";T);" SIGNED NUMBERS":PA150:PA:<#" "M#PA16000:_#"": UT,UL%# ** ADDING AND SUBTRACTING SIGNED NUMBERS **## BY: MICHAEL SAMORODNY!# 3030:2000- "YPE IN YOUR ANSWER AND PRESS RETURN"- "? ";*.US$"H1234567890+-":UL0: 35:ANS(UR$)I.VQ(1)Q(2)Q(3)Q(4)Q(5)\.  ANSV 2900p.*ANSV 2980x.4QU.>"ELL THAT'S THE END OF THE QUIZ,":""NA$;" T116!$"";T);" ADDING":PA150:PA: !.PA11000:PAI!8" "z!B" "!LT117!V"";T);" AND":PA150:PA:!`PA11000:PA!j" Z0"ORRY, YOU HAVE TO DO AT LEAST ONE!":PA1900:PA4,DZ0 " ": 1820C,I QU1 ZY,vQ(1)((1)101)o,Q(2)((1)501),Q(3)((1)1001),Q(4)((1)251),Q(5)((1)751),00,20:2101,3:2103,8:2104,141:2105,2162106,3:2115,145:2117,52:2118,234:2121,49:2122,141p2123,20:2124,3:2126,234:2127,141:2128,21:2129,3UU48: DISABLE STOP KEY800: TITLE300: MENU"THE PGM WILL NOT WORK ON 22530)835:850*"OU SEEM TO UNDERSTAND SIMPLIFICATION "#*"FAIRLY WELL, ";NA$;"."Q*"ET'S MOVE ON TO LEARNING SOME RULES"*"FOR ADDING AND SUBTRACTING THESE":"SIGNED NUMBERS."*835:2730:850*"LL RIGHY CHECK ** (0)200037""THIS MACHINE DOES NOT HAVE ENOUGH"F"MEMORY TO RUN THIS PROGRAM !"QUU71Wq"":(50003)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP **1075,133:1076,144:1077,234:107,4:1080,133"'" BEFORE HITTING RETURN"("""(E "? ";2(JUS$"H1234567890+-":UL0: 35j(TUR$"-32+4-10-71+3" "CORRECT ";NA$;"!":1640(^QQ$" -32+4-10-71+3":2450:1650(h835(r850:"ERE IS A SECOND QUESTION"THINK YOU SHOULD SEE YOUR MATH TEACHER"0"FOR FURTHER INSTRUCTION BEFORE"(0"REATTEMPTING THIS COURSE."N0"HANK YOU FOR YOUR PATIENCE!"X02590^0h0"";0STS$"***************************************"0STS$0 S%"4-(+2)+(-21)+(+36)-(-10)":PA1500:0&"BUT THE NUMBER OF SIGNS STILL MAKES IT":"CONFUSING."@&PA1500:&"OW LET'S LOOK AT SOME RULES FOR":"SIMPLIFYING SIGNS."&835:2260:850&"ERE IS A SHORT QUIZ TO SEE#  COPYRIGHT MAY 1980#UP0:UG$"":850&$"ELLO, MY NAME IS 64. YPE IN"N$("YOUR NAME AND PRESS Β ";l$2US$"":UL10: 35:NA$UR$$<"ELLO, ";NA$;". ET'S LEARN ABOUT"$A "ADDING AND SUBTRACTING SIGNED NUMBE .".H"OUR SCORE IS ";SC;"/";Z.RU(SCZ100.5)/\"HAT MAKES AN AVERAGE OF";U;"%":835,/f U752560 (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++ & UB" RITTEN Y : ICHAEL AMORODNY6" PGRADED Y : a" HIS PROGRAM WILL RUN ON ANY" 64 " 64  835NUZ1UP%:217WX ** PROGRAM MODIFICATIO ** TEACHER INSTRUCTIONS **?"":UT,UL%:(50003)053281,2:53280,10`UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE""32' PROGRAM"UU713 ** 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)053280,14:53281,6$0,396h300% ** RE-ENABLE STOP KEY AND END **T(50003)1(50003)160(50003)0399~UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0UU$ D O R E 6"EDUCATIONAL,8"SOFTWAREG: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C ** SPACE UJ$US$:UK$UG$UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN ADD & SUB"@" 2. ST (UD$,24);(UP$,7);"HELP - PRESS H "fUH0:""::k ** PLEASE WAIT REMARK **pp(UD$,24);" ONE MOMENT PLEASE... "vu ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UUP ROUTINE EXIT +++ 250 245; UQB(U2%256U1%3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB( "BUT$" & ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***Hb ** SET VARIABLES **k900q:w: ** CHECK FOR 8032 **"":"": SHIFTED SPACE(UB40)6700 ** MEMOR$ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1) A TS (@CMATHEMATICSMA2ABLOCKS FREE. ADD & SUB.C34B.T.C. ADD.C3/!B.T.C. DECIML.C3*ADD DRILL.C3"ADDITION RACE.C3!ADDS AND SUBS.C37AGENT BLOTTO.C3C ALG. VECTORS.C32 AMORT'N TABLE.C3'ANALYSIS 1.C3$ANKOVA.C3(ANOVA.C3"ARTILLERY.C3+AUTO ADD TCHR.C35B.T.C. ADD.C3/!B.T.C. DECIML.C3*  910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$ $ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1)  +++ HELP ROUTINE EXIT +++ 250# 2459 UQUB240UB720U UQ%(UQUB)(UQ)::""h UZ1:UV%(UT)q 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB(U2 1):U2%(U2):U3%(U3):U4%(U4)<UJ$US$:UK$UG$:UL$UT$:UJUP:UKULBS, ** MENU **Y-:."":UT,UU%:(50003)053281,9:53280,8/:1" MENU"6" --------------------------------------";" 1. BEGUTINE`US$""c(UR$)1000,400,500,396&h300M ** RE-ENABLE STOP KEY AND END **|(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS ** "":UT,ULROM"" RIGHT TO LEFT, AS SHOWN:4" 987654R" + 543210p" "  "" ^ ^" END START835:850 " E PLACE IN THE" " PROGRAM WHERE YOU LEFT OFF AS"L" SOON AS THE OPTION FROM THE MENU"d" IS COMPLETE."m835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UP0:UG$E. " GINCOURT, NTARIO"," ANADA 1 24"L" (416) 499-4292"[@835:850:B" ROGRAM AME: DDITION RILLD" RITTEN Y : ONALD OSS 1979"F" PGRADED Y : UINCY EE 1982 H:217 ** TO USE 8032 LOAD CBM4032 **F"BEFORE RUNNING THIS PROGRAM ON AN 8032 |" LOAD THE 'CBM 4032' PROGRAM"UU71  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:5328O M M O D O R E6"EDUCATIONAL/8"SOFTWAREJ: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0@300C **"":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 7UI$(13)(UR$)1UC,1:" ";:85| <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++ UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1:" ";: %256U1%U3%3) UQUB240UB7201 UQ,UQ%(UQUB):= U1,U1%I U2,U2%U U4,U4%c U3,U3%1p FL035{ FL0: UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ":U1%(UIN ADDITION DRILL-@" 2. STUDENT INSTRUCTIONS"WE" 3. TEACHER INSTRUCTIONS"sO" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT RO%:(50003)053281,0:53280,0.UP0:UG$"TUDENT NST":850[" HIS EXERCISE WILL GIVE YOU SOME" PRACTICE IN ADDING LARGE OR"" SMALL NUMBERS."" LEASE GIVE YOUR ANSWER ONE"" DIGIT AT A TIME, PROCEEDING F EMEMBER TO HIT AFTER"3" GIVING EACH DIGIT. HIS TELLS"^" THE COMPUTER TO ACCEPT WHAT YOU"w" HAVE TYPED."" YPE AT ANY TIME TO RETURN"" TO THE MENU FOR HELP. OU WILL"" BE RETURNED TO TH"EACHER NST":850'" O THE BEST OF OUR KNOWLEDGE,"P" THIS PROGRAM IS IN THE PUBLIC"|" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY V" HIS PROGRAM WILL RUN ON ANY)N" 64 NP" 64 WR835kTUZ1UP%:217qVX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD":850835UZ1UP% 1,6$I138:"";:&I122:"";:'(I137:"";:?*I122:"";:d," ."  0" 2" 4"C  SPACE 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)\" --------------------------------------"`UH087 167: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$"  ACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !"UU71$>"":(50003)0962m ** BASIC 2.0 OR 4.0 OR C-64 SETUP **1075,133:1076,144:1077,234:1079,4:1080,133:1081,1451091,155:1098,133:1099,144:1 106,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 KEYl!800: TITLE|!300: MENU!"THE PGM WILL NOT WORK ON THIS MACHINE!":!UZ1UP%:UP%:UZ0: ** " OW MANY ROWS OF NUMBERS DO YOU"#k" WANT IN THE SUM? ";B#pUS$"H23456789":UL1:35:R$UR$:R(UR$)q#" OW MANY DIGITS DO YOU WANT EACH"#" NUMBER IN THE SUM TO HAVE? ";#US$"H123456789":UL1:35:C$UR$:C(UR$);B(X)$$ X$. 18.5C2);("+",C6)%8 K0 %L ZC%V S(Z)S(Z)K8%` K(S(Z)10):BS(Z)K10`%j (UD$,13.5R2);19.5C2Z);" ";j%t 3000}%~ (UI$)B2450% WW1:""12)" O, TRY AGAIN. ":2410% ""12)" &( K02655&- (UD$,13.5R2);19.5C2);" ";'2 3000'F (UI$)K2650C'P WW1:""12)"O, TRY AGAIN. ":2600e'Z ""12)" "s'_ W32662'd (UD$,20);15)"Ġ!":2665'f (UD$,20);11)"OU NEED PRACTICE!z3080( I$"H"(I$"0"I$"9")3010( UI$I$:UI$"";:3010 ) UC,1:UI$;:UI$"H"RV0:4) FL1:195:3000":2600e'Z ""12)" "s'_ W32662'd (UD$,20);15)"Ġ!":2665'f (UD$,20);11)"OU NEED PRACTICE! 910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **# +++ INPUT SECTION +++(UO,0:UR$"":UI$"" $195: EXIT TO HELP ROUTINE' _UF12404 dUF0::M f ++ CHECK DELETE ++^ i(UR$)150v nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US$US$UX$ US1(US$) UI$(US$,US,1)0 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:UC "UT$" Π"!A(10,10):; ** SET VARIABLES **D900_ ** CHECK FOR 8032 **}"":"": SHIFTED SPACE(UB40)96700 ** MEMORY CHECK ** (0)2000937"THIS M100,234:1103,133 1104,145:1105,234:1082,234 (50003)160955I 1093,88:1094,228:1097,85:1102,228:965^ (50003)1990 1093,49:1094,230:1097,46:1102,230:965 2099,141:2100,20:2101,3:2103,8:2104,141:2105,21!2PROGRAM STARTS HERE **""";::(50003)053281,6:53280,14""":UT,UL%H" PGM COPYRIGHT (C) 1979 DONALD ROSSe" CURSOR #8, MARCH, 1979" BOX 550, GOLETA, CA. 93017":">R1:C1:A16:E0"HUP0:UG$"Π":850"f#875:W0:X1C:S(X)0:#X1R$A(X,1)((1)9)1'$B(X)A(X,1):S(1)S(1)A(X,1)5$C22300@$Y2CV$A(X,Y)((1)10)n$B(X)10B(X)A(X,Y)$S(Y)S(Y)A(X,Y)$Y$X$ 850:(UD$,11.5R2)$ X1R$ 19.5C2) ":Z12600& (UD$,11.5R2);" CARRY --->";& 18.5C2Z);" ";:RV1(& 3000;& (UI$)K2510k& WW1:""12)"O, TRY AGAIN. ":2460& (UD$,11.5R2);" "& ""12)" ":ZZ1:2390"'i 10)"OU MADE"W"MISTAKE.";:W1"S."(j 835:UH1:8501(n " OULD YOU LIKE TO TRY"m(x " ANOTHER ONE? ";:US$"YN":UL1:35:UR$"N"w( 2200( UC,0:UI$"":RV1"";( I$:I$""3010( I$(13)UI$"" UI$"":' ** STANDARD INPUT **8 (UI$)46I UI$(32)f (UI$)48(UI$)57170l (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ *UL0UL80 -" ";:UC,03 2UI$:UI$""50] 7UI$(13)(UR$)1UC,1:" ";:85p <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++ ZUR$UX 875: ** STUDENT INSTRUCTIONS **!""P"":UT,UL%:(50003)053281,0:53280,0qUP0:UG$"TUDENT NST":850{1120835UP1:850" HERE ARE TWO MEN IN THE GAME BUT"" YOU CONTROL BOTH OF THEM." (50003)053281,2:53280,10(UP0:UG$"EACHER NST":850V" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS  " PGRADED Y : TEPHEN ENTON6" HIS PROGRAM WILL RUN ON ANYV" 64 {" 64  835NUZ1UP%:217WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$" "BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"61093:V  ** T I T L E P A G E **""";:UT,UU%:(50003)053280,14:53281,6$I138:"";:&I122:"";:(I137:"";:*I122:" ** COMMODORE LOGO **+;(UD$,24);"PRESS SPACE BAR OR WAIT":I0M<A$:A$" "II1:I250828q>T1$"":T2$"":T3$"":T4$"":I0z@300C ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:AIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "#u@ ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0 (50003) ** SET VARIABLES **900:: ** CHECK FOR 8032 **8"":"": SHIFTED SPACEO(UB40)96700h ** MEMORY CHECK **| (0)2000937"THIS MACHINE DOES NOT HAVE ENOUGH""MEMORY TO RUN THIS PROGRAM !" HELP ROUTINE EXIT +++ 250 2454 UQUB(UB999)P UQ%(UQUB)(UQ)::""c UZ1:UV%(UT)l 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUBUB999 ;" ":BU1%(U1):U2%(U2):U3%(U3):U4%(U4)jUJ$US$:UK$UG$:UL$UT$:UJUP:UKULp, ** MENU **-:."":UT,UU%:(50003)053281,9:53280,8/:1" MENU"6" -----------------4) ";^UL1:US$"1234":35: INPUT ROUTINE/_(UR$)1300:`US$""Wc(UR$)1000,400,500,396`h300 ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"": OU HAVE TO ANSWER QUESTIONS FOR"#" BOTH MEN.",8355UP2>850o" F AT ANY TIME YOU WISH TO RETURN"" TO THE PRESS H "835UZ1UP%:217 ** TEACHER INSTRUCTIONS **"":UT,UL%:ACHINES"" 3370 HARMACY VE.9" GINCOURT, NTARIO"[" ANADA 1 24"{" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: DDITION ACE" RITTEN Y : HIL EMIEUX ROGRAM OD":850835UZ1UP%:217= ** TO USE 8032 LOAD CBM4032 **s"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71 ** TO USE 8032 LOAD CBM4032 ***";: ," /."  P0" n2" 4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE:UI$" "844NR ** PAGE DESIGN ROUTINE **TUPUP1DW""(UT$UP$,21);(UP$UG$(UP),18)s\" --------------------------------------"`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUO,0:"":k ** PLEASE W0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048K(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198oUD$""UP$" "UT$" DDITION ACE": PROGRAM TITLEUU71"":(50003)0962( ** BASIC 2.0 OR 4.0 OR C-64 SETUP **f1075,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)160 UQ,UQ%(UQUB): 246H (UD$,24);10);" STARTING LINE ":UM13,32T U1,U1%` U2,U2%l U4,U4%z U3,U3%1 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ":(UD$,24) ---------------------"+;" 1. ADDITION RACE"U@" 2. STUDENT INSTRUCTIONS"E" 3. TEACHER INSTRUCTIONS"O" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1- YOU WON":I1100:I &"YOU WON":I1100:I1&(O15)1510{&"YOU HAVE ANSWERED 6 QUESTIONS CORRECTLY FOR THE WINNING PLAYER."&"YOU HAVE ALSO ANSWERED "E" QUESTIONS WRONG FOR THE WINNING P0 (T"YOU HAVE ANSWERED 6 QUESTIONS CORRECTLY FOR THE WINNING PLAYER."W(^"YOU HAVE ALSO ANSWERED "R" QUESTIONS WRONG FOR THE WINNING PLAYER(c"FOR THE OTHER PLAYER, YOU ANSWERED ":E;" QUESTIONS WRONG."(e835(h FOR THE WINNING P  910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$ $ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1) P ROUTINE EXIT +++ 250 245; UQUB(U2%256U1%U3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB(UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN AGENT BLOTTO"@" 2. 9551093,88:1094,228:1097,85:1102,228:965(50003)1990H1093,49:1094,230:1097,46:1102,230:9652099,141:2100,20:2101,3:2103,8:2104,141:2105,212106,3:2115,145:2117,52:2118,234:2121,49:2122,1412123,20:2120:E0:R0:P0:Z0:O0 V W1170%!`" HIS GAME WILL DRILL YOU ON ADDITION.Q!j" NSWER THE QUESTIONS ASKED ON THE"{!t" SCREEN AND YOUR PLAYER WILL MOVE"!~" TOWARDS THE FINISH LINE IF YOUR ANSWERS"!" ARE CORRECT."!! START LINE ""LUM902#L,42#AUM894#A,421#J(100(1)100)G#K(100(1)100)Q# XJKd#""J"+"K"= ";#US$"0123456789":UL3:35##(UR$)X1420#("WRONG"#-T1300:480$L,32:LL160:L,42:ZZ1%%" ":(LUM22)15100% 1270N%A,32:AA160:A,42:PP1%" ":(AUM14) 1580%T1200:T: 1270%OO1%"LAYER '"FOR THE OTHER PLAYER, YOU ANSWERED ":R;" QUESTIONS WRONG."('"THANK YOU FOR PLAYING"1'8357'"A',OO1y'6"YOU WON":I1100:I'@"YOU WON":I1100:I'J(O15)158 INPUT ROUTINE `US$""*c(UR$)1000,400,500,600,3963h300Z ** RE-ENABLE STOP KEY AND END **(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 7UI$(13)(UR$)1UC,1:" ";:85| <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++ UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HELU2%256U1%U3%3) UQ,UQ%(UQUB):) U1,U1%5 U2,U2%A U4,U4%O U3,U3%1W 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4) STUDENT INSTRUCTIONS"2E" 3. TEACHER INSTRUCTIONS"_J" 4. MODIFICATION OF PROGRAM"{O" 5. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-5) ";^UL1:US$"12345":35:4,3:2126,234:2127,141:2128,21:2129,3 UU48: DISABLE STOP KEY' 800: TITLE7 300: MENUh "THE PGM WILL NOT WORK ON THIS MACHINE!": UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE ** "";::(50003)053281,6:53280,6 LF(50003)053281,1:"":53281,6:53280,14:1175"""$"IUM40UM80:I,170:IF"IUM79UM999 40:I,170:Ih"IUM998UM9591:I,170:I"IUM960UM4040:I,170:I"" FINISH LINE """ T#<WW1#F(W2)(W2)1390#PEE1$$Z" "/$d 12709$nRR1h$x" "s$ 1270$"RIGHT"$T1300:T$WW1$(W2)(W2)1 :1097,46:1102,230:965"2099,141:2100,20:2101,3:2103,8:2104,141:2105,21Z"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"3 "":UT,UL%:(50003)053281,0:53280,0@UH1:UP0:UG$"TUDENT NST":850p" PECIAL GENT LOTTO NEEDS Ғ HELP"" IN THE FIGHT AGAINST EVIL! S YOU GO"" THROUGH THE PROGRAM HE WILL TELL YOU"" WHAT TO DO. O LISTEN WISH TO RETURN"" TO THE PRESS H "&835:UZ1UP%:217@a ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UH1:UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE," 24" " (416) 499-4292"%UH1:UP1: 835: 850:M" ROGRAM AME: GENT LOTTO" RITTEN Y : . ANAREK":" . ARACENI"" . CRIMGEOUR":" PGRADED Y : . UMAS" IVE AND"" NEGATIVE NUMBERS. HE STUDENT SOLVES A"I" PROBLEM AND HER/HIS ANSWER REPRESENTS"y" A LETTER (EG. A=1, B=2, ETC.) TO SOLVE"" THE SECRET MESSAGE."D835NUZ1UP%:217WX ** PROGRAM MODIFICATION INST **ELS."835UZ1UP%:217+ ** TO USE 8032 LOAD CBM4032 **a"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71  ** T I T L E P A G E **""";:UT,UU 4"C O M M O D O R E+6"EDUCATIONALJ8"SOFTWAREe: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$""--------------"`UH0870(a(UD$,24);(UP$,7);"HELP - PRESS H "9fUH0:"":Xk ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1"UP$" "`UT$" ԠϠ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***f ** SET VARIABLES **900Q$(28),N(28) ** CHECK FOR 8032 **"":"": SHIFTED S,133:1076,144:1077,234:1079,4:1080,133:1081,1458!1091,155:1098,133:1099,144:1100,234:1103,133Z!1104,145:1105,234:1082,234q!(50003)160955!1093,88:1094,228:1097,85:1102,228:965!(50003)1990!1093,49:1094,23000: MENU#"THE PGM WILL NOT WORK ON THIS MACHINE!":9#UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **e#"";::(50003)053281,6:53280,14s#UG$""# ### AGENT BLOTTO# #### ### BY MELANIE KANAREK# ### CLELIA SA CAREFULLY!"" Œ: Y MEANS YES."<" N MEANS NO."]"Ġ!"p835:UH1:850" OTE:O ADVANCE FROM ONE QUESTION"" TO THE NEXT PRESS THE BAR""F AT ANY TIME YOU " THIS PROGRAM IS IN THE PUBLIC":" DOMAIN. F THIS IS NOT THE CASE"W" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1  HIS PROGRAM WILL RUN ON ANY&" 64 K" 64 ^ 835:UH1:850" Ԡ IS A PROGRAM DESIGNED AS"" A CODE BREAKING GAME. T INCLUDES ALL"" OPERATIONS USING BOTH POSITY"":UT,UL%]UH1:UP0:UG$"ROGRAM OD":850Db" HE DATA IN THIS PROGRAM COULD BE"qd" CHANGED SO THAT NO NEGATIVE NUMBERS"f" ARE INVOLVED. HE PROGRAM WILL BE"h" SUITABLE FOR LOWER JUNIOR AND PRIMARY"j" GRADE LEV%:(50003)053280,14:53281,6$I138:"";:*&I122:"";:B(I137:"";:Z*I122:"";:," ."  0" 2":T4$"":I0@300C ** SPACE BAR PRESS **CHUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"ZLUI$:UI$" "844`NR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" ------------------------196:U2197:U3198:U4216:UC167:UU1024:UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0}(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$" PACE(UB40)96700  ** MEMORY CHECK **  (0)2000937F "THIS MACHINE DOES NOT HAVE ENOUGH"j "MEMORY TO RUN THIS PROGRAM !"u UU71{  "":(50003)0962  ** BASIC 2.0 OR 4.0 OR C-64 SETUP **!1075 RACENI#$ ### PAT SCRIMGEOUR#. ###$8 ### FOR YORK COUNTY BOARD OF ED.%$B ###=$L ### JULY 20, 1981C$VP$` UT,UL%Y$jA=0w$IFA=0THENDIMQ$(28),N(28)$A=1$CQ$" "(13)""$UG$"":UP0:UH1:85 DDEN THE DECODER"&" BEFORE R. INTERCEPTS ANY MESSAGES."1&" GENT LOTTO HAS RECEIVED A MESSAGE"_&" TELLING HIM WHERE THE DECODER IS BUT"&" THISMESSAGE IS WRITTEN IN CODE TOO."&UP1:UH1:835:850&" ERE IS THE MES 'F" YOU MUST FIND THE ANSWERS TO THE"(P" FOLLOWING QUESTIONS. HE NUMBERS OF"F(Z" THE ANSWERS CORRESPOND TO THE LETTERS"s(d" OF THE ALPHABET E.G.(A=1, B=2 ETC) "(n" AND WILL SPELL THE MAN'S NAME AND A"(x" PASSWORD THAT HAS TO  UR$)))NI(K)1NI(K)26CQ$:1480)*" RE YOU SURE THAT ALL YOUR ANSWERS">*" WERE RIGHT? ";:US$"YNH":UL1:35X*UR$"Y"UR$""1545b*1430u* UP4:835:850*" CCORDING TO YOUR ANSWERS, THE"*" MAN'S NAME IS 0+^NM$"ASTY"1685+cUP5:UH1:835:850,h" HE POLICE WERE NOT ABLE TO FIND"E,r" R. "NM$". HEY HAVE ASKED YOU TO"j,|" TRY SOLVING THE CODE AGAIN."t,1430,UP5:UH1:835:850," HE POLICE HAVE LOCATED R.US$"-.0123456789H":UL2: 35:NI(K)((UR$)).NI(K)1NI(K)26CQ$:1770 .4." OUR ANSWERS INDICATE THAT THE"K." PASSWORD IS ";|.&CB$"":K14:CB$CB$(NI(K)192)::CB$".".0" RE YOU READY TO REPORT YOUR FINDINGS".:"1715/UP7:835:850/" OOD WORK! HANKS TO YOU, GENT"'0" LOTTO HAS FOUND THE DECODER. E IS SO"V0" IMPRESSED BY YOUR SKILL THAT HE WOULD"0" LIKE YOU TO HELP HIM ON HIS NEXT"0" ASSIGNMENT. O YOU ACCEPT THE"0OOD! GENT LOTTO THINKS YOU AND"1 " HE WILL MAKE A GOOD TEAM. ERE IS THE",2" THE LATEST ASSIGNMENT RECEIVED FROM"\2 " HEADQUARTERS: T SEEMS THAT R. (THE"2*" UNKNOWN) DOES NOT KNOW THAT LOTTO HAS"24" RECEIVED THE DECODER.3p" GENT LOTTO, HE WILL BE ABLE TO CATCH"3z" THE CRIMINALS RED-HANDED."4UP10:UH1:835:850(4"4 + 7 + 5 - 2"=4" 17 - 16"R4" 25 - 10 + 4"g4" 5 + 10 + 5"|4" 15 - 5 + 15"4" 3 X 5"4" 4 X 4"4"15 / 3"HO OWNS THE PLACE WHERE"58 " THE GANG IS GOING TO MEET."5L UP11:835:850&6V " ERE ARE THE CLUES FOR THE 4TH WORD:"16` K13Q6j " "Q$(K)" = ";~6t US$"-.0123456789H":UL2:35:N(K)(UR$)6~ N(K)1N(K)26CQ$:24106 0$" PECIAL GENT LOTTO NEEDS YOUR HELP"#%" IN SOLVING A DIFFICULT CASE. IS ARCHS%" ENEMY, R. (THE UNKNOWN), HAS STOLEN"~%" THE KEY TO THE SECRET CODE. T IS"%" VITAL THAT GENT LOTTO FINDS OUT"%" WHERE R. HAS HISAGE:"&" HE DECODER CAN BE FOUND IN THE"' " SAFE AT R.()'S OFFICE. HE"J'" PASSWORD TO THE SAFE IS ()."b'(UP2:UH1:835:850'2" O HELP GENT LOTTO FIND THE NAME OF"'<" THE MAN AND THE PASSWORD TO THE SAFE,"BE SAID TO UNLOCK"(" THE SAFE ONCE THE MAN'S IDENTITY")" HAS BEEN FOUND."&)UP3:835:850T)" ERE ARE THE QUESTIONS FOR THE MAN'S"c)" NAME:"p):K15x)Q$)" "Q$" = ";)US$"-0123456789H":UL2: 35:NI(K)((";*"NM$(NI(1)192):K25:NM$NM$(NI(K)64)::NM$"."%+," F YOU DECIDE THAT YOUR ANSWER IS"P+6" CORRECT, THE POLICE WILL START A "p+@" MANHUNT FOR R. "NM$"."+J" S IT CORRECT? ";:US$"YNH":UL1:35+TUR$"Y"UR$""143 ASTY AND"," ARE STANDING BY UNTIL YOU HAVE SOLVED"-" THE CODE FOR THE PASSWORD."'-UP6:835:850O-" ERE ARE THE QUESTIONS FOR THE"n-" PASSWORD TO THE SAFE:"-:K15:X$:-K14-Q$-" "Q$" = ";- TO THE POLICE? ";:US$"YNH":UL1:35.DUR$"Y"UR$""1715 /NCB$""1935"/SUP7:UH1:835:850R/X" ESSAGE FROM GENT LOTTO:"/b" ";(34)"OUR PASSWORD DIDN'T WORK. RY"/l" SOLVING THE CODE AGAIN."(34)/" CHALLENGE? ";:US$"YNH":UL1:350UR$"N"UR$""20451UP8:UH1:835:85091" H, THAT'S TOO BAD. ERHAPS YOU CAN"d1" COME BACK SOME OTHER TIME TO HELP"1" GENT LOTTO."137701UP8:UH1:835:8501"  E IS STILL"2>" SENDING CODED MESSAGES TO HIS GANG"3H" ABOUT THEIR NEXT CRIME."3MUP9:UH1:835:850P3R" HIS MEANS THAT GENT LOTTO CAN FIND"{3\" OUT WHERE R. WILL STRIKE NEXT."3f" F YOU CAN DECODE THE MESSAGES FOR" 4" 2 X 7"4" ERE IS THE MESSAGE:"5" -- . "5 " ' ."35 K128:Q$(K):b5 " GENT LOTTO THINKS THE MOST HELPFUL"5$ " WORD WILL BE THE FOURTH ONE, SINCE"5. " HE CAN TELL W 6 JO$"":K13:JO$JO$(N(K)192):6 " RE YOU SURE YOUR ANSWER, "JO$","!7 " IS RIGHT? ";:US$"YNH":UL1:35=7 UR$"Y"UR$""2380Q7 JO$""2535j7 UP12:UH1:835:8507 " OMPUTER RECORDS DO NOT INCLUDE ANYON RE THE CLUES:"8( K4982 " "Q$(K)" = ";:US$"-.0123456789H":UL2:3597 N(K)((UR$))9< N(K)1N(K)26CQ$:2610%9F M9P GR$"":K49:GR$GR$(N(K)192):w9Z " S "GR$" YOUR DEFINITE ANSWER? ";9_ US$"YNH":UL1:359d UR$"Y" . ": " ' .": " ELL, GUESS WE SHOULD SEE WHAT"; " R. IS GOING TO RAID. O TO IT!".; UP15:835:850N; " LUES FOR FIRST WORD:"[; K1013; " "Q$(K)" = ";:US$"-.0123456789H":UL2:35;  NK THEY ARE GOING TO RAID" TU$""3095> UP17:UH1:835:850> " "TU$" DOESN'T MAKE SENSE. OLVE IT"? " AGAIN, PLEASE."? 29355? UP17:UH1:835:850h? " REAT! E'VE ALMOST GOT THE ENTIRE"z?! " MESSAGE:"?& " --MN$(N(K)192):@ " OES -- "MN$" MAKE"@ " ANY SENSE TO YOU? ";:US$"YNH":UL1:35A UR$"Y"UR$""31250A MN$""3285IA UP19:UH1:835:850xA " HAT COULDN'T BE IT."A " S TRUE IDENTITY--BUT YOU WILL"B " HAVE TO FIND OUT FOR YOURSELF."B K18:Q$(K):B* UP20:835:850 C4 " HE CLUES:"C> K183CH " "Q$(K)" = ";eCR US$"-.0123456789H":UL2: 35:N(K)((UR$))C\ N(K)1N(K)26CQ$:3400CfD " HAT'S RIGHT! R. IS UPERMAN!"D " ITH YOUR HELP, GENT LOTTO AND"E " THE ELONVILLE POLICE FORCE HAVE"3E " COMPLETELY ELIMINATED CRIME FROM THE"bE " STREETS OF THE CITY. GENT LOTTO IS"E " MOVING ON TO JOIN THE  SPECIAL"FB" CODE NUMBER. HIS IS YOUR ":" AUTHORIZATION NUMBER"FL" FOR THIS CASE. T IS TOP SECRET,",GV" AND MUST ONLY BE TOLD TO YOUR TEACHER."XG`" AKE SURE THERE IS NO ONE STANDING"Gj" BEHIND YOU, THEN PRESS THE  BAR."GRS$:A411:RS$RS$(((RS$,A,1))128):GRS$(RS$,4)GUP22:UH1:835:850H"ODE: 8921"H835HBH" 5 X 2"," 3 X 5","27 - 22"{H" 32 - 25"," 72 / 72"," 9 X 2"," -7 + 8"HE"7 " BY THE NAME OF "JO$". RY AGAIN."7 23807 UP12:UH1:835:850"8 " HA! O THEY'RE MEETING AT OE'S."N8 " MMM, OE'S WHAT, WONDER. OU'D"y8 " BETTER DECODE THE LAST WORD NEXT."8 UP13:835:8508 " ERE AUR$""25809n GR$""27159s UP14:UH1:835:850:x " UT OE DOESN'T OWN A "GR$". EE IF":: " YOU GET A DIFFERENT ANSWER IF YOU"T: " DECODE IT AGAIN."^: 2580w: UP14:UH1:835:850: " -- N(K)((UR$)); N(K)1N(K)26CQ$:2800; ; BK$"":K1013:BK$BK$(N(K)192):"< " O YOU THINK THEY ARE GOING TO RAID"K<" " THE "BK$"? ";:US$"YNH":UL1:35m<, UR$"Y"UR$""CQ$:2770<6 BK$""2915<@ " DON'T THI " "Q$(K)" = ";:US$"-.0123456789H":UL2:35= N(K)((UR$))= N(K)0N(K)26QU$:2960> +> TU$"":K1420:TU$TU$(N(K)192):T> " O YOU THINK "TU$" IS THE RIGHT"x> " WORD? ";:US$"YNH":UL1:35> UR$"Y"UR$""29 . "?0 " ' ."?5 UP18:835:850?: " ERE'S THE LAST WORD:"@D K2128@N " "Q$(K)" = ";P@X US$"-.0123456789H":UL2: 35:N(K)((UR$))o@b N(K)0N(K)26CQ$:3150u@l @v MN$"":K2128:MN$LEASE TRY AGAIN."A 3125A UP19:UH1:835:850A " ONGRATULATIONS AGAIN! GENT LOTTO"!B " CAUGHT R. & GANG JUST AS THEY WERE"OB " PREPARING TO BLOW UP THE DOOR TO THE"{B " BANK SAFE. LOTTO EVEN DISCOVERED"B " R. ' Cp SM$"":K18:SM$SM$(N(K)192):Cz " O YOU THINK R. IS "SM$"? ";:US$"YNH":UL1: 35 D UR$"Y"UR$""3370#D SM$""35159D UPUP1:835:850aD " T ISN'T. RY AGAIN."kD 3370D UP20:UH1:835:850. AYBE"E " SOMETIME IN THE FUTURE YOU WILL MEET"E" AGAIN."E UP21:UH1:835:850F" OODBYE FROM GENT LOTTO AND"AF" ELONVILLE POLICE HEADQUARTERS!"ZF.UP22:UH1:835:850F8" AM NOW GOING TO SHOW YOU A  " -15 + 22","-153 + 158"H" 5 + -3"," 7 / 7","-7 + 30 - 9"," 99 / 9"I"7 + 3 + 6 + 4","6 + 3 + 9 + 3"," -7 + 12"," 25 - 10 + 4"QI " 2 X 2"," 1 X 1"," 5 X 5"I" 19 - 6"," 3 X 3","   910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UR$"":UI $ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1)  P ROUTINE EXIT +++ 250 245; UQUB(U2%256U1%U3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB(UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN ANALYSIS@" 2. TEAC0,396h300% ** RE-ENABLE STOP KEY AND END **T(50003)1(50003)160(50003)0399~UU71:(50003)053281,6:53280,14"":875: ** TEACHER INSTRUCTIONS **850" HIS PROGRAM WILL CALCULATE FOR A SET" ERCENTAGE OF TUDENTS AILING" 835:850P" NTER THE SET OF MARKS AND ENTER END"~" WHEN FINISHED. HE MAXIMUM NUMBER OF"" MARKS YOU CAN ENTER IS 500. OWEVER"" THIS MAXIMUM CAN BE CHANGED" ( SEE :217 ** TEACHER INSTRUCTIONS **D"":UT,UL%:(50003)053281,2:53280,10uUP0:UT$" ":UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS " ROGRAM AME: NALYSIS%" RITTEN Y : NKNOWN@" PGRADED Y : k" HIS PROGRAM WILL RUN ON ANY" 64 " 64  835 :410NUZ1UP%:217WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%@]UP0:UT$" ":UG$"ROGRAM OD":850pb" F YOU WANT TO CHANGE THE MAXIMUM NUM-"d" BER OF MARKS YOU CAN ENTER,THEN CHANGE"f" THE VALUE FOR EN IN LINE 916 TO THE"h" DESIRE 17 - 13","4 + 2 + 4 + 4"I" 1 + 5 + 3"," 12 - 5"," 40 / 5"," 4 X 5" J(" (4 X 5) - 1"," 7 X 3"," (2 X 6) + 4"," (13 - 9) + 1"lJ2" 3 X (3 X 2)"," (5 X 3) -2","(90 / 10) - 8"," (35 / 5) X 2","" -7 + 8"H$"":UO,0 *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 7UI$(13)(UR$)1UC,1:" ";:85| <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++ UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HELU2%256U1%U3%3) UQ,UQ%(UQUB):) U1,U1%5 U2,U2%A U4,U4%O U3,U3%1W 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4)HER INSTRUCTIONS"/E" 3. MODIFICATION OF PROGRAMKO" 4. QUIT"zT" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,500,60" OF STUDENTS' MARKS, THE FOLLOWING:"/" EDIAN"E" VERAGE"f" TANDARD EVIATION"" UMBER OF TUDENTS ASSING"" UMBER OF TUDENTS AILING"" ERCENTAGE OF TUDENTS ASSING"")."""J" OTE: LWAYS PRESS THE <> KEY"n" AFTER TYPING IN AN ANSWER."" F AT ANY TIME YOU WISH TO RETURN"" TO THE PRESS H <>."835:UT$" ANALYSIS"UZ1UP% IS NOT THE CASE"" PLEASE CONTACT:"?" OMMODORE USINESS ACHINES"b" 3370 HARMACY VE." GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UP1: 835: 850: D VALUE." j" .. 916 EN=500 <>"=l" ITH THE ABOVE, A MAXIMUM OF 500 MARKS"Vn" CAN BE ENTERED."p" : AKE SURE THAT THE VALUE YOU"r" CHANGE FOR EN IS A MULTIPLE OF 10."s835:850t" Y INCREASING THE V " LOAD THE 'CBM 4032' PROGRAM"UU71$I ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 LOAD CBM 4032 PROGRAM"1093:  ** T I T L E P A G E **""";:UT,UU%:(5 4"C O M M O D O R E#6"EDUCATIONALB8"SOFTWARE]: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$" --------"`UH0870 a(UD$,24);(UP$,7);"HELP - PRESS H "1fUH0:"":Pk ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **UX$"H":UQ%(1000):UB32768:U1196:U" UP$" "X UT$" ANALYSIS ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***^ d ~  ** SET VARIABLES ** 900 EN500:M(EN) :  ** CHECK FOR 8032 ** "":"": SHI1075,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,234u"(50003)160955"1093,88:1094,228:1097,85:1102,228:965"(50003)1990"1093,49:10#300: MENU$"THE PGM WILL NOT WORK ON THIS MACHINE!":=$UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **i$"";::(50003)053281,6:53280,14~$UG$"":UP0:850$" MAXIMUM MARK POSSIBLE? ";$US$"H0123456789.":UL5:35:MA(UR$)%NN1%X:UG$"MAX. MARK":UPMA1:850:I&*THIS SECTION SORTS THE NUMBERSU&(UD$,23);" CALCULATING INFORMATION "&" ONE MOMENT PLEASE "&PN1:P01340& J1 P&KEY0& M(J)M(J1)  AN FOR ODD # OF ENTRIES'nT5(N1)2'xT6(T5)(MEDIANM(T6)( 14502(*MEDIAN FOR EVEN # OF ENTRIESQ(MEDIAN(M(N2)M(N21))2r(*THIS SECTION FINDS AVERAGE{(T20( I 1 N(T2T2M(I)( I(AVT2N( 1720( 1800(*THIS SECTION PRINTS ANSWERS)UG$"MAX. MARK":UPMA:850,)" MEDIAN = ";(MEDIAN100.5)100Q)," AVERAGE = ";(AV100.5)100q)@" NUMBER OF ENTRIES = ";N)T" STANDARD DEVIATION = ";(SD100.5)100)h" NUMBER PASSING = "ALUE ABOVE 500,THERE";v" IS A CHANCE THAT THERE MAY NOT BE"Ox" ENOUGH MEMORY LEFT TO RUN THE PROGRAM."h835:UT$" ANALYSIS"|UZ1UP%:217 ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 0003)053280,14:53281,6 $I138:"";:"&I122:"";::(I137:"";:R*I122:"";:w," ."  0" 2" ":I0@300C ** SPACE BAR PRESS **;H(UD$,24);"PRESS SPACE BAR TO CONTINUE":UO,0RLUI$:UI$" "844XNxR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" ------------------------------2197:U3198:U4216:UC167:UU10242UT59468:UU%12:UL%14:UP%1146:UM32768: 50003,0:UO158u(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198UD$"FTED SPACE (UB40)96700! ** MEMORY CHECK **! (0)2000937J!"THIS MACHINE DOES NOT HAVE ENOUGH"n!"MEMORY TO RUN THIS PROGRAM !"y!UU71!!"":(50003)0962! ** BASIC 2.0 OR 4.0 OR C-64 SETUP **"94,230:1097,46:1102,230:965"#2099,141:2100,20:2101,3:2103,8:2104,141:2105,21^#2106,3:2115,145:2117,52:2118,234:2121,49:2122,141#2123,20:2124,3:2126,234:2127,141:2128,21:2129,3#UU48: DISABLE STOP KEY#800: TITLEUR$)$$UG$"MAX. MARK":UPMA1:850$BN0%L*THIS SECTION INPUTS THE NUMBERS0%`I1EN10:X110Y%j" ENTER MARK #";1N;" ";|%tUS$"H0123456789.END":UL5:35%vUR$"END"1180%y(UR$)MA(UR$)0"":1130%~M(N1)( 1270&KEY1&TM(J)&M(J)M(J1)&M(J1)T' J' P1 1320&'  KEY0 13200'PP1;' 1200\'(*THIS SECTION DETERMINES IF{'2*# OF ENTRIES IS ODD,EVEN'<T5N2'FT1(T5)'PTESTT12'Z TESTN 1430'd*MEDI ;NP)|" NUMBER FAILING = ";NF)" PERCENTAGE PASSING = ";PP!*" PERCENTAGE FAILING = ";PF,*835:`*:THIS SUBROUTINE CALCULATES STANDARD DEVIATIONn*S10:S20|* I1 N*S1(M(I)AV)(M(I)AV)*S2S2S1* I*SD(S2N  910* ** ML STOP KEY DISABLE **U"x=X` LXxU䅑X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$ $ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1)  P ROUTINE EXIT +++ 250 245; UQUB(U2%256U1%U3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB(UJ$US$:UK$UG$:UL$UT$:UJUP:UKUL/, ** MENU **5-:d."":UT,UU%:(50003)053281,9:53280,8j/:1" MENU"6" --------------------------------------";" 1. BEGIN ANOVA@" 2. STUDENTh300  ** RE-ENABLE STOP KEY AND END **O(50003)1(50003)160(50003)0399yUU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:53280,0UP0:UG$1,2,...999"&" WHERE K IS THE NUMBER OF GROUPS AND"[" 999 INDICATES THE END OF A GROUP.":835:850r" OR EXAMPLE:"" 2000 DATA3,7,10,10,11,12,999"" 2005 DATA4,6,7,9,9,999"" 2010 DATA2,2,3,7,6,999"835:850T,UL%:(50003)053281,2:53280,10-UP0:UG$"EACHER NST":850[" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE U " PGRADED Y : ARLEN UMAS=" HIS PROGRAM WILL RUN ON ANY]" 64 " 64  835NUZ1UP%:217WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD":850835UZ1UP%:217D ** TO USE 8032 LOAD CBM4032 **z"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU71  ** T I T L E P A G E *)*+:THIS SUBROUTINE FINDS THE NUMBER PASSING AND PERCENTAGE PASSING.+NP0:PP0$+ I1 N?+& M(I)MA2 NPNP1G+0 IS+:NFNNPk+DPP((NPN)100.5)y+NPF100PP+XIATION = ";(SD100.5)100)h" NUMBER PASSING = """:UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 7UI$(13)(UR$)1UC,1:" ";:85| <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++ UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HELU2%256U1%U3%3) UQ,UQ%(UQUB):) U1,U1%5 U2,U2%A U4,U4%O U3,U3%1W 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4) INSTRUCTIONS"*E" 3. TEACHER INSTRUCTIONS"FO" 4. QUIT"uT" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c(UR$)1000,400,500,396"TUDENT NST":850." T THE BEGINNING OF THE PROGRAM YOU"]" WILL BE ABLE TO CHOOSE IF YOU WANT TO"z" INSERT DATA OR NOT."" F YOU WANT TO PUT IN YOUR OWN DATA,"" INSERT DATA ON LINE 2000 AS:"" K, 1,2,...999," HEN YOU HAVE FINISHED INSERTING YOUR"A" DATA, TYPE Β TO GO BACK TO THE"m" PROGRAM AND TYPE ϒ TO THE FIRST"" QUESTION AND Ӓ TO THE SECOND."835UZ1UP%:217 ** TEACHER INSTRUCTIONS ** "":USINESS ACHINES"" 3370 HARMACY VE.>" GINCOURT, NTARIO"`" ANADA 1 24"" (416) 499-4292"UP1: 835: 850:" ROGRAM AME: NOVA " RITTEN Y : . ERGER *""";:UT,UU%:(50003)053280,14:53281,6+$I138:"";:C&I122:"";:[(I137:"";:s*I122:"";:," ."  0"  T1$"":T2$"":T3$"":T4$"":I0@300!C ** SPACE BAR PRESS **\HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"sLUI$:UI$" "844yNR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)\" --- UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024SUT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198 D SPACE(UB40)96700  ** MEMORY CHECK ** (0)2000937M"THIS MACHINE DOES NOT HAVE ENOUGH"q"MEMORY TO RUN THIS PROGRAM !"|UU71"":(50003)0962 ** BASIC 2.0 OR 4.0 OR C-64 SETUP ** 1230:1097,46:1102,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 (X103.5)103 "850:" NALYSIS OF VARIANCE (1-WAY)"8"" O YOU WISH TO INSERT YOUR OWN DATA?"^"$" ";:US$"YNH":UL20:35:Z$UR$t")(Z$,1)"Y"1810"8" OULD YOU LIKE TO USE THE F VALUE"":" SECTION ONLY? ";:US$"YNH":UL20:N11)P(M),19)P(SD)#TNTNN#TSTSS$TQTQSSN$QTQTQ$ A+$BSTQTSTSTN>$TTQTTSTSTNK$(WSTTBSQ$<$F::" OURCE UM F QRS .. .QR":$P" ETWEEN";10);P(BS);20);K1;28)P(BS(K1))$Z" ITHINSD1%TD2%ZF%1570%SD2%TD1&Z1F &"J29S&,K29TB&6Y((1K)Z(13)1J)(KZ(23)J)P&@T41640&JX.5(1Y(.196854Y(.115194Y(.000344Y.019527))))4&TX(X100000.5)100000&^1660&hYY(1.08 "":UL4:35:D2(UR$)'" ND THEN THE F VALUE? ";(US$"":UL4:35:F(UR$)(1480+(835:850\(" HANGE THESE LINES AND THEN TYPE RUN."(" WHEN YOU RUN, ANSWER NO TO THE FIRST"(" QUESTION AND YES TO THE SECOND ONE."(N2000(:(3,7,10,11,12,999(4,6,7,9,9,999)2,2,3,7,6,999P= "X'1430$'-'850\'" EGREES OF FREEDOM IN THE NUMERATOR?"'US$"":UL4:" ";:35:D1(UR$)'" EGREES OF FREEDOM IN THE DENOMINATOR?":" ";'US$2" !4"C O M M O D O R ED6"EDUCATIONALc8"SOFTWARE~: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I0<A$:A$" "II1:I250828>-----------------------------------" `UH0870Aa(UD$,24);(UP$,7);"HELP - PRESS H "RfUH0:"":qk ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **UX$"H":UD$""+UP$" "yUT$" NOVA ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** ** SET VARIABLES **900 ** CHECK FOR 8032 **"":"": SHIFTE075,133:1076,144:1077,234:1079,4:1080,133:1081,145?1091,155:1098,133:1099,144:1100,234:1103,133a1104,145:1105,234:1082,234x(50003)1609551093,88:1094,228:1097,85:1102,228:965(50003)19901093,49:1094,300: MENU !"THE PGM WILL NOT WORK ON THIS MACHINE!":@!UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **l!"";::(50003)053281,6:53280,14x!UT,UL%!UG$""! ANALYSIS OF VARIANCE PROGRAM! CARL BERGER 7/22/79!P(X)35:Z$UR$"B(Z$,1)"Y"1770"LUH1:850 #V INPUT DATA#`K9#j:" ROUP EAN TAND. EV.":D#tA1KT#~N0:S0:Q0[#Ik#I9991220u#SSI#QQII#NN1#1160#MSN#SD((QNMM)(N1))#" "A;7);";10);P(WS);20);(TNK);28);P(WS(TNK))%d" OTAL";10);P(TT);20);(TN1)1%nFBS(TNK)WS(K1)B%xETP(BSTT)b%" HE F VALUE IS ";P(F)l%1460%" SQUARED IS ";ET%835:%D1K1%D2TNK%X1%F11540%Y4T3)&r1610&|F11680&X1X'" HICH IS SIGNIFICANT AT P= "X'1430$'-'850\'" EGREES OF FREEDOM IN THE NUMERATOR?"'US$"":UL4:" ";:35:D1(UR$)'" EGREES OF FREEDOM IN THE DENOMINATOR?":" ";'US$  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$ $ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1)  P ROUTINE EXIT +++ 250 245. UQUBUB939J UQ%(UQUB)(UQ)::""] UZ1:UV%(UT)f 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUBUB919 UQ UJ$US$:UK$UG$:UJUP:UKUL(, ** MENU **.-:]."":UT,UU%:(50003)053281,9:53280,8c/:1" MENU"6" --------------------------------------";" 1. ADDITION TEACHER"@" 2. STUDENT R$)1000,400,500,396 h3004 ** RE-ENABLE STOP KEY AND END **c(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,0:5 " TO THE MENU FOR HELP. OU WILL"A: " BE RETURNED TO THE PLACE IN THE"m: " PROGRAM WHERE YOU LEFT OFF AS": " SOON AS THE OPTION FROM THE MENU": " IS COMPLETE."UP1:835:850" HIS PROGRAM HELPS YOU MAY COMPLETE.")" O END THE PROGRAM AT ANY TIME,"K" TYPE '' < RETURN >."T835hUZ1UP%:217n ** TEACHER INSTRUCTIONS **"":UT,UL%:(50003)053281,2:53280,10UP0:UG$"EACHER NST.":850OURT, NTARIO"" ANADA 1 24"4" (416) 499-4292"JUP1: 835: 850:w" ROGRAM AME: DDITION EACHER" RITTEN Y : NKNOWN" PGRADED Y : AY HITE" HIS PROGRAM WILL RUN ON  LE LEVEL, STEP BY"STEP IN THE ADDITION PROCESS. F THEN"STUDENT DOES WELL, A DRILL AT A HIGHERz"LEVEL OF DIFFICULTY FOLLOWS. "" HERE ARE EIGHT LEVELS IN ALL."D835NUZ1UP%:217WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%]UP0:UG$"ROGRAM OD":850(835<UZ1UP%:217Bg ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'CBM 4032' PROGRAM"UU"":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 7UI$(13)(UR$)1UC,1:" ";:85| <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++ UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HEL,UQ%(UQUB): U1,U1% U2,U2%' U4,U4%5 U3,U3%1E " ";:35w UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):U4%(U4) UJ$US$:UJULINSTRUCTIONS")E" 3. TEACHER INSTRUCTIONS"EO" 4. QUIT"tT" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE_: (UR$)1300`US$""c(U3280,0UP0:UG$"TUDENT NST":850C: " EMEMBER TO HIT AFTER"p: " TYPING YOUR ANSWER. HIS TELLS": " THE COMPUTER TO ACCEPT WHAT YOU": " HAVE TYPED.: " YPE AT ANY TIME TO RETURN":  YOU TO LEARN%"TO ADD CORRECTLY. OU SLOWLY TACKLE"S"THE QUESTION STEP BY STEP UNTIL IT IS"COMPLETED. F YOU DID WELL WITH ONE""SECTION, YOU WILL MOVE UP TO SLIGHTY"HARDER QUESTIONS. HERE ARE EIGHT"LEVELS" O THE BEST OF OUR KNOWLEDGE,"8" THIS PROGRAM IS IN THE PUBLIC"d" DOMAIN. F THIS IS NOT THE CASE"" PLEASE CONTACT:"" OMMODORE USINESS ACHINES"" 3370 HARMACY VE." GINCANY" 64 ," 64 : 835:850i" HIS PROGRAM IS INTENDED FOR THE"LOWER GRADES OF ELEMENTARY SCHOOL. ""HE STUDENT IS DRILLED ON ADDITION"SKILLS AT A COMFORTAB SETUP **!1075,133:1076,144:1077,234:1079,4:1080,133:1081,145K!1091,155:1098,133:1099,144:1100,234:1103,133m!1104,145:1105,234:1082,234!(50003)160955!1093,88:1094,228:1097,85:1102,228:965!(50003)1990! 71  ** T I T L E P A G E **8""";:UT,UU%:(50003)053280,14:53281,6N$I138:"";:f&I122:"";:~(I137:"";:*I122:"";:," ."  800: TITLE"300: MENU#"THE PGM WILL NOT WORK ON THIS MACHINE!":L#UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **w#"";::(50003)053281,6:53280,6#L0:SC0:NU0:V10:V20:V30:V40:V50:F60:F50:N30#DE$"  0<A$:A$" "II1:I250828>T1$"":T2$"":T3$"":T4$"":I0(@300DC ** SPACE BAR PRESS **yH(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DESIGN ROUTINE **TUPUP1W""(UT$UP$,2EVEL.$N" O QUIT AT ANY TIME, TYPE ''." %QA13:::835)%`" EVELS"Q%j"1. DD TWO NUMBERS TOTAL < 5."%t"2. DD TWO NUMBERS TOTAL > 5 AND < 9."%~"3. DDING WITH TOTALS BETWEEN 10 AND "%" 19 ALWUX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024RUT59468:UU%12:UL%14:UP%1146:UM32768: 50003,0(50003)0UB1024:U1209:U2210:U3211:U4214:UC204:UU2048(50003)0UT53272:UU%21:UL%23:UP%2139:UM1024"&S$"TEN"'" HOOSE STARTING LEVEL ";5'US$"QH12345678":UL1:35:L(UR$)D'UR$"Q"f'L8:""DE$"":5000:1265}'"":UT,UU%:LL1'3920:3860'( SET DIFFICULTY LEVELS'<L0L1:V15:V25":"": SHIFTED SPACE(UB40)96700  ** MEMORY CHECK **+  (0)2000937Y "THIS MACHINE DOES NOT HAVE ENOUGH"} "MEMORY TO RUN THIS PROGRAM !" UU71  "":(50003)0962  ** BASIC 2.0 OR 4.0 OR C-64 :V510:F60:F55:1500)L6L7:V150:V250:V350:V445:V520:F60:F55:1500D)L7L8:V199:V299:V399:V499:V550:F60:F55R)SC0:NU0d) FIND VALUESv) F55 1700)N3((1)V3)),N3$(N3))@U3$(N3$,1))TZ3(U3$))hT3 $(N3$,2,1))|T3(T3$))N310:T3$" ":T30*N1((1)V1)*N1$(N1) *U1$(N1$,1).*Z1(U1$)A*T1$(N1$,2,1)O*T1(T1$)i*N110:T1$" ":T10{*0N2((1)V2)*DN1N2N3V41540*FN1N2N3V51540*HN2$(N2):U2$1093,49:1094,230:1097,46:1102,230:9651"2099,141:2100,20:2101,3:2103,8:2104,141:2105,21m"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" 0" 2" D4"C O M M O D O R Eg6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);"PRESS SPACE BAR OR WAIT":I ":UT,UL%$" UTO-DD-EACHER "J$"HIS PROGRAM AUTOMATICALLY CHANGES"{$"LEVEL AFTER SIX SUMS WITH FEW MISTAKES."$$"ITH FEW CORRECT IT REMAINS ON"$."THE SAME L1);(UG$UP$,14);UP\" --------------------------------------"La(UD$,24);(UP$,6);"HELP - PRESS H "Xf"":wk ** PLEASE WAIT REMARK **p(UD$,24);" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **AYS CARRYING TEN."&"4. DD TWO NUMBERS BETWEEN 0 AND 19./&"5. DD THREE NUMBERS TOTAL < 10."X&"6. DD THREE NUMBERS TOTAL < 20&"7. DD THREE NUMBERS TOTAL < 45."&"8. DD THREE NUMBERS TOTAL < 99."&D$"UD$""#UP$" "qUT$" ΠҠ": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!*** RC(20),LV(20) ** SET VARIABLES **900 ** CHECK FOR 8032 **":V30:V45:F61:1500(PL1L2:V19:V29:V49:V55:F61:15001(dL2L3:V110:V210:V419:V510:F60:1500`(xL3L4:V110:V210:V419:V50:F60:1500(L4L5:V110:V210:V310:V49:V50:F55:F60:1500(L5L6:V110:V210:V310:V419 ":A16:" ":A:AUM5631 NUNU1:38001 A,87:A40,230:A80,2302 A119,78:A121,77)2 A41,99:A39,99?2 A41,99:A39,99L2 A1110b24 A2,103:A2,101t2H AA1100:AA2\ A2,32:A2,322p A38,99:A42,992 AA11 (N2$,1):Z2(U2$):ZTZ1Z2Z3 +JT2$(N2$,2,1):T2(T2$):N210T2$" ":T20.+LF10:ZT9F11:C$"1":S$"TEN"J+NZT19C$"2":S$"TENS"`+XN1N2N3V51540}+lNUNU1:SP10:F41:4240+ F11 SP9+(D$,2);5);""+(D$,3 "3(D$,16);"WELL DONE. YOU HAD";SC;"CORRECT."4(D$,17);" "04L8AA11000:AA:5020:]4(D$,17);" GO TO LEVEL";L14(D$,18);" "4AA12000:AA:5020:13004 (D$,17)" ",4(D$,19)" "-H3800-\ GET NUMBER.-p(D$,17)SP)" "C-(D$,17)SP4);p-"";:US$"Q0H123456789":UL2:35:K$UR$z-"";-A13:(UR$,A,1)"Q"-AU$UR$-(AU$)ZT A:5x PRINT CORRECT AND SCORE5(D$,12)27)""CO$5(D$,14)26)"CORRECT."6#6 PRINT WRONG TRY AGAIN/6F3F31963860c6(AU$)ZT(D$,10)25)"TOO SMALL."6(AT$)TA(D$,10)25)"TOO SMALL."6,(AU$)ZT(D$ . Q$"N"F102800. Q$"Y"F104400. 2300. ANIMATED CARRY/ (D$,17);/ C13+/ SP3)"";C$:/( T1400:L/< SP)" "R/P `/d (D$,18)k/x C16w/ C2C21/ " "/ 12C2)""C$;"";/ T1400:/ C  "7F41:(D$,14)26)" UNITS.":F407F42:(D$,14)26)" TENS?":F4078 CHECK CAREFULLY"80F13860.8DF3F31<8X(D$,10)U8l24)" "n824)" CHECK "824)" "824)" CAREFULLY $)TA3860:3960:30600 4040:29200 F30SCSC10 NU64940:3140 1 C12000:+10 F30:SP0:F10:F20:1520D1D AUTOLEVEL CONTROLT1X SC4LL1o1l SC4NU65160:1300|1 L0L01 FIGURES1 38601 " 9A2$UR$:29609 FORGOTTEN CARRY TEN9F3F319F109(D$,17)23)"YOU HAVE ":(D$,19)23)"FORGOTTEN"@:(D$,21)23)"THE ";S$;" YOU"]:$(D$,23)23)"CARRIED."c:8:L KEEP ACCOUNT OF SCORES:`I1I11:tRC(I1)!SC:LV(I1)L:: PRINT OUT RECORD SUB:"":"LEVELSCORE"::I1I14;""LV(I)""RC(I)"OUT OF 6.":;E;835:f;( END OF SET WITH MISTAKESx;<"";P"YOU SCORED ";SC;" OUT OF 00:AA2 A38,32:A42,322 2 A41,99:A39,992 A1183 A2,103:A42,1013 AA1100:AA,3A2,32:A42,32C3$A38,103:A2,101U38AA1100:AAj3LA2,32:A38,32p3`3tA2,103:A42,1013~(D$,15);" );5);" LEVEL ";L;" "+(D$,5)" SUM NUMBER ";NU,(D$,8)" TENS UNITS ";,(D$,10)" "T3$" "U3$" "e,(D$,12)" "T1$" "U1$" ",(D$,14)" + "T2$" "U2$" ", (D$,16)" ",  (D$,21)" YOUR SCORE IS "4(D$,23)" "SC" OUT OF ";NU145-SUB TO CLEAR RIGHT SIDE OF SCREENJ5("";:A124:20);" ":AP5<w5P----SUBTO REV LEFT SIDE OF SCREEN5d"";:A124:" ": 4040:F3F31:2140-CO$"UNITS":3860:3960:AA1500:AA. F612800$.$ (D$,16);25);"CARRY ";S$;"?"G.8 (D$,18);24);"TYPE'Y'OR'N'"w.L US$"QHYN":"";:UL1:35:Q$UR$.` Q$"Q".t Q$"N"F114400. Q$"Y"F112540 ,10)25)" TOO BIG. "6@(AT$)TA(D$,10)25)" TOO BIG. "6T(D$,12)24)" TRY "7h(D$,14)24)" AGAIN."#7|F7 TYPE HOW MANY TO RIGHT SIDEi7F41:(D$,5)26)"NEW SUM."7(D$,10)26)" HOW "7(D$,12)26)" MANY / C20:3860:F42:4240/ SP3: INPUT TENS/ TAT1T2T3:F420, ZT19:TATA2:2900!0@ ZT9:TATA110T TA9:SP2L0h (D$,17)SP)" "g0| (D$,17)SP4);:4640x0 AT$(A2$,2)0 (AT$)TA14780:28200 CO$"TENS"0 (AT  "824)" "824)" "824)" "8A11000:A9 9  GET NUMBER394(D$,17)SP)" "H9H(D$,17)SP4);u9\"";:US$"Q0H123456789":UL1:35:K$UR$9p"";9A13:(UR$,A,1)"Q"!  910* ** ML STOP KEY DISABLE **U"x=X` L4x1X`t"xhhhhhhhhhhhHHX`111""hhhhhhh`1" ** 4 - POP ML SUBROUTINE ** **GENERAL INPUT ROUTINE **::# +++ INPUT SECTION +++ (UO,0:UR$ISIX.";d"STAY ON LEVEL ";L1;x835;"":3860:3920;(D$,17)23)"YOU HAVE ":(D$,19)23)"FORGOTTEN"@:(D$,21)23)"THE ";S$;" YOU"]:$(D$,23)23)"CARRIED."c:8:L KEEP ACCOUNT OF SCORES:`I1I11:tRC(I1)! $ ZUR$UX$195: EXIT TO HELP ROUTINE3 _UF1240@ dUF0::Y f ++ CHECK DELETE ++j i(UR$)150 nUR$(UR$,(UR$)1) s" ";:50 x ++ CHECK FOR VALID CHARACTERS ++ }(US$)0150 US1(US$) UI$(US$,US,1) ! ,23)23)"CARRIED."686L KEEP ACCOUNT OF SCORES6`I1I116tRC(I1)SC:LV(I1)L:7 PRINT OUT RECORD SUB7""<7"LEVELSCORE"B7N7I1I17""LV(I)""RC(I)"OUT OF 6."77835:7!P ROUTINE EXIT +++ 250 245; UQUB(U2%256U1%U3%2)W UQ%(UQUB)(UQ)::""j UZ1:UV%(UT)s 300 UZ0:US$UJ$:UG$UK$:UPUJ:ULUK (50003)053281,1:"";:53281,6:53280,14:220 ""; UT$UL$:UT,UV%:UQUB(!0:53280,0UH1:UP0:UG$"TUDENT NST":850R" HIS PROGRAM WILL GIVE YOU PRACTICE IN"" CONVERTING FROM DECIMALS TO FRACTIONS"" AND VICE VERSA. HERE ARE 20 QUESTIONS"" TO DO. T THE START OF THE PROGRAM YOU"" WI!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 B.T.C. DEC/FRAC"@! " TERMS!"835:850G" ACH CORRECT ANSWER SCORES A POINT FOR"v" YOU. VERY TIME YOU TAKE TOO LONG OR"" YOUR ANSWER IS WRONG, IT IS A POINT"" FOR THE COMPUTER.""  ! --- (Ġˠ!(UR$)1000,400,500,396h3008 ** RE-ENABLE STOP KEY AND END **g(50003)1(50003)160(50003)0399UU71:(50003)053281,6:53280,14"":875: ** STUDENT INSTRUCTIONS **"":UT,UL%:(50003)053281,"!)"835:850*" OTE:O GO FROM ONE QUESTION TO"Q" THE NEXT PRESS THE BAR.""F AT ANY TIME YOU WISH TO RETURN"" TO THE PRESS H OR JUST"" H DURING THE DRILL."835UZ1UP%:21!"":UI$"" *UL0UL80+ -" ";:UC,0? 2UI$:UI$""50i 7UI$(13)(UR$)1UC,1:" ";:85| <UI$(20)105 > (UR$)UL50 A120: CHECK FOR VALID CHARACTER FUR$UR$UI$ KUI$; P50 U +++ CHECK FOR HELP REQUEST +++!"";:US$"Q0H123456789":UL1:35:K$UR$5p"";5A13:(UR$,A,1)"Q"5A2$UR$:29606 FORGOTTEN CARRY TEN%6F3F3116F10O6(D$,17)23)"YOU HAVE "m6(D$,19)23)"FORGOTTEN"6(D$,21)23)"THE ";S$;" YOU"6$(D$! UI$"":# ** STANDARD INPUT **4 (UI$)46E UI$(32)b (UI$)48(UI$)57170h (UI$)65(UI$)90180 (UI$)193(UI$)218UI$"": (UT)UU%UI$((UI$)128): UI$"": UF1: +++ HEL( END OF SET WITH MISTAKES7<""7P"YOU SCORED ";SC;" OUT OF SIX." 8d"STAY ON LEVEL ";L18x835'8"":3860:3920-8(D$,17)23)"YOU HAVE "m6(D$,19)23)"FORGOTTEN"6(D$,21)23)"THE ";S$;" YOU"6$(D$!U2%256U1%U3%3)* UQ,UQ%(UQUB)::FL1FL0:6 U1,U1%B U2,U2%N U4,U4%\ U3,U3%1d 35 UD%((U2%256U1%U3%)UB)40:(UD$,UD%1): (UD$,24);"  HELP COMING ": U1%(U1):U2%(U2):U3%(U3):!LL BE ABLE TO CHOOSE HOW LONG YOU"1" NEED TO DO EACH QUESTION."?835:850U" OR EXAMPLE:"{" 9 / 10 AS A DECIMAL IS .9"" AND"" .67 AS A COMMON FRACTION IS 67 / 100"" LL FRACTIONS MUST BE IN THEIR LOWEST"!" 2. STUDENT INSTRUCTIONS"BE" 3. TEACHER INSTRUCTIONS"^O" 4. QUIT"T" --------------------------------------"Y" PRESS A NUMBER KEY (1-4) ";^UL1:US$"1234":35: INPUT ROUTINE`US$""c"  ."  #0" A2" i4"C O M M O D O R E6"EDUCATIONAL8"SOFTWARE: ** COMMODORE LOGO **;(UD$,24);" 7 ** TEACHER INSTRUCTIONS **>"":UT,UL%:(50003)053281,2:53280,10dUH1:UP0:UG$"EACHER NST":850" O THE BEST OF OUR KNOWLEDGE,"" THIS PROGRAM IS IN THE PUBLIC"" DOMAIN. F THIS IS NOT THE CAS" GN ROUTINE **TUPUP1W""(UT$UP$,21);(UP$UG$(UP),18)F\" --------------------------------------"U`UH0870a(UD$,24);(UP$,7);"HELP - PRESS H "fUH0:"":k ** PLEASE WAIT REMARK **p(UD$,24);" " OGRAM AME: ... EC/RAC!" RITTEN Y : IN ANGI" PGRADED Y : ARLENE UMASt" HIS PROGRAM WILL RUN ON ANY" 64 " 64  835:UH1:850" ... D"UC204:UU2048 (50003)0UT53272:UU%21:UL%23:UP%2139:UM1024:UO198A UD$""s UP$" " UT$" ... /à": PLACE PROGRAM TITLE HERE !!!!!!!!!!!!!!!!!***   "UH1:850" TIME LIMIT IS SET BY THE STUDENT"= " AT THE START OF THE PROGRAM."k$" HE STUDENT'S GOAL IS TO GET AS MANY"&" CORRECT ANSWERS AS POSSIBLE SO THAT "(" SHE/HE CAN OUT SCORE THE COMPUTER."D835NUZ1UP"!"":(50003)0962" ** BASIC 2.0 OR 4.0 OR C-64 SETUP **Q"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)160955"1093"BM 4032' PROGRAM"UU71 )  ** T I T L E P A G E **]""";:UT,UU%:(50003)053280,14:53281,6s$I138:"";:&I122:"";:(I137:"";:*I122:"";:,"" :2127,141:2128,21:2129,3$UU48: DISABLE STOP KEY$800: TITLE"$300: MENUS$"THE PGM WILL NOT WORK ON THIS MACHINE!":$UZ1UP%:UP%:UZ0: ** PROGRAM STARTS HERE **$"";::(50003)053281,6:53280,14$UG$"":UT,UL#%$$ NOVEMBER 12, 1980$ BEAT THE CLOCK% PROGRAM WRITTEN FOR THE 'C64'B% DERIVED FROM A CAN PROGRAM ATO% OISEm%  -PROGRAM BY HIN JANG-s% %" 'M CALLED THE '64'."%" HAT IS YOUR FIRST NAME? ";%(US""PRESS SPACE BAR OR WAIT":I0 <A$:A$" "II1:I250828D>T1$"":T2$"":T3$"":T4$"":I0M@300iC ** SPACE BAR PRESS **HUO,0:(UD$,24);"PRESS SPACE BAR TO CONTINUE"LUI$:UI$" "844NR ** PAGE DESI"E"" PLEASE CONTACT:"." OMMODORE USINESS ACHINES"Q" 3370 HARMACY VE.u" GINCOURT, NTARIO"" ANADA 1 24"" (416) 499-4292"UH1:UP1: 835: 850:" R" ONE MOMENT PLEASE... "u ** SET UP VARIABLES **]UX$"H":UQ%(1000):UB32768:U1196:U2197:U3198:U4216:UC167:UU1024UT59468:UU%12:UL%14:UP%1146:UM32768:UO158: 50003,0(50003)0UB1024:U1209:U2210:U3211:U4214:"ECIMAL / FRACTION IS A PROGRAM"." DESIGNED TO GIVE THE STUDENT PRACTICE"W" IN CONVERTING FROM FRACTIONS TO"" DECIMALS AND VICE VERSA. HE STUDENT"" IS ALSO DRILLED IN REDUCING FRACTIONS"" TO THEIR LOWEST TERMS."835:"** SET VARIABLES ** 900! ** CHECK FOR 8032 **#!"":"": SHIFTED SPACE:!(UB40)96700S! ** MEMORY CHECK **g! (0)2000937!"THIS MACHINE DOES NOT HAVE ENOUGH"!"MEMORY TO RUN THIS PROGRAM !"!UU71!"%:217WX ** PROGRAM MODIFICATION INST **Y"":UT,UL%D]UH1:UP0:UG$"ROGRAM OD":850M835aUZ1UP%:217g ** TO USE 8032 LOAD CBM4032 **"BEFORE RUNNING THIS PROGRAM ON AN 8032 " LOAD THE 'C",88:1094,228:1097,85:1102,228:965#(50003)19903#1093,49:1094,230:1097,46:1102,230:965m#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# ",ZC,1);"";:ZC3ZC:ZTTI15-*TI(AAM):" OT FAST ENOUGH!":2250-42070 ->Z(Z$(LL))J-CZ$(LL)"H"TE$TI$:FL1:PO(0):195x-EZ$(LL)"H"(UD$,9);PO);:TI$TE$:2070-HZ20Z$(LL);:BB(LL2):U$(U$,BB):LLBB:2060-R# $"":UL10:35:NAME$UR$%2NAME$"""";:1320 &<NAME$(NAME$,10)&FA0Z$(100)J&s" OW "NAME$", HOW MANY SECONDS DO"w&x" YOU REQUIRE TO ANSWER A QUESTION? ";&US$"0123456789H":UL2: 35:M$UR$&(M$)0M$(13)"":1390# CT! OUR POINT":YPYP1:2260/" HE ANSWER IS:";T;"/";BT:" Y POINT":MPMP1!/N$"":U$""1/A202320?/HH1100M/Z$(HH)""U/HH\/ A}/ 835:UG$"UMMARY":UP0:850/ " *** INAL CORE ***"/# '^1780'hBT8:1600'rBT5'|T((1)491) (CT5:C1(T5)(CC11660%(1780I(BT10:T((1)991):T7:1740j(BT100:T((1)991):1740(BT1000:T((1)9991)(T91720(C1T2:C2(T2)(C1C21580"0 " EACH QUESTION. F YOU TAKE LONGER THAN"1 " THAT, IT'S A POINT FOR ME."31 " EMEMBER TO REDUCE FRACTIONS TO THEIR"J1 " LOWEST TERMS."T1 1510A}/ 835:UG$"UMMARY":UP0:850/ " *** INAL CORE ***"/#15):TI(AAM):" OT FAST ENOUGH!":2000)D1830*NZ(Z$)-*SZ$"H"TE$TI$:FL1:PO(0):195W*UZ$"H"(UD$,9);PO);:TI$TE$:1830*XZ20Z$;:BB(CT2):U$(U$,BB):CTBB:1820*bZ13" ":1910*g((Z$)127)32Z$(34# OUR POINT":YPYP1:2010 ," HE ANSWER IS:";ANS:" Y POINT":MPMP1,Z$"":U$""*,A2023201,A`," ";ANS;"AS A COMMON FRACTION = ";z,ZTTI:ZC2:LL0:AATI, LLLL1,Z$(LL):Z$(LL)""2110, ZTTI(" #Z13" ":2150-W((Z$(LL))127)32Z$(LL)(34)2070 .\U$U$Z$(LL):Z$(LL);:20600.f(U$)T" RONG!":2250<.pV210Q.zZ$(V)"/"2190X.Vi.VV(V1)10~.Z$(VV)""2230.N$N$Z$(VV).VV.(N$)BT" ORRE#&M(M$)60&2440&&A120'835:UPA1:UG$"UESTION #":8502'(UD$,24);24);" "D'"B((1)71)q', B 1590,1620,1640,1650,1700,1710,1720z'6BT2'@X((1)101):T2X1'J1780'TX((1)71):BT4:T2X1# " "MP"POINT";:MP1"S";/$ " FOR THE COMPUTER."0. " "YP"POINT";:YP1"S";&08 " FOR "NAME$"."/0B 83550` >0 850x0 (M$)1" OU HAVE ONLY 1 SECOND TO ANSWER":24600 " OU'LL HAVE ONLY "(M$,4)" SECONDS TO ANSWER#(C1T5:C2(T5)(C1C21580)ANS((((TBT).000111)1000)1000):D((1)21)')D12040S)" ";T;"/";BT;"AS A DECIMAL = ";m)ZTTI:ZC2:CT0:AATIy)CTCT1)&Z$:Z$""1870)0ZTTI(" ",ZC,1);"";:ZC3ZC:ZTTI#)1830*lU$U$Z$:Z$;:1820*vZX(U$)*DDZXANS:SSDD +DD01990&+DD(((DD.0001)1000))F+DD0" RONG!":2000i+SS0WW((SS)ZX)ANS:1980+SS0WW(ZXSS)ANS+WW0" RONG":2030+" ORRECT!