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 9!!O)ALG.2.2.3l' !O)ALG.2.3.1 !Q#'ALG.2.2 *} !Y )ALG.2.2.26$/!O'ALG.2.3 /!Y ALG21B.V.110189a a' )ALG.2.3.2)a%!a2)ALG.2.1.4(s!Q')ALG.2.3.43- !Y )ALG.2.3.3K! !Y+ )ALG.2.2.4]J(5!O)ALG.2.2.1s`a  XL LG &PRODOS`DaElH$?EGvѶK+`L XX LU ŠϠĠӥS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R" ALG.2.3.2 - SJW - V.110189-99007c9600VdEZ$" "vMODE(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)1 6Z1TC:Z2LJ:Z3LI:Z4ZS$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)3)8)1:H9((7939)2)1:%7939,I(H9):7940,V(V9):X9(H91.1)8:Y9(V98)5:,3)::?k7969,22:7939,45(ZS$):7940,17:9000:7969,8:tl7969,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%48975128,76:5129,165:5120:`DC(C):ZI01:X(X9),Y(Y9)ZIX(X98),Y(Y9)ZI:ZI:15:R15:BOX(5,2)XX2,YY1:XX2,YYXX2,YY:SC(C):II12:C(1,1)II,C(2,1)C(1,3)II,C(2,3):: TC(C):II01:C(1,1)II,C(4,1)C(1,3)II,C(4123,1)116,81KKR-7939,22:7940,V(9):ZS$"x":9000:7939,30:ZS$"y":9000:615:B15:MODE(2):5,178:19);:MODE(1):B0:75126,3:5127,130:5128,33:5129,162:5120:95126,3:5127,33:5128,33:5129,165:5120:;5126,37:5127,33:III:::I29152535:II03:III,99III,95::|(15:385,34:"y":378,155:"-y":261,93:"-x":533,93:"x":+6:I13:BOX(1,60)5461I,67::BOX(123,1)116,65:BOX(123,1)116,79,I13:116,81I15238,81I15::KK(I1)15:BOX("fd":739NX$"bk"$822:m%7939,70:7940,100:ZS$"+3":9000:7939,58:7940,132:ZS$"-20":9000&7:II01:BOX(1II,115)396II,38::273,97529,97:I973819:II01:399,III392,III:::I97152196'7:II01:399,III392,100:MODE(1)15:B0,ZA$"":ZA$>ZA$(8)720_(ZA$(21))(ZA$(32))730h710 LEFT ARROW SELECTEDMO%4TT20NX$"fd":729NX$"bk"822: RIGHT ARROW OR SPACE BAR SELECTED PG%9((MO%4)(TT20))NX$ZS$"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):66,178:ZS$"Menu":9T):VV1:LI1VV1 620F::::(7);"WORD TOO LONG":L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA09000:822:NX$"":ZS$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1)MO%4704\$)1PL$"-":( (PL$)1PL$"":. S 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$)):9000:660S$(S$,(S$)L C0:836:NX$"redo"NX$"":H9H8:490K A$(13)AN$""RA(AN$)T 491q (RA$)(AN$)RIRI1: MO%3ı (7);:C0 H9H8:906:ZS$(EZ$,RA):9000:906:ZS$RA$:9000: LP(PL$)1:(PL$,1)"+"PL$(PL$,LP)  (PL 420:AN1AN4CHAN:) 440 822:ZS$"Delete":MODE(2):2:B15:15,178:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: H8H9:906:ZS$(EZ$,RA):9000:AN$"":NX$"":470 (AN$)(RA)496 435:NX$"redo"A$(13)495+0 NX$"redo"A$(13)ı' 436C 400:A$"2"A$HI$ıL 430^ 906:C5:836v (MO%2)1400,402 A$"0"A$"9"AN$AN$A$:ZS$A$:C0:836:9000:H9H91: (A$"-"A$"+")AN$""AN$A$:ZS$A$:C0:836:9000:H9H91: 428V:TC12:LJ3:LI1:V17( 7S$T$:610E 8TCZ1:LJZ2:LIZ3:VZ4:i ^MO%3SC%(UN%,KI%,(MO%2)4)0o _ 16368,0: 390:A$: 390:A$:A$(127)NX$"redo"  400:A$(32)415  400:A$"0"A$"9"AN(A$): 42: GOTO OLD CURSOR POSITION94849,1:9200:RA(RA$):NE((RA$,1)"-"):(RA$,1)"+"(RA$,1)" "RARA1:RA$(RA$,(RA$)1)I1NN:J$(I)(J(I)):J(I)0J$(I)"+"J$(I):999:SG$"+":SG1:N(I)1SG$"-":SG13I((1)N9)1:I(IN9)(N91)(IN9)I:GI((1)9)1:VA$(2)"x":VA$(1)"y":J(7)3:J(8)0:J(9)3:N913:C(1,N9)39635J(6N9):J(1)((1)41)20:N90J(3)((1)41)20:N9N91:(J(3)J(1))(N94)1010=J(2)(J(3)J(1)):7940,V(V5):905:490& V19:S$"I'll plot the point.":610:XXC(1,II):YYC(4,II):V5V52:850:900:823::C1:7939,4:7940,144:ZS$D$(14):9000& 852:806:900:825:V5:S$D$(16)' 610:VV2:I12:7939,8:7940,V(VI2):ZS$S$(I2):9000:::7939,4:7940,V(V5):ZS$D$(13):9000:V5V52:7939,6:7940,V(V5):ZS$S$(2):9000% V511:811:V511:II13:7939,4:7940,130:ZS$"If x = "J$(II6)": ":9000:7939,24(J$(II6))2:7940,V(V5):ZS$J$(II6):9000& RA$J$(II3):914:7939,33RA240,V(V5):ZS$J$(II6):9000x$ TC15:LJ3:RA$J$(II):914:7939,33RA2:7940,V(V5):905:490:XXC(1,II):YYC(2,II)$ V19:LI1:S$"I'll plot the point.":610:850:900:V5V52:823::C2:7939,4:7940,144:ZS$D$(14):9000:851:806U% 900:825:V55:852:806:900:825:V5:TC15:LJ3:15:CIRCLE(10,5)XC,YC#n S$D$(16):610:VV2:I12:7939,8:7940,V(VI2):ZS$S$(I2):9000:# 700:$ V511:811:V511:II13:7939,4:7940,130:ZS$"If x = "J$(II6)": ":9000:7939,24(J$(II6))2:79J$(II6)": ":9000:7939,24(J$(II6))2:7940,V(V):ZS$J$(II6):9000"_ 7939,32(J$(II3))2:7940,V(V):ZS$J$(II3):9000:XXC(1,II):YYC(4,II):7939,4:7940,144:ZS$D$(15):9000:850:900:VV2:823:>#d C1:7939,4:7940,144:ZS$D$(14):900000:XXC(1,II):YYC(2,II):850:900:VV2:823p!F :C2:7939,4:7940,144:ZS$D$(14):9000:851:806:900:825!P V5:7939,4:7940,V(V):ZS$D$(13):9000:VV2:7939,6:7940,V(V):ZS$S$(2):9000M"Z V11:811:V11:II13:7939,4:7940,130:ZS$"If x = "1):9000:MO%2610,2700,2800,2800: 2 V11:811:V11:II13:7939,4:7940,130:ZS$"If x = "J$(II6)": ":9000:7939,24(J$(II6))2:7940,V(V):ZS$J$(II6):9000/!< 7939,32(J$(II))2:7940,V(V):ZS$J$(II):9000:7939,4:7940,144:ZS$D$(15):90(UN%,KI%,1)PG%O21103RPG%0:MO%3İ25000=S2000( 825:827:V5:7939,58:7940,V(V):ZS$D$(4):9000:VV1:I12:7939,60:7940,V(V):ZS$S$(I):9000:VV1::805% - V5:7939,4:7940,V(V):ZS$D$(13):9000:VV2:7939,6:7940,V(V):ZS$S$(3SC%(UN%,KI%,(MO%2)4)0z91000:TL10:4849,7:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1:MO%3SC%(UN%,KI%,1)1:891>?H390:2600:MO%4İ1000IMO%4ZF%1:ZF$"ALG.2.3":9950MNX$"fd"2130NPG%PG%1:891:MO%3SC% 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:440:ZS$A$:9000:MO%AN:A$"4"ZF%1:MO%0:ZF$"ALG.2.3":9950 MO%(C):ZS$FF$:((H1)72),V(V):9100:15:MODE(1):H(H),V(V)4:ZS$"2":9100:MODE(2):: " DRAW A RED EXPONENT TWOMO%42105MO%0:PG%0:KI%2:912:891ZS$T1$:876:ZS$T2$:875:15H14:V6(2KI%):WD$TY$(KI%) V65)2)S$(3)"x="(C(5,5)):S$(4)"y="(C(4,5))[.N919:PL$J$(N9):520:J$(N9)PL$:i3Z9(1):`9:ZS$FF$:H(H)4,V(V):9100:j13:ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1):t9:ZS$FF$:((H1)72),V(V):9100:*C931040lN913:C(2,N9)982((J(2)J(1))3J(6N9)J(2)):C(4,N9)982((J(5)J(4))3J(6N9)J(5)):XC39635C(5,5):YC982C(4,5):NN9:992$PL$((J(2)J(1))3):522:S$(1)"y="PL$"x"J$(2):PL$((J(5)J(4))3):522:S$(2)"y="PL$"x"J$(2:(J(2)(J(2)))(((J(2)J(1))3)((J(2)J(1))3))1020C(5,5)((1)7)3:C(4,5)(J(2)J(1))3C(5,5)J(2):C(4,5)(C(4,5))1020 N90J(4N9)(J(1)J(2))3(N933C(5,5))C(4,5):(J(4N9)(J(4N9)))((J(4N9))20)1010 N9N91:N15:CIRCLE(12,6)XC,YC#' 700:3' PG%1İ350' RI0:V511:811:V511:II13:7939,4:7940,130:ZS$"If x = "J$(II6)": ":9000:7939,24(J$(II6))2:7940,V(V5):TC15' LJ3:LI1M( ZS$J$(II6):9000:RA$J$(II):914:7939,33RA2:7940,V(V5):905:490:((AN$))30S$"The point is off the graph.":V19:610:2820( S$"I'll plot the point.":V19:610:XXC(1,II):YY98((AN$)2):850( 900:823:V5V52::C3:V19:S$D$(14):610:C2:851:806:900:825:) V55:7939,4:7940,V(V5):ZS$D(7);:407D 400:A$"Y"A$"y"A$"N"A$"n"ZS$A$:9000:M 410i 390:A$:A$(32)415o  390:A$:A$"0"A$"9"ANS(A$): 420 906:C5:835:420:ZS$A$:9000:C0:835: NX$"redo"A$(13)ı 436 390:A$000:" @Z1TC:Z2LI:Z3LJ:Z4VI JTC14:LI1:LJ25.5:V17:S$T$:610d TTCZ1:LIZ2:LJZ3:VZ4j ^z 16368,0: 390:A$: 390:A$:A$(127)NX$"redo"  906:C5:835 390:A$:A$"-"A$"+"AN$A$:ZS$A$:9000:C0:835: " ALG.2.1.4 - SJW - V.101789-99007c9600WMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$5ZW%20:SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)1:MO%3ZW%15 6MO%3Ĺ7939,4:7940,V(ZW%):ZS$T$:9 !"#$%&'()*+,-./012READING, 166 BYTES/RECORD(1aI1NU%31aJ14Y1aSC%(I,J,1)0SC%(I,J,5)3:250301aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:250301aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:250301aSC%(I,J,5)21a:1e)4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:9100P0&16368,0:A$m0&::(4);"VERIFY ";ZF$0&ZF%0:216,0::(4);"-";ZF$:0' ERROR TRAP FOR DISK FLIP0'216,0:822:99650a SCORE TRACKING ROUTINE1a " OPEN CDFILE$ FOR /& TRAP FOR DISK FLIP1/&216,0:9990;/&9981F/&9990t/&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>0&ZS$"and":H(21(ZS$).%X(X)(X74)*.%Y(Y)(Y2425)x.%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).%.& CONTROL-C TRAPPING.&((218)(219)256)9220Č822:9225/&1,64::SCR.UN.PAC,-$1,98::SCR.U1.PACE-"$1,118::SCR.U2.PAC]-,$1,73::SCR.KI.PACo-6$:SCR.MO.PAC-@$1,137::SCR.U3.PAC-J$1,84:: SCR.U4.PAC-% * FUNCTION DEFINITIONS *-%H(H)(H1)14-%I(H)(H1)2.%V(V)((V1)8)31)):7936:,#K,# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)W,#Z9(1)a,#ZS$;n,#ZP%1ĺx,#ZP%0~,#,# COMPRESSION BUFFER MANAGER,#Z9(1),$0,0:(4849)9230,9240,9250,9260,9270,9280,9290:4352, $4848,(4849):-$$(I2):9000:VV1::VV1:15:CIRCLE(10,5)XC,YCJ+@ RI6İ300:2890+E S$"Only "(RI)" of your points are on the lines.":VV1:610+J 700:+(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)+-#Z9(1) ,2#ZL1(ZS$):7941,((ZS$,ZL,)30S$"The point is off the graph.":V19:610:2860*" S$"I'll plot the point.":V19:610:XXC(1,II):YY98((AN$)2):850*, 900:V5V52:823::C1:S$D$(14):V19:610:8525+6 806:900:825:V5:S$D$(16):610:VV2:I12:7939,8:7940,V(V):ZS$S$(13):9000:V5V52:7939,6:7940,V(V5):ZS$S$(2):9000) V511:811:V511:II13:7939,4:7940,130:ZS$"If x = "J$(II6)": ":7939,24(J$(II6))2:7940,V(V5):ZS$J$(II6):90007* RA$J$(II3):914:7939,33RA2:7940,V(V5):905:490:((AN$):A$"2"A$HI$ı 4300 MO%3İ402:? 390:A$:h 906:15:BOX(16,2)X(X9),Y(Y91)q 433 A$"0"A$"9"AN$AN$A$:ZS$A$:9000:C0:835: A$"-"A$"+"AN$A$:ZS$A$:9000:C0:835:H9H91:435 428 420:AN1AN4CHAN: 440( 906:C5:8351 433L NX$"redo"C0:835:w A$"+"A$"-"ZS$A$:9000:C0:835: A$"A"A$"Z"A$((A$)32) A$"a"A$"z"ZS$A$:9000:C0:835: A$"0"A$"9"ZS$A$:9000:C0:835: (7);:SC%(UN%,KI%,(MO%2)4)0^91000:TL10:4849,2:9200:PG%1:891:ZS$T2$:876:ZS$WD$:875z:MO%3SC%(UN%,KI%,1)1>MO%3İ861?862:841:H6:V7:7939,I(H):7940,V(V):ZS$D$(1):ZP%1:9000:FA$S$(1):H15:V7:1100H390:3400:1000M 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:440:ZS$A$:9000:MO%AN:A$"4"ZF%0:MO%0:ZF$"ALG.2.1":9950 MO%39:ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1):m15:7939,I(H):7940,V(V)4:ZS$"2":9000:15:X(X)4,V(V)4:"2";: MO%0:PG%0:KI%4:912:891ZS$T1$:876:ZS$T2$:875H14:V6(2KI%):WD$TY$(KI%) V6$)48(FF$)57İ1160:HH2JP(FF$"+"FF$"-")ZS$FF$:1120:HH2mTFF$"a"FF$"z"İ1140:HH2wVFF:`9:MODE(2):H(H)4,V(V):9100:MODE(1):t9:ZI18:FF$SS$(ZI)ZS$FF$uZI:MODE(2):H(H)4,V(V):9100:MODE(1)::2)J(3):MD$((MDJ(4))):SG$" +":MD0SG$" -"MH(MD)10SG$SG$" "IS$(1)J$(4)S$"@"SG$MD$S$" - "J$(1):SA1:S3$S$SG$((MD))S$" - "(J(2)J(3)):LFF1(FA$):FF$(FA$,FF,1)MFF$" "1110NFF$"@"İ1190:HH1O(FF2)(I2)SG$" - " 1090.I71000GLEI:S$SS$(I):1001BIJ24:999:J(IJ)I:IJ:J(2)J(3)J(2)(J(2)9)8((J(2)9)(J(2)1))(J(2)1)CJ(4)2J(4)J(4)23GJ(1)J(2)J(3)J(4):NN4:998:S$(2)S$"+"J$(2):S$(3)S$"-"J$(3):MDJ(:415:MODE(2):39,177:15:9100:MODE(1)::B0:[V9(7940)81:H9(7939)21:7939,I(H9):7940,V(V9):X9(H91.1)8:Y9(V98)2:4849,1:9200:I1NN:J$(I)(J(I)):I:I((1)9)1:999:1005999:SG$" + ":(I2:7939,45(ZS$):7940,17:9000:7969,8:al7969,22:7939,45(ZS$):7940,5:9000:7969,8:{7939,2:7940,7:ZS$"C"(KI%)" P"(PG%):9000:7939,2:7940,15:ZS$"M"(MO%):9000:7822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1)213LL9),Y(BY)ZI:ZI:eCC(C):ZI01:H(H9),V(V91)ZIH(H9)14,V(V91)ZI:ZI:15:I5126,28:5127,40:5128,71:5129,60:5120:]5126,3:5127,72:5128,42:5129,162:5120:^5126,48:5127,72:5128,76:5129,162:5120:,k7969,2T ARROW SELECTED (OR SPACE BAR)LPG%9((MO%4)(TT20))NX$"fd":739YNX$"bk"d822:45126,1:5127,30:5128,78:5129,186:5120:615:B15:MODE(2):5,178:19);:MODE(1):B0:?BY(V8)8:15:ZI01:X(213BX),Y(BY)ZIX(9100:MODE(1)LMO%4TT20įMODE(2):66,178:ZS$"Menu":9100:MODE(1)Z15:B0jZA$"":ZA$|ZA$(8)720(ZA$(21))(ZA$(32))730710 LEFT ARROW SELECTEDMO%4TT20NX$"fd":729NX$"bk"822:! RIGH,178:9100:ZS$"]}":123,178:9100:MODE(1)=MO%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,178:ZS$"Problems":"670,ZS$(S$,LT(X$SP$)):9000:660US$(S$,(S$)LT):VV1:LI1VV1^620::::(7);"WORD TOO LONG":L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA09000:.822:NX$"":ZS$"{]":MODE(2):1:B15:4446l 822:ZS$"Delete":MODE(2):2:B15:15,178:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: 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$"-NX$"fd"2130=NPG%PG%1:891:MO%3SC%(UN%,KI%,1)PG%GO2110_RPG%0:MO%3İ25000iS2000H BX8:MO%3410,3500,3600,3600:: CONCEPT 4R S$D$(2):TC21:LI1:LJ2.5:V11:610:VV2:S$D$(23)J$(4)PD$:7939,50:7940,72:ZS$"( )( )( )":9000:610: C4,M1S 7939,52:7940,72:ZS$J$(4):9000:S$D$(9)D$(19SA)D$(14)D$(15SA):P$(SG$,2,1)" )( "(SG$,2,1):SA1P$"+ )( -"W 7939,52:7940,96:ZS$S3$:9000:X215:VV1:1191:VV1\ VV2:610:7939,60:7940,72:ZS$P$:9000:900"The answer is:":9000:S$"("J$(4)")("S$(2)")("S$(3)")":7939,50:7940,136:ZS$S$:9000k*o700:*t CONCEPT 4 WHAT HAVE YOU*(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)*-#Z9(1)*2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:+#39,50:7940,72:ZS$"( )( )( )":9000:3630s)8AN$(HH)AN$(HH)A$:H9H91:HJ:H9H92:HH:I12:RI(I1)0:I)QI23:AN$(1)S$(I)RI(I)1)VI:I23:AN$(2)S$(I)RI(I)1)`I:I23:RI(I)13690)eI:300:3695`*j7939,48:7940,120:ZS$1V15:S$D$(11):6108(%PG%1VV2:S$D$(12):610A(&470{(.V910:H927:AN$(1)"":AN$(2)"":445:NX$"redo"3635(/(A$)(J$(4))RI(1)1:7939,52:7940,96:ZS$S3$:9000:X215:V13:1191(0H930:HH12:HJ13:4450)3NX$"redo"NX$"":79 TC20:S$"Try "(S$(2),3)" and "(S$(3),3)PD$:LI1:610:900:7939,62:7940,72:ZS$SP$:9000:7939,72:7940,72:9000:3570'300:700:'C4,M3'PG%1S$D$(4):TC21:LI1:LJ2.5:V10:610($7939,50:7940,72:ZS$"( )( )( )":9000:PG%numbers with a "D$(21SA)" of "((MD))" and a product of "(J(2)J(3))PD$:610a& VV2& V910:H932:HH12:7939,I(H9):7940,V(V9):425:AN$(HH)AW$(HH)A$:H9H95:HH& AN$(1)S$(2)AN$(2)S$(3)3590& AN$(1)S$(3)AN$(2)S$(2)3590'0,V(V9):445:AN$(HH)A$:H9H95:HH:AN$(1)R$AN$(2)R$3560% TC20:(7);:S$"The square root of "R$" is "R$PD$:V14:LI2:610:LI1:X18:Y125:1191:900% 7939,58:7940,72:ZS$SP$:9000:7939,68:7940,72:9000:3545W& 861:V10:S$"Find 2 AN$(1)AN$(2)3540$ 5126,3:5127,96:5128,42:5129,160:5120:S$D$(5):V17:(7);:610:900:7939,60:7940,72:ZS$SP$:9000:7939,70:7940,72:9000:3521$ I12:AW$(I)R$AN$(I):I:861:V10:S$D$(6):610@% V910:H930:HH12:7939,I(H9):794V13:LI1:5126,3:5127,96:5128,42:5129,160:5120:610:900:7939,52:7940,72:ZS$SP$:9000:3515# ZS$S3$:7939,52:7940,96:9000:X215:V13:1191:V16:S$D$(9)D$(19SA)D$(14)D$(15SA):LI1:610$ V910:H931:HH12:407:AN$(HH)A$:H9H95:HH:" 822:TC21:LI1:LJ2.5:S$D$(4):S$"Set the parentheses for factoring.":V10:610:7939,50:7940,72:R$SS$(LE): C4,M2" ZS$"( )( )( )":9000:VV2:S$D$(23)"_?_":LI1:610" V910:H927:425:A$J$(4)3520e# (7);:S$D$(23)J$(4)PD$:9000A! S$"":I1(S$(1)):K$(S$(1),I,1):K$"@"S$S$K$! I:7939,48:7940,V(V2):ZS$S$:9000:X215:YY16:1191! 7939,4:7940,120:ZS$"The answer is:":9000:S$"("J$(4)") ("S$(2)") ("S$(3)")"" 7939,6:7940,136:ZS$S$:9000:700:00:1191 VV1:7939,I(H1):7940,V(V):ZS$SI$(2)J$(3)SS$(LE)" - "(J(2)J(3)):9000:LL10:831:CT1:VV2:X215:YBY2! 7939,52:7940,V(V):ZS$S3$:9000:1191:7939,48:7940,V(V):ZS$J$(4)"(":9000:7939,I(27(S3$)):7940,V(V):ZS$")":3:SE$(I)(S$(I),1)SP$(S$(I),2,1)SP$(S$(I),1):I:V13:H27:DL1:7939,I(H):7940,V(V1):ZS$SE$(2):9000:LL(SE$(2)) 7939,I(H):7940,V(V):ZS$SE$(3):9000:831:VV2:7939,I(H):7940,V(V):X215:YBY2:ZS$SS$(LE)SIG$(1)J$(2)SS$(LE):907939,62:7940,72:ZS$J$(2):9000:7939,72:7940,72:ZS$J$(3):9000:900:861:V11:S$"Now let's check:":610~ 51206,48:51207,81:51208,76:51209,162:5120 V13:S$"Multiply:":610:I12:SI$(I)SG$:I:SA1SI$(1)" + ":SI$(2)" - " I2f 861:S$SS$(LE)D$(3):V11:610:X18:VV1:1191:VV1:VV2:S$D$(6):610:7939,58:7940,72:ZS$SS$(LE):9000:7939,68:7940,72p 9000:VV2:S$"Find 2 numbers with a "D$(21SA)" of "((MD))" and a product of "(J(2)J(3))PD$:LI1:610oz =+# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)I+#Z9(1)S+#ZS$;`+#ZP%1ĺj+#ZP%0p+#+# 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!,"$:ASCII9,,$1,73::SCR.KI.PACK,6$:SCR.MO.PACk,% * 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(C906:ZS$(EZ$,RA):9000:AN$"":NX$"":470B(AN$)(RA)496f435:NX$"redo"A$(13)495C0:836:NX$"redo"NX$"":H9H8:490A$(13)AN$""RA(AN$)491(RA$)(AN$)RIRI1:MO%3ı(7);:C0,H9H8:90A$(13)AN$""RA(AN$)= NX$"redo"NX$"":835:480F 481p RA$J$(2)RA$J$(3)MO%3FL0:487 AN$RA$ĺ(7);:835:FA$RA$:C5:1100:FL0:822: (AN$)J(2)J(2)9:489 (AN$)J(3)J(3)9 FL0:C0:838:822:,H8H9:(L1):= A$"+"C0:838:FF$A$:1130:HH2:AN$AN$A$:J (7);: 822:ZS$"Delete":MODE(2):2:B15:15,178:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: AN$"":NX$"":470:FL0FL1:H9H (AN$)(RA)485 C5:838:450:J A$"0"A$"9"NN(A$):C0:838:FF$A$:1130:HH2:AN$AN$A$: A$"-"AN$""C0:838:FF$A$:1130:HH2:AN$AN$A$: (A$)64(A$)91A$((A$)32) ((A$)64(A$)91)((A$)96(A$)123)C0:838:FF$A$:1130:HH2:AN$AN$SS$5:836 (MO%2)1400,402` A$"0"A$"9"AN$AN$A$:ZS$A$:C0:836:9000:H9H91: (A$"-"A$"+")AN$A$:ZS$A$:C0:836:9000:H9H91:435 428 420:AN1AN4CHAN: 440 ((MO%1)1)400,402 NX$"redo"A$(13)1 6V11:690:8 ^MO%3SC%(UN%,KI%,(MO%2)4)0> _N 16368,0:] 390:A$: 390:A$:A$(127)NX$"redo"  400:A$(32)415  400:A$"0"A$"9"AN(A$): 420 NX$"redo"A$(13)ı 436 906:C" ALG.2.3.4 - SJW - V.102589-99007c9600qdEZ$" ":LZ$"|___________________"MODE(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)456789:;<=>?@ABCDEFGHIJ,J,1)5SC%(I,J,5)2:25030a0aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030r0aSC%(I,J,5)2z0a:0e::(4);"-";ZF$:7/' ERROR TRAP FOR DISK FLIPM/'216,0:822:9965k/a SCORE TRACKING ROUTINEy/a:RETURN /a " OPEN CDFILE$ FOR READING, 166 BYTES/RECORD/aI1NU%/aJ14/aSC%(I,J,1)0SC%(I,J,5)3:250300aSC%(I,J,1)0SC%(I1ZS$"Check Disk Drive":99724.&ZS$"Flip Disk"i.&: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,04)12(C5)13(C6)9(C7)7<-%M(X)((X2)(X2))2B-%W-& CONTROL-C TRAP-&((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%6:ZS$(EZ$,RA):9000:906:ZS$RA$:9000:XLP(PL$)1:(PL$,1)"+"PL$(PL$,LP)^ bL(S$):LTCLJ0T$S$:690:cHLJl7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905:vLTTC11:X$(S$,LT,1):X$SP$X$"-"670ZS$(S$,LT(X$SP$)):9000:660GS$(S$,(S$)LT):VV1:LI1VV1P620v::::(7);"WORD TOO LONG":L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA09000: 822:NX$"":ZS$"{]":MODE(2):1:B15:4,178:9100:ZS$I114:7939,6:7940,V(V):ZS$MZ$(I1)" "CH$(I1):9000:VV2:7939,6:7940,152:ZS$"Your choice? (1-4) ":9000:440:ZS$A$:9000:MO%AN:A$"4"ZF%1:MO%0:ZF$"ALG.2.3":9950 MO%3SC%(UN%,KI%,(MO%2)4)0:91000:TL10:4849,6:9200:ZS$T29,I(H):7940,V(V)4:ZS$"2":9000:MODE(2):: " DRAW A RED EXPONENT TWO`MO%42105MO%0:PG%0:KI%4:912:891ZS$T1$:876:ZS$T2$:875:15H14:WD$TY$(KI%) V6B LJ0:TC34:S$WD$:610:VV2:S$"Mode Selection":610:V11::1110P1120:HH2/VFF:MODE(1):C0:W`9:ZS$FF$:H(H)4,V(V):9100:j13:ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1):t9:ZS$FF$:((H1)72),V(V):9100:C(C):ZS$FF$:((H1)72),V(V):9100:PMODE(1):793"+"PL$e8J$(7)PL$:J(8)J(6)(J$(7)):PL$(J(8)):J$(8)PL$:J(9)(J(8)):PL$(J(9)):J$(9)PL$:LMODE(2):FF1(FA$):FF$(FA$,FF,1)MC0FF$"@"İ1160:HH2:1110NFF$"@"İ1190:HH1:1110OFF$"("FF$")"CLC:C5:1160:CCL:HH2="J$(8):S$(6)S$J$(6)"=~"J$(9):S$(9)S$(4)"=":S$(7)S$"="J$(2):S$(8)S$"="J$(3):S$(4)S$(4)"="J$(4)3J(6)J(5)J(5):PL$(J(6)):J$(6)PL$:S$(9)J$(5):PL$(J(5)(1)):520:J$(5)PL$:PL$J$(1):520:J$(1)PL$ 4PL$(J(4)4):(J(4)4)0PL$(J(8)):NN9:992IJ23:S$(IJ)S$J$(IJ)::S$(4)S$"@"J$(5)S$:S$(1)S$(4)J$(1)"=0":II484:PL$J$(II):520:J$(II)PL$: PL$J$(9):520:J$(9)PL$:I23:J(I)J(I)(1)::NN3:992:II23:PL$J$(II):520:J$(II)PL$:p"S$(5)S$(4)J$(7)"N9)1:I(IN9)(N91)(IN9)I:7I((1)9)1:TN97:997:L1I:S$SS$(I)IJ23:999:995:J(IJ)ISG::J(2)J(3)1050J(1)J(2)J(3):J(4)J(1)(1):J(5)J(2)J(3):J(6)J(5)2:J(6)(J(5)2)1050J(7)J(6)J(6):J(8)J(4)J(7):J(9)H9((7939)2)1:N7939,I(H9):7940,V(V9):X9(H91.1)8:Y9(V98)5:b4849,1:9200:RA(RA$)1:NE((RA$,1)"-"):I1NN:J$(I)(J(I)):J(I)0J$(I)"+"J$(I):999:SG$"+":SG1:N(I)1SG$"-":SG1#I((1)PG%):893|ZS$ZS$" "P}9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897gZS$ZS$" "(PG%)s9000: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)8)1:7,69:5128,77:5129,162:5120:XQ5126,3:5127,69:5128,77:5129,96BI:5120:BI0: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$(8),Y(Y9)ZI:ZI:15:_FC(C):ZI01:H(H),V(V)7ZIH(H2),V(V)7ZI:ZI:15:H5126,7:5127,38:5128,71:5129,61:5120:M5126,43:5127,136:5128,73:5129,163:5120:N5126,3:5127,120:5128,73:5129,150:5120:!O5126,4:512CE BAR SELECTED<PG%9((MO%4)(TT20))NX$"fd":739INX$"bk"T822:615:B15:MODE(2):5,178:19);:MODE(1):B0:CC0:838:5126,I(H9):5127,V(V):5128,71:5129,V(V1):5120:HH9:DC(C):ZI01:X(X9),Y(Y9)ZIX(X9>MO%4TT20įMODE(2):66,178:ZS$"Menu":9100:MODE(1)L15:B0\ZA$"":ZA$nZA$(8)720(ZA$(21))(ZA$(32))730710 LEFT ARROW SELECTEDMO%4TT20NX$"fd":729NX$"bk"822: RIGHT ARROW OR SPA"]}":123,178:9100:MODE(1)/MO%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,178:ZS$"Problems":9100:MODE(1)$:876:ZS$WD$:875:MO%4PG%1:MO%3SC%(UN%,KI%,1)1C:891I>O?kH390:3400:MO%4İ1000IMO%4ZF%1:ZF$"ALG.2.3":9950MNX$"fd"2130NPG%PG%1:891:MO%3SC%(UN%,KI%,1)PG%O2110RPG%0:MO%3İ25000S2000X H C0:V7:840:MO%3PG%1BI15:849:5126,43:5127,136:5128,73:5129,163:5120:3402a I 847 J 822:7939,8:7940,48:ZS$D$(1):9000:FA$S$(1):H13:1100 K MO%3410,3500,3600,3600: !R S$D$(17):TC36:LI1:LJ4:V10:610:FA$"-b~*b@-4ac":V12:H190:9:135,130135,135134,135134,130296,130:BOX(260,1)36,146:FA$"2a":V20:H11.5:1100:7939,43:7940,120:ZS$D$(12):9000.BIJ12:FA$SS$(L1)"=":H25:V16IJ2:C5:1100:RA$J$(1IJ):914:RA4:FL0:480:.LI23:J(I)9WR1/V:WR0B4:4800-:I23:J(I)9ĺ(7);:845:3480M-:BI15:849:300:700:-WR0:TC36:LI1:LJ4:V10:L(D$(17))1:S$(D$(17),L)" to calculate the answer.":610:S$D$(3):VV2:PG%1İ350-610:MO%3PG%13650.$FA$"-b~*b@-4ac":V18:H3:110J$(9):914, 490:FA$J$(5)"~"J$(9):V17:H5:846:1100:LE(FA$):9:BOX(28LE,1)56,138:FA$"2":V19:H7((J$(5))1)2:1100- 7939,34:7940,120:ZS$"The answers are:":9000:IJ12:FA$SS$(L1)"=":H25:V16IJ2:C5:1100:RA$J$(1IJ):914:RA):914:490:FA$J$(5)"~*"J$(8):V17:H4:846:1100:LE(FA$):FA$(EZ$,(J$(5))1)(LZ$,(J$(8))1):V16:H4:1100:9:BOX(28LE,1)38,138 , FA$"2":V19:H8((J$(5))1):1100:TC16:LI2:LJ4:S$"The square root of "J$(8)" is: ":V12:610:905:RA$$(6))(J$(7))((J$(7))0)1):V16:H3:1100* 9:BOX(28LE,1)27,138:FA$"2":V19:H9((J$(5))1)2:1100:7939,6:7940,88:ZS$"Simplify: ":9000:7939,6:7940,104:ZS$J$(6)J$(7)" = ":9000:905* ZS$" ":9000:906+ RA$J$(800:900:7939,6:7940,88:ZS$"Calculate: ":9000) ZS$"-(4)(1)("J$(1)") = ":7939,8:7940,104:9000:905:RA$J$(7):914:490:FA$J$(5)"~*"J$(6):(J$(7))0FA$FA$"+"0* FA$FA$J$(7):V17:H3:846:1100:LE(FA$):FA$(EZ$,(J$(5))1)(LZ$,(J0:905:ZS$" ":9000:906:RA$J$(1):914:490( HH5:V17:1100:LELE(FA$):V16:HH5:FA$(LZ$,(J$(1))5):1100:7939,8:7940,104:ZS$"a = ":9000:905:ZS$" ":9000:906:RA$"1":914:4903) 9:BOX(28LE,1)27,138:15:FA$"2(1)":V19:H10:11ZS$"Substitute:":9000:7939,8:7940,104:ZS$"b = ":9000:905:RA$S$(9):914:490:FA$J$(5)"~*"J$(6)"-"' V17:H3:1100:FA$(EZ$,(J$(5))1)(LZ$,(J$(6))2):V16:H3:LE(FA$)1( 1100:H5H:FA$"4%1("J$(1)")":7939,8:7940,104:ZS$"c = ":9009000:IJ78:FA$S$(IJ):H25:V18(IJ8)2:C5:1100:C& 700:& S$D$(17):TC36:LI1:LJ4:V10:610:FA$"-b~*b@-4ac":V12:H19.5:1100:9:363,82363,87362,87362,82520,82:BOX(260,1)259,98:15:FA$"2a"& H28:V14:1100n' 7939,6:7940,88:):V16:H4:1100:9:BOX(28LE,1)38,138]% FA$"2":V19:H8((J$(5))1):1100:900:846% FA$J$(5)"~"J$(9):V17:H5:1100:LE(FA$):9:BOX(28LE,1)56,138:FA$"2":V19:H7((J$(5))1)2:1100:9008& 7939,34:7940,120:ZS$"The answers are:":(J$(6))(J$(7))((J$(7))0)1):V16:H3:1100:9:BOX(28LE,1)27,138$z FA$"2":V19:H9((J$(5))1)2:1100:900:7939,6:7940,104:ZS$"Simplify: ":9000:846+% FA$J$(5)"~*"J$(8):V17:H4:1100:LE(FA$):FA$(EZ$,(J$(5))1)(LZ$,(J$(8))14:ZS$"a = 1 ":9000:V19:H10:1100:900l#k 7939,6:7940,88:ZS$" ":9000:7939,6:7940,104#p ZS$"Calculate:":9000:846:FA$J$(5)"~*"J$(6):(J$(7))0FA$FA$"+"L$u FA$FA$J$(7):V17:H3:1100:LE(FA$):FA$(EZ$,(J$(5))1)(LZ$,1)(LZ$,(J$(6))2):V16:H3:1100:LE(FA$):900"\ FA$"4%1("J$(1)")":7939,8:7940,104:ZS$"c = "J$(1)" ":9000:H5H:V17:1100:LELE(FA$):V16:HH5:FA$(LZ$,(J$(1))5):1100:900,#f 9:BOX(28LE,1)27,138:15:FA$"2(1)":7939,8:7940,10.5:1100h!S 9:363,82363,87362,87362,82520,82:BOX(260,1)259,98:15:FA$"2a":H28:V14:1100!W 7939,6:7940,88:ZS$"Substitute:":9000:7939,8:7940,104:ZS$"b = "J$(5)" ":9000:FA$J$(5)"~*"J$(6)"-":V17:H3:11005"X FA$(EZ$,(J$(5))I15:849:300:3690X/`(7);:845:IJ78:FA$S$(IJ):H25:C5:V18(IJ8)2:1100:c/j700:/(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)/-#Z9(1)/2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:/#0# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)!0#Z9(1)+0#ZS$;80#ZP%1ĺB0#ZP%0H0#k0# COMPRESSION BUFFER MANAGERw0#Z9(1)0$0,0:(4849)9230,9240,9250,9260,9270,9280:43520 $4848,(4849):0$1,64::SCR.UN.PAC0$1,98::SCR.U1.PAC 1"$1,118::SC-"670-ZS$(S$,LT(X$SP$)):9000:660VS$(S$,(S$)LT):VV1:LI1VV1_620::::(7);"WORD TOO LONG":L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA09000:/822:NX$"":ZS$"{]":MODE(2):1:B15:)9:489" (AN$)J(3)J(3)9; FL0:C0:838:822:g LP(PL$)1:(PL$,1)"+"PL$(PL$,LP)m  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$" AN$"":NX$"":470:FL0FL1:H9H= (AN$)(RA)485e C5:838:450:A$(13)AN$""485 NX$"redo"NX$"":835:480 481 RA$J$(2)RA$J$(3)MO%3FL0:487 AN$RA$ĺ(7);:835:FA$RA$:1100:FL0:822: (AN$)J(2)J(2(A$)96(A$)123)C0:838:LEL1:FF$A$:C6:1160:HH2:AN$AN$SS$(L1): A$"+"AN$""C0:838:C6:FF$A$:1160:HH2:AN$AN$A$: (7);: 822:ZS$"Delete":MODE(2):2:B15:15,178:9100:ZS$" to Erase":1:9100:MODE(1):15:B0:'"":((MO%1)1)400,4025 NX$"redo"A$(13)ı A$"0"A$"9"NN(A$):C0:838:C6:FF$A$:1160:HH2:AN$AN$A$: A$"-"AN$""C0:838:C2:FF$A$:1120:HH2:AN$AN$A$: (A$)64(A$)91A$((A$)32)L ((A$)64(A$)91)(,KI%,(MO%2)4)0 _) 16368,0:8 390:A$:[ 390:A$:A$(127)NX$"redo"a y 400:A$(32)415  400:A$"0"A$"9"ANS(A$): 420 400:A$"2"A$HI$ı 430 420:AN1AN4CHAN: 440 NX$" ALG.2.3.3 - SJW - V.102589-99007c9600LdEZ$" "lMODE(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)16V11:690: ^MO%3SC%(UN%LMNOPQRSTUVWXYZ[\065aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:25030z5aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:250305aSC%(I,J,5)25a:5e:(4);"VERIFY ";ZF$:4&ZF%0:216,0::(4);"-";ZF$:]4' ERROR TRAP FOR DISK FLIPs4'216,0:822:99654a SCORE TRACKING ROUTINE4a " OPEN CDFILE$ FOR READING, 166 BYTES/RECORD4aI1NU%4aJ145aSC%(I,J,1)0SC%(I,J,5)3:2503,30:5128,78:5129,186:5120F3&ZF%1ZS$"Check Disk Drive":9972Z3&ZS$"Flip Disk"3&:MODE(2):12:B0:H(21(ZS$))4,55:91003&ZS$"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:91003&16368,0:A$4&:C4)12(C5)13(C6)9(C7)7>2%M(X)((X2)(X2))2]2%N(I)(((I3)(I3))3)c2%}2& CONTROL-C TRAPPING2&((218)(219)256)9220Č822:92252&2& TRAP FOR DISK FLIP2&216,0:99902&99812&99903&5126,1:5127R.U2.PAC"1,$1,73::SCR.KI.PAC416$:SCR.MO.PACM1@$1,137::SCR.U3.PACm1% * FUNCTION DEFINITIONS *1%H(H)(H1)141%I(H)(H1)21%V(V)((V1)8)1%X(X)(X74)1%Y(Y)(Y2425)"2%C(C)(C0)0(C1)6(C2)1(C3)15(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:9100:MODE(1):704ZS$"Problems":MODE(2):68,178:9100:MODE(1)MO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)MMO%4TT20įMODE(2):66,178:ZS$"Menu":9100:MODE(1)[15:B0kZA$"":ZA$}ZA$(8)720(ZA$(21))(ZA$(32))730710 LEFT ARROW SELECTEDMO%4TT20NX$"fd":729NX$"bk"822:  RIGD$(10):VV2:610:FA$S$(5)U V14:H13:1100:900:850:849:S$D$(11):V10:610 FA$S$(6):V16:H13:1100:900:7939,4:7940,136:ZS$D$(12):9000:II78:FA$S$(II):V20:H10(II8)15:1100: 700:3 TC36:LI1:LJ4:V10:S$D$(8):610:FA$S2000 V7:840:847X 822:7939,8:7940,48:ZS$D$(1):9000:FA$S$(1):H13:1100w MO%3010,3100,3200,3200: TC36:LI1:LJ4:V10:S$D$(8):610:FA$S$(4):V12:H13:1100 LX(J$(5))28:900:V16:S$D$(9):610:7:210,96210LX,96:15:S$200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1:MO%3SC%(UN%,KI%,1)1M:891S>Y?uH390:3000:MO%4İ1000IMO%4ZF%1:ZF$"ALG.2.3":9950MNX$"fd"2130NPG%PG%1:891:MO%3SC%(UN%,KI%,1)PG%O2110RPG%0:MO%3İ25000S610:V11:I114:7939,6:7940,V(V):ZS$MZ$(I1)" "CH$(I1):9000:VV2:7939,6:7940,152:ZS$"Your choice? (1-4) ":9000:440:ZS$A$:9000:MO%AN:A$"4"ZF%1:MO%0:ZF$"ALG.2.3":9950 MO%3SC%(UN%,KI%,(MO%2)4)0D91000:TL10:4849,6:9PONENT TWON15:X(X)4,V(V)4:"2";::" DRAW A WHITE EXPONENT "TWO"^MO%42105~MO%0:PG%0:KI%3:912:891ZS$T1$:876:ZS$T2$:875:15H14:V6(2KI%):WD$TY$(KI%) V6L LJ0:TC34:S$WD$:610:VV2:S$"Mode Selection":F$:MODE(2):H(H)4,V(V):9100:MODE(1):St9:ZI18:FF$SS$(ZI)ZS$FF$uZI:MODE(2):H(H)4,V(V):9100:MODE(1):9:ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1): 7939,I(H):7940,V(V)4:ZS$"2":9000:: " DRAW A RED EX:S$(4)S$(4)"="J$(4):;LFF1(FA$):FF$(FA$,FF,1)NMFF$" "HH2gNFF$"@"İ1190:HH1O(FF$)48(FF$)57İ1160:HH2P(FF$"~")(FF$"+")(FF$"-")(FF$"=")İ1120:HH2TFF$"a"FF$"z"İ1140:HH2VFF:.`9:ZS$F"=0":II484:PL$J$(II):520:J$(II)PL$: PL$J$(9):520:J$(9)PL$:I23:J(I)J(I)(1)::NN3:992:II23:PL$J$(II):520:J$(II)PL$:"S$(5)S$(4)J$(7)"="J$(8):S$(6)S$J$(6)"=~"J$(9):S$(9)S$(4)"=":S$(7)S$"="J$(2):S$(8)S$"="J$(3)IJ23:999:995:J(IJ)ISG::J(2)J(3)1050J(1)J(2)J(3):J(4)J(1)(1):J(5)J(2)J(3):J(6)J(5)2:J(6)(J(5)2)1050J(7)J(6)J(6):J(8)J(4)J(7):J(9)(J(8)):NN9:992.IJ23:S$(IJ)S$J$(IJ)::S$(4)S$"@"J$(5)S$:S$(1)S$(4)J$(1)1:9200:/RA(RA$)1:NE((RA$,1)"-"):aI1NN:J$(I)(J(I)):J(I)0J$(I)"+"J$(I)i:999:SG$"+":SG1:N(I)1SG$"-":SG1I((1)N9)1:I(IN9)(N91)(IN9)I:I((1)9)1:N97:997:L1I:S$SS$(I)/9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897JZS$ZS$" "(PG%)V9000: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)8)1:H9((7939)2)1: 4849,0:BI0:;R5126,3:5127,118:5128,77:5129,162:5120:qk7969,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$" "3}7ZI:ZI:15:AH5126,7:5127,38:5128,71:5129,61:5120:rL5126,2:5127,128:5128,73:5129,162:5120:N5126,3:5127,152:5128,73:5129,162:5120:O5126,4:5127,69:5128,77:5129,162:5120: Q5126,3:5127,69:5128,77:5129,96BI:512HT ARROW OR SPACE BAR SELECTEDKPG%9((MO%4)(TT20))NX$"fd":739XNX$"bk"c822:615:B15:MODE(2):5,178:19);:MODE(1):B0:CC0:838:HH9:FF$(EZ$,(AN$)1):1160:HH9:FC(C):ZI01:H(H),V(V)7ZIH(H2),V(V)$(9):V12:H13:1100:RA$J$(4):914:L9(S$(9))1Y& V12:H26:480:S$D$(9):V16:WR00 LX(J$(5))28:610:7:210,96210LX,96:15:S$D$(10):VV2:610:FA$(S$(9),L9)"+":V14:H13:1100: RA$J$(7):(RA$,1)"+"RA$(RA$,(RA$)1) ; 914:480H < FF$"=":1160:HH2:RA$J$(8):(RA$,1)"+"RA$(RA$,(RA$)1)V = 914:480 D 850:849:S$D$(11):V10:610:RA$(S$(6),3):(RA$,1)"+"RA$(RA$,(RA$)1) E 914 !N H13:V16:480:FA$"=~":1100:RA$J$(9):914:480:7939,6:7940,136:ZS$D$(7)NX$"redo" - 400:A$(32)4153 X 400:A$"0"A$"9"AN(A$):a 420} 400:A$"2"A$HI$ı 430 420:AN1AN4CHAN: 440 ((MO%1)1)400,402 NX$"redo"ı# A$"0"A$"9"NN(A$):C0:838:C7940,136:ZS$T$:9000:0 6KI%4V19:690:9 7313b 87939,3:7940,V(ZW%):ZS$T$:9000: 9KI%1MO%2V18:690: :KI%1V20:690: ;312 16368,0: A$:A$"A"A$"Z"A$((A$)32)  390:A$: 390:A$:A$(12" ALG.2.2.4 - SJW - V.101589-99007c9600NdEZ$" "nMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$ 5ZW%20:SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)1:MO%3ZW%15:KI%3Ĺ7939,18:^_`abcdefghijklmnopqraJ140)aSC%(I,J,1)0SC%(I,J,5)3:25030c)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$))4,100:9100'(&16368,0:A$D(&::(4);"VERIFY ";ZF$g(&ZF%0:216,0::(4);"-";ZF$:(' ERROR TRAP FOR DISK FLIP('216,0:822:9965(a SCORE TRACKING ROUTINE(a " OPEN CDFILE$ FOR READING, 166 BYTES/RECORD(aI1NU% )9990'&9981'&9990K'&5126,1:5127,30:5128,78:5129,186:5120s'&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":H(21O&%C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)7k&%M(X)((X2)(X2))2&%N(I)(((I3)(I3))3)&%&& CONTROL-C TRAPPING&&((218)(219)256)9220Č822:9225&&&& TRAP FOR DISK FLIP'&216,0:AC%"$1,118::SCR.U2.PAC5%,$1,73::SCR.KI.PACG%6$:SCR.MO.PACa%@$1,137:: SCR.U3.PACz%J$1,84:: SCR.U4.PAC%% * FUNCTION DEFINITIONS *%%H(H)(H1)14%%I(H)(H1)2%%V(V)((V1)8)%%X(X)(X74)&%Y(Y)(Y2425) ON DOUBLE HI-RES SCREEN, MODE(2)/$#Z9(1)9$#ZS$;F$#ZP%1ĺP$#ZP%0V$#y$# COMPRESSION BUFFER MANAGER$#Z9(1)$$0,0:(4849)9230,9240,9250,9260,9270,9280,9290:4352$ $4848,(4849):$$1,64::SCR.UN.PAC%$1,98::SCR.U1.PWR1(# :WR0BI8:849:300:3290f# (7);:844:II78:FA$S$(II):H20:V17(II8)2:1100:q# 700:#(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)#-#Z9(1)#2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:###$# DRAW CHARACTERS0:E" WR0:TC36:LI1:LJ4:V10:S$D$(2):610:S$D$(3):VV2:610x" 7939,6:7940,112:ZS$D$(12):9000:PG%1İ350" II78:FA$(S$(7),2):H20:V17(II8)2:1100:RA$J$(II5):(RA$,1)"+"RA$(RA$,(RA$)1)# 914:RA4:480::II23:J(II)912):9000o!X II78:FA$(S$(7),2):V20:H10(II8)15:1100:RA$J$(II5):(RA$,1)"+"RA$(RA$,(RA$)1)!] 914:RA4:480::II23:J(II)9WR1!b :WR0İ849:300:3190!l (7);:846:V20:II78:FA$S$(II)" ":H10(II8)15:1100:"v 706:FF$A$:1160:HH2:AN$AN$A$:\ A$"-"C0:838:C2:FF$A$:1120:HH2:AN$AN$A$: (A$)64(A$)91A$((A$)32) ((A$)64(A$)91)((A$)96(A$)123)C0:838:LEL1:FF$A$:C6:1160:HH2:AN$AN$SS$(L1):, (A$"+")(A$"=")C0:838:C6:FF$A$:1160:HH2:AN$AN$A$:9 (7);: 822:ZS$"Delete":MODE(2):2:B15:15,178:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: AN$"":470:FL0FL1:H9H (AN$)(RA)486 C5:838:450 (NX$"redo")((AN$)"İ1190:HH1@PC(FF$")")5(FF$"(")5:C(C0)6(C0)5PQ1160:HH2ZVFF:`9:ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1):uZI:MODE(2):H(H)4,V(V):9100:MODE(1):C(C):ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1)2):S$(4)(AN(1))VA$(2)"="(AN(2)):I12:J(I)AN(I)::NN2:992~?I12:PL$J$(I):520:AN$(I)PL$::(AN$(1))01070BKC2:C(PT0)PT(PT0)C:LLEL1:1099:FF1(FA$):FF$(FA$,FF,1):FF$SS$(L2)LEL2MFF$" "1110NFF$"@I12:J(I)AN(4I)::NN2:992:I12:AN$(4I)J$(I)::PL$AN$(5):520:AN$(5)PL$:PL$AN$(1):520:AN$(1)PL$=PL$C$(1,2):520:C$(1,2)PL$:S$(3)AN$(5)VA$(2)AN$(6)C$(2,2)VA$(2)"="C$(1,2)E>AN(1)(C(2,1)C(1,1))C(2,2):AN(2)(C(2,1)CN(1))C(1,(2)CN$:VV(1)(C(1,1)VV(2))CNx8C(1,2)(VV(1)C(2,1))(VV(2)C(2,2)):C$(1,2)(C(1,2)):L(C$(1,2))1:AN$(7)J$(5);S$(2)C$(2,1)VA$(1)C$(2,2)VA$(2)"="C$(1,2):AN(5)C(2,1)C(1,1):AN(6)C(2,1)CN:S$(5)VA$(1)"="C$(1,1)"("AN$(7)")"CN$n<I)x.II15:J(II)N(I)2:995:J(II)J(II)SG::NN5:992:II12:C(2,II)J(II):C$(2,II)J$(II)::CNJ(3):CN$J$(3)1I15:PL$J$(I):520:J$(I)PL$:!3C(1,1)J(4):C$(1,1)J$(4):VV(2)J(5):VA$(1)SS$(L1):VA$(2)SS$(L2):S$(1)VA$(1)"="C$(1,1)VA$)5:4849,1:9200:=RA(RA$):NE((RA$,1)"-"):oI1NN:J$(I)(J(I)):J(I)0J$(I)"+"J$(I)w:999:SG$"+":SG1:N(I)1SG$"-":SG1I((1)7)1:I(I7)6(I7)I:I((1)9)1:997:L1I:L2I1:S$SS$(:MO%4897$ZS$ZS$" "(PG%)09000: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:7939,I(H9):7940,V(V9):X9(H91.1)8:Y9(V981:5129,119:5120:Kk7969,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$"M"(MO%):1160:HH9:TFC(C):ZI01:H(H),V(V)7ZIH(H2),V(V)7ZI:ZI:15:M5126,2:5127,132:5128,73:5129,165:5120:N5126,7:5127,38:5128,71:5129,119:5120:O5126,8:5127,75:5128,71:5129,119:5120:P5126,8:5127,90:5128,7TED$MO%4TT20NX$"fd":7291NX$"bk"<822:d 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:CC0:838:HH9:FF$(EZ$,(AN$))78:9100:MODE(1)TMO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)MO%4TT20įMODE(2):66,178:ZS$"Menu":9100:MODE(1)15:B0ZA$"":ZA$ZA$(8)720(ZA$(21))(ZA$(32))730710 LEFT ARROW SELECPA1PA09000:s822: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:9100:MODE(1):704ZS$"Problems":MODE(2):68,1TCZS$S$:9000:905:LvLTTC11:X$(S$,LT,1):X$SP$X$"-"670qZS$(S$,LT(X$SP$)):9000:660S$(S$,(S$)LT):VV1:LI1VV1620::::(7);"WORD TOO LONG": L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:0)İ835& NX$"redo"NX$"":480/ 481G MO%3FL0:822:o AN$RA$ĺ(7);:835:FA$RA$:1100 FL0:822: LP(PL$)1:(PL$,1)"+"PL$(PL$,LP)  bL(S$):LTCLJ0T$S$:690: cHLJl7939,I(H):7940,V(V):(S$):LC(1):I03:X12I,45X22I,71:X22I,45X12I,71::15:15:H(H),V(V)4:ZS$"2":9100:: " DRAW A RED EXPONENT TWO15:X(X)4,V(V)4:"2";::" DRAW A WHITE EXPONENT "TWO"MO%42105MO%0:PG%0:KI%4:912:891(ZS$T1$:876:ZS$T2$:875:15>H14:WD$TY$(KI%)F 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:440LEL1II:PT3:1100:1*j700:845:846:822:k*(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)w*-#Z9(1)*2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:*#*# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)*#Z9(1)*#ZS$;+#ZP%12:II12:FA$VA$(II)"="^)$H15:1100:PL$(VV(II)):RA$PL$:AN$(II)PL$:914:AN$"":480y).(AN$)VV(II)RIRI1)8VV2:)L845:RI2İ300:3690*VS$"The correct answers are:":V18:610:V20:II01:H10(II15):FA$VA$(II1)"="AN$(II1):14:AN$"""( (AN$)(RA)3575+( 4805( 3571z( 845:(AN$)(RA$)S$"The answer is "RA$".":V19:610:3580( 300:3590( FA$VA$(1)"="RA$:V15:H13:1100(700:845:846:822:(RI0:TC37:LI1:LJ3:845:V18:S$D$(9):610)V9:610:900' S$D$(25):847:V11:H13:1100:V18:845:610:FF$SS$(L1):C5:H12.5:V18:1160:H30:I1(AN$(7)):FF$(AN$(7),I,1):1160:HH2:' FA$S$(5):H13:V13:1100:FA$VA$(1)"=":S$D$(26):V20:610:H13:V15:1100 ( PL$(VV(1)):RA$PL$:9er is "RA$".":V19:610:900& 845:847:FA$S$(4):V13:H13:1100:S$D$(24)AN$(1)".":V18:610:FA$VA$(2)"=":V15:H13:1100& PL$(VV(2)):RA$PL$:914:480:FA$VA$(2)"="RA$ ' (AN$)(RA$)İ845:S$"Look again. The answer is "RA$".":V1WZ$:9000:WR1>% SS1:LEL1:H5:V11:1100:WR1İ900:WR0% 848:845:S$D$(22):V18:610:V13:H7:FA$S$(3):1100:S$D$(23):V20:610:FA$AN$(1)VA$(2)"="% V15:H11:1100:RA$AN$(2):914:480 & (RA$)(AN$(2))İ845:S$"Look again. The answ2,1)ZS$A$:9000:AN$AN$A$:LA(AN$):3515N$ A$(13)LA(S$(1)):3515a$ :(7);:3512k$ 3511$ AN$WZ$AN$AS$3520$ 845:7939,8:7940,144:ZS$"Watch!":9000:7:ZI01:BOX(140ZI2,14)224ZI,60::15% 906:7939,44:7940,96:ZS$:7940,96:ZS$"The value of is ":9000:905Y# AS$(WZ$,S11):(WZ$,1)"-"AS$WZ$# FF$SS$(L1):C5:V13:H17.5:1160:V18:H21.5:1160:C(1):BOX(100,1)298,106:15:906:AN$"":LA(AN$):390# (LAS1)3516.$ 395:II1S1:A$(S$(1),II3:1100#" 700:845:846:822:" C1:FA$"":S1(S$(1))2:II1(S$(2)):FF$(S$(2),II,1):LZS1:FF$SS$(L1)FA$FA$FF$:3508" FA$FA$"("(S$(1),S1)")"/# :S$D$(20):V18:610:TC33:LJ5:WZ$(S$(1),S1):900:845:S$D$(21):V18:610:7939,8".":V18:610:FA$VA$(2)"="AN$(7):V15:H17:1100:S$D$(25):900!z 845:847:V18:610:FF$SS$(L2):H12.5:C5:1160:H17:V11:1100:V18:H30.5:C5:I1(AN$(7)):FF$(AN$(7),I,1):1160:HH2: " FA$VA$(1)"="(VV(1)):S$D$(26):V20:610:H17:V1j \ :900:845:S$D$(21):TC33:LJ5:V18:610:FF$SS$(L1):H21.5:V18:C5:1160:C6:V11:H5:1100:900 f 845:S$D$(22):V18:610:H9:V13:FA$S$(3):1100:S$D$(23):V20:610:H15:V15:FA$S$(4):1100:900E!p 845:847:V13:H15:1100:S$D$(24)AN$(1)PL$JM V7:IJ211:LF(S$(IJ)):LEL1:H13:FA$S$(IJ):1100:VV2:sN 845:MO%3410,3500,3600,3600:PT0:R S$D$(20):V18:610:FA$"":S1(S$(1))2:II1(S$(2)):FF$(S$(2),II,1):FF$SS$(L1)FA$FA$FF$:3420 W FA$FA$"("(S$(1),S1)")"O%4İ10001IMO%4ZF%1:ZF$"ALG.2.2":9950EMNX$"fd"2130rNPG%PG%1:891:MO%3SC%(UN%,KI%,1)PG%|O2110RPG%0:MO%3İ25000S2000H SS0:V7:822:TC37:LI1:LJ3:7939,10:7940,V(V):ZS$"Solve:":9000:V18:PL$S$(2):520:S$(2):ZS$A$:9000:MO%AN:A$"4"ZF%1:MO%0:ZF$"ALG.2.2":9950b MO%3SC%(UN%,KI%,(MO%2)4)091000:TL10:4849,3:9200:ZS$T2$:876:ZS$WD$:875:845:846:822:ZS$WD$:875:MO%4PG%1:MO%3SC%(UN%,KI%,1)1:891>? H390:3400:M1ĺ+#ZP%0+#9+# COMPRESSION BUFFER MANAGERE+#Z9(1)v+$0,0:(4849)9230,9240,9250,9260,9270:4352+ $4848,(4849):+$1,64::SCR.UN.PAC+$1,98::SCR.U1.PAC+"$1,118::SCR.U2.PAC+,$1,73::SCR.KI.PAC+6$:SCR.MO.PAC,% * FUNCTION DEFINITIONS *1,%H(H)(H1)14D,%I(H)(H1)2Z,%V(V)((V1)8)n,%X(X)(X74),%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)):704<ZS$"Problems":MODE(2):68,178:9100:MODE(1)}MO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)MO%4TT20įMODE(2):66,178:ZS$"Menu":9100:MODE(1)15:B0ZA$"":ZA$ZA$(8)720 (ZA$(21))(ZA$0(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0@ 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:9100:MODE(1< 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":4 L(T$):H2N(A$): 4202 420:AN1AN4CHAN:; 440 822:ZS$"Delete":MODE(2):2:B15:15,178:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: LP(PL$)1:(PL$,1)"+"PL$(PL$,LP)  bL(S$):LTCLJ0T$S$:690: cHLJ5:836:400:A$"a"A$"z"ZS$A$:9000:C0:836:s A$"A"A$"Z"A$((A$)32):ZS$A$:9000:C0:836: (7);:407 400:A$"Y"A$"y"A$"N"A$"n"ZS$A$:9000: (7);:410 400:A$(32)415  400:A$"0"A$"9"A 6KI%4ZW%15:690:$ 7313M 87939,3:7940,V(ZW%):ZS$T$:9000:j 9KI%1MO%2V18:690: :KI%1V20:690: ;312 16368,0: 390:A$: 906:C5:836:400:A$"+"A$"-"ZS$A$:9000:C0:836: (7);:4057 906:C" ALG.2.2.1 - SJW - V.101589-99007c9600WMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$ 5ZW%20:SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)1:MO%3ZW%15:KI%3Ĺ7939,18:7940,136:ZS$T$:9000:tuvwxyz{|}~,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030;0aSC%(I,J,5)2C0a:I0eR DISK FLIP#/'216,0:822:9965A/a SCORE TRACKING ROUTINEu/a " OPEN CDFILE$ FOR READING, 166 BYTES/RECORD/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*0aSC%(I,J,1)4((SC%(I,Jip 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 FO(I3))3)-%--& CONTROL-C TRAPPINGV-&((218)(219)256)9220Č822:9225\-&y-& 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$"Fl(32))730710. LEFT ARROW SELECTEDMMO%4TT20NX$"fd":729ZNX$"bk"e822: 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:QCC(C):ZI01:H(H9),V(V91)ZIH(H9)14,V(V91)ZI:ZI:15:DC(C):ZI01:X(X9),Y(Y9)ZIX(X98),Y(Y9)ZI:ZI:15:S5126,7:5127,38:5128,71:5129,122:5120:U5126,2:5127,148:5128,72:5129,165:5120:DVC(C0:TC32:LJ6:II1719:S$D$(II):VV2:610:C(4,1)60:C(4,2)84:C(4,3)99:C(5,1)82:C(5,2)101:C(5,3)121:MO%2210,2300,2400,2400:FA$S$(1):H11:V20:7939,4:7940,136:ZS$"Standard Form ":9000:1100:900:7939,4:7940,136:ZS$"Not Stand4ZF%1:ZF$"ALG.2.2":99502MNX$"fd"2130_NPG%PG%1:891:MO%3SC%(UN%,KI%,1)PG%iO2110RPG%0:MO%3İ25000S2000ND%4:1500:(PG%1)(MO%3)İ851853:822:(MO%3)(PG%1)2205/TC34:LJ5:LI1:MO%3S$D$(16):V6:610:ZS$A$:9000:MO%AN:A$"4"ZF%1:MO%0:ZF$"ALG.2.2":9950c MO%3SC%(UN%,KI%,(MO%2)4)091000:TL10:4849,3:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1:MO%3SC%(UN%,KI%,1)1:891>853:855?H390:2200:MO%4İ1000IMO%T1$:876:ZS$T2$:875:15?H14:V6(2KI%):WD$TY$(KI%)G 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:44S$(1)S$"@"J$(6)S$J$(1):6 SHUFFLE ROUTINEITE%(1)0:SJ%1fZI1ND%:SJ%(ZI)ZI:ZIrZJ%ND%ZI1ND%:ZK%((1)ZJ%1):TE%(ZJ%)SJ%(ZK%):SJ%(ZK%)SJ%(ZJ%):ZJ%ZJ%1:ZIMO%42105MO%0:PG%0:KI%1:912:891ZS$PL$::HIJ23:995:999:J(IJ)ISG::(J(2))(J(3))1421J(1)J(2)J(3):I45:J(I)J(I2)(1)::J(6)J(2)J(3):NN6:992:IJ23:S$(IJ)S$J$(IJ):I45:PL$J$(I):520:J$(I)PL$:S$(I)S$" = "PL$::(J(6))1J$(6)(J$(6),1) I45:PL$J$(I):520:S$(I)S$" = "PL$:J$(I)PL$::995:999:IJ23:J(IJ)ISG::J(1)J(2)J(2):I45:J(I)J(3)(1)::J(6)J(2)2:NN6:992:S$(2)S$J$(2):S$(3)S$(2) S$(1)S$"@"J$(6)S$J$(1):I45:PL$J$(I):520:S$(I)S$" = "PL$:J$(I)(H),V(V)4:ZS$"2":9100:: " DRAW A RED EXPONENT TWO}15:X(X)4,V(V)4:"2";::" DRAW A WHITE EXPONENT "TWO"xy999:J(1)II(1):J(2)I:J(3)I(1):I45:J(I)J(I2)(1)::NN5:992:I23:S$(I)S$J$(I)::S$(1)S$"@"J$(1)7FF$"a"FF$"z"İ1140:HH2)VFF:c`9:ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1):t9:ZI18:FF$SS$(ZI)ZS$FF$uZI:MODE(2):H(H)4,V(V):9100:MODE(1):9:ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1):;15:H(8)J$(1)"=0":S$(4)S$(6)J$(1)"=-"S$"@"TI14:PL$S$(I):520:S$(I)PL$:Z{LFF1(FA$):FF$(FA$,FF,1)MFF$" "1110NFF$"@"İ1190:HH1O(FF$)48(FF$)57İ1160:HH2P(FF$"+")(FF$"-")(FF$"=")İ1120:HH2T)6(I7)I:$I((1)9)1:C997:L1I:L2I1:S$SS$(I)L995u999:PI%1N(I):PI%1400,1410,1420S$(6)J$(6)S$:S$(7)J$(1):S$(8)"+"S$"@":J(7)J(1)(1):J$(7)(J(7)).S$(1)S$(1)"=0":S$(3)S$(8)S$(6)"="J$(7):S$(2)S$(6)S$:B0:-V9(7940)81:H9(7939)21:g7939,I(H9):7940,V(V9):X9(H91.1)8:Y9(V98)5:{4849,1:9200:I1NN:J$(I)(J(I)):J(I)0J$(I)"+"J$(I)I:999:SG$"+":SG1:N(I)1SG$"-":SG1I((1)7)1:I(I7(KI%)" P":MO%4ZS$ZS$(PG%):8938|ZS$ZS$" "m}9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897ZS$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):):ZI01:BOX(438ZI2,C(5,II1)C(4,II1))55ZI2,C(4,II1)::uW5126,2:5127,132:5128,72:5129,147: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"ard Form":9000ZII24:FA$S$(II):H11:V20:853:1100:C5:854:II4İ900:C0:854II:700:II4:C0:854:5126,2:5127,132:5128,72:5129,165:5120:H11:V20:7939,4:7940,136:ZS$"Standard Form (Y/N) ":9000:905(  IITE%(1):FA$S$(II):1100:906:C5:836:410:C0:836:855Q  II1((A$"y")(A$"Y"))İ300:2390{  II1((A$"N")(A$"n"))İ300:2390 $ II1Ĺ7939,4:7940,136:(7);:ZS$"Not Standard Form":9000:C5:854:2390!. 7939,4:7940,136:(7);:ZS$"This is in Standard , 400:A$"0"A$"9"AN(A$):5 420Q 400:A$"2"A$HI$ıZ 430x 420:AN1AN4CHAN: 440 ((MO%1)1)400,402 NX$"redo"ı A$"0"A$"9"NN(A$):C0:838:C6:FF$A$:1160:HH2:AN$AN$A$:0 A$"-7940,136:ZS$T$:9000:2 6KI%4ZW%15:690:; 7313d 87939,3:7940,V(ZW%):ZS$T$:9000: 9KI%1MO%2V18:690: :KI%1V20:690: ;312 16368,0: 390:A$: 390:A$:A$(127)NX$"redo"  400:A$(32)415" ALG.2.2.3 - SJW - V.101589-99007c9600NdEZ$" "nMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$ 5ZW%20:SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)1:MO%3ZW%15:KI%3Ĺ7939,18:DT)SC%(I,J,5)1:25030*)aSC%(I,J,5)22)a:8)e216,0:822:99650(a SCORE TRACKING ROUTINEd(a " OPEN CDFILE$ FOR READING, 166 BYTES/RECORDq(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)aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))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 FOR DISK FLIP('&& CONTROL-C TRAPPINGE&&((218)(219)256)9220Č822:9225K&&h&& TRAP FOR DISK FLIPz&&216,0:9990&&9981&&9990&&5126,1:5127,30:5128,78:5129,186:5120&&ZF%1ZS$"Check Disk Drive":9972&&ZS$"Flip Disk".'&:INITIONS * %%H(H)(H1)143%%I(H)(H1)2I%%V(V)((V1)8)]%%X(X)(X74)s%%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)&%$$# COMPRESSION BUFFER MANAGER0$#Z9(1)a$$0,0:(4849)9230,9240,9250,9260,9270:4352u$ $4848,(4849):$$1,64::SCR.UN.PAC$$1,98:: SCR.U1.PAC$"$1,118::SCR.U2.PAC$,$1,73::SCR.KI.PAC$6$:SCR.MO.PAC %% * FUNCTION DEF:15# 700:853:855:V#(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)b#-#Z9(1)#2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:#### DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)##Z9(1)##ZS$;##ZP%1ĺ##ZP%0$#~ II:7939,8:7940,136:ZS$"Your choice? (1-4) ":9000:905:906:C5:836:440:C0:836:ZS$A$:9000:AN(RA)İ300:2490" (7);:7939,8:7940,152:ZS$"The correct answer is "(RA)".":9000# C(5):ZI01:BOX(344ZI2,15)149ZI2,42(RA16): Form.":9000N!V 700:C0:854:5126,2:5127,132:5128,72:5129,165:5120:!` 7939,8:7940,40:ZS$"Which is in Standard Form?":9000!t V9:JI14:7939,14:7940,V(V):ZS$MZ$(JI):9000:H12:FA$S$(TE%(JI)):1100:VV2:JI:II14:TE%(II)1RAII|""C0:838:C2:FF$A$:1120:HH2:AN$AN$A$:V (A$)64(A$)91A$((A$)32) ((A$)64(A$)91)((A$)96(A$)123)C0:838:LEL1:FF$A$:C6:1160:HH2:AN$AN$SS$(L1): (A$"+")(A$"=")C0:838:C6:FF$A$:1160:HH2:AN$AN$A$: (7);:t 822:ZS$"Delete":MODE(2):2:B15:15,178:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: AN$"":470:FL0FL1:H9H (AN$)(RA)486 C5:838:450 (NX$"redo")((AN$)0)İ835 NX$"redo"NX$"":480 48[FF$"-"EQ1CO0D\CO1FX$FF$:FF$" ":1160:HH2:FF$FX$n](FF$)64(FF$)91FF$((FF$)32)_1160:HH2::`9:ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1):C(C):ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1):BNFF$"@"İ1190:HH1LPC(FF$")")1(FF$"(")1:C(C0)6(C0)1\Q1160:HH2fVFF:WFZ$FA$:C6:CO2:EQ0X(FZ$,1)"+"FZ$" "(FZ$,(FZ$)1)YFF1(FZ$):FF$(FZ$,FF,1):FF$"="EQ1ZEQ1(FF$"0"FF$"9")COCO1II13:AN(II)0LA(AN$(II)):AN$(II)"+"AN$(II)+C$(1,3)(C(1,3)):A1$C$(1,3)VA$(1):A2$"="AN$(3):S$(3)A1$A2$:LC(C$(1,3)):C(1,3)0C$(1,3)"+"C$(1,3),:LLEL1:C2:FF1(FA$):FF$(FA$,FF,1):FF$SS$(L2)LEL2MFF$" "1110"+"C$(2,2)$^%I12:AN(I)(C(1,I)VV(1))(C(2,I)VV(2))::I12:AN$(I)(AN(I)):(I12:S$(I)C$(1,I)VA$(1)C$(2,I)VA$(2)"="AN$(I)::S$(1)S$(2)1050)C(1,3)C(1,1)C(1,2):AN(3)AN(1)AN(2):AN$(3)(AN(3)):C(1,3)0AN(3)010507*7:J(CO)I::NN2:998` CO12:C(1,CO)J(CO):995:C$(1,CO)SG$J$(CO):C(1,CO)(C$(1,CO)):!995:IC(1,1)IC(1,2)C(2,1)I"NN1:J(1)C(2,1):997:995:C$(2,1)SG$J$(1):C(2,1)(C$(2,1)):C(2,2)C(2,1)(1):C$(2,2)(C(2,2)):C(2,2)0C$(2,2)N:J$(I)((J(I)))::,I((1)9)1:K997:L1I:L2I1:S$SS$(I)QVA12:VA$(VA)""::VA12:997:VV(VA)I:995:SG$"-"II(1):VV(VA)I997:VA21055I71051VA$(1)SS$(I):L1I:L2I1:VA$(2)SS$(I1):CO12:99100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:gV9(7940)81:H9(7939)21:{4849,1:9200:RA(RA$):NE((RA$,1)"-"):999:SG$"+":SG1:N(I)1SG$"-":SG1I((1)7)1:I(I7)6(I7)I:I1N:7940,5:9000:7969,8:b{15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%):893r|ZS$ZS$" "}9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897ZS$ZS$" "(PG%)9000:C822:1:B15:ZS$"Space Bar":MODE(2):39,177:9(V)7ZIH(H2),V(V)7ZI:ZI:15:NKC(1):BOX(270,1)175,75:15:M5126,2:5127,132:5128,73:5129,165:5120:N5126,7:5127,38:5128,71:5129,119:5120:k7969,22:7939,45(ZS$):7940,17:9000:7969,8:l7969,22:7939,45(ZS$)bk"822:8 RIGHT ARROW OR SPACE BAR SELECTEDcPG%9((MO%4)(TT20))NX$"fd":739pNX$"bk"{822:615:B15:MODE(2):5,178:19);:MODE(1):B0:CC0:838:HH9:FF$(EZ$,(AN$)):1160:HH9:(FC(C):ZI01:H(H),V44,178:ZS$"Problems":9100:MODE(1)eMO%4TT20įMODE(2):66,178:ZS$"Menu":9100:MODE(1)s15:B0ZA$"":ZA$ZA$(8)720(ZA$(21))(ZA$(32))730710 LEFT ARROW SELECTEDMO%4TT20NX$"fd":729NX$"]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1)VMO%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):(S$,LT,1):X$SP$X$"-"670EZS$(S$,LT(X$SP$)):9000:660nS$(S$,(S$)LT):VV1:LI1VV1w620::::(7);"WORD TOO LONG":L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA09000:G822:NX$"":ZS$"{1 MO%3FL0:822:C AN$RA$ĺ(7);:835:FA$RA$:1100S FL0:822: 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: vLTTC11:X$C(1):I03:X12I,45X22I,71:X22I,45X12I,71::15:C(C):I03:BOX(X2X1I2,30M(I)2)IX1,M(I)43::15:15:H(H),V(V)4:ZS$"2":9100:: " DRAW A RED EXPONENT TWO15:X(X)4,V(V)4:"2";::" DRAW A WHITE EXPONENT "TWO" MO%42105@MO%0:PG%0:KI%3:912:891cZS$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):(2)*#Z9(1)*#ZS$;(*#ZP%1ĺ2*#ZP%08*#[*# COMPRESSION BUFFER MANAGERg*#Z9(1)*$0,0:(4849)9230,9240,9250,9260,9270:4352* $4848,(4849):*$1,64::SCR.UN.PAC*$1,98::SCR.U1.PAC*"$1,118::SCR.U2.PAC +,$1,73::)"="(VV(2)):LA((VV(2))):LF(FA$):H23:V20:1100S) 700:845:846:822:)(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1))-#Z9(1))2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:)#*# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODERI1N( PL$(VV(2)):RA$PL$:914:FA$VA$(2)"=":H23:V13:1100:H27:480h( (AN$)VV(2)RIRI1( 845:RI2İ300:3290( S$"The correct answers are:":V18:610:PT1:FA$VA$(1)"="(VV(1)):LA((VV(1))):LF(FA$):H23:V19:11009) FA$VA$(2,1)227,160:15B'b H23:V15:RA$PL$:914:FA$VA$(2)"=":1111U'l V15:H27:480o'v 700:845:846:822:' RI0:TC37:LI1:LJ3:845:V18:S$D$(9):610' FA$VA$(1)"=":LEL1:H23:V11:1100:PL$(VV(1)):RA$PL$:914:H27:480( (AN$)VV(1)RI:V13:1111:PL$(VV(1))5&I RA$PL$:914:H27:V13&N 480:845:V18:TC37:LJ3:LI2:S$"Find the value of by using the value of in "S$(1)"."'X 610:V18:H20.5:FF$SS$(L2):C6:1160:FF$SS$(L1):H11.5:V20:C6:1160:PL$(VV(2)):C(1):BOX(1407:1185:RA$C$(1,3)VA$(1):914:X1250:X2170:C1:H15:C(1,3)0HH2%0 1187:V11:480:C0:1187:845:S$D$(14):LIL1:V18:610:RA$AN$(3)%: 914:H25:V11:FF$"=":1120:H27:480&D 845:S$D$(15)" "C$(1,3)".":V18:610:FA$VA$(1)"=":LEL1:H23:FA$VA$(2)"=":1111:FA$(VV(2)):LL(FA$):H27:1111:700:845:846:822:$ TC33:LI1:LJ5:V18:S$D$(12):610:C1:X1252:X2336:1187:7939,36:7940,110:ZS$C$(2,1)VA$(2)C$(2,2)VA$(2)"=0":9000:900:7939,36:7940,110H%& ZS$EZ$:9000:C0:118"(VV(1)):L(FA$):H25:1111# 900:845:S$"Find the value of by using the value of in "S$(1)".":V18:TC37:LJ3:LI2:610:H20.5:V18:LEL1:FF$SS$(L2):1160# LEL2:H11.5:V20:FF$SS$(L1):1160:C(1):BOX(140,1)227,160:15O$ H23:V158:X2368:H24:V9t" C1:1187:ZS$AN$(1)AN$(2)"="AN$(3):9000:LA(AN$(3)):FA$"="AN$(3):LF(FA$):H25:V11" 1111:900:7939,48:7940,110:ZS$EZ$:9000:845:C0:1187 # S$D$(15)" "C$(1,3)PD$:V18:610:PT1:H23:FA$VA$(1):V13:1111:FA$"=110:X1250:X2170:C1:1187! A1$C$(1,3)VA$(1):ZS$C$(1,1)VA$(1)C$(1,2)VA$(1)"="A1$:9000:FA$A1$:H15:V11:(A1$)2HH2((A1$)2)" 1111:900:7939,18:7940,110:ZS$EZ$:9000:C0:1187:845:S$D$(14):LI2:V18:610:7939,48:7940,110:X144010,3100,3200,3200:PT0:n TC33:LI1:LJ5:V18:S$D$(12):610:C1:X1252:X2336:1187:7939,36:7940,110 ZS$C$(2,1)VA$(2)C$(2,2)VA$(2)"=0":9000:900:7939,36:7940,110:ZS$EZ$:9000:C0:1187:1185! 845:S$D$(13):V18:610:7939,18:7940,ZS$"Add:":9000:V7:IJ12:LF(S$(IJ)):LA(AN$(IJ)):H13:FA$S$(IJ):1111:VV2: I12:PL$C$(I,1):520:C$(I,1)PL$:PL$C$(I,3):520:C$(I,3)PL$::PL$AN$(1):520:AN$(1)PL$:PL$AN$(3):520:AN$(3)PL$ PL$S$(1):520:S$(1)PL$:843:845:MO%34PG%1:MO%3SC%(UN%,KI%,1)1+>8911?MH390:3000:MO%4İ1000rIMO%4ZF%1:ZF$"ALG.2.2":9950MNX$"fd"2130NPG%PG%1:891:MO%3SC%(UN%,KI%,1)PG%O2110RPG%0:MO%3İ25000S2000W V6:822:7939,10:7940,V(V):9000:VV2:7939,6:7940,152:ZS$"Your choice? (1-4) ":9000:440:ZS$A$:9000:MO%AN:A$"4"ZF%1:MO%0:ZF$"ALG.2.2":9950 MO%3SC%(UN%,KI%,(MO%2)4)0"91000:TL10:4849,3:9200:ZS$T2$:876:ZS$WD$:875:845:846:822:ZS$WD$:875:MO%SCR.KI.PAC+6$:SCR.MO.PAC?+% * FUNCTION DEFINITIONS *S+%H(H)(H1)14f+%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,%M(X)((X2)(X2))2/,%N(I)(((I3)(I3))3)5,%O,& CONTROL-C TRAPPINGx,&((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$"CNX$"bk"822:B RIGHT ARROW OR SPACE BAR SELECTEDmPG%9((MO%4)(TT20))NX$"fd":739zNX$"bk"822:615:B15:MODE(2):5,178:19);:MODE(1):B0:CC0:838:5126,I(H9):5127,V(V):5128,71:5129,V(V1):5120:HįMODE(2):44,178:ZS$"Problems":9100:MODE(1)oMO%4TT20įMODE(2):66,178:ZS$"Menu":9100:MODE(1)}15:B0ZA$"":ZA$ZA$(8)720(ZA$(21))(ZA$(32))730710 LEFT ARROW SELECTEDMO%4TT20NX$"fd":729"":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:9100:MODE(1):704ZS$"Problems":MODE(2):68,178:9100:MODE(1)2MO%4TT2011:X$(S$,LT,1):X$SP$X$"-"670O ZS$(S$,LT(X$SP$)):9000:660x 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:Q822:NX$5 C5:838:4506 NX$"redo"NX$"":835:480? 481W MO%3FL0:822: AN$RA$ĺ(7);:835:FA$RA$:1100 FL0:822: bL(S$):LTCLJ0T$S$:690: cHLJ l7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905:* vLTTC:HH2:AN$AN$A$:Y (A$"+")(A$"=")C0:838:C6:FF$A$:1160:HH2:AN$AN$A$:f (7);: 822:ZS$"Delete":MODE(2):2:B15:15,178:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: AN$"":470:FL0FL1:H9H (AN$)(RA)48"9"AN(A$): 4206 400:A$"2"A$HI$ı? 430] 420:AN1AN4CHAN:f 440 ((MO%1)1)400,402 NX$"redo"ı A$"0"A$"9"NN(A$):C0:838:C6:FF$A$:1160:HH2:AN$AN$A$: A$"-"C0:838:C2:FF$A$:1120:7940,V(ZW%):ZS$T$:9000:< 9KI%1MO%2V18:690:S :KI%1V20:690:\ ;312 ^MO%3SC%(UN%,KI%,(MO%2)4)0 _ 16368,0: 390:A$: 390:A$:A$(127)NX$"redo"  400:A$(32)415  400:A$"0"A$" ALG.2.3.1 - SJW - V.101789-99007c9600LdEZ$" "lMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$5ZW%20:SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)1:MO%3ZW%157313 87939,325030L/aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030]/aSC%(I,J,5)2e/a:k/e;"-";ZF$:/.' ERROR TRAP FOR DISK FLIPE.'216,0:822:9965c.a SCORE TRACKING ROUTINE.a " OPEN CDFILE$ FOR READING, 166 BYTES/RECORD.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:heck Disk Drive":9972,-&ZS$"Flip Disk"a-&: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)H9:KFC(C):ZI01:H(H),V(V)7ZIH(H2),V(V)7ZI:ZI:15:{J5126,7:5127,38:5128,71:5129,122:5120:K7:BOX(284,1)175,91:15:L5126,2:5127,132:5128,73:5129,165:5120:M7:BOX(284,1)175,75:15:!U5126,2:5127,148:5128,72:5129,165:5120:RW5126,2:5127,132:5128,72:5129,147: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%4ZS$ZS$(PG%):D$(7):610k $ FF$VA$(1):V20:H16.5:C6:1160:5126,20:5127,38:5128,71:5129,57:5120:FA$VA$(1)"=" ) H23:V13:1100:RA$(VV(1)):914 . H27:V13:480 3 7939,6:7940,152:ZS$D$(7):9000A!8 FF$VA$(2):V20:H16.5:C6:1160:7939,48:7940,1522)):H25((C(2,2))10)2:V15:11001700:TC36:LI1:LJ4:V19:S$D$(5):610:7:ZI01:BOX(284ZI2,12)166ZI,45::15 RA$MF$:914 V19:H30:480:H13((C(3,1))9)2  C1:FA$S$(3):V11:1100:844:S$D$(6):V18:843:610:V20:S$$MF$:H30:V19:1100:900NH13((C(3,1))9)2:C1:FA$S$(3):V11:1100t900:844:LI2:S$D$(6):V18:610843:5126,20:5127,38:5128,71:5129,57:5120:900FA$VA$(1)"="(VV(1)):H25((C(2,2))10)2:V13:1100&FA$VA$(2)"="(VV(PG%O2110'RPG%0:MO%3İ250001S2000842:844:7939,8:7940,48:ZS$D$(1):9000:V7:IJ12:FA$S$(IJ):H13:1100:VV2:MO%2210,2300,2400,2400:TC36:LI2:LJ4:V19:S$D$(5):610:7:ZI01:BOX(284ZI2,12)166ZI,45::15:FA00:TL10:4849,3:9200:ZS$T2$:876:ZS$WD$:875:853:855:ZS$WD$:875:MO%4PG%1:MO%3SC%(UN%,KI%,1)1w:891}>?H390:2200:MO%4İ1000IMO%4ZF%1:ZF$"ALG.2.3":9950MNX$"fd"2130NPG%PG%1:891:MO%3SC%(UN%,KI%,1)"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:440:ZS$A$:9000:MO%AN:A$"4"ZF%1:MO%0:ZF$"ALG.2.3":9950 MO%3SC%(UN%,KI%,(MO%2)4)0n910"2":9100:: " DRAW A RED EXPONENT TWOm15:X(X)4,V(V)4:"2";::" DRAW A WHITE EXPONENT "TWO"}MO%42105MO%0:PG%0:KI%1:912:891ZS$T1$:876:ZS$T2$:875:15H14:WD$TY$(KI%) V6_ LJ0:TC34:S$WD$:610:VV2:S$"İ1140:HH2VFF:S`9:ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1):xt9:ZI18:FF$SS$(ZI)ZS$FF$uZI:MODE(2):H(H)4,V(V):9100:MODE(1):9:ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1):+15:H(H),V(V)4:ZS$(S$(I),(S$(I))1)A(C(I,1)0)(C(I,1)10)S$(I)" "S$(I)I:jLFF1(FA$):FF$(FA$,FF,1)}MFF$" "HH2NFF$"@"İ1190:HH1O(FF$)48(FF$)57İ1160:HH2P(FF$"+")(FF$"-")(FF$"=")İ1120:HH2TFF$"a"FF$"z(3)(AN$(1))MF:NN3:992:I12:C$(3,I)J$(I):C(3,I)J(I)::AN$(3)J$(3)uI13:L1(AN$(I))1:L(C$(I,1))1(AN$(I),1)"+"AN$(I)" "(AN$(I),L1):I13:S$(I)C$(I,1)VA$(1)C$(I,2)VA$(2)"="AN$(I):I13:(S$(I),1)"+"S$(I)1):J(6)MFJ(2):J(5)MFJ(1):J(4)J(2)J(4):J(7)(J(1)VV(1))(J(2)VV(2)):J(8)(J(3)VV(1))(J(4)VV(2)):J(9)MFJ(7):NN9:992I1:CO13:VA12:C(CO,VA)J(I):C$(CO,VA)J$(I):II1:::MF$(MF):I13:AN$(I)J$(I6):LI12:J(I)C(1,I)MF::JI:S$SS$(I)lVA$(1)SS$(L1):L2L11:VA$(2)SS$(L2):VA12:N96:997:VV(VA)I1:995:VV(VA)VV(VA)SG:CO14:N93:997:II1:I(I1)2(I1)IJ(CO)I:995:J(CO)J(CO)SG::((J(3))(J(1)J(4)))((J(3))(J(1)))J(1)J(1)1MFJ(4)(9)21:4849,1:9200:@RA(RA$):NE((RA$,1)"-"):rI1NN:J$(I)(J(I)):J(I)0J$(I)"+"J$(I)z:999:SG$"+":SG1:N(I)1SG$"-":SG1I((1)N9)1:I(IN9)(N91)(IN9)I:I((1)9)1: N97:997:L1893|ZS$ZS$" "J}9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897aZS$ZS$" "(PG%)m9000: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(793:ZS$EZ$:9000:FA$VA$(2)"=":H23:V15:1100:RA$(VV(2)):914g!B V15:H27:480:AN$RA$İ844:300r!V 700:!` PG%1İ350!j 845:RI0:TC37:LI1:LJ3:844:V18:S$D$(2):610:V20:S$D$(3):610:II12/"t FA$VA$(II)"=":H23:V9II2:1100:RA$(VV(II)):914:H27:480:(AN$)VV(II)RIRI1K"~ :844:RI2İ300:2490" S$"The correct answers are:":V18:610:V20:H10:FA$VA$(1)"="(VV(1)):1100" FA$VA$(2)"="(VV(2)):H25:1100" 700: #(# DRAW CHARACTERS ON DOUBLE HI-RES SCREENM(LI)2)H(H)7LI,V(V)M(LI)5::7939,I(H):7940,V(V):ZS$MZ$(I1):9000V A 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:5129,186:5120:D 55126,1:5127,30:5128,78:5129,168:5120:{ 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))P @LI03:BOX(56LI2,16X$"-"6708 ZS$(S$,LT(X$SP$)):ZP%1:9000:660a S$(S$,(S$)LT):VV1:LI1VV1j 620 ::::(7);"WORD TOO LONG": L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0 ZP%1:9000: 45126,1:5127,30:5128,78 420r 822:ZS$"Delete":MODE(2):2:B15:15,178:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: bL(S$):LTCLJ0T$S$:690: cHLJ l7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905: vLTTC11:X$(S$,LT,1):X$SP$  ALG.2.2 - SJW - V.102589+99002XI16:TY$(I)::I126:D$(I):vT2$"Solving Equations I"9600MODE(1)::15:B0:200016368,0:390:A$:400:A$(32)415 400:A$LO$A$HI$AN(A$):G, 166 BYTES/RECORD"(aI1NU%-(aJ14S(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:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:9100J'&16368,0:A$g'&::(4);"VERIFY ";ZF$'&ZF%0:216,0::(4);"-";ZF$:'' ERROR TRAP FOR DISK FLIP''216,0:822:9965'a SCORE TRACKING ROUTINE(a " OPEN CDFILE$ FOR READIN TRAP FOR DISK FLIP+&&216,0:99905&&9981@&&9990n&&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:91008'&ZS$"and":H(21(ZS$))4,75(X)(X74)$%%Y(Y)(Y2425)r%%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)%%%& CONTROL-C TRAPPING%&((218)(219)256)9220Č822:9225%&&&9250,9260,9270:4352*$ $4848,(4849):B$$1,64::SCR.UN.PACZ$$1,98::SCR.U1.PACs$"$1,118::SCR.U2.PAC$,$1,73::SCR.KI.PAC$6$:SCR.MO.PAC$% * FUNCTION DEFINITIONS *$%H(H)(H1)14$%I(H)(H1)2$%V(V)((V1)8)%%X, MODE(1)#-#Z9(1)E#2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:K#### DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)##Z9(1)##ZS$;##ZP%1ĺ##ZP%0#### COMPRESSION BUFFER MANAGER##Z9(1)$$0,0:(4849)9230,9240,%):893 |ZS$ZS$" "N }9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897e ZS$ZS$" "(PG%)q 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:8 SHUFFLE ROUTINEKTE%(1)0:SJ%1hZI1ND%:SJ%(ZI)ZI:ZItZJ%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:891ZL-C TRAPPING7&((218)(219)256)9220Č822:9225=&Z& TRAP FOR DISK FLIPl&216,0:9990v&9981&9990&5126,1:5127,30:5128,78:5129,186:5120&ZF%1ZS$"Check Disk Drive":9972&ZS$"Flip Disk" &:MODE(2):12:% * FUNCTION DEFINITIONS *4%H(H)(H1)14G%I(H)(H1)2]%V(V)((V1)8)q%X(X)(X74)%Y(Y)(Y2425)%C(C)(C0)0(C1)6(C2)1(C3)15%M(X)((X2)(X2))2%N(I)(((I3)(I3))3)%& CONTRO1ĺ#ZP%0#9# COMPRESSION BUFFER MANAGERE#Z9(1)v$0,0:(4849)9230,9240,9250,9260,9270:4352 $4848,(4849):$1,64::SCR.UN.PAC$1,98:: SCR.U1.PAC"$1,118::SCR.U2.PAC,$1,73::SCR.KI.PAC6$:SCR.MO.PAC ce with its value, ","Calculate the answer."k(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)w-#Z9(1)2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:## DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)#Z9(1)#ZS$;#ZP%f one variable is defined in terms of the other, Substitution is an easy way to find the solution.""Put the value of from the second equation into the first equation.","Multiply the result.","Combine like terms.","Divide both terms by "1"Repla.)","Now divide each side of the equation by""A quadratic equation is in the standard form if:","the terms are arranged in descending order of exponents.","the polynomial is equal to 0.""the coefficient of the squared term is positive."e"Incil and paper to calculate the answer.","Enter the final answer only.","Use the Addition Method when you find variables with the same coefficients in two equations.","Combine like terms."/"Add the constants (on the right side of the equal signse: "l"Look at the problem.","This is the difference between two squares.","This is a perfect square.""The exponents must be in order, from largest to smallest.","Now factor it:","Set each factor equal to 0.","Solve each equation."J"Use a peC%:((UC%20)DT)SC%(UN%,5,5)2:4040;SC%(UN%,5,5)1K900:821:j@ ** DATA STATEMENTS **r"Standard Quadratic Form","Solution Sets-Factoring","Addition Method","Substitution Method","Equations I Test"|"Return to Algebra Menu","Solv"Correct":9000:V8:II14:7939,2:7940,V(V):UC%UC%SC%(4,II,4):ZS$TY$(II):90007939,56:7940,V(V):ZS$"5":9000:7939,70:7940,V(V):ZS$(SC%(4,II,4)):9000:VV2:SC%(UN%,II,3)5:SC%(UN%,II,4)SC%(4,II,4):(SC%(UN%,5,1)20:SC%(UN%,5,2)U5KI%((R%(TT)1)5)1-9TL10:PG%TTPHZF%1:KI%2061,2062,2063,2064iOTTTT1:TT202101RUN%2:4000:PG%0:25000SMO%0:2000 FACTORING TEST RESULTS821XUC%0:7939,52:7940,40:ZS$"Tried":9000:7939,64:7940,40:ZS$0::20805 ZF%1:MO%0:KI%2061,2062,2063,2064O ZF$"ALG.2.2.1":9950iZF$"ALG.2.2.2":9950ZF$"ALG.2.2.3":9950ZF$"ALG.2.2.4":9950 PG%14UN%2:II14:SC%(UN%,II,3)5:SC%(UN%,II,4)0:SC%(4,II,3)0:SC%(4,II,4)0::UN%4:TT1I1:610:VV2::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%0:ZF$"ALG.2.MENU":9950 AN5MO%4:UN%4:ND%20:1500:II120:R%(II)TE%(II):TE%(II)S$T1$:876:ZS$T2$:875W6:I103:BOX(7I12,144M(I1)2)110I1,34M(I1):V6:H20:7939,I(H):7940,V(V):ZS$"CONTENTS":9000:V7:I115:H4:829VV3::V8:I116:7939,18:7940,V(V)kZS$MZ$(I1):9000:S$TY$(I1):TC26:LJ14:LB0:H(21(ZS$))4,55:9100y&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 FOR DISK FLIP'216,0:822:9965"a SCORE TRACKING ROUTINEUa " OPEN CDFILE$ FOR READING, 166 BYTES/RECORDbaI1NU%maJ15aSC%(I,J,1)0SC%(I,J,5)3:25030aSC%(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)5126,48:5127,72:5128,76:5129,162:5120:ek7969,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:7939ODE(1):B0:YCC(C):ZI01:H(H9),V(V91)ZIH(H9)14,V(V91)ZI:ZI:15:DC(C):ZI01:X(X9),Y(Y9)ZIX(X98),Y(Y9)ZI:ZI:15:I5126,28:5127,40:5128,71:5129,60:5120:]5126,3:5127,72:5128,42:5129,162:5120:/^)(ZA$(32))7307106 LEFT ARROW SELECTEDUMO%4TT20NX$"fd":729bNX$"bk"m822: RIGHT ARROW OR SPACE BAR SELECTEDPG%9((MO%4)(TT20))NX$"fd":739NX$"bk"822:615:B15:MODE(2):5,178:19);:M:MODE(1):704DZS$"Problems":MODE(2):68,178:9100:MODE(1)MO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)MO%4TT20įMODE(2):66,178:ZS$"Menu":9100:MODE(1)15:B0ZA$"":ZA$ZA$(8)720(ZA$(21)(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0H9000: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:9100 cHLJD l7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905:w 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":<L000: 426. 420:AN1AN4CHAN:7 440 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:ZP%0:9100:MODE(1):15:B0: LP(PL$)1:(PL$,1)"+"PL$(PL$,LP)  bL(S$):LTCLJ0T$S$:690:C5:836:420:ZS$A$:9000:C0:836:_ A$"-"AN$""AN$A$:ZS$A$:C0:836:9000:H9H91q NX$"redo"ız 436 400:A$"2"A$HI$ı 430 NX$"":906:C5:836 (MO%3)1400,402 A$"0"A$"9"AN$AN$A$:ZS$A$:C0:836:9000:C0:836: (7);:405` 906:C5:836:400:A$"a"A$"z"ZS$A$:9000:C0:836: A$"A"A$"Z"A$((A$)32):ZS$A$:9000:C0:836: (7);:407 400:A$(32)415  400:A$"0"A$"9"AN(A$): 420' 906: 6KI%4ZW%15:690:$ 7313M 87939,3:7940,V(ZW%):ZS$T$:9000:j 9KI%1MO%2V18:690: :KI%1V20:690: ;312 16368,0: 390:A$: 390:A$:A$(127)NX$"redo"  906:C5:836:400:A$"+"A$"-"ZS$A$:9" ALG.2.2.2 - SJW - V.101589-99007c9600WMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$ 5ZW%20:SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)1:MO%3ZW%15:KI%3Ĺ7939,18:7940,136:ZS$T$:9000:1:25030aSC%(I,J,5)2#a:)e,2:7940,15:ZS$"M"(MO%):MO%4897>ZS$ZS$" "(PG%)J9000: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:!7939,I(H9):7940,V(V9):X9(H91.1)8:Y9(V98)5:54849,1:9200:gI1NN:J$(I)(J(I)):J(I)0J$(I)"+"J$(I)o:999:SG$"+":SG1:N(I)1SG$"-":SG1I((1)7)1:I(I7)6(I7)I:I((1)9)1:997:L1I:L2I1:S$SS$(I)906:27412" AN$(MI)"":MI:I12:AN$(I)"":I" V18:S$D$(8):610:MI12:7939,52:7940,V(15(MI2)):ZS$(S$(MI3),3)" ":9000:905:435" PL$AN$:520:AN$(MI)PL$:AN$"":MI:(J$(4)AN$(1))(J$(5)AN$(2))2780# (J$(4)AN$(2))(J$(5)AN$(1):2740F! (7);:VV2:S$"Try ("S$(2)") ("S$(3)").":610:2720! S$D$(7):LI1:V15:610:MI12:S$S$(MI1)"=":LS1(S$):7939,I(26(LS2)):7940,V(11(MI2)):ZS$(S$,LS,1):9000:LS:905:H9H91 " 425:A$"0"ĺ(7);:906:ZS$" ":9000: VV2:V910:H927:AN$(1)"":AN$(2)"":HH12:407:AN$(HH)A$:H9H91:405:AN$(HH)AN$(HH)A$:H9H91:425:AN$(HH)AN$(HH)A$ H9H94:HH! ((AN$(1)S$(2))(AN$(2)S$(3)))((AN$(2)S$(2))(AN$(1)S$(3)))Ĺ5126,2:5127,119:5128,43:5129,162:5120Z S$D$(8):610:MI45:7939,52:7940,V(10(MI2)):ZS$S$(MI):9000:d 700:862:861:841:s U2,C2,M2 822:TC21:LI1:LJ2.5:S$D$(2):V11:610 7939,50:7940,72:ZS$"( ) ( )":9000:V12:LJ2.5:TC21:S$D$(6):LI1:V910:H927:61039,48:7940,72:ZS$"( )( ) = 0":9000:7939,50:7940,72:ZS$S$(2):9000:7939,60:7940,72:ZS$S$(3):9000F 900:861:S$D$(7):V12:610:VV4P MI12:S$S$(MI1)"=0":LS1(S$):7939,I(24(LS2)):7940,V(11(MI2)):ZS$(S$,LS,1):9000::J/NPG%PG%1:891:MO%3SC%(UN%,KI%,1)PG%9O2110QRPG%0:MO%3İ25000[S2000~( MO%2610,2700,2800,2800:C2:2 S$D$(2):TC21:LI1:LJ2.5:V10:610:VV2:PI%3S$D$(PI%2):610:VV2: U2,C2,M1o< S$D$(5):610:VV2:S$D$(6):610:79861:841:ZS$WD$:875:MO%4PG%1:MO%3SC%(UN%,KI%,1)1F:891V>MO%3İ861?862:841:H6:V7:7939,I(H):7940,V(V):ZS$D$(1):9000:FA$S$(1):H15:V7:1100H390:2600:MO%4İ1000IMO%4ZF%1:ZF$"ALG.2.2":9950MNX$"fd"2130):ZS$MZ$(I1)" "CH$(I1):9000:VV2:7939,6:7940,152:ZS$"Your choice? (1-4) ":9000:440:ZS$A$:9000:MO%AN:A$"4"ZF%1:MO%0:ZF$"ALG.2.2":9950 MO%3SC%(UN%,KI%,(MO%2)4)0=91000:TL10:4849,2:9200:ZS$T2$:876:ZS$WD$:875:862:$(6),1)+S$(1)S$"@"J$(6)S$J$(1):;MO%42105[MO%0:PG%0:KI%2: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(VPL$:J$(I)PL$::SIJ23:995:999:J(IJ)ISG::(J(2))(J(3))1421J(1)J(2)J(3):I45:J(I)J(I2)(1)::J(6)J(2)J(3):NN6:992:IJ23:S$(IJ)S$J$(IJ): I45:PL$J$(I):520:J$(I)PL$:S$(I)S$" = "PL$::(J(6))1J$(6)(JJ$(1)BI45:PL$J$(I):520:S$(I)S$" = "PL$:J$(I)PL$::995:999:IJ23:J(IJ)ISG::J(1)J(2)J(2):I45:J(I)J(3)(1)::J(6)J(2)2:NN6:992:S$(2)S$J$(2):S$(3)S$(2)S$(1)S$"@"J$(6)S$J$(1):I45:PL$J$(I):520:S$(I)S$" = "15:H(H),V(V)4:ZS$"2":9100:: " DRAW A RED EXPONENT TWO15:X(X)4,V(V)4:"2";::" DRAW A WHITE EXPONENT "TWO"xy999:J(1)II(1):J(2)I:J(3)I(1):I45:J(I)J(I2)(1)::NN5:992:I23:S$(I)S$J$(I)::S$(1)S$"@"HH2*TFF$"a"FF$"z"İ1140:HH24VFF:n`9:ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1):t9:ZI18:FF$SS$(ZI)ZS$FF$uZI:MODE(2):H(H)4,V(V):9100:MODE(1):9:ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1):F995.999:PI%1N(I):PI%1400,1410,1420eS$(1)S$(1)" = 0":I45:J(I)((S$(I2),3))::LFF1(FA$):FF$(FA$,FF,1)MFF$" "1110NFF$"@"İ1190:HH1O(FF$)48(FF$)57İ1160:HH2P(FF$"+")(FF$"-")(FF$"=")İ1120:)2780p# S$"Try "J$(4)" and "J$(5)".":VV2:610:900:5126,48:5127,119:5128,77:5129,162:5120:2750# 5126,2:5127,144:5128,43:5129,162:5120:300:700:862:861:841:# U2,C2,M3# TC21:LI1:LJ2.5:V12# S$D$(9):610$ VV2:S$D$(10):610:470p$ I12:AN$"":I:MI45:S1$(S$(MI),4):7939,52:7940,V(5(MI2)):ZS$S1$:9000:905$ ((AN$)2)((AN$)0)2861$" 435:NX$"redo"İ862:NX$"":2830$, 2831%%- AN$(MI3)AN$:AN$"":MI:I12:PL$AN$(I):520:AN$(I)PL$T(X$SP$)):9000:660A S$(S$,(S$)LT):VV1:LI1VV1J 620p ::::(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, 420( 400:A$"2"A$HI$ı1 430O 420:AN1AN4CHAN:X 440} 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$,L  ALG.2.3 - SJW - V.102589+99002XI16:TY$(I)::I117:D$(I):wT2$"Solving Equations II"9600MODE(1)::15:B0:200016368,0:390:A$:400:A$(32)415 400:A$LO$A$HI$AN(A$):SC%(I,J,5)1:25030',aSC%(I,J,5)2/,a:5,e,0:822:9965-+a SCORE TRACKING ROUTINEa+a " OPEN CDFILE$ FOR READING, 166 BYTES/RECORDn+aI1NU%y+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)E(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 FOR DISK FLIP+'216& CONTROL-C TRAPPINGB)&((218)(219)256)9220Č822:9225H)&e)& TRAP FOR DISK FLIPw)&216,0:9990)&9981)&9990)&5126,1:5127,30:5128,78:5129,186:5120)&ZF%1ZS$"Check Disk Drive":9972)&ZS$"Flip Disk"+*&:MODTIONS *(%H(H)(H1)140(%I(H)(H1)2F(%V(V)((V1)8)Z(%X(X)(X74)p(%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)(%)#ZP%0'#1'# COMPRESSION BUFFER MANAGER='#Z9(1)n'$0,0:(4849)9230,9240,9250,9260,9270:4352' $4848,(4849):'$1,64::SCR.UN.PAC'$1,98::SCR.U1.PAC'"$:ASCII',$1,73::SCR.KI.PAC'6$:SCR.MO.PAC (% * FUNCTION DEFINI120:861:300)&J 700:862:861:841:c&(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)o&-#Z9(1)&2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:&#&# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)&#Z9(1)&#ZS$;&#ZP%1ĺ':I:AN$(1)J$(4)AN$(2)J$(5)2880I%1 AN$(2)J$(4)AN$(1)J$(5)2880%6 (7);:861:TC21:LI1:S$"The correct answer is:":LJ2.5:V12:610:VV1:I23:7939,12:7940,V(V2):ZS$S$(I2):9000:VV2:I:2890&@ 5126,2:5127,144:5128,43:5129,162:530:5128,78:5129,168:5120:V 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,V(V):ZS$MZ$(I1):90001 Ag 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:796,0:9990&9981!&9990O&5126,1:5127,30:5128,78:5129,186:5120w&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":HX(X)(X74)'%Y(Y)(Y2425)S%C(C)(C0)0(C1)6(C2)1(C3)15o%M(X)((X2)(X2))2%N(I)(((I3)(I3))3)%& CONTROL-C TRAPPING&((218)(219)256)9220Č822:9225&& TRAP FOR DISK FLIP &2140,9250,9260,9270:4352- $4848,(4849):E$1,64::SCR.UN.PAC]$1,98::SCR.U1.PACv"$1,118::SCR.U2.PAC,$1,73::SCR.KI.PAC6$:SCR.MO.PAC% * FUNCTION DEFINITIONS *%H(H)(H1)14%I(H)(H1)2%V(V)((V1)8)%EEN, MODE(1)-#Z9(1)H2#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#Z9(1)$0,0:(4849)9230,92e of the equation.","Find the square root of each side of the equation.""The answers are:","Solve for y:","Draw the line.","Plot the point.","The lines cross at the solution.","Use the quadratic formula."(# DRAW CHARACTERS ON DOUBLE HI-RES SCRswer.","Enter the final answer only.","Graph:""Multiply this equation by ","Solve using the Addition Method.","The value of is:","Take the number across the equal sign."J"Divide the coefficient by 2 and square it.","Add that number to each sid0SC%(UN%,5,5)1&900:821:E@ ** DATA STATEMENTS **r"Multiplication/Addition","Graphing","Completing the Square","The Quadratic Formula","Equations II Test"|"Algebra Menu","Solve: "0"Use a pencil and paper to calculate the an7940,V(V):UC%UC%SC%(4,II,4):ZS$TY$(II):90007939,56:7940,V(V):ZS$"5":9000:7939,70:7940,V(V):ZS$(SC%(4,II,4)):9000:VV2:SC%(UN%,II,3)5:SC%(UN%,II,4)SC%(4,II,4):SC%(UN%,5,1)20:SC%(UN%,5,2)UC%:((UC%20)DT)SC%(UN%,5,5)2:404PG%TT+HZF%1:KI%2061,2062,2063,2064DOTTTT1:TT202101aRUN%3:4000:PG%0:25000qSMO%0:2000 FACTORING TEST RESULTS8213UC%0:7939,52:7940,40:ZS$"Tried":9000:7939,64:7940,40:ZS$"Correct":9000:V8:II14:7939,2:2062,2063,2064* ZF$"ALG.2.3.1":9950DZF$"ALG.2.3.2":9950^ZF$"ALG.2.3.3":9950xZF$"ALG.2.3.4":9950 PG%14UN%3:II14:SC%(UN%,II,3)5:SC%(UN%,II,4)0:SC%(4,II,3)0:SC%(4,II,4)0::UN%4:TT15KI%((R%(TT)1)5)19TL10:1):ZS$"Your choice? (1-6) ":9000:LO$"1":HI$"6":420:ZS$A$:9000sKI%AN:AN6H14:V6(2AN):WD$TY$(AN)AN6ZF%0:ZF$"ALG.2.MENU":9950AN5MO%4:UN%4:ND%20:1500:II120:R%(II)TE%(II):TE%(II)0::2080 ZF%1:MO%0:KI%2061,03:BOX(7I12,144M(I1)2)110I1,34M(I1):V6:H20:7939,I(H):7940,V(V):ZS$"CONTENTS":9000:V7:I115:H4:829VV3::V8:I116:7939,18:7940,V(V)FZS$MZ$(I1):9000:S$TY$(I1):TC26:LJ14:LI1:610:VV2::7939,24:7940,V(VȲ SHUFFLE ROUTINE&TE%(1)0:SJ%1CZI1ND%:SJ%(ZI)ZI:ZIOZJ%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$:87526:I139,2:7940,15:ZS$"M"(MO%):MO%4897@ ZS$ZS$" "(PG%)L 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:(21(ZS$))4,100:9100+&16368,0:A$H&::(4);"VERIFY ";ZF$k&ZF%0:216,0::(4);"-";ZF$:' ERROR TRAP FOR DISK FLIP'216,0:822:9965a SCORE TRACKING ROUTINEa " OPEN CDFILE$ FOR READING, 166 BYTES/RECORDaI1NU% aJ153aSC%(I,J,1)0SC%(I,J,5)3:25030faSC%(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