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 y$3 !X 'ALG.2.8 _4!O)ALG.2.9.15  !O)ALG.2.8.1& !O'ALG.2.9 5!O)ALG.2.8.2h%!X8 ALG23B.V.102689Z* Z ' )ALG.2.9.4j!5 !O)ALG.2.7.4W( !O)ALG.2.8.4/ & !O)ALG.2.8.3D*;!Z )ALG.2.9.3[$4 !O)ALG.2.9.2o`a  XL LG &PRODOS`DaElH$?EGvѶK+`L XX LU ŠϠĠӥS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R" ALG.2.9.4 - SJW - V.101589-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 6KI%2KI%3S$T$:7939,4:7940,136:ZS$(EZ$,15):9000:V:7939,I(H):7940,V(V):X9(H91.1)8:Y9(V98)5:J4849,1:9200:NE((RA$,1)"-"):RA(RA$):(RA$,1)"+"(RA$,1)" "RARA1:RA$(RA$,RA)I1NN:DN$(I)(J(I))::AI1NN:J$(I)(J(I)):L(J$(I)):KI%3L4J$(I)(J$(I),L}9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897KZS$ZS$" "(PG%)W9000: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:6HH9:VV9165:5120:<O5126,7:5127,33:5128,72:5129,75:5120:rk7969,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$" "40:695126,3:5127,144:5128,75:5129,165:5120:b;BY(V8)2:C(3):BOX(175,1)315,BY: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,)730710+ LEFT ARROW SELECTEDJMO%4TT20NX$"fd":729WNX$"bk"b822: RIGHT ARROW OR SPACE BAR SELECTEDPG%9((MO%4)(TT20))NX$"fd":739NX$"bk"822:615:B15:MODE(2):5,178:19);:MODE(1):B048ZS$"Problems":MODE(2):68,178:9100:MODE(1)yMO%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)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%4704ZS$"Menu":MODE(2):18,178:9100:MODE(1):PG%9įMODE(2):90,178:9100:MODE(1):77940,V(V):(S$)TCZS$S$:9000:905:]vLTTC11:X$(S$,LT,1):X$SP$X$"-"670ZS$(S$,LT(X$SP$)):ZP%1:9000:660S$(S$,(S$)LT):VV1:LI1VV1620::::(7);"WORD TOO LONG":*L(T$):H20(L2):7939,I()" "PL$PL$(RA$,II,1)5:AN$PL$RIRI1:@(7);n7939,I(H7):7940,V(V9):ZS$RA$:9000:QR((S$,1))32:LS(S$):S$(QR)(S$,LS1):PL(PL$)1:PL$(PL$,PL):bL(S$):LTCLJ0T$S$:690:cHLJ*l7939,I(H):I 470:906:AN$"":II1RA:445:A$(13)AN$""IIRA:A$"":483y NX$"redo"A$(13)NX$"":H9H7:836:480 AN$AN$A$:H9H91  PL$"":II1(AN$):(AN$,II,1)" "PL$PL$(AN$,II,1):AN$PL$:PL$"":II1(RA$):(RA$,II,1"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$:9000:C0:835: 446 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0:0:H9H91:435 428+ 906:C5:835D ((MO%1)1)400,402h NX$"redo"A$(13)C0:835: (A$"+"A$"-"A$"="A$"("A$")")MO%3ZS$A$:9000:C0:835: (KI%3KI%2)(A$"."A$",")ZS$A$:9000:C0:835: MO%3A$"a"A$$): (7);:4201 NX$"redo"A$(13)ı: 436L 906:C2:835 ((MO%3)((MO%1)(KI%4)))1400,402:A$"X"A$"x" A$"0"A$"9"AN$AN$A$:ZS$A$:C0:835:9000:H9H91: (A$"-"A$"+"A$"x")AN$AN$A$:ZS$A$:C0:835:90019:LJ3:LI1:TC16:610:8 8KI%4MO%3V14:690:H >V20:690:l ^MO%3SC%(UN%,KI%,(MO%2)4)0r _ 16368,0: 390:A$: 390:A$:A$(127)NX$"redo"  400:A$(32)415  400:A$LO$A$HI$LO$"1":ANS(A3)","(J$(I),3):LL1:L8J$(I)(J$(I),L7)","(J$(I),7)JI:R:999:SG$"+":SG1:N(I)1SG$"-":SG1I((1)7)1:I(I7)6(I7)I:I1NN:J$(I)((J(I)))::I((1)N9)1:KI%1005,1025,1050,1075 q3N94:999:J(1)I1:H961:II34:999:J(II)I::J(4)M(J(4))1:J(2)(J(1)2)2(J(1)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)):J(2)2J(6)J(7)77J(8)0:I1J(1)1:J(8)J(8)(IJ(47)7#&%M(X)((X2)(X2))2B&%N(I)(((I3)(I3))3)a&%P(I)(((I5)(I5))5)g&%&& CONTROL-C TRAPPING&&((218)(219)256)9220Č822:9225&&&& TRAP FOR DISK FLIP&&216,0:9990&&9981&&9990"'&5126,1:AC%6$: SCR.MO.PAC2%@$1,98:: SCR.U3.PACR%% * FUNCTION DEFINITIONS *f%%H(H)(H1)14y%%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(C$;$#ZP%1ĺ$#ZP%0!$#E$# COMPRESSION BUFFER MANAGERQ$#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.P(V):ZS$(J(3)((I1)J(4))):9000:VV1:7#j700:q#(# 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)$#ZS9,8:7940,V(V):ZS$"Integer "(MZ$(I1),2,1)" =":9000:"$V14:H717:I11J(1):7939,I(H7):7940,V(V):905:RA$(J(3)((I11)J(4))):L(RA$):914:480".VV1::825:RIJ(1)İ300:3590"BS$D$(7):V20:610,#LV14:I1J(1):7939,48:7940,V:H7H9:RA$J$(3):914:480! V12:H717:I11J(1):7939,I(H7):7940,V(V):905:RA$(J(3)((I11)J(4))):L(RA$):914:480!VV1:!700:!RI0:V12:TC33:LJ3:LI1:S$D$(3):610:V19:S$D$(2):610:PG%1İ350<"V13:I11J(1):VV1:793the equation.":9000 7939,46:7940,V(V2):905:H7H9:J(2)2Ĺ7939,46:7940,V(V2):RA$"x(x+ "J$(8)")="J$(6):914:480:3570 RA$J$(1)"x+ "J$(8)" = "J$(6):914:480! 825:7939,4:7940,V(20):ZS$"Solve the equation: x = ":9000:9050: 7939,4:7940,V(20):ZS$D$(4):9000:V11:I11J(1):VV1:7939,8:7940,V(V):ZS$"Integer "(MZ$(I1),2,1)" = x":9000 I11ZS$" + ":9000:905:RA$((I11)J(4)):RA1:H7H9:480 :827:825:7939,4:7940,V(20):ZS$"Now write (J(8))")="J$(6):9000:3470bp 7939,46:7940,V(V2):ZS$J$(1)"x +"J$(8)" = "J$(6):9000 900:825:7939,4:7940,V(20):ZS$D$(8)" x = "J$(3):9000 V12:I1J(1):7939,32:7940,V(V):ZS$(J(3)((I1)J(4)))" = ":9000:VV1: 70V(20):ZS$D$(4):9000:V11:I1J(1):VV1:7939,8:7940,V(V):ZS$"Integer "(MZ$(I),2,1)" = x":9000\ I1ZS$" + "((I1)J(4)):9000f :827:900:825:7939,4:7940,V(20):ZS$D$(6):9000:J(2)2Ĺ7939,46:7940,V(V2):ZS$"x(x + "LG.2.9":9950#MNX$"fd"2130^NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110hO2110RPG%0:MO%3İ25000S2000H I V6:S$ZZ$:LJ5:TC33:LI2:610:(J$(8))1J$(8)" "J$(8)M MO%3410,3500,3600,3600:sR 7939,4:7940,1:MO%0:ZF$"ALG.2.9":9950A 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:3400:MO%4İ1000IMO%4ZF%1:ZF$"AD$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"ZF%))::J(9)J(3)100:NN9:992:998:J(4)1C$"":1085X8C$"even ":J(5)1C$"odd "=ZZ$"Find "J$(1)C$(4,3)C$C$(4,4)C$(4,J(2))J$(6)".":MO%42105MO%0:PG%0:KI%4:912:891ZS$T1$:876:ZS$T2$:875:15 H14:V6(2KI%):W5127,30:5128,78:5129,186:5120J'&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(21(ZS$))4,100:9100'&16368,0:A$(&::(4);"VERIFY ";ZF$>(&ZF%0:216,0::(4);"-";ZF$:a(' ERROR TRAP FOR DISK FLIPw('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:2II01:399,III392,III:::I9715219'7:II01:399,III392,III:::I29152535:II03:III,99III,95::(15:385,34:"y":378,155:"-y":261,93:"-x":533,93:"x":+BX3:KI%4(KI%1MO%3)BX2>,6:I13:BOX(1,:, RIGHT ARROW OR SPACE BAR SELECTEDWPG%9((MO%4)(TT20))NX$"fd":739dNX$"bk"o822:%7939,70:7940,100:ZS$"+3":9000:7939,58:7940,132:ZS$"-10":9000-&7:II01:BOX(1II,115)396II,38::273,97529,97:I973819:"Problems":9100:MODE(1)YMO%4TT20įMODE(2):66,178:ZS$"Menu":9100:MODE(1)g15:B0wZA$"":ZA$ZA$(8)720(ZA$(21))(ZA$(32))730710 LEFT ARROW SELECTEDMO%4TT20NX$"fd":729NX$"bk"8228: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)MO%4TT20įMODE(2):44,178:ZS$70)ZS$(S$,LT(X$SP$)):9000:660RS$(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:4,17):9000:906:ZS$RA$:9000:J LP(PL$)1:(PL$,1)"+"PL$(PL$,LP)P k (PL$)0PL$"+"PL$q  bL(S$):LTCLJ0T$S$:690: cHLJ l7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905:vLTTC11:X$(S$,LT,1):X$SP$69000:906:AN$"":NX$"":4704 (AN$)(RA)496X 435:NX$"redo"A$(13)495 C0:836:NX$"redo"NX$"":H9H8:490 A$(13)AN$""RA(AN$) 491 (RA$)(AN$)RIRI1: MO%3ı (7);:C0 H9H8:906:ZS$(EZ$,RA)32)X (A$"a"A$"z")(KI%3MO%3)AN$AN$A$:ZS$A$:C0:836:9000:H9H91:s NX$"redo"A$(13)ı| 436 822:ZS$"Delete":MODE(2):2:B15:15,178:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: H8H9:906:ZS$(EZ$,RA): 436. 400:A$"1"A$HI$AN(A$):7 430I 906:C5:836R 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: (A$"A"A$"Z")(KI%3MO%3)A$((A$8:7940,V(20):ZS$T$:9000:C ^MO%3SC%(UN%,KI%,(MO%2)4)0I _Y 16368,0:h 390:A$: 390:A$:A$(127)NX$"redo"  400:A$(32)415  400:A$LO$A$HI$AN(A$):HI$"9": 420 NX$"redo"A$(13)ı " ALG.2.7.4 - SJW - V.101589-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)1 :5126,37:5127,148:5128,76:5129,165:5120:7939,3 !"#$%&'()*+,-.5030J)aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030[)aSC%(I,J,5)2c)a:i)e1415BX)5461I,70::BOX(123,1)116,68:BOX(123,1)116,82-I1BX:116,84I15238,84I15::KK(I1)15:BOX(123,1)116,84KK:/BX5:6:I13:J03:256(65I)J,42256(65I)J,139:::BOX(130,1)322,42:BOX(130,1)322,56B0I1BX:322,58(I16)451,58(I16)::KK(I1)16:BOX(130,1)322,58KK:r55126,1:5127,30:5128,78:5129,168:5120:615:B15:MODE(2):5,178:19);:MODE(1):B0:75126,3:5127,131:5128,33:5129,162:5120: 85126,3:5127,33:5128,33:5129,63:fd"2130E"NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110O"O2110g"RPG%0:MO%3İ25000q"S2000"H 825:827:V6:LJ3:TC17:H20:LI1:V67(8((S$(7))0)):MO%1H3:V67p#J 7939,I(H):7940,V(V6):ZS$D$(4):9000:7939,I(H2):7940,V$"ALG.2.7":99507! MO%3SC%(UN%,KI%,(MO%2)4)0|!91000:TL10:4849,7:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1!:891:MO%3SC%(UN%,KI%,1)1!>FA$S$(1):V7!?!H390:3400:MO%4İ1000!IMO%4ZF%0:ZF$"ALG.2.7":9950 "MNX$") 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"ZF%0:MO%0:ZF4C(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%4:912:891ZS$T1$:876:ZS$T2$:875:15 H14:V6(2KI%):WD$TY$(KI%"@"İ1190:HH1:1110LOFF$"("FF$")"CLC:C5:1160:CCL:HH2:1110\P1120:HH2sVFF:MODE(1):C0:`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:(J(II)4)::C(2,1)34C(2,1)164C(2,3)164C(2,3)341005oS$(6)(J(9)J(7)):PL$(J(2)):523:S$(2)PL$S$(7)(J(4)J(2)):S$(1)"y="S$(7)"x"S$(2):LMODE(2):FF1(FA$):FF$(FA$,FF,1)MC0FF$"@"İ1160:HH2:1110NFF$II)J(II):C$(5,II)J$(II)::J(6)3:J(7)0:J(8)3:J(9)1JKI%11050II14:J(II)((C(5,1)J(II5))C(5,2)):J(II)20J(II)201005:NN9:992:II69:S$(II)J$(II)::(J(4)J(2))21005=992:II14:C(1,II)394(35J(II5)):C(2,II)97)1:I(IN9)(N91)(IN9)I:BI1NN:J$(I)((J(I)))::VI((1)9)1:pVA$(2)"x":VA$(1)"y"N96:997:J(1)I:999:J(2)I:II12:J(II)(J(II)0)(II2)(J(II)0)J(II)::995:J(1)J(1)SG:J(2)J(2)SG(1):NN2:992:II12:C(5,:4849,1:9200:,4849,5: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)I:999:SG$"+":SG1:N(I)1SG$"-":SG1!I((1)N9415:MODE(2):39,177:15:9100:MODE(1)::B0:YV9(7940)81:H9(7939)21:7939,I(H9):7940,V(V9):X9(H91.1)8:Y9(V98)5:: GOTO OLD CURSOR POSITIONY(V11)8:15:BOX(551,Y(198Y))5,Y(Y):15:BOX(462,23)96,3,8: zT{15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%):893d|ZS$ZS$" "}9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897ZS$ZS$" "(PG%)9000:5822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):120::WC(2):ZI01:CIRCLE(2ZI2,1ZI)XX,YY::j]5126,3:5127,72:5128,42:5129,162:5120:^5126,48:5127,72:5128,76:5129,162:5120:k7969,22:7939,45(ZS$):7940,17:9000:7969,8:l7969,22:7939,45(ZS$):7940,5:9000:79697ZIH(H2),V(V)7ZI:ZI:15:VR15:BOX(5,2)XX2,YY1:XX2,YYXX2,YY:SC(C):II01:C(1,1)II,C(2,1)IIC(1,3)II,C(2,3)II::TC(C):II12:C(1,1)II,C(4,1)C(1,3)II,C(4,3)::U:5126,2:5127,148:5128,72:5129,165:55120:995126,3:5127,33:5128,33:5129,165:5120:j;5126,37:5127,33:5128,76:5129,165:5120:CC0:838:HH9:FF$(EZ$,(AN$)):1160:HH9:DC(C):ZI01:X(X9),Y(Y9)ZIX(X98),Y(Y9)ZI:ZI:15:%FC(C):ZI01:H(H),V(V)(V61):ZS$S$(1):9000:805:7939,20:7940,V(10):ZS$"x":9000:7939,30:7940,V(10):ZS$"y":9000:811:LJ20#K 5126,37:5127,148:5128,76:5129,165:5120#M S$"Find two points.":TC21:V20:610:V6:MO%3410,3500,3600,3600:$R V6:LJ3:TC16:V19:S$D$(12)S$(2)".":610:900$f V112:II242:824:S$"If x="J$(II5)" then y="J$(II)".":V6:610:823:S$D$(9):V19:610'%p 7939,8:7940,V(V1):ZS$D$(8):9000:7939,I(13(J$(II5))):7940,V(V1):ZS$J$(II5):9000:7939,I(17(J$(II))):79400123456789:;<=>?@ABC4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030G0aSC%(I,J,5)2O0a:U0eRROR TRAP FOR DISK FLIP//'216,0:822:9965M/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:2503060aSC%(I,J,1).&ZS$"Flip Disk"K.&: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$:/' E(I)(((I3)(I3))3)-%9-& CONTROL-C TRAPPINGb-&((218)(219)256)9220Č822:9225h-&-& TRAP FOR DISK FLIP-&216,0:9990-&9981-&9990-&5126,1:5127,30:5128,78:5129,186:5120.&ZF%1ZS$"Check Disk Drive":9972T WRONG),% * FUNCTION DEFINITIONS *=,%H(H)(H1)14P,%I(H)(H1)2f,%V(V)((V1)8)z,%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-%N49)9230,9240,9250,9260,9270,9280,9290:4352B+ $4848,(4849):Z+$1,64::SCR.UN.PACs+$1,98:: SCR.U?.PAC+"$1,118::SCR.U2.PAC+,$1,73::SCR.KI.PAC+6$:SCR.MO.PAC+@$1,137::SCR.U3.PAC+J$1,84:: SCR.U1.PAC ,S$: SOMETHING WENES SCREEN, MODE(1)%*-#Z9(1):840S*2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:Y*#*# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)*#Z9(1)*#ZS$;*#ZP%1ĺ*#ZP%0*#*# COMPRESSION BUFFER MANAGER*#Z9(1).+$0,0:(48(D$(15),14):XXC(1,II):YY100((AN$)4):V19:823:610:855:900t)V:V19:TC20:LJ20:C1:851:RI2İ300:3690)`5126,37:5127,140:5128,76:5129,165:5120:S$"Your points are not on the line.":610)j700:*(# DRAW CHARACTERS ON DOUBLE HI-RM(II242:823:V18:S$D$(9):610:7939,8:7940,V(V1):ZS$D$(8):9000($7939,I(13(J$(II5))):7940,V(V1):ZS$J$(II5):9000:RA$J$(II):914:7939,I(17RA):7940,V(V1):905:490:V1V12C)B7939,8:7940,V(V12):ZS$" ":9000:S$"I'll p"940,V(V12):ZS$" ":9000:823:S$"I'll p"(D$(15),14):XXC(1,II):YYC(2,II):V18:(7);:610:855:900:823:' S$D$(14):S$(S$,(S$)1)" through the points.":823:V18:610:C1:851:RI1İ300'700:(V1:LJ3:TC16:RI0:V112:PG%1İ3500:C1:851& 700:M& RI0:V6:LJ3:TC16:V19:S$D$(12)S$(2)".":610& V112:II242:RA$J$(II):7939,8:7940,V(V1):ZS$D$(8):9000:7939,20:7940,V(V1):ZS$J$(II5):9000:914:7939,I(17RA):7940,V(V1):905:RI0:490:V1V12t' 7939,8:7,V(V1):ZS$J$(II):9000:V1V12:900%z 7939,8:7940,V(V12):ZS$" ":9000:823:S$D$(15):XXC(1,II):YYC(2,II):V19:(7);:610:855:900: & 7939,38:7940,V(20):ZS$(EZ$,16):9000:S$D$(14):S$(S$,(S$)1)" through the points.":823:V18:61# ALG.2.8.4 - SJW - V.101589 .99008c9600XdLZ$"|____________________"xMODE(1)::15:B0:2000,ZW%20:RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$-MO%2KI%4ZW%14 5MO%3ZW%20:SC%(UN%,KI%,(MO%2)4)SC%(UN%,K29NX$"bk"822:H RIGHT ARROW SELECTED (OR SPACE BAR)sPG%9((MO%4)(TT20))NX$"fd":739NX$"bk"822:55126,1:5127,30:5128,78:5129,168:5120:615:B15:MODE(2):5,178:19);:MODE(1):B0:FCC0:838:50įMODE(2):44,178:ZS$"Problems":9100:MODE(1)pMO%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":7$"":ZS$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1)aMO%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)3MO%4TT2C11:X$(S$,LT,1):X$SP$X$"-"670PZS$(S$,LT(X$SP$)):9000:660yS$(S$,(S$)LT):VV1:LI1VV1620::::(7);"WORD TOO LONG":L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA09000:R822:NXL(AA$):(((AA$))1)(L2)AA$(AA$,1)(AA$,L2)U((AA$))1AA$(AA$,1)[v(AA$)0AA$" "AA$|PL$((PL$)):bL(S$):LTCLJ0T$S$:690:cHLJl7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905:+vLTT7QR((S$,1))32:LS(S$):S$(QR)(S$,LS1):@524I 526x VV(PL$):VV0(PL$,1)"+"PL$"+"PL$~  LP(PL$)1:(PL$,1)"+"PL$(PL$,LP) LP(PL$)1:(PL$,1)" "PL$(PL$,LP)(AA$)0AA$"+"AA$7A$(13)C0:835:NX$"redo"NX$"":480LA$(13)AN$""RA(AN$)U481jAN$RA$RIRI1yMO%2489AN$RA$ĺ(7);:835:FA$RA$:1100FL0:J$"":II1(S$):QR((S$,II,1)):QR64QR91QRQR32J$J$(QR)::S$J$:$"3"AN$""C0:838:1190:MODE(1):AN$AN$"#":HH1:822:ZS$"Delete":MODE(2):2:B15:15,178:9100:ZS$" to Erase":1:9100:MODE(1):15:B0:AN$"":NX$"":470:RD0:FL0FL1:H9H(AN$)(RA)486,C5:838:450:NX$"redo"+"KI%2C0:838:1130:HH2:AN$AN$A$:(A$"*"RD1)((MO%2)(KI%3))C0:838:AN$AN$A$:H6H:V6V:1130:VV61:HH6:FA$(LZ$,3):C0:1100:VV6:HH62:RDRD1:(7);:A$"2"AN$""C0:838:1190:MODE(1):AN$AN$"@":HH1:;AFF$A$:LEL2(A$SS$(L1)):A$SS$(LE)KI%2C0:838:1130:HH2:AN$AN$A$:} (A$"2"A$"3")(KI%2)(AN$"")463 A$"-"KI%2C0:838:1130:HH2:AN$AN$A$: A$"0"A$"9"KI%2NN(A$):C0:838:1130:HH2:AN$AN$A$:,A$":ZS$A$:9000:C0:836:` (A$"-"A$"+")AN$""AN$A$:ZS$A$:9000:C0:836:H9H91:436i 428 420:AN1AN4CHAN: 440 ((MO%1)1)400,402 NX$"redo"ı A$(13)C0:838: (((A$)64(A$)91))A$((A$)32)P 5 / 400:A$"0"A$"9"ANS(A$):8 420g 906:C2:836:420:ZS$A$:9000:C0:836: NX$"redo"A$(13)ı 436 400:A$"1"A$HI$AN(A$): 430 906:C2:836 (MO%2)1400,402 A$"0"A$"9"AN$AN$A$9000:C0:836:! (7);:405a 906:C2: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$"Y"A$"y"A$"n"A$"N"ZS$A$:9000: 410 400:A$(32)41I%,(MO%2)4)1:KI%3ZW%13P 6KI%2Ĺ7939,6:7940,V(ZW%):ZS$T$:9000:a 7VZW%:690: ^MO%3SC%(UN%,KI%,(MO%2)4)0 _ 16368,0: 390:A$: 390:A$:A$(127)NX$"redo"  906:C2:836:400:A$"+"A$"-"ZS$A$:126,I(H9):5127,V(V)4(MO%2):5128,75:5129,V(V1):5120:HH9:DC(C):MODE(2):ZI01:H(H)4,V(V)6ZIH(H)47,V(V)6ZI:ZI:15:FC(C):ZI01:H(H),V(V)7ZIH(H2),V(V)7ZI::15: H5126,7:5127,36:5128,71:5129,60:5120::J5126,4:5127,38:5128,76:5129,112:5120:kL5126,4:5127,121:5128,76:5129,165:5120:O5126,4:5127,75:5128,70:5129,113:5120:P5126,3:5127,150:5128,75:5129,165:5120:RST_5126,48:5127,115:5128,77:51":C0:1100:VV41:HH4:FA$(LZ$,(C$(3,1))1):C0:1100v& RA$C$(3,1):914:RI0:HH42:VV4:FL0:480:RI1İ300&700:&V11:TC35:LJ3:LI1:S$D$(1):610:VV2:S$D$(2):610:V20:S$D$(10):610'$RA$C$(3,2)"*"C$(3,1):914:V18:H20(RA$):V17:610:FA$C$(3,1):VV4:HH42:C0:11009% 700:% V17:LJ5:LI2:TC35:S$D$(19)" ("C$(1,2)" x "C$(2,2)")":610% RA$C$(3,2):914:V12:H10:FL0:480:H4H:V4V:844;& S$D$(20)" ("C$(1,1)" x "C$(2,1)")":V17:610:VV4:HH4:FA$"*17:LJ5:LI2:TC35:FA$C$(3,2):S$D$(19)" ("C$(1,2)" x "C$(2,2)")":610:V12:H19(C$(3,2))(C$(3,1)):C0:1100:H4H:V4V:900:844.%\ FA$"*":C0:HH4:VV4:1100:HH4:VV41:FA$(LZ$,(C$(3,1))1):1100:S$D$(20)" ("C$(1,1)" x "C$(2,1)")"SC%(UN%,KI%,(MO%2)5)PG%:2110,#O2110D#RPG%0:MO%3İ25000N#S2000w#H 7939,6:7940,V(7):ZS$D$(18):9000#J V9:FA$AN$(1)" % "AN$(2):H20(FA$):H9H:C0:1100:FA$DN$(1)" "DN$(2):HH9:V8:C0:1100#M MO%3410,3500,3600,3600:$R V)0J"91000:TL10:4849,7:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1k":891:MO%3SC%(UN%,KI%,1)1~">844:842:822"CTC35:LI1:LJ4"H390:3400:MO%4İ1000"IMO%4ZF%1:ZF$"ALG.2.8":9950"MNX$"fd"2130"#NPG%PG%1:891:MO%310: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.8":9950" MO%3SC%(UN%,KI%,(MO%2)42),V(V):9100:` 15:MODE(1):H(H),V(V)3:ZS$FF$:9100:MODE(2):: DRAW.EXPONENTf l | MO%42105 MO%0:PG%0:KI%4:912:891 ZS$T1$:876:ZS$T2$:875:15 H14:V6(2KI%):WD$TY$(KI%) V6j! LJ0:TC34:S$WD$:6RFF$"^"FF$"5":1190:HH1:11106U1120:HH2MVFF:MODE(1):C0:u`9:ZS$FF$:H(H)4,V(V):9100:{bj9: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)7MODE(2):FF1(FA$):FF$(FA$,FF,1)UMC0FF$"@"FF$"#"İ1160:HH2:1110|NFF$"@"FF$"2":1190:HH1:1110OFF$"("FF$")"CLC:C5:1160:CCL:HH2:1110PFF$"#"FF$"3":1190:HH1:1110QFF$"$"FF$"4":1190:HH1:1110&:995:C(II,2)C(II,2)SG:AA$(C(II,2)):535:530:C$(II,2)AA$:Z4C(1,1)C(2,1)10755C(3,1)C(2,1)C(1,1):C(3,2)C(1,2)C(2,2):NN3:MM3:9928I13:PL$C$(I,1):537:AN$(I)C$(I,2)"*"PL$:DN$(I)(EZ$,((C(I,2))))(LZ$,(PL$)1):G'L+":SG1:N(I)1SG$"-":SG1&MI((1)7)1:I(I7)6(I7)I:bI((1)N9)1:vI((1)9)1:997:L1I:L2I1:S$SS$(I):KI%1001,1025,1050,1075:B3II12:997:C(II,1)J(I):C$(II,1)" "J$(1):999:C(II,2)I)8:Y9(V98)2:'4849,1:9200:;4849,5:9200:bNE1:RA(RA$):(RA$,1)"-"NE0hK14:X(K)0::K14T((1)4)1:X(T)1982X(T)1:T(K)T::I11NN:J11MM:C$(I1,J1)(C(I1,J1))::::: 999:SG$"%):MO%4897&ZS$ZS$" "(PG%)29000:822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:H9(7939)21:V9(7940)81:HH9:VV9:7939,I(H9):7940,V(V9):X9(H91.129,162:5120:Fk7969,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:CL0:FL0:480.'BAN$RA$İ848:300:3690'L847:S$"The correct answer is:":V11:610:FA$RA$:V13:H20(FA$):H4H:C0:1100:V12:HH4:FA$(EZ$,(C$(3,2)))(LZ$,(C$(3,1))1):C0:1100'j700:((# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)(-#Z9(1):840G(2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:M(#(# 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,924:ZS$A$:9000:C0:836:` (A$"-"A$"+")AN$""AN$A$:ZS$A$:9000:C0:836:H9H91:436i 428 420:AN1AN4CHAN: 440 ((MO%1)1)400,402 NX$"redo"ı A$(13)C0:838: (((A$)64(A$)91))A$((A$)32)P 5 / 400:A$"0"A$"9"ANS(A$):8 420g 906:C2:836:420:ZS$A$:9000:C0:836: NX$"redo"A$(13)ı 436 400:A$"1"A$HI$AN(A$): 430 906:C2:836 (MO%2)1400,402 A$"0"A$"9"AN$AN$A$9000:C0:836:! (7);:405a 906:C2: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$"Y"A$"y"A$"n"A$"N"ZS$A$:9000: 410 400:A$(32)41I%,(MO%2)4)1:KI%3ZW%13P 6KI%2Ĺ7939,6:7940,V(ZW%):ZS$T$:9000:a 7VZW%:690: ^MO%3SC%(UN%,KI%,(MO%2)4)0 _ 16368,0: 390:A$: 390:A$:A$(127)NX$"redo"  906:C2:836:400:A$"+"A$"-"ZS$A$:# ALG.2.8.3 - SJW - V.102689 .99008c9600XdLZ$"|____________________"xMODE(1)::15:B0:2000,ZW%20:RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$-MO%2KI%4ZW%14 5MO%3ZW%20:SC%(UN%,KI%,(MO%2)4)SC%(UN%,KEFGHIJKLMNOPQRSTUVWXYZaSC%(I,J,5)2.a:.eR TRAP FOR DISK FLIP,-'216,0:822:9965J-a SCORE TRACKING ROUTINEW-aI1NU%b-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.&ZS$"Flip Disk"H,&: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$:-' ERRO)(((I5)(I5))5)+%6+& CONTROL-C TRAPPING_+&((218)(219)256)9220Č822:9225e+&+& TRAP FOR DISK FLIP+&216,0:9990+&9981+&9990+&5126,1:5127,30:5128,78:5129,186:5120+&ZF%1ZS$"Check Disk Drive":9972,IONS **%H(H)(H1)14/*%I(H)(H1)2B*%V(V)(V1)8V*%X(X)(X74)l*%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(I0,9250,9260,9270,9280,9290:43526) $4848,(4849):P)$1,64:: SCR.UN.PACj)$1,98:: SCR.U1.PAC)"$1,137:: SCR.U2.PAC),$1,73:: SCR.KI.PAC)6$: SCR.MO.PAC)@$1,84:: SCR.U3.PAC)J$1,118:: SCR.U4.PAC*% * FUNCTION DEFINITFF$A$:LEL2(A$SS$(L1)):A$SS$(LE)KI%2C0:838:1130:HH2:AN$AN$A$:} (A$"2"A$"3")(KI%2)(AN$"")463 A$"-"KI%2C0:838:1130:HH2:AN$AN$A$: A$"0"A$"9"KI%2NN(A$):C0:838:1130:HH2:AN$AN$A$:,A$"+"KI%2C0:838:1130:HH2:AN$AN$A$:(A$"*"RD2)((MO%2)(KI%3))C0:838:AN$AN$A$:H6H:V6V:1130:VV61:HH6:FA$(LZ$,2):C0:1100:VV6:HH62:RDRD1:(7);:A$"2"AN$""C0:838:1190:MODE(1):AN$AN$"@":HH1:;AI((1)7)1:I(I7)6(I7)I:;I((1)N9)1:OI((1)9)1:997:L1I:L2I1:S$SS$(I):KI%1001,1025,1050,1075:II12:997:C(II,1)J(I):C$(II,1)" "J$(I)::C(1,1)C(2,1)1050SII13:999:C(II,2)I:995:C(II,:4849,5:9200:?NE1:RA(RA$):(RA$,1)"-"NE0E`K14:X(K)0::K14~T((1)4)1:X(T)1982X(T)1:T(K)T::I11NN:J11MM:C$(I1,J1)(C(I1,J1)):::999:SG$"+":SG1:N(I)1SG$"-":SG1&)9000:822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:H9(7939)21:V9(7940)81:HH9:VV9:7939,I(H9):7940,V(V9):X9(H91.1)8:Y9(V98)2:4849,1:92005(ZS$):7940,17:9000:7969,8:Xl7969,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%4897ZS$ZS$" "(PG%,76:5129,112:5120:HL5126,4:5127,121:5128,76:5129,165:5120:xO5126,4:5127,71:5128,70:5129,113:5120:P5126,3:5127,150:5128,75:5129,165:5120:RST_5126,48:5127,115:5128,77:5129,162:5120:#k7969,22:7939,4128,75:5129,V(V1):5120:HH9:uDC(C):MODE(2):ZI01:H(H)4,V(V)6ZIH(H)47,V(V)6ZI:ZI:15:FC(C):ZI01:H(H),V(V)7ZIH(H2),V(V)7ZI::15:H5126,7:5127,36:5128,71:5129,60:5120:J5126,4:5127,38:5128- RIGHT ARROW SELECTED (OR SPACE BAR)XPG%9((MO%4)(TT20))NX$"fd":739eNX$"bk"p822:55126,1:5127,30:5128,78:5129,168:5120:615:B15:MODE(2):5,178:19);:MODE(1):B0:#CC0:838:5126,I(H9):5127,V(V)4:5oblems":9100:MODE(1)UMO%4TT20įMODE(2):66,178:ZS$"Menu":9100:MODE(1)c15:B0sZA$"":ZA$ZA$(8)720(ZA$(21))(ZA$(32))730710 LEFT ARROW SELECTEDMO%4TT20NX$"fd":729NX$"bk"822:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1)FMO%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$"PrP$X$"-"6705ZS$(S$,LT(X$SP$)):9000:660^S$(S$,(S$)LT):VV1:LI1VV1g620::::(7);"WORD TOO LONG":L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA09000:7822:NX$"":ZS$"{]":MODE(2):1:(AA$)0AA$"+"AA$QL(AA$):(((AA$))1)(L2)AA$(AA$,1)(AA$,L2)o((AA$))1AA$(AA$,1)ubL(S$):LTCLJ0T$S$:690:cHLJl7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905:vLTTC11:X$(S$,LT,1):X$S2J$J$(QR)::S$J$:QQR((S$,1))32:LS(S$):S$(QR)(S$,LS1):Z524c 526 VV(PL$):VV0(PL$,1)"+"PL$"+"PL$  LP(PL$)1:(PL$,1)"+"PL$(PL$,LP) LP(PL$)1:(PL$,1)" "PL$(PL$,LP)A$(13)C0:835:NX$"redo"NX$"":480LA$(13)AN$""RA(AN$)U481jAN$RA$RIRI1yMO%2489AN$RA$ĺ(7);:835:FA$RA$:1100:FA$ZW$:HH9:VV1:1100:VV1J$"":II1(S$):QR((S$,II,1)):QR64QR91QRQR3$"3"AN$""C0:838:1190:MODE(1):AN$AN$"#":HH1:822:ZS$"Delete":MODE(2):2:B15:15,178:9100:ZS$" to Erase":1:9100:MODE(1):15:B0:AN$"":NX$"":470:RD0:FL0FL1:H9H(AN$)(RA)486,C5:838:450:NX$"redo"2)C(II,2)SG:AA$(C(II,2)):530:C$(II,2)AA$::MMFC(3,2)C(1,2):(MMF)21050II12:PL$C$(II,II):521:G$(II)PL$::PL$C$(2,1):521:G$(3)PL$PL$(MMF):AN$(5)PL$"*"G$(1):PL$C$(2,2)"*"G$(3):AN$(4)PL$:999:PIN(I)1H DN$(5)(EZ$,((MMF)))(LZ$,(G$(1))1):DN$(4)(EZ$,(C$(2,2)))(LZ$,(G$(3))1)"PI1060,1065,1070:PL$AN$(1):520:AN$(1)PL$:DN$(1)(DN$(1),(PL$)):>$AN$(1)C$(1,2)"*"G$(1):DN$(1)(EZ$,(C$(1,2)))(LZ$,(G$(1))1):AN$(2)AN$(4):DN$(2)DN$(4):AN$(3)C$47:S$"The correct answer is:":V11:610:FA$RA$:V14:H20(FA$):H9H:C0:1100:FA$ZW$:HH9:VV1:1100v, 700:,(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1),-#Z9(1):840,2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:,#.-# DRAW$(10):610:PG%1İ350~+ JJ45:PL$AN$(JJ):522:AN$(JJ)PL$::PL$AN$(4)AN$(5):520:RA$PL$:ZW$(DN$(4)DN$(5),(PL$))+ PL$AN$(5)AN$(4):520:R2$PL$:914:RA(R2$)RA(R2$)+ V18:H20RA:FL0:480:(AN$RA$)(AN$R2$)İ848:300:3290k, 8N$(5):RA$AN$(4):H40:JI1(AN$(4)):H4H4JI((AN$(4),JI,1)"*"):*N V18:610:H17:C0:1100:FA$DN$(5):V17:H17:C0:1100:V18:914:RI0:FL0:ZW$DN$(4):480:RI1İ300*v 700:+ V11:TC35:LJ3:LI1:S$D$(1):610:VV2:S$D$(2):610:V20:S$D)(AN$(4),LL)31209)' FA$FA$AN$(JI):ZW$ZW$DN$(JI))0 :PL$FA$:520:FA$PL$"=":ZW$(ZW$,(PL$)):V12:H3:C0:1100:H4H:V4V:V11:H3:C0:FA$ZW$:1100:S$D$(10):V14:610): RA$AN$(5):914:ZW$DN$(5):HH4:VV4:FL0:480G*D S$D$(17):844:FA$A1:FA$ZW$:C0:1100:900:S$D$(17):844:FA$AN$(5)AN$(4)( V19:LJ3:610:V19:H19:C0:1100:FA$DN$(5)DN$(4):V18:H19:C0:1100( 700:( TC36:LI1:LJ3:V18:S$D$(16):610:FA$"":ZW$"":JI13:AN$(JI)AN$(4)3120)& LL(AN$(4))1:AN$(JI8:S$D$(16):610:FA$"":ZW$"":JI13:AN$(JI)AN$(4)3020k' LL(AN$(4))1:AN$(JI)(AN$(4),LL)3020' FA$FA$AN$(JI):ZW$ZW$DN$(JI)<( :PL$FA$:520:FA$PL$"="AN$(5):ZW$(ZW$,(PL$))" "DN$(5):900:V12:H20(FA$):H9H:V9V:1100:HH9:VV95)AA$& V7:822:7939,4:7940,V(V):ZS$"Combine:":9000:905:FA$AN$(1):ZW$DN$(1):II12:FA$FA$AN$(II1):ZW$ZW$DN$(II1)::H920(FA$):C0:VV2:HH9:1100:HH9:VV1:C0:FA$ZW$:1100& 844:MO%3010,3100,3200,3200:=' TC33:LI1:LJ5:V11)1%>844:842:822-%CTC35:LI1:LJ4I%H390:3000:MO%4İ1000n%IMO%4ZF%1:ZF$"ALG.2.8":9950%MNX$"fd"2130%NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110%O2110%RPG%0:MO%3İ25000%S2000& AA$AN$(5):531:AN$(2:|$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.8":9950$ MO%3SC%(UN%,KI%,(MO%2)4)0$91000:TL10:4849,7:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1%:891:MO%3SC%(UN%,KI%,##MO%421057#MO%0:PG%0:KI%3:912:891Z#ZS$T1$:876:ZS$T2$:875:15|#H14: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:VV,V(V):9100:"bP"j9: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:"15:MODE(1):H(H),V(V)3:ZS$FF$:9100:MODE(2):: DRAW.EXPONENT#"2":1190:HH1:1110L!OFF$"("FF$")"CLC:C5:1160:CCL:HH2:1110s!PFF$"#"FF$"3":1190:HH1:1110!QFF$"$"FF$"4":1190:HH1:1110!RFF$"^"FF$"5":1190:HH1:1110!U1120:HH2!VFF:MODE(1):C0:"`9:ZS$FF$:H(H)4(1):DN$(2)(EZ$,(C$(1,2)))(LZ$,(G$(1))1):AN$(3)AN$(4):DN$(3)DN$(4):AN$(1)C$(3,2)"*"G$(1):DN$(1)(EZ$,(C$(3,2)))(LZ$,(G$(1))1): 3 LMODE(2):FF1(FA$):FF$(FA$,FF,1) MC0FF$"@"FF$"#"İ1160:HH2:1110!NFF$"@"FF$(3,2)"*"G$(1):DN$(3)(EZ$,(C$(3,2)))(LZ$,(G$(1))1):)AN$(2)C$(1,2)"*"G$(1):DN$(2)(EZ$,(C$(1,2)))(LZ$,(G$(1))1):AN$(1)AN$(4):DN$(1)DN$(4):AN$(3)C$(3,2)"*"G$(1):DN$(3)(EZ$,(C$(3,2)))(LZ$,(G$(1))1): .AN$(2)C$(1,2)"*"G$ CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2):-#Z9(1)D-#ZS$;Q-#ZP%1ĺ[-#ZP%0a-#-# 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.PAC.."$1,137:: SCR.U2.PACH.,$1,73:: SCR.KI.PAC\.6$: SCR.MO.PACv.@$1,84:: SCR.U3.PAC.J$1,118:: SCR.U4.PAC.% * FUNCTION DEFINITIONS *.%H(H)(H1)14.%I(H)(H1)2.%V(V)(V1)8.%X(X)(X74)/ 491.(RA$AN$)(R2$AN$)RIRI1:`MO%2ĺ(7);:H9H8:836:906:ZS$RA$:9000:LI1(AN$):TL((AN$,LI,1)):(TL48TL57)TL46ı:KI%1KI%4ıR1(RA$):R2R1(0.05R1):R3R1(0.05R1):(AN$)R3(AN$)R2RIRI1CT(AN$)1:CT$(RA$,CT,1):(AN$RA$)(AN$R2$)İ445:NX$"redo"A$(13)C0:835:A$(13)AN$""RA(AN$):495 NX$"redo"NX$"":H9H8:836:906:490AN$AN$A$:H9H91:RA$AN$R2$AN$(KI%1(RA$)(AN$))(KI%1(R2$)(AN$))RA(AN$)A$((A$)32):ZS$A$:9000:C0:835:V A$"0"A$"9"ZS$A$:9000:C0:835:_ 446 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: H8H9:906:AN$"":470 (AN$)(RA)496x 1)400,4021 NX$"redo"A$(13)C0:835:y (A$"+"A$"-"A$"="A$"("A$")")MO%3ZS$A$:9000:C0:835: (KI%3KI%2)(A$"."A$",")ZS$A$:9000:C0:835: MO%3A$"a"A$"z"ZS$A$:9000:C0:835:) MO%3A$"A"A$"Z"6 906:C2:835O ((MO%3)((MO%1)(KI%4)))1400,402:A$"X"A$"x" A$"0"A$"9"AN$AN$A$:ZS$A$:C0:835:9000:H9H91: (A$"-"A$"+"A$"x")AN$AN$A$:ZS$A$:C0:835:9000:H9H91:435 428 906:C5:835 ((MO%1) >V20:690:5 ^MO%3SC%(UN%,KI%,(MO%2)4)0; _K 16368,0:Z 390:A$:} 390:A$:A$(127)NX$"redo"  400:A$(32)415  400:A$LO$A$HI$LO$"1":ANS(A$): (7);:420 NX$"redo"A$(13)ı 43" ALG.2.9.3 - SJW - V.101589-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)16KI%2KI%3İ825:V20:690: 8KI%4MO%3V14:690:\]^_`abcdefghijklmnaJ1402aSC%(I,J,1)0SC%(I,J,5)3:25030c2aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:250302aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:250302aSC%(I,J,5)22a:2eH(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:9100[1&16368,0:A$x1&::(4);"VERIFY ";ZF$1&ZF%0:216,0::(4);"-";ZF$:1' ERROR TRAP FOR DISK FLIP1'216,0:822:99651a SCORE TRACKING ROUTINE1aI1NU% 29225 0&*0& TRAP FOR DISK FLIP<0&216,0:9990F0&9981Q0&99900&5126,1:5127,30:5128,78:5129,186:51200&ZF%1ZS$"Check Disk Drive":99720&ZS$"Flip Disk"0&:MODE(2):12:B0:H(21(ZS$))4,55:9100I1&ZS$"and":%Y(Y)(Y2425)b/%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 TRAPPING0&((218)(219)256)9220Č822:!PL(PL$)1:PL$(PL$,PL):FbL(S$):LTCLJ0T$S$:690:OcHLJl7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905:vLTTC11:X$(S$,LT,1):X$SP$X$"-"670ZS$(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:ZP%1:9000:822:NX$"":ZS$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1): " DRAW 25000S2000 < V6:S$ZZ$:LJ5:TC33:LI1:610[ MO%3008,3100,3200,3200: 850:V18:T$"Income = prt (time=1 year)":690:7939,4:7940,V(20):ZS$D$(4):9000:900:V12:S2$(J(4)100)"p":7939,4:7940,V(V)x ZS$"Income #1: "S2$:MO%3SC%(UN%,KI%,1)18>822:847:MO%3İ845:2115A?846UCTC35:LI1:LJ4qH390:3000:MO%4İ1000IMO%4ZF%1:ZF$"ALG.2.9":9950MNX$"fd"2130NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110O2110RPG%0:MO%3İV2:7939,6:7940,152:ZS$"Your choice? (1-4) ":9000:LO$"1":HI$"4":420:ZS$A$:9000:MO%AN:A$"4"ZF%1:MO%0:ZF$"ALG.2.9":9950 MO%3SC%(UN%,KI%,(MO%2)4)091000:TL10:4849,6:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1:891: 3MO%421059MO%0:PG%0:KI%3:912:891\ZS$T1$:876:ZS$T2$:875:15~H14: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:V) J(8)(J(8))1050,!J(5)01050Y$J(9)J(3)100:NN9:992:988:I1NN:J1%(J$(I),J,1)"."LJJ2:(J$(I))LJJ$(I)(J$(I),LJ):1065&JJ1:J(J$(I))1061):ZZ$C$(3,1)J$(1)C$(3,2)J$(4)C$(3,3)J$(3)C$(3,4)J$(8)C$(3,5):N99:999:J(1)I5:N9J(1):999:J(2)I:II35:N98II:999:J(II)I2::J(5)J(5)1:J(4)J(4)(3J(5)3):J(5)01050J(3)J(3)(.5(J(3)J(4))):II12:J(II)J(II)(10J(5))::J(5)J(1)J(2):J(6)J(5)J(3).01:J(7)J(2)J(4).01:J(8)J(6)J(7"(J$(I),3):LL1:L8J$(I)(J$(I),L7)","(J$(I),7)EI:M:z999:SG$"+":SG1:N(I)1SG$"-":SG1I((1)7)1:I(I7)6(I7)I:I1NN:J$(I)((J(I)))::I((1)N9)1:KI%1005,1025,1050,10759,I(H):7940,V(V):X9(H91.1)8:Y9(V98)5:E4849,1:9200:NE((RA$,1)"-"):RA(RA$):(RA$,1)"+"(RA$,1)" "RARA1:RA$(RA$,RA)I1NN:DN$(I)(J(I))::<I1NN:J$(I)(J(I)):L(J$(I)):KI%3L4J$(I)(J$(I),L3)",00:7939,2:7940,15:ZS$"M"(MO%):MO%4897FZS$ZS$" "(PG%)R9000: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:1HH9:VV9:793,72:5129,75:5120:7RC(2):BOX(530,1)13,131:mk7969,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$" "/}90(H9)14,V(V91)ZI::15:.D(AN$)0ıQE906:ZS$(EZ$,(AN$)):9000:H5126,3:5127,85:5128,76:5129,129:5120:M840:5126,3:5127,133:5128,76:5129,165:5120:N5126,3:5127,85:5128,76:5129,165:5120:O5126,7:5127,33:5128G%9((MO%4)(TT20))NX$"fd":7393NX$"bk">822:n55126,1:5127,30:5128,78:5129,168:5120:615:B15:MODE(2):5,178:19);:MODE(1):B0:95126,3:5127,144:5128,76:5129,165:5120:CC(C):ZI01:H(H9),V(V91)ZIH):66,178:ZS$"Menu":9100:MODE(1)415:B0DZA$"":ZA$VZA$(8)720w(ZA$(21))(ZA$(32))730710 LEFT ARROW SELECTEDMO%4TT20NX$"fd":729NX$"bk"822: RIGHT ARROW OR SPACE BAR SELECTED&PARROWSMO%4704tZS$"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(29000:VV2:900:7939,4:7940,V(V):ZS$"Income #2: ("J$(1)"-p) x"(J(3)100):9000:VV2:7939,30:7940,V(V):900 S1$((J(3)100)J(1))" -"(J(3)100)"p":ZS$S1$:9000:900:5126,3:1527,133:5128,76:5129,143:5120% 7939,4:7940,V(20):ZS$D$(6):9000:VV2:S$S2$" +"S1$ S$S$" = "J$(8):T$S$:690:900:825:7939,4:7940,V(20):ZS$D$(8):9000:7939,48:7940,V(20):ZS$"p = "J$(2):9000:900:840N! 7939,4:7940,V(13):ZS$"Income #1 = "J$(4)"% x $"J$(2)" = $"J$(7):9000:7pqrstuvwxyz{|}~ ,aJ142,aSC%(I,J,1)0SC%(I,J,5)3:25030e,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,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:9100]+&16368,0:A$z+&::(4);"VERIFY ";ZF$+&ZF%0:216,0::(4);"-";ZF$:+' ERROR TRAP FOR DISK FLIP+'216,0:822:9965+a SCORE TRACKING ROUTINE,aI1NU%2:9225*&,*& TRAP FOR DISK FLIP>*&216,0:9990H*&9981S*&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:9100K+&ZS$"and":)%Y(Y)(Y2425)f)%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)256)9220Č824:: SCR.UN.PAC.($1,84:: SCR.U1.PACI("$1,137:: SCR.U2.PACc(,$1,73:: SCR.KI.PACw(6$: SCR.MO.PAC(@$1,98:: SCR.U3.PAC(% * FUNCTION DEFINITIONS *(%H(H)(H1)14(%I(H)(H1)2(%V(V)((V1)8))%X(X)(X74),1)):7936:'#L'# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)X'#Z9(1)b'#ZS$;o'#ZP%1ĺy'#ZP%0'#'# COMPRESSION BUFFER MANAGER'#Z9(1)'$0,0:(4849)9230,9240,9250,9260,9270,9280:4352' $4848,(4849):($1,605:RA(RA$):490:825:RI2İ300:3290@& S$D$(7):V20:610& V15:(7);:I263:7939,54:7940,V(V):ZS$"$"J$(I):9000:VV2:& 700:&(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)&-#Z9(1):840'2#ZL1(ZS$):7941,((ZS$,ZL00%v 700:Z% RI0:V12:TC33:LJ3:LI1:S$D$(3):610:V19:S$D$(2):610:PG%1İ350% 7939,4:7940,V(15):ZS$"Principal #1 = $":9000:905:RA$J$(2):R2$DN$(2):914:490)& 7939,4:7940,V(17):ZS$"Principal #2 = $":9000:RA$J$(5):R2$DN$(5):9D$(8):9000:7939,48:7940,V(20):ZS$"p = ":9000:RA$J$(2):R2$DN$(2):905:914:490:840:7939,4:7940,V(13):RI0%l ZS$"Principal #1 = $"J$(2):9000:7939,4:7940,V(15):ZS$"Principal #2 = $":9000:RA$J$(5):R2$DN$(5):905:914:490:825:RI1İ3$"Now multiply:":9000:V9V:H916:RA$S4$"-"S3$"p":R2$RA$:914:490:S1$RA$:825:R2$S2$"+"S1$"="DN$(8)#X 7939,4:7940,V(20):ZS$D$(6):9000:VV2:7939,26:7940,V(V):RA$S2$"+"S1$"="J$(8):905:914:490w$b 825:7939,4:7940,V(20):ZS$$:R2$RA$:914:490:S4$(J(9)J(1)):S3$J$(9)g"0 RA$"("J$(1)"-p)x"S3$:R2$"("DN$(1)"-p)x"S3$": VV2:7939,4:7940,V(V):ZS$"Income #2: ":9000:905:914:490"D 5126,3:1527,133:5128,76:5129,143:5120r#N 825:7939,4:7940,V(20):VV2:ZS939,4:7940,V(15):ZS$"Income #2 = "J$(3)"% x $"J$(5)" = $"J$(6):9000Y! 700:! V18:T$"Income = prt (time=1 year)":690:S2$(J(4)100)"p"0"& 7939,4:7940,V(20):ZS$D$(4):9000:V12:7939,4:7940,V(V):ZS$"Income #1: ":9000:905:RA$S2" ALG.2.9.2 - SJW - V.102489-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 6KI%2KI%3S$T$:7939,4:7940,136:ZS$(EZ$,15):9000:V9,2:7940,15:ZS$"M"(MO%):MO%4897?ZS$ZS$" "(PG%)K9000: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)29,75:5120:0RC(2):BOX(530,1)13,131:fk7969,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:793CC(C):ZI01:H(H9),V(V91)ZIH(H9)14,V(V91)ZI::15:WD(AN$)0ızE906:ZS$(EZ$,(AN$)):9000:H5126,3:5127,85:5128,76:5129,129:5120:M840:5126,3:5127,133:5128,76:5129,165:5120:O5126,7:5127,33:5128,72:5120NX$"fd":729 NX$"bk"+822:T 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:95126,3:5127,144:5128,76:5129,165:5120:GBMO%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 SELECTEDMO%4TT0:a822:NX$"":ZS$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1)pMO%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)1:X$(S$,LT,1):X$SP$X$"-"670QZS$(S$,LT(X$SP$)):ZP%1:9000:660zS$(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:9006ı:KI%1KI%4ıeR1(RA$):R2R1(0.05R1):R3R1(0.05R1):(AN$)R3(AN$)R2RIRI1kPL(PL$)1:PL$(PL$,PL):bL(S$):LTCLJ0T$S$:690:cHLJl7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905:&vLTTC1o"A$(13)C0:835:A$(13)AN$""RA(AN$):495cNX$"redo"NX$"":H9H8:836:906:490l484u491(RA$AN$)(R2$AN$)RIRI1:MO%2ĺ(7);:H9H8:836:906:ZS$RA$:9000:LI1(AN$):TL((AN$,LI,1)):(TL48TL57)TL4$ A$(13)AN$""ĺ(7);:495 AN$AN$A$:H9H91:RA$AN$R2$AN$(KI%1(RA$)(AN$))(KI%1(R2$)(AN$))RA(AN$) 495 H8H9:906:AN$"":470 (AN$)(RA)4967CT(AN$)1:CT$(RA$,CT,1):(AN$RA$)(AN$R2$)İ445:NX$"red"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$:9000:C0:835: 446 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0:0:H9H91:435 428+ 906:C5:835D ((MO%1)1)400,402h NX$"redo"A$(13)C0:835: (A$"+"A$"-"A$"="A$"("A$")")MO%3ZS$A$:9000:C0:835: (KI%3KI%2)(A$"."A$",")ZS$A$:9000:C0:835: MO%3A$"a"A$$): (7);:4201 NX$"redo"A$(13)ı: 436L 906:C2:835 ((MO%3)((MO%1)(KI%4)))1400,402:A$"X"A$"x" A$"0"A$"9"AN$AN$A$:ZS$A$:C0:835:9000:H9H91: (A$"-"A$"+"A$"x")AN$AN$A$:ZS$A$:C0:835:90019:LJ3:LI1:TC16:610:8 8KI%4MO%3V14:690:H >V20:690:l ^MO%3SC%(UN%,KI%,(MO%2)4)0r _ 16368,0: 390:A$: 390:A$:A$(127)NX$"redo"  400:A$(32)415  400:A$LO$A$HI$LO$"1":ANS(A:7940,V(V):X9(H91.1)8:Y9(V98)5:>4849,1:9200:NE((RA$,1)"-"):RA(RA$):(RA$,1)"+"(RA$,1)" "RARA1:RA$(RA$,RA)I1NN:DN$(I)(J(I))::5I1NN:J$(I)(J(I)):L(J$(I)):KI%3L4J$(I)(J$(I),L3)","(J$(I),3):LL1:L8J$(I)(J$(I),L7)","(J$(I),7)>I:F:s999:SG$"+":SG1:N(I)1SG$"-":SG1yI((1)7)1:I(I7)6(I7)I:I1NN:J$(I)((J(I)))::I((1)N9)1:KI%1005,1025,1050,1075bII:9000:VV2:7939,48:7940,V(V):ZS$J$(2)" lbs.":9000F&J 700:&(# 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) '#"lbs. at $"J$(3):9000:H95:V914:RA$J$(1):R2$RA$:914:490% 7939,14:7940,V(16):ZS$"lbs. at $"J$(4):9000:V916:H95:RA$J$(2):R2$RA$:914:490:825:RI2İ300:2890%" S$D$(7):V20:610;&, V14:(7);:7939,48:7940,V(V):ZS$J$(1)" lbs." 7939,4:7940,V(15):ZS$"Kind #2 = ":9000:RA$J$(2):R2$RA$:905:914:490:7939,I(H81(RA$)):7940,V(15):ZS$"lbs. @ $"J$(4):9000$ 700:$ RI0:V12:TC33:LJ3:LI1:S$D$(3):610:V19:S$D$(2):610:PG%1İ350A% 7939,14:7940,V(14):ZS$S$(1)" + "S$(3)" = "J$(6)" x "J$(5):9000:900:825# R2$J$(1):7939,4:7940,V(20):ZS$D$(8):9000:7939,48:7940,V(20):ZS$"x = ":9000:905:RA$R2$:914:490:840# 7939,4:7940,V(13):ZS$"Kind #1 = "J$(1)" lbs. @ $"J$(3):9000:900$V(V):ZS$"Kind #2: ":9000:RA$S$(2):R2$S$(9):905:914:490:VV2:7939,4:7940,V(20)" 825:ZS$"Now multiply:":9000:7939,18:7940,V(V):RA$S$(3):R2$S$(8):905:914:490<# 825:7939,4:7940,V(20):ZS$D$(6):9000:VV2:7939,6:7940,V(V):ZS$9000:900Y!P 7939,4:7940,V(15):ZS$"Kind #2 = "J$(2)" lbs. at $"J$(4):9000:900d! 700:! R2$"":850:7939,4:7940,V(20):ZS$D$(4):9000:V12:7939,8:7940,V(V):ZS$"Kind #1: ":9000:RA$S$(1):R2$RA$:905:914:490[" VV2:7939,8:7940,):9000:VV2:7939,6:7940,V(V):ZS$S$(1)" + "S$(3)" = "J$(6)" x "J$(5):9000:900:825 !F 7939,4:7940,V(20):ZS$D$(8):9000:7939,48:7940,V(20):ZS$"x = "J$(1):9000:840:900:7939,4:7940,V(13):ZS$"Kind #1 = "J$(1)" lbs. at $"J$(3)::72 850:7939,4:7940,V(20):ZS$D$(4):9000:V127 7939,8:7940,V(V):ZS$"Kind #1: "S$(1):9000:900:VV2:7939,8:7940,V(V):ZS$"Kind #2: "S$(2):9000:900:VV2:7939,26:7940,V(V)a < ZS$S$(3):9000:900:825:7939,4:7940,V(20):ZS$D$(6J4!H390:2600:MO%4İ1000FIMO%4ZF%1:ZF$"ALG.2.9":9950ZMNX$"fd"2130NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110O2110RPG%0:MO%3İ25000S2000( V6:S$ZZ$:LJ5:TC33:LI1:610- MO%2610,2700,2800,28000:LO$"1":HI$"4":420:ZS$A$:9000:MO%AN:A$"4"ZF%1:MO%0:ZF$"ALG.2.9":9950x 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:LZS$T1$:876:ZS$T2$:875:15DH14:V6(2KI%):WD$TY$(KI%)L 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:T7939,6:7940,152:ZS$"Your choice? (1-4) ":900J$(4):S$(3)J$(8)" - "J$(4)"k":N95:999:ITI8ZZ$C$(2,1)J$(5)C$(2,2)D$(IT)C$(2,3)J$(6)C$(2,4)J$(3)C$(2,5)J$(4)"/lb.":S$(9)"("J$(5)"-k)x"J$(4):S$(8)J$(8)"-"J$(4)"k":3MO%42105MO%0:PG%0:KI%2:912:891"J$(6)(J(6)):J$(8)" "J$(8):L(J$(8)):PL$(J$(8),L2)"."(J$(8),2):520:J$(8)PL$:J(8)(J$(8)):J$(6)" "J$(6):LJ(J$(6)):PL$(J$(6),LJ2)"."(J$(6),2):520:J$(6)PL$ J(6)(J$(6)):J(7)J(5)J(6)4S$(1)J$(3)"k":S$(2)"("J$(5)"-k) x "34:N960:999:J(II)I10::N949:II12:999:J(II)I::J(5)J(1)J(2):NN8:J(8)J(5)J(4):998II34:J$(II)" "J$(II):L(J$(II)):PL$(J$(II),L2)"."(J$(II),2):520:J$(II)PL$:J(II)(J$(II))::J(6)(((J(1)J(3))(J(2)J(4)))(J(5)100))Z9(1)'#ZS$; '#ZP%1ĺ*'#ZP%00'#T'# COMPRESSION BUFFER MANAGER`'#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$: SCR.MO.PACA(@$1,98:: SCR.U3.PACa(% * FUNCTION DEFINITIONS *u(%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(C4)12(C5,1:9200:" SHUFFLE ROUTINE5TE%(1)0:SJ%1RZI1ND%: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$:8ZS$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: 7939,I(H9):7940,V(V9):X9(H91.1)8:Y9(V98)2: 4849 A< k7969,22:7939,45(ZS$):7940,17:9000:7969,8:q 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 5:MODE(2):5,178:19);:MODE(1):B0:g =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):9000):VV1:LI1VV1 620E ::::(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:+ 615:B1400:A$LO$A$HI$ANS(A$):- 420R 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:660 S$(S$,(S$)LT  ALG.2.8 - SJW - V.101589+99002vI16:TY$(I)::I17:J$(I):J(I)(J$(I))::I120:D$(I):T2$"Radicals and Exponents"9600MODE(1)::15:B0:200016368,0:390:A$:400:A$(32)415$ SC%(I,J,5)2:25030Y,aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030j,aSC%(I,J,5)2r,a:x,e16368,0:A$*+&::(4);"VERIFY ";ZF$M+&ZF%0:216,0::(4);"-";ZF$:p+' 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)0SC%(I,J,1)501*&5126,1:5127,30:5128,78:5129,186:5120Y*&ZF%1ZS$"Check Disk Drive":9972m*&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 +&)13(C6)9(C7)72)%M(X)((X2)(X2))2Q)%N(I)(((I3)(I3))3)p)%P(I)(((I5)(I5))5)v)%)& CONTROL-C TRAPPING)&((218)(219)256)9220Č822:9225)&)& TRAP FOR DISK FLIP)&216,0:9990)&9981*&99975A6: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)UZS$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$:9000KI%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:MC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030PaSC%(I,J,5)2Xa:^e' ERROR TRAP FOR DISK FLIP9'216,0:822:9965Wa SCORE TRACKING ROUTINEa " OPEN CDFILE$ FOR READING, 166 BYTES/RECORDaI1NU%aJ15aSC%(I,J,1)0SC%(I,J,5)3:25030aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:25030?aSive":9972 &ZS$"Flip Disk"U&: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$:#2#%N(I)(((I3)(I3))3))%C& CONTROL-C TRAPPINGl&((218)(219)256)9220Č822:9225r&& TRAP FOR DISK FLIP&216,0:9990&9981&9990&5126,1:5127,30:5128,78:5129,186:5120 &ZF%1ZS$"Check Disk DrCR.U2.PAC#,$1,73::SCR.KI.PAC56$:SCR.MO.PACU% * FUNCTION DEFINITIONS *i%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)(X2))LE HI-RES SCREEN, MODE(2)'#Z9(1)1#ZS$;>#ZP%1ĺH#ZP%0N#q# 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,118::Sd "Multiply the numbers before the radicals.","Now, multiply the numbers under the radicals."(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)-#Z9(1):8402#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:## DRAW CHARACTERS ON DOUBn." "If the original exponent is uneven, the first power of the variable remains under the radical.","(The power of '1' has no exponent.)" "You can combine terms if the number under the radical signs are identical.","The answer is:","Multiply:"lready multiplied together."r"Use '*' for a radical sign.","The correct answer is:","If a variable has an exponent greater than 1, divide the exponent by 2 to get the square root."| "Place the square roots of the variables outside the radical sig"Use a pencil and paper to calculate the answer.","Enter the final answer only."^ "Simplify:"," is a perfect square.","The square root of "h " is not a perfect square.","Multiply the two answers.","Find the square root of ","The two answers are aUN%,5,5)2:4040%SC%(UN%,5,5)15900:821:T@ ** DATA STATEMENTS **J"Simplifying Square Roots","Radicals with Variables","Add/Subtract Radicals","Multiply Radicals","Radical/Exponent Test","Return to Algebra Menu",2,3,5,6,7,11,13RT 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)UC%:((UC%20)DT)SC%(5)19TL10:PG%TT:HZF%1:KI%2061,2062,2063,2064SOTTTT1:TT202101pRUN%2:4000:PG%0:25000SMO%0:2000 FACTORING TEST RESULTS821BUC%0:7939,52:7940,40:ZS$"Tried":9000:7939,64:7940,40:ZS$"Correct":9000:V8:O%0:KI%2061,2062,2063,20649 ZF$"ALG.2.8.1":9950SZF$"ALG.2.8.2":9950mZF$"ALG.2.8.3":9950ZF$"ALG.2.8.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:TT15KI%((R%(TT)1)ZS$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):66,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%4704YZL$)1:PL$(PL$,PL):<bL(S$):LTCLJ0T$S$:690:EcHLJl7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905:vLTTC11:X$(S$,LT,1):X$SP$X$"-"670ZS$(S$,LT(X$SP$)):ZP%1:9000:660S$(S$,(S$)LT):VV1:LI1VI 470:906:AN$"":II1RA:445:A$(13)AN$""IIRA:A$"":482y NX$"redo"A$(13)NX$"":H9H7:836:480 AN$AN$A$:H9H91::AN$RA$MO%2485 (7); 7939,I(H7):7940,V(V9):ZS$RA$:9000 AN$RA$RIRI1 PL(P"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$:9000:C0:835: 446 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0:0:H9H91:435 428+ 906:C5:835D ((MO%1)1)400,402h NX$"redo"A$(13)C0:835: (A$"+"A$"-"A$"="A$"("A$")")MO%3ZS$A$:9000:C0:835: (KI%3KI%2)(A$"."A$",")ZS$A$:9000:C0:835: MO%3A$"a"A$$): (7);:4201 NX$"redo"A$(13)ı: 436L 906:C2:835 ((MO%3)((MO%1)(KI%4)))1400,402:A$"X"A$"x" A$"0"A$"9"AN$AN$A$:ZS$A$:C0:835:9000:H9H91: (A$"-"A$"+"A$"x")AN$AN$A$:ZS$A$:C0:835:90019:LJ3:LI1:TC16:610:8 8KI%4MO%3V14:690:H >V20:690:l ^MO%3SC%(UN%,KI%,(MO%2)4)0r _ 16368,0: 390:A$: 390:A$:A$(127)NX$"redo"  400:A$(32)415  400:A$LO$A$HI$LO$"1":ANS(A" ALG.2.9.1 - SJW - V.101589-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 6KI%2KI%3S$T$:7939,4:7940,136:ZS$(EZ$,15):9000:V940)81:H9(7939)21:]HH9:VV9:7939,I(H):7940,V(V):X9(H91.1)8:Y9(V98)5:q4849,1:9200:NE((RA$,1)"-"):RA(RA$):(RA$,1)"+"(RA$,1)" "RARA1:RA$(RA$,RA)I1NN:DN$(I)(J(I))::hI1NN:J$(I)(J(I)):L(J$(I)):KI%3L4J$(I)(J$(I),L3)","(J$(I),3):LL1:L8J$(I)(J$(I),L7)","(J$(I),7)qI:y:999:SG$"+":SG1:N(I)1SG$"-":SG1I((1)7)1:I(I7)6(I7)I:I1NN:J$(I)((J(I))):: I((1)ʲ * 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)ION BUFFER MANAGER ##Z9(1)V#$0,0:(4849)9230,9240,9250,9260,9270,9280:4352j# $4848,(4849):#$1,64:: SCR.UN.PAC#$1,84:: SCR.U1.PAC#"$1,137:: SCR.U2.PAC#,$1,73:: SCR.KI.PAC#6$: SCR.MO.PAC#@$1,98:: SCR.U3.PAC$%00:@"(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)Q"-#Z9(1):840"2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:"#"# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)"#Z9(1)"#ZS$;"#ZP%1ĺ"#ZP%0"### COMPRESS H7H9:RA$J$(1):914:480:7939,18:7940,V(17):ZS$"Length = ":9000:905:H7H9:RA$J$(4):914:480! 825:RI2İ300:2490! S$D$(7):V20:610:7939,46:7940,V(15):ZS$"Width = "J$(1):9000:7939,46:7940,V(17):ZS$"Length = "J$(4):9000" 7914:H7H9:480x $ 7939,38:7940,V(14):ZS$"Width = "J$(1):9000:7939,38:7940,V(16):ZS$"Length = "J$(4):9000 V 700: ` RI0:V12:TC33:LJ3:LI1:S$D$(3):610:V19:S$D$(2):610:7939,18:7940,V(15):ZS$"Width = ":9000:905:PG%1İ350g!~:905:H7H9:914:480 825:7939,4:7940,V(20):ZS$D$(6):9000:7939,4:7940,V(18):ZS$"A = ":9000:905:H7H9:RA$"x("J$(3)"x"J$(2)")":914:480  825:7939,4:7940,V(20):ZS$D$(8):9000:7939,48:7940,V(20):ZS$"x = ":9000:905:RA$J$(1):= "J$(1)"("J$(4)") = "J$(5):90003700:RI0:7939,28:7940,V(12):ZS$"Area = w x l":9000:7939,4:7940,V(20):ZS$D$(4):9000:7939,4:7940,V(14):ZS$"Width = x":90007939,4:7940,V(16):ZS$"Length = ":9000 RA$J$(3)"x"J$(2)9000:900:825:7939,4:7940,V(20)ZS$D$(8):9000:7939,48:7940,V(20):ZS$"x = "J$(1):9000:900:7939,36:7940,V(14):ZS$"Width = "J$(1):9000:900:7939,36:7940,V(16)ZS$"Length = "J$(4):9000:900(7939,36:7940,V(18):ZS$"Area 90:7939,4:7940,V(20):ZS$D$(4):9000:7939,4:7940,V(14):ZS$"Width = x":9000:7939,4:7940,V(16):900ZS$"Length = "J$(3)"x"J$(2):9000&900:825:7939,4:7940,V(20):ZS$D$(6):9000:7939,4:7940,V(18):ZS$"A = x("J$(3)"x"J$(2)")":9950MNX$"fd"2130VNPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110`O2110xRPG%0:MO%3İ25000S2000V6:TC33:LJ5:LI1:S$ZZ$". Find the length and width.":610MO%2210,2300,2400,2400:nV12:T$"Area = w x l":6ZF$"ALG.2.9":99509 MO%3SC%(UN%,KI%,(MO%2)4)0~91000: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%4ZF%1:ZF$"ALG.2.9":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:7939,6:7940,152:ZS$"Your choice? (1-4) ":9000:LO$"1":HI$"4":420:ZS$A$:9000:MO%AN:A$"4"ZF%1:MO%0:6):J$(3)""8J$(2)(J(2)):J(2)0J$(2)"+"J$(2)~L(J$(2)):ZZ$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:15H14:V6(2KI%):WD$TY$(KN9)1:&KI%1005,1025,1050,1075N915: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(5)J(4)J(1):NN5:998:C$C$(1,3):J(3)1L(C$):C$(C$,L(I3))3),%%P(I)(((I5)(I5))5)2%%L%& CONTROL-C TRAPPINGu%&((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":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);"- 6200::::(7);"WORD TOO LONG":rL(T$):H20(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%4704FZS$"Menu":MODE(2):A$,1)(AA$,L2)=bL(S$):LTCLJ0T$S$:690:FcHLJl7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905:vLTTC11:X$(S$,LT,1):X$SP$X$"-"670ZS$(S$,LT(X$SP$)):9000:660S$(S$,(S$)LT):VV1:LI1VV1$RA$RIRI1MO%2489FAN$RA$ĺ(7);:835:FA$RA$:1100LxLP(PL$)1:(PL$,1)"+"PL$(PL$,LP)~  VV(PL$):VV0(PL$,1)"+"PL$"+"PL$ L(AA$):(AA$,1)" "AA$"+"(AA$,L1)L(AA$):((AA$))1AA$(A2:B15:15,178:9100:ZS$" to Erase":1:9100:MODE(1):15:B0:s AN$"":NX$"":470:RD0:FL0FL1:H9H (AN$)(RA)486 C5:838:450:NX$"redo"A$(13)C0:835:NX$"redo"NX$"":480 A$(13)AN$""RA(AN$) 481AN))C0:838:AN$AN$A$:H6H:V6V:1130:VV61:HH6:FA$(LZ$,3):C0:1100:VV6:HH62:RDRD1:n (7);: A$"2"AN$""FF$"@":C0:838:1191:AN$AN$FF$: A$"3"AN$""FF$"#":C0:838:1192:AN$AN$FF$:G 822:ZS$"Delete":MODE(2):0 (A$"2"A$"3")(KI%2)(AN$"")463d A$"-"KI%2C0:838:1130:HH2:AN$AN$A$: A$"0"A$"9"KI%2NN(A$):C0:838:1130:HH2:AN$AN$A$: A$"+"KI%2C0:838:1130:HH2:AN$AN$A$:a (A$"*"RD2)((MO%2)(KI%3$HI$AN(A$): 430: 420:AN1AN4CHAN:C 440\ ((MO%1)1)400,402n NX$"redo"ı A$(13)C0:838: (((A$)64(A$)91))A$((A$)32) FF$A$:LEL1(A$SS$(L2)):A$SS$(LE)KI%2C0:838:1130:HH2:AN$AN$A$:W%130 67939,6:7940,V(ZW%):ZS$T$:9000:T ^MO%3SC%(UN%,KI%,(MO%2)4)0Z _j 16368,0:y 390:A$: 390:A$:A$(127)NX$"redo"  400:A$(32)415  400:A$"0"A$"9"AN(A$): 420 400:A$"1"A# ALG.2.8.1 - SJW - V.101589 .99008c9600XdLZ$"|____________________"xMODE(1)::15:B0:2000,ZW%20:RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$ 5MO%3ZW%20:SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)1:KI%3ZSC%(I,J,5)1:25030&(aSC%(I,J,5)2.(a:4(e";ZF$:,'' ERROR TRAP FOR DISK FLIPB''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)į18,178:9100:MODE(1):PG%9įMODE(2):90,178:9100:MODE(1):704zZS$"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)720I(ZA$(21))(ZA$(32))730R710m LEFT ARROW SELECTEDMO%4TT20NX$"fd":729NX$"bk"822: RIGHT ARROW SELECTED (OR SPACE BAR)PG%9((MO%4)(TT20))NX$"fd":739NX$,(AN$(1))1)" "(LZ$,(AN$(2))1):1100N MO%2210,2300,2400,2400:x V10.5:LJ3:TC20:PI2220,2240:2290!II12:S$AN$(II)D$(4):610:VV2:S$D$(5)AN$(II)" is "AN$(II2)".":610:V9V:V13:H27(II2)((AN$(II1)))2:FA$AN$(II2):C%1:ZF$"ALG.2.8":9950-MNX$"fd"2130hNPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110rO2110RPG%0:MO%3İ25000S2000/ 7939,8:7940,V(6):ZS$D$(3):9000:V7:FA$"*"AN$(1)" % *"AN$(2):C0:H14:1100:V6:H14:C0:FA$(LZO%0:ZF$"ALG.2.8":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>KI%2İ840:822:860:862CTC35:LI1:LJ4H390:2200:MO%4İ1000IMO%4ZFV6(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:440:ZS$A$:9000:MO%AN:A$"4"ZF%1:M((H1)72),V(V):9100:MC(C):ZS$FF$:((H1)72),V(V):9100:15:MODE(1):H(H),V(V)4:ZS$FF$:9100:MODE(2):: DRAW.EXPONENTMO%42105MO%0:PG%0:KI%1:912:891ZS$T1$:876:ZS$T2$:875:15H14:109OFF$"("FF$")"CLC:C5:1160:CCL:HH2:1110`PFF$"#"FF$"3":1190:HH1:1110pQ1120:HH2VFF:MODE(1):C0:`9:ZS$FF$:H(H)4,V(V):9100:bj9:ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1):t9:ZS$FF$::AN$(2)C$(2,1):AN$(3)C$(1,1):AN$(4)C$(2,1):sAN$(1)C$(1,1):AN$(2)C$(2,2):AN$(3)C$(1,1):AN$(4)C$(2,1):y3LMODE(2):FF1(FA$):FF$(FA$,FF,1)MC0FF$"@"FF$"#"İ1160:HH2:1110NFF$"@"FF$"2":1190:HH1:11J(I):C$(II,1)J$(I):C(II,2)(J(I)2):PL$(C(II,2)):C$(II,2)PL$::999qPI(MO%1)M(I)(MO%1)N(I)1PL$((C(1,1)C(2,1))):AN$(5)PL$:PI1010,1015,1020:AN$(1)C$(1,2):AN$(2)C$(2,2):AN$(3)C$(1,1):AN$(4)C$(2,1):1AN$(1)C$(1,2)J11MM:C$(I1,J1)(C(I1,J1)):,::Y999:SG$"+":SG1:N(I)1SG$"-":SG1_I((1)7)1:I(I7)6(I7)I:I((1)N9)1:I((1)9)1:997:L1I:L2I1:S$SS$(I):KI%1001,1025,1050,1075:KII12:997:C(II,1)940)81:PHH9:VV9:7939,I(H9):7940,V(V9):X9(H91.1)8:Y9(V98)2:d4849,1:9200:x4849,5:9200:NE1:RA(RA$):(RA$,1)"-"NE0K14:X(K)0::K14T((1)4)1:X(T)1982X(T)1:T(K)T::"I11NN::893|ZS$ZS$" "L}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: H9(7939)21:V9(75128,77:5129,162:5120:M_5126,48:5127,115:5128,77:5129,162: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%))4,V(V)6ZIH(H)47,V(V)6ZI:ZI:15:sFC(C):ZI01:H(H),V(V)7ZIH(H2),V(V)7ZI::15:H5126,7:5127,36:5128,71:5129,60:5120:RST\]5126,3:5127,71:5128,43:5129,162:5120:^5126,48:5127,71:$"bk"822:C55126,1:5127,30:5128,78:5129,168:5120:z615:B15:MODE(2):5,178:19);:MODE(1):B0:A(AN$)0ıCC0:838:5126,I(H9):5127,V(V)4(MO%3):5128,75:5129,V(V1):5120:HH9:0DC(C):MODE(2):ZI01:H(H0 !II2FA$"%"AN$(II2)4!1100:VV9:900}!VV2::861:V13:S$D$(7):610:FA$"="AN$(5):V15:H30:C0:1100:!S$AN$(1)D$(4):610:VV2:S$D$(5)AN$(1)" is "AN$(3)".":610:V9V:V13:H27:C0:FA$AN$(3):1100:VV92:900"S$AN$(2)D$(6):610:V13:H27(AN$(3))2:V9V:H9H:C0:FA$"*"AN$(2):1100:HH9:VV91:C0:FA$(LZ$,(AN$(2))1):1100:900:V13:861:S$D$(9):610""700:"V10.5:TC20:LJ3:LI1:PT0:PI2310,2340,2360:2390X# II12:S$AN$(II)D$(4):610:VV2:,1)0SC%(I,J,5)3:25030N.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:.e00:ZS$"Press ANY Key":H(21(ZS$))4,100:9100F-&16368,0:A$c-&::(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 TRAP FOR DISK FLIP',&216,0:99901,&9981<,&9990j,&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:91004-&ZS$"and":H(21(ZS$))4,75:91%C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)7l+%M(X)(((X2)(X2))2)+%N(I)(((I3)(I3))3)+%P(I)(((I5)(I5))5)+%+& CONTROL-C TRAPPING+&((218)(219)256)9220Č822:9225+&,& 1,98:: SCR.U1.PAC3*"$1,138:: SCR.U2.PACM*,$1,73:: SCR.KI.PACa*6$: SCR.MO.PAC{*@$1,84:: SCR.U3.PAC*% * FUNCTION DEFINITIONS **%H(H)(H1)14*%I(H)(H1)2*%V(V)(V1)8*%X(X)(X74)*%Y(Y)(Y2425)M+# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)C)#Z9(1)M)#ZS$;Z)#ZP%1ĺd)#ZP%0j)#)# COMPRESSION BUFFER MANAGER)#Z9(1))$0,0:(4849)9230,9240,9250,9260,9270,9280:4352) $4848,(4849):)$1,64:: SCR.UN.PAC*$I1( II(FA$)2490=( (FA$,II,1)"*"IIII1:2486t( V15:H5(II1)2:FA$(LZ$,(FA$)II1):C0:1100( 700:((# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)(-#Z9(1):840(2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:(#7):S$D$(2):610:VV2:S$D$(10):610:PG%1İ350N'e PI2410,2440,2460:2480_'j RA$AN$(5):{' RA$AN$(3)"*"AN$(2):' RA$AN$(4)"*"AN$(1):' 914:V15:H28:FL0:480:861:AN$RA$İ300:2490( FA$RA$:S$D$(11):V12:610:V16:H5:C0:1100:I13:HH5:FL0:480c&B V13:861:S$D$(7):610:RA$AN$(4):914:V16:H27:FL0:480:RA$AN$(1):914&L FA$"*":H9H:V9V:C0:1100:VV91:HH9:FA$(LZ$,(RA$)1):C0:1100:VV9:HH92:FL0:480:&V 700:1'` V11:TC20:LJ3:LI1:PT0:S$D$(1):610:VV2$AN$(1)D$(6):610:VV2:RA$AN$(1):914:V4V:V13:H25:FA$"*":C0:1100:V12:H25:FA$(LZ$,(RA$)1):1100:V13:H27:FL0:480%9 V13:H27(RA$)2:FA$" % ":1100:H5H:VV42&= S$AN$(2)D$(4):610:VV2:S$D$(8)AN$(2)".":610:RA$AN$(4):914:VD$(8)AN$(1)".":610:RA$AN$(3):914:V4V:V13:H27:FL0:480:VV42$) S$AN$(2)D$(6):610:RA$AN$(2):914:V13:H27(AN$(3))2:V9V:H9H:FA$"*":1100:VV91:HH9:FA$(LZ$,(AN$(2))1):1100:VV9:HH92:FL0:480:V13:861:S$D$(7):610$. %8 SS$D$(8)AN$(II)".":610:RA$AN$(II2):914:V4V:V13:H(II1)27(II2)H4:FL0:480y# II1FA$"%":C0:1100:H4H# VV42::861:V13:S$D$(7):610:RA$AN$(5):914:V15:H30:FA$"=":C0:1100:H9H:V9V:FL0:480:H$$ S$AN$(1)D$(4):610:VV2:S$  ALG.2.9 - SJW - V.101589+99002XI16:TY$(I)::I116:D$(I):LO$"1":HI$"9":I14:J15:C$(I,J)::T2$"Problem Solving"9600MODE(1)::15:B0:200016368,0:390:A$: 400:A$(32)415ctangle is ","than"," times the width. The area is ",". Find the length and width.","sum is " "You want "," lbs. of "," to sell at $","/lb. You have some at $","/lb. and some at $"/ "Part of $"," is invested at ","% and the rest at ","%. The t paper to calculate your answer.","Enter the final answer only.","Define the variables:","statement 4"h "Now write the equation.","Look at the correct answer:","Solve the equation:","nuts","seed","coffee","candy","buttons",,,a "The length of a reUC%20)DT)SC%(UN%,5,5)2:40405SC%(UN%,5,5)1E900:821:d@ ** DATA STATEMENTS **J "Area Problems","Mixture Problems","Loans and Investments","Integer Problems","Problem Solving Test"hT "Return to Algebra Menu",,"Use a pencil andect":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)UC%:((I%((R%(TT)1)5)1'9TL10:PG%TTJHZF%1:KI%2061,2062,2063,2064cOTTTT1:TT202101RUN%3:4000:PG%0:25000SMO%0:2000 FACTORING TEST RESULTS821RUC%0:7939,52:7940,40:ZS$"Tried":9000:7939,64:7940,40:ZS$"Corr2080/ ZF%1:MO%0:KI%2061,2062,2063,2064I ZF$"ALG.2.9.1":9950cZF$"ALG.2.9.2":9950}ZF$"ALG.2.9.3":9950ZF$"ALG.2.9.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:TT15K10: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":9950AN5MO%4:UN%4:ND%20:1500:II120:R%(II)TE%(II):TE%(II)0:::876:ZS$T2$:875Q6: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)eZS$MZ$(I1):9000:S$TY$(I1):TC26:LJ14:LI1:68)2:4849,1:9200:2 SHUFFLE ROUTINEETE%(1)0:SJ%1bZI1ND%:SJ%(ZI)ZI:ZInZJ%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$):MO%4897% ZS$ZS$" "(PG%)1 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:7939,I(H9):7940,V(V9):X9(H91.1)8:Y9(V9MZ$(I1):9000 AL 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:ZS$"M"(MO%:; 615:B15:MODE(2):5,178:19);:MODE(1):B0:w =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$S$(S$,(S$)LT):VV1:LI1VV1/ 620U ::::(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 . 400:A$LO$A$HI$ANS(A$):7 420\ 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& otal income is $",". Find the sums invested."p "sum is ","product is "," consecutive ","integers whose ", 1,2,3,4,5(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)-#Z9(1):8402#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:#7# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)C#Z9(1)M#ZS$;Z#ZP%1ĺd#ZP%0j## COMPRESSION BUFFER MANAGER#Z9(1)$0,0:(4849)9230,9240,9250,9260,9270:4352 $4848,(4849):$1,64::SCR.UN.PAC$1,98:AN$RA$ĺ(7);:835:FA$RA$:1100-jJ$"":II1(S$):QR((S$,II,1)):QR64QR91QRQR32J$J$(QR)::S$J$:LP(PL$)1:(PL$,1)"+"PL$(PL$,LP)  VV(PL$):VV0(PL$,1)"+"PL$"+"PL$ L(AA$):(AA$,1) Erase":1:9100:MODE(1):15:B0:T AN$"":NX$"":470:RD0:FL0FL1:H9Hj (AN$)(RA)486 C5:838:450:NX$"redo"A$(13)C0:835:NX$"redo"NX$"":480 A$(13)AN$""RA(AN$) 481 AN$RA$RIRI1 MO%2489':HH6:FA$(LZ$,3):C0:1100:VV6:HH62:RDRD1:A (7);: A$"2"AN$""C0:838:1190:MODE(1):AN$AN$"@":HH1: A$"3"AN$""C0:838:1190:MODE(1):AN$AN$"#":HH1:( 822:ZS$"Delete":MODE(2):2:B15:15,178:9100:ZS$" to37 A$"-"KI%2C0:838:1130:HH2:AN$AN$A$:~ A$"0"A$"9"KI%2NN(A$):C0:838:1130:HH2:AN$AN$A$: A$"+"KI%2C0:838:1130:HH2:AN$AN$A$:4 (A$"*"RD2)((MO%2)(KI%3))C0:838:AN$AN$A$:H6H:V6V:1130:VV614CHAN: 440/ ((MO%1)1)400,402A NX$"redo"ıZ A$(13)C0:838: (((A$)64(A$)91))A$((A$)32) FF$A$:LEL2(A$SS$(L1)):A$SS$(LE)KI%2C0:838:1130:HH2:AN$AN$A$: (A$"2"A$"3")(KI%2)(AN$"")46W%130 67939,6:7940,V(ZW%):ZS$T$:9000:T ^MO%3SC%(UN%,KI%,(MO%2)4)0Z _j 16368,0:y 390:A$: 390:A$:A$(127)NX$"redo"  400:A$(32)415  400:A$"0"A$"9"ANS(A$): 420 420:AN1AN# ALG.2.8.2 - SJW - V.102489 .99008c9600XdLZ$"[]]]]]]]]]]]]]]]]]]]]"xMODE(1)::15:B0:2000,ZW%20:RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$ 5MO%3ZW%20:SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)1:KI%3Z%(I,J,1)5SC%(I,J,5)2:25030daSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030uaSC%(I,J,5)2}a:e%&ZF%0:216,0::(4);"-";ZF$:H' ERROR TRAP FOR DISK FLIP^'216,0:822:9965|a SCORE TRACKING ROUTINEa " OPEN CDFILE$ FOR READING, 166 BYTES/RECORDaI1NU%aJ15aSC%(I,J,1)0SC%(I,J,5)3:25030 aSC%(I,J,1)0SC&ZF%1ZS$"Check Disk Drive":9972<&ZS$"Flip Disk"q&: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:MODE(1)&16368,0:A$&::(4);"VERIFY ";ZF$15 %M(X)((X2)(X2))2?%N(I)(((I3)(I3))3)E%_& 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(:SCR.U1.PAC'"$1,118::SCR.U2.PAC?,$1,73::SCR.KI.PACQ6$:SCR.MO.PACq% * 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)" "AA$"+"(AA$,L1)JL(AA$):((AA$))1AA$(AA$,1)(AA$,L2)PubL(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:6609S$(S$,(S$)LT):VV1:LI1VV1B620h::::(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,17912:891-ZS$T1$:876:ZS$T2$:875:15OH14:V6(2KI%):WD$TY$(KI%)W 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:O7939,6:7940,152:ZS$"Your choice? (V(V):9100:MODE(1):Dt9:ZS$FF$:((H1)72),V(V):9100:uC(C):ZS$FF$:((H1)72),V(V):9100:15:MODE(1):7939,I(H):7940,V(V)3:ZS$FF$:9000:MODE(2):: DRAW.EXPONENTMO%42105 MO%0:PG%0:KI%2::CCL:HH2:1110:PFF$"#"FF$"3":1190:HH1:1110aQFF$"$"FF$"4":1190:HH1:1110RFF$"^"FF$"5":1190:HH1:1110U1120:HH2VFF:MODE(1):C0:`9:ZS$FF$:H(H)4,V(V):9100:bj9:ZS$FF$:MODE(2):H(H)4,"":C$(II,J)"@":- C$(II,J)"#":@ C$(II,J)"$":S C$(II,J)"^":Y_3LMODE(2):FF1(FA$):FF$(FA$,FF,1)MC0FF$"@"FF$"#"İ1160:HH2:1110NFF$"@"FF$"2":1190:HH1:1110OFF$"("FF$")"CLC:C5:11602):C(II,3)M(C(II,1))::NN2:MM3:992hII12:J13:(C(II,J)1)1030,1031,1032,1033,1034,1035}::J13:1010:J13:1013:AN$(1)C$(1,2)C$(2,2):AN$(2)C$(1,3)C$(2,3):AN$(3)AN$(1)"*"AN$(2):1016C$(II,J)"":C$(II,J):KI%1001,1025,1050,1075:#BC(1,J)0C$(1,J)"":1012^C$(1,J)SS$(L1)C$(1,J)h1028C(2,J)0C$(2,J)"":1015C$(2,J)SS$(L2)C$(2,J)1029AN$(2)""AN$(3)AN$(1)*N95:II12:998:C(II,1)I:C(II,2)(C(II,1)4)1:X(T)1982(X(T)1:T(K)T::VI11NN:J11MM:C$(I1,J1)(C(I1,J1)):`::999:SG$"+":SG1:N(I)1SG$"-":SG1I((1)7)1:I(I7)6(I7)I:I((1)N9)1:I((1)9)1:997:L1I:L2I1:S$SS$(I)5:9100:MODE(1)::B0:@H9(7939)21:V9(7940)81:HH9:VV9:7939,I(H9):7940,V(V9):X9(H91.1)8:Y9(V98)2:4849,1:9200:4849,5:9200:NE1:RA(RA$):(RA$,1)"-"NE0K14:X(K)0::K14T((1),2:7940,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%):893K|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:9100:MODE(1):415:MODE(2):39,177:11:5128,43:5129,163:5120:O^5126,48:5127,71:5128,77:5129,162:5120:_5126,48:5127,115:5128,77:5129,162:5120:k7969,22:7939,45(ZS$):7940,17:9000:7969,8:l7969,22:7939,45(ZS$):7940,5:9000:7969,8:z ;{15:7939:HH9:C831dDC(C):MODE(2):ZI01:H(H)4,V(V)6ZIH(H)47,V(V)6ZI:ZI:15:FC(C):ZI01:H(H),V(V)7ZIH(H2),V(V)7ZI::15:H5126,7:5127,36:5128,71:5129,60:5120:RST\]5126,3:5127,7E BAR)3PG%9((MO%4)(TT20))NX$"fd":739@NX$"bk"K822:{55126,1:5127,30:5128,78:5129,168:5120:615:B15:MODE(2):5,178:19);:MODE(1):B0:?C0:838:(AN$)0ı@HH9:MO%2İ862: AFA$(EZ$,(AN$)):C0:110020įMODE(2):66,178:ZS$"Menu":9100:MODE(1)>15:B0NZA$"":ZA$`ZA$(8)720(ZA$(21))(ZA$(32))730710 LEFT ARROW SELECTEDMO%4TT20NX$"fd":729NX$"bk"822: RIGHT ARROW SELECTED (OR SPAC8:9100:MODE(1)!MO%4704~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)0MO%4TT1-4) ":9000:440:ZS$A$:9000:MO%AN:A$"4"ZF%1:MO%0:ZF$"ALG.2.8":9950s 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>KI%2İ840:822:860:862 CTC35:LI1:LJ4) H390:2600:MO%4İ1000N IMO%4ZF%1:ZF$"ALG.2.8":9950b MNX$"fd"2130 NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110 O2110 RPG%0:MO%3İ25000 S2000M!( 7939,8:7940,V(6):ZS$D$(3):9000:V6:ZW$"*"C$(10G-aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030X-aSC%(I,J,5)2`-a:f-e::(4);"VERIFY ";ZF$;,&ZF%0:216,0::(4);"-";ZF$:^,' ERROR TRAP FOR DISK FLIPt,'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:25037,30:5128,78:5129,186:5120G+&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(21(ZS$))4,100:9100+&16368,0:A$,&!*%M(X)(((X2)(X2))2)@*%N(I)(((I3)(I3))3)_*%P(I)(((I5)(I5))5)e*%~*& CONTROL-C TRAPPING*&((218)(219)256)9220Č822:9225*&*& TRAP FOR DISK FLIP*&216,0:9990*&9981*&9990+&5126,1:512)6$: SCR.MO.PAC0)@$1,84:: SCR.U3.PACP)% * FUNCTION DEFINITIONS *d)%H(H)(H1)14w)%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(#A(# COMPRESSION BUFFER MANAGERM(#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,138:: SCR.U2.PAC),$1,73:: SCR.KI.PAC)', H40HH4:C0:FA$(LZ$,3):11004'J 700:n'(# 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$;00:AN$S$(& 861:AN$RA$İ300:2890m& S$"The correct answer is:":V11:610:FA$RA$:V16:H5:C0:1100&" V15:H5:H40:II1(RA$):(RA$,II,1)"*"H4H&# (RA$,II,1)"@"(RA$,II,1)"#"(RA$,II,1)"$"(RA$,II,1)"^"HH1:2855&$ HH2'' 55% C0:1100!% MI22790>% 900:JJJJ1:861:V10.5D% O% 700:% V10.5:TC20:LJ3:LI1:S$D$(1):610:VV2:S$D$(2):610:VV3:S$D$(10):610:PG%1İ350% RA$AN$(1):AN$(2)""RA$RA$"*"AN$(2) & 914:V16:H25:FL0:480:S$AN$:55:FL0:480$ 5$ JJJJ1:S$D$(JJ):V17.5:610$ FA$AN$(MI):V13:H25(MI2)((AN$(1))1)2:AN$(2)""MI1C0:1100:861:V11:JJJJ1:S$D$(JJ):610:2790% MI1FA$FA$"*":C0:1100:V4V:H4H:VV1:HH2:FA$(LZ$,(AN$(2))2):C0:1100:27:1100:2665#d C0:1100+#i MI22680H#n 900:JJJJ1:861:V10.5N#x Y# 700:# V10.5:LJ3:TC20:JJ12:610:V4V:MI12:863:S$D$(JJ):610:VA12:FA$C$(VA,1) $ C0:V15VA2:H27:C0:1100:FA$"]}":H31:C0:1100:RA$C$(VA,MI1):914:H3,MI1):C0:H35:1100:@"F 900:JJJJ1:S$D$(JJ):V17.5:610"P FA$AN$(MI):V13:H25(MI2)((AN$(1))1)2:AN$(2)""MI1C0:1100:861:V11:JJJ1:S$D$(JJ):610:2690#Z MI1FA$FA$"*":C0:1100:V4V:H4H:VV1:HH2:FA$(LZ$,(AN$(2))2):C0,1)C$(2,1):FA$(LZ$,(ZW$)):C0:H15:1100:V7:H15:C0:FA$ZW$:C0:1100l!- MO%2610,2700,2800,2800:!2 V10.5:LJ3:TC20:JJ12:610:V4V:MI12:S$D$(JJ):610:863:VA12:FA$C$(VA,1)"< V15VA2:H27:C0:1100:FA$"]}":H31:C0:1100:FA$C$(VA