8L xC)pJJJJ IH(ȱH:=IH[H`@H^H 2 9 @   I/H`JLNGȄBȄF aK ' faaFF  RJm# KKJ qJ )J ۈJJm  JFȱJGJKaȄM ' 5aaNNJFLGJ )ALG.1.7.3 %!V7)ALG.1.7.2!V7)ALG.1.7.1!V6" !V1'ALG.1.5m 4!V0)ALG.1.6.4y_ !V5)ALG.1.6.3!:!V4)ALG.1.6.2 !V4)ALG.1.6.1 8!V'ALG.1.6 e"!V3ALG12B.V.102289W W ' )ALG.1.7.4c/!V8'ALG.1.7 & !V6)ALG.1.5.4$b! !V2)ALG.1.5.36" !V2)ALG.1.5.2I !V1)ALG.1.5.1Z`a  XL LG &PRODOS`DaElH$?EGvѶK+`L XX LU ŠϠĠӥS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R" ALG.1.7.4 - SJW - V.102289-99007c9600WMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$5SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)16V208(KI%4KI%3)MO%3V14(2(KI%3)) >690:$I1:N961:II34:999:J(II)I::J(4)M(J(4))1:J(2)16J(5)M(J(3)):J(6)0:II0J(1)1:J(6)J(6)(IIJ(4))J(3)::J(7)J(3)(J(3)J(4))7J(8)0:I1J(1)1:J(8)J(8)(IJ(4))::J(9)J(3)100:NN9:992:998:J(4)1C$"":10858C$"even ":J(5))(J$(I),L3)","(J$(I),3):LL1:L8J$(I)(J$(I),L7)","(J$(I),7)VI:wI1NN:J$(I)((J(I)))::I((1)N9)1:I110:S$(I)""::N97:999:IT9I:L1(D$(IT))2:KI%1005,1025,1050,107593N94:999:J(1):MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:dV9(7940)81:H9(7939)21:HH9:VV9:7939,I(H):7940,V(V):X9(H91.1)8:Y9(V98)5:4849,1:9200:RA(RA$)1:MI1NN:J$(I)(J(I)):L(J$(I)):KI%3L4J$(I940,5:9000:7969,8:_{15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%):893o|ZS$ZS$" "}9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897ZS$ZS$" "(PG%)9000:@822:1:B15:ZS$"Space Bar":MODE(2):39,177:910014,V(V91)ZI::15:*D(AN$)0ıME906:ZS$(EZ$,(AN$)):9000:}M5126,3:5127,85:5128,76:5129,165:5120:O5126,7:5127,33:5128,72:5129,75:5120:k7969,22:7939,45(ZS$):7940,17:9000:7969,8:l7969,22:7939,45(ZS$):7PG%9((MO%4)(TT20))NX$"fd":7396NX$"bk"A822:x615:B15:MODE(2):5,178:19);:MODE(1):B0:95126,3:5127,144:5128,75:5129,165:5120:;BY(V8)2:15:BOX(175,1)315,BY:CC(C):ZI01:H(H9),V(V91)ZIH(H9)ODE(2):56,178:ZS$"Menu":9100:MODE(1)915:B0IZA$"":ZA$[ZA$(8)720|(ZA$(21))(ZA$(32))730710 LEFT ARROW SELECTEDMO%4TT20NX$"fd":729NX$"bk"822: RIGHT ARROW OR SPACE BAR SELECTED)00:MODE(1)MO%4704yZS$"Menu":MODE(2):18,178:9100:MODE(1):PG%9įMODE(2):90,178:9100:MODE(1):704ZS$"Problems":MODE(2):68,178:9100:MODE(1)MO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)+MO%4TT20įMS$(S$,(S$)LT):VV1:LI1VV1/620U::::(7);"WORD TOO LONG":L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0:9000:ZP%1:9000: 822:NX$"":ZS$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:917 L8(J$(8)):J$(8)(J$(8),L8((J$(8),1)" ")):\ bL(S$):LTCLJ0T$S$:690:e cHLJ l7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905: vLTTC11:X$(S$,LT,1):X$SP$X$"-"670 ZS$(S$,LT(X$SP$)):ZP%1:9000:660&A$"":485< NX$"redo"A$(13)NX$"":H9H7:836:480f AN$AN$A$:H9H91:AN$RA$RA(AN$)o 481 AN$RA$MO%2488 (7);:7939,I(H7):7940,V(V9):ZS$(EZ$,RA):9000:7939,I(H7):7940,V(V9):ZS$RA$:9000 AN$RA$RIRI1 0:C0:835:; A$"0"A$"9"ZS$A$:9000:C0:835:D 446 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: 470:906:AN$"" (AN$)(RA)486 445:A$(13)AN$""RA(AN$):"redo"A$(13)C0:835:e (A$"+"A$"-"A$"="A$"("A$")")MO%3ZS$A$:9000:C0:835: ((KI%3KI%2)A$".")ZS$A$:9000:C0:835: MO%3A$"a"A$"z"ZS$A$:9000:C0:835: MO%3A$"A"A$"Z"A$((A$)32):ZS$A$:900 ^MO%3SC%(UN%,KI%,(MO%2)4)0* _: 16368,0:I 390:A$:l 390:A$:A$(127)NX$"redo"r  400:A$(32)415  400:A$LO$A$HI$LO$"1":ANS(A$): (7);:420 906:C5:835 ((MO%1)1)400,402 NX$1C$"odd "K=ZZ$"Find "J$(1)C$(4,3)C$C$(4,4)C$(4,1)J$(6)".":[MO%42105{MO%0:PG%0:KI%4:912:891ZS$T1$:876:ZS$T2$:875:15H14:V6(2KI%):WD$TY$(KI%) V6I LJ0:TC34:S$WD$:610:VV2:S$"Mode Selection":610:V11:I114:7939,6:7940,V(V):ZS$MZ$(I1)" "CH$(I1):9000:VV2:7939,6:7940,152:ZS$"Your choice? (1-4) ":9000:LO$"1":HI$"4":420:ZS$A$:9000:MO%AN:A$"4"MO%0:ZF$"ALG.1.7":9950 MO%3SC%(UN%,KI%,(MO%2)4)0391000:TL10:48aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030T&aSC%(I,J,5)2\&a:b&e(4);"VERIFY ";ZF$6%&ZF%0:216,0::(4);"-";ZF$:Z%' ERROR TRAP FOR DISK FLIPp%'216,0:822:9965%a SCORE TRACKING ROUTINE%aI1NU%%aJ14%aSC%(I,J,1)0SC%(I,J,5)3:25030%aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:25030C&5128,78:5129,186:5120B$&ZF%1ZS$"Check Disk Drive":9972V$&ZS$"Flip Disk"$&:MODE(2):12:B0:H(21(ZS$))4,55:9100$&ZS$"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:9100$&16368,0:A$%&::%M(X)((X2)(X2))29#%N(I)(((I3)(I3))3)X#%P(I)(((I5)(I5))5)^#%x#& CONTROL-C TRAPPING#&((218)(219)256)9220Č822:9225#&#& TRAP FOR DISK FLIP#&216,0:9990#&9981#&9990$&5126,1:5127,30: SCR.MO.PAC)"@$1,137:: SCR.U3.PACI"% * FUNCTION DEFINITIONS *]"%H(H)(H1)14p"%I(H)(H1)2"%V(V)((V1)8)"%X(X)(X74)"%Y(Y)(Y2425)"%C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)7#ZP%1ĺ!#ZP%0!#>!# COMPRESSION BUFFER MANAGERJ!#Z9(1)!$0,0:(4849)9230,9240,9250,9260,9270,9280:4352! $4848,(4849):!$1,64:: SCR.UN.PAC!$1,84:: SCR.U1.PAC!"$1,137:: SCR.U2.PAC!,$1,73:: SCR.KI.PAC "6$:(J(3)((I1)J(4))):9000:VV1:0 j700:j (# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1){ -#Z9(1):840 2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936: # # DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2) #Z9(1) #ZS$; !#V1:7939,8:7940,V(V):ZS$"Integer "C$(5,I1)" =":9000:$V14:H717:I11J(1):7939,I(H7):7940,V(V):905:RA$(J(3)((I11)J(4))):914:480.VV1::825:RIJ(1)İ300:3590BS$D$(7):V20:610% LV14:I1J(1):7939,48:7940,V(V):ZS$:9000:905:H7H9:RA$J$(3):914:480 V12:H717:I11J(1):7939,I(H7):7940,V(V):905:RA$(J(3)((I11)J(4))):914:480VV1:700:RI0:V12:TC33:LJ3:LI1:S$D$(3):610:V19:S$D$(2):610:PG%1MO%3İ350>V13:I11J(1):V$((I11)J(4)):RA1:H7H9:480k :827:825:7939,4:7940,V(20):ZS$"Now write the equation.":9000 521:7939,46:7940,V(V2):905:H7H9 RA$J$(1)"x+"J$(8)"="J$(6):914:480' 825:7939,4:7940,V(20):ZS$"Solve the equation: x = " V12:I1J(1):7939,32:7940,V(V):ZS$(J(3)((I1)J(4)))" = ":9000:VV1:` 700: 7939,4:7940,V(20):ZS$D$(4):9000:V11:I11J(1):VV1:7939,8:7940,V(V):ZS$"Integer "C$(5,I1)" = x ":9000" I11ZS$"+ ":9000:905:RA x":90006\ I1ZS$" + "((I1)J(4)):9000pf :827:900:825:7939,4:7940,V(20):ZS$D$(6):9000p 7939,46:7940,V(V2):ZS$J$(1)"x +"J$(8)" = "J$(6):9000 900:825:7939,4:7940,V(20):ZS$D$(8):9000:ZS$" x = "J$(3):9000UO2110"RPG%0:MO%3İ25000,S20002H rI V6:S$ZZ$:LJ5:TC33:LI2:610:(J$(8))1J$(8)" "J$(8)M MO%3410,3500,3600,3600:R 7939,4:7940,V(20):ZS$D$(4):9000:V11:I1J(1):VV1:7939,8:7940,V(V):ZS$"Integer "C$(5,I)" = 49,6:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1T:891:MO%3SC%(UN%,KI%,1)1g>822:847:845{CTC35:LI1:LJ4H3400:MO%4İ1000IMO%4ZF$"ALG.1.7":9950MNX$"fd"2130NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110  !"#C%20)DT)SC%(UN%,5,5)2:40404SC%(UN%,5,5)1D900:821:c@ ** DATA STATEMENTS **J"Age Problems","Distance Problems","Coin Problems","Integer Problems","Problem Solving Test","Return to Algebra Menu"zT"Combine the terms.","Use a pect":9000:V8:II14:7939,2:7940,V(V):UC%UC%SC%(5,II,4):ZS$TY$(II):90007939,56:7940,V(V):ZS$"5":9000:7939,70:7940,V(V):ZS$(SC%(5,II,4)):9000:VV2:SC%(UN%,II,3)5:SC%(UN%,II,4)SC%(5,II,4):!SC%(UN%,5,1)20:SC%(UN%,5,2)UC%:((U%(TT)1)5)1 9TL10:PG%TTHH390:ZF%1:KI%2061,2062,2063,2064aOTTTT1:TT202101~RUN%4:4000:PG%0:25000SMO%0:2000 FACTORING TEST RESULTS821QUC%0:7939,52:7940,40:ZS$"Tried":9000:7939,64:7940,40:ZS$"Corre ZF%1:MO%0:KI%2061,2062,2063,2064B ZF$"ALG.1.7.1":9950\ZF$"ALG.1.7.2":9950vZF$"ALG.1.7.3":9950ZF$"ALG.1.7.4":9950 PG%14UN%4:II14:SC%(UN%,II,3)5:SC%(UN%,II,4)0:SC%(5,II,3)0:SC%(5,II,4)0::UN%5:TT15KI%((R2::7939,24:7940,V(V1):ZS$"Your choice? (1-6) ":9000:LO$"1":HI$"6":420:ZS$A$:9000KI%AN:AN6H14:V6(2AN):WD$TY$(AN)AN6ZF$"ALG.1.MENU":ZF%0:9950AN5MO%4:UN%5:ND%20:1500:II120:R%(II)TE%(II):TE%(II)0::2080(144M(I1)2)110I1,34M(I1):V6:H20:7939,I(H):7940,V(V):ZS$"CONTENTS":9000:V7:I115:H4:C3:7939,I(H):7940,V(V):ZS$MZ$(I1):829VV3::V8:I116:7939,18:7940,V(V)^ZS$MZ$(I1):9000:S$TY$(I1):TC26:LJ14:LI1:610:VVETE%(1)0:SJ%13ZI1ND%:SJ%(ZI)ZI:ZI?ZJ%ND%ZI1ND%:ZK%((1)ZJ%1):TE%(ZJ%)SJ%(ZK%):SJ%(ZK%)SJ%(ZJ%):ZJ%ZJ%1:ZIMO%42127MO%0:PG%0:KI%0:913:891ZS$T1$:876:ZS$T2$:875"6:I103:BOX(7I12,$"M"(MO%):MO%48970 ZS$ZS$" "(PG%)< 9000: 822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0: V9(7940)81:H9(7939)21: 4849,1:9200: SHUFFLE ROUTIN0,V(V):ZS$MZ$(I1):9000! AW k7969,22:7939,45(ZS$):7940,17:9000:7969,8: l7969,22:7939,45(ZS$):7940,5:9000:7969,8: {15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%):893 |ZS$ZS$" " }9000:7939,2:7940,15:ZS9,168:5120:F 615:B15:MODE(2):5,178:19);:MODE(1):B0: =I11įMODE(2):15:H(H)43,V(V)12:"\";:MODE(1) ?(SC%(UN%,I1,5)0)15C(SC%(UN%,I1,5)) @LI03:BOX(56LI2,16M(LI)2)H(H)7LI,V(V)M(LI)5::7939,I(H):7940:6601 S$(S$,(S$)LT):VV1:LI1VV1: 620` ::::(7);"WORD TOO LONG": L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0 9000: 45126,17:5127,30:5128,78:5129,186:5120: 55126,1:5127,30:5128,78:512(32)415 9 400:A$LO$A$HI$ANS(A$):B 420g bL(S$):LTCLJ0T$S$:690:p cHLJ l7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905: vLTTC11:X$(S$,LT,1):X$SP$X$"-"670 ZS$(S$,LT(X$SP$)):ZP%1:900  ALG.1.7 - SJW - V.102289+99002XI16:TY$(I)::I116:D$(I):I17:J15:C$(I,J):::J15:C(7,J)(C$(7,J)):T2$"Problem Solving"9600MODE(1)::15:B0:200016368,0:390:A$: 400:A$ncil and paper to calculate your answer.","Enter the final answer only.","Define the variables:","The correct answer is"h"Now write the equation.","Look at the correct answer:","Solve the equation:","John's","Jack's","Adam's","Matt's","Bob's","Ray's","Jim's","Phil's"p" age is ","than"," times ",". The sum of their ages is ","sum is "," drove his car at "" mph. "," hours later "," drove from the same point at "," mph. How long did it take him to catch up?"I" has "," coins in "," and ",".:AN$"":470$ (AN$)(RA)4866 C5:838:432\ NX$"redo"NX$"":908:VV0:480 (A$(13)AN$"")(AN$RA$)RA(AN$):C0:838 481 MODE(1):AN$RA$RIRI1: MO%3KI%2VV0: (7);:836:KI%3FA$RA$ 908:1100"C0:838:FF$A$:1130:AN$AN$A$:HH2:VV0:q A$"="KI%2C0:838:FF$A$:1130:AN$AN$A$:HH2:VV0:~ (7);: 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: MODE(2):907:836NX$"redo"A$(13)ıj (A$VA$(1)A$VA$(2)A$VA$(3))C0:838:FF$A$:1120:AN$AN$A$:HH2:VV1: A$"0"A$"9"VV1C0:838:FF$A$:1190:AN$AN$A$:HH1: A$"0"A$"9"C0:838:FF$A$:1120:AN$AN$A$:HH2:VV0:1 A$"-"A$"+4)0: 16368,0:( 390:A$:K 390:A$:A$(127)NX$"redo"Q i 400:A$(32)415o  400:A$"1"A$HI$AN(A$):HI$"9": (7);:420 400:A$LO$A$HI$LO$"2":AN(A$): 430 402:S$A$:500:A$S$ " ALG.1.5.4 - SJW - V.102289-99007c9600WMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$5MO%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)16V17(3(KI%2)):690@ ^SC%(UN%,KI%,(MO%2)%&'()*+,-./012345S/RECORDaI14 aJ15FaSC%(I,J,1)0SC%(I,J,5)3:25030yaSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:25030aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030aSC%(I,J,5)2a:e"Press ANY Key":H(21(ZS$))4,100:9100?&16368,0:A$\&::(4);"VERIFY ";ZF$&ZF%0:216,0::(4);"-";ZF$:' ERROR TRAP FOR DISK FLIP'216,0:822:9965a SCORE TRACKING ROUTINE a " OPEN CDFILE$ FOR READING, 166 BYTEOR DISK FLIP &216,0:9990*&99815&9990c&5126,1:5127,30:5128,78:5129,186:5120&ZF%1ZS$"Check Disk Drive":9972&ZS$"Flip Disk"&:MODE(2):12:B0:H(21(ZS$))4,55:9100-&ZS$"and":H(21(ZS$))4,75:9100:ZS$(V)((V1)8)$%X(X)(X74):%Y(Y)(Y2425)f%C(C)(C0)0(C1)6(C2)1(C3)15%M(X)((X2)(X2))2%N(I)(((I3)(I3))3)%& CONTROL-C TRAPPING&((218)(219)256)9220Č822:9225&& TRAP F,0:(4849)9230,9240,9250,9260,9270:4352@ $4848,(4849):X$1,64::SCR.UN.PACp$1,98::SCR.U1.PAC"$1,118::SCR.U2.PAC,$1,73::SCR.KI.PAC6$:SCR.MO.PAC% * FUNCTION DEFINITIONS *%H(H)(H1)14%I(H)(H1)2%VBLE HI-RES SCREEN, MODE(1)--#Z9(1):840[2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:a## DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)#Z9(1)#ZS$;#ZP%1ĺ#ZP%0## COMPRESSION BUFFER MANAGER#Z9(1),$0 Their total value is $",". How many coins of each type does he have ?""sum is ","product is "," consecutive ","integers whose ",1,2,3,4,5,"half dollars","quarters","dimes","nickels","pennies",.50,.25,.10,.05,.01(# DRAW CHARACTERS ON DOU:A J$"":II1(S$):QR((S$,II,1)):QR64QR91QRQR32[ J$J$(QR)::S$J$:z (PL$,1)"-"PL$"+"PL$  bL(S$):LTCLJ0T$S$:690: cHLJ l7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905:vLTTC11:X$(S$,LT,1):X$SP$X$"-"670FZS$(S$,LT(X$SP$)):ZP%1:9000:660oS$(S$,(S$)LT):VV1:LI1VV1x620::::(7);"WORD TOO LONG":L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0:9000:ZP%1:9000:f826 LJ0:TC34:S$WD$:610:VV2:S$"Mode Selection":610:V11:I114:7939,6:7940,V(V):ZS$MZ$(I1)" "CH$(I1):9000:VV2:7939,6:7940,152:ZS$"Your choice? (1-4) ":9000:HI$"4":420:ZS$A$:9000:MO%AN:A$"4"MO%0:ZF$"ALG.1.5":9950" (H):7940,V(V):9000:YMODE(1):7939,I(H):7940,V(V)4:ZS$FF$:9000:MODE(2):15:H(H),V(V)4:ZS$FF$:9100:: DRAW.EXPONENTMO%42105MO%0:PG%0:KI%4:912:891ZS$T1$:876:ZS$T2$:875:15H14:WD$TY$(KI%) V"FF$"z"İ1120:VV1:HH2:11106VFF:MODE(1):^`9:ZS$FF$:H(H)4,V(V):9100:j13:ZS$FF$:H(H)4,V(V):9100:t9:ZS$FF$:((H1)72),V(V):9100:C(C):ZS$FF$:FL%0į((H1)72),V(V):9100:MODE(1):7939,IFF$"%":1130:HH2:1110BNFF$")"FF$"("İ1130:HH2:1110tO(FF$)48(FF$)57VV1İ1190:HH1:1110PFF$"."VV0:1110QFF$"/"FF$"="FF$"+"FF$"-"İ1130:HH2:1110S(FF$)48(FF$)57VV0İ1120:HH2:1110#TFF$"a:C$(3,3)C$(2,1)"."C$(2,2)"."C$(2,3)CC$(3,1)C$(1,1)"."C$(1,2)"."C$(1,3)".":C$(3,2)VA$(1)(J(6)2)"."J$(2)VA$(1)(J(6)1)"."J$(3)VA$(1)J$(6)EC$(3,4)J$(1)VA$(1)J$(6)GLMODE(2):FF1(FA$):FF$(FA$,FF,1)MFF$"*"(6))1J$(6)""V>II89:PL$J$(II):523:J$(II)PL$::II13:C$(1,II)VA$(1)"2"@C$(1,2)J$(2)VA$(1):C$(1,3)J$(3)::II13:C$(2,II)J$(6II)VA$(I)J$(9II):*BC$(2,1)J$(7)VA$(1)J$(10):C$(2,2)J$(8)VA$(1)J$(11):C$(2,3)J$(9)VA$(1)J$(6)41075e3N95:DI23:999:J(DI)I:995:J(DI)J(DI)SG::N915:999:J(1)I1:J(4)S:J(5)18N96:999:J(6)I:I89:J(I)J(I6)J(1)::J(7)J(1):I1011:J(I)J(I6)J(6)::NN11:998:NN3:992:NN1:998:(J(2))1J$(2)(J$(2),1)=(J9:VV9:4849,1:9200:QI1NN:J$(I)(J(I)):J(I)0J$(I)"+"J$(I)Y:N99:999:SG$"+":SG1:N(I)1SG$"-":SG1I1NN:J$(I)(J(I))::I((1)N9)1: N812:999:IJ13:VA$(IJ)SS$(IIJ):VV(IJ)(IIJ)::KI%897ZS$ZS$" "(PG%))9000:822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:V8(7940)81:H8(7939)21:V9(7940)81:H9(7939)21:V9V:H9H: HH5120:>k7969,22:7939,45(ZS$):7940,17:9000:7969,8:sl7969,22:7939,45(ZS$):7940,5:9000:7969,8:yz{15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%):893|ZS$ZS$" "}9000:7939,2:7940,15:ZS$"M"(MO%):MO%414,V(V91)ZI::15:WD5126,I(H9):5127,V(V)5:5128,76:5129,V(V1):5120:FC(C):MODE(2):ZI01:H(H)4,V(V)6ZIH(H)47,V(V)6ZI:ZI:15:H5126,2:5127,33:5128,77:5129,70:5120:I5126,3:5127,76:5128,76:5129,165:4TT20NX$"fd":729$NX$"bk"/822:W RIGHT ARROW OR SPACE BAR SELECTEDPG%9((MO%4)(TT20))NX$"fd":739NX$"bk"822:615:B15:MODE(2):5,178:19);:MODE(1):B0:CC(C):ZI01:H(H9),V(V91)ZIH(H9)E(1)GMO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)MO%4TT20įMODE(2):56,178:ZS$"Menu":9100:MODE(1)15:B0ZA$"":ZA$ZA$(8)720(ZA$(21))(ZA$(32))730710 LEFT ARROW SELECTEDMO%2:NX$"":ZS$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1): " DRAW ARROWSuMO%4704ZS$"Menu":MODE(2):18,178:9100:MODE(1):PG%9įMODE(2):90,178:9100:MODE(1):704ZS$"Problems":MODE(2):68,178:9100:MODMO%3SC%(UN%,KI%,(MO%2)4)0g91000:TL10:4849,3:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1:891:MO%3SC%(UN%,KI%,1)1>822:840:841?TC35:LI1:LJ4H3400:MO%4İ1000IMO%4ZF$"ALG.1.5":9950MNX$"fd"21304NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110>O2110VRPG%0:MO%3İ25000`S2000H TC33:LJ4:S$"Find the Greatest Common Factor:":7939,6:7940,V(6):ZS$S$:9000:FA$C$(3,3):V8:H21(FA$):VV0:1100M MO%3410,3500,3600,3600:ZR S" ALG.1.5.3 - SJW - V.102289-99007c9600WMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$5MO%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)16V17(3(KI%2)):690@ ^SC%(UN%,KI%,(MO%2)789:;<=>?@ABCDEFGHaSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030S)aSC%(I,J,5)2[)a:a)e4);"VERIFY ";ZF$5(&ZF%0:216,0::(4);"-";ZF$:Y(' ERROR TRAP FOR DISK FLIPo('216,0:822:9965(a SCORE TRACKING ROUTINE(aI1NU%(aJ14(aSC%(I,J,1)0SC%(I,J,5)3:25030(aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:25030B)5128,78:5129,186:5120A'&ZF%1ZS$"Check Disk Drive":9972U'&ZS$"Flip Disk"'&:MODE(2):12:B0:H(21(ZS$))4,55:9100'&ZS$"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:9100'&16368,0:A$(&::(M(X)((X2)(X2))28&%N(I)(((I3)(I3))3)W&%P(I)(((I5)(I5))5)]&%w&& CONTROL-C TRAPPING&&((218)(219)256)9220Č822:9225&&&& TRAP FOR DISK FLIP&&216,0:9990&&9981&&9990'&5126,1:5127,30:%6$:SCR.MO.PAC+%@$1,137::SCR.U3.PACK%% * FUNCTION DEFINITIONS *_%%H(H)(H1)14r%%I(H)(H1)2%%V(V)(V1)8%%X(X)(X74)%%Y(Y)(Y2425)%%C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)7&%#ZS$;$#ZP%1ĺ $#ZP%0&$#I$# COMPRESSION BUFFER MANAGERU$#Z9(1)$$0,0:(4849)9230,9240,9250,9260,9270,9280:4352$ $4848,(4849):$$1,64::SCR.UN.PAC$$1,98::SCR.U1.PAC$"$1,118::SCR.U2.PAC%,$1,73::SCR.KI.PACTC35:LJ6:V18:610:905:908:HH1:VV0:1100<#j700:v#(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)#-#Z9(1):840#2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:#### DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)##Z9(1) $H1:FA$C$(3,4):RA$FA$:RA(FA$)1:480:7939,I(H):7940,V(V):ZS$".":9000\"700:r"PG%1MO%3İ350"RI0:S$D$(16):TC28:V12:LJ6:LI2:610:905:908:HH1:FA$C$(3,4):RA$FA$:RA(FA$)1:VV0:480:RI13650"300:36901#BS$D$(1):)":VV0:1100:V16:7939,I(LJ):7940,V(V):ZS$D$(15):9000:905:908:HH1:FA$VA$(1):1100:7939,I(H):ZS$".":9000! FA$VA$(1)J$(6):RA$FA$:RA(RA$)1:V18:H8:VV1:480:FA$"("C$(3,1)")":1100Q" 840:S$D$(16):TC28:V6:LI2:610:905:908:H$):VV0:1100:900 p 840:S$D$(16):TC28:V6:LJ6:LI2:610:905:908:HH1:FA$C$(3,4):VV0:1100:7939,I(H):7940,V(V):ZS$".":9000 700: S$D$(14):TC35:LJ3:V12:610:FA$J$(1):RA$FA$:RA(RA$)1:V14:H8:VV0:480y! FA$"("C$(3,2)"$D$(14):TC35:LJ3:V12:610:FA$J$(1)"("C$(3,2)")":V14:H20(FA$):VV0:1100:900\ V16:S$D$(15):7939,I(LJ):7940,V(V):ZS$S$:9000:905:908:HH1:FA$VA$(1):1100:7939,I(H):ZS$".":9000:FA$VA$(1)J$(6)"("C$(3,1)")" f V18:H21(FA4)0: 16368,0:( 390:A$:K 390:A$:A$(127)NX$"redo"Q i 400:A$(32)415o  400:A$"1"A$HI$AN(A$):HI$"9": (7);:420 400:A$LO$A$HI$LO$"2":AN(A$): 430 402:S$A$:500:A$S$ NX$"redo"A$(13)ıj (A$VA$(1)A$VA$(2)A$VA$(3))C0:838:FF$A$:1120:AN$AN$A$:HH2:VV1: A$"0"A$"9"VV1C0:838:FF$A$:1190:AN$AN$A$:HH1: A$"0"A$"9"C0:838:FF$A$:1120:AN$AN$A$:HH2:VV0:1 A$"-"A$"+$(I)J$(I)::C$(7,4)"">I13:C$(7,4)C$(7,4)C$(I,4):kPR$"("C$(7,1)")"J$(4):AN$(1)C$(7,4)xKI%2ıN96:I112:999:J(I1)I1::J(3)J(1)J(2):NN3:998I13:C(1,I4)J(I):C$(1,I4)J$(I):0$I13:C(3,I4)J(I6):C$(3,I43:IJ13:C$(7,CO)C$(7,CO)C$(3CO,IJ):::999:PIM(I)1P1$C$(7,1)"*"C$(7,2):I13:AN$(I)C$(7,I)::I46:AN$(I)C$(6,I3)::I79:AN$(I)C$(6,I6):N99:999:EXI1:I13:J(I)C(I,1)EX::J(4)EX:NN4:998:I14:C(I,4)J(I):C$(I,4)VACO1:I13:J12:C(I,J)J(CO):C$(I,J)J$(CO):COCO1:::CO7fI13:C(I,3)J(CO):J(I)91001C$(I,3)J$(CO):COCO1::J13:IJ46:C$(IJ,J)VA$(J)C$(J,IJ3)::J13:IJ46:C$(IJ,J)VA$(J)C$(J,IJ3)::=J13:C$(7,J)""::CO1H:HH9:VV9:*4849,1:9200:HI1NN:J$(I)(J(I))::]I((1)N9)1:N812:999:IJ13:VA$(IJ)SS$(IIJ):VV(IJ)(IIJ)::KI%41075DI16:N95:999:J(DI)I1::CO1:DI162:J(6CO)J(DI)J(DI1):COCO1::NN9:998A(MO%):MO%4897)ZS$ZS$" "(PG%)59000:822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:V8(7940)81:H8(7939)21:V9(7940)81:H9(7939)21:V9V:H9:5129,165:5120:Jk7969,22:7939,45(ZS$):7940,17:9000:7969,8:l7969,22:7939,45(ZS$):7940,5:9000:7969,8:z{15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%):893|ZS$ZS$" "}9000:7939,2:7940,15:ZS$"M"H9):5127,V(V)5:5128,76:5129,V(V1):5120:FC(C):MODE(2):ZI01:H(H)4,V(V)6ZIH(H)47,V(V)6ZI:ZI:15:H5126,2:5127,33:5128,77:5129,70:5120:I5126,3:5127,76:5128,76:5129,165:5120:N5126,3:5127,142:5128,76822:2 RIGHT ARROW OR SPACE BAR SELECTED]PG%9((MO%4)(TT20))NX$"fd":739jNX$"bk"u822:615:B15:MODE(2):5,178:19);:MODE(1):B0:CC(C):ZI01:H(H9),V(V91)ZIH(H9)14,V(V91)ZI::15:2D5126,I(78:ZS$"Problems":9100:MODE(1)_MO%4TT20įMODE(2):56,178:ZS$"Menu":9100:MODE(1)m15:B0}ZA$"":ZA$ZA$(8)720(ZA$(21))(ZA$(32))730710 LEFT ARROW SELECTEDMO%4TT20NX$"fd":729NX$"bk" 4,178:9100:ZS$"]}":123,178:9100:MODE(1): " DRAW ARROWSPMO%4704ZS$"Menu":MODE(2):18,178:9100:MODE(1):PG%9įMODE(2):90,178:9100:MODE(1):704ZS$"Problems":MODE(2):68,178:9100:MODE(1)"MO%4TT20įMODE(2):44,1$,LT(X$SP$)):ZP%1:9000:660JS$(S$,(S$)LT):VV1:LI1VV1S620y::::(7);"WORD TOO LONG":L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0:9000:ZP%1:9000:A822:NX$"":ZS$"{]":MODE(2):1:B15::A J$"":II1(S$):QR((S$,II,1)):QR64QR91QRQR32[ J$J$(QR)::S$J$: bL(S$):LTCLJ0T$S$:690: cHLJ l7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905: vLTTC11:X$(S$,LT,1):X$SP$X$"-"670!ZS$(S:AN$"":470$ (AN$)(RA)4866 C5:838:432\ NX$"redo"NX$"":908:VV0:480 (A$(13)AN$"")(AN$RA$)RA(AN$):C0:838 481 MODE(1):AN$RA$RIRI1: MO%3KI%2VV0: (7);:836:KI%3FA$RA$ 908:1100"C0:838:FF$A$:1130:AN$AN$A$:HH2:VV0:q A$"="KI%2C0:838:FF$A$:1130:AN$AN$A$:HH2:VV0:~ (7);: 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: MODE(2):907:836)J$(I6)::I13:C$(5,I)C$(2,I4)C$(5,I):i)I157:C$(7,I1)C$(1,I1)C$(7,I14)::J13:I13.C$(J,I)VA$(J)C$(J,I)::/I46:C$(7,I1)C$(1,I1):J12:C$(7,I1)C$(7,I1)C$(I,J):: 0PR$C$(7,6):P1$C$(7,7):AN$(1)C$(7,5):(AN$(1))7100013ALMODE(2):FF1(FA$):FF$(FA$,FF,1)hMFF$"*"FF$"%":1130:HH2:1110NFF$")"FF$"("İ1130:HH2:1110O(FF$)48(FF$)57VV1İ1190:HH1:1110PFF$"."VV0:1110QFF$"/"FF$"="FF$"+"FF$"-"İ11AP FOR DISK FLIP$(&216,0:9990.(&99819(&9990g(&5126,1:5127,30:5128,78:5129,186:5120(&ZF%1ZS$"Check Disk Drive":9972(&ZS$"Flip Disk"(&:MODE(2):12:B0:H(21(ZS$))4,55:91001)&ZS$"and":H(21(ZS$))4,75:9100:C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)7g'%M(X)((X2)(X2))2'%N(I)(((I3)(I3))3)'%P(I)(((I5)(I5))5)'%'& CONTROL-C TRAPPING'&((218)(219)256)9220Č822:9225'&(& TRPAC&$1,98::SCR.U1.PAC6&"$1,118::SCR.U2.PACN&,$1,73::SCR.KI.PAC`&6$:SCR.MO.PACy&@$1,137::SCR.U3.PAC&% * FUNCTION DEFINITIONS *&%H(H)(H1)14&%I(H)(H1)2&%V(V)(V1)8&%X(X)(X74)&%Y(Y)(Y2425)K'% %#A%# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)M%#Z9(1)W%#ZS$;d%#ZP%1ĺn%#ZP%0t%#%# COMPRESSION BUFFER MANAGER%#Z9(1)%$0,0:(4849)9230,9240,9250,9260,9270,9280:4352% $4848,(4849):&$1,64::SCR.UN.480$ 846:RI1İ300:3260c$ 7939,4:7940,V(20):ZS$D$(1):9000:905:908:HH1:VV0:1100$ VV0:HH1:V8:C0:1100$ 700:$(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)$-#Z9(1):840%2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:FA$C$(4,I3):RA$FA$:RA(FA$)1:480X#N V8:HH1:C0:838:C7:1100:H1H:I32İ838^#b i#v 700:# TC35:LJ3:S$D$(4):V19:610:S$D$(13):V12:610:S$D$(3):V14:610# RI0:PG%1MO%3İ350$ FA$C$(7,5):RA$FA$:RA(RA$)1:VV0:V17:H15:$(1,6)"=":V16:H20(FA$):1100:FA$C$(1,5):RA$FA$:RA(RA$)1|"& VV0:480:V8:HH1:C0:838:VV0:1100:H1H:C7:838"/ 841:S$D$(9):V19:610:7939,4:7940,V(12):ZS$D$(7):9000:I312:FA$C$(6,I3)"/"C$(5,I3)"=":H15:V10I32:VV0:1100'#0 :9000:I312:FA$C$(6,I3)"/"C$(5,I3)"="C$(4,I3)! H15:V10I32:VV0:1100:V8:FA$C$(4,I3):HH1:C0:838:VV0:1100:H1H:I32C7:838:900! ! 700:C" HH1:V8:C7:838:TC33:LJ6:S$D$(12)C$(1,6)".":V13:610:VV0:FA$C$(1,7)"/"C3200: HH1:V8:C7:838:TC33:LJ6:S$D$(12)C$(1,6)".":V13:610:VV0:VV2:FA$C$(1,7)"/"C$(1,6)"="C$(1,5):H15:1100 FA$C$(1,5):VV0:V8:HH1:C0:838:1100:H1H:C7:8387! 900:841:S$D$(9):V19:610:7939,4:V12:7940,V(V):ZS$D$(7)"fd"2130GNPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110QO2110iRPG%0:MO%3İ25000sS2000 TC35:LJ5:7939,8:7940,V(6):ZS$D$(13):9000:FA$PR$"(":V8:H3:VV0:1100:H1H:FA$")="P1$:HH8:VV0:1100 MO%3010,3100,3200,"ALG.1.5":99505 MO%3SC%(UN%,KI%,(MO%2)4)0z91000:TL10:4849,3:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1:891:MO%3SC%(UN%,KI%,1)1>822:840:841?TC35:LI1:LJ4H3000:MO%4İ1000IMO%4ZF$"ALG.1.5":9950 MNX$:WD$TY$(KI%) V6 LJ0:TC34:S$WD$:610:VV2:S$"Mode Selection":610:V11:I114:7939,6:7940,V(V):ZS$MZ$(I1)" "CH$(I1):9000:VV2:7939,6:7940,152:ZS$"Your choice? (1-4) ":9000:HI$"4":420:ZS$A$:9000:MO%AN:A$"4"MO%0:ZF$9C(C):ZS$FF$:FL%0į((H1)72),V(V):9100:fMODE(1):7939,I(H):7940,V(V):9000:MODE(1):7939,I(H):7940,V(V)4:ZS$FF$:9000:MODE(2):MO%42105MO%0:PG%0:KI%3:912:891ZS$T1$:876:ZS$T2$:875:15H1430:HH2:1110BS(FF$)48(FF$)57VV0İ1120:HH2:1110pTFF$"a"FF$"z"İ1120:VV1:HH2:1110VFF:MODE(1):`9:ZS$FF$:H(H)4,V(V):9100:j13:ZS$FF$:H(H)4,V(V):9100:t9:ZS$FF$:((H1)72),V(V):9100:ZS$"Press ANY Key":H(21(ZS$))4,100:9100C)&16368,0:A$`)&::(4);"VERIFY ";ZF$)&ZF%0:216,0::(4);"-";ZF$:)' ERROR TRAP FOR DISK FLIP)'216,0:822:9965)a SCORE TRACKING ROUTINE)aI1NU%)aJ14*aSC%(I,J,1)0SC%(I,J,5)3:25030L*aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:25030*aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030*aSC%(I,J,5)2*a:*eH(H9),V(V91)ZIH(H9)14,V(V91)ZI::15:rD5126,I(H9):5127,V(V)5:5128,76:5129,V(V1):5120:FC(C):MODE(2):ZI01:H(H)4,V(V)6ZIH(H)47,V(V)6ZI:ZI:15:H5126,2:5127,33:5128,77:5129,70:5120:#I5126,3:5FT ARROW SELECTED2MO%4TT20NX$"fd":729?NX$"bk"J822:r RIGHT ARROW OR SPACE BAR SELECTEDPG%9((MO%4)(TT20))NX$"fd":739NX$"bk"822:615:B15:MODE(2):5,178:19);:MODE(1):B0:4CC(C):ZI01:MODE(2):68,178:9100:MODE(1)bMO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)MO%4TT20įMODE(2):56,178:ZS$"Menu":9100:MODE(1)15:B0ZA$"":ZA$ZA$(8)720(ZA$(21))(ZA$(32))730710 LEZP%1:9000:822:NX$"":ZS$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1): " DRAW ARROWSMO%4704ZS$"Menu":MODE(2):18,178:9100:MODE(1):PG%9įMODE(2):90,178:9100:MODE(1):704!ZS$"Problems":6vLTTC11:X$(S$,LT,1):X$SP$X$"-"670aZS$(S$,LT(X$SP$)):ZP%1:9000:660S$(S$,(S$)LT):VV1:LI1VV1620::::(7);"WORD TOO LONG":L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0:9000:%3KI%2VV0:3 (7);:836:KI%3FA$RA$D 908:1100: J$"":II1(S$):QR((S$,II,1)):QR64QR91QRQR32 J$J$(QR)::S$J$: bL(S$):LTCLJ0T$S$:690: cHLJl7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905:ZS$" to Erase":1:9100:MODE(1):15:B0:S MODE(2):907:836:AN$"":470i (AN$)(RA)486{ C5:838:432 NX$"redo"NX$"":908:480 (A$(13)AN$"")(AN$RA$)RA(AN$):C0:838 481 MODE(1):AN$RA$RIRI1: MO"9"C0:838:FF$A$:1120:AN$AN$A$:HH2:VV0:v A$"-"A$"+"C0:838:FF$A$:1130:AN$AN$A$:HH2:VV0: A$"="KI%2C0:838:FF$A$:1130:AN$AN$A$:HH2:VV0: (7);:0 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:$A$HI$LO$"2":AN(A$):' 430A 402:S$A$:500:A$S$\ NX$"redo"A$(13)ı (A$VA$(1)A$VA$(2)A$VA$(3))C0:838:FF$A$:1120:AN$AN$A$:HH2:VV1: A$"0"A$"9"VV1C0:838:FF$A$:1190:AN$AN$A$:HH1:5 A$"0"A$4)0: 16368,0:( 390:A$:K 390:A$:A$(127)NX$"redo"Q  400:A$"Y"A$"y"A$"N"A$"n"ZS$A$:9000: (7);:410 400:A$(32)415  400:A$"1"A$HI$AN(A$):HI$"9": (7);:420 400:A$LO" ALG.1.5.2 - SJW - V.102289-99007c9600WMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$5MO%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)16V17(3(KI%2)):690@ ^SC%(UN%,KI%,(MO%2)JKLMNOPQRSTUVWXY127,76:5128,76:5129,165:5120:Yk7969,22:7939,45(ZS$):7940,17:9000:7969,8:l7969,22:7939,45(ZS$):7940,5:9000:7969,8:z{15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%):893|ZS$ZS$" "!}9000:7939,2:7940,15:ZS$"M"(MO%):MO%48978ZS$ZS$" "(PG%)D9000:822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:V8(7940)81:H8(7939)21:V9(7940)81:H9(7939)2L1(ZS$):7941,((ZS$,ZL,1)):7936:/"#g"# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)s"#Z9(1)}"#ZS$;"#ZP%1ĺ"#ZP%0"#"# COMPRESSION BUFFER MANAGER"#Z9(1)"$0,0:(4849)9230,9240,9250,9260,9270,9280:4352#7,4):RA$FA$:RA(RA$)1:RI0:480:841:RI1İ300! RI1LJ7:V19:S$D$(10):610:V12:I413:FA$"("C$(4,I4)")"J$(4)"="C$(I4,4):H15:VV0:1100:VV2:!J 700:!(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)!-#Z9(1):840)"2#ZV2::7939,10:7940,V(8):ZS$D$(1):9000:905:908:HH2:FA$C$(7,4):VV0:1100^ 700: V12:T$D$(3):690:LJ3:TC34:VV3:S$D$(5):610:V19:S$D$(4):610 RI0:PG%1MO%3İ3504! 7939,4:7940,V(8):ZS$D$(1):9000:905:908:HH2:FA$C$(7939,10:7940,V(8):ZS$D$(1):9000:905:908:HH2:FA$C$(7,4):VV0:1100X 700:p S$D$(10):V19:610 7939,6:V12:7940,V(V):ZS$D$(11):9000:I413:FA$"("C$(4,I4)")"J$(4)"=":H15:VV0:1100:FA$C$(I4,4):RA$FA$:RA(RA$)1:480S V:ZS$D$(11):9000:TC32:LJ7E) FA$PR$:905:908:HH2:VV0:1100d- MO%2610,2700,2800,2800:|2 S$D$(10):V19:610< 7939,6:V12:7940,V(V):ZS$D$(11):9000:I413:FA$"("C$(4,I4)")"J$(4)"="C$(I4,4):H15:VV0:1100:VV2:I43İ900MF :C%(UN%,KI%,1)1$>822:840:8418?TC35:LI1:LJ4OH2600:MO%4İ1000nIMO%4ZF$"ALG.1.5":9950MNX$"fd"2130NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110O2110RPG%0:MO%3İ25000S2000( 7939,10:7940,V(6)9000:VV2:7939,6:7940,152:ZS$"Your choice? (1-4) ":9000:HI$"4":420:ZS$A$:9000:MO%AN:A$"4"MO%0:ZF$"ALG.1.5":9950 MO%3SC%(UN%,KI%,(MO%2)4)091000:TL10:4849,3:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1:891:MO%3S4:ZS$FF$:9000:MODE(2):,MO%42105LMO%0:PG%0:KI%2:912:891oZS$T1$:876:ZS$T2$:875:15H14:WD$TY$(KI%) V6 LJ0:TC34:S$WD$:610:VV2:S$"Mode Selection":610:V11:I114:7939,6:7940,V(V):ZS$MZ$(I1)" "CH$(I1):ZS$FF$:H(H)4,V(V):9100:Jj13:ZS$FF$:H(H)4,V(V):9100:wt9:ZS$FF$:((H1)72),V(V):9100:C(C):ZS$FF$:FL%0į((H1)72),V(V):9100:MODE(1):7939,I(H):7940,V(V):9000:MODE(1):7939,I(H):7940,V(V)1107O(FF$)48(FF$)57VV1İ1190:HH1:1110OPFF$"."VV0:1110QFF$"/"FF$"="FF$"+"FF$"-"İ1130:HH2:1110S(FF$)48(FF$)57VV0İ1120:HH2:1110TFF$"a"FF$"z"İ1120:VV1:HH2:1110VFF:MODE(1):!`9:J(I):C$(I,4)VA$(I)J$(I)::C$(7,4)""MI13:C$(7,4)C$(7,4)C$(I,4):zPR$"("C$(7,1)")"J$(4):AN$(1)C$(7,4)KI%2ı3LMODE(2):FF1(FA$):FF$(FA$,FF,1)MFF$"*"FF$"%":1130:HH2:1110NFF$")"FF$"("İ1130:HH2:1,J)""::CO13:IJ13:C$(7,CO)C$(7,CO)C$(3CO,IJ):::999:PIM(I)1P1$C$(7,1)"*"C$(7,2):I13:AN$(I)C$(7,I)::I46:AN$(I)C$(6,I3)::I79:AN$(I)C$(6,I6):(N99:999:EXI1:I13:J(I)C(I,1)EX::J(4)EX:NN4:998:I14:C(I,4):NN9:998PCO1:I13:J12:C(I,J)J(CO):C$(I,J)J$(CO):COCO1:::CO7uI13:C(I,3)J(CO):J(I)91001C$(I,3)J$(CO):COCO1::J13:IJ46:C$(IJ,J)VA$(J)C$(J,IJ3)::J13:IJ46:C$(IJ,J)VA$(J)C$(J,IJ3)::LJ13:C$(71:V9V:H9H:%HH9:VV9:94849,1:9200:WI1NN:J$(I)(J(I))::lI((1)N9)1:N812:999:IJ13:VA$(IJ)SS$(IIJ):VV(IJ)(IIJ)::KI%41075 DI16:N95:999:J(DI)I1::CO1:DI162:J(6CO)J(DI)J(DI1):COCO1: $4848,(4849):+#$1,64::SCR.UN.PACC#$1,98::SCR.U1.PAC\#"$1,118::SCR.U2.PACt#,$1,73::SCR.KI.PAC#6$:SCR.MO.PAC#@$1,137::SCR.U3.PAC#% * FUNCTION DEFINITIONS *#%H(H)(H1)14#%I(H)(H1)2#%V(V)(V1)8 $%X(X)(X74)#$%Y(Y)(Y2425)q$%C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)7$%M(X)((X2)(X2))2$%N(I)(((I3)(I3))3)$%P(I)(((I5)(I5))5)$%$& CONTROL-C TRAPPING%&((218)(219)25ms":MODE(2):68,178:9100:MODE(1)gMO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)MO%4TT20įMODE(2):56,178:ZS$"Menu":9100:MODE(1)15:B0ZA$"":ZA$ZA$(8)720(ZA$(21))(ZA$(32))7307109000:ZP%1:9000:822:NX$"":ZS$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1): " DRAW ARROWSMO%4704ZS$"Menu":MODE(2):18,178:9100:MODE(1):PG%9įMODE(2):90,178:9100:MODE(1):704&ZS$"Proble905:;vLTTC11:X$(S$,LT,1):X$SP$X$"-"670fZS$(S$,LT(X$SP$)):ZP%1:9000:660S$(S$,(S$)LT):VV1:LI1VV1620::::(7);"WORD TOO LONG":L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0:MO%3KI%2VV0:8 (7);:836:KI%3FA$RA$I 908:1100: J$"":II1(S$):QR((S$,II,1)):QR64QR91QRQR32 J$J$(QR)::S$J$: bL(S$):LTCLJ0T$S$:690: cHLJl7939,I(H):7940,V(V):(S$)TCZS$S$:9000:ZS$" to Erase":1:9100:MODE(1):15:B0:X VV0:MODE(2):907:836:AN$"":470n (AN$)(RA)486 C5:838:432 NX$"redo"NX$"":908:480 (A$(13)AN$"")(AN$RA$)RA(AN$):C0:838 481 MODE(1):AN$RA$RIRI1: "9"C0:838:FF$A$:1120:AN$AN$A$:HH2:VV0:v A$"-"A$"+"C0:838:FF$A$:1130:AN$AN$A$:HH2:VV0: A$"="KI%2C0:838:FF$A$:1130:AN$AN$A$:HH2:VV0: (7);:0 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:$A$HI$LO$"2":AN(A$):' 430A 402:S$A$:500:A$S$\ NX$"redo"A$(13)ı (A$VA$(1)A$VA$(2)A$VA$(3))C0:838:FF$A$:1120:AN$AN$A$:HH2:VV1: A$"0"A$"9"VV1C0:838:FF$A$:1190:AN$AN$A$:HH1:5 A$"0"A$4)0: 16368,0:( 390:A$:K 390:A$:A$(127)NX$"redo"Q  400:A$"Y"A$"y"A$"N"A$"n"ZS$A$:9000: (7);:410 400:A$(32)415  400:A$"1"A$HI$AN(A$):HI$"9": (7);:420 400:A$LO" ALG.1.5.1 - SJW - V.102289-99007c9600WMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$5MO%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)16V17(3(KI%2)):690@ ^SC%(UN%,KI%,(MO%2)[\]^_`abcdefghijkl'aI1NU%'aJ14?'aSC%(I,J,1)0SC%(I,J,5)3:25030r'aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:25030'aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030'aSC%(I,J,5)2'a:'e&ZS$"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:9100i&&16368,0:A$&&::(4);"VERIFY ";ZF$&&ZF%0:216,0::(4);"-";ZF$:&' ERROR TRAP FOR DISK FLIP&'216,0:822:9965'a SCORE TRACKING ROUTINE6)9220Č822:9225%&8%& TRAP FOR DISK FLIPJ%&216,0:9990T%&9981_%&9990%&5126,1:5127,30:5128,78:5129,186:5120%&ZF%1ZS$"Check Disk Drive":9972%&ZS$"Flip Disk"%&:MODE(2):12:B0:H(21(ZS$))4,55:9100W& LEFT ARROW SELECTED7MO%4TT20NX$"fd":729DNX$"bk"O822:w RIGHT ARROW OR SPACE BAR SELECTEDPG%9((MO%4)(TT20))NX$"fd":739NX$"bk"822:615:B15:MODE(2):5,178:19);:MODE(1):B0:9CC(C):ZI01:H(H9),V(V91)ZIH(H9)14,V(V91)ZI::15:wD5126,I(H9):5127,V(V)5:5128,76:5129,V(V1):5120:FC(C):MODE(2):ZI01:H(H)4,V(V)6ZIH(H)47,V(V)6ZI:ZI:15:H5126,2:5127,33:5128,77:5129,70:5120:(I5126(7):9000:I313:FA$C$(6,I3)"/"C$(5,I3)"="C$(4,I3):H15:VV0:1100:VV2:I33İ900 :FA$"="C$(7,1):V7:HH1:VV0:1100 700: S$D$(7PI):V19:610:PI22350>! 7939,4:V12:7940,V(V):ZS$D$(6):9000:I413:FA$C$(4,I4)"*"C$(5,IPI222507939,4:V12:7940,V(V):ZS$D$(6):9000:I413:FA$C$(4,I4)"*"C$(5,I4)"="C$(6,I4):H15:VV0:1100:VV2:I43İ900:7939,4:7940,V(8):ZS$D$(1):9000:905:908:HH2:FA$C$(7,3):11002290[ 7939,4:V12:7940,V(V):ZS$D$17:PI2201,2202CFA$P1$:905:908:V6:HH1:VV0:1100:2205905:908:HH1:907:I321:FA$AN$(I):908:V6(I2)2:VV0:1100:H1H1:7:BOX((H1H9)14,1)H(H9),V(7)1:H1H2MO%2210,2300,2400,2400: S$D$(7PI):V19:610:?TC35:LI1:LJ4+H2200:MO%4İ1000JIMO%4ZF$"ALG.1.5":9950^MNX$"fd"2130NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110O2110RPG%0:MO%3İ25000S20007939,10:7940,V(5PI):ZS$D$(5PI):9000:TC32:LJ7:VS$"Your choice? (1-4) ":9000:HI$"4":420:ZS$A$:9000:MO%AN:A$"4"MO%0:ZF$"ALG.1.5":9950 MO%3SC%(UN%,KI%,(MO%2)4)091000:TL10:4849,3:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1:891:MO%3SC%(UN%,KI%,1)1>822:840:84142105(MO%0:PG%0:KI%1:912:891KZS$T1$:876:ZS$T2$:875:15aH14:WD$TY$(KI%)i V6 LJ0:TC34:S$WD$:610:VV2:S$"Mode Selection":610:V11:I114:7939,6:7940,V(V):ZS$MZ$(I1)" "CH$(I1):9000:VV2:c7939,6:7940,152:Z13:ZS$FF$:H(H)4,V(V):9100:St9:ZS$FF$:((H1)72),V(V):9100:C(C):ZS$FF$:FL%0į((H1)72),V(V):9100:MODE(1):7939,I(H):7940,V(V):9000:MODE(1):7939,I(H):7940,V(V)4:ZS$FF$:9000:MODE(2):MO%HH2:VV0:FV%0:1110JS(FF$)48(FF$)57VV0İ1120:HH2:1110xTFF$"a"FF$"z"İ1120:VV1:HH2:1110UFF$"-"HH(FF1VT1KI%3)2(VT1FV%0):1130:HH2:VV0:FV%0VFF:MODE(1):`9:ZS$FF$:H(H)4,V(V):9100:&j$"."VT1HH29MFF$"*"FF$"%":1130:HH2:1110`NFF$")"FF$"("İ1130:HH2:1110O(FF$)48(FF$)57VV1İ1190:HH1:FV%1:1110PFF$"."VV0:FV%0:1110QFF$"/"FF$"="İ1130:HH2:1110RFF$"+"HH(VT1FV%0):1130::C$(7,J)""::CO13:IJ13:C$(7,CO)C$(7,CO)C$(3CO,IJ):::999:PIM(I)1P1$C$(7,1)"*"C$(7,2):I13:AN$(I)C$(7,I)::I46:AN$(I)C$(6,I3)::I79:AN$(I)C$(6,I6)::KI%1ı3LMODE(2):FV%0:FF1(FA$):FF$(FA$,FF,1):FFO1::NN9:998UCO1:I13:J12:C(I,J)J(CO):C$(I,J)J$(CO):COCO1:::CO7zI13:C(I,3)J(CO):J(I)91001C$(I,3)J$(CO):COCO1::J13:IJ46:C$(IJ,J)VA$(J)C$(J,IJ3)::J13:IJ46:C$(IJ,J)VA$(J)C$(J,IJ3)::QJ139)21:V9V:H9H:*HH9:VV9:>4849,1:9200:\I1NN:J$(I)(J(I))::qI((1)N9)1:N812:999:IJ13:VA$(IJ)SS$(IIJ):VV(IJ)(IIJ)::KI%41075DI16:N95:999:J(DI)I1::CO1:DI162:J(6CO)J(DI)J(DI1):COC2:7940,15:ZS$"M"(MO%):MO%4897=ZS$ZS$" "(PG%)I9000:822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:V8(7940)81:H8(7939)21: V9(7940)81:H9(793,3:5127,76:5128,76:5129,165:5120:^k7969,22:7939,45(ZS$):7940,17:9000:7969,8:l7969,22:7939,45(ZS$):7940,5:9000:7969,8:z{15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%):893|ZS$ZS$" "&}9000:7939,4)"=":H15:VV0:1100:FA$C$(6,I4):RA$FA$:RA(RA$)1:480! VV2::7939,4:7940,V(8):ZS$D$(1):9000:905:908:HH2:FA$C$(7,3):1100!$ 2390#". 7939,4:V12:7940,V(V):ZS$D$(7):9000:I313:FA$C$(6,I3)"/"C$(5,I3)"=":H15:VV0:1100:FA$C$(4,I3):RA$FA$:RA(RA$)1:480S"L VV2::FA$"="C$(7,1):V7:HH1:VV0:1100^"V 700:"` V12:T$D$(3):690:LJ3:TC34:VV3:S$D$(5):610:V19:S$D$(4):610:PI22450"a RI0:PG%1MO%3İ350@#t 7939,10:7940,V(8):ZS$D$(1):9000:FA$C$(7,3)20* ::::(7);"WORD TOO LONG":l L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0x 9000: 45126,17:5127,30:5128,78:5129,186:5120: 55126,1:5127,30:5128,78:5129,168:5120: 615:B15:MODE(2):5,178:19);: 4201 bL(S$):LTCLJ0T$S$:690:: cHLJt l7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905: vLTTC11:X$(S$,LT,1):X$SP$X$"-"670 ZS$(S$,LT(X$SP$)):ZP%1:9000:660 S$(S$,(S$)LT):VV1:LI1VV1 6  ALG.1.5 - SJW - V.102289+99002XI16:TY$(I)::I116:D$(I):vT2$"Factoring Monomials"9600MODE(1)::15:B0:200016368,0:390:A$:400:A$(32)415 400:A$LO$A$HI$ANS(A$):nopqrstuvwx1)0SC%(I,J,5)3:25030M*aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:25030*aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030*aSC%(I,J,5)2*a:*e:ZS$"Press ANY Key":H(21(ZS$))4,100:9100D)&16368,0:A$a)&::(4);"VERIFY ";ZF$)&ZF%0:216,0::(4);"-";ZF$:)' ERROR TRAP FOR DISK FLIP)'216,0:822:9965)a SCORE TRACKING ROUTINE)aI1NU%)aJ14*aSC%(I,J,RAP FOR DISK FLIP%(&216,0:9990/(&9981:(&9990h(&5126,1:5127,30:5128,78:5129,186:5120(&ZF%1ZS$"Check Disk Drive":9972(&ZS$"Flip Disk"(&:MODE(2):12:B0:H(21(ZS$))4,55:91002)&ZS$"and":H(21(ZS$))4,75:9100%C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)7h'%M(X)((X2)(X2))2'%N(I)(((I3)(I3))3)'%P(I)(((I5)(I5))5)'%'& CONTROL-C TRAPPING'&((218)(219)256)9220Č822:9225'&(& T.PAC&$1,98::SCR.U1.PAC7&"$1,118::SCR.U2.PACO&,$1,73::SCR.KI.PACa&6$:SCR.MO.PACz&@$1,137::SCR.U3.PAC&% * FUNCTION DEFINITIONS *&%H(H)(H1)14&%I(H)(H1)2&%V(V)(V1)8&%X(X)(X74)&%Y(Y)(Y2425)L': %#B%# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)N%#Z9(1)X%#ZS$;e%#ZP%1ĺo%#ZP%0u%#%# COMPRESSION BUFFER MANAGER%#Z9(1)%$0,0:(4849)9230,9240,9250,9260,9270,9280:4352% $4848,(4849):&$1,64::SCR.UNRI12480w$ V19:S$D$(7PI):610:V12:I313:FA$C$(6,I3)"/"C$(5,I3)"="C$(4,I3):H15:VV0:1100:VV2::2490$ 300$ 700:$(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)$-#Z9(1):840%2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:905:908:HH1:RA$FA$:RA(RA$)1:RI0:480:841:RI12480#~ V19:841:S$D$(7PI):610:V12:I413:FA$C$(4,I4)"*"C$(5,I4)"="C$(6,I4):H15:VV0:1100:VV2::2490 $ FA$"=":V7:HH1:VV0:1100:FA$C$(7,1):RA$FA$:RA(RA$)1:RI0:480:841:MODE(1):B0:L =I11įMODE(2):15:H(H)43,V(V)12:"\";:MODE(1)y ?(SC%(UN%,I1,5)0)15C(SC%(UN%,I1,5)) @LI03:BOX(56LI2,16M(LI)2)H(H)7LI,V(V)M(LI)5::7939,I(H):7940,V(V):ZS$MZ$(I1):9000 A! k7969,22:7939,45(ZS$):7940,17:9000:7969,8:V l7969,22:7939,45(ZS$):7940,5:9000:7969,8: {15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%):893 |ZS$ZS$" " }9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897 ZS$ZS$" "(PG%) 90126,1:5127,30:5128,78:5129,186:5120Q&ZF%1ZS$"Check Disk Drive":9972e&ZS$"Flip Disk"&:MODE(2):12:B0:H(21(ZS$))4,55:9100&ZS$"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:9100&16368,0:%C(C)(C0)0(C1)6(C2)1(C3)15H%M(X)((X2)(X2))2g%N(I)(((I3)(I3))3)m%& CONTROL-C TRAPPING&((218)(219)256)9220Č822:9225&& TRAP FOR DISK FLIP&216,0:9990&9981&9990)&59):$1,64::SCR.UN.PAC6$1,98::SCR.U1.PACO"$1,118::SCR.U2.PACg,$1,73::SCR.KI.PACy6$:SCR.MO.PAC% * FUNCTION DEFINITIONS *%H(H)(H1)14%I(H)(H1)2%V(V)((V1)8)%X(X)(X74)%Y(Y)(Y2425),$):7941,((ZS$,ZL,1)):7936:'#_# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)k#Z9(1)u#ZS$;#ZP%1ĺ#ZP%0## COMPRESSION BUFFER MANAGER#Z9(1)$0,0:(4849)9230,9240,9250,9260,9270:4352 $4848,(484mplify:","Divide the coefficients by ","Find the missing factor."r"Find the GCF of the coefficients.","Find the highest power of","The Greatest Common Factor is"(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)-#Z9(1):840!2#ZL1(ZSlate your answer.","Enter the final answer."^"Multiply:","Divide:","To multiply powers with the same base, add the exponents.","To divide powers with the same base, subtract exponents."Ch"Multiply the exponents to simplify a power of a power.","SiENTS **J"Multiply/Divide Exponents","Powers of Exponents","Missing Factors","Finding the GCF","Factoring Monomials Test","Return to Algebra Menu".T"The answer is:","Enter the answer.","(Alphabetize the variables.)","Use a pencil and paper to calcu56:7940,V(V):ZS$"5":9000:7939,70:7940,V(V):ZS$(SC%(5,II,4)):9000:VV2:SC%(UN%,II,3)5:SC%(UN%,II,4)SC%(5,II,4):SC%(UN%,5,1)20:SC%(UN%,5,2)UC%:((UC%20)DT)SC%(UN%,5,5)2:4040SC%(UN%,5,5)1900:821: @ ** DATA STATEM2101$RUN%2:4000:PG%0:250004SMO%0:2000T FACTORING TEST RESULTS]821UC%0:7939,52:7940,40:ZS$"Tried":9000:7939,64:7940,40:ZS$"Correct":9000:V8:II14:7939,2:7940,V(V):UC%UC%SC%(5,II,4):ZS$TY$(II):9000~7939,ZF$"ALG.1.5.3":99506ZF$"ALG.1.5.4":9950@ PG%14UN%2:II14:SC%(UN%,II,3)5:SC%(UN%,II,4)0:SC%(5,II,3)0:SC%(5,II,4)0::UN%5:TT15KI%((R%(TT)1)5)19TL10:PG%TTH390:ZF%1:KI%2061,2062,2063,2064OTTTT1:TT20KI%AN:AN6H14:V6(2AN):WD$TY$(AN)TAN6ZF$"ALG.1.MENU":ZF%0:9950AN5MO%4:UN%5:ND%20:1500:II120:R%(II)TE%(II):TE%(II)0::2080 MO%0 ZF%1:KI%2061,2062,2063,2064 ZF$"ALG.1.5.1":9950ZF$"ALG.1.5.2":9950(H):7940,V(V):ZS$"CONTENTS":9000:V7:I115:H4:829hVV3::V8:I116:7939,18:7940,V(V)ZS$MZ$(I1):9000:S$TY$(I1):TC26:LJ14:LI1:610:VV2::7939,24:7940,V(V1):ZS$"Your choice? (1-6) ":9000:LO$"1":HI$"6":420:ZS$A$:9000-ZJ%ND%[ZI1ND%:ZK%((1)ZJ%1):TE%(ZJ%)SJ%(ZK%):SJ%(ZK%)SJ%(ZJ%):ZJ%ZJ%1:ZIaqMO%42127MO%0:PG%0:KI%0:913:891ZS$T1$:876:ZS$T2$:8756:I103:BOX(7I12,144M(I1)2)110I1,34M(I1):;V6:H20:7939,I00: 822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0: V9(7940)81:H9(7939)21: 4849,1:9200:  SHUFFLE ROUTINE TE%(1)0:SJ%1 ZI1ND%:SJ%(ZI)ZI:ZI A$"&::(4);"VERIFY ";ZF$E&ZF%0:216,0::(4);"-";ZF$:i' ERROR TRAP FOR DISK FLIP'216,0:822:9965a SCORE TRACKING ROUTINEa " OPEN CDFILE$ FOR READING, 166 BYTES/RECORDaI14aJ15 aSC%(I,J,1)0SC%(I,J,5)3:25030?aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:25030aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030aSC%(I,J,5)2a:eZI::15:LD5126,I(H9):5127,V(V)5:5128,76:5129,V(V1):5120:FC(C):MODE(2):ZI01:H(H)4,V(V)6ZIH(H)47,V(V)6ZI:ZI:15:H5126,2:5127,33:5128,77:5129,70:5120:I5126,3:5127,76:5128,76:5129,165:5120:.J"fd":729NX$"bk"$822:L RIGHT ARROW OR SPACE BAR SELECTEDwPG%9((MO%4)(TT20))NX$"fd":739NX$"bk"822:615:B15:MODE(2):5,178:19);:MODE(1):B0:CC(C):ZI01:H(H9),V(V91)ZIH(H9)14,V(V91)O%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)yMO%4TT20įMODE(2):56,178:ZS$"Menu":9100:MODE(1)15:B0ZA$"":ZA$ZA$(8)720(ZA$(21))(ZA$(32))730710 LEFT ARROW SELECTED MO%4TT20NX$$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1): " DRAW ARROWSjMO%4704ZS$"Menu":MODE(2):18,178:9100:MODE(1):PG%9įMODE(2):90,178:9100:MODE(1):704ZS$"Problems":MODE(2):68,178:9100:MODE(1)<MP$X$"-"670;ZS$(S$,LT(X$SP$)):ZP%1:9000:660dS$(S$,(S$)LT):VV1:LI1VV1m620::::(7);"WORD TOO LONG":L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0:9000:ZP%1:9000:[822:NX$"":ZS3FA$RA$ 908:1100:[ J$"":II1(S$):QR((S$,II,1)):QR64QR91QRQR32u J$J$(QR)::S$J$: bL(S$):LTCLJ0T$S$:690: cHLJ l7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905:vLTTC11:X$(S$,LT,1):X$S5:B0:- MODE(2):907:836:AN$"":470C (AN$)(RA)486U C5:838:432v NX$"redo"NX$"":908:480 (A$(13)AN$"")(AN$RA$)RA(AN$):C0:838 481 MODE(1):AN$RA$RIRI1: MO%3KI%2VV0: (7);:836:KI%:HH2:VV0:P A$"-"A$"+"C0:838:FF$A$:1130:AN$AN$A$:HH2:VV0: A$"="KI%2C0:838:FF$A$:1130:AN$AN$A$:HH2:VV0: (7);: 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):1402:S$A$:500:A$S$1 NX$"redo"A$(13)ı (A$VA$(1)A$VA$(2)A$VA$(3))C0:838:FF$A$:1120:AN$AN$A$:HH2:VV1: A$"0"A$"9"VV1C0:838:FF$A$:1190:AN$AN$A$:HH1:VV0: A$"0"A$"9"C0:838:FF$A$:1120:AN$AN$A$:# ^SC%(UN%,KI%,(MO%2)4)0:3 16368,0:B 390:A$:e 390:A$:A$(127)NX$"redo"k  400:A$(32)415  400:A$"1"A$HI$AN(A$):HI$"9": (7);:420 400:A$LO$A$HI$LO$"2":AN(A$): 430 " ALG.1.6.4 - SJW - V.102289-99007c9600WMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$5MO%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)16KI%3MO%2V8.5:690: 8V20(2(KI%4)):690z{|}~5126,3:5127,142:5128,76:5129,165:5120:dk7969,22:7939,45(ZS$):7940,17:9000:7969,8:l7969,22:7939,45(ZS$):7940,5:9000:7969,8:z{15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%):893|ZS$ZS$" ",}9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897CZS$ZS$" "(PG%)O9000:822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:V8(7940)81:H8(7939)21:V9(7940)81:H9:SCR.MO.PAC("@$1,137::SCR.U3.PACH"% * FUNCTION DEFINITIONS *\"%H(H)(H1)14o"%I(H)(H1)2"%V(V)(V1)8"%X(X)(X74)"%Y(Y)(Y2425)"%C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)7#%MZS$;!#ZP%1ĺ!#ZP%0#!#F!# COMPRESSION BUFFER MANAGERR!#Z9(1)!$0,0:(4849)9230,9240,9250,9260,9270,9280:4352! $4848,(4849):!$1,64::SCR.UN.PAC!$1,98::SCR.U1.PAC!"$1,118::SCR.U2.PAC!,$1,73::SCR.KI.PAC"6$ degree of this monomial is "J$(4)".":6109 j700:s (# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1) -#Z9(1):840 2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936: # # DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2) #Z9(1)!# V20:S$"The degree of this monomial is "J$(4)".":610F 700:yV16:S$D$(3):610:905:908:PG%1MO%3İ350$FA$J$(4):RA$FA$:RA(RA$)1:RI0:VV0:HH1:480:842:RI1İ842:300:3690. `FA$S$(5):V18:H21(FA$):VV0:1100:V20:S$"The:TC35:LJ4:FA$S$(4):VV0:V8.5:H20(FA$):1100:V11:S$D$(11):610:V17lM MO%3410,3410,3600,3600:R S$D$(13):V20:610:FA$S$(5):VV0:V15:H20(FA$):MO%1İ1100:900:842:3480\ RA$FA$:RA(RA$)1:RI0:480:842:RI1İ842:300:3490;>822:840:841&?TC35:LI1:LJ4=H3400:MO%4İ1000\IMO%4ZF$"ALG.1.6":9950pMNX$"fd"2130NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110O2110RPG%0:MO%3İ25000S2000MH 7939,6:7940,V(5.5):ZS$D$(12):90007939,6:7940,152:ZS$"Your choice? (1-4) ":9000:HI$"4":420:ZS$A$:9000:MO%AN:A$"4"MO%0:ZF$"ALG.1.6":9950 MO%3SC%(UN%,KI%,(MO%2)4)091000:TL10:4849,3:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1:891:MO%3SC%(UN%,KI%,1)1MO%42105.MO%0:PG%0:KI%4:912:891QZS$T1$:876:ZS$T2$:875:15sH14:V6(2KI%):WD$TY$(KI%){ V6 LJ0:TC34:S$WD$:610:VV2:S$"Mode Selection":610:V11:I114:7939,6:7940,V(V):ZS$MZ$(I1)" "CH$(I1):9000:VV2:u:((H1)72),V(V):9100:WC(C):ZS$FF$:FL%0į((H1)72),V(V):9100:MODE(1):7939,I(H):7940,V(V):9000:MODE(1):7939,I(H):7940,V(V)4:ZS$FF$:9000:MODE(2):15:H(H),V(V)4:ZS$FF$:9100:: DRAW.EXPONENT0İ1120:HH2:1110DTFF$"a"FF$"z"İ1120:VV1:HH2:1110UFF$"-"HH(FF1VT1KI%3)2(VT1FV%0):1130:HH2:VV0:FV%0VFF:MODE(1):`9:ZS$FF$:H(H)4,V(V):9100:j13:ZS$FF$:H(H)4,V(V):9100:t9:ZS$FF$110,NFF$")"FF$"("İ1130:HH2:1110dO(FF$)48(FF$)57VV1İ1190:HH1:FV%1:1110PFF$"."VV0:FV%0:1110QFF$"/"FF$"="İ1130:HH2:1110RFF$"+"HH(VT1FV%0):1130:HH2:VV0:FV%0:1110S(FF$)48(FF$)57VV$(I1):J(I1)0S$(I1)"":J$(I1)"":1083j9S$(4)S$(4)S$(I1):S$(5)S$(5)J$(I1):I13S$(5)S$(5)"+";:S$(4)J$(5)S$(4):S$(5)S$(5)"="J$(4):LMODE(2):FV%0:FF1(FA$):FF$(FA$,FF,1):FF$"."VT1HH2MFF$"*"FF$"%":1130:HH2:1 Z3VA$(2)SS$(VV(1)1):VA$(3)SS$(VV(1)2):VV(2)VV(1)1:VV(3)VV(1)25N96:I114:999:J(I1)I::995:J(5)(J(4)2)SG:J(4)0:I113:J(4)J(4)J(I1)::NN5:998*7S$(4)"":S$(5)"":I113:S$(I1)VA$(I1)J$(I1):J(I1)2S$(I1)VA(7939)21: V9V:H9H:0HH9:VV9:D4849,1:9200:vN99:999:SG$"+":SG1:N(I)1SG$"-":SG1|I1NN:J$(I)(J(I))::I((1)N9)1:I13:VA$(I)""::N913:999:VA$(1)SS$(I):VV(1)I:KI%1001,1025,1050,1075(X)((X2)(X2))25#%N(I)(((I3)(I3))3)T#%P(I)(((I5)(I5))5)Z#%t#& CONTROL-C TRAPPING#&((218)(219)256)9220Č822:9225#&#& TRAP FOR DISK FLIP#&216,0:9990#&9981#&9990$&5126,1:5127,30:5128,78:5129,186:5120>$&ZF%1ZS$"Check Disk Drive":9972R$&ZS$"Flip Disk"$&:MODE(2):12:B0:H(21(ZS$))4,55:9100$&ZS$"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:9100$&16368,0:A$%&::(4);O%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)yMO%4TT20įMODE(2):56,178:ZS$"Menu":9100:MODE(1)15:B0ZA$"":ZA$ZA$(8)720(ZA$(21))(ZA$(32))730710 LEFT ARROW SELECTED MO%4TT20NX$$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1): " DRAW ARROWSjMO%4704ZS$"Menu":MODE(2):18,178:9100:MODE(1):PG%9įMODE(2):90,178:9100:MODE(1):704ZS$"Problems":MODE(2):68,178:9100:MODE(1)<MP$X$"-"670;ZS$(S$,LT(X$SP$)):ZP%1:9000:660dS$(S$,(S$)LT):VV1:LI1VV1m620::::(7);"WORD TOO LONG":L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0:9000:ZP%1:9000:[822:NX$"":ZS3FA$RA$ 908:1100:[ J$"":II1(S$):QR((S$,II,1)):QR64QR91QRQR32u J$J$(QR)::S$J$: bL(S$):LTCLJ0T$S$:690: cHLJ l7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905:vLTTC11:X$(S$,LT,1):X$S5:B0:- MODE(2):907:836:AN$"":470C (AN$)(RA)486U C5:838:432v NX$"redo"NX$"":908:480 (A$(13)AN$"")(AN$RA$)RA(AN$):C0:838 481 MODE(1):AN$RA$RIRI1: MO%3KI%2VV0: (7);:836:KI%:HH2:VV0:P A$"-"A$"+"C0:838:FF$A$:1130:AN$AN$A$:HH2:VV0: A$"="KI%2C0:838:FF$A$:1130:AN$AN$A$:HH2:VV0: (7);: 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):1402:S$A$:500:A$S$1 NX$"redo"A$(13)ı (A$VA$(1)A$VA$(2)A$VA$(3))C0:838:FF$A$:1120:AN$AN$A$:HH2:VV1: A$"0"A$"9"VV1C0:838:FF$A$:1190:AN$AN$A$:HH1:VV0: A$"0"A$"9"C0:838:FF$A$:1120:AN$AN$A$:# ^SC%(UN%,KI%,(MO%2)4)0:3 16368,0:B 390:A$:e 390:A$:A$(127)NX$"redo"k  400:A$(32)415  400:A$"1"A$HI$AN(A$):HI$"9": (7);:420 400:A$LO$A$HI$LO$"2":AN(A$): 430 " ALG.1.6.3 - SJW - V.102289-99007c9600WMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$5MO%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)16KI%3MO%2V8.5:690: 8V20(2(KI%4)):690C%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030P&aSC%(I,J,5)2X&a:^&e"VERIFY ";ZF$2%&ZF%0:216,0::(4);"-";ZF$:V%' ERROR TRAP FOR DISK FLIPl%'216,0:822:9965%a SCORE TRACKING ROUTINE%aI1NU%%aJ14%aSC%(I,J,1)0SC%(I,J,5)3:25030%aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:25030?&aS"fd":729NX$"bk"$822:L RIGHT ARROW OR SPACE BAR SELECTEDwPG%9((MO%4)(TT20))NX$"fd":739NX$"bk"822:615:B15:MODE(2):5,178:19);:MODE(1):B0:CC(C):ZI01:H(H9),V(V91)ZIH(H9)14,V(V91)ZI::15:LD5126,I(H9):5127,V(V)5:5128,76:5129,V(V1):5120:FC(C):MODE(2):ZI01:H(H)4,V(V)6ZIH(H)47,V(V)6ZI:ZI:15:H5126,2:5127,33:5128,77:5129,70:5120:I5126,3:5127,76:5128,76:5129,165:5120:.J0:H21(I4)2:1100:VV2:900::7:BOX((S$(5))28,1)H(21),V(19)u S$S$(8):610:FA$S$(5):H21:VV0:1100  700:  VT1:V11:S$D$(9):610:I12:FA$S$(I):VV0:H20:V12(I2)2:1100: & 7:BOX((FA$" ")28,1)H(20),V(15):V16O!0 $"("S$(1)")*("S$(2)")":VV0:905:908:HH1:1100W MO%3010,3100,3200,3200: VT1:V11:S$D$(9):610:I12:FA$S$(I):VV0:H21:V12(I2)2:1100: 7:BOX((FA$" ")28,1)H(21),V(15):900:V16I I34:S$S$(I3):610:FA$S$(I):VV?TC35:LI1:LJ4*H3000:MO%4İ1000IIMO%4ZF$"ALG.1.6":9950]MNX$"fd"2130NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110O2110RPG%0:MO%3İ25000S20008 VT0:7939,6:7940,V(6.5):ZS$D$(14):9000:TC20:LJ3:FA$"Your choice? (1-4) ":9000:HI$"4":420:ZS$A$:9000:MO%AN:A$"4"MO%0:ZF$"ALG.1.6":9950 MO%3SC%(UN%,KI%,(MO%2)4)091000:TL10:4849,3:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1:891:MO%3SC%(UN%,KI%,1)1>822:840:841%0:PG%0:KI%3:912:891>ZS$T1$:876:ZS$T2$:875:15`H14:V6(2KI%):WD$TY$(KI%)h V6 LJ0:TC34:S$WD$:610:VV2:S$"Mode Selection":610:V11:I114:7939,6:7940,V(V):ZS$MZ$(I1)" "CH$(I1):9000:VV2:b7939,6:7940,152:ZSV):9100:DC(C):ZS$FF$:FL%0į((H1)72),V(V):9100:qMODE(1):7939,I(H):7940,V(V):9000:MODE(1):7939,I(H):7940,V(V)4:ZS$FF$:9000:MODE(2):15:H(H),V(V)4:ZS$FF$:9100:: DRAW.EXPONENTMO%42105MO01TFF$"a"FF$"z"İ1120:VV1:HH2:1110{UFF$"-"HH(FF1VT1KI%3)2(VT1FV%0):1130:HH2:VV0:FV%0VFF:MODE(1):`9:ZS$FF$:H(H)4,V(V):9100:j13:ZS$FF$:H(H)4,V(V):9100: t9:ZS$FF$:((H1)72),V($"("İ1130:HH2:1110QO(FF$)48(FF$)57VV1İ1190:HH1:FV%1:1110oPFF$"."VV0:FV%0:1110QFF$"/"FF$"="İ1130:HH2:1110RFF$"+"HH(VT1FV%0):1130:HH2:VV0:FV%0:1110S(FF$)48(FF$)57VV0İ1120:HH2:111w add!":S$(10)J$(12)VA$(1)J$(13).S$(7)"Multiply "J$(12)"("VA$(1)J$(11)")":S$(11)VA$(1)"2"J$(14)VA$(1)J$(13):3LMODE(2):FV%0:FF1(FA$):FF$(FA$,FF,1):FF$"."VT1HH2MFF$"*"FF$"%":1130:HH2:1110NFF$")"FFI),2)".":J(I)0J$(I)"..."$:S$(3)VA$(1)"2"J$(1)VA$(1):S$(4)J$(2)VA$(1)J$(3):S$(5)VA$(1)"2"J$(4)VA$(1)J$(3):S$(9)VA$(1)"2"J$(11)VA$(1)%)S$(1)VA$(1)J$(1):S$(2)VA$(1)J$(2):S$(6)"Multiply "VA$(1)"("VA$(1)J$(11)")":S$(8)"NoI:KI%1001,1025,1050,1075#)N96:DI12:999:J(DI)I1:995:J(DI)J(DI)SG::J(3)J(1)J(2):J(4)J(2)J(1):NN4:992I14:J$(10I)J$(I)::(J(4))21050I14:(J(I))10J$(I)(J$(I),1)"."(J$(I),1):(J(I))1J$(I)(J$((7939)21: V9V:H9H:0HH9:VV9:D4849,1:9200:wI1NN:J$(I)(J(I)):J(I)0J$(I)"+"J$(I):N99:999:SG$"+":SG1:N(I)1SG$"-":SG1I((1)N9)1:I13:VA$(I)""::N913:999:VA$(1)SS$(I):VV(1)7939,2:7940,15:ZS$"M"(MO%):MO%4897CZS$ZS$" "(PG%)O9000:822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:V8(7940)81:H8(7939)21:V9(7940)81:H95126,3:5127,142:5128,76:5129,165:5120:dk7969,22:7939,45(ZS$):7940,17:9000:7969,8:l7969,22:7939,45(ZS$):7940,5:9000:7969,8:z{15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%):893|ZS$ZS$" ",}9000:I34:S$S$(I3):610:FA$S$(I):VV0:H20(I4)3:RA$S$(I6):RA(RA$):480!: VV2::7:BOX((S$(5))28,1)H(20),V(19)!D S$S$(8):610:FA$S$(5):H20:VV0:RA$S$(11):RA(RA$):RI0:480:RI1İ300!v 700:@" LJ3:TC35:V11:S$D$(7):LI1:610:V19:S$D$(4):LI1:610:V13:S$D$(3):610:PG%1MO%3İ350" FA$S$(11):RA$FA$:RA(RA$)1:V15:H22RA:VV0:RI0:480:842:RI1İ300:3290" S$D$(1):7939,I(LJ):7940,V(20):ZS$S$:9000:905:908:HH1:VV0:1100" 700:)#(# DRAW CHAR7:836:AN$"":470* (AN$)(RA)486< C5:838:432] NX$"redo"NX$"":908:480 (A$(13)AN$"")(AN$RA$)RA(AN$):C0:838 481 MODE(1):AN$RA$RIRI1: MO%3KI%2VV0: (7);:836:KI%3FA$RA$ 908:110+"C0:838:FF$A$:1130:AN$AN$A$:HH2:VV0:r A$"="KI%2C0:838:FF$A$:1130:AN$AN$A$:HH2:VV0: (7);: 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: VV0:MODE(2):90"redo"A$(13)ıf (A$VA$(1)A$VA$(2)A$VA$(3))C0:838:FF$A$:1120:AN$AN$A$:HH2:VV1: A$"0"A$"9"VV1C0:838:FF$A$:1190:AN$AN$A$:HH1:VV0: A$"0"A$"9"C0:838:FF$A$:1120:AN$AN$A$:HH2:VV0:2 A$"-"A$"0: 16368,0:$ 390:A$:G 390:A$:A$(127)NX$"redo"M e 400:A$(32)415k  400:A$"1"A$HI$AN(A$):HI$"9": (7);:420 400:A$LO$A$HI$LO$"2":AN(A$): 430 402:S$A$:500:A$S$ NX$" ALG.1.6.2 - SJW - V.102289-99007c9600WMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$5MO%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)16V20(2(MO%2)):690: ^SC%(UN%,KI%,(MO%2)4)5)2)a:)e DISK FLIP"('216,0:822:9965@(a SCORE TRACKING ROUTINEM(aI1NU%X(aJ14~(aSC%(I,J,1)0SC%(I,J,5)3:25030(aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:25030(aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030)aSC%(I,J, Disk"='&:MODE(2):12:B0:H(21(ZS$))4,55:9100'&ZS$"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:9100'&16368,0:A$'&::(4);"VERIFY ";ZF$'&ZF%0:216,0::(4);"-";ZF$: (' ERROR TRAP FORI5))5)&%*&& CONTROL-C TRAPPINGS&&((218)(219)256)9220Č822:9225Y&&w&& TRAP FOR DISK FLIP&&216,0:9990&&9981&&9990&&5126,1:5127,30:5128,78:5129,186:5120&&ZF%1ZS$"Check Disk Drive":9972'&ZS$"Flip%H(H)(H1)14%%%I(H)(H1)28%%V(V)(V1)8L%%X(X)(X74)b%%Y(Y)(Y2425)%%C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)7%%M(X)((X2)(X2))2%%N(I)(((I3)(I3))3) &%P(I)(((I5)(9(1)>$$0,0:(4849)9230,9240,9250,9260,9270,9280:4352R$ $4848,(4849):j$$1,64::SCR.UN.PAC$$1,98::SCR.U1.PAC$"$1,118::SCR.U2.PAC$,$1,73::SCR.KI.PAC$6$:SCR.MO.PAC$@$1,137::SCR.U3.PAC$% * FUNCTION DEFINITIONS *%ACTERS ON DOUBLE HI-RES SCREEN, MODE(1):#-#Z9(1):840h#2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:n#### DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)##Z9(1)##ZS$;##ZP%1ĺ##ZP%0#### COMPRESSION BUFFER MANAGER$#Z0:B J$"":II1(S$):QR((S$,II,1)):QR64QR91QRQR32\ J$J$(QR)::S$J$: LP(PL$)((PL$,1)" "(PL$,1)"+"):PL$(PL$,LP): bL(S$):LTCLJ0T$S$:690: cHLJ l7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905:1vLTTC11:X$(S$,LT,1):X$SP$X$"-"670\ZS$(S$,LT(X$SP$)):ZP%1:9000:660S$(S$,(S$)LT):VV1:LI1VV1620::::(7);"WORD TOO LONG":L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0:9000:KI%2:912:8914ZS$T1$:876:ZS$T2$:875:15VH14:V6(2KI%):WD$TY$(KI%)^ V6 LJ0:TC34:S$WD$:610:VV2:S$"Mode Selection":610:V11:I114:7939,6:7940,V(V):ZS$MZ$(I1)" "CH$(I1):9000:VV2:X7939,6:7940,152:ZS$"Your ch:C(C):ZS$FF$:FL%0į((H1)72),V(V):9100:gMODE(1):7939,I(H):7940,V(V):9000:MODE(1):7939,I(H):7940,V(V)4:ZS$FF$:9000:MODE(2):15:H(H),V(V)4:ZS$FF$:9100:: DRAW.EXPONENTMO%42105MO%0:PG%0:H2:1110:TFF$"a"FF$"z"İ1120:VV1:HH2:1110qUFF$"-"HH(FF1VT1KI%3)2:1130:HH2:VV0VFF:MODE(1):`9:ZS$FF$:H(H)4,V(V):9100:j13:ZS$FF$:H(H)4,V(V):9100:t9:ZS$FF$:((H1)72),V(V):9100:*"FF$"%":1130:HH2:1110ENFF$")"FF$"("İ1130:HH2:1110wO(FF$)48(FF$)57VV1İ1190:HH1:1110PFF$"."VV0:1110QFF$"/"FF$"="İ1130:HH2:1110RFF$"+"İ1130:HH2:VV0:1110 S(FF$)48(FF$)57VV0İ1120:H(1,I1)PL$ SG$"+":I1I11::999:PIM(I)1:C$(2,1)C$(1,3):C$(2,2)C$(1,2):C$(2,3)C$(1,1):PI2SG$"-":C$(2,4)C$(1,4)((C$(PI,1))(C$(PI,2)))1710253LMODE(2):FF1(FA$):FF$(FA$,FF,1):FF$"."VT1HH2MFF$"I112:(J(I))10J$(I)(J$(I),1)"."(J$(I),1):(J(I))1((I3)(I3))J$(I)(J$(I),1)"..":(J$(I),1)"1"J$(I)".."J(I)01025  :I11:I1123:S$(I)J$(I)VA$(1)"2":S$(I1)J$(I1)VA$(1):S$(I2)J$(I2):PL$S$(I)S$(I1):522:C$::N913:999:VA$(1)SS$(I):VV(1)I:KI%1001,1025,1050,1075DxDI16:N97:999:J(DI)I2:995:J(DI)J(DI)SG:JJ7:I13:J(JJ)J(I)J(I3):JJJJ1::JJ10:I46:J(JJ)J(I)(1):JJJJ1:I152:J(JJ)J(I)J(I1):JJJJ1::NN12:9927939)21:1V9(7940)81:H9(7939)21:AV9V:H9H:QHH9:VV9:e4849,1:9200:I1NN:J$(I)(J(I)):J(I)0J$(I)"+"J$(I):N99:999:SG$"+":SG1:N(I)1SG$"-":SG1I((1)N9)1:>I13:VA$(I)""):893|ZS$ZS$" "M}9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897dZS$ZS$" "(PG%)p9000:822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0: V8(7940)81:H8(6:5128,76:5129,165:5120:OJ5126,3:5127,142:5128,76:5129,165:5120:k7969,22:7939,45(ZS$):7940,17:9000:7969,8:l7969,22:7939,45(ZS$):7940,5:9000:7969,8:z{15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%9),V(V91)ZIH(H9)14,V(V91)ZI::15:mD5126,I(H9):5127,V(V)5:5128,76:5129,V(V1):5120:FC(C):MODE(2):ZI01:H(H)4,V(V)6ZIH(H)47,V(V)6ZI:ZI:15:H5126,2:5127,33:5128,77:5129,70:5120:I5126,3:5127,7ROW SELECTED-MO%4TT20NX$"fd":729:NX$"bk"E822:m RIGHT ARROW OR SPACE BAR SELECTEDPG%9((MO%4)(TT20))NX$"fd":739NX$"bk"822:615:B15:MODE(2):5,178:19);:MODE(1):B0:/CC(C):ZI01:H(H2):68,178:9100:MODE(1)]MO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)MO%4TT20įMODE(2):56,178:ZS$"Menu":9100:MODE(1)15:B0ZA$"":ZA$ZA$(8)720(ZA$(21))(ZA$(32))730710 LEFT ARZP%1:9000:|822:NX$"":ZS$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1): " DRAW ARROWSMO%4704ZS$"Menu":MODE(2):18,178:9100:MODE(1):PG%9įMODE(2):90,178:9100:MODE(1):704ZS$"Problems":MODE(oice? (1-4) ":9000:HI$"4":420:ZS$A$:9000:MO%AN:A$"4"MO%0:ZF$"ALG.1.6":9950| MO%3SC%(UN%,KI%,(MO%2)4)091000:TL10:4849,3:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1:891:MO%3SC%(UN%,KI%,1)1>822:840:841 ?TC35:LI1:LJ4 H2600:MO%4İ1000?IMO%4ZF$"ALG.1.6":9950SMNX$"fd"2130NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110O2110RPG%0:MO%3İ25000S2000?( VT0:7939,6:7940,V(6):ZS$D$(4PI):9000:TC32:LJ5:FA$"("C$(P" ALG.1.6.1 - SJW - V.102289-99007c9600WMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$5MO%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)16V20(2(MO%2)):690: ^SC%(UN%,KI%,(MO%2)4)307(aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:25030{(aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030(aSC%(I,J,5)2(a:(eH(21(ZS$))4,100:9100.'&16368,0:A$K'&::(4);"VERIFY ";ZF$n'&ZF%0:216,0::(4);"-";ZF$:'' ERROR TRAP FOR DISK FLIP''216,0:822:9965'a SCORE TRACKING ROUTINE'aI1NU%'aJ14(aSC%(I,J,1)0SC%(I,J,5)3:250216,0:9990&&9981$&&9990R&&5126,1:5127,30:5128,78:5129,186:5120z&&ZF%1ZS$"Check Disk Drive":9972&&ZS$"Flip Disk"&&:MODE(2):12:B0:H(21(ZS$))4,55:9100'&ZS$"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)7R%%M(X)((X2)(X2))2q%%N(I)(((I3)(I3))3)%%P(I)(((I5)(I5))5)%%%& CONTROL-C TRAPPING%&((218)(219)256)9220Č822:9225%&%& TRAP FOR DISK FLIP&&PAC$"$1,118::SCR.U2.PAC6$,$1,73::SCR.KI.PACH$6$:SCR.MO.PACa$@$1,137::SCR.U3.PAC$% * FUNCTION DEFINITIONS *$%H(H)(H1)14$%I(H)(H1)2$%V(V)((V1)8)$%X(X)(X74)$%Y(Y)(Y2425)6%%C(C)(C0)0(C1)ACTERS ON DOUBLE HI-RES SCREEN, MODE(2)5##Z9(1)?##ZS$;L##ZP%1ĺV##ZP%0\#### COMPRESSION BUFFER MANAGER##Z9(1)#$0,0:(4849)9230,9240,9250,9260,9270,9280:4352# $4848,(4849):#$1,64::SCR.UN.PAC$$1,98::SCR.U1.:480:842:RI1İ300:2890g"" S$D$(1):7939,I(LJ):7940,V(20):ZS$S$:9000:905:908:HH1:1100r"J 700:"(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)"-#Z9(1):840"2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:"#)## DRAW CHAR300!d H11:V17:VV0:1100*! 700:! LJ3:TC35:V11:S$D$(7):LI1:610:V19:S$D$(4):LI1:610:V13:S$D$(3):610:PG%1MO%3İ350! FA$C$(PI,3):RA$"":II1(FA$):FC$(FA$,II,1):FC$"."RA$RA$FC$" :RA(RA$)1:VV0:RI0:V16:H23RA610:FA$C$(2,4):V15:H96:836:H11:VV0:1100:900 F 842:7939,4:7940,V(20):ZS$"Combine terms.":9000:905:908:FA$C$(PI,3):MO%12660 P RA$"":II1(FA$):FC$(FA$,II,1):FC$"."RA$RA$FC$!Z :RA(RA$)1:VV0:RI0:HH1:480:RI1İ842:I,1)")"SG$"("C$(PI,2)")":VV0:V8:H25(FA$):1100:V17^- MO%2610,2610,2800,2800:2 VT1:V11:LJ3:TC36:S$D$(9):610:I12:FA$C$(PI,I):VV0:V13(I2)2:H11:1100:7 7:BOX((FA$)28,1)H(11),V(16)1:9005 < PI2V19:S$D$(10):0: 16368,0:$ 390:A$:G 390:A$:A$(127)NX$"redo"M e 400:A$(32)415k  400:A$"1"A$HI$AN(A$):HI$"9": (7);:420 400:A$LO$A$HI$LO$"2":AN(A$): 430 402:S$A$:500:A$S$ NX$"redo"A$(13)ıf (A$VA$(1)A$VA$(2)A$VA$(3))C0:838:FF$A$:1120:AN$AN$A$:HH2:VV1: A$"0"A$"9"VV1C0:838:FF$A$:1190:AN$AN$A$:HH1:VV0: A$"0"A$"9"C0:838:FF$A$:1120:AN$AN$A$:HH2:VV0:2 A$"-"A$":S$(I)J$(I)VA$(1)C$(1,I):rND%4:1500:I78:(J(I))2J$(I)(J$(I),1):J(I)0J$(I)"":S$(I)"":1017S$(I)J$(I)VA$(1)C$(1,I):PR$"":I14:PR$PR$S$(TE%(I))::AS$S$(7)S$(8):PL$PR$:520:PR$PL$:PL$AS$:520:AS$PL$6P1$"":I4I1)J$(I1):I1I1(II2)::N910:999:DI14:N98:999:J(DI)I:995:J(DI)J(DI)SG:JJ5:I132:J(JJ)J(I1):JJJJ1:I132:J(JJ)J(I)J(I1):JJJJ1::NN9:992I19:(J(I))2J$(I)(J$(I),1):J(I)0J$(I)"":S$(I)"":I18I13:VA$(I)""::N913:999:VA$(1)SS$(I):VV(1)I:KI%1001,1025,1050,1075N97:999:J(1)I(2(I3)):N9I:999:J(2)I(2(I1)):J(2)J(2)(J(2)J(1)):NN2:998:I11:II14:C(1,II)J(I1):C$(1,II)J$(I1)C$(1,7)C$(1,1):C$(1,8)C$(1,3)VC$(1,V9(7940)81:H9(7939)21:4V9V:H9H:DHH9:VV9:X4849,1:9200:I1NN:J$(I)(J(I)):J(I)0J$(I)"+"J$(I):N99:999:SG$"+":SG1:N(I)1SG$"-":SG1I1NN:J$(I)(J(I))::I((1)N9)1:O$ZS$" "@}9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897WZS$ZS$" "(PG%)c9000:822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:V8(7940)81:H8(7939)21:$129,165:5120:BJ5126,3:5127,142:5128,76:5129,165:5120:xk7969,22:7939,45(ZS$):7940,17:9000:7969,8:l7969,22:7939,45(ZS$):7940,5:9000:7969,8:z{15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%):893 |ZS1)ZIH(H9)14,V(V91)ZI::15:`D5126,3:5127,V(V)5:5128,76:5129,V(V1):5120:FC(C):MODE(2):ZI01:H(H)4,V(V)6ZIH(H)47,V(V)6ZI:ZI:15:H5126,2:5127,33:5128,77:5129,70:5120:I5126,3:5127,76:5128,76:5CTED%MO%4TT20NX$"fd":7292NX$"bk"=822:e RIGHT ARROW OR SPACE BAR SELECTEDPG%9((MO%4)(TT20))NX$"fd":739NX$"bk"822:615:B15:MODE(2):5,178:19);:MODE(1):B0:'CC(C):ZI01:H(H9),V(V9178:9100:MODE(1)UMO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)MO%4TT20įMODE(2):56,178:ZS$"Menu":9100:MODE(1)15:B0ZA$"":ZA$ZA$(8)720(ZA$(21))(ZA$(32))730710 LEFT ARROW SELE9000:t822:NX$"":ZS$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1): " DRAW ARROWSMO%4704ZS$"Menu":MODE(2):18,178:9100:MODE(1):PG%9įMODE(2):90,178:9100:MODE(1):704ZS$"Problems":MODE(2):68,11:X$(S$,LT,1):X$SP$X$"-"670TZS$(S$,LT(X$SP$)):ZP%1:9000:660}S$(S$,(S$)LT):VV1:LI1VV1620::::(7);"WORD TOO LONG":L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0:9000:ZP%1:0:B J$"":II1(S$):QR((S$,II,1)):QR64QR91QRQR32\ J$J$(QR)::S$J$: LP(PL$)1:(PL$,1)"+"PL$(PL$,LP)  bL(S$):LTCLJ0T$S$:690: cHLJ l7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905:)vLTTC6:VV0:AN$"":470* (AN$)(RA)486< C5:838:432] NX$"redo"NX$"":908:480 (A$(13)AN$"")(AN$RA$)RA(AN$):C0:838 481 MODE(1):AN$RA$RIRI1: MO%3KI%2VV0: (7);:836:KI%3FA$RA$ 908:110+"C0:838:FF$A$:1130:AN$AN$A$:HH2:VV0:r A$"="KI%2C0:838:FF$A$:1130:AN$AN$A$:HH2:VV0: (7);: 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: MODE(2):907:8314:P1$P1$S$(I)::L(P1$):PL$P1$:520:P1$PL$:<BH3rLMODE(2):FF1(FA$):FF$(FA$,FF,1)MFF$"*"FF$"%":1130:HH2:1110NFF$")"FF$"("İ1130:HH2:1110O(FF$)48(FF$)57VV1İ1190:HH1:1110 PFF$"."VV0:11101QFF$"/"FF$"="İ1130:HH2:1110]RFF$"+"FF$"-"İ1130:HH2:VV0:1110S(FF$)48(FF$)57VV0İ1120:HH2:1110TFF$"a"FF$"z"İ1120:VV1:HH2:1110VFF:MODE(1):`9:ZS$FF$:H(H)4,V(V):9100:!j13:(aI1NU%(aJ14>(aSC%(I,J,1)0SC%(I,J,5)3:25030q(aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:25030(aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030(aSC%(I,J,5)2(a:(eZS$"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:9100h'&16368,0:A$'&::(4);"VERIFY ";ZF$'&ZF%0:216,0::(4);"-";ZF$:'' ERROR TRAP FOR DISK FLIP''216,0:822:9965(a SCORE TRACKING ROUTINE )9220Č822:9225&&7&& TRAP FOR DISK FLIPI&&216,0:9990S&&9981^&&9990&&5126,1:5127,30:5128,78:5129,186:5120&&ZF%1ZS$"Check Disk Drive":9972&&ZS$"Flip Disk"&&:MODE(2):12:B0:H(21(ZS$))4,55:9100V'&)(X74)"%%Y(Y)(Y2425)p%%C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)7%%M(X)((X2)(X2))2%%N(I)(((I3)(I3))3)%%P(I)(((I5)(I5))5)%%%& CONTROL-C TRAPPING&&((218)(219)256848,(4849):'$$1,64::SCR.UN.PAC?$$1,98::SCR.U1.PACX$"$1,118::SCR.U2.PACp$,$1,73::SCR.KI.PAC$6$:SCR.MO.PAC$@$1,137::SCR.U3.PAC$% * FUNCTION DEFINITIONS *$%H(H)(H1)14$%I(H)(H1)2$%V(V)((V1)8) %%X(X(ZS$):7941,((ZS$,ZL,1)):7936:+##c## DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)o##Z9(1)y##ZS$;##ZP%1ĺ##ZP%0#### COMPRESSION BUFFER MANAGER##Z9(1)#$0,0:(4849)9230,9240,9250,9260,9270,9280:4352$ $4A$AS$:VV0:V16:H23(FA$):RA$FA$:RA(RA$)1:VV0:RI0:480:842:RI1İ300:2490" S$D$(1):7939,I(LJ):7940,V(20):ZS$S$:9000:905:908:HH1:1100" 700:"(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)"-#Z9(1):840%#2#ZL11$:VV0:V13:H23(FA$):1100:900:S$D$(8):LI1:V15:610! FA$AS$:VV0:V17:H23(FA$):RA$FA$:RA(RA$)1:VV0:RI0:480:RI1İ300!V 700:!` V11:LJ3:TC35:S$D$(7):LI1:610:V19:S$D$(4):LI1:610:V13:S$D$(3):610:PG%1MO%3İ350W"~ F23(FA$):11000 MO%2210,2300,2400,2400::  V11:LJ3:TC35:S$D$(7):LI1:610:FA$P1$:VV0:V13:H23(FA$):1100:900 S$D$(8):LI1:V15:610:FA$AS$:VV0:V17:H23(FA$):1100 700:=!V11:LJ3:TC35:S$D$(7):LI1:610:FA$PH2200:MO%4İ10005IMO%4ZF$"ALG.1.6":9950IMNX$"fd"2130NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110O2110RPG%0:MO%3İ25000S2000 7939,4:7940,V(6):ZS$"Simplify:":9000:TC32:LJ5:V17:FA$PR$:VV0:V8:H) ":9000:HI$"4":420:ZS$A$:9000:MO%AN:A$"4"MO%0:ZF$"ALG.1.6":9950r MO%3SC%(UN%,KI%,(MO%2)4)091000:TL10:4849,3:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1:891:MO%3SC%(UN%,KI%,1)1>822:840:841?TC35:LI1:LJ4:891*ZS$T1$:876:ZS$T2$:875:15LH14:V6(2KI%):WD$TY$(KI%)T V6 LJ0:TC34:S$WD$:610:VV2:S$"Mode Selection":610:V11:I114:7939,6:7940,V(V):ZS$MZ$(I1)" "CH$(I1):9000:VV2:N7939,6:7940,152:ZS$"Your choice? (1-4H),V(V)4:ZS$FF$:9100:: DRAW.EXPONENTE SHUFFLE ROUTINEXTE%(1)0:SJ%1uZI1ND%:SJ%(ZI)ZI:ZIZJ%ND%ZI1ND%:ZK%((1)ZJ%1):TE%(ZJ%)SJ%(ZK%):SJ%(ZK%)SJ%(ZJ%):ZJ%ZJ%1:MO%42105MO%0:PG%0:KI%1:912ZS$FF$:H(H)4,V(V):9100:Nt9:ZS$FF$:((H1)72),V(V):9100:C(C):ZS$FF$:FL%0į((H1)72),V(V):9100:MODE(1):7939,I(H):7940,V(V):9000:MODE(1):7939,I(H):7940,V(V)5:ZS$FF$:9000:MODE(2):-15:H(0:821:)@ ** DATA STATEMENTS **J"Simplify Polynomials","Combining Polynomials","Multiplying Polynomials","Degree of a Monomial","Polynomials Test","Return to Algebra Menu"DT"The answer is:","Enter the answer.","Enter the final answer.","Us,4):ZS$TY$(II):90007939,56:7940,V(V):ZS$"5":9000:7939,70:7940,V(V):ZS$(SC%(5,II,4)):9000:VV2:SC%(UN%,II,3)5:SC%(UN%,II,4)SC%(5,II,4):SC%(UN%,5,1)20:SC%(UN%,5,2)UC%:((UC%20)DT)SC%(UN%,5,5)2:4040SC%(UN%,5,5)1 9062,2063,2064'OTTTT1:TT202101DRUN%3:4000:PG%0:25000TSMO%0:2000t FACTORING TEST RESULTS}821UC%0:7939,52:7940,40:ZS$"Tried":9000:7939,64:7940,40:ZS$"Correct":9000:V8:II14:7939,2:7940,V(V):UC%UC%SC%(5,II:9950"ZF$"ALG.1.6.2":9950<ZF$"ALG.1.6.3":9950VZF$"ALG.1.6.4":9950` PG%14UN%3:II14:SC%(UN%,II,3)5:SC%(UN%,II,4)0:SC%(5,II,3)0:SC%(5,II,4)0::UN%5:TT15KI%((R%(TT)1)5)19TL10:PG%TTH390:ZF%1:KI%2061,20:LO$"1":HI$"6":420:ZS$A$:9000QKI%AN:AN6H14:V6(2AN):WD$TY$(AN)xAN6ZF$"ALG.1.MENU":ZF%0:9950AN5MO%4:UN%5:ND%20:1500:II120:R%(II)TE%(II):TE%(II)0::2080 ZF%1:MO%0:KI%2061,2062,2063,2064 ZF$"ALG.1.6.1"I1,34M(I1):_V6:H20:7939,I(H):7940,V(V):ZS$"CONTENTS":9000:V7:I115:H4:829VV3::V8:I116:7939,18:7940,V(V)$ZS$MZ$(I1):9000:S$TY$(I1):TC26:LJ14:LI1:610:VV2::7939,24:7940,V(V1):ZS$"Your choice? (1-6) ":90001!ZI1ND%:SJ%(ZI)ZI:ZI-ZJ%ND%ZI1ND%:ZK%((1)ZJ%1):TE%(ZJ%)SJ%(ZK%):SJ%(ZK%)SJ%(ZJ%):ZJ%ZJ%1:ZIMO%42127MO%0:PG%0:KI%0:913:891ZS$T1$:876:ZS$T2$:8756:I103:BOX(7I12,144M(I1)2)1104897 ZS$ZS$" "(PG%)* 9000: 822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0: V9(7940)81:H9(7939)21: 4849,1:9200:  SHUFFLE ROUTINETE%(1)0:SJ%):9000 AE k7969,22:7939,45(ZS$):7940,17:9000:7969,8:z l7969,22:7939,45(ZS$):7940,5:9000:7969,8: {15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%):893 |ZS$ZS$" " }9000:7939,2:7940,15:ZS$"M"(MO%):MO%ѯ15:B15:MODE(2):5,178:19);:MODE(1):B0:p =I11įMODE(2):15:H(H)43,V(V)12:"\";:MODE(1) ?(SC%(UN%,I1,5)0)15C(SC%(UN%,I1,5)) @LI03:BOX(56LI2,16M(LI)2)H(H)7LI,V(V)M(LI)5::7939,I(H):7940,V(V):ZS$MZ$(I1,(S$)LT):VV1:LI1VV1( 620N ::::(7);"WORD TOO LONG": L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0 9000: 45126,17:5127,30:5128,78:5129,186:5120: 55126,1:5127,30:5128,78:5129,168:5120:4 6' 400:A$LO$A$HI$ANS(A$):0 420U bL(S$):LTCLJ0T$S$:690:^ cHLJ l7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905: vLTTC11:X$(S$,LT,1):X$SP$X$"-"670 ZS$(S$,LT(X$SP$)):ZP%1:9000:660 S$(S$  ALG.1.6 - SJW - V.102289+99002XI16:TY$(I)::I114:D$(I):I115:J110:C$(I,J)"":C(I,J)0::T2$"Polynomials"9600MODE(1)::15:B0:200016368,0:390:A$:400:A$(32)415 e a pencil and paper to calculate your answer.","Add:","Subtract:"^"Use descending order of exponents.","Combine like terms.","Write the problem vertically.","Change the bottom signs when subtracting."jh"The degree of a monomial is the sum of the exponents of all of its variables.","Find the degree of this monomial.","Add the exponents.","Multiply:"(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)-#Z9(1):8402#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:#!# DRAW CHARACTERS OA$"":485< NX$"redo"A$(13)NX$"":H9H7:836:480f AN$AN$A$:H9H91:AN$RA$RA(AN$)o 481 AN$RA$MO%2488 (7);:7939,I(H7):7940,V(V9):ZS$(EZ$,RA):9000:7939,I(H7):7940,V(V9):ZS$RA$:9000 AN$RA$RIRI1 0:C0:835:; A$"0"A$"9"ZS$A$:9000:C0:835:D 446 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: 470:906:AN$"" (AN$)(RA)486 445:A$(13)AN$""RA(AN$):"redo"A$(13)C0:835:e (A$"+"A$"-"A$"="A$"("A$")")MO%3ZS$A$:9000:C0:835: ((KI%3KI%2)A$".")ZS$A$:9000:C0:835: MO%3A$"a"A$"z"ZS$A$:9000:C0:835: MO%3A$"A"A$"Z"A$((A$)32):ZS$A$:900 ^MO%3SC%(UN%,KI%,(MO%2)4)0* _: 16368,0:I 390:A$:l 390:A$:A$(127)NX$"redo"r  400:A$(32)415  400:A$LO$A$HI$LO$"1":ANS(A$): (7);:420 906:C5:835 ((MO%1)1)400,402 NX$" ALG.1.7.3 - SJW - V.102289-99007c9600WMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$5SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)16V208(KI%4KI%3)MO%3V14(2(KI%3)) >690:$EaSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030VaSC%(I,J,5)2^a:deZF$:+' ERROR TRAP FOR DISK FLIPA'216,0:822:9965_a SCORE TRACKING ROUTINEa " OPEN CDFILE$ FOR READING, 166 BYTES/RECORDaI14aJ15aSC%(I,J,1)0SC%(I,J,5)3:25030aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:25030Disk Drive":9972'&ZS$"Flip Disk"\&:MODE(2):12:B0:H(21(ZS$))4,55:9100&ZS$"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:9100&16368,0:A$&::(4);"VERIFY ";ZF$&ZF%0:216,0::(4);"-";(X2))2)%N(I)(((I3)(I3))3)/%I& CONTROL-C TRAPPINGr&((218)(219)256)9220Č822:9225x&& TRAP FOR DISK FLIP&216,0:9990&9981&9990&5126,1:5127,30:5128,78:5129,186:5120&ZF%1ZS$"Check 8::SCR.U2.PAC),$1,73::SCR.KI.PAC;6$:SCR.MO.PAC[% * FUNCTION DEFINITIONS *o%H(H)(H1)14%I(H)(H1)2%V(V)((V1)8)%X(X)(X74)%Y(Y)(Y2425)%C(C)(C0)0(C1)6(C2)1(C3)15 %M(X)((X2)N DOUBLE HI-RES SCREEN, MODE(2)-#Z9(1)7#ZS$;D#ZP%1ĺN#ZP%0T#w# COMPRESSION BUFFER MANAGER#Z9(1)$0,0:(4849)9230,9240,9250,9260,9270:4352 $4848,(4849):$1,64::SCR.UN.PAC$1,98::SCR.U1.PAC"$1,116 QR((S$,1))32:LS(S$):S$(QR)(S$,LS1):[ bL(S$):LTCLJ0T$S$:690:d cHLJ l7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905: vLTTC11:X$(S$,LT,1):X$SP$X$"-"670 ZS$(S$,LT(X$SP$)):ZP%1:9000:660%S$(S$,(S$)LT):VV1:LI1VV1.620T::::(7);"WORD TOO LONG":L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0:9000:ZP%1:9000: 822:NX$"":ZS$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:910 S2000 9 V5.5:S$ZZ$:LJ4.5:TC34:LI1:610X MO%3008,3100,3200,3200: 850:7939,4:7940,V(20):ZS$D$(4):9000:V12:S$AN$(3)": "S$(3):7939,4:7940,V(V):ZS$S$:9000 VV2:S$AN$(4)": "S$(4):7939,4:7940,V(V):ZS$S$:9000:875:MO%4PG%13:891:MO%3SC%(UN%,KI%,1)1F>822:847:845ZCTC35:LI1:LJ4qH3000:MO%4İ1000IMO%4ZF$"ALG.1.7":9950MNX$"fd"2130NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110O2110RPG%0:MO%3İ25000:ZS$MZ$(I1)" "CH$(I1):9000:VV2:7939,6:7940,152:ZS$"Your choice? (1-4) ":9000:LO$"1":HI$"4":420:ZS$A$:9000:MO%AN:A$"4"MO%0:ZF$"ALG.1.7":9950 MO%3SC%(UN%,KI%,(MO%2)4)091000:TL10:4849,6:9200:ZS$T2$:876:ZS$WD$:%):SJ%(ZK%)SJ%(ZJ%):ZJ%ZJ%1:ZI*:MO%42105ZMO%0:PG%0:KI%3:912:891}ZS$T1$:876:ZS$T2$:875:15H14:V6(2KI%):WD$TY$(KI%) V6( LJ0:TC34:S$WD$:610:VV2:S$"Mode Selection":610:V11:I114:7939,6:7940,V(V)SS$" "S$(IJ3)S$(IJ3)SS$)+:y.ZZ$DD$C$(3,1)J$(5)C$(3,2)AN$(1)C$(3,3)AN$(2)C$(3,4)J$(6)C$(3,5):3 SHUFFLE ROUTINETE%(1)0:SJ%1ZI1ND%:SJ%(ZI)ZI:ZIZJ%ND%$ZI1ND%:ZK%((1)ZJ%1):TE%(ZJ%)SJ%(ZK6)"."(J$(6),2):1060J L(J$(6))2:J$(6)(J$(6),L)"."(J$(6),2)$J(6)J(6)100:S$(3)S$(1)"c":S$(4)S$(2)"("J$(5)"-c)":S$(5)J$(7)" - "S$(2)"c":S$(6)S$(3)" + "S$(5)" = "J$(6):IJ46:S$(IJ3)""!)J1(S$(IJ)):SS$(S$(IJ),J,1):$(7,TE%(I)):S$AN$(I):510:AN$(I2)S$.N99:999:J(1)I5:N9J(1):999:J(2)I1:II34:J(II)J(II2)AN(II2)::II1:I156:J(I1)J(II)J(II1):IIII2:J(7)J(5)AN(2):I67:J(I)((J(I)100).1)::J(7)J(7)100:NN7:998:(J$(6))2J$(9200:RA(RA$)1:;I1NN:J$(I)((J(I)))::PI((1)N9)1:I110:S$(I)""::N97:999:IT9I:L1(D$(IT))2:KI%1005,1025,1050,1075(DD$(D$(IT),L1):ND%5:1500:I12:AN$(I)C$(6,TE%(I)):AN(I)C(7,TE%(I)):S$(I)C(PG%)9000:822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:V9(7940)81:H9(7939)21:HH9:VV9:7939,I(H):7940,V(V):X9(H91.1)8:Y9(V98)5:4849,1:69,22:7939,45(ZS$):7940,17:9000:7969,8:el7969,22:7939,45(ZS$):7940,5:9000:7969,8:{15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%):893|ZS$ZS$" "}9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897 ZS$ZS$" "E906:ZS$(EZ$,(AN$)):9000:SH5126,2:5127,85:5128,76:5129,130:5120:M5126,3:5127,85:5128,76:5129,130:5120:5126,3:5127,133:5128,76:5129,165:5120:O5126,7:5127,33:5128,72:5129,75:5120:R1:BOX(530,1)12,131:0k79PG%9((MO%4)(TT20))NX$"fd":7395NX$"bk"@822:w615:B15:MODE(2):5,178:19);:MODE(1):B0:95126,3:5127,144:5128,75:5129,165:5120:CC(C):ZI01:H(H9),V(V91)ZIH(H9)14,V(V91)ZI::15:D(AN$)0ı#DE(2):56,178:ZS$"Menu":9100:MODE(1)815:B0HZA$"":ZA$ZZA$(8)720{(ZA$(21))(ZA$(32))730710 LEFT ARROW SELECTEDMO%4TT20NX$"fd":729NX$"bk"822: RIGHT ARROW OR SPACE BAR SELECTED(0:MODE(1)MO%4704xZS$"Menu":MODE(2):18,178:9100:MODE(1):PG%9įMODE(2):90,178:9100:MODE(1):704ZS$"Problems":MODE(2):68,178:9100:MODE(1)MO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)*MO%4TT20įMOVV2:7939,16:7940,V(V)` ZS$S$(5):9000:900:5126,3:5127,138:5128,75:5129,165:5120 7939,4:7940,V(20):ZS$D$(6):9000:VV2:7939,14:7940,V(V):ZS$S$(6):9000:900:825 7939,4:7940,V(20):ZS$D$(8):9000:7939,48:7940,V(20):ZS$"c = "J$(1):9000:840 7939,4:7940,V(13):ZS$AN$(3)" = "J$(1):9000:7939,4:7940,V(15):ZS$AN$(4)" = "J$(2):9000 700: 850:7939,4:7940,V(20):ZS$D$(4):9000:V12:S$AN$(3)": "S$(3):7939,4:7940,V(V):ZS$S$:9000:VV2y& S$" ALG.1.7.2 - SJW - V.102289-99007c9600WMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$5SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)16V20 9KI%2MO%2Ĺ5126,3:5127,84:5128,75:5129,96:5SC%(I,J,5)3:25030H(aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:25030(aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030(aSC%(I,J,5)2(a:(e"Press ANY Key":H(21(ZS$))4,100:9100?'&16368,0:A$\'&::(4);"VERIFY ";ZF$'&ZF%0:216,0::(4);"-";ZF$:'' ERROR TRAP FOR DISK FLIP''216,0:822:9965'a SCORE TRACKING ROUTINE'aI1NU%'aJ14(aSC%(I,J,1)0OR DISK FLIP &&216,0:9990*&&99815&&9990c&&5126,1:5127,30:5128,78:5129,186:5120&&ZF%1ZS$"Check Disk Drive":9972&&ZS$"Flip Disk"&&:MODE(2):12:B0:H(21(ZS$))4,55:9100-'&ZS$"and":H(21(ZS$))4,75:9100:ZS$C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)7c%%M(X)((X2)(X2))2%%N(I)(((I3)(I3))3)%%P(I)(((I5)(I5))5)%%%& CONTROL-C TRAPPING%&((218)(219)256)9220Č822:9225%&&& TRAP F: SCR.U1.PAC*$"$1,137:: SCR.U2.PACC$,$1,73:: SCR.KI.PACV$6$: SCR.MO.PACr$@$1,137:: SCR.U3.PAC$% * FUNCTION DEFINITIONS *$%H(H)(H1)14$%I(H)(H1)2$%V(V)((V1)8)$%X(X)(X74)$%Y(Y)(Y2425)G%%C(AW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)<##Z9(1)F##ZS$;S##ZP%1ĺ]##ZP%0c#### COMPRESSION BUFFER MANAGER##Z9(1)#$0,0:(4849)9230,9240,9250,9260,9270,9280:4352# $4848,(4849):#$1,64:: SCR.UN.PAC$$1,84:4:H7H9:480:825:RI2İ300:3090y" V16:II34:7939,42:7940,V(V):ZS$AN$(II)" = "J$(II2):9000:VV2::3090"(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)"-#Z9(1):840"2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:"#0## DRI0:480:RI1İ300 !v 700:Z! RI0:V20:LJ3:TC37:S$D$(3):610:V12:S$D$(2):610p! PG%1MO%3İ350! 7939,4:7940,V(16):ZS$AN$(3)" = ":9000:905:RA$J$(1):914:H7H9:480$" 7939,4:7940,V(18):ZS$AN$(4)" = ":9000:905:RA$J$(2):917H9:480:825:7939,4:7940,V(20):ZS$D$(8):9000 X 7939,48:7940,V(20):ZS$"c = ":9000:905:H7H9:RA$J$(1):914:480:840:7939,4:7940,V(12):ZS$AN$(3)" = "J$(1):9000!l 7939,4:7940,V(14):ZS$AN$(4)" = ":9000:RA$J$(2):905:H7H9:914:RAN$(4)": ":RA$S$(7):7939,4:7940,V(V):ZS$S$:9000:905:H7H9:914:480:VV2:7939,16:7940,V(V):ZS$S$(8):90000 5126,3:5127,138:5128,75:5129,165:51205 N 7939,4:7940,V(20):ZS$D$(6):9000:VV2:7939,14:7940,V(V):RA$S$(9):905:914:H120:V12 >690:9 ^MO%3SC%(UN%,KI%,(MO%2)4)0? _O 16368,0:^ 390:A$: 390:A$:A$(127)NX$"redo"  400:A$(32)415  400:A$LO$A$HI$LO$"1":ANS(A$): (7);:420 906:C5:835 ((MO%1)1)400,4022 NX$"redo"A$(13)C0:835:z (A$"+"A$"-"A$"="A$"("A$")")MO%3ZS$A$:9000:C0:835: ((KI%3KI%2)A$".")ZS$A$:9000:C0:835: MO%3A$"a"A$"z"ZS$A$:9000:C0:835:# MO%3A$"A"A$"Z"A$(1:ZIMO%42105>MO%0:PG%0:KI%2:912:891aZS$T1$:876:ZS$T2$:875:15H14:V6(2KI%):WD$TY$(KI%) V6  LJ0:TC34:S$WD$:610:VV2:S$"Mode Selection":610:V11:I114:7939,6:7940,V(V):ZS$MZ$(I1)" "CH$(I1):90$ :WZZ$DD$C$(2,1)J$(1)C$(2,2)J$(3)C$(2,3)D1$C$(2,4)J$(2)C$(2,5):]c3z SHUFFLE ROUTINETE%(1)0:SJ%1ZI1ND%:SJ%(ZI)ZI:ZIZJ%ND%ZI1ND%:ZK%((1)ZJ%1):TE%(ZJ%)SJ%(ZK%):SJ%(ZK%)SJ%(ZJ%):ZJ%ZJ%):J(6)(J(5)J(4))1025} NN6:998:S$(1)J$(1)"(x + "J$(3)")":S$(2)J$(2)"x":S$(3)J$(1)"x + "J$(5)" = "S$(2)S$(4)J$(4)" x = "J$(5):S$(5)"x = "J$(6):II15:S$(II5)"":J1(S$(II)):SS$(S$(II),J,1):SS$" "S$(II5)S$(II5)SS50,1075DD$(D$(IT),L1):IEIT1:L2(D$(IE))2:D1$(D$(IE),L2):ND%6:1500:I12:J(I)(TE%(I)5)40::J(3)TE%(I)J(3)TE%(I)(2(TE%(I)1)):J(5)J(1)J(2):J(2)J(1)J(4)J(1):J(1)J(2):J(2)J(4) J(4)J(5):J(5)J(3)J(1):J(6)J(5)J(4940)81:H9(7939)21:]HH9:VV9:7939,I(H):7940,V(V):X9(H91.1)8:Y9(V98)5:q4849,1:9200:RA(RA$)1:I1NN:J$(I)((J(I)))::I((1)N9)1: I110:S$(I)""::N97:999:IT9I:L1(D$(IT))2:KI%1005,1025,10ZS$ZS$(PG%):893&|ZS$ZS$" "[}9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897rZS$ZS$" "(PG%)~9000:822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:V9(7:4M5126,3:5127,85:5128,76:5129,165:5120:cO5126,7:5127,33:5128,72:5129,75:5120:k7969,22:7939,45(ZS$):7940,17:9000:7969,8:l7969,22:7939,45(ZS$):7940,5:9000:7969,8:{15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4d":739NX$"bk"!822:X615:B15:MODE(2):5,178:19);:MODE(1):B0:95126,3:5127,144:5128,75:5129,165:5120:CC(C):ZI01:H(H9),V(V91)ZIH(H9)14,V(V91)ZI::15:D(AN$)0ıE906:ZS$(EZ$,(AN$)):9000:MODE(1)15:B0)ZA$"":ZA$;ZA$(8)720\(ZA$(21))(ZA$(32))730e710 LEFT ARROW SELECTEDMO%4TT20NX$"fd":729NX$"bk"822: RIGHT ARROW OR SPACE BAR SELECTED PG%9((MO%4)(TT20))NX$"fS$"Menu":MODE(2):18,178:9100:MODE(1):PG%9įMODE(2):90,178:9100:MODE(1):704ZS$"Problems":MODE(2):68,178:9100:MODE(1)MO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1) MO%4TT20įMODE(2):56,178:ZS$"Menu":9100V16205::::(7);"WORD TOO LONG":L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0:9000:ZP%1:9000:822:NX$"":ZS$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1)MO%4704YZAN$RA$RIRI1 < bL(S$):LTCLJ0T$S$:690:E cHLJ l7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905: vLTTC11:X$(S$,LT,1):X$SP$X$"-"670 ZS$(S$,LT(X$SP$)):ZP%1:9000:660S$(S$,(S$)LT):VV1:LI1V3)AN$""RA(AN$):A$"":485Q NX$"redo"A$(13)NX$"":H9H7:836:480{ AN$AN$A$:H9H91:AN$RA$RA(AN$) 481 AN$RA$MO%2488 (7);:7939,I(H7):7940,V(V9):ZS$(EZ$,RA):9000:7939,I(H7):7940,V(V9):ZS$RA$:9000 (A$)32):ZS$A$:9000:C0:835:P A$"0"A$"9"ZS$A$:9000:C0:835:Y 446 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: 470:906:AN$"" (AN$)(RA)486! 445:A$(100:VV2:7939,6:7940,152:ZS$"Your choice? (1-4) ":9000:LO$"1":HI$"4":420:ZS$A$:9000:MO%AN:A$"4"MO%0:ZF$"ALG.1.7":9950 MO%3SC%(UN%,KI%,(MO%2)4)091000:TL10:4849,6:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1:891:MO%3SC%(UN%,KI%,1)1*>822:847:845>CTC35:LI1:LJ4UH2600:MO%4İ1000tIMO%4ZF$"ALG.1.7":9950MNX$"fd"2130NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110O2110RPG%0:MO%3İ25000S2000( V6:S$ZZ$:LJ(&aSC%(I,J,1)0SC%(I,J,5)3:25030[&aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:25030&aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030&aSC%(I,J,5)2&a:&e$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:9100R%&16368,0:A$o%&::(4);"VERIFY ";ZF$%&ZF%0:216,0::(4);"-";ZF$:%' ERROR TRAP FOR DISK FLIP%'216,0:822:9965%a SCORE TRACKING ROUTINE%aI1NU%&aJ14!$& TRAP FOR DISK FLIP3$&216,0:9990=$&9981H$&9990v$&5126,1:5127,30:5128,78:5129,186:5120$&ZF%1ZS$"Check Disk Drive":9972$&ZS$"Flip Disk"$&:MODE(2):12:B0:H(21(ZS$))4,55:9100@%&ZS$"and":H(21(ZS(Y2425)Z#%C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)7v#%M(X)((X2)(X2))2#%N(I)(((I3)(I3))3)#%P(I)(((I5)(I5))5)#%#& CONTROL-C TRAPPING#&((218)(219)256)9220Č822:9225$&.UN.PAC""$1,84:: SCR.U1.PAC=""$1,137:: SCR.U2.PACV",$1,73:: SCR.KI.PACi"6$: SCR.MO.PAC"@$1,137:: SCR.U3.PAC"% * FUNCTION DEFINITIONS *"%H(H)(H1)14"%I(H)(H1)2"%V(V)((V1)8)"%X(X)(X74) #%Y(Y)6: !#C!# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)O!#Z9(1)Y!#ZS$;f!#ZP%1ĺp!#ZP%0v!#!# COMPRESSION BUFFER MANAGER!#Z9(1)!$0,0:(4849)9230,9240,9250,9260,9270,9280:4352! $4848,(4849): "$1,64:: SCR480:7939,I(H9):7940,V(V9):ZS$" hours.":9000:825:RI1İ300:2690  7939,6:7940,V(18):ZS$D$(5)" "J$(6)" hours.":9000:2690 (# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1) -#Z9(1):840!2#ZL1(ZS$):7941,((ZS$,ZL,1)):793905:H7H9:RA$J$(6):914:RI0:480:7939,I(H9):7940,V(20):ZS$" hours":9000:RI1İ300g 700: RI0:V20:LJ3:TC37:S$D$(3):610:V12:S$D$(2):610:7939,6:7940,V(16):ZS$"It took ":9000:905:PG%1MO%3İ350I  RA$J$(6):914:H7H9:RI0::825:7939,4:7940,V(20):ZS$D$(6):9000:VV3:7939,14:7940,V(18):905:RA$S$(8) 914:H7H9:480:825:7939,4:7940,V(20):ZS$D$(1):9000:7939,54:7940,V(18):RA$S$(9):905:914:H7H9:480:825:7939,4:7940,V(20)\ ZS$D$(8)" x = ":9000: 700:P 7939,4:7940,V(20):ZS$D$(4):9000:V12:T$"d = r x t":690:V14 7939,4:7940,V(V):ZS$D$(IT)" distance: ":9000:905:H7H9:RA$S$(6):914:480:VV2:7939,4:7940,V(V):ZS$D$(IE)" distance: ":9000W RA$S$(7):914:905:H7H9:480825< 7939,4:7940,V(20):ZS$D$(6):9000:7939,14:7940,V(18):ZS$S$(3):9000:900:825:7939,4:7940,V(20):ZS$D$(1):9000:7939,54:7940,V(18):ZS$S$(4):9000F 900:825:7939,4:7940,V(20):ZS$D$(8):9000:7939,44:ZS$S$(5)" hours":9000 5:TC34:LI1:6102- MO%2610,2700,2800,2800:y2 7939,4:7940,V(20):ZS$D$(4):9000:V12:T$"d = r x t":690:V147 7939,4:7940,V(V):ZS$D$(IT)" distance: "S$(1):9000:VV2:7939,4:7940,V(V):ZS$D$(IE)" distance: "S$(2):9000:VV2:900:" ALG.1.7.1 - SJW - V.102289-99007c9600WMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$5SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)1>V20:690:^MO%3SC%(UN%,KI%,(MO%2)4)0_ (3)""JIEIT1:L2(D$(IE))2:J$(2)(J(2)):J(2)0J$(2)"+"J$(2)L(J$(2)):ZZ$D$(IE)C$(1,1)(J$(2),2,L1)ZZ$(2)" "J$(3)C$J$(5):3MO%42105MO%0:PG%0:KI%1:912:891ZS$T1$:876:ZS$T2$:875:15H5:999:J(1)I:N910:999:J(2)I:995:J(2)J(2)SG:ZZ$(2)" more "C$(1,2):J(2)0ZZ$(2)" less "C$(1,2)N98:999:J(3)I:J(4)(J(3)J(1))J(2):J(4)70J(1)21005J(5)J(4)J(1):NN5:998:C$C$(1,3)D$(IT)C$(1,4):J(3)1L(C$):C$(C$,L6):J$(H91.1)8:Y9(V98)5:.4849,1:9200:@RA(RA$)1:m999:SG$"+":SG1:N(I)1SG$"-":SG1sI1NN:J$(I)((J(I)))::I((1)N9)1:I110:S$(I)""::N97:999:IT9I:L1(D$(IT))2:KI%1005,1025,1050,1075kN91"M"(MO%):MO%4897/ZS$ZS$" "(PG%);9000:822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:V9(7940)81:H9(7939)21:HH9:VV9:7939,I(H):7940,V(V):X97,33:5128,72:5129,75:5120:Vk7969,22:7939,45(ZS$):7940,17:9000:7969,8:l7969,22:7939,45(ZS$):7940,5:9000:7969,8:{15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%):893|ZS$ZS$" "}9000:7939,2:7940,15:ZS$9);:MODE(1):B0:F95126,3:5127,144:5128,75:5129,165:5120:CC(C):ZI01:H(H9),V(V91)ZIH(H9)14,V(V91)ZI::15:D(AN$)0ıE906:ZS$(EZ$,(AN$)):9000:M5126,3:5127,85:5128,76:5129,165:5120: O5126,7:512(21))(ZA$(32))730"710< LEFT ARROW SELECTED[MO%4TT20NX$"fd":729hNX$"bk"s822: RIGHT ARROW OR SPACE BAR SELECTEDPG%9((MO%4)(TT20))NX$"fd":739NX$"bk"822:615:B15:MODE(2):5,178:1:9100:MODE(1):704JZS$"Problems":MODE(2):68,178:9100:MODE(1)MO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)MO%4TT20įMODE(2):56,178:ZS$"Menu":9100:MODE(1)15:B0ZA$"":ZA$ZA$(8)720(ZA$0(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0:9000:NZP%1:9000:822:NX$"":ZS$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1)MO%4704ZS$"Menu":MODE(2):18,178:9100:MODE(1):PG%9įMODE(2):90,178< l7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905:o vLTTC11:X$(S$,LT,1):X$SP$X$"-"670 ZS$(S$,LT(X$SP$)):ZP%1:9000:660 S$(S$,(S$)LT):VV1:LI1VV1 620 ::::(7);"WORD TOO LONG":<L(T$):H2H7:836:4808 AN$AN$A$:H9H91:AN$RA$RA(AN$)A 481X AN$RA$MO%2488 (7);:7939,I(H7):7940,V(V9):ZS$(EZ$,RA):9000:7939,I(H7):7940,V(V9):ZS$RA$:9000 AN$RA$RIRI1  bL(S$):LTCLJ0T$S$:690: cHLJ:C0:835: 446 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: 470:906:AN$"" (AN$)(RA)486 445:A$(13)AN$""RA(AN$):A$"":485 NX$"redo"A$(13)NX$"":H9"A$"="A$"("A$")")MO%3ZS$A$:9000:C0:835:k ((KI%3KI%2)A$".")ZS$A$:9000:C0:835: MO%3A$"a"A$"z"ZS$A$:9000:C0:835: MO%3A$"A"A$"Z"A$((A$)32):ZS$A$:9000:C0:835: A$"0"A$"9"ZS$A$:900016368,0: 390:A$:> 390:A$:A$(127)NX$"redo"D \ 400:A$(32)415b  400:A$LO$A$HI$LO$"1":ANS(A$): (7);:420 906:C5:835 ((MO%1)1)400,402 NX$"redo"A$(13)C0:835:7 (A$"+"A$"-14:V6(2KI%):WD$TY$(KI%)& V6 LJ0:TC34:S$WD$:610:VV2:S$"Mode Selection":610:V11:I114:7939,6:7940,V(V):ZS$MZ$(I1)" "CH$(I1):9000:VV2:(7939,6:7940,152:ZS$"Your choice? (1-4) ":9000:LO$"1":HI$"4":420:ZS$A$:9000:MO%AN:A$"4"MO%0:ZF$"ALG.1.7":9950L MO%3SC%(UN%,KI%,(MO%2)4)091000:TL10:4849,6:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1:891:MO%3SC%(UN%,KI%,1)1>822:847:845CTC35:LI1:LJ4H390:2200:MO%4İ1000IMO%4ZSC%(I,J,1)5SC%(I,J,5)2:25030f%aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030w%aSC%(I,J,5)2%a:%e9100$&16368,0:A$6$&::(4);"VERIFY ";ZF$Y$&ZF%0:216,0::(4);"-";ZF$:}$' ERROR TRAP FOR DISK FLIP$'216,0:822:9965$a SCORE TRACKING ROUTINE$aI1NU%$aJ14$aSC%(I,J,1)0SC%(I,J,5)3:25030"%aSC%(I,J,1)081#&9990=#&5126,1:5127,30:5128,78:5129,186:5120e#&ZF%1ZS$"Check Disk Drive":9972y#&ZS$"Flip Disk"#&:MODE(2):12:B0:H(21(ZS$))4,55:9100$&ZS$"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:4)12(C5)13(C6)9(C7)7="%M(X)((X2)(X2))2\"%N(I)(((I3)(I3))3){"%P(I)(((I5)(I5))5)"%"& CONTROL-C TRAPPING"&((218)(219)256)9220Č822:9225"&"& TRAP FOR DISK FLIP"&216,0:9990#&99AC!,$1,73:: SCR.KI.PAC0!6$: SCR.MO.PACL!@$1,137:: SCR.U3.PACl!% * FUNCTION DEFINITIONS *!%H(H)(H1)14!%I(H)(H1)2!%V(V)((V1)8)!%X(X)(X74)!%Y(Y)(Y2425)!"%C(C)(C0)0(C1)6(C2)1(C3)15(C MODE(2) #Z9(1) #ZS$;- #ZP%1ĺ7 #ZP%0= #a # COMPRESSION BUFFER MANAGERm #Z9(1) $0,0:(4849)9230,9240,9250,9260,9270,9280:4352 $4848,(4849): $1,64:: SCR.UN.PAC $1,84:: SCR.U1.PAC!"$1,137:: SCR.U2.P),L2)" is ":9000:905:RA$J$(4):914:H7H9:480:825:RI2İ300:2290S 2235(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)-#Z9(1):8402#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:# # DRAW CHARACTERS ON DOUBLE HI-RES SCREEN,= ":9000:RA$J$(1):914:905:H7H9:RI0:480:2235o` RI0:V20:LJ3:TC37:S$D$(3):610:V12:S$D$(2):610a PG%1MO%3İ350t 7939,10:7940,V(16):ZS$(D$(IT),L1)" is ":9000:905:RA$J$(1):914:H7H9:480I 7939,10:7940,V(18):ZS$(D$(IE = ":9000:RA$J$(3)"x"J$(2):914> 905:H7H9:480:825 7939,4:7940,V(20):ZS$D$(6):9000:7939,8:7940,V(16):RA$"x+("J$(3)"x"J$(2)")="J$(5):914:905:H7H9:4805 825:7939,4:7940,V(20):ZS$D$(8):9000:7939,12:7940,V(18):ZS$"x m of ages = "J$(5):MO%32260Z7939,42:7940,V(16):ZS$T$:9000:MO%2RI1İ300d2290w825:V20:690700:%7939,4:7940,V(20):ZS$D$(4):9000:7939,4:7940,V(12):ZS$D$(IT)" age = x":9000:7939,4:7940,V(14):ZS$D$(IE)" age:7939,4:7940,V(20)]ZS$D$(8):9000:7939,12:7940,V(18):ZS$"x = "J$(1):9000:900825:7939,46:7940,V(12(4(MO%2))):ZS$(D$(IT),L1)" is "J$(1):9000"7939,46:7940,V(14(4(MO%2))):ZS$(D$(IE),L2)" is "J$(4):9000:V17:T$"SuS$D$(4):9000:7939,4:7940,V(12):ZS$D$(IT)" age = x":9000:7939,4:7940,V(14):ZS$D$(IE)" age = "J$(3)"x"J$(2):9000900:825:7939,4:7940,V(20):ZS$D$(6):9000:7939,4:7940,V(16):ZS$"x + ("J$(3)"x"J$(2)") = "J$(5):9000:900:825F$"ALG.1.7":9950(MNX$"fd"2130cNPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110mO2110RPG%0:MO%3İ25000S2000V6:TC33:LJ5:LI1:S$ZZ$". Find their ages.":610MO%2210,2300,2400,2400:7939,4:7940,V(20):Z