' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]L L}BBL]浍국絍뵍䵺L 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"_]` L/  !"#$%&'()*+,-./0123456789:;<=>?  1#"""  (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0EB H  @H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`HIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   vLDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^L iõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( }  Ϡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈m浍浭m䵍䵐`"L ŵ8ŵH ~(` d ֠z# u`B6u +-- GET STRING SUBROUTINE --+ M6wTE$""m6yT0$:(TE$)0T0$"0"37056{T0$(13)(TE$)037156}T0$(8)(TE$)0ĺ(8);" ";(8);:TE$(TE$,1,(TE$)1):37056(T0$)48(T0$)5737056(TE$)33705WANTS TO CANCEL=5S81(F1$)(F2$)(F2$)A(P5)3640H5X14W5A(X)NUı^5$Xd5.s58S70XP55BS71XP65L5V PRESS RETURN TO CONT 5`24:8:"PRESS RETURN TO CONTINUE.";:16368,05jA$:A$(13)36906t(16):14 "EVENLY INTO ";A(P1);" AND ";A(P2);" IS 1."=4 C2C21M4 3520:1540S4 x4 SUBR - HIT RETURN TO CONTINUE4 21:84 "PRESS RETURN TO CONTINUE."4 (16384)14135504 16368,04 5 SUBR TO FIND WHICH NUMBER STUDENT TO SEE IF GCF OF NUMBERS PICKED=1-3H X14c3R PA(X,1)P1PA(X,2)P2PA(X,1)P2PA(X,2)P13430j3\ X~3f G(X)1S40:3p S41:1540:15203z N$;", ";A(P1);" AND ";A(P2);" WILL NOT CANCEL."3 3 "THE LARGEST NUMBER THAT WILL DIVIDE"4 S102 X14"2 G(X)1S11)2 X/2 Q2 DETERMINE IF 2 #'S ARE SAMEj2 S80:X13:YX142 A(X)A(Y)S81:P5X:P6Y2 Y,X:2 SUBR TO FIND GCF2 XQ212 F1X(F1X)F2X(F2X)GCFX:2 X2* GCF124 "3> SUBRA(1):F2A(4):3330 1& G(2)GCF?10 A(2)A(4)G(3)A(2):3160g1: Q(A(2)A(4))A(2)(A(4)A(2))A(4)1D F1A(2):F2A(4):33301N G(3)GCF1X A(2)A(3)G(4)A(2):32001b Q(A(2)A(3))A(2)(A(3)A(2))A(3)1l F1A(2):F2A(3):33301v G(4)GCF2ND GCF A(1) AND A(3), A(1) AND A(4), A(2) AND A(3), A(2) AND A(4)c0 A(1)A(3)G(1)A(1):30800 Q(A(1)A(3))A(1)(A(3)A(1))A(3)0 F1A(1):F2A(3):33300 G(1)GCF0 A(1)A(4)G(2)A(1):31200 Q(A(1)A(4))A(1)(A(4)A(1))A(4)1 F1":E1E1C1+/r E$"ERRORS":C21E$"ERROR"d/| :"YOU MADE ";C2;1);E$;" - COMPUTATION.":E2E2C2n/ 4410/ RETURN FOR NEXT PROBLEM/ C10:C20:T10/ 3670/ :PNNP640/ 1310/ SUBR TO CHECK FOR CANCELLATION/ 3250D0 FI1:T1T11:1.6 T11ĺ"TRY AGAIN.":3680:2720c.@ T12ĺA(3);" x ";A(4);" = ";A(3)A(4);".".J 11:32:" ":3680:2720.T 1540:14:1:N$;", ";"THAT IS CORRECT.".^ E$"ERRORS":C11E$"ERROR" /h :"YOU MADE ";C1;1);E$;" - PROCEDURE.(P2$)1P2$" "P2$'- LS(10)29,1608- 11:31:P2$g- (P2$)A(3)A(4)(P1$)(P2$)Ĺ34,0:890- (P2$)A(3)A(4)Ĺ34,0:2900- 11:31:"";:P2$:""- (11):(28):" "-" 1540:15:1 ., "SORRY ";N$;", THAT IS NOT CORRECT.":C2C2(2);" = ";A(1)A(2);"."9, 9:31:" ":3680:2540\, VTAB 11: HTAB 31: PRINT " "e, T10v, 1540:15:1, "ENTER PRODUCT OF DENOMINATORS: ";, H829:A(3)A(4)10H830, 3703:P2$TE$: +-- GET STRING & P2$=RETURNED STRING --+- A(1)A(2)10A(3)A(4)10Z$" -":10:(31):Z$?+< 9:31:P1$g+F (P1$)A(1)A(2)Ģ9:31:P1$:2700w+P 9:29:9)+Z 1540:15+d "SORRY ";N$;", THAT IS NOT CORRECT.":C2C21:T1T11:+n T11ĺ"TRY AGAIN.":3680:2540,x T12ĺA(1);" x ";A 9: HTAB 31: PRINT "";:PRINT "1#0";: PRINT ""@* 1540:15:1K* 34,15r* "ENTER PRODUCT OF NUMERATORS: ";* H829:A(1)A(2)10H830* 3703:P1$TE$: +-- GET STRING ~&P1$=RETURNED STRING --+* (P1$)1P1$" "P1$*( LS(8)29,160/+2 540<) S2 SWITCH STOPS MULT UNTIL ALL CANCELING IS DONE \) G(1)G(2)G(3)G(4)42530g) 15:1) S21:"IT IS BETTER TO CANCEL OR REDUCE FIRST.") ) "THIS MAKES THE NUMBERS SMALLER AND "::"EASIER TO MULTIPLY.") C1C11:/* VTAB";G(CP);" = ";:A(P1)G(CP);:" AND ";`(B A(P2);" 1@0 ";G(CP);" = ";:"";:A(P2)G(CP);:"."|(L 3520:1540:1670:1960(V A(P1)R1:A$(P1)(A(P1))(` A(P2)R2:A$(P2)(A(P2))(j 3010(t 1670:1540::790(~ ( MULTIPLY THE FRACTIONS) 1: +-- GET STRING & F2$=RETURNED STRING --+9'F2(F2$)V'CPX:PATH TO BE REDUCEDx' R1A(P1)G(CP):R2A(P2)G(CP)' F1R1F2R22390' 1540:1520'$ C2C21'. G(CP);" IS THE LARGEST FACTOR OF ";A(P1);" AND ";A(P2);".":&(8 A(P1);" 1@0 " &3390&S4022101&1540:1670:1960h&1540:1520:"ENTER REPLACEMENT FOR ";A(P1);": ";&28:3703:F1$TE$: +-- GET STRING & F1$=RETURNED STRING --+&F1(F1$)&&:"ENTER REPLACEMENT FOR ";A(P2);": ";+'28:3703:F2$TE$P1P2İ1540:1:15:E$(2):3520:1540:C1C11:2080N%HP1P23P1P272130X%O2170%R1670:1540:1:15:"YOU MAY ONLY CANCEL DIAGONALLY"%\:"OR REDUCE UP AND DOWN.":C1C11%f3520:1540:1670:2010&zCO(X,1)1:CO(X,2)1:" ";:A$(X):"$S70:NU(F1$):3580N$ X5İ1540:1:15:E$(2):C1C11:3520:1540:2010|$CO(X,1)1:CO(X,2)1:" ";A$(X);"":P1X$ 21:5:"SECOND NUMBER: ";$%3703:F2$TE$: +-- GET STRING & F2$=RETURNED STRING --+$4S71:NU(F2$):3580:P2X4%CX5#(IN$)2800<#1540:15:1:E$(1):C1C11:3520:1540L#1790:1970W#15:1k# CANCELLATION #"TYPE IN NUMBERS TO BE CANCELLED OR"::"REDUCED.":#5:"FIRST NUMBER: ";#3703:F1$TE$: +-- GET STRING & F1$=RETURNED STRING --+ANCEL OR REDUCE""N196"X5);"2) MULTIPLY":3260R"b22:1:"SELECTION: ";h"lIN$:IN$""1900r"v34,0"IN$"S"ġ:1310"IN$"1"IN$"2"1890"WT150:WT:16368,0"" PRINT CANCEL INSTRUCTIONS"S102010%!10:23:Z$;2);"=";3);"1--0"A!11:15:" ";A$(3);" "]!11:22:" ";A$(4);" "c!x!PRINT MAIN MENU!6:1:LI$!13:LI$!15!&34,15!0"1 CHOOSE ONE 0:":15:25:"(OR  S TO STOP)"!:17!? MENU"D5);"1) C |4:23(A(4)10):A(4)@ SUBR TO PRINT WORK AREA PROBLEMI 840X 8:1:J2$s 9:15:" ";A$(1);" " 9:22:" ";A$(2);" " Z$"1--0":A(1)10A(3)10Z$" 1-0" 10:16:Z$;2);"X"!Z$"1--0":A(2)10A(4)10Z$" 1-0";:',SUBR TO PRINT ORIGINAL PROBLEMB62:16(A(1)10):A(1)]@2:23(A(2)10):A(2)JZ$"1--0":A(1)10A(3)10Z$" 1-0"T3:16:Z$;2);"X"^Z$"1--0":A(2)10A(4)10Z$" 1-0"h3:23:Z$;2);"=" r4:16(A(3)10):A(3)"SORRY, ";N$;","::NN;" 1@ 0";1;" = ";NN:C2C21:3520D1440JnSUBR TO MOVE CURSOR TO LINE 14{15:1:SUBR TO BLANK MESSAGE PART OF SCREEN15:1:BL$;BL$:BLANK SCREEN FROM LINE 16 TO BOTTOM"17:1:BL$;(BL$,120)0:E20:C10:C20:T10540010:34:"="M10:36:"";:" ";:""]1540:1520"ENTER WHOLE NUMBER VALUE: ";3703:WN$TE$: +-- GET STRING & WN$=RETURNED STRING --+(WN$)NN148010:36:WN$:29001540:1520:A$:A$(13)1357|P(16):8:8:"1. TRY MORE PROBLEMS":10:8:"2. EXIT PROGRAM":14:12:"SELECTION: ";:16368,0UA$:A$"1"A$"2"1365ZA$;:A$"2"ĺ(16):10:4:"I HOPE YOU ENJOYED THIS PROGRAM!":16368,0:0::xNP0:PN0:E1D THIS PROGRAM."::)-IN$"S"NPNP1t2"HERE IS A TOTAL ERROR ANALYSIS AFTER"::NP" PROBLEM";:NP1ĺ"S";3":":<"ERRORS IN PROCEDURE: "E1:F"ERRORS IN COMPUTATION: ";E2:K21:8:"PRESS RETURN TO CONTINUE.";:16368,0MURNED STRING --+%(W3$)LD1280?(W3$)1W3$" "W3$P11:38:W3$Z2900j1540:1520 "SORRY, ";N$;","::"THE DENOMINATOR DOES NOT CHANGE.":C1C113520:1210(16):2:"THANK YOU, ";N$;".":("I HOPE YOU ENJOYE(W2$)1W2$" "W2$-9:38:W2$:1210=1540:1520"SORRY, ";N$;"."::NN;" - ";I1;" X ";LD;" = ";:"";:NNI1LD:"":C2C213520:11201540:1520"ENTER CORRECT DENOMINATOR: ";3703:W3$TE$: +-- GET STRING & W3$=RETC21 8RB"QUOTIENT OF ";:"";:I1;:"";:NNLDĺ" PLUS A FRACTION.":1110[L"."vV3520:1540:1520:890`1540:1520j"ENTER NEW NUMERATOR: ";o3703:W2$TE$: +-- GET STRING & W2$=RETURNED STRING --+~(W2$)NNI1LD1180XED";:" FRACTION."<"ENTER WHOLE NUMBER PART: ";y3703:W1$TE$: +-- GET STRING & W1$=RETURNED STRING --+1540:1520:(W1$)I1105010:36:W1$;1120"SORRY, ";N$;"."$.NN;" DIVIDED BY ";LD;" WILL GIVE A ":C210:(31):Z$1zCHANGE TO MIXED FRACTIONINN(P1$):LD(P2$)XLD11420i10:34:"="}10:36:" ";9:39:" ";:10:38:"1--0"11:39:" "I1(NNLD)1540:1520:"CHANGE FRACTION TO A ";:"";:"MI16701790:MAIN MENU# 15409*(IN$)1960,2440T4S21İ3520:1540:790^>2440HSUBR TO MAKE LEN OF ALL FRACTIONS EQUALRX14:A$(X)(A(X)):B(X)A(X)\(A$(X))1A$(X)" "A$(X)fX: pA(1)A(2)10A(3)A(4)10Z$" -":)A(X):X840:3010DA(1)G(1)A(4)A(1)G(1)A(4)G(3)645pA(2)G(3)A(3)A(2)G(3)A(3)G(1)645G(1)G(2)G(3)G(4)4760R((1)32):A(4)A(1)R:840:3010A(1)A(3)1A(2)A(4)1645(16)"";J1$;"" 1580:540NPNP1:4520n GEN 4 NUMBERS X14:A(X)0:XX14A((1)122)Y14:AA(Y)ĂY:A(X)A:690660XA(1)A(2)A(3)A(4)645 X14:B(X G$(16):3:3720P(16):9:"HOW MANY PROBLEMS WOULD YOU LIKE? ";b&3703:PN$TE${DPN(PN$):PN10640N(16):11:10:"ARE YOU SURE YOU WANT"::10:PN$" PROBLEMS (Y/N)?";XDC$:bDC$"Y"DC$"N"590lDC$"Y"640v"":410O(16):7:"HI, ";N$;"."::"THIS PROGRAM WILL GIVE YOU PRACTICE"{:"IN MULTIPLYING FRACTIONS AND IN ":"CANCELLING. ":::"DO YOU WANT INSTRUCTIONS (Y OR N)?";G$:G$"N"G$"Y"480G$"N"ĺG$:540G$"Y"480(79)16:XX(XX):N1$(13)4300N1$""410nN1$(8)(N$)1ĺ(8);" ";(8);:N$(N$,1,(N$)1):412N1$(8)(N$)1ĺ(8);" ";(8);:N$"":410N1$"A"N1$"Z"412(N$)10412N$N$N1$:N1$;:412N$(19)N$:(N$)1N$--0"&rR14:C12:CO(R,C):C:RB| 8,15,8,22,10,15,10,22cR14:C12:PA(R,C):C:Rx1,3,1,4,4,2,3,210"PLEASE TYPE YOUR FIRST NAME (UP TO TEN ":"LETTERS) AND PRESS RETURN."::"NAME: ";(19); N1$:XX(78) PROBLEM."I@D$(DO$,24):R$" "JJ1$" 1ORIGINAL0 "(10)(8)(8)(8)(8)(8)(8)(8)(8)" 1PROBLEM0 "TJ2$"1 WORK AREA0 "^BL$R$R$R$R$hLI$"1--------------------------------------10:8:" WITH CANCELLATION ", J 12:16:"BY DON ROSS"t 15:10:"MICROCOMPUTER WORKSHOPS" 18:14:"COPYRIGHT 1984" X12500:X "(16); ,E$(1)" T HERE IS NOTHING TO CANCEL." 6E$(2)"THAT NUMBER IS NOT IN THE1488,1616,1744,1872,2000# 34,24< X140:"1#0";:X\ X223:X:40:"1#0";:X X4011:23:X:"1#0";:X: X2321:X:1:"1#0";:X 34,0 X322:LS(X)3,32:LS(X)37,32:X 8:8:" MULTIPLYING FRACTIONS "& M."/ zCM$(12)"THESE PROBLEMS ARE NOT EASY!"M }X112:CM$(X)MM$CM$(X) :DO$" ":RI$" " LS(23):X023:LS(X):: 1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,1104,1232,1360,YOUR PROCEDURE BUT WORK ON THOSE COMPUTATIONAL ERRORS." nCM$(10)"DON'T GET DISCOURAGED. "(13)(13)"YOU'LL DO BETTER ON THE NEXT ONE." xCM$(11)"IT MAY HELP TO REVIEW "(13)(13)"THE SAMPLE PROBLE AGAIN!": .CM$(6)"KEEP TRYING! YOU'RE GETTING THERE!"f 0CM$(7)"KEEP WORKING! YOU'LL GET IT!" <CM$(8)"YOU ARE FINE IN YOUR COMPUTATION BUT TRY TO WORK ON YOUR PROCEDURE SOME MORE."c ACM$(9)"YOU KNOW J<MM$(19)) CM$(13):34,0:(16)ICM$(1)" V ERY IMPRESSIVE!"CM$(2)" I SEE YOU'VE BEEN DOING YOUR HOMEWORK!"(CM$(3)" T OO BAD YOUR TEACHER CAN'T SEE THIS!"*CM$(4)"VERY CLOSE! ALMOST PERFECT!" ,CM$(5)"NEARLY PERFECT! TRY                  K$ LS(10)29,160:11:31:P2$:(P2$)A(3)A(4)(P1$)(P2$)Ĺ34,0:900m$ (P2$)A(3)A(4)Ĺ34,0:2900% 11:31:""P2$:"":(11):(28):" ":1550:15:1:"SORRY "N$", THAT IS NOT":17:"CORRECT.":C2C21:T1T11::T11Ģ17:10:"TRY AGAI:T1T11::T11Ģ17:10:"TRY AGAIN.":3680:2540_#x T12ĺA(1)" x "A(2)" = "A(1)A(2)".# 9:31:" ":3680:2540# T10# 1550:15:1:"ENTER PRODUCT OF DENOMINATORS: ";:H829:A(3)A(4)10H830$ 3703:P2$TE$:(P2$)1P2$" "P2$A(1)A(2)10H830;" 3703:P1$TE$:(P1$)1P1$" "P1$~"( LS(8)29,160:A(1)A(2)10A(3)A(4)10Z$" -":10:(31):Z$"< 9:31:P1$:(P1$)A(1)A(2)Ģ9:31:P1$:27103#P 9:29:9):1550:15:"SORRY "N$", THAT IS NOT":17:"CORRECT.":C2C21:1680:1550::790! 1550:G(1)G(2)G(3)G(4)42540:15:1:S21:"IT IS BETTER TO CANCEL OR REDUCE FIRST."::"THIS MAKES THE NUMBERS SMALLER AND "::"EASIER TO MULTIPLY.":C1C11:" 1550:15:1:34,15:"ENTER PRODUCT OF NUMERATORS: ";:H829:2R22390:1550:1530:C2C21 . G(CP)" IS THE LARGEST FACTOR OF "A(P1)" AND "A(P2)"."::A(P1)" 1@0 "G(CP)" = "A(P1)G(CP)" AND "A(P2)" 1@0 "G(CP)" = "A(P2)G(CP)".":3530:1550:1680:1970!V A(P1)R1:A$(P1)(A(P1)):A(P2)R2:A$(P2)(A(P2)):30201:CO(X,2)1:" "A$(X):"":3400:S402210:1550:1680:1970 1550:1530:"ENTER REPLACEMENT FOR "A(P1)": ";:28:3703:F1$TE$:F1(F1$):::"ENTER REPLACEMENT FOR "A(P2)": ";:28:3703:F2$TE$:F2(F2$):CPX:R1A(P1)G(CP):R2A(P2)G(CP):F1R1F3:F2$TE$:S71:NU(F2$):3590:P2X:X5P1P2İ1550:1:15:E$(2):3530:1550:C1C11:2080|HP1P23P1P272130:2170R1680:1550:1:15:"YOU MAY ONLY CANCEL DIAGONALLY"::"OR REDUCE UP AND DOWN.":C1C11:3530:1550:1680:2010>zCO(X,1)15:1:"TYPE IN NUMBERS TO BE CANCELLED OR"::"REDUCED."::5:"FIRST NUMBER: ";:3703:F1$TE$:S70:NU(F1$):3590:X5İ1550:1:15:E$(2):C1C11:3530:1550:2010CO(X,1)1:CO(X,2)1:" "A$(X)"":P1X\ 21:5:"SECOND NUMBER: ";:370 CANCEL OR REDUCE":19:5)"2) MULTIPLY":3260Lb22:1:"SELECTION: ";ylIN$:IN$""1900:34,0:IN$"S"ġ:1310IN$"1"IN$"2"1890:WT150:WT:16368,0:S102010:(IN$)2800:1550:15:1:E$(1):C1C11:3530:1550:1800:1970A(3)10Z$" 1-0P10:16:Z$2)"X":Z$"1--0":A(2)10A(4)10Z$" 1-010:23:Z$2)"="3)"1--0":11:15:" "A$(3)" ":11:22:" "A$(4)" ":06:1:LI$:13:LI$:15:34,15:"1 CHOOSE ONE 0:":15:25:"(OR  S TO STOP)":17:5)"1)A(2):Z$"1--0":A(1)10A(3)10Z$" 1-0iT3:16:Z$2)"X":Z$"1--0":A(2)10A(4)10Z$" 1-0h3:23:Z$2)"=":4:16(A(3)10):A(3):4:23(A(4)10):A(4)850:8:1:J2$:9:15:" "A$(1)" ":9:22:" "A$(2)" ":Z$"1--0":A(1)10HOLE NUMBER VALUE: ";:3703:WN$TE$:(WN$)NN1480:10:36:WN$:29001550:1530:"SORRY, "N$","::NN" 1@ 0"1" = "NN:C2C21:3530:144015:1:15:1:BL$BL$:"17:1:BL$(BL$,120);:,62:16(A(1)10):A(1):2:23(A(2)10):M":14:12:"SELECTION: ";:16368,0UA$:A$"1"A$"2"1365:A$;:A$"2"ĺ(16):10:4:"I HOPE YOU ENJOYED THIS PROGRAM!":16368,0:0::xRT%0:NP0:PN0:E10:E20:C10:C20:T10:54010:34:"=":10:36:" G1550:1530:"ENTER WIS AFTER"::NP" PROBLEM";:NP1ĺ"S";3":"::"ERRORS IN PROCEDURE: "E1::"ERRORS IN COMPUTATION: "E2::60054:21:8:"PRESS RETURN TO CONTINUE.";:16368,0%MA$:A$(13)1357:(16):8:8:"1. TRY MORE PROBLEMS":10:8:"2. EXIT PROGRA1014,D:1015,C: B::10:15:"Loading":(4)"RUNMENU"B(C256) AB2048$ I1NCSM ,(4)"BLOAD "CS$(I)",A"A((I1)768)X 6TYPE1v @(CS$(I),3)".70"TYPE3 J(CS$(I),3)".56"TYPE2 T(A10)I,TYPE ^I hA10,NCS rA11,32 |973,76:974,D:975,C (1014)88(1015)255W3$" "W3$"11:38:W3$:2900}1550:1530:"SORRY, "N$","::"THE DENOMINATOR DOES NOT CHANGE.":C1C11:3530:1210(16):2:"THANK YOU, "N$"."::"I HOPE YOU ENJOYED THIS PROGRAM.":::IN$"S"NPNP1'2"HERE IS A TOTAL ERROR ANALYS:W2$TE$:(W2$)NNI1LD1180:(W2$)1W2$" "W2$K9:38:W2$:12101550:1530:"SORRY, "N$"."::NN" - "I1" X "LD" = "NNI1LD:"":C2C21:3530:1120 1550:1530:"ENTER CORRECT DENOMINATOR: ";:3703:W3$TE$:(W3$)LD1280:(W3$)1İ1550:1530:(W1$)I11050:10:36:W1$;:1120"SORRY, "N$"."::NN" DIVIDED BY "LD" WILL GIVE A ":C2C21::"QUOTIENT OF "I1"";:NNLDĺ" PLUS A FRACTION.":1110L".V3530:1550:1530:9005`1550:1530:"ENTER NEW NUMERATOR: ";:3703(4)10Z$" -":10:(31):Z$NN(P1$):LD(P2$):LD11420:10:34:"=":10:36:" ";:9:39:" ":10:38:"1--0":11:39:" ":I1(NNLD):1550:1530:"CHANGE FRACTION TO A MIXED FRACTION."::"ENTER WHOLE NUMBER PART: ";:3703:W1$TE$032):A(4)A(1)R:850:3020XA(1)A(3)1A(2)A(4)1645:(16):""J1$"":1590:1680b1800 1550:(IN$)1970,2450:S21İ3530:1550:790>2450RX14:A$(X)(A(X)):B(X)A(X):(A$(X))1A$(X)" "A$(X)fX:pA(1)A(2)10A(3)AA(X)0:X:X14BA((1)122):Y14:AA(Y)ĂY:A(X)A:690K660X:A(1)A(2)A(3)A(4)645:X14:B(X)A(X):X:850:3020:A(1)G(1)A(4)A(1)G(1)A(4)G(3)645:A(2)G(3)A(3)A(2)G(3)A(3)G(1)645:G(1)G(2)G(3)G(4)4760:R((1):(16):3:3725i(16):9:"HOW MANY PROBLEMS WOULD YOU LIKE? ";:3703:PN$TE$:PN(PN$):PN10640N(16):11:10:"ARE YOU SURE YOU WANT"::10:PN$" PROBLEMS (Y/N)?";:DC$:DC$"Y"DC$"N"590:DC$"Y"640:540NPNP1:4530X14::60000:N$(19)F$:(16):7:"HI, "N$"."::"THIS PROGRAM WILL GIVE YOU PRACTICE"::"IN MULTIPLYING FRACTIONS AND IN ":"CANCELLING. ":::"DO YOU WANT INSTRUCTIONS (Y OR N)?";G$:G$"N"G$"Y"480:G$"N"ĺG$:540G$"Y"480:G$(8)(8)(8)(8)(8)(8)(8)" 1PROBLEM0 ":J2$"1 WORK AREA0 ":BL$R$R$R$R$:LI$"1----------------------------------------0":R14:C12:CO(R,C):C:R: 8,15,8,22,10,15,10,22}R14:C12:PA(R,C):C:R:1,3,1,4,4,2,3,2:RT%0:(16)::"MICROCOMPUTER WORKSHOPS":18:14:"COPYRIGHT 1984":X12500:X:(16);:E$(1)" T HERE IS NOTHING TO CANCEL.":E$(2)"THAT NUMBER IS NOT IN THE PROBLEM.":D$(DO$,24):R$" JJ1$" 1ORIGINAL0 "(10)(8)1#0";:X:X223:X:40:"1#0";:X X4011:23:X:"1#0";:X:X2321:X:1:"1#0";:X:34,0:X322:LS(X)3,32:LS(X)37,32:X:8:8:" MULTIPLYING FRACTIONS ":10:8:" WITH CANCELLATION ":12:16:"BY DON ROSS 15:10ARE NOT EASY!":X112:CM$(X)MM$CM$(X)::DO$" ":RI$" & LS(23):X023:LS(X):: 1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,1104,1232,1360,1488,1616,1744,1872,2000:34,24:X140:"ON THOSE COMPUTATIONAL ERRORS.":CM$(10)"DON'T GET DISCOURAGED. "(13)(13)"YOU'LL DO BETTER ON THE NEXT ONE.W xCM$(11)"IT MAY HELP TO REVIEW "(13)(13)"THE SAMPLE PROBLEM.":CM$(12)"THESE PROBLEMS )"KEEP TRYING! YOU'RE GETTING THERE!":CM$(7)"KEEP WORKING! YOU'LL GET IT! <CM$(8)"YOU ARE FINE IN YOUR COMPUTATION BUT TRY TO WORK ON YOUR PROCEDURE SOME MORE. ACM$(9)"YOU KNOW YOUR PROCEDURE BUT WORK 9MM$(19):N$(35),CM$(13):34,0:(16):CM$(1)" V ERY IMPRESSIVE!":CM$(2)" I SEE YOU'VE BEEN DOING YOUR HOMEWORK!":CM$(3)" T OO BAD YOUR TEACHER CAN'T SEE THIS!":CM$(4)"VERY CLOSE! ALMOST PERFECT!O ,CM$(5)"NEARLY PERFECT! TRY AGAIN!":CM$(6                    29,160<^2 A(1)A(2)10A(3)A(4)10Z$" -":10:(31):Z$L^< 9:31:P1$t^F (P1$)A(1)A(2)Ģ9:31:P1$:2700^P 9:29:9)^Z 1540:15^d "SORRY ";N$;", THAT IS NOT":17:"CORRECT.":C2C21:T1T11:_n T11Ģ17:10:"TRY AGAIN.":3680:2E FIRST."] T] "THIS MAKES THE NUMBERS SMALLER AND "::"EASIER TO MULTIPLY."b] C1C11:h] y] 1540:15:1] 34,15] "ENTER PRODUCT OF NUMERATORS: ";] H829:A(1)A(2)10H830] 3703:P1$TE$] (P1$)1P1$" "P1$^( LS(8)"";:A(P2)G(CP);:"."2\L 3520:1540:1670:1960O\V A(P1)R1:A$(P1)(A(P1))l\` A(P2)R2:A$(P2)(A(P2))v\j 3010\t 1670:1540::790\~ \ \ 1540\ \ G(1)G(2)G(3)G(4)42530\ 15:1 ] S21:"IT IS BETTER TO CANCEL OR REDUC2$) [CPX.[ R1A(P1)G(CP):R2A(P2)G(CP)D[ F1R1F2R22390T[ 1540:1520`[$ C2C21[. G(CP);" IS THE LARGEST FACTOR OF ";A(P1);" AND ";A(P2);".":[8 A(P1);" 1@0 ";G(CP);" = ";:A(P1)G(CP);:" AND ";\B A(P2);" 1@0 ";G(CP);" = ";:,1)1:CO(X,2)1:" ";:A$(X):"",Z3390;ZS402210QZ1540:1670:1960Z1540:1520:"ENTER REPLACEMENT FOR ";A(P1);": ";Z28:3703:F1$TE$ZF1(F1$)ZZ:"ENTER REPLACEMENT FOR ";A(P2);": ";Z28:3703:F2$TE$[F2(F1:NU(F2$):3580:P2XTYCX5P1P2İ1540:1:15:E$(2):3520:1540:C1C11:2080nYHP1P23P1P272130xYO2170YR1670:1540:1:15:"YOU MAY ONLY CANCEL DIAGONALLY"Y\:"OR REDUCE UP AND DOWN.":C1C11Yf3520:1540:1670:2010"ZzCO(XANCELLED OR"::"REDUCED.":7X5:"FIRST NUMBER: ";IX3703:F1$TE$bXS70:NU(F1$):3580X X5İ1540:1:15:E$(2):C1C11:3520:1540:2010XCO(X,1)1:CO(X,2)1:" ";A$(X);"":P1XX 21:5:"SECOND NUMBER: ";X%3703:F2$TE$Y4S7IN$:IN$""1900Wv34,0/WIN$"S"ġ:1310KWIN$"1"IN$"2"1890fWWT150:WT:16368,0lWrWWS102010W(IN$)2800W1540:15:1:E$(1):C1C11:3520:1540W1790:1970W15:1WX"TYPE IN NUMBERS TO BE C11:22:" ";A$(4);" "V$V3V6:1:LI$@V13:LI$HV15SV&34,15V0"1 CHOOSE ONE 0:":15:25:"(OR  S TO STOP)"V:17V? VD5);"1) CANCEL OR REDUCE"VN19VX5);"2) MULTIPLY":3260Vb22:1:"SELECTION: ";Wl840U8:1:J2$.U9:15:" ";A$(1);" "IU9:22:" ";A$(2);" "vUZ$"1--0":A(1)10A(3)10Z$" 1-0"U10:16:Z$;2);"X"UZ$"1--0":A(2)10A(4)10Z$" 1-0"U10:23:Z$;2);"=";3);"1--0"U11:15:" ";A$(3);" "VT62:16(A(1)10):A(1)7T@2:23(A(2)10):A(2)dTJZ$"1--0":A(1)10A(3)10Z$" 1-0"{TT3:16:Z$;2);"X"T^Z$"1--0":A(2)10A(4)10Z$" 1-0"Th3:23:Z$;2);"="Tr4:16(A(3)10):A(3)T|4:23(A(4)10):A(4)TU VALUE: ";S3703:WN$TE$1S(WN$)NN1480HS10:36:WN$:2900XS1540:1520S"SORRY, ";N$;","::NN;" 1@ 0";1;" = ";NN:C2C21:3520S1440SSS15:1:SS15:1:BL$;BL$:SS"17:1:BL$;(BL$,120);:T,RUA$:A$"1"A$"2"1365rRZA$;:A$"2"ĺ(16):10:4:"I HOPE YOU ENJOYED THIS PROGRAM!":16368,0:0::RxRT%0:NP0:PN0:E10:E20:C10:C20:T10R540R10:34:"="R10:36:"";:" ";:""R1540:1520 S"ENTER WHOLE NUMBER"ERRORS IN PROCEDURE: "E1:BQF"ERRORS IN COMPUTATION: ";E2:QK60054:21:8:"PRESS RETURN TO CONTINUE.";:16368,0QMA$:A$(13)1357QP(16):8:8:"1. TRY MORE PROBLEMS":10:8:"2. EXIT PROGRAM":14:12:"SELECTION: ";:16368,0č󍲍썰";:NNLDĺ" PLUS A FRACTION.":1110.NL"."INV3520:1540:1520:890YN`1540:1520xNj"ENTER NEW NUMERATOR: ";No3703:W2$TE$N~(W2$)NNI1LD1180N(W2$)1W2$" "W2$N9:38:W2$:1210N1540:15206O"SORRY, ";N$;"."::D";:" FRACTION."M:M"ENTER WHOLE NUMBER PART: ";LM3703:W1$TE$mM1540:1520:(W1$)I11050M10:36:W1$;M1120M"SORRY, ";N$;"."M$M.NN;" DIVIDED BY ";LD;" WILL GIVE A ":C2C21M8%NB"QUOTIENT OF ";:"";:I1;:"(2)10A(3)A(4)10Z$" -":10:(31):Z$/LzGLNN(P1$):LD(P2$)VLLD11420gL10:34:"="{L10:36:" ";L9:39:" ";:L10:38:"1--0"L11:39:" "LI1(NNLD)M1540:1520:"CHANGE FRACTION TO A ";:"";:"MIXE40:3010)KA(1)A(3)1A(2)A(4)16454K(16)CK"";J1$;""SK 1580:1670]K1790gK 1540}K*(IN$)1960,2440K4S21İ3520:1540:790K>2440KHKRX14:A$(X)(A(X)):B(X)A(X)K\(A$(X))1A$(X)" "A$(X)KfX:)LpA(1)AA(Y)ĂY:A(X)A:690J660#JX@JA(1)A(2)A(3)A(4)645XJX14:B(X)A(X):XgJ840:3010JA(1)G(1)A(4)A(1)G(1)A(4)G(3)645JA(2)G(3)A(3)A(2)G(3)A(3)G(1)645JG(1)G(2)G(3)G(4)4760KR((1)32):A(4)A(1)R:8E$IDPN(PN$):PN10640fIN(16):11:10:"ARE YOU SURE YOU WANT"::10:PN$" PROBLEMS (Y/N)?";pIXDC$:IbDC$"Y"DC$"N"590IlDC$"Y"640Iv540INPNP1:4520IIX14:A(X)0:XIX14IA((1)122)JY14:APLYING FRACTIONS AND IN ":[H"CANCELLING. ":::"DO YOU WANT INSTRUCTIONS (Y OR N)?";xHG$:G$"N"G$"Y"480HG$"N"ĺG$:540HG$"Y"480H G$H(16):3:3720H(16):9:"HOW MANY PROBLEMS WOULD YOU LIKE? ";I&3703:PN$T-----------0"/GrR14:C12:CO(R,C):C:RKG| 8,15,8,22,10,15,10,22lGR14:C12:PA(R,C):C:RG1,3,1,4,4,2,3,2GRT%0:(16)::60000:N$(19)F$G(16):7:"HI, ";N$;"."::"THIS PROGRAM WILL GIVE YOU PRACTICE"H:"IN MULTIOT IN THE PROBLEM."RF@D$(DO$,24):R$" "FJJ1$" 1ORIGINAL0 "(10)(8)(8)(8)(8)(8)(8)(8)(8)" 1PROBLEM0 "FTJ2$"1 WORK AREA0 "F^BL$R$R$R$R$GhLI$"1-----------------------------NS ".E10:8:" WITH CANCELLATION "5E SE12:16:"BY DON ROSS"}E15:10:"MICROCOMPUTER WORKSHOPS"E18:14:"COPYRIGHT 1984"EX12500:XE"(16);E,E$(1)" T HERE IS NOTHING TO CANCEL."F6E$(2)"THAT NUMBER IS N32,1360,1488,1616,1744,1872,2000+D34,24DDX140:"1#0";:XdDX223:X:40:"1#0";:XDX4011:23:X:"1#0";:X:DX2321:X:1:"1#0";:XD34,0DX322:LS(X)3,32:LS(X)37,32:XE8:8:" MULTIPLYING FRACTIOE PROBLEM."7CzCM$(12)"THESE PROBLEMS ARE NOT EASY!"UC}X112:CM$(X)MM$CM$(X)C:DO$" ":RI$" " DLS(23):X023:LS(X):: 1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,1104,12OU KNOW YOUR PROCEDURE BUT WORK ON THOSE COMPUTATIONAL ERRORS."BnCM$(10)"DON'T GET DISCOURAGED. "(13)(13)"YOU'LL DO BETTER ON THE NEXT ONE." CxCM$(11)"IT MAY HELP TO REVIEW "(13)(13)"THE SAMPLCT! TRY AGAIN!"BA.CM$(6)"KEEP TRYING! YOU'RE GETTING THERE!"nA0CM$(7)"KEEP WORKING! YOU'LL GET IT!"A<CM$(8)"YOU ARE FINE IN YOUR COMPUTATION BUT TRY TO WORK ON YOUR PROCEDURE SOME MORE."kBACM$(9)"Yč󍲍썱 ";:NNLDĺ" PLUS A FRACTION.":1110.NL"."INV3520:1540:1520:890YN`1540:1520xNj"ENTER NEW NUMERATOR: ";No3703:W2$TE$N~(W2$)NNI1LD1180N(W2$)1W2$" "W2$N9:38:W2$:1210N1540:15206O"SORRY, ";N$;"."::D";:" FRACTION."M:M"ENTER WHOLE NUMBER PART: ";LM3703:W1$TE$mM1540:1520:(W1$)I11050M10:36:W1$;M1120M"SORRY, ";N$;"."M$M.NN;" DIVIDED BY ";LD;" WILL GIVE A ":C2C21M8%NB"QUOTIENT OF ";:"";:I1;:"(2)10A(3)A(4)10Z$" -":10:(31):Z$/LzGLNN(P1$):LD(P2$)VLLD11420gL10:34:"="{L10:36:" ";L9:39:" ";:L10:38:"1--0"L11:39:" "LI1(NNLD)M1540:1520:"CHANGE FRACTION TO A ";:"";:"MIXE40:3010)KA(1)A(3)1A(2)A(4)16454K(16)CK"";J1$;""SK 1580:1670]K1790gK 1540}K*(IN$)1960,2440K4S21İ3520:1540:790K>2440KHKRX14:A$(X)(A(X)):B(X)A(X)K\(A$(X))1A$(X)" "A$(X)KfX:)LpA(1)AA(Y)ĂY:A(X)A:690J660#JX@JA(1)A(2)A(3)A(4)645XJX14:B(X)A(X):XgJ840:3010JA(1)G(1)A(4)A(1)G(1)A(4)G(3)645JA(2)G(3)A(3)A(2)G(3)A(3)G(1)645JG(1)G(2)G(3)G(4)4760KR((1)32):A(4)A(1)R:8E$IDPN(PN$):PN10640fIN(16):11:10:"ARE YOU SURE YOU WANT"::10:PN$" PROBLEMS (Y/N)?";pIXDC$:IbDC$"Y"DC$"N"590IlDC$"Y"640Iv540INPNP1:4520IIX14:A(X)0:XIX14IA((1)122)JY14:Ač󍲍썰 4:E$E$RT$::%AQ0RT$"0000":?A((Q))4RT$(Q):vART$"":Z14((Q)):RT$RT$"0"::RT$RT$(Q):AQ0RT$"000":A((Q))3RT$(Q):ART$"":Z13((Q)):RT$RT$"0"::RT$RT$(Q):P13:T49:E%(T)((E$,P,3)):PP3::t@RT$"":T1(F$):M$(F$,T,1):RT$RT$((M$)32(M$"a"))::F$RT$:AE%(1)E%(1)1:E%(2)E%(2)RT%:E%(3)E%(3)NP:E%(4)E%(4)E1:E%(5)E%(5)E2:E$"":T13:QE%(T):60070:E$E$RT$::T49:QE%(T):60077 INSTRUCTIONS 7(25)(16)75:"ALL PROBLEMS ARE CREATED RAN"0"37056{T0$(13)(TE$)037156}T0$(8)(TE$)0ĺ(8);" ";(8);:TE$(TE$,1,(TE$)1):37056(T0$)48(T0$)5737056(TE$)337057T0$;:TE$TE$T0$:3705!7c7 +-- END OF GET STRING --+ zs58S70XP55BS71XP65L5V PRESS RETURN TO CONT 5`24:8:"PRESS RETURN TO CONTINUE.";:16368,05jA$:A$(13)36906t(16):B6u +-- GET STRING SUBROUTINE --+ M6wTE$""m6yT0$:(TE$)0T0$ETURN TO CONTINUE4 21:84 "PRESS RETURN TO CONTINUE."4 (16384)14135504 16368,04 5 SUBR TO FIND WHICH NUMBER STUDENT WANTS TO CANCEL=5S81(F1$)(F2$)(F2$)A(P5)3640H5X14W5A(X)NUı^5$Xd5.3\ X~3f G(X)1S40:3p S41:1540:15203z N$;", ";A(P1);" AND ";A(P2);" WILL NOT CANCEL."3 3 "THE LARGEST NUMBER THAT WILL DIVIDE"4 14 "EVENLY INTO ";A(P1);" AND ";A(P2);" IS 1."=4 C2C21M4 3520:1540S4 x4 SUBR - HIT RX142 A(X)A(Y)S81:P5X:P6Y2 Y,X:2 SUBR TO FIND GCF2 XQ212 F1X(F1X)F2X(F2X)GCFX:2 X2* GCF124 "3> SUBR TO SEE IF GCF OF NUMBERS PICKED=1-3H X14c3R PA(X,1)P1PA(X,2)P2PA(X,1)P2PA(X,2)P13430j4)1D F1A(2):F2A(4):33301N G(3)GCF1X A(2)A(3)G(4)A(2):32001b Q(A(2)A(3))A(2)(A(3)A(2))A(3)1l F1A(2):F2A(3):33301v G(4)GCF2 S102 X14"2 G(X)1S11)2 X/2 Q2 DETERMINE IF 2 #'S ARE SAMEj2 S80:X13:Y0 Q(A(1)A(3))A(1)(A(3)A(1))A(3)0 F1A(1):F2A(3):33300 G(1)GCF0 A(1)A(4)G(2)A(1):31200 Q(A(1)A(4))A(1)(A(4)A(1))A(4)1 F1A(1):F2A(4):3330 1& G(2)GCF?10 A(2)A(4)G(3)A(2):3160g1: Q(A(2)A(4))A(2)(A(4)A(2))A(n/ 4410/ RETURN FOR NEXT PROBLEM/ C10:C20:T10/ 3670/ :PNNP640/ 1310/ SUBR TO CHECK FOR CANCELLATION/ 3250D0 FIND GCF A(1) AND A(3), A(1) AND A(4), A(2) AND A(3), A(2) AND A(4)c0 A(1)A(3)G(1)A(1):3080.J 11:32:" ":3680:2720.T 1540:14:1:N$;", ";"THAT IS CORRECT.".^ E$"ERRORS":C11E$"ERROR" /h :"YOU MADE ";C1;1);E$;" - PROCEDURE.":E1E1C1+/r E$"ERRORS":C21E$"ERROR"d/| :"YOU MADE ";C2;1);E$;" - COMPUTATION.":E2E2C290- (P2$)A(3)A(4)Ĺ34,0:2900- 11:31:"";:P2$:""- (11):(28):" "-" 1540:15:1 ., "SORRY ";N$;", THAT IS NOT CORRECT.":C2C21:T1T11:1.6 T11ĺ"TRY AGAIN.":3680:2720c.@ T12ĺA(3);" x ";A(4);" = ";A(3)A(4);"."v, 1540:15:1, "ENTER PRODUCT OF DENOMINATORS: ";, H829:A(3)A(4)10H830, 3703:P2$TE$: +-- GET STRING & P2$=RETURNED STRING --+- (P2$)1P2$" "P2$'- LS(10)29,1608- 11:31:P2$g- (P2$)A(3)A(4)(P1$)(P2$)Ĺ34,0:8T$RT$"0"::RT$RT$(Q):0GQ0RT$"000":JG((Q))3RT$(Q):GRT$"":Z13((Q)):RT$RT$"0"::RT$RT$(Q):T12ĺA(1);" x ";A(2);" = ";A(1)A(2);"."9, 9:31:" ":3680:2540\, VTAB 11: HTAB 31: PRINT " "e, T10E%(3)NP:"# OF PROBLEMS9FE%(4)E%(4)E1:"PROCEDEURAL\FE%(5)E%(5)E2:"COMPUTATIONALFE$"":T13:QE%(T):60070:E$E$RT$:FT49:QE%(T):60074:E$E$RT$:FFQ0RT$"0000":F((Q))4RT$(Q):GRT$"":Z14((Q)):RS."FF",R"R:E$:D$"CLOSE"lEP1:T13:E%(T)((E$,P,4)):PP4::P13:T49:E%(T)((E$,P,3)):PP3::ERT$"":T1(F$):M$(F$,T,1):RT$RT$((M$)32(M$"a"))::F$RT$:EE%(1)E%(1)1:"X'S USEDEE%(2)E%(2)RT%:"# CORRECTFE%(3) NMS."FF",R0":NS:Q0NS1:D$"READNMS."FF",R"(Q1)21:N$(Q)::D$"CLOSE"RDDD$"OPENNMS."FF",L32":D$"WRITENMS."FF",R"R:E$:D$"CLOSE":DNM$L$" "F$:DFF999NP060046:::60061:R(SN1)2:60048ED$"OPENNMS."FF",L32":D$"READNM"a"));:600200C(RT$)1ĺ(8)" "(8);:60018]CRT$(RT$,(RT$)1):(8)" "(8);:60020gCIDıCID1:D$(4):D$"OPENID":D$"READID":PW$,DT$,PG$,NE:T1NE:EN$(T)::NF:T16:NF$(T):CD$"CLOSE":LD(13)D$"OPENNMS."FF",L32":D$"READ(RT$)0P$(8)60020:P$(13)(RT$)CR0:LBz(RT$)ML(P$)3260020rB{IP60029,60030,60031,60033,60032B}P$"A"P$"Z"60020:60033BP$"N"P$"Y"60020:60033B(P$"A"P$"Z")(P$"a"P$"z")60020 CRT$RT$P$:((P$)32(P$);:RT$"":16368,0FAtP$:(P$)060020:P$((P$)119(P$(127)))hAuP$((P$)32(P$"a"IP4))Av(RT$)0IP5P$((P$)32(P$"a"))Aw(RT$)0IP5P$((P$)32(P$"A"P$"Z"))Ax(RT$)0P$(13)CRı.By(RT$)P$(8)60034:NF$:60056:60059@o(16):4:" YOUR NAME WAS NOT FOUND IN THE LIST. MAYBE YOU MISSPELLED IT. PRESS RETURN TO TRY AGAIN. PRESS G TO GO AHEAD ANYWAY.";:16368,0@pP$:P$(13)60003:P$"g"P$"G"60016:FF999:F$NF$::60059Ar(19FF1FFQ160008g?i(16):" I AM SEARCHING MY FILES FOR YOUR NAME. PLEASE WAIT....."?jQ0:T16:NF$(T)"@"Ă?kQQ1:QFFFFT:T6::60013?l?m60044:Q0NS1:N$(Q)NM$N$(Q)""::60015@nSNQ:QNS1::R(SN1)2:F$:L$RT$:60052L>e(16):FF1:NF160009:3:Q1:T116:NF$(T1)"@"60007>fQ". ";:F$NF$(T1):60059:(11)RT$(12)::QQ1>g:" TYPE THE NUMBER OF THE CLASS YOU ARE IN, THEN THE RETURN KEY. CLASS (1-"Q1"): ";:16368,0?hP$:FF(P$): ":9:"FIRST NAME: ";:=`ID0:60037:NF0FF999::6:"TYPE YOUR FIRST NAME (UP TO 15 LETTERS) AND PRESS THE RETURN KEY. NAME: ";:IP0:ML15:60018:F$RT$:=c13000:CR0:IP5:ML15:60018:F$RT$:NF$F$>d" LAST NAME: ";:600181;:1200028A(16):16:"THE REPLACEMENT FOR THE 4 WILL BE 2ISH FIRST TO CANCEL THE 2. ":"TYPE 2 AND PRESS RETURN.";:16368,0a6)A$:A$"2"3881p6*2;:120006-9:24:" 2"62(16):16:"AND THE SECOND NUMBER TO CANCEL WILL BE ":"THE 4. TYPE 4 AND PRESS RETURN.";:16368,0 73A$:A$SHOULD CANCEL BEFORE WE MULTIPLY.":3680R5(16);(1)1;" CHOOSE ONE ";(1)0;":"517:5:" 1) CANCEL OR REDUCE":19:5:"2) MULTIPLY"522:"BECAUSE WE ARE CANCELLING, PRESS 1.";:16368,05#A$:A$"1"3875K6((16):16:"SUPPOSE WE W_______________________________"48:(1)1" WORK AREA ";(1)0:9:18:"3 2":18:"1- 0X 1- 0= 1--":18:"04 5"4 13:"_______________________________________"(534,14:(16):17:"BECAUSE 2 AND 4 ARE BOTH DIVISIBLE BY 2,":"WE E TO STEP THROUGH A SAMPLE ":"PROBLEM (Y/N)?";:16368,0R3A$:A$"N"ĺA$:540d3A$"Y"3795l3A$w3(16)3(1)1" ORIGINAL ";(1)0;:18:"3 2"3(1)1" PROBLEM ";(1)0;:18:"1- 0X 1- 0="318:"4 5" 46:"________SIS OF YOUR ERRORS."210:"YOU WILL THEN BE GIVEN THE OPTION OF ":"TRYING ANOTHER PROBLEM OR ENDING THE"::"PROGRAM."217:"IF YOU DECIDE TO END THE PROGRAM, YOU ":"WILL BE GIVEN A TOTAL ERROR ANALYSIS."236809310:"WOULD YOU LIKIT RIGHT."1368018:"IF YOU CAN CANCEL BEFORE YOU MULTIPLY,"::"YOU SHOULD DO SO. IN FACT, I WILL INSIST":"THAT YOU DO SO, FOR THE MULTIPLICATION ":"IS THEN EASIER.":368025:"AFTER SOLVING THE PROBLEM, YOU WILL BE ":"GIVEN AN ANALY"ALL PROBLEMS ARE CREATED RANDOMLY SO"::"THAT A DIFFERENT PROBLEM WILL APPEAR"::"EACH TIME." 114:"IF YOU MAKE AN ERROR, I WILL TELL YOU"::"THE ERROR AND GIVE YOU AN EXPLANATION. ":"YOU WILL THEN HAVE AS MANY CHANCES AS IT":"TAKES TO GET (16):/wTE$""4/yT0$:(TE$)0T0$"0"3705Q/{T0$(13)(TE$)03715/}T0$(8)(TE$)0ĺ(8);" ";(8);:TE$(TE$,1,(TE$)1):3705/(T0$)48(T0$)573705/(TE$)33705/T0$;:TE$TE$T0$:3705//(25)(16)b05:O CONTINUE."%. (16384)14135503. 16368,09. c.S81(F1$)(F2$)(F2$)A(P5)3640n.X14}.A(X)NUı.$X...8S70XP5.BS71XP6.L.`24:8:"PRESS RETURN TO CONTINUE.";:16368,0.jA$:A$(13)3690 /t1S40:-p S41:1550:1530J-z N$;", ";A(P1);" AND ";A(P2);" WILL NOT"P- }- "CANCEL. THE LARGEST NUMBER THAT WILL"- - "DIVIDE EVENLY INTO ";A(P1);" AND ";A(P2);" IS 1."- C2C21- 3530:1550- - 21:8 . "PRESS RETURN T, G(X)1S11, X, 7, S80:X13:YX14U, A(X)A(Y)S81:P5X:P6Y`, Y,X:n, XQ21, F1X(F1X)F2X(F2X)GCFX:, X,* GCF1,4 ,H X14,R PA(X,1)P1PA(X,2)P2PA(X,1)P2PA(X,2)P13430,\ X-f G(X)40+& G(2)GCF.+0 A(2)A(4)G(3)A(2):3160V+: Q(A(2)A(4))A(2)(A(4)A(2))A(4)p+D F1A(2):F2A(4):3340}+N G(3)GCF+X A(2)A(3)G(4)A(2):3200+b Q(A(2)A(3))A(2)(A(3)A(2))A(3)+l F1A(2):F2A(3):3340+v G(4)GCF+ S10+ X1410 * 3680* :PNNP640)* 13103* 3260R* A(1)A(3)G(1)A(1):3080z* Q(A(1)A(3))A(1)(A(3)A(1))A(3)* F1A(1):F2A(3):3340* G(1)GCF* A(1)A(4)G(2)A(1):3120* Q(A(1)A(4))A(1)(A(4)A(1))A(4)+ F1A(1):F2A(4):334:1:N$;", ";"THAT IS CORRECT."A)^ E$"ERRORS":C11E$"ERROR"x)h :"YOU MADE ";C1;1);E$;" - PROCEDURE.":E1E1C1)r E$"ERRORS":C21E$"ERROR")| :"YOU MADE ";C2;1);E$;" - COMPUTATION.":E2E2C2) 4410* RT%RT%(C10C20):C10:C20:T""( (11):(28):" "/(" 1550:15:1s(, "SORRY ";N$;", THAT IS NOT":17:"CORRECT.":C2C21:T1T11:(6 T11Ģ17:10:"TRY AGAIN.":3680:2720(@ T12ĺA(3);" x ";A(4);" = ";A(3)A(4);"."(J 11:32:" ":3680:2720 )T 1550:1T$"":T1(F$):M$(F$,T,1):RT$RT$((M$)32(M$"a"))::F$RT$:2cOcE%(1)E%(1)1:"X'S USEDocE%(2)E%(2)RT%:"# CORRECTcE%(3)E%(3)PN:"# OF PROBLEMScE%(4)E%(4)E(1):"PROCEDEURALcE%(5)E%(5)E(2):E%(6)E%(6)E($:D$"CLOSE":abNM$L$" "F$:bCbFF99960045:::60060:R(SN1)2:60047IbbD$"OPENNMS."FF",L32":D$"READNMS."FF",R"R:E$:D$"CLOSE"bP1:T13:E%(T)((E$,P,4)):PP4::P13:T49:E%(T)((E$,P,3)):PP3::b,cRT$,PG$,NE:T1NE:EN$(T)::NF:T16:NF$(T):'aD$"CLOSE":-aa(13)D$"OPENNMS."FF",L32":D$"READ NMS."FF",R0":NS:Q0NS1:D$"READNMS."FF",R"(Q1)21:N$(Q)::D$"CLOSE"aaaaD$"OPENNMS."FF",L32":D$"WRITENMS."FF",R"R:EN"P$"Y"60020:60033(`(P$"A"P$"Z")(P$"a"P$"z")60020V`RT$RT$P$:((P$)32(P$"a"));:60020y`(RT$)1ĺ(8)" "(8);:60018`RT$(RT$,(RT$)1):(8)" "(8);:60020``IDıaID1:D$(4):D$"OPENID":D$"READID":PW$,DT$)0IP5P$((P$)32(P$"A"P$"Z"))-_x(RT$)0P$(13)CRıw_y(RT$)P$(8)60034:(RT$)0P$(8)60020:P$(13)(RT$)CR0:_z(RT$)ML(P$)3260020_{IP60029,60030,60031,60033,60032_}P$"A"P$"Z"60020:60033_P$"D ANYWAY.";:16368,0A^pP$:P$(13)60003:P$"g"P$"G"60016:FF999:F$NF$::60058G^q\^rRT$"":16368,0^tP$:(P$)060020:P$((P$)119(P$(127)))^uP$((P$)32(P$"a"IP4))^v(RT$)0IP5P$((P$)32(P$"a"))_w(RQQ1:QFFFFT:T6::60013 ]l4]m60043:Q0NS1:N$(Q)NM$Ă:60015f]nSNQ:QNS1::R(SN1)2:F$NF$:60055:60058]o:4:" YOUR NAME WAS NOT FOUND IN THE LIST. MAYBE YOU MISSPELLED IT. PRESS [RETURN] TO TRY AGAIN. PRESS [G] TO GO AHEAQ1R\g:" TYPE THE NUMBER OF THE CLASS YOU ARE IN, THEN THE [RETURN] KEY. CLASS (1-"Q1"): ";:16368,0v\hP$:FF(P$):FF1FFQ160008\i:" I AM SEARCHING MY FILES FOR YOUR NAME. PLEASE WAIT....."\jQ0:T16:NF$(T)"@"Ă]k LAST NAME AND PRESS THE RETURN KEY AFTER EACH. ":7:"FIRST NAME: ";:CR0:IP5:ML15:60017:F$RT$:NF$F$[d" LAST NAME: ";:60017:L$RT$:60051[e:FF1:NF160009:3:Q1:T116:NF$(T1)"@"60007[fQ". ";:F$NF$(T1):60058:RT$::Q=0 THEN NOT FOUND IF FF=999 THEN GO AHEAD GOSUB 60053 @ ERROR TIME ZbID0:60036:NF0FF999::6:"TYPE YOUR FIRST NAME (UP TO TEN LETTERS) AND PRESS THE ";::"RETURN";::" KEY. NAME: ";:IP0:ML10:60017:F$RT$:R[c:3:" TYPE YOUR FIRST ANDLY DONE, "N$"!":6000:34,0::;815:4:"1) CHANGE TO LEAST COMMON DENOMINATOR":4:"2) ADD"::4:"3) REDUCE":@8 E816368,0$J8A$:A$(13)14410*O8Y`*Za" GOSUB HERE @ START OF PROGRAM ON EXIT: FF=THE NUMBER OF THE CLASS IF FF13((Q)):RT$RT$"0"::RT$RT$(Q):"84:29:1$'834,14:(16):16:"THE DENOMINATOR DOES NOT CHANGE. TYPE 6 ":"AND PRESS RETURN.";:16368,0;,8A$:A$"6"14380J186;:14405686:29:6:34,14:(16):19:(26(N$))2:"NICE":T13:QE%(T):60069:E$E$RT$:IT49:QE%(T):60073:E$E$RT$:OUkQ0RT$"0000":((Q))4RT$(Q):RT$"":Z14((Q)):RT$RT$"0"::RT$RT$(Q):Q0RT$"000":((Q))3RT$(Q):(RT$"":Z(F$,T,1):RT$RT$((M$)32(M$"a"))::F$RT$:8UE%(1)E%(1)1:"X'S USEDuE%(2)E%(2)RT%:"# CORRECTE%(3)E%(3)PN:"# OF PROBLEMSE%(4)E%(4)E(1):"PROCEDEURALE%(5)E%(5)E(2):E%(6)E%(6)E(3):"COMPUTATIONAL & LCD#E$"NM$L$" "F$:IFF99960045:::60060:R(SN1)2:60047OD$"OPENNMS."FF",L32":D$"READNMS."FF",R"R:E$:D$"CLOSE"P1:T13:E%(T)((E$,P,4)):PP4::P13:T49:E%(T)((E$,P,3)):PP3::2RT$"":T1(F$):M$N$(T)::NF:T16:NF$(T):-D$"CLOSE":3(13)D$"OPENNMS."FF",L32":D$"READ NMS."FF",R0":NS:Q0NS1:D$"READNMS."FF",R"(Q1)21:N$(Q)::D$"CLOSE"D$"OPENNMS."FF",L32":D$"WRITENMS."FF",R"R:E$:D$"CLOSE":033.(P$"A"P$"Z")(P$"a"P$"z")60020\RT$RT$P$:((P$)32(P$"a"));:60020(RT$)1ĺ(8)" "(8);:60018RT$(RT$,(RT$)1):(8)" "(8);:60020IDıID1:D$(4):D$"OPENID":D$"READID":PW$,DT$,PG$,NE:T1NE:E)32(P$"A"P$"Z"))3 x(RT$)0P$(13)CRı} y(RT$)P$(8)60034:(RT$)0P$(8)60020:P$(13)(RT$)CR0: z(RT$)ML(P$)3260020 {IP60029,60030,60031,60033,60032 }P$"A"P$"Z"60020:60033P$"N"P$"Y"60020:60$:P$(13)60003:P$"g"P$"G"60016:FF999:F$NF$::60058E qb r(19);:RT$"":16368,0 tP$:(P$)060020:P$((P$)119(P$(127))) uP$((P$)32(P$"a"IP4)) v(RT$)0IP5P$((P$)32(P$"a")) w(RT$)0IP5P$((P$ m60043:Q0NS1:N$(Q)NM$Ă:60015Z nSNQ:QNS1::R(SN1)2:F$NF$:60055:60058 o(16):4:" YOUR NAME WAS NOT FOUND IN THE LIST. MAYBE YOU MISSPELLED IT. PRESS RETURN TO TRY AGAIN. PRESS G TO GO AHEAD ANYWAY.";:16368,0? pPARE IN, THEN THE RETURN KEY. CLASS (1-"Q1"): ";:16368,0c hP$:FF(P$):FF1FFQ160008 i(16):" I AM SEARCHING MY FILES FOR YOUR NAME. PLEASE WAIT....." jQ0:T16:NF$(T)"@"Ă kQQ1:QFFFFT:T6::60013 l(NAME: ";:CR0:IP5:ML15:60017:F$RT$:NF$F$` d" LAST NAME: ";:60017:L$RT$:60051 e(16):FF1:NF160009:3:Q1:T116:NF$(T1)"@"60007 fQ". ";:F$NF$(T1):60058:(11)RT$(12)::QQ1? g:" TYPE THE NUMBER OF THE CLASS YOU `bID0:60036:NF0FF999::6:"TYPE YOUR FIRST NAME (UP TO TEN LETTERS) AND PRESS THE RETURN KEY. NAME: ";:IP0:ML10:60017:F$RT$:- c(16):3:" TYPE YOUR FIRST AND LAST NAME AND PRESS THE RETURN KEY AFTER EACH. ":7:"FIRST          (4);"BLOADHRCG".(4);"MAXFILES 1"86142C103,1O104,64\16384,011:6:"LOADING MULTIPLYING FRACTIONS"(4);"RUN MF"썰􍰰񍰰򍰰󍰰񍰰򍰰󍰰􍰰퍰鍰ꍰ데印捰獰荰፰⍰㍰占򍠠占占占占􍠠占占򍠠占썠占卍ፍ鍠፠ፍ卍    򍠠占䍍䍠ڠ፠鍠鍠占㍠㍠򍠠㍠䍠򍠠占򍠠鍠󍠠鍠鍠占鍠鍠鍠占占    􍍰􍠠􍠠􍠠􍠠􍠠􍠠z#?    Ӯ ǠӠ ήȠƮՠMŠҠƠ;  ͮ9 ՠ ! Ӯ !Ӯ "Ӯ  Ӯ Ӯ  ɮ ɮŠ ؠŠ ɮʠĠ ͠ ϠϠ ҠƮĠ> Ǡ Ҡ Ϯà"2"3935Ad(16):16:"NOW WE CAN MULTIPLY THE NUMERATORS."::"BECAUSE 3 X 1 = 3, TYPE 3 AND PRESS"::" RETURN.";:16368,0AeA$:A$"3"3941Af3;:12000Ai9:30:3?Bn(16):16:"NOW WE CAN MULTIPLY THE DENOMINATORS."::"BECAU8:"2"P@K(16):17:"WE ARE NOW READY TO MULTIPLY THE"::"FRACTIONS.":3670z@P(16);(1)1;" CHOOSE ONE ";(1)0;":"@U17:5:"1) CANCEL OR REDUCE":19:5:" 2) MULTIPLY"@Z22:"BECAUSE WE ARE MULTIPLYING, PRESS 2.";:16368,0 A_A$:A$LL BE 1. TYPE 1 AND PRESS RETURN.";:16368,0K?=A$:A$"1"3901Z?>1;:12000?A(16):16:"THE REPLACEMENT FOR THE 4 WILL BE 2.":18:"TYPE 2 AND PRESS RETURN.";:16368,0?BA$:A$"2"3906?C2;:12000@F9:24:"1":11:100>-9:24:" 2">2(16):16:"AND THE SECOND NUMBER TO CANCEL WILL BE ":"THE 4. TYPE 4 AND PRESS RETURN.";:16368,0>3A$:A$"4"3891>44;:12000>711:18:" 4"5?<(16):16:"BECAUSE 2 1@ 02 = 1, THE REPLACEMENT":18:"WIR REDUCE":19:5:"2) MULTIPLY"]=22:"BECAUSE WE ARE CANCELLING, PRESS 1.";:16368,0s=#A$:A$"1"3875=((16):16:"SUPPOSE WE WISH FIRST TO CANCEL THE 2. ":"TYPE 2 AND PRESS RETURN.";:16368,0=)A$:A$"2"3881>*2;:1201--":18:"04 5"I< 13:"_______________________________________"<34,14:(16):17:"BECAUSE 2 AND 4 ARE BOTH DIVISIBLE BY 2,":"WE SHOULD CANCEL BEFORE WE MULTIPLY.":3670<(16);(1)1;" CHOOSE ONE ";(1)0;":" =17:5:" 1) CANCEL O;(16)6;(1)1" ORIGINAL ";(1)0;:18:"3 2"m;(1)1" PROBLEM ";(1)0;:18:"1- 0X 1- 0=";18:"4 5";6:"_______________________________________"<8:(1)1" WORK AREA ";(1)0:9:18:"3 2":18:"1- 0X 1- 0= HE"::"PROGRAM."o:17:"IF YOU DECIDE TO END THE PROGRAM, YOU ":"WILL BE GIVEN A TOTAL ERROR ANALYSIS."y:3670:10:"WOULD YOU LIKE TO STEP THROUGH A SAMPLE ":"PROBLEM (Y/N)?";:16368,0:A$:A$"N"ĺA$:540:A$"Y"3795:A$ INSIST":"THAT YOU DO SO, FOR THE MULTIPLICATION ":"IS THEN EASIER.":367095:"AFTER SOLVING THE PROBLEM, YOU WILL BE ":"GIVEN AN ANALYSIS OF YOUR ERRORS.":10:"YOU WILL THEN BE GIVEN THE OPTION OF ":"TRYING ANOTHER PROBLEM OR ENDING T (0 Zнй`)JJ & & f)` IF YOU MAKE AN ERROR, I WILL TELL YOU"::"THE ERROR AND GIVE YOU AN EXPLANATION. ":"YOU WILL THEN HAVE AS MANY CHANCES AS IT":"TAKES TO GET IT RIGHT."83670M98:"IF YOU CAN CANCEL BEFORE YOU MULTIPLY,"::"YOU SHOULD DO SO. IN FACT, I WILL7T0$;:TE$TE$T0$:3705!7c7 +-- END OF GET STRING --+ z7 INSTRUCTIONS 7(25)(16)75:"ALL PROBLEMS ARE CREATED RANDOMLY SO"::"THAT A DIFFERENT PROBLEM WILL APPEAR"::"EACH TIME."814:"APZ11000:Z:(13);(4);"RUN COVER"..")#@230,32:62450:230,64:62450+@ :F@(4);"BLOAD UNPACKER"_@LOC24831:UNPACK768@#0,LOC((LOC256)256):1,(LOC256)@$230,64@((4);"BLOAD LOGO.PAC,A"LOC@2UNPACK@<4:0,110,1@F16304,0:16297,0:16302,0:16299,0' ANCELLING, PRESS 1.";:16368,01#A$:A$"1"3875:(16):16:"SUPPOSE WE WISH FIRST TO CANCEL THE 2. ":"TYPE 2 AND PRESS RETURN.";:16368,092)A$:A$"2"3881:2;:12000:9:24:" 2":(16):16:"AND THE SECOND NUMBER TO CANCEL WILL __________________________034,14:(16):17:"BECAUSE 2 AND 4 ARE BOTH DIVISIBLE BY 2,":"WE SHOULD CANCEL BEFORE WE MULTIPLY.":3680:(16)(1)1" CHOOSE ONE "(1)0":":17:5:" 1) CANCEL OR REDUCE":19:5:"2) MULTIPLY!122:"BECAUSE WE ARE CINAL "(1)0;:18:"3 2":(1)1" PROBLEM "(1)0;:18:"1- 0X 1- 0=":18:"4 5":6:"_______________________________________08:(1)1" WORK AREA "(1)0:9:18:"3 2":18:"1- 0X 1- 0= 1--":18:"04 5":13:"_____________:"PROGRAM..17:"IF YOU DECIDE TO END THE PROGRAM, YOU ":"WILL BE GIVEN A TOTAL ERROR ANALYSIS.":3680:10:"WOULD YOU LIKE TO STEP THROUGH A SAMPLE ":"PROBLEM (Y/N)?";:16368,0.A$:A$"N"ĺA$:540/A$"Y"3795:A$:(16):(1)1" ORIGINSIST":"THAT YOU DO SO, FOR THE MULTIPLICATION ":"IS THEN EASIER.":3680 .5:"AFTER SOLVING THE PROBLEM, YOU WILL BE ":"GIVEN AN ANALYSIS OF YOUR ERRORS.":10:"YOU WILL THEN BE GIVEN THE OPTION OF ":"TRYING ANOTHER PROBLEM OR ENDING THE":"IF YOU MAKE AN ERROR, I WILL TELL YOU"::"THE ERROR AND GIVE YOU AN EXPLANATION. ":"YOU WILL THEN HAVE AS MANY CHANCES AS IT":"TAKES TO GET IT RIGHT.":3680L-8:"IF YOU CAN CANCEL BEFORE YOU MULTIPLY,"::"YOU SHOULD DO SO. IN FACT, I WILL (8)(TE$)0ĺ(8)" "(8);:TE$(TE$,1,(TE$)1):3705|+(T0$)48(T0$)573705:(TE$)33705:T0$;:TE$TE$T0$:3705++(25)(16):5:"ALL PROBLEMS ARE CREATED RANDOMLY SO"::"THAT A DIFFERENT PROBLEM WILL APPEAR"::"EACH TIME.,14:(F1$)(F2$)(F2$)A(P5)3640:X14:A(X)NUı;*$X:J*8S70XP5Y*BS71XP6_*L*`24:8:"PRESS RETURN TO CONTINUE.";:16368,0*jA$:A$(13)3690:(16):*wTE$"6+yT0$:(TE$)0T0$"0"3705:T0$(13)(TE$)03715:T0$S41:1550:1530:N$", "A(P1)" AND "A(P2)" WILL NOT"::"CANCEL. THE LARGEST NUMBER THAT WILL"::"DIVIDE EVENLY INTO "A(P1)" AND "A(P2)" IS 1.":C2C21:3530:1550:) 21:8:"PRESS RETURN TO CONTINUE.) (16384)1413550:16368,0:2*S81)GC"( S10:X14:G(X)1S11+( X:^( S80:X13:YX14:A(X)A(Y)S81:P5X:P6Yi( Y,X:( XQ21:F1X(F1X)F2X(F2X)GCX:( X:GC1:(H X14:PA(X,1)P1PA(X,2)P2PA(X,1)P2PA(X,2)P13430:X(f G(X)1S40:)p A(4))A(1)(A(4)A(1))A(4):F1A(1):F2A(4):3340:G(2)GCY'0 A(2)A(4)G(3)A(2):3160': Q(A(2)A(4))A(2)(A(4)A(2))A(4):F1A(2):F2A(4):3340:G(3)GC'X A(2)A(3)G(4)A(2):3200(b Q(A(2)A(3))A(2)(A(3)A(2))A(3):F1A(2):F2A(3):3340:G(4ADE "C2;1)E$" - COMPUTATION.":E2E2C2:4410:RT%RT%(C10C20):C10:C20:T10:3680::PNNP640:1310& 3260:A(1)A(3)G(1)A(1):3080& Q(A(1)A(3))A(1)(A(3)A(1))A(3):F1A(1):F2A(3):3340:G(1)GC& A(1)A(4)G(2)A(1):3120:' Q(A(1)N.":3680:2720;%@ T12ĺA(3)" x "A(4)" = "A(3)A(4)".\%J 11:32:" ":3680:2720%T 1550:14:1:N$", THAT IS CORRECT.":E$"ERRORS":C11E$"ERROR%h :"YOU MADE "C1;1)E$" - PROCEDURE.":E1E1C1:E$"ERRORS":C21E$"ERRORj&| :"YOU MER "NPDX1500:XD*D.16368,0CD.A$:A$(13)12005ID.ROUTINE)C;C1C20ĺCM$(((1)3)1);:KCDC1C21ĺCM$(((1)2)4);:oCNC1C24ĺCM$(((1)3)10);:CXC12C20ĺCM$(8);:CbC10C22ĺCM$(9);:ClCM$(((1)2)6);:C PRINT PROBLEM # C34,0D(16):10:10:"PROBLEM NUMBSE 2 X 5 = 10, TYPE 10 AND PRESS"::" RETURN.";:16368,0UBoA$:A$"1"3951gBp1;:16368,0}BqA$:A$"0"3953Br0;:12000Bs11:30:10:10:31::(16)Bx18:(28(N$))2:"NICELY DONE, "N$"!":3670:34,0B}540C:: COMMENT ::D$"CLOSE?S?D$"OPENNMS."FF",L32":D$"WRITENMS."FF",R"R:E$:D$"CLOSE":g?NM$L$" "F$:?FF999NP060046:::60061:R(SN1)2:60048(@D$"OPENNMS."FF",L32":D$"READNMS."FF",R"R:E$:D$"CLOSE":P1:T13:E%(T)((E$,P,4)):PP4::RT$,(RT$)1):(8)" "(8);:60020,>IDı>ID1:D$(4):D$"OPENID":D$"READID":PW$,DT$,PG$,NE:T1NE:EN$(T)::NF:T16:NF$(T)::D$"CLOSE": ?(13)D$"OPENNMS."FF",L32":D$"READ NMS."FF",R0":NS:Q0NS1:D$"READNMS."FF",R"(Q1)21:N$(Q)T$)ML(P$)3260020:IP60029,60030,60031,60033,60032W=}P$"A"P$"Z"60020:60033y=P$"N"P$"Y"60020:60033=(P$"A"P$"Z")(P$"a"P$"z")60020=RT$RT$P$:((P$)32(P$"a"));:60020=(RT$)1ĺ(8)" "(8);:60018">RT$(((P$)119(P$(127))):P$((P$)32(P$"a"IP4)):(RT$)0IP5P$((P$)32(P$"a"))2450RX14:A$(X)(A(X)):B(X)A(X)\(A$(X))1A$(X)" "A$(X)fX:pA(1)A(2)10A(3)A(4)10A:690660X3A(1)A(2)A(3)A(4)645KX14:B(X)A(X):XZ850:3020A(1)G(1)A(4)A(1)G(1)A(4)G(3)645A(2)G(3)A(3)A(2)G(3)A(3)G(1)645G(1)G(2)G(3)G(4)4760R((1)32):A(4)A(1)R:850:3020PN(PN$):PN10640_N(16):11:10:"ARE YOU SURE YOU WANT"::10:PN$" PROBLEMS (Y/N)?";iXDC$:bDC$"Y"DC$"N"590lDC$"Y"640v540NPNP1:4530X14:A(X)0:XX14A((1)122)Y14:AA(Y)ĂY:A(X)FRACTIONS AND IN ":T"CANCELLING. ":::"DO YOU WANT INSTRUCTIONS (Y OR N)?";qG$:G$"N"G$"Y"480G$"N"ĺG$:540G$"Y"480 G$(16):3:3725(16):9:"HOW MANY PROBLEMS WOULD YOU LIKE? ";&3703:PN$TE$D----0"(rR14:C12:CO(R,C):C:RD| 8,15,8,22,10,15,10,22eR14:C12:PA(R,C):C:Rz1,3,1,4,4,2,3,2RT%0:(16)::60000:N$(19)F$(16):7:"HI, ";N$;"."::"THIS PROGRAM WILL GIVE YOU PRACTICE":"IN MULTIPLYING HE PROBLEM."K@D$(DO$,24):R$" "JJ1$" 1ORIGINAL0 "(10)(8)(8)(8)(8)(8)(8)(8)(8)" 1PROBLEM0 "TJ2$"1 WORK AREA0 "^BL$R$R$R$R$hLI$"1------------------------------------NS ". 10:8:" WITH CANCELLATION "L 12:16:"BY DON ROSS"v 15:10:"MICROCOMPUTER WORKSHOPS" 18:14:"COPYRIGHT 1984" X12500:X "(16); ,E$(1)" T HERE IS NOTHING TO CANCEL." 6E$(2)"THAT NUMBER IS NOT IN T32,1360,1488,1616,1744,1872,2000+ 34,24D X140:"1#0";:Xd X223:X:40:"1#0";:X X4011:23:X:"1#0";:X: X2321:X:1:"1#0";:X 34,0 X322:LS(X)3,32:LS(X)37,32:X 8:8:" MULTIPLYING FRACTIOE PROBLEM."7 zCM$(12)"THESE PROBLEMS ARE NOT EASY!"U }X112:CM$(X)MM$CM$(X) :DO$" ":RI$" " LS(23):X023:LS(X):: 1024,1152,1280,1408,1536,1664,1792,1920,1064,1192,1320,1448,1576,1704,1832,1960,1104,12OU KNOW YOUR PROCEDURE BUT WORK ON THOSE COMPUTATIONAL ERRORS." nCM$(10)"DON'T GET DISCOURAGED. "(13)(13)"YOU'LL DO BETTER ON THE NEXT ONE." xCM$(11)"IT MAY HELP TO REVIEW "(13)(13)"THE SAMPLCT! TRY AGAIN!"B .CM$(6)"KEEP TRYING! YOU'RE GETTING THERE!"n 0CM$(7)"KEEP WORKING! YOU'LL GET IT!" <CM$(8)"YOU ARE FINE IN YOUR COMPUTATION BUT TRY TO WORK ON YOUR PROCEDURE SOME MORE."k ACM$(9)"YJKMM$(19):N$(35)1 CM$(13):34,0:(16)QCM$(1)" V ERY IMPRESSIVE!"CM$(2)" I SEE YOU'VE BEEN DOING YOUR HOMEWORK!"(CM$(3)" T OO BAD YOUR TEACHER CAN'T SEE THIS!"*CM$(4)"VERY CLOSE! ALMOST PERFECT!" ,CM$(5)"NEARLY PERFE                                        "*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> "$! $%%#,dp% Lp"% $`"H *+)hi#"H !*0+i+ibH#b hb`"%$$%H hi#`$% a,b*+Mc,bPMa*!0 +i+`%J) `+je *`PPPP򠥹͠0rL"$!e (' !!%##`d`" e$$ ",p0qr(!#L"L$` ,  #   `L _,ePeA[8 & & &mf)mg e$*+Mc$(Ma,bp ,apP!pA* +i+Mc$pq"r`,T`@0,U`* L" yLB$!$$"% %L"a`e`e`,,Lҩa`@_`bc` oLXbc`q$r%L$tb`c`e`d`Yb`c`L$e (' 8!$!$%",pL !%# L5 '5`)_W Lz HHGH_`E|!)>FNVqyEE)P$_`1  emfg` `` ,p0p`h$q%r`@``q$$hLbc`,pSh`L L L#L# A `s8967 ,R,W S ,P` ((*)  `+*HN OI*P,h*,H,^0ɛ^ ɍ $h`ɐ 6+^ oL L y&"\"#"@@ <"""<0H""<&!@   >*$"""^0$8D">"D""D"*"D"<>8DD>"8Dd"8D!8$DBB1xx8D2!DD">"~?p@ H$!8TRB"LLJ*)8DD""8DD>8DD"*1^8DD> 8D ~DD"""DD""" DD"**B$!DB"~@`? @< <* $>> >G%tRq  . *"*@ 8DD""p($!!!> 0 "   TE$(WN$)NN1480/10:36:WN$:2900?1550:1530"SORRY, ";N$;","::NN;" 1@ 0";1;" = ";NN:C2C21:3530144015:1:15:1:BL$;BL$:"17:1:BL$;(BL$,120);:62:16(A(1)10):A(1)@2:23(A(2)10):A(2)1365YZA$;:A$"2"ĺ(16):10:4:"I HOPE YOU ENJOYED THIS PROGRAM!":16368,0:0::xRT%0:NP0:PN0:E10:E20:C10:C20:T1054010:34:"="10:36:"";:" ";:""1550:1530"ENTER WHOLE NUMBER VALUE: ";3703:WN$E1:)F"ERRORS IN COMPUTATION: ";E2:fK60054:21:8:"PRESS RETURN TO CONTINUE.";:16368,0~MA$:A$(13)1357P(16):8:8:"1. TRY MORE PROBLEMS":10:8:"2. EXIT PROGRAM":14:12:"SELECTION: ";:16368,0UA$:A$"1"A$"2"OT CHANGE.":C1C11#3530:1210J(16):2:"THANK YOU, ";N$;".":w("I HOPE YOU ENJOYED THIS PROGRAM."::-IN$"S"NPNP12"HERE IS A TOTAL ERROR ANALYSIS AFTER"::NP" PROBLEM";:NP1ĺ"S";3":":<"ERRORS IN PROCEDURE: "";:"";:NNI1LD:"":C2C21-3530:1120=1550:1530b"ENTER CORRECT DENOMINATOR: ";t3703:W3$TE$(W3$)LD1280(W3$)1W3$" "W3$11:38:W3$29001550:1530 "SORRY, ";N$;","::"THE DENOMINATOR DOES N8p@?`@@`??`@`?`88`8axxx켌@yYa8`8008O@ฮ꺎C @p~8p`@@@@ ꊂx ՟~||p@p@1ƚagfga``cfgfgccg`g@p|s@`p0  80`@p300p0030\xppฮ|@@`p8p`p|Օ@p`p8`p p pxฮB|p p `?``Օa@: @@8`7 7 S S S S 0p06 p@9 `88 0<710 @# Ff@@~~" 8p`@@@@@@`p0? @@@`p8@s0`@xy?``? 80p``@@@@@``00 x x x8` |  c``ag# #  ??# g``c```g7  LLOLLL  XpxC `0 @!~cffc```@x | Cx q33s3331!`?@xx윀@8yյCp@0800OꚆa`8~ 0`@``յC@@`0 ``Ꚇa F~~8`8`ccffc``agCffCaGqCf`fC`xN<8`@?`@@@ppqx@|뛇p``0 ?`?@յ|?``?px x xꚆaxx x @@յC?`xppꚆ` ! S S pp07 8`: @p9 8>30 @$ FfF@ #  0`@@@@`0? @@`0 a303a `08  0p`@q30p0031 Xp  ;2::10:15:"LOADING"%<PG1;dCS$(1)"ASCII.40"QeCS$(2)"ASCII.56"[NCS2o(4)"NOMONICO"(104)(PG1)32((PG1)8192)0Ĺ104,(PG1)32:(PG1)8192,0:(4)"RUNCOVER"B2048(4)"BLOAD FLEX TYPE,A"B C(B256):D >>>"">>><>">">"< <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>8  80, K104,64:28192,0< PZ12500:Z::::(4);"RUN COVER"A((I1)768)XA6TYPE1vA@(CS$(I),3)".70"TYPE3AJ(CS$(I),3)".56"TYPE2AT(A10)I,TYPEA^IAhA10,NCSArA11,32A|973,76:974,D:975,CB(1014)88(1015)255>#230,32:62450:230,64:62450+ :F(4);"BLOAD UNPACKER"_LOC24831:UNPACK768#0,LOC((LOC256)256):1,(LOC256)$230,64((4);"BLOAD LOGO.PAC,A"LOC2UNPACK<4:0,110,1F16304,0:16297,0:16302,0:16299,01550:15:1% 34,15=% "ENTER PRODUCT OF NUMERATORS: ";[% H829:A(1)A(2)10H830m% 3703:P1$TE$% (P1$)1P1$" "P1$%( LS(8)29,160%2 A(1)A(2)10A(3)A(4)10Z$" -":10:(31):Z$%< 9:31:P1$&F (P1$)A(1)A(2)Ģ9:31:P1$P2)R2:A$(P2)(A(P2)) $j 30207$t 1680:1550::790A$ 1550a$ G(1)G(2)G(3)G(4)42540l$ 15:1$ S21:"IT IS BETTER TO CANCEL OR REDUCE FIRST."$ $ "THIS MAKES THE NUMBERS SMALLER AND "::"EASIER TO MULTIPLY."$ C1C11: % #$ C2C21L#. G(CP);" IS THE LARGEST FACTOR OF ";A(P1);" AND ";A(P2);".":#8 A(P1);" 1@0 ";G(CP);" = ";:A(P1)G(CP);:" AND ";#B A(P2);" 1@0 ";G(CP);" = ";:"";:A(P2)G(CP);:"."#L 3530:1550:1680:1970#V A(P1)R1:A$(P1)(A(P1))$` A(1550:1530:"ENTER REPLACEMENT FOR ";A(P1);": ";H"28:3703:F1$TE$V"F1(F1$)\"":"ENTER REPLACEMENT FOR ";A(P2);": ";"28:3703:F2$TE$"F2(F2$)"CPX" R1A(P1)G(CP):R2A(P2)G(CP)" F1R1F2R22390" 1550:1530 !HP1P23P1P272130"!O2170\!R1680:1550:1:15:"YOU MAY ONLY CANCEL DIAGONALLY"!\:"OR REDUCE UP AND DOWN.":C1C11!f3530:1550:1680:2010!zCO(X,1)1:CO(X,2)1:" ";:A$(X):""!3400!S402210!1550:1680:19702"(F1$):3590C X5İ1550:1:15:E$(2):C1C11:3530:1550:2010q CO(X,1)1:CO(X,2)1:" ";A$(X);"":P1X 21:5:"SECOND NUMBER: "; %3703:F2$TE$ 4S71:NU(F2$):3590:P2X CX5P1P2İ1550:1:15:E$(2):3530:1550:C1C11:20800WT150:WT:16368,0"2S102010D(IN$)2800p1550:15:1:E$(1):C1C11:3530:15501800:197015:1"TYPE IN NUMBERS TO BE CANCELLED OR"::"REDUCED.":5:"FIRST NUMBER: ";3703:F1$TE$ S70:NU15&34,15F0"1 CHOOSE ONE 0:":15:25:"(OR  S TO STOP)"N:17nD5);"1) CANCEL OR REDUCE"vN19X5);"2) MULTIPLY":3260b22:1:"SELECTION: ";lIN$:IN$""1900v34,0IN$"S"ġ:1310IN$"1"IN$"2"189";A$(2);" "9Z$"1--0":A(1)10A(3)10Z$" 1-0"Q10:16:Z$;2);"X"~Z$"1--0":A(2)10A(4)10Z$" 1-0"10:23:Z$;2);"=";3);"1--0"11:15:" ";A$(3);" "11:22:" ";A$(4);" "6:1:LI$13:LI$-JZ$"1--0":A(1)10A(3)10Z$" 1-0"DT3:16:Z$;2);"X"q^Z$"1--0":A(2)10A(4)10Z$" 1-0"h3:23:Z$;2);"="r4:16(A(3)10):A(3)|4:23(A(4)10):A(4)8508:1:J2$9:15:" ";A$(1);" " 9:22:" "  ??" g```c```g6 : ?`@`?p@6 6 S 2aՀ  p333s3330?`C@`?x@!`yp`p 00``@@@@@``p08 p ppp@ |  accca``cf"aՀ `p8꺎C  LLLOLLL \xp ս Հ x~~`p8~C @agfga```@@p | x""!C<768,P$:P$(127)P$(8)9CFP$(8)(RT$)110dCPP$(13)(RT$)6130:P$(13)İ2000~CZ(P$)48(P$)5760Cd(RT$)660:RT$RT$P$:P$;:(252)1((RT$)2(RT$)4):60Cn(RT$)1RT$"":16:10:50*Dx(252)1((RT$)2(RT$10:CB190:T02000:::3:15:"Date Entry":15:"__________"B(250::7:"The Data Management System ":7:"was last used on "DT$". "C28:"Please type today's date ":9:"in the form MM/DD/YY. ":16:TD$"__/__/__":16368,0:F1:TD$;:16:RT$el":16:"Doug Higgins ":12:"Copyright 1984 ":4:"Microcomputer Workshops Courseware"A22:(20)2" Flex Type courtesy of Beagle Bros. & Mark Simonsen"(20)1B1::X139:" ";::X123:39:" "::X3911:X:" ";::1:X2311:X:" "::h@ " Title and Date Input Module BY Mark S. Appel Last update:10/09/84 by Doug Higgins @ :"  DATA MANAGEMENT SYSTEM "@8:"Program: Mark S. Appel":17:"Doug Higgins "YA8:"Design: Kevin Vessio":16:"Mark S. App  C                                                                      * <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>@`pxp`@**"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>> >00000>">>< (&20 *, **> "2*&" " >>  ">> "8""> """"""< >> "    1014,D:1015,CEBB::10:" Loading":"RUNMENU"4)88(1015)255Ĺ1014,D:1015,C (978)189ĹB205,10:DM FIX B:HOMEFG8`0($ p,&" ʎ L/ ɃL`  !"#$%&'()*+,-./0123456789:;<=>?z  ,) <L H lhʈ` R  ȥo ȥp ` ߠ ߠ ȱ `ħЧdzDZĶDzĶdzĶò hL` ,T,RL r r g z%N e ! g clvPPPP@#"ÿ??@ `!H *8(&+' xhi%F!Ls H *&+)'h}"H u0 u"  L" *&!0+i+'i'`%J) +ej*` %SS LLޅRHQHL ʊ H gL %L"L$O"%C%L" 3 )ߠΰɐR8Iiii+`8"%%H hi#L"%H$3  8***,rIL -*+i+Ȅh!1 $0p,r0*I*!0 +i+& &mu)mv $20q I-q I-q$0PPT&'JH&'h&&'&&'&FJ 쩀L  &J*, YYL 9Y*߬ +i+LC q%%#F emv @($0pJ (!` 8 ۩Fŭ к,t tNt)pQ  r HH`@, `,T@,U`,,L 8nQ`8n`r" w Nr`I`8n`0jjj` & $(8$$hh`  $0,p FjFFFj : .II -- Fj uvw8i!$PwMw0`*+i+`w`1 hss,c0 ې II tL b NO,+i+ Q `*Y*`Lű S(*)  + II Q 8++`$2 $pi}e*e*`p Pp \ $8  LLb LA L 8697,R,Wuv " (!#i18 ,PL` ~Lv,T ~hhL 󦴊HH hh`8HH$(L ( ss 3 ,)Ɂɛ nR ! ,R0ɕ  -Hɍ   :T16:NF$(T):"FD$"CLOSE":AF FORMAT THE DATE NICELY FDT$(((DT$,2)))"/"(((DT$,3,2)))"/"(((DT$,2))):F31,29,31,30,31,30,31,31,30,31,30,31FHT(252)1:16:TD$;:16FX1:T1(RT$)2:(RT$,T,2)"";::HT:XTHE DATE FROM THE ID FILE uED$(4):D$"OPENID":D$"READID":PW$,DT$,PG$,NE:T1NE:EN$(T)::NF:T16:NF$(T):ED$"CLOSE":D$"BLOADFTI.OBJ":E WRITE NEW DATE TO ID FILE FD$"OPENID":D$"WRITEID":PW$:DT$:PG$:NE:T1NE:EN$(T)::NF)4):(8)"_"(8);:RT$(RT$,(RT$)1):60]DMN((RT$,2)):DA((RT$,3,2)):YR((RT$,2))wDYR84MN1MN12180D:T1MN:ND:DDANDDA1180DDT$RT$::220:D$"RUNM"D::7:"Invalid date. Please reenter."(7):10:50E GET e of the new class and press":"RETURN."g990:10::10:"Class name: ";:ML25:CR1:IP4:620:CRı CL$RT$:34,11::34,0:1030:RT$"N"460:T16:NF$(T)CL$T6::34,10::34,0:" That name has been used. Please try again.:14:"Please wait.":1180:NM$N$:RR1:1180:1330:400NS13Ĺ34,8::10:"You now have thirty-five students in"::"this class, the maximum allowed.":990:16368,0:995:400(:3:13::"Create a class"::820:15::"Type the nam820:L$RT$:1220::1140RT0440:13:35,20:(6);:35,24:" The name "(34);F$;" ";L$(34)" is already present in this class. Please try again.":1000:4008RNS21:N$(NS)NM$:NSNS1:34,12::34,0:16:5:"Entering name into the class.":18$,20)(15):820:980:4:1:"Class name: "NF$" Student: "NS116:" Type first name and press RETURN.":9:7:"First name: ";:CR1:IP5:ML15:620:CR1820:F$RT$16:" Type last name and press RETURN. ":11:" Last name: ";:CR1:620:CR"(34)NF$"."(34):15:14:"Please wait."hNF$(FT)"@":NFNF1:930:NS0:R2:NM$"":1180:RD0:1360:WRITE NEW ID AND NEW NMS.,R0 / ERASE CLASS DATAr ADD NAMES TO A STUDENT FILE |NS0>:11:1070:"Add names to a class":1:11:(15)(ULF$(FT)T$230:34,10::34,0:13:12:"Updating name.":14:14:"Please wait.":NF$(FT)T$:930wJDELETE A CLASS FILETMD9İ1070:360Y34,3::34,0)^1070:7:" Delete: "NF$;:12:34,12::34,0:1030:RT$"N"230:34,2::34,0:10:"Deleting ETURN.":5:"Old name: ";:1070:NF$:" New name: ";:ML25:CR1:IP4:620:CRı7T16:NF$(T)RT$FTTĹ34,10:35,20::14:"That name is already in use.":T6:RT$""8:RT$""Ĺ34,0:35,24:990:995:^@T$RT$:34,8::34,0:11:1030:RT$"N"N(27)ı" 1:22(P$):"~~}";n "FF(P$):17:(6);:980:17:" Type [R] to rename or [D] to delete: "; ,KS,0:GT,P$:P$((P$)32(P$"a")):P$"R"P$"D"P$(27)300:P$(27)ıO6P$"D"330:1120:13:3:"Type the new name and press R" I'm loading the next program. Please wait.":d EDIT/DELETE CLASS FILES :10::"Rename/delete classes"::820:980 1270 17:" Rename or delete which class?"; KS,0:GT,P$:(P$"1"P$(NF))P$(27)270:P$ITH ALL CLASSES c :820::10:2:"Preparing to work with all classes.":12:14:"Please wait."v CR$D$"RUNALL" WORK WITH ONE CLASS :820::10:4:"Preparing to work with one class.":12:14:"Please wait." CR$D$"RUNM.1"D :9:+ PKS,0:GT,P$:P$"1"P$"5"80:MD(P$)O ZT0:MD190,450,230,520,570:40 n:10:"Preparing to set difficulty of problems.":12:14:"Please wait." xCR$D$"RUNSTDR" BACKUP CLASS FILES :820:220 CR$D$"RUNBACKUP" WORK W):CR$(13):KS16368:RD1:PS$(2)".":SS$" ":SP$(1)" ":890::15::"Main Menu": 2" 1. Work with one class 2. Create a class 3. Rename or delete a class" <" 4. Change the password " F"5. Exit the DMS ";:" Option: "; 3:"MAXFILES 1"L " DMS Main Module By Appel update:10/16/84 N$(35),N1$(35),E%(10):S$(0)" students":S$(1)" student":Z$(1)"0":PS$(1)"%":ID0:GT768:T140:UL$UL$"_":DO$DO$"."::N$"000000000000000000000000000000":X (ES$(27         1*' "ENTER PRODUCT OF DENOMINATORS: ";H' H829:A(3)A(4)10H830Z' 3703:P2$TE$t' (P2$)1P2$" "P2$' LS(10)29,160' 11:31:P2$' (P2$)A(3)A(4)(P1$)(P2$)Ĺ34,0:900' (P2$)A(3)A(4)Ĺ34,0:2900( 11:31:"";:P2$::2710&P 9:29:9)$&Z 1550:15h&d "SORRY ";N$;", THAT IS NOT":17:"CORRECT.":C2C21:T1T11:&n T11Ģ17:10:"TRY AGAIN.":3680:2540&x T12ĺA(1);" x ";A(2);" = ";A(1)A(2);"."& 9:31:" ":3680:2540& T10' 1550:15:$(NM$,(NM$)T):NM$L$", "F$:T(NM$)::N1$(Q)NM$::\$2 MOVE N$(NS) TO N1$(NS-1) $<NM$N$(NS1):T1(NM$):(NM$,T,1)" "1350:$FL$(NM$,T1):F$(NM$,(NM$)T):NM$L$", "F$:T(NM$)::N1$(NS1)NM$:$P5%ZCR$D$"OPENNMS."FT",L3(NM$)::5# LIST THE CLASS FILES WITH NUMBERS \#3:IP1:Q16:NF$(Q)"@"Ă:1100# " ";:5:IP". "NF$(Q):IPIP1::1100# FORMAT N1$(0) AS L$ F$ TO L$, F$ #Q0NS1:NM$N$(Q):T1(NM$):(NM$,T,1)" "1320::$(L$(NM$,T1):F FILE F"D$"OPENNMS."FT",L32":D$"READNMS."FT",R0":NS:D$"CLOSE":q" PACK F$ AND L$ --> NM$ FOR STORAGE "NM$L$" "F$:" UNPACK NM$ --> F$ AND L$ FOR DISPLAY "T1(NM$):(NM$,T,1)" "1260: #L$(NM$,T1):F$(NM$,(NM$)T):T!~RT0:NS01100A!Q0NS1:N$(Q)NM$RT1:QNS1::1100R!:RT0:1100w! WRITE A NAME TO THE NMS FILE !D$"OPENNMS."FT",L32":D$"WRITENMS."FT",R0":NS:D$"WRITENMS."FT",R"R:NM$:D$"CLOSE":" GET THE NUMBER OF STUDENTS FROM A NMSRT$)96)):RT$"N"RT$"Y"1050:I . DETERMINE ACTUAL CLASS NUMBER z 8Q0:T16:NF$(T)"@"QQ1:QFFFTT:T6 B:NF$NF$(FT) L A KNOWN RETURN V ` CLEAR AND PRINT RETURN j3:(6);:980:3:!t IS THERE A REPEAT NAME? 8:PK27995%34,0::16368,0:: PRESS RETURN r22:1:UL$" Press the [ESC] key to continue.";KS,0:GT,P$:P$ES$1020: ARE YOU SURE (Y/N)? " Are you sure (Y/N)? ";KS,0:GT,RT$# $RT$((RT$)32((":% WRITE NEW INFO TO ID FILE :D$"DELETEID":D$"OPENID":D$"WRITEID":PW$:DT$:PG$:NE:T1NE:EN$(T)::NF:T16:NF$(T):D$"CLOSE": RETURN TO EXIT 22:1:UL$;" Press [ESC] to exit.";:3: PK(16384)12 thirty-five students in the"::"class, the maximum number allowed.":880Pfbp990:995::z GET THE INFO FROM THE ID FILE IDıID1:D$(4):D$"OPENID":D$"READID":PW$,DT$,PG$,NE:T1NE:EN$(T)::NF:T16:NF$(T):D$"CLOSE:34,0:9:"Because you have not placed any names into this class, I cannot create a new class. ":1010::12:8:"Returning to Main Menu.":330R(MD1MD3)NF0Ģ8:" There are no classes on this disk. ":880J\MD9NS35İ1120:7::"You have "(8);:6307*RT$(RT$,(RT$)1):(8)" "(8);:650W4 ERROR CHECKING ROUTINES >MD2NF6Ģ7:"You have six classes, the maximum"::"number allowed.":::"To add another, you must delete an"::"existing class.":880HMD9CRNS0Ĺ34,3:ML(P$)326502IP750,4050,4051,780,760,770NP$"A"P$"Z"650:790jP$"0"P$"9"650:790(P$"A"P$"Z")(P$"a"P$"z")650:790P$"1"P$"9"650:790 P$","P$";"P$":"650RT$RT$P$:P$;:650  (RT$)1ĺ(8)"((P$)32(P$"a"IP4))F(RT$)0IP5P$((P$)32(P$"a"))x(RT$)IP5P$((P$)32(P$"A"P$"Z"))(RT$)0P$CR$CRı(RT$)P$(8)800:(RT$)0P$(8)650:P$CR$(RT$)CR0:IP4(RT$)0P$" "650(RT$)S,0:RT$"" IP=0 : UC LETTERS IP=1 : 0-9 IP=4 : ANYTHING (,;:) IP=5 : UC/LC LETTERS (1ST UC) IP=6 : 1-9 ML : MAX LEN. CR : C/R ALONE GT,P$:(P$)0650P$(27)CR1:P$(13)(RT$)0650P$((P$)119(P$(127)))P$0:: EXIT DMS ^D:14::"Exit the DMS"::980:5:6:"Type [Y] to reboot the disk.";yNKS,0:GT,P$:P$ES$ıXP$"Y"P$"y"590:(42204)238(42205)16(42206)192Č47731b:P(43626):::50688l GENERAL INPUT ROTINE vK"Type the new password and press RETURN.":8:7:"Current password: "PW$:12:11:"New password: ";:IP0:ML8:CR1:620:CRı&T$RT$:34,15::34,0:1040:RT$"N"520:T$PW$ı0PW$T$:34,15::34,0:16:2:"Entering new password. Please wait.":93";:1000:450&:NFNF1:T1:Q16NF$(Q)"@"NF$(Q)CL$:FTQ:FFT:34,11::34,0:15:8:"Creating a new class.":17:14:"Please wait.":930:MD9:370TT1: CHANGE THE PASSWORD :990:3:10::"Change the password":}16:1$(S%(T1))NM$:5470:5195:60000:2095LR3:1:CS$:9:" I am about to erase all grades in this class.":5105:RT$"N"5155:" Erasing....":RE1:5370oM\3:1:CS$:D$:4::"Profile:";::" "NF$:21:" "UL$C2$" {~~ up down~~} [P]rof15:" Type last name and press RETURN. ":10:6)"Last name: ";:CR1:4000:CR5155:L$RT$:5215::5180KCRT02120:13:35,20:CS$;:35,24:" The name "Q$F$" "L$Q$" is already present in this class. Please try again.":5090:2100'LHRS%(T1)21:N [ESC] to exit"C1$;:276,190:T10:T20:T30:CR0:P1$"E":5315:CR5155:T1T1T3T2J43:1:CS$:5080::5::"Old Name";::": "N1$(S%(T1))J916:"Type first name and press RETURN.":8:7:"First name: ";:CR1:IP5:ML15:4000:CR15155:F$RT$iK>RITE NMS."FT",R"(T21)2:NM$qI%D$"READ NMS."FT",R"(NS21):NM$:D$"WRITE NMS."FT",R"(T221):NM$:D$"CLOSE"I'N1$(NS1)"":RE1:60000:2080SJ/D$:::16:"Editing":3:"Class:";::" "NF$:21:" "UL$C2$" {~~ up down~~} [E]dit name [N]ext page:T1T1T3T2:T2S%(T1):5340~H"5:CS$:9:"Deleting "N1$(T2)".":12:14:"Please wait.":N1$(T2)N1$(NS):NS1N1$(1)N1$(0)H#(13)D$"OPEN NMS."FT",L32":D$"WRITE NMS."FT",R0":NS:T2NSĺ(4);"CLOSE":2087I$D$"READ NMS."FT",R"(NS1)2:NM$:D$"W045G ::10:"Delete student names":3:"Class:";::" "NF$:21:" "UL$C2$" {~~ up dn~~} [D]elete name [N]ext page [ESC] to exit"C1$;:276,190:T10:T20:T30:CR0:P1$"D":5315:CR5155H!5:CS$:8:"Delete "N1$(S%(T1T3T2))".":5110:RT$"N"51554:40:KS,0:GT,P$:P$"p"P$"P"2070:P$ES$5155:P$"N"P$"n"2055ZF T1NST10F35,20:5:1:CS$;:35,24:T20:2050G5300:RT02045:2:1:CR$D$"PR#1":" 80N":18)NF$" - "DT$" ":T0NS1:18)T1".";:6((T1)))N1$(S%(T))::HR:22240,2140,2190,2400,2130:2020E:12::"Student listing":3:"Class:";::" "NF$:21:" "UL$C2$" Press: [N]ext page, [P]rintout, or [ESC] to exit."C1$;:T10:T20ET215T1NS2055:T26:1:T11".";:5:N1$(S%(T1));:T1T11:T2T21:2050IF2names 3. Add student names"D"4. Delete student names 5. Rank students 6. See student profile 7. See class profile 8. See grade plot 9. Erase grades "8)"Option: ";EKS,0:GT,P$:P$ES$3:P$"1"P$"9"2035:3:MD(P$)::MD2045,2095,3600,2080,80:5240NC17:" Type the number of the class to use.":16:7:"Class: ";CKS,0:GT,P$:(P$"1"P$(NF))P$ES$2015:P$ES$5155:FF(P$):5120D::15:"Class Menu":3::"Class";::": "NF$:40:6:" 1. List student names 2. Edit student roblem":T1NE:NE$(T4)EN$(T)" errors per problem":DBNF025NB2005B:8:" I'm returning to the Main Menu. "14)"Please wait.":D$"RUNM"B(23:" "9)"Press [ESC] to exit.";:2:0,181279,181:C:11::"Work with One Class"::50" ":SP$(1)" "A ES$(27):KS16368:CS$(20):C1$CS$"1":C2$CS$"2":CS$(6):CR$(13):CR$(1)CR$:Q$(34):BS$(8):D$(4):GT768:HR2048::50007BNE$(1)"Grade":NE$(2)"Times used program":NE$(3)"Problems completed":NE$(4)"Total errors per pF7@"MAXFILES 1"@4'@" ":41@3:3AN1$(35),A$(34),A%(34,9),S%(34),E%(10):S$(0)" students":S$(1)" student":Z$(1)"0":PS$(1)"%":ID0:T140:UL$UL$"_":DO$DO$".":DS$DS$"-"::N$"000000000000000000000000000000":RDT:PS$(2)".":SS$                    NMS."FT",R"R:RT$:D$"CLOSE":1100IRT$:D$"CLOSE":1100RT$:D$"CLOSE":1100R2":D$"READNMS."FT",R"R:RT$:D$"CLOSE":1100MS."FT",R"R:RT$:D$"CLOSE":110000R:RT$:D$"CLOSE":110011002":T2702:D$"WRITENMS."FT",R"T:N$::D$"CLOSE":Q%d READ A KEY (NO GET) {%nP(16384):P1281390:P$(P128):%x READ ONE RECORD %CR$D$"OPENNMS."FT",L32":D$"READNMS."FT",R"R:RT$:D$"CLOSE":1100S."FT",R"R:RT$:D$"CLOSE":1100:5450::SF3FS10#\$ T0NS1\% P$(T1):P$4(P$))N1$(S%(T))" "(DO$,33(N1$(S%(T))))" ";:(A$(S%(T)),1)"@"ĺ" n/a "(DO$,12)" 0":2350\& P$(1000(A$(S%(T)))):P$((P$)FS):(P$)1SF3P$"0"((P$))]' (P$)((P$))SF3P$Ы2305[ 3:5300:RT02300:CR$D$"PR#1":" 80N":A$" Ranked by "NE$(SF)": "NF$" Date: "DT$:H$(1)"Rank":H$(2)"Name":H$(3)NE$(SF):SF32337:H$(4)"Problems completed":2338[! H$(4)"Times used program"\" FS1:E%(1)3:E%(2)10:E%(3)45:E%(4)64:(A$(S%(T1)))):" "SP$((P$)3)SP$((P$)2)P$"%";LZ T1T11:T2T21:2305Z 24:36:KS,0:GT,P$:P$"P"P$"p"2330:P$ES$2240:P$"N"P$"n"2310Z T1NST10[ 35,21:3:CS$:35,24:3:C2$" Rank: Name:"40(NE$(SF)))NE$(SF)":"C1$:T20:42307:T3(1000(A$(S%(T1))))10:P$(T3):" "SP$(T30)SP$(T310T30)Z$(T31T30)P$PS$(2((T31(T3)T3)T30))Z$((T31(T3)T3)T30);:2309Y SF12308:T3((1000(A$(S%(T1))))10.5)10:P$(T3):" "(SS$,4((T3)))P$;:23092Z P$(1000ge, [P]rintout, or [ESC] to exit."C1$;:3:C2$" Rank: Name:"42(NE$(SF)))NE$(SF)":"C1$:T10:T20X T216T1NS2310:T26:1:T11;:4:N1$(S%(T1))" "((0)DO$,32(N1$(S%(T1)))((N1$(S%(T1)))32));:36:(A$(S%(T1)),1)"@"ĺ" n/a";:2309Y SFT2A$(Q)(A%(Q,1)):2290t9(RT$)IPRT$"@"5155bt;T31IP(RT$):RT$"0"RT$::htJ}tLT14:P%(T)1:4uOR0:T11:Q14:PP%(Q):SP:T1(H$(Q)):PP((H$(Q),P,1)" "P(H$(Q)))::P%(Q)P:RR(P(H$(Q))):P%(Q)PR:A((PS1E%(Q)((E$,P,4)):PP4::P13:Q49:E%(Q)((E$,P,3)):PP3::Is"s'REFF5155:3:CS$;:10:" Getting information for "RT$". "14)"Please wait.":T034:A$(T)""::T(0)t,CR$D$"OPENNMS."FT",L32":Q1NS:D$"READNMS."FT",R"Q2:A$(Q1)::s name. ":3590:rgrCR$D$"OPENNMS."FT",L32":T2702:D$"WRITENMS."FT",R"T:N$::D$"CLOSE":nr |r16368,0r P(16384):P1285385:P$(P128):rrCR$D$"OPENNMS."FT",L32":D$"READNMS."FT",R"R:RT$:D$"CLOSE":CsP1:Q13:320.qT26:1:" ";:T2T21:T20T2T31IqT26:1:"~~}";:5325xqT26:1:" ";:T2T21:T216T2T3T20q5331qNSNS1:NS05350:r4:CS$:8:"Because you have deleted all of the names from this class, I will delete the clas);:T1T11:T2T21:T3T31:53207pT20:6:1:"~~}";p21:1:5380:P$"N"P$"n"5328:P$BS$5330:P$(21)5335:P$P1$P$((P1$)32)5155:P$ES$CR1:pP$ES$CR1:P$P$:p5325pT1NST10q35,20:5:CS$;:35,24:T20:T30:5)""::T(0):o~oRT1:P49408:((P5)56(P7)24)((P5)72(P7)72)((P23)201(P55)207(P76)234)5155o35,24:3:1:CS$:5:" There is no printer in slot one.":5090:RT0::o pT215T1NS5324:T26:5:N1$(S%(T1)nBnQ0NS1:NM$N1$(Q):T1(NM$):(NM$,T,1)" "5265:nL$(NM$,T1):F$(NM$,(NM$)T):NM$L$", "F$:T(NM$)::N1$(Q)NM$::noT0NS1:P1:Q13:A%(T,Q)((A$(T),P,4)):PP4::P13:Q49:A%(T,Q)((A$(T),P,3)):PP3::A$(TT",L32":D$"READNMS."FT",R0":NS:D$"CLOSE":3m_HmdNM$L$", "F$:NmiumnT1(NM$):(NM$,T,1)" "5235:msL$(NM$,T1):F$(NM$,(NM$)T):T(NM$)::mxm}3:IP1:Q16:NF$(Q)"@"Ă:5155n" ";:7:IP". "NF$(Q):IPIP1::5155ō獍ߔ፰ !""" " " " " "占򍠠占占占占􍠠占占򍠠҇Π҇Π҇Π٠҇Π٠҇Π占፠荠䍠􍍠͍덠捍占፰󍠠! ! !!!!!!!151,190G340G768'G1005,234HG1010,174:1011,190:1012,27QG340401,190:1012,27pG340012:A$"LOADING "(34)FL$(34):20(A$)2:A$:2048,0:103,1:104,8:(13)(4)"RUN"FL$`FzFI768792:V:I,V:IF44,131,192,44,131,192,169,190,141,90,247,44,130,192,173,0,224,201,76,240,3,44,128,192,96F(978)191460G49150,175:49RD1:E REMOVE FLEX TYPE