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 !- !O 'ALG.1.2x 3!O'ALG.1.3/!X )ALG.1.2.1 !O )ALG.1.2.2! !O ALG11B.V.102489XX' )ALG.1.3.4+ !O#)ALG.1.3.3! !V%)ALG.1.3.2*!(!O")ALG.1.3.1<n%!O")ALG.1.2.4P)( !O!)ALG.1.2.3f`a  XL LG &PRODOS`DaElH$?EGvѶK+`L XX LU ŠϠĠӥS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R# ALG.1.3.4 - SJW - V.101589 .99008c9600XMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$5MO%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)16V20(2(MO%2)):690: ^SC%(UN%,KI%,(MO%2)4)5,1050,10753N914:999:VV(1)I1:VA$(1)SS$(VV(1)):N915:999:TI:N918:999:J(1)I1:995:MF$"":C$(10,X(T))""MF$"*"4X(T)41075 8N99:999:J(2)(I1)SG:NN2:998:C(15,5)J(1):C(15,6)J(2):I56:PL$(C(15,I)):521:C$(140)81:H8(7939)21:>V9(7940)81:H9(7939)21:NV9V:H9H:^HH9:VV9:r4849,1:9200:N99:999:SG$"+":SG1:N(I)1SG$"-":SG1I1NN:J$(I)(J(I))::I((1)N9)1: I13:VA$(I)""::KI%1001,102ZS$ZS$(PG%):893%|ZS$ZS$" "Z}9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897qZS$ZS$" "(PG%)}9000:822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:V8(79126,3:5127,76:5128,76:5129,165:5120:\N5126,7:5127,140:5128,73:5129,165:5120:k7969,22:7939,45(ZS$):7940,17:9000:7969,8:l7969,22:7939,45(ZS$):7940,5:9000:7969,8:z{15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4:ZI01:H(H9),V(V91)ZIH(H9)14,V(V91)ZI::15:zD5126,I(H9):5127,V(V):5128,72:5129,V(V1):5120:FC(C):MODE(2):ZI01:H(H)4,V(V)6ZIH(H)47,V(V)6ZI:ZI:15:H5126,2:5127,33:5128,77:5129,70:5120:+I50 LEFT ARROW SELECTED<MO%4TT20NX$"fd":729INX$"bk"T822:| RIGHT ARROW OR SPACE BAR SELECTEDPG%9((MO%4)(TT20))NX$"fd":739NX$"bk"822:615:B15:MODE(2):5,178:19);:MODE(1):B0:>CC(C)roblems":MODE(2):68,178:9100:MODE(1)lMO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)MO%4TT20įMODE(2):56,178:ZS$"Menu":9100:MODE(1)15:B0ZA$"":ZA$ZA$(8)720(ZA$(21))(ZA$(32))73071A0:9000:ZP%1:9000:822:NX$"":ZS$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1): " DRAW ARROWSMO%4704ZS$"Menu":MODE(2):18,178:9100:MODE(1):PG%9įMODE(2):90,178:9100:MODE(1):704+ZS$"P9000:905:@vLTTC11:X$(S$,LT,1):X$SP$X$"-"670kZS$(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$:PA1P7 (7);:836:FA$RA$:KI%3FA$J$(2)FA$"("FA$H 908:1100: J$"":II1(S$):QR((S$,II,1)):QR64QR91QRQR32 J$J$(QR)::S$J$:  bL(S$):LTCLJ0T$S$:690: cHLJ l7939,I(H):7940,V(V):(S$)TCZS$S$:to Erase":1:9100:MODE(1):15:B0:H MODE(2):908:AN$"":470^ (AN$)(RA)485 C5:838:432:NX$"redo"NX$"":C0:838:836:480 (A$(13)AN$"")(AN$RA$)RA(AN$):C0:838 481 MODE(1):AN$RA$RIRI1: MO%3ıA$:1120:AN$AN$A$:HH2:g A$"+"(KI%4KI%2)MO%2C0:838:FF$A$:1120:AN$AN$A$:HH2: A$"="(KI%4KI%2)MO%2C0:838:FF$A$:1120:AN$AN$A$:HH2: (7);:* 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" $HI$LO$"2":AN(A$):$ 430U 402:S$A$:500:A$S$:NX$"redo"A$(13)ı A$VA$(1)MO%2C0:838:FF$A$:1120:AN$AN$A$:HH2: A$"-"(MO%2AN$"")C0:838:FF$A$:1120:AN$AN$A$:HH2: A$"0"A$"9"NN(A$):C0:838:FF$0: 16368,0:% 390:A$:H 390:A$:A$(127)NX$"redo"N  400:A$"Y"A$"y"A$"N"A$"n"ZS$A$:9000: (7);:410 400:A$(32)415  400:A$"1"A$HI$AN(A$):HI$"9": (7);:420 400:A$LO$A5,I)PL$:%9S(T)1085,1086,1085E;X(T)1090,1091,1092,1093:o=C$(15,8)VA$(1)C$(10,X(T)5)J$(1):>C$(15,8)J$(1)C$(10,X(T)5)VA$(1):BC(15,7)C(15,5)C(15,6):C$(15,7)C$(15,5)"+"C$(15,6):CC(15,7)C(15,5)C(15,6):C$(15,7)C$(15,5)"-"C$(15,6):PDC(15,7)C(15,5)C(15,6):C$(15,7)C$(15,5)"*"C$(15,6):EC(15,7)C(15,5)C(15,6):C$(15,7)C$(15,5)"/"C$(15,6):LMODE(2):FF1(FA$):FF$(FA$,FF,1)MFF$" "1110NFF$"*"FF$"%" QFF$"("FF$")"FF$"%"İ1130:ess ANY Key":H(21(ZS$))4,100:9100<&&16368,0:A$Y&&::(4);"VERIFY ";ZF$|&&ZF%0:216,0::(4);"-";ZF$:&' ERROR TRAP FOR DISK FLIP&'216,0:822:9965&a SCORE TRACKING ROUTINE&aI1NU%&aJ14'aSC%(I,J,1)0SC%(DISK FLIP%&216,0:9990'%&99812%&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$"Pr(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)7a$%M(X)((X2)(X2))2$%N(I)(((I3)(I3))3)$%P(I)(((I5)(I5))5)$%$& CONTROL-C TRAPPING$&((218)(219)256)9220Č822:9225$& %& TRAP FOR 1,98::SCR.U1.PAC-#"$1,118::SCR.U2.PACE#,$1,73::SCR.KI.PACW#6$:SCR.MO.PACp#@$1,137::SCR.U3.PAC#% * FUNCTION DEFINITIONS *#%H(H)(H1)14#%I(H)(H1)2#%V(V)((V1)8)#%X(X)(X74)#%Y(Y)(Y2425)E$%C(C)"# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)D"#Z9(1)N"#ZS$;["#ZP%1ĺe"#ZP%0k"#"# COMPRESSION BUFFER MANAGER"#Z9(1)"$0,0:(4849)9230,9240,9250,9260,9270,9280:4352" $4848,(4849):"$1,64::SCR.UN.PAC#$"="J$(2):S(T)1X(T)2FA$VA$(1)"="J$(1)v!L(7);:7939,8:7940,V(17):ZS$D$(5):9000:V19:H21(FA$):1100!j700:!(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)!-#Z9(1):840!2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:"#8:T$S$:690:V12:S$D$(4):610:V19:S$D$(3):610:PG%1MO%3İ350 .FA$VA$(1)"="J$(2):S(T)1X(T)2FA$VA$(1)"="J$(1) 8H21(FA$):V14:FA$VA$(1)"=":1100:RA$J$(2(S(T)1X(T)2)):RA(RA$)1:907:480:846:RI1İ300:3690/!BFA$VA$(1) FA$C$(15,8)"="C$(15,9):V14:H21(FA$):RA$FA$:RA(RA$)1:907:480 S$D$(13):V16:610:FA$VA$(1)"="J$(2):S(T)1X(T)2FA$VA$(1)"="J$(1) H21(FA$):V18:RA$FA$:RA(RA$)1:RI0:907:480:RI1İ300700:E RI0:V7:TC30:LJ5:690:V12:S$D$(11):610P\ FA$C$(15,8)"="C$(15,9):V14:H21(FA$):1100f 900:S$D$(13):V16:610:FA$VA$(1)"="J$(2):S(T)1X(T)2FA$VA$(1)"="J$(1)p V18:H21(FA$):1100 700: V7:TC30:LJ5:T$S$:690:V12:S$D$(11):610K4:SA$(I)C$(T,I):C$(T,I)"con"SA$(I)J$(1)OI C$(T,I)"var"SA$(I)VA$(1)J :T$"":I13:T$T$SA$(I)::C$(T,4)""T$T$SA$(4)M PL$(C(15,7)):521:C$(15,9)PL$:S$T$" is "C$(15,9)"."N MO%3410,3500,3600,3600:R V7:TC30:LJ5:T$S$:MO%3SC%(UN%,KI%,1)1->822:840:841A?TC35:LI1:LJ4XH3400:MO%4İ1000}IMO%4ZF%1:ZF$"ALG.1.3":9950MNX$"fd"2130NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110O2110RPG%0:MO%3İ25000S2000.H I1):9000:VV2:7939,6:7940,152:ZS$"Your choice? (1-4) ":9000:HI$"4":420:ZS$A$:9000:MO%AN:A$"4"ZF%1:MO%0:ZF$"ALG.1.3":9950 MO%3SC%(UN%,KI%,(MO%2)4)091000:TL10:4849,3:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1:891940,V(V):9000:#MO%42105CMO%0:PG%0:KI%4:912:891fZS$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$(I1HH2:1110S1120:HH20VFF:MODE(1):X`9:ZS$FF$:H(H)4,V(V):9100:j13:ZS$FF$:H(H)4,V(V):9100:t9:ZS$FF$:((H1)72),V(V):9100:C(C):ZS$FF$:FL%0į((H1)72),V(V):9100:MODE(1):7939,I(H):7I,J,5)3:25030D'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 !"#$%&'()5:AUC(C):II12:C(1,1)II,C(2,1)C(1,3)II,C(2,3)::tWC(2):ZI01:CIRCLE(2ZI2,1ZI)XX,YY::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$5126,3:5127,116:5128,33:5129,162:5120:]95126,3:5127,33:5128,33:5129,165:5120::5126,38:5127,146:5128,75:5129,165:5120:;5126,38:5127,33:5128,75:5129,165:5120:DC(C):ZI01:X(X9),Y(Y9)ZIX(X98),Y(Y9)ZI:ZI:199I,95:I1,99I1,95::&+BX2y,6:I13:BOX(1,1415BX)5461I,70::BOX(123,1)116,68:BOX(123,1)116,82-I1BX:116,84I15238,84I15::KK(I1)15:BOX(123,1)116,84KK:615:B15:MODE(2):5,178:19);:MODE(1):B0:-74)(TT20))NX$"fd":739)NX$"bk"4822:}%7939,70:7940,100:ZS$"+3":9000:7939,58:7940,132:ZS$"-10":9000&15:BOX(1,115)396,38:273,97529,97:7:I973819:399,I392,I::I9715219'7:399,I392,I::I29152535:I,78:ZS$"Menu":9100:MODE(1),15:B0<ZA$"":ZA$NZA$(8)720o(ZA$(21))(ZA$(32))730x710 LEFT ARROW SELECTEDMO%4TT20NX$"fd":729NX$"bk"822: RIGHT ARROW OR SPACE BAR SELECTEDPG%9((MO%MO%4704lZS$"Menu":MODE(2):18,178:9100:MODE(1):PG%9įMODE(2):90,178:9100:MODE(1):704ZS$"Problems":MODE(2):68,178:9100:MODE(1)MO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)MO%4TT20įMODE(2):56,1T):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): " DRAW ARROWS$RA$:9000: 0 (PL$)0PL$"+"PL$6 [ bL(S$):LTCLJ0T$S$:690:d cHLJ l7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905: vLTTC11:X$(S$,LT,1):X$SP$670 ZS$(S$,LT(X$SP$)):9000:660S$(S$,(S$)L":NX$"":470% (AN$)(RA)496I 435:NX$"redo"A$(13)495t 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):9000:906:ZS)(KI%3MO%3)AN$AN$A$:ZS$A$:C0:836:9000:H9H91:X NX$"redo"A$(13)ıa 436 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:ZP%0:9100:MODE(1):15:B0: H8H9:906:ZS$(EZ$,RA):9000:906:AN$"(A$): 430% 906:C5:836. 402n A$"0"A$"9"AN$AN$A$:ZS$A$:C0:836:9000:H9H91: A$"-"AN$""((RA$)1)AN$AN$A$:ZS$A$:C0:836:9000:H9H91: (A$"A"A$"Z")(KI%3MO%3)A$((A$)32)= (A$"a"A$"z"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$"0"A$HI$AN(A$):HI$"9": 420 400:A$"1"A$HI$AN" ALG.1.3.3 - SJW - V.102289-99007c9600WMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$5MO%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)1 :5126,38:5127,148:5128,75:5129,165:5120:7939,3"C"(KI%)" P":MO%4ZS$ZS$(PG%):893=|ZS$ZS$" "r}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)::B0:2V9(7940)81:H9(7939)21:HH9:VV9:7939,I(H9):7940,V(V9):X9(H91.1)8:Y9(V98)5:: GOTO OLD CURSOR POSITION4849,1:9200:I1NN:J$(I)(J(I)):J(I)0J$(I)"+"J$(I):N99:999:SG$"+":SGб;$# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)G$#Z9(1)Q$#ZS$;^$#ZP%1ĺh$#ZP%0n$#$# COMPRESSION BUFFER MANAGER$#Z9(1)$$0,0:(4849)9230,9240,9250,9260,9270,9280,9290:4352$ $4848,(4849):%$1,64::SCR.UN.P'll draw the line.":610:V19:TC20:LJ20:C1:853:826:RI2İ300:3290y# S$"Your points are not on the line.":610# 700:#(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)#-#Z9(1):840#2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:$#3(J$(IA5))):7940,V(V1):ZS$J$(IA5):9000:RA$J$(IA):RA(RA$):7939,I(17RA):905:490:V3(AN$):V310V310" 7939,8:7940,V(V1):ZS$" ":9000:V1V12:S$"I'll p"(D$(16),14):XXC(1,IA):YY97(V34):V19:610:855:900:J# 823:V16:S$"I the points.":823:V16:610:C1:853:7939,38:7940,V(19):ZS$(EZ$,ER):9000k!q RI2V20:LJ20:300v!v 700:! V6:LJ3:TC16:RI0:V112:PG%1MO%3İ350! IA242:823:V16:S$D$(17):610:7939,8:7940,V(V1):ZS$D$(15):9000v" 7939,I(11):ZS$D$(15):9000:7939,20:ZS$J$(IA5):9000:RA(RA$):7939,I(17RA):905:490:V1V12 X 7939,8:7940,V(V12):ZS$" ":9000:S$"I'll p"(D$(16),14):9000:XXC(1,IA):YYC(2,IA):V19:(7);:610:855:900:Q!l S$D$(18):S$(S$,(S$)1)" throughV(V12):ZS$" ":9000:823: 7939,38:7940,V(20):ZS$(EZ$,16):9000:S$D$(14):S$(S$,(S$)1)" through the points.":V19:610:C1:853 700: RI0:V6:LJ3:TC16:V112:IA242:823:V16:S$D$(17):610:RA$J$(IA)] 0 7939,8:7940,V(V2:S$"If x="J$(II5)" then y="J$(II)".":V17:LI1:610 7939,8:7940,V(V1):ZS$D$(15):9000:7939,I(13(J$(II5))):ZS$J$(II5):9000:7939,I(17(J$(II))):ZS$J$(II):9000:V1V12! XXC(1,II):YYC(2,II):V20:(7);:855:900:7939,8:7940,,V(6):ZS$D$(14):9000:7939,10:7940,V(7):ZS$S$(1):9000:805:7939,20:7940,V(10):ZS$"x":9000:7939,30:ZS$"y":9000:811:LJ20 S$"Find two points.":ER(S$)1:TC21:V20:610:V6:MO%3010,3100,3200,3200: V6:LJ3:TC16= V112:II24825:827:822(H3000:MO%4İ1000MIMO%4ZF%1:ZF$"ALG.1.3":9950aMNX$"fd"2130NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110O2110RPG%0:MO%3İ25000S2000 V6:LJ3:TC16:H20:LI1:MO%1H3 7939,4:7940r choice? (1-4) ":9000:HI$"4":420:ZS$A$:9000:MO%AN:A$"4"ZF%1:MO%0:ZF$"ALG.1.3":9950 MO%3SC%(UN%,KI%,(MO%2)4)091000:TL10:4849,7:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1:891:MO%3SC%(UN%,KI%,1)1>FA$S$(1):V7?!MO%0:PG%0:KI%3:912:891DZS$T1$:876:ZS$T2$:875:15ZH14:WD$TY$(KI%)b V6 LJ0:TC34:S$WD$:610:VV2:S$"Mode Selection":610:V11:I114:7939,6:7940,V(V):ZS$MZ$(I1)" "CH$(I1):9000:VV2:b7939,6:7940,152:ZS$"You8:II14:C(1,II)394(35J(II5)):C(2,II)97(J(II)4)::C(2,1)34C(2,1)164C(2,3)164C(2,3)341052(PL$(J(9)J(7)):521:S$(6)PL$:PL$(J(2)):525:S$(2)PL$*PL$(J(4)J(2)):521:S$(7)PL$:S$(1)"y="S$(7)"x"S$(2):3MO%42105:995:J(1)J(1)SG:J(2)J(2)SG(1):NN2:992:II12:C(5,II)J(II):C$(5,II)J$(II):II:J(6)3:J(7)0:J(8)3:J(9)1 II14:J(II)((C(5,1)J(II5))C(5,2)):J(II)20J(II)201052":NN9:992:II69:S$(II)J$(II)::(J(4)J(2))21052k$991:N(I)1SG$"-":SG1 7I((1)N91)1:UI1NN:J$(I)(J(I))::jI((1)N9)1:I13:VA$(I)""::KI%1001,1025,1050,1075VA$(2)"x":VA$(1)"y"N96:997:J(1)I:999:J(2)I:II12:J(II)0J(II)II2xAC%$1,98:: SCR.U?.PAC6%"$1,118::SCR.U2.PACN%,$1,73::SCR.KI.PAC`%6$:SCR.MO.PACy%@$1,137::SCR.U3.PAC%J$1,84:: SCR.U1.PAC%% * FUNCTION DEFINITIONS *%%H(H)(H1)14%%I(H)(H1)2%%V(V)((V1)8)&%X(X)(X74)&%Y(Y)(Y2425)h&%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&&'& TRAP E(2):18,178:9100:MODE(1):PG%9įMODE(2):90,178:9100:MODE(1):704ZS$"Problems":MODE(2):68,178:9100:MODE(1)MO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)MO%4TT20įMODE(2):56,178:ZS$"Menu":9100:MODE(1) (7);"WORD TOO LONG":aL(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0:9000:sZP%1:9000:822:NX$"":ZS$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1): " DRAW ARROWSMO%4704KZS$"Menu":MODS$):LTCLJ0T$S$:690:'cHLJal7939,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::::MODE(1):AN$RA$RIRI1:* MO%3ı_ (7);:836:FA$RA$:KI%3FA$J$(2)FA$"("FA$p 908:1100: J$"":II1(S$):QR((S$,II,1)):QR64QR91QRQR32 J$J$(QR)::S$J$: LP(PL$)1:(PL$,1)"+"PL$(PL$,LP) bL(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0:p MODE(2):908:AN$"":470 (AN$)(RA)485 C5:838:432:NX$"redo"NX$"":C0:838:836:480 (A$(13)AN$"")(AN$RA$)RA(AN$):C0:838 481 A$"0"A$"9"NN(A$):C0:838:FF$A$:1120:AN$AN$A$:HH2: A$"+"(KI%4KI%2)MO%2C0:838:FF$A$:1120:AN$AN$A$:HH2: A$"="(KI%4KI%2)MO%2C0:838:FF$A$:1120:AN$AN$A$:HH2: (7);:R 822:ZS$"Delete":MODE(9": (7);:420C 400:A$LO$A$HI$LO$"2":AN(A$):L 430} 402:S$A$:500:A$S$:NX$"redo"A$(13)ı A$VA$(1)MO%2C0:838:FF$A$:1120:AN$AN$A$:HH2: A$"-"(MO%2AN$"")C0:838:FF$A$:1120:AN$AN$A$:HH2:F MO%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)1T 6V20(2(MO%2)):690:s ^SC%(UN%,KI%,(MO%2)4)0: 16368,0: 390:A$: 390:A$:A$(127)NX$"redo"  400:A$(32)415  400:A$"1"A$HI$AN(A$):HI$"" ALG.1.3.2 - SJW - V.101589-99007c9600WMODE(1)::15:B0:2000AN(1)1:AN(2)5:AN(3)8:AN(4)9:AN(5)11:AN(6)2:AN(1)1:AN(2)5:AN(3)8:AN(4)9:AN(5)11:AN(6)6:,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$8 5+,-./0123456789:;ES/RECORD)aI1NU%#)aJ14I)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"Press ANY Key":H(21(ZS$))4,100:9100@(&16368,0:A$](&::(4);"VERIFY ";ZF$(&ZF%0:216,0::(4);"-";ZF$:(' ERROR TRAP FOR DISK FLIP('216,0:822:9965(a SCORE TRACKING ROUTINE )a " OPEN CDFILE$ FOR READING, 166 BYTFOR DISK FLIP!'&216,0:9990+'&99816'&9990d'&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$15:B0ZA$"":ZA$-ZA$(8)720N(ZA$(21))(ZA$(32))730W710q LEFT ARROW SELECTEDMO%4TT20NX$"fd":729NX$"bk"822: RIGHT ARROW OR SPACE BAR SELECTEDPG%9((MO%4)(TT20))NX$"fd":739NX$"bk"822:J615:B15:MODE(2):5,178:19);:MODE(1):B0:CC(C):ZI01:H(H9),V(V91)ZIH(H9)14,V(V91)ZI::15:D5126,I(H9):5127,V(V):5128,76:5129,V(V1):5120: FC(C):MODE(2):ZI01:H(H)4,V(V)6ZI°900:841:S$D$(9):LI1:V11:610 P V15:H20(FA$):1100:FA$S$(14):V17:H20(FA$):1100:900:S$D$(10)J$(8)".":842:V11:LI2:610:FA$S$(15):V19:H20(FA$):1100 700: ! V11:S$D$(6)J$(4)".":LI2:610:FA$S$(11):V15:H21(FA:LJ5:FA$P1$:V8:H20(FA$):1100:V17I- MO%2610,2700,2800,2800:O2 < V11:S$D$(6)J$(4)".":LI2:610:II1112:FA$S$(II):V15(II12)2:H21(FA$):1100:900::842# F S$D$(7)J$(6)D$(8):LI2:V11:610:FA$S$(13):V19:H20(FA$):1100:>822:840:841'?TC35:LI1:LJ4>H2600:MO%4İ1000cIMO%4ZF%1:ZF$"ALG.1.3":9950wMNX$"fd"2130NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110O2110RPG%0:MO%3İ25000S2000*( TC32:LJ3:V5.5:S$D$(12):6106:7940,152:ZS$"Your choice? (1-4) ":9000:HI$"4":420:ZS$A$:9000:MO%AN:A$"4"ZF%1:MO%0:ZF$"ALG.1.3":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)142105)MO%0:PG%0:KI%2:912:891LZS$T1$:876:ZS$T2$:875:15nH14:V6(2KI%):WD$TY$(KI%)v 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:v7939,2VFF:MODE(1):>`9:ZS$FF$:H(H)4,V(V):9100:gj13:ZS$FF$:H(H)4,V(V):9100:t9:ZS$FF$:((H1)72),V(V):9100:C(C):ZS$FF$:FL%0į((H1)72),V(V):9100:MODE(1):7939,I(H):7940,V(V):9000: MO%:S$(13)J$(8)VA$(1)"="J$(9)J$(10)JS$(14)J$(8)VA$(1)"="J$(11)a(S$(11))171000gms3LMODE(2):FF1(FA$):FF$(FA$,FF,1)MFF$" "1110NFF$"*"FF$"%"QFF$"("FF$")"FF$"%"İ1130:HH2:1110S1120:HH3):520:P1$PL$ PL$S$(4)S$(5)S$(1)S$(3):520:S$(11)PL$:PL$S$(6)S$(1)S$(3):520:S$(12)PL$:S$(13)J$(8)VA$(1)"="J$(9)J$(10)1043'PL$S$(1)S$(2)S$(3):520:P1$PL$:PL$S$(1)S$(4)S$(5)S$(3):520:S$(11)PL$:S$(12)S$(1)S$(6)S$(3)$(1):S$(2)J$(4)"("J$(5)J$(3)VA$(1)")":S$(3)"="J$(9):S$(4)J$(4)"*"J$(5):PL$J$(3):520:S$(5)J$(4)"*"PL$VA$(1) S$(6)J$(6)J$(7)VA$(1):S$(7)J$(8)VA$(1):P2$S$(2)S$(1)S$(3) S$(15)VA$(1)"="J$(1):PI11041 PL$S$(2)S$(1)S$(J(5):J(7)J(4)J(3):J(8)J(2)J(7):J(10)J(6)(1)J(9)(J(2)J(1))J(6)(J(7)J(1)):J(11)J(9)J(6):NN11:992:N913:999:VV(1)I1:VA$(1)SS$(VV(1)):PI1:995:SG1PI2PI250,255:XX16:PL$J$(AN(XX)):520:J$(AN(XX))PL$:}S$(1)J$(2)VA:J$(I)(J(I)):J(I)0J$(I)"+"J$(I)1:cN99:999:SG$"+":SG1:N(I)1SG$"-":SG1i~I((1)N9)1:I13:VA$(I)""::KI%1001,1025,1050,10754DI15:N99:999:J(DI)I1:995:J(DI)J(DI)SG::J(2)(J(2)):J(6)J(4)z822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:V8(7940)81:H8(7939)21:V9(7940)81:H9(7939)21:V9V:H9H:HH9:VV9:4849,1:9200:)I1NN0,17:9000:7969,8:Kl7969,22:7939,45(ZS$):7940,5:9000:7969,8:Qz{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%)9000:H(H)47,V(V)6ZI:ZI:15:OH5126,2:5127,33:5128,77:5129,70:5120:I5126,3:5127,76:5128,76:5129,165:5120:J5126,3:5127,76:5128,72:5129,103:5120:N5126,7:5127,144:5128,73:5129,165:5120:k7969,22:7939,45(ZS$):794$):1100]! RA$S$(12):RA(RA$)1:FA$RA$:V17:H21(FA$):907:480:S$D$(7)J$(6)D$(8)! LI2:V11:842:610:FA$S$(13):RA$FA$:RA(RA$):RI0:V19:H21RA:907:480:RI0İ900! 841:S$D$(9):LI1:V11:610:V13:H21(FA$):1100Q" FA$S$(14):RA$FA$:RA(RA$):V15:H21RA:907:480:S$D$(10)J$(8)".":842:V11:LI2:610" FA$S$(15):RA$FA$:RA(RA$):RI0:V17:H21RA:907:480:RI1İ300" 700:" RI0:V12:S$D$(4):610:V19:S$D$(3):610:PG%1MO%3İ350:# FA$S$(15):H21(FA$):F:AN$AN$A$:HH2:" (7);:4 906:C5:835= 402k NX$"redo"(A$(13)AN$"")C0:835: (A$"-"A$"+")AN$""KI%4ZS$A$:AN$AN$A$:C0:835:9000: KI%3A$"A"A$"Z"A$((A$)32) KI%3A$"a"A$"z"ZS$A$:AN$-"(MO%2AN$"")C0:838:FF$A$:1120:AN$AN$A$:HH2: A$"0"A$"9"NN(A$):C0:838:FF$A$:1120:AN$AN$A$:HH2: A$"+"(KI%4KI%2)MO%2C0:838:FF$A$:1120:AN$AN$A$:HH2: A$"="(KI%4KI%2)MO%2C0:838:FF$A$:1120A$(32)415 C 400:A$"1"A$HI$AN(A$):HI$"9":S (7);:420 400:A$LO$A$HI$LO$"2":AN(A$): 430 402:S$A$:500:A$S$:NX$"redo"A$(13)ı A$VA$(1)MO%2C0:838:FF$A$:1120:AN$AN$A$:HH2:< A$"20(2(MO%2)):KI%2MO%2Ĺ7939,8:7940,V(V):ZS$T$:9000:L @690:k ^SC%(UN%,KI%,(MO%2)4)0:{ 16368,0: 390:A$: 390:A$:A$(127)NX$"redo"  400:A$"Y"A$"y"A$"N"A$"n"ZS$A$:9000: (7);:410 400:! ALG.1.3.1 - SJW V.101589 ,99006c9600VMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$5MO%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)16KI%3Ĺ7939,I(LJ):7940,V(V):ZS$T$:9000:A ;V=>?@ABCDEFGHIJKLMNOING ROUTINE)aI1NU%%)aJ14K)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,55:9100d(&ZS$"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:9100v(&16368,0:A$(&::(4);"VERIFY ";ZF$(&ZF%0:216,0::(4);"-";ZF$:(' ERROR TRAP FOR DISK FLIP('216,0:822:9965 )a SCORE TRACK218)(219)256)9220Č822:9225('&E'& TRAP FOR DISK FLIPW'&216,0:9990a'&9981l'&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$))41)8&%X(X)(X74)1&%Y(Y)(Y2425)&%C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)7&%M(X)((X2)(X2))2&%N(I)(((I3)(I3))3)&%P(I)(((I5)(I5))5)&%&& CONTROL-C TRAPPING"'&((,9280:4352!% $4848,(4849):9%$1,64::SCR.UN.PACQ%$1,98::SCR.U1.PACj%"$1,118::SCR.U2.PAC%,$1,73::SCR.KI.PAC%6$:SCR.MO.PAC%@$1,137::SCR.U3.PAC%% * FUNCTION DEFINITIONS *%%H(H)(H1)14%%I(H)(H1)2&%V(V)(V1):8407$2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:=$#u$# 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,9250,9260,9270A$VA$(1)"=":V14:1100:RA$J$(1):RA(RA$)1:907:480T# 846:RI1İ300:2890# FA$S$(15):7939,8:7940,V(17):ZS$"The correct answer is: ":9000:V19:H21(FA$):1100#J 700:#(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1) $-#Z9(AN$A$:C0:835:9000:Q A$"0"A$"9"ZS$A$:AN$AN$A$:C0:835:9000:Z 446 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: MODE(2):908:AN$"":470 (AN$)(RA)4853C5:838:432:NX$"redo"NX$"":C0:838:836:480h(A$(13)AN$"")(AN$RA$)RA(AN$):C0:838q481MODE(1):AN$RA$RIRI1:MO%3ı(7);:836:FA$RA$:KI%3FA$J$(2)FA$"("FA$908:1100:H8H9:AN$"":906:ZS$(1110S1120:HH2*VFF:MODE(1):b`9:ZS$FF$:FL%0įMODE(2):H(H)4,V(V):9100:aMODE(1):7939,I(H):7940,V(V):9000:j13:ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1):t9:ZS$FF$:((H1)72),V(V):9100:/C(CJ$(3)"=":AN$(1)J$(6):P1$J$(1)VA$(1):AN$(2)J$(5):S$(1)J$(1)"("J$(2)")"J$(3):S$(2)J$(5)J$(3)"="J$(6)J(7)0J$(7)"+"J$(7):3LFF1(FA$):FF$(FA$,FF,1)QFF$"("FF$")"CLC:C5:1160:CCL:HH1(FL%0):""::KI%1001,1025,1050,1075oDI14:N99:999:J(DI)I:995:J(DI)J(DI)SG::J(1)(J(1)):J(1)1J(1)2J(5)J(1)J(2):J(4)(J(4))1:J(6)J(5)J(3):J(7)J(3)(1):NN7:998:VA$(1)SS$(J(4)):VV(1)J(4):J(3)0J$(3)"+"J$(3)sPR$J$(1)VA$(1)&V9(7940)81:H9(7939)21:P7939,I(H9):7940,V(V9):HH9:VV9:`V9V:H9H:pHH9:VV9:4849,1:9200:N99:999:SG$"+":SG1:N(I)1SG$"-":SG1I1NN:J$(I)(J(I))::I((1)N9)1:I13:VA$(I)ZS$ZS$" "B}9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897YZS$ZS$" "(PG%)e9000:822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:V8(7940)81:H8(7939)21:H(12),V(V1)2:DN5126,7:5127,140:5128,72:5129,165:5120:zk7969,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 |V(V)6ZIH(H)47,V(V)6ZI:ZI:15:ZH5126,2:5127,33:5128,76:5129,70:5120:I5126,7:5127,76:5128,72:5129,165:5120:J5126,7:5127,150:5128,72:5129,165:5120:K:5126,2:5127,60:5128,72:5129,68:5120:M9:BOX(252,1)9,168:5120:F615:B15:MODE(2):5,178:19);:MODE(1):B0:CC(C):ZI01:H(H9),V(V91)ZIH(H9)14,V(V91)ZI::15:D5126,I(H9):5127,V(V):5128,I(H9(RA$)2)1:5129,V(V1):5120:+FC(C):MODE(2):ZI01:H(H)4,$(21))(ZA$(32))730#710= LEFT ARROW SELECTED\MO%4TT20NX$"fd":729iNX$"bk"t822: RIGHT ARROW OR SPACE BAR SELECTEDPG%9((MO%4)(TT20))NX$"fd":739NX$"bk"822:55126,1:5127,30:5128,78:5128:9100:MODE(1):704KZS$"Problems":MODE(2):68,178:9100:MODE(1)MO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)MO%4TT20įMODE(2):56,178:ZS$"Menu":9100:MODE(1)15:B0ZA$"":ZA$ZA$(8)720(ZAI(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 ARROWSMO%4704ZS$"Menu":MODE(2):18,178:9100:MODE(1):PG%9įMODE(2):90,17):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,RA$))RIRI1:hMO%2C0:835:(7);:KI%2H9H8:906:ZS$(EZ$,RA):9000:906:ZS$RA$:9000:nJ$"":II1(S$):QR((S$,II,1)):QR64QR91QRQR32J$J$(QR)::S$J$:bL(S$):LTCLJ0T$S$:690:cHLJ-l7939,I(HEZ$,RA):9000:906:470/(AN$)(RA)495II(AN$)1:445:H9H91:NX$"redo"(A$(13)AN$"")C0:835:NX$"redo"NX$"":H9H8:490(KI%1((AN$)(RA$)))(RA$AN$)(A$(13)AN$"")RA(AN$)491822:AN$RA$(KI%1(AN$)():ZS$FF$:FL%0į((H1)72),V(V):9100:\MODE(1):7939,I(H):7940,V(V):9000:f119215:H(H),V(V)4:ZS$FF$:9100:: DRAW.EXPONENT15:MODE(1):H(H),V(V)4:ZS$FF$:9100MODE(2):FL%1įMODE(1): DRAW.EXPONENTMO%421056MO%0:PG%0:KI%1:912:891YZS$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:VV2A$!,&::(4);"VERIFY ";ZF$D,&ZF%0:216,0::(4);"-";ZF$:g,' ERROR TRAP FOR DISK FLIP},'216,0:822:9965,a SCORE TRACKING ROUTINE,aI14,aJ14,aSC%(I,J,1)0SC%(I,J,5)3:25030 -aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)26,1:5127,30:5128,78:5129,186:5120P+&ZF%1ZS$"Check Disk Drive":9972d+&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:)9(C7)7)*%M(X)((X2)(X2))2H*%N(I)(((I3)(I3))3)g*%P(I)(((I5)(I5))5)m*%*& CONTROL-C TRAPPING*&((218)(219)256)9220Č822:9225*&*& TRAP FOR DISK FLIP*&216,0:9990*&9981*&9990(+&51::SCR.KI.PAC")6$:SCR.MO.PAC;)@$1,137::SCR.U3.PAC[)% * FUNCTION DEFINITIONS *o)%H(H)(H1)14)%I(H)(H1)2)%V(V)(V1)8)%X(X)(X74))%Y(Y)(Y2425) *%C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)(#Z9(1)(#ZS$;&(#ZP%1ĺ0(#ZP%06(#Y(# COMPRESSION BUFFER MANAGERe(#Z9(1)($0,0:(4849)9230,9240,9250,9260,9270,9280:4352( $4848,(4849):($1,64::SCR.UN.PAC($1,98::SCR.U1.PAC("$1,118::SCR.U2.PAC),$1,73)"="RA$:7939,10:7940,V(18):ZS$D$(5):9000:V20:H18:1100L' 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(2907:480:RI1İ842:300%&V 700:&` RI0:7939,10:7940,V(12):ZS$D$(4):9000:V19:TC31:LJ6:LI1:S$D$(3):610:PG%1MO%3İ350& FA$VA$(1)"=":V16:H18:1100:HH1:FA$J$(2):RA$FA$:RA(RA$)1:907:480& 846:RI1İ300:2490A' FA$VA$(1:RA$FA$:RA(FA$):H17:907:480b% FA$AN$(2):RA$FA$:H24((RA$)3)2:RA(RA$)1:907:480% 843:7939,10:7940,V(20):846:ZS$"Divide by "J$(1)": ":9000:FA$VA$(1)"=":V18:H20:1100&$ RA$J$(2):RA(RA$)1:FA$RA$:H24((RA$)3)2:RI0:4:7940,V(8.5):ZS$"Subtract "J$(3)" from each side.":9000:S$"To subtract, change the sign of "J$(3)" and add.":LJ6:TC31:V19:610$ FA$J$(7)"=":V14:H24(FA$)2:1100:FA$J$(7):HH((FA$)3)2:1100#% 845:FA$"=":V16:H22:1100:FA$P1$$AN$(2):HH((FA$)3)2((FA$)0(FA$)10)2:1100#900:846:7939,4:7940,V(8.5):ZS$(EZ$,ER):9000:7939,10:7940,V(18):ZS$"Divide by "J$(1)": ":9000#FA$VA$(1)"=":V18:H20:1100:FA$J$(2):HH((FA$)3)2:1100#700:$7939, each side.":ER(S$):ZS$S$:9000:S$"To subtract, change the sign of "J$(3)" and add.":LJ6:TC31"V19:610:900:FA$J$(7):V14:H22(FA$)2:FA$FA$"=":1100:HH((J$(7))3)2:FA$J$(7):1100:845:9008#FA$P1$"=":V16:H24(FA$)2:1100:FA:7940,V(5.5):ZS$"Solve:":9000:FA$PR$AN$(1):V7:H20(FA$):1100!MO%3FA$PR$:V12:H24(FA$)2:1100:FA$AN$(1):HH((FA$)3)2((FA$)0(FA$)10)2:1100!MO%2210,2300,2400,2400:g"7939,4:7940,V(8.5):S$"Subtract "J$(3)" fromN%,KI%,1)1 >822:840:8414 CTC35:LI1:LJ4K H2200:MO%4İ1000p IMO%4ZF%1:ZF$"ALG.1.3":9950 MNX$"fd"2130 NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110 O2110 RPG%0:MO%3İ25000 S2000H!TC35:LJ5:7939,4:7939,6:7940,152:ZS$"Your choice? (1-4) ":9000:HI$"4":420:ZS$A$:9000:MO%AN:A$"4"ZF%1:MO%0:ZF$"ALG.1.3":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%(U2:25030N-aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030_-aSC%(I,J,5)2g-a:m-eQRSTUVWXYZ[\]^_`abcde:5128,73:5129,165:5120:Sk7969,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:29,V(V1):5120:fFC(C):MODE(2):ZI01:H(H)4,V(V)6ZIH(H)47,V(V)6ZI:ZI:15:H5126,2:5127,33:5128,77:5129,70:5120:I5126,3:5127,76:5128,76:5129,165:5120:MC(C):MODE(1):BOX(L,1)XL,YL:N5126,7:5127,140NX$"bk"822:M615:B15:MODE(2):5,178:19);:MODE(1):B0:CC(C):ZI01:H(H9),V(V91)ZIH(H9)14,V(V91)ZI::15:DC0:838:MO%2İ908:FA$(EZ$,((AN$)0)(AN$)):C0:FL%0:1100:E5126,3:5127,V(V):5128,76:5115:B0ZA$"":ZA$0ZA$(8)720Q(ZA$(21))(ZA$(32))730Z710t LEFT ARROW SELECTEDMO%4TT20NX$"fd":729NX$"bk"822: RIGHT ARROW OR SPACE BAR SELECTEDPG%9((MO%4)(TT20))NX$"fd":739 MODE(2):18,178:9100:MODE(1):PG%9įMODE(2):90,178:9100:MODE(1):704ZS$"Problems":MODE(2):68,178:9100:MODE(1)MO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)MO%4TT20įMODE(2):56,178:ZS$"Menu":9100:MODE(1):(7);"WORD TOO LONG":dL(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0:9000:vZP%1:9000:822:NX$"":ZS$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1): " DRAW ARROWSMO%4704NZS$"Menu":(S$):LTCLJ0T$S$:690:*cHLJdl7939,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:::$)RA(AN$):C0:838 481G AN$RA$(KI%4AN$R2$)RIRI1:U MO%3ı (7);:836:FA$RA$:KI%3FA$J$(2)FA$"("FA$ 908:C0:FL%0:1100: J$"":II1(S$):QR((S$,II,1)):QR64QR91QRQR32 J$J$(QR)::S$J$:!bL100:ZS$" to Erase":1:9100:MODE(1):15:B0:I 907:AN$"":470_ (AN$)(RA)486 C1:838:432:NX$"redo"İ836:MF1FA$J$(1)"(":836:NX$"":HH2:VV2:C0:FL%0:1100:480 NX$"redo"NX$"":908:480 (A$(13)AN$"")(AN$RAA$"/"KI%4C0:838:CPT:FF$A$:1120:AN$AN$A$:HH2:y A$"-"C0:838:CPT:FF$A$:1120:AN$AN$A$:HH2: A$"+"KI%3C0:838:CPT:FF$A$:1120:AN$AN$A$:HH2: (7);:4 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9$HI$LO$"2":AN(A$):$ 430> 402:S$A$:500:A$S$Y NX$"redo"A$(13)ı (A$VA$(1)A$VA$(2)A$VA$(3))KI%3C0:838:CPT:FF$A$:1140:AN$AN$A$:HH2: A$"0"A$"9"NN(A$):C0:838:CPT:FF$A$:1120:AN$AN$A$:HH2:? 0: 16368,0:% 390:A$:H 390:A$:A$(127)NX$"redo"N  400:A$"Y"A$"y"A$"N"A$"n"ZS$A$:9000: (7);:410 400:A$(32)415  400:A$"1"A$HI$AN(A$):HI$"9": (7);:420 400:A$LO$A# ALG.1.2.4 - SJW - V.101589 .99008c9600XMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$5MO%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)16V20(2(MO%2)):690: ^SC%(UN%,KI%,(MO%2)4)ZS$"M"(MO%):MO%48972ZS$ZS$" "(PG%)>9000:822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:V8(7940)81:H8(7939)21:V9(7940)81:H9(7939)21:V9V:H9H:HH9:VV9:34849,1:9200:HI((1)N9)1:xI13:VA$(I)""::KI%1025,1001,1050,1075~3N914:999:VV(1)I1:VA$(1)SS$(I1):N918:999:J(1)I1:J$(1)(J(1)):N915:999:TI8L(FL%1)((FA$)6)):610:7939,18:7940,V(15):ZS$D$(7)(ST)":":9000:L(C$(T,1)C$(T,2)):S(T)3520,3540,3560,3580:3590% L(C$(T,1)J$(1))14:C2:845:RA$J$(1)C$(10,X(T)5):RA(RA$):C0:H18.5(J$(1)):V18:FL0:480:STST1:7939,28:7940,V(15):ZS$(ST):900$C$(10,X(T)5):C0:FL%0:1100:900:STST1:7939,28:7940,V(15):ZS$(ST):9000:C0:845:XLXLL:L(VA$(1))14# C2:845:FA$VA$(1):C0:FL%0:1100:# 700:# ST1:VV18:HH3:V7:690:XLH(20((T$)2)):YLV(V)8m$ TC30:V11:LJ5:S$D$(62:845:FA$J$(1):C0:FL%0:1100(" " L(J$(1))14:C2:845:FA$J$(1):V18:H19.5(J$(1)):C0:FL%0:1100:900:STST1:7939,28:7940,V(15):ZS$(ST):9000:C0:845:XLXLL:L(C$(T,2))14:C2" X(T)3LL((VA$(1))14)t# C2:845:X(T)3FATST1:7939,28:7940,V(15):ZS$(ST):9000:845:XLXLL5:X(T)3L(C$(T,3)J$(1))14:3465! C2:L((C$(T,3))1)14:845:FA$C$(10,X(T)5):C0:FL%0:1100:900:STST1:7939,28:7940,V(15):ZS$(ST):9000:C0:845:XLXLL"" L((J$(1))14)10:C:HH22:C0:FL%0:1100:XXN36:900:STST1:7939,28:7940,V(15):ZS$(ST):9000:C0:845:C2:XLXLL12 u L(C$(T,3)C$(T,4))14:845:FA$VA$(1):HH2:C0:FL%0:1100: LL14:C2:845:FA$VA$(1):V18:H18.5(J$(1)):C0:FL%0a! 1100:C0:900:S(T)5):C0:H18.5(J$(1)):V18:FL%0:1100:900:STST1:7939,28:7940,V(15):ZS$(ST):9000^ C0:845:XLXLL7:L(C$(T,3)VA$(1))14:C2f 845:FA$VA$(1):C0:FL%0:1100o l p L(L1)14:C2:845:FA$C$(10,X(T)5)J$(1):V18:H218.5(J$(1))7:690:XLH(20((T$)2)):YLV(V)8:TC30:V11:LJ5:S$D$(6):610S 7939,18:7940,V(15):ST1:ZS$D$(7)(ST)":":9000:6:BOX(105,1)123,121:L(C$(T,1)C$(T,2)):S(T)3420,3440,3460,3480:3490`\ L(C$(T,1)J$(1))14:C2:845:FA$J$(1)C$(10,X I14:C$(T,I)"con"C$(T,I)J$(1)HI C$(T,I)"var"C$(T,I)VA$(1)J :T$"":I13:T$T$C$(T,I)::C$(T,4)""T$T$C$(T,4)M MO%3410,3500,3600,3600:I14:C$(T,I)J$(1)C$(T,I)"con"N C$(T,I)VA$(1)C$(T,I)"var"O :GR VV18:HH3:V:891:MO%3SC%(UN%,KI%,1)13>822:840:841G?TC35:LI1:LJ4^H3400:MO%4İ1000IMO%4ZF%1:ZF$"ALG.1.2":9950MNX$"fd"2130NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110O2110RPG%0:MO%3İ25000S2000&HCH$(I1):9000:VV2:7939,6:7940,152:ZS$"Your choice? (1-4) ":9000:HI$"4":420:ZS$A$:9000:MO%AN:A$"4"ZF%1:MO%0:ZF$"ALG.1.2":9950 MO%3SC%(UN%,KI%,(MO%2)4)091000:TL10:4849,3:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1  DRAW.EXPONENT)MO%42105IMO%0:PG%0:KI%4:912:891lZS$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)" ":9100:BC(C):ZS$FF$:FL%0į((H1)72),V(V):9100:oMODE(1):7939,I(H):7940,V(V):9000:y119215:H(H),V(V)4:ZS$FF$:9100:: DRAW.EXPONENT15:MODE(1):H(H),V(V)4:ZS$FF$:9100MODE(2):FL%1įMODE(1)::1110 S1120:HH1(FL%0)=VFF:MODE(1):C0:FL%0:u`9:ZS$FF$:FL%0įMODE(2):H(H)4,V(V):9100:aMODE(1):7939,I(H):7940,V(V):9000:j13:ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1): t9:ZS$FF$:((H1)72),V(V)įMODE(1):FL%1:1103*MMODE(2):FL%0}OFF1(FA$):FF$(FA$,FF,1):C0FF$"@"FF$"#"İ1160:HH1(FL%0):1110PFF$"@"FF$"2":1190:HH1:1110QFF$"("FF$")"CLC:C5:1160:CCL:HH1(FL%0):1110RFF$"#"FF$"3":1190:HH105% C0:845:XLXLL7:L(C$(T,3)VA$(1))14:C2f% RI0:845:RA$VA$(1):RA(RA$):C0:FL0:480l% % L(L1)14:C2:845:RA$C$(10,X(T)5)J$(1):RA(RA$):V18:H218.5(J$(1)):HH22:C0:FL0:480& STST1:7939,28:7940,V(15):ZS$(ST):9000:C0:845:C2:XLXLL12i& L(C$(T,3)C$(T,4))14:845:RI0:RA$VA$(1):RA(RA$):HH2:C0:FL0:480o& & LL14:C2:845:RA$VA$(1):RA(RA$):V18:H18.5(J$(1)):C0:FL0$' 480:C0:STST1:7939,28:7940,V(15):ZS$(ST):9000:845:XLXLL5:" ALG.1.2.3 - 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)16V20(2(MO%2)):690: ^SC%(UN%,KI%,(MO%2)4)ghijklmnopqrstuvw1NU%1aJ1491aSC%(I,J,1)0SC%(I,J,5)3:25030l1aSC%(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"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:9100d0&16368,0:A$0&::(4);"VERIFY ";ZF$0&ZF%0:216,0::(4);"-";ZF$:0' ERROR TRAP FOR DISK FLIP0'216,0:822:99650a SCORE TRACKING ROUTINE1aI220Č822:9225/&3/& TRAP FOR DISK FLIPE/&216,0:9990O/&9981Z/&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:9100R0&ZS$(X74).%Y(Y)(Y2425)m.%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)9,(4849):$-$1,64::SCR.UN.PAC<-$1,98::SCR.U1.PACU-"$1,118::SCR.U2.PACm-,$1,73::SCR.KI.PAC-6$:SCR.MO.PAC-@$1,137::SCR.U3.PAC-% * FUNCTION DEFINITIONS *-%H(H)(H1)14-%I(H)(H1)2-%V(V)((V1)8) .%X(X)S$):7941,((ZS$,ZL,1)):7936:(,#`,# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)l,#Z9(1)v,#ZS$;,#ZP%1ĺ,#ZP%0,#,# COMPRESSION BUFFER MANAGER,#Z9(1),$0,0:(4849)9230,9240,9250,9260,9270,9280:4352 - $4848(1):R2$RA$J+eRA(RA$):V13:H20.5RA:FL0:480:846:RI1İ300:3690+fFA$RA$:V17:H20.5(FA$):C0:FL%0:1100:7939,8:7940,V(15):ZS$D$(8):9000+j700:+(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)+-#Z9(1):840",2#ZL1(Z:S$D$(4):V19:610e*$X(T)1R2$VA$(1)C$(10,X(T)5)J$(1):RA$J$(1)C$(10,X(T)5)VA$(1):3685*.X(T)3RA$J$(1)VA$(1):R2$RA$:3685*8(S(T)1S(T)4)(X(T)2X(T)4)RA$J$(1)C$(10,X(T)5)VA$(1):R2$RA$:3685 +BRA$VA$(1)C$(10,X(T)5)J$0:480:STST1:7939,28:7940,V(15):ZS$(ST):9000:C0:845:XLXLL:L(VA$(1))14:C2:845)RI0:RA$VA$(1):RA(RA$):C0:FL0:480:)RI1İ300)700:)RI0:VV18:HH3:V7:690:PG%1MO%3İ350*V11:TC30:LJ5:S$(D$(6),20)".":610 L(J$(1))14:C2:845:RA$J$(1):RA(RA$):V18:H19.5(J$(1)):C0:FL0:480:STST1:7939,28:7940,V(15):ZS$(ST):9000:C0:845:XLXLL:L(C$(T,2))14:C2( X(T)3LL((VA$(1))14):C2:845_) X(T)3İ845:RA$C$(10,X(T)5):RA(RA$):C0:FLX(T)3L(C$(T,3)J$(1))14:3565w' C2:L((C$(T,3))1)14:845:RA$C$(10,X(T)5):RA(RA$):C0:FL0:480:STST1' 7939,28:7940,V(15):ZS$(ST):9000:C0:845:XLXLL' L((J$(1))14)10:C2:845:RI0:RA$J$(1):RA(RA$):C0:FL0:480' (0: 16368,0:$ 390:A$:G 390:A$:A$(127)NX$"redo"M  400:A$"Y"A$"y"A$"N"A$"n"ZS$A$:9000: (7);:410 400:A$(32)415  400:A$"1"A$HI$AN(A$):HI$"9": (7);:420 400:A$LO$A$HI$LO$"2":AN(A$):# 430= 402:S$A$:500:A$S$X NX$"redo"A$(13)ı (A$VA$(1)A$VA$(2)A$VA$(3))KI%3C0:838:CPT:FF$A$:1140:AN$AN$A$:HH2: A$"0"A$"9"NN(A$):C0:838:CPT:FF$A$:1120:AN$AN$A$:HH2:> FF1(FA$):FF$(FA$,FF,1):C0FF$"@"FF$"#"İ1160:HH1(FL%0):1110xPFF$"@"FF$"2":1190:HH1:1110QFF$"("FF$")"CLC:C5:1160:CCL:HH1(FL%0):1110RFF$"#"FF$"3":1190:HH1:1110S1120:HH1(FL%0)VFF:MODEJ(4)J$J(5)J(1)J(2):J(6)J(5)J(3):NN6:998:J(3)0J$(3)"+"J$(3).PR$J$(1)VA$(1)J$(3):P1$VA$(1)"="J$(2):S$(1)J$(1)"("J$(2)")"J$(3):S$(2)J$(5)J$(3)"="J$(6):3L(FL%1)((FA$)6)įMODE(1):FL%1:1103MMODE(2):FL%0QOG$"+":SG1:N(I)1SG$"-":SG1*HI1NN:J$(I)(J(I))::]I((1)N9)1:I13:VA$(I)""::KI%1025,1001,1050,1075DI14:N99:999:J(DI)I:995:J(DI)J(DI)SG:FA$J$(1):J(4)(J(4))1:VA$(1)SS$(J(4)):VV(1)39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:pV8(7940)81:H8(7939)21:V9(7940)81:H9(7939)21:7939,I(H9):7940,V(V9):HH9:VV9:V9V:H9H:HH9:VV9:4849,1:9200:$N99:999:SS$):7940,5:9000:7969,8:#zk{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%)9000:L822:1:B15:ZS$"Space Bar":MODE(2):H(H)47,V(V)6ZI:ZI:15:QH5126,2:5127,33:5128,77:5129,70:5120:I5126,3:5127,76:5128,76:5129,165:5120:N5126,7:5127,144:5128,73:5129,165:5120:k7969,22:7939,45(ZS$):7940,17:9000:7969,8:l7969,22:7939,45(ZNX$"bk"822:L615:B15:MODE(2):5,178:19);:MODE(1):B0:CC(C):ZI01:H(H9),V(V91)ZIH(H9)14,V(V91)ZI::15:D5126,I(H9):5127,V(V):5128,76:5129,V(V1):5120:"FC(C):MODE(2):ZI01:H(H)4,V(V)6ZI15:B0ZA$"":ZA$/ZA$(8)720P(ZA$(21))(ZA$(32))730Y710s LEFT ARROW SELECTEDMO%4TT20NX$"fd":729NX$"bk"822: RIGHT ARROW OR SPACE BAR SELECTEDPG%9((MO%4)(TT20))NX$"fd":739 ODE(2):18,178:9100:MODE(1):PG%9įMODE(2):90,178:9100:MODE(1):704ZS$"Problems":MODE(2):68,178:9100:MODE(1)MO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)MO%4TT20įMODE(2):56,178:ZS$"Menu":9100:MODE(1) (7);"WORD TOO LONG":cL(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0:9000:uZP%1:9000:822:NX$"":ZS$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1): " DRAW ARROWSMO%4704MZS$"Menu":M(S$):LTCLJ0T$S$:690:)cHLJcl7939,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::::)RA(AN$):C0:838 481F AN$RA$(KI%4AN$R2$)RIRI1:T MO%3ı (7);:836:FA$RA$:KI%3FA$J$(2)FA$"("FA$ 908:C0:FL%0:1100: J$"":II1(S$):QR((S$,II,1)):QR64QR91QRQR32 J$J$(QR)::S$J$: bL00:ZS$" to Erase":1:9100:MODE(1):15:B0:H 907:AN$"":470^ (AN$)(RA)486 C1:838:432:NX$"redo"İ836:MF1FA$J$(1)"(":836:NX$"":HH2:VV2:C0:FL%0:1100:480 NX$"redo"NX$"":908:480 (A$(13)AN$"")(AN$RA$A$"/"KI%4C0:838:CPT:FF$A$:1120:AN$AN$A$:HH2:x A$"-"C0:838:CPT:FF$A$:1120:AN$AN$A$:HH2: A$"+"KI%3C0:838:CPT:FF$A$:1120:AN$AN$A$:HH2: (7);:3 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:91(1):C0:FL%0:I`9:ZS$FF$:FL%0įMODE(2):H(H)4,V(V):9100:vaMODE(1):7939,I(H):7940,V(V):9000: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$:FL%0į((H1)72),V(V):9100:CMODE(1):7939,I(H):7940,V(V):9000:M119215:H(H),V(V)4:ZS$FF$:9100:: DRAW.EXPONENT15:MODE(1):H(H),V(V)4:ZS$FF$:9100MODE(2):FL%1įMODE(1): DRAW.EXPONENTMO%421054,100:9100 (&16368,0:A$=(&::(4);"VERIFY ";ZF$`(&ZF%0:216,0::(4);"-";ZF$:(' ERROR TRAP FOR DISK FLIP('216,0:822:9965(a SCORE TRACKING ROUTINE(aI1NU%(aJ14(aSC%(I,J,1)0SC%(I,J,5)3:25030()aSC%(I,J '&9981'&9990D'&5126,1:5127,30:5128,78:5129,186:5120l'&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$))3)15(C4)12(C5)13(C6)9(C7)7E&%M(X)((X2)(X2))2d&%N(I)(((I3)(I3))3)&%P(I)(((I5)(I5))5)&%&& CONTROL-C TRAPPING&&((218)(219)256)9220Č822:9225&&&& TRAP FOR DISK FLIP'&216,0:99908::SCR.U2.PAC)%,$1,73::SCR.KI.PAC;%6$:SCR.MO.PACT%@$1,137::SCR.U3.PACt%% * 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(CBLE HI-RES SCREEN, MODE(2)($#Z9(1)2$#ZS$;?$#ZP%1ĺI$#ZP%0O$#r$# COMPRESSION BUFFER MANAGER~$#Z9(1)$$0,0:(4849)9230,9240,9250,9260,9270,9280:4352$ $4848,(4849):$$1,64::SCR.UN.PAC$$1,98::SCR.U1.PAC%"$1,1190Z# 7939,8:7940,V(17):ZS$D$(1):FA$PR$"="RA$:V19:H20.5(FA$):C0:FL%0:1100e# 700:#(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)#-#Z9(1):840#2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:##$# DRAW CHARACTERS ON DOU:RI0:FL0:480:RI1İ300'"v 700:B" RI0:PG%1MO%3İ350" 7939,8:7940,V(12):ZS$D$(5):9000:V19:LJ5:TC30:S$D$(4):610:FA$PR$"=":V14:H20.5(FA$)(J$(6)):C0:FL%0:1100" RA$J$(6):RA(RA$)2:RI0:FL0:480# 846:RI1İ300:32:ZS$"Multiply ("J$(1)" x "J$(2)") ":9000:905:V4V9:H4H9:RA$J$(5):RA(RA$)2:V18:H19.5(RA$)(J$(3))(J$(6)):FL0:480:H3H:V3V"N ZS$"and add "J$(3)".":V9V4:H9H4:906:9000:FA$J$(3)"=":VV3:HH3:C0:FL%0:1100:RA$J$(6):RA(RA$)239,8:7940,V(12):ZS$"Substitute for "VA$(1)":":9000:FA$S$(1):H20.5(FA$):FA$J$(1)"(":V14:C0:FL%0:H2H:V2V:1100:RA$J$(2):RA(J$(2))1 & FL0:480:LS(S$(1)):FA$(S$(1),LS(J$(1)"("J$(2))):C0:FL%0:1100:7939,8:7940,V(16)!0 MF0:900:7939,8:7940,V(17) ZS$"Multiply ("J$(1)" x "J$(2)") ":9000:905:FA$S$(2):H20.5(FA$):FA$J$(5):V19:C0:FL%0:1100:H4H:900 906:ZS$"and add "J$(3)".":9000:FA$J$(3)"="J$(6):V19:HH4:C0:FL%0:1100 700:  MF1:79e ":9000:905:908:FA$PR$:C0:FL%0:1100:907:906:ZS$" when ":9000:905:908:FA$P1$:C0:FL%0:1100 MO%3010,3100,3200,3200: 7939,8:7940,V(12):ZS$"Substitute "J$(2)" for "VA$(1)".":9000:FA$S$(1):V14:H20.5(FA$):C0:FL%0:1100:841?TC35:LI1:LJ42H3000:MO%4İ1000WIMO%4ZF%1:ZF$"ALG.1.2":9950kMNX$"fd"2130NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110O2110RPG%0:MO%3İ25000S2000l TC35:LJ5:7939,8:7940,V(7):ZS$"EvaluatZS$"Your choice? (1-4) ":9000:HI$"4":420:ZS$A$:9000:MO%AN:A$"4"ZF%1:MO%0:ZF$"ALG.1.2":9950 MO%3SC%(UN%,KI%,(MO%2)4)091000:TL10:4849,3:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1:891:MO%3SC%(UN%,KI%,1)1>822:840MO%0:PG%0:KI%3:912:891@ZS$T1$:876:ZS$T2$:875:15bH14:V6(2KI%):WD$TY$(KI%)j 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:j7939,6:7940,152:,1)0SC%(I,J,1)5SC%(I,J,5)2:25030l)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:)eyz{|}~20:SC%(UN%,5,2)UC%:((UC%20)DT)SC%(UN%,5,5)2:4040MSC%(UN%,5,5)1]900:821:y@ ** DATA STATEMENTS **J"Combining Like Terms","Simplifying Expressions","Evaluating Expressions","Writing Expressions","Variables Test","Return to Algebra39,64:7940,40:ZS$"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),4)0::UN%4:TT1.5KI%((R%(TT)1)5)1?9TL10:PG%TTbHZF%1:KI%2061,2062,2063,2064{OTTTT1:TT202101RUN%2:4000:PG%0:25000SMO%0:2000 FACTORING TEST RESULTS821jUC%0:7939,52:7940,40:ZS$"Tried":9000:790:R%(II)TE%(II):TE%(II)0::2080G ZF%1:KI%2061,2062,2063,2064a ZF$"ALG.1.2.1":9950{ZF$"ALG.1.2.2":9950ZF$"ALG.1.2.3":9950ZF$"ALG.1.2.4":9950 PG%14UN%2:II14:SC%(UN%,II,3)5:SC%(UN%,II,4)0:SC%(4,II,3)0:SC%(4,IIS$TY$(I1):TC26:LJ14:LI1:610:VV2::7939,24:7940,V(V1):ZS$"Your choice? (1-6) ":9000:LO$"1":HI$"6":480:ZS$A$:9000KI%AN:AN6H14:V6(2AN):WD$TY$(AN)AN6ZF%0:ZF$"ALG.1.MENU":9950$AN5MO%4:UN%4:ND%20:1500:II127#MO%0:PG%0:KI%0:913:891AZS$T1$:876:ZS$T2$:875~6:I103:BOX(7I12,144M(I1)2)110I1,34M(I1):7939,38:7940,40:ZS$"CONTENTS":9000:V7:I115:H4:829VV3::V8:I116:7939,18:7940,V(V)ZS$MZ$(I1):9000:5::15:B0:6V9(7940)81:H9(7939)21:J4849,1:9200:a SHUFFLE ROUTINEtTE%(1)0:SJ%1ZI1ND%:SJ%(ZI)ZI:ZIZJ%ND%ZI1ND%:ZK%((1)ZJ%1):TE%(ZJ%)SJ%(ZK%):SJ%(ZK%)SJ%(ZJ%):ZJ%ZJ%1:MO%42129,8:S {15:79363,2:79364,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%):893c |ZS$ZS$" " }9000:79363,2:79364,15:ZS$"M"(MO%):MO%4897 ZS$ZS$" "(PG%) 9000:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):41(SC%(UN%,I1,5)0)15C(SC%(UN%,I1,5)) @LI03:BOX(56LI2,16M(LI)2)H(H)7LI,V(V)M(LI)5::7939,I(H):7940,V(V):ZS$MZ$(I1):9000 A k7969,22:7939,45(ZS$):7940,17:9000:7969,8: l7969,22:7939,45(ZS$):7940,5:9000:79664,V(V):ZS$T$:PA1PA0) 9000:Z 45126,17:5127,30:5128,78:5129,186:5120: 55126,1:5127,30:5128,78:5129,168:5120: 615:B15:MODE(2):5,178:19);:MODE(1):B0: =I11įMODE(2):15:H(H)43,V(V)12:"\";:MODE(1)* ?):(S$)TCZS$S$:9000:905:T vLTTC11:X$(S$,LT,1):X$SP$X$"-"670 ZS$(S$,LT(X$SP$)):ZP%1:9000:660 S$(S$,(S$)LT):VV1:LI1VV1 620 ::::(7);"WORD TOO LONG": L(T$):H20(L2):79363,I(H):793A$(32)415  822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: 390:400:A$LO$A$HI$AN(A$): 480 bL(S$):LTCLJ0T$S$:690: cHLJ! l79363,I(H):79364,V(V  ALG.1.2 - SJW - V.101589+99002XI16:TY$(I)::I110:D$(I):II115:J14:C$(II,J)::S(II),X(II)::I69:C$(10,I):T2$"Variables"9600MODE(1)::15:B0:200016368,0:A$: 390:400: Menu"T"The answer is:","Enter the answer.","Alphabetize the variables.","(Use pencil and paper to calculate your answer.)","Enter the final answer."^"Write the expression step by step.","Step ","The correct answer is:","Multiply each number inside the parentheses by "Ph"Combine like terms, putting the variable first."w"con"," increased by ","var",,4,1"con"," less than ","var",,2,2"con"," subtracted from ","var",,2,2"The sum of ","con"," and ","var",1,1'"The differe9000:905:A vLTTC11:X$(S$,LT,1):X$SP$X$"-"670l ZS$(S$,LT(X$SP$)):ZP%1:9000:660 S$(S$,(S$)LT):VV1:LI1VV1 620 ::::(7);"WORD TOO LONG": L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1400:A$(32)415 A 400:A$LO$A$HI$AN(A$):J 420f 400:A$"2"A$HI$ıo 430 LO$"1":HI$"4":420:AN1AN4CHAN: 440 bL(S$):LTCLJ0T$S$:690: cHLJ l7939,I(H):7940,V(V):(S$)TCZS$S$:  ALG.1.3 - SJW - V.102489+99002XI16:TY$(I)::I118:D$(I):II115:J14:C$(II,J)::S(II),X(II)::I69:C$(10,I):T2$"Linear Equations"9600MODE(1)::15:B0:200016368,0:390:A$: %(I,J,5)1:25030$aSC%(I,J,5)2,a:2e:822:9965+a SCORE TRACKING ROUTINE^a " OPEN CDFILE$ FOR READING, 166 BYTES/RECORDkaI1NU%vaJ15aSC%(I,J,1)0SC%(I,J,5)3:25030aSC%(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)SC2):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,0& CONTROL-C TRAPPING@&((218)(219)256)9220Č822:9225F&c& TRAP FOR DISK FLIPu&216,0:9990&9981&9990&5126,1:5127,30:5128,78:5129,186:5120&ZF%1ZS$"Check Disk Drive":9972&ZS$"Flip Disk")&:MODE(I(H)(H1)2&%V(V)((V1)8):%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)%P(I)(((I5)(I5))5)%PICTURE MANAGER#Z9(1)N$0,0:(4849)9230,9240,9250,9260,9270:4352b $4848,(4849):z$1,64::SCR.UN.PAC$1,98::SCR.U1.PAC"$:ASCII,$1,73::SCR.KI.PAC6$:SCR.MO.PAC% * FUNCTION DEFINITIONS *%H(H)(H1)14%","/"A(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)R-#Z9(1):8402#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:## DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)#Z9(1)#ZS$;#ZP%1ĺ#ZP%0## COMPRESSED sed by ","var",,4,1< "con"," decreased by ","var",,4,2d "con"," multiplied by ","var",,4,3& "con"," divided by ","var",,4,40 "The number ","con"," multiplied by ","var",1,3: "The number ","var"," multiplied by ","con",3,3D "+","-","nce between ","con"," and ","var",1,2V"The product of ","con"," and ","var",1,3"The quotient of ","con"," and ","var",1,4"The number ","var"," decreased by ","con",3,2"The number ","var"," increased by ","con",3,1 "con"," increaPA0:9000: ZP%1:9000:Y 451206,17:51207,30:51208,78:51209,186:5120: 551206,1:51207,30:51208,78:51209,168:5120: 615:B15:MODE(2):5,178:19);:MODE(1):B0: =I11įMODE(2):15:H(H)43,V(V)12:"\";:MODE(1)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 A k7969,22:7939,45(ZS$):7940,17:9000:7969,8: l7969,22:7939,45(ZS$):7940,5:90D "+","-","","/"M(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)^-#Z9(1):8402#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:## DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)#Z9(1)#ZS$;#ZP%1ĺ#ZP%0# #con"," increased by ","var",,2,1I "con"," decreased by ","var",,2,2q "con"," multiplied by ","var",,2,3& "var"," less than ","con",,2,20 "The number ","con"," multiplied by ","var",2,3: "The number ","var"," multiplied by ","con",2,3var",2,15"The sum of ","con"," and ","var",2,1d"The product of ","con"," and ","var",2,3"The product of ","con"," and ","var",2,3"The number ","con"," decreased by ","var",2,2"The number ","var"," increased by ","con",1,1" "and solve:","Now solve it!","Graph:","->","Plot the point."mr"Record the coordinates.","Draw the line.""con"," more than ","var",,2,1"var"," less than ","con",,2,2"var"," subtracted from ","con",,2,2 "The sum of ","con"," and ","e final answer only.","The correct answer is:"^"Multiply each number inside the parentheses by ","Subtract "," from each side and combine the variables.","Combine like terms."=h"Divide each side of the equation by ","Write an equation.","Simplify TEMENTS **J"Solving Equations","Simplifying Equations","Graphing Equations","Word Problems","Linear Equations Test","Return to Algebra Menu"0T"The answer is:","Enter the answer.","(You may use pencil and paper to calculate your answer.)","Enter th39,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:4040SC%(UN%,5,5)1900:821: @ ** DATA STA202101(RUN%3:4000:PG%0:250008SMO%0:2000W FACTORING TEST RESULTS`821UC%0:7939,52:7940,40:ZS$"Tried":9000:7939,64:7940,40:ZS$"Correct":9000:V8:II14:7939,2:7940,V(V):UC%UC%SC%(4,II,4):ZS$TY$(II):900079.2":9950%ZF$"ALG.1.3.3":9950?ZF$"ALG.1.3.4":9950I 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:PG%TTHZF%1:KI%2061,2062,2063,2064 OTTTT1:TTS$A$:9000:KI%AN:AN6H14:V6(2AN):WD$TY$(AN)aAN6ZF$"ALG.1.MENU":ZF%0:9950AN5MO%4:UN%4:ND%20:1500:II120:R%(II)TE%(II):TE%(II)0::2080 ZF%1:MO%0:KI%2061,2062,2063,2064 ZF$"ALG.1.3.1":9950 ZF$"ALG.1.3H20:7939,I(H):7940,V(V):ZS$"CONTENTS":9000:V7:I115:H4:829uVV3::V8:I116:7939,18:7940,V(V) ZS$MZ$(I1):9000:S$TY$(I1):TC26:LJ14:LI1:610:VV2::7939,24:7940,V(V1):ZS$"Your choice? (1-6) ":9000:LO$"1":HI$"6":420:Z)ZI:ZIZJ%ND%hZI1ND%:ZK%((1)ZJ%1):TE%(ZJ%)SJ%(ZK%):SJ%(ZK%)SJ%(ZJ%):ZJ%ZJ%1:ZIn~MO%42127MO%0:PG%0:KI%0:913:891ZS$T1$:876:ZS$T2$:8756:I103:BOX(7I12,144M(I1)2)110I1,34M(I1):HV6:ODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:WV9(37)1:H9(36)17939,I(H9):7940,V(V9):X9(H91.1)8:Y9(V98)2:: GOTO OLD CURSOR POSITION4849,1:9200: SHUFFLE ROUTINETE%(1)0:SJ%1 ZI1ND%:SJ%(ZI00:7969,8: z\ {15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%):893l |ZS$ZS$" " }9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897 ZS$ZS$" "(PG%) 9000:=822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:M COMPRESSION BUFFER MANAGER,#Z9(1)2#c$0,0:(4849)9230,9240,9250,9260,9270:4352w $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 % * FUNCTION DEFINITIONS *%H(H)(H1)141%I(H)(H1)2G%V(V)((V1)8)[%X(X)(X74)q%Y(Y)(Y2425)%C(C)(C0)0(C1)6(C2)1(C3)15%M(X)((X2)(X2))2%N(I)(((I3)(I3))3)%& CONTROL-C TRAPPING!&((2$)1:(PL$,1)"+"PL$(PL$,LP)( MbL(S$):LTCLJ0T$S$:690:VcHLJl7939,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$)L(AN$):C0:838 481A AN$RA$(KI%4AN$R2$)RIRI1:O MO%3ı (7);:836:FA$RA$:KI%3FA$J$(2)FA$"("FA$ 908:C0:FL%0:1100: J$"":II1(S$):QR((S$,II,1)):QR64QR91QRQR32 J$J$(QR)::S$J$:"LP(PL00:ZS$" to Erase":1:9100:MODE(1):15:B0:H 907:AN$"":470^ (AN$)(RA)486 C1:838:432:NX$"redo"İ836:MF1FA$J$(1)"(":836:NX$"":908:C0:FL%0:1100:480 NX$"redo"NX$"":908:480 (A$(13)AN$"")(AN$RA$)RAA$"/"KI%4C0:838:CPT:FF$A$:1120:AN$AN$A$:HH2:x A$"-"C0:838:CPT:FF$A$:1120:AN$AN$A$:HH2: A$"+"KI%3C0:838:CPT:FF$A$:1120:AN$AN$A$:HH2: (7);:3 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:91HI$LO$"2":AN(A$):# 430= 402:S$A$:500:A$S$X NX$"redo"A$(13)ı (A$VA$(1)A$VA$(2)A$VA$(3))KI%3C0:838:CPT:FF$A$:1140:AN$AN$A$:HH2: A$"0"A$"9"NN(A$):C0:838:CPT:FF$A$:1120:AN$AN$A$:HH2:> 0: 16368,0:$ 390:A$:G 390:A$:A$(127)NX$"redo"M  400:A$"Y"A$"y"A$"N"A$"n"ZS$A$:9000: (7);:410 400:A$(32)415  400:A$"1"A$HI$AN(A$):HI$"9": (7);:420 400:A$LO$A$" ALG.1.2.1 - 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)16V20(2(MO%2)):690: ^SC%(UN%,KI%,(MO%2)4))2 a: eNG ROUTINE?a " OPEN CDFILE$ FOR READING, 166 BYTES/RECORDLaI1NU%WaJ15}aSC%(I,J,1)0SC%(I,J,5)3:25030aSC%(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:25030 aSC%(I,J,555:9100c&ZS$"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:9100u&16368,0:A$&::(4);"VERIFY ";ZF$&ZF%0:216,0::(4);"-";ZF$:' ERROR TRAP FOR DISK FLIP'216,0:822:9965 a SCORE TRACKI18)(219)256)9220Č822:9225'&D& TRAP FOR DISK FLIPV&216,0:9990`&9981k&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,T):VV1:LI1VV1 620F::::(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 ARROWSMO%4704zZS$"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įZS$A$:9000:MO%AN:A$"4"ZF%1:MO%0:ZF$"ALG.1.2":9950a MO%3SC%(UN%,KI%,(MO%2)4)091000:TL10:4849,3:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1:891:MO%3SC%(UN%,KI%,1)1>822:840:841?TC35:LI1:LJ4H2600:MO%4İ1ZS$T2$:875:155H14:V6(2KI%):WD$TY$(KI%)= V6 LJ0:TC34:S$WD$:610:VV2:S$"Mode Selection":610:V11:I114:7939,6:7940,V(V):ZS$MZ$(I1)" "CH$(I1):9000:VV2:=7939,6:7940,152:ZS$"Your choice? (1-4) ":9000:HI$"4":420: DRAW.EXPONENT. SHUFFLE ROUTINEATE%(1)0:SJ%1^ZI1ND%:SJ%(ZI)ZI:ZIjZJ%ND%ZI1ND%:ZK%((1)ZJ%1):TE%(ZJ%)SJ%(ZK%):SJ%(ZK%)SJ%(ZJ%):ZJ%ZJ%1:MO%42105MO%0:PG%0:KI%1:912:891ZS$T1$:876:100:?C(C):ZS$FF$:FL%0į((H1)72),V(V):9100:lMODE(1):7939,I(H):7940,V(V):9000:v119215:H(H),V(V)4:ZS$FF$:9100:: DRAW.EXPONENT15:MODE(1):H(H),V(V)4:ZS$FF$:9100MODE(2):FL%1įMODE(1): 110S1120:HH1(FL%0):VFF:MODE(1):C0:FL%0:r`9:ZS$FF$:FL%0įMODE(2):H(H)4,V(V):9100:aMODE(1):7939,I(H):7940,V(V):9000:j13:ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1):t9:ZS$FF$:((H1)72),V(V):9ODE(1):FL%1:1103'MMODE(2):FL%0zOFF1(FA$):FF$(FA$,FF,1):C0FF$"@"FF$"#"İ1160:HH1(FL%0):1110PFF$"@"FF$"2":1190:HH1:1110QFF$"("FF$")"CLC:C5:1160:CCL:HH1(FL%0):1110RFF$"#"FF$"3":1190:HH1:1(I)"":S$(I)"":10350 S$(I)J$(I)VA$(I6) :PR$"":I16:PR$PR$S$(TE%(I))::AS$S$(7)S$(8)S$(9):PL$PR$:520:PR$PL$:PL$AS$:520:AS$PL$P1$"":I16:P1$P1$S$(I)::L(P1$):PL$P1$:520:P1$PL$:3L(FL%1)((FA$)6)įM:JJJJ1::NN9:992WI19:(J(I))2J$(I)(J$(I),1):J(I)0J$(I)"":S$(I)"":N911:999:II13:VA$(II)SS$(III):VV(II)VVI::II1:I16:J$(I)""S$(I)J$(I)VA$(((I1)2)):ND%6:1500:I79:(J(I))2J$(I)(J$(I),1):J(I)0J$(J(I)):J(I)0J$(I)"+"J$(I)+:]N99:999:SG$"+":SG1:N(I)1SG$"-":SG1cxI((1)N9)1:I13:VA$(I)""::KI%1025,1001,1050,1075DI16:N98:999:J(DI)I:995:J(DI)J(DI)SG::JJ7:I152:J(JJ)J(I)J(I1)22:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:V8(7940)81:H8(7939)21:V9(7940)81:H9(7939)21:V9V:H9H:HH9:VV9:4849,1:9200:#I1NN:J$(I)9000:7969,8:El7969,22:7939,45(ZS$):7940,5:9000:7969,8:Kz{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%)9000:t8C):MODE(2):ZI01:H(H)4,V(V)6ZIH(H)47,V(V)6ZI:ZI:15:yH5126,2:5127,33:5128,77:5129,70:5120:I5126,3:5127,76:5128,76:5129,165:5120:N5126,7:5127,146:5128,73:5129,165:5120:k7969,22:7939,45(ZS$):7940,17:PG%9((MO%4)(TT20))NX$"fd":7397NX$"bk"B822:y615:B15:MODE(2):5,178:19);:MODE(1):B0:CC(C):ZI01:H(H9),V(V91)ZIH(H9)14,V(V91)ZI::15:D5126,3:5127,V(V):5128,76:5129,V(V1):5120:JFC(MODE(2):56,178:ZS$"Menu":9100:MODE(1):15:B0JZA$"":ZA$\ZA$(8)720}(ZA$(21))(ZA$(32))730710 LEFT ARROW SELECTEDMO%4TT20NX$"fd":729NX$"bk"822: RIGHT ARROW OR SPACE BAR SELECTED*000*IMO%4ZF%1:ZF$"ALG.1.2":9950>MNX$"fd"2130yNPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110O2110RPG%0:MO%3İ25000S2000 ( 7939,4:7940,V(6):ZS$"Combine like terms:":9000:FA$PR$:H20.5(FA$):V8:C0:FL%0:1100& - MO%2610,2700,2800,2800:} 2 V12:TC30:LJ5:LI2:S$D$(3):610:FA$P1$:V14:H20.5(FA$):FL%0:C0:1100:900 Z V18:S$D$(1):610:FA$AS$:V20:H20.5(FA$):FL%0:C0:1100 700:! V12:TC30:LJ5:LI2:S$D$(3):610:FA$P1$:V14:H2400:A$(32)415 I 400:A$"1"A$HI$AN(A$):HI$"9":Y (7);:420 400:A$LO$A$HI$LO$"2":AN(A$): 430 402:S$A$:500:A$S$ NX$"redo"A$(13)ı (A$VA$(1)A$VA$(2)A$VA$(3))KI%3C0:838:CPT:FF$%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)1R 6V20(2(MO%2)):690:q ^SC%(UN%,KI%,(MO%2)4)0: 16368,0: 390:A$: 390:A$:A$(127)NX$"redo"  400:A$"Y"A$"y"A$"N"A$"n"ZS$A$:9000: (7);:410  ALG.1.2.2 - SJW V.101589+99005c9600UMODE(1)::15:B0:2000AN(1)1:AN(2)5:AN(3)8:AN(4)9:AN(5)11:AN(6)2:AN(1)1:AN(2)5:AN(3)8:AN(4)9:AN(5)11:AN(6)9:,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$6 5MOaSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:25030u(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:(e1(ZS$))4,100:9100)'&16368,0:A$F'&::(4);"VERIFY ";ZF$i'&ZF%0:216,0::(4);"-";ZF$:'' ERROR TRAP FOR DISK FLIP''216,0:822:9965'a SCORE TRACKING ROUTINE'aI1NU%'aJ14'aSC%(I,J,1)0SC%(I,J,5)3:250301(0:9990&&9981&&9990M&&5126,1:5127,30:5128,78:5129,186:5120u&&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(22)1(C3)15(C4)12(C5)13(C6)9(C7)7N%%M(X)((X2)(X2))2m%%N(I)(((I3)(I3))3)%%P(I)(((I5)(I5))5)%%%& CONTROL-C TRAPPING%&((218)(219)256)9220Č822:9225%&%& TRAP FOR DISK FLIP &&216,$"$1,118::SCR.U2.PAC2$,$1,73::SCR.KI.PACD$6$:SCR.MO.PAC]$@$1,137::SCR.U3.PAC}$% * FUNCTION DEFINITIONS *$%H(H)(H1)14$%I(H)(H1)2$%V(V)((V1)8)$%X(X)(X74)$%Y(Y)(Y2425)2%%C(C)(C0)0(C1)6(CRS ON DOUBLE HI-RES SCREEN, MODE(2)1##Z9(1);##ZS$;H##ZP%1ĺR##ZP%0X##{## COMPRESSION BUFFER MANAGER##Z9(1)#$0,0:(4849)9230,9240,9250,9260,9270,9280:4352# $4848,(4849):#$1,64::SCR.UN.PAC$$1,98::SCR.U1.PACRI0:480:RI1İ846:300:2890c", V16:S$D$(1):610:FA$AS$:V18:H20.5(FA$):FL%0:C0:1100n"J 700:"(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)"-#Z9(1):840"2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:"#%## DRAW CHARACTE0.5(FA$):FL%0:C0:1100o! V16:S$D$(2):610:RA$AS$:V18:H20.5(RA$):RA(RA$)2:RI0:480:RI1İ300z! 700:! V12:TC30:LJ6:LI2:S$D$(2):610:S$D$(3):L3(S$)2:V20:610:RI0:PG%1MO%3İ350!"" RA$AS$:V14:H20.5(RA$):RA(RA$)2:A$:1140:AN$AN$A$:HH2:j A$"0"A$"9"NN(A$):C0:838:CPT:FF$A$:1120:AN$AN$A$:HH2: A$"/"KI%4C0:838:CPT:FF$A$:1120:AN$AN$A$:HH2: A$"-"C0:838:CPT:FF$A$:1120:AN$AN$A$:HH2:% A$"+"KI%3C0:838:CPT:FF$A$:1120:AN$AN$A$:HH2:2 (7);: 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: 907:AN$"":470 (AN$)(RA)486' C1:838:432:NX$"redo"İ836:MF1FA$J$(1)"(":11)PL$:S$(12)S$(1)S$(6)<S$(13)J$(8)VA$(1)J$(6):BHN3{L(FL%1)((FA$)6)įMODE(1):FL%1:1103MMODE(2):FL%0OFF1(FA$):FF$(FA$,FF,1):C0FF$"@"FF$"#"İ1160:HH1(FL%0):1110PFF$"@"FF$"2":1190:HH1S$(7)J$(8)VA$(1):P2$S$(2)S$(1)S$(3)QS$(15)VA$(1)"="J$(1):PI11020PL$S$(2)S$(1):520:P1$PL$:PL$S$(4)S$(5)S$(1):520:S$(11)PL$:PL$S$(6)S$(1):520:S$(12)PL$1022PL$S$(1)S$(2):520:P1$PL$:PL$S$(1)S$(4)S$(5):520:S$(995:SG1PI2NPI250,255:XX16:PL$J$(AN(XX)):520:J$(AN(XX))PL$:S$(1)J$(2)VA$(1):S$(2)J$(4)"("J$(5)J$(3)VA$(1)")":S$(3)"="J$(9):S$(4)J$(4)"("J$(5)")":PL$J$(3):520:S$(5)J$(4)"("PL$VA$(1)")"*S$(6)J$(6)J$(7)VA$(1):25,1001,1050,1075DI15:N99:999:J(DI)I1:995:J(DI)J(DI)SG::J(2)(J(2)):J(6)J(4)J(5):J(7)J(4)J(3):J(8)J(2)J(7):J(10)J(6)(1)J(9)(J(2)J(1))J(6)(J(7)J(1)):J(11)J(9)J(6):NN11:992:N914:999:VV(1)I1:VA$(1)SS$(VV(1)):PI1:'V9(7940)81:H9(7939)21:7V9V:H9H:GHH9:VV9:[4849,1:9200:I1NN:J$(I)(J(I)):J(I)0J$(I)"+"J$(I):N99:999:SG$"+":SG1:N(I)1SG$"-":SG1I((1)N9)1:I13:VA$(I)""::KI%10ZS$ZS$" "C}9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897ZZS$ZS$" "(PG%)f9000:822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:V8(7940)81:H8(7939)21:6:5129,165:5120:EJ5126,3:5127,76:5128,76:5129,100:5120:{k7969,22:7939,45(ZS$):7940,17:9000:7969,8:l7969,22:7939,45(ZS$):7940,5:9000:7969,8:z{15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%):893|,V(V91)ZIH(H9)14,V(V91)ZI::15:dD5126,3:5127,V(V):5128,76:5129,V(V1):5120:FC(C):MODE(2):ZI01:H(H)4,V(V)6ZIH(H)47,V(V)6ZI:ZI:15:H5126,2:5127,33:5128,77:5129,70:5120:I5126,3:5127,76:5128,7W SELECTED+MO%4TT20NX$"fd":7298NX$"bk"C822:k RIGHT ARROW OR SPACE BAR SELECTEDPG%9((MO%4)(TT20))NX$"fd":739NX$"bk"822:615:B15:MODE(2):5,178:19);:MODE(1):B0:-CC(C):ZI01:H(H9):68,178:9100:MODE(1)[MO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)MO%4TT20įMODE(2):56,178:ZS$"Menu":9100:MODE(1)15:B0ZA$"":ZA$ZA$(8)720(ZA$(21))(ZA$(32))730710  LEFT ARROP%1:9000:z822:NX$"":ZS$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1): " DRAW ARROWSMO%4704ZS$"Menu":MODE(2):18,178:9100:MODE(1):PG%9įMODE(2):90,178:9100:MODE(1):704ZS$"Problems":MODE(2)LTTC11:X$(S$,LT,1):X$SP$X$"-"670ZZS$(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:Z0:1100:HJ$"":II1(S$):QR((S$,II,1)):QR64QR91QRQR32bJ$J$(QR)::S$J$:LP(PL$)1:(PL$,1)"+"PL$(PL$,LP) bL(S$):LTCLJ0T$S$:690:cHLJl7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905:/v836:NX$"":908:C0:FL%0:1100:480H NX$"redo"NX$"":908:480} (A$(13)AN$"")(AN$RA$)RA(AN$):C0:838 481 AN$RA$(KI%4AN$R2$)RIRI1: MO%3ı (7);:836:FA$RA$:KI%3FA$J$(2)FA$"("FA$ 908:C0:FL%:1110EQFF$"("FF$")"CLC:C5:1160:CCL:HH1(FL%0):1110lRFF$"#"FF$"3":1190:HH1:1110S1120:HH1(FL%0)VFF:MODE(1):C0:FL%0:`9:ZS$FF$:FL%0įMODE(2):H(H)4,V(V):9100:aMODE(1):7939,I(H):7940,V(V):9000:Aj13:ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1):nt9:ZS$FF$:((H1)72),V(V):9100:C(C):ZS$FF$:FL%0į((H1)72),V(V):9100:MODE(1):7939,I(H):7940,V(V):9000:119215:H(H),V(V)4:ZS$FF$:9114+)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(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:9100V(&16368,0:A$s(&::(4);"VERIFY ";ZF$(&ZF%0:216,0::(4);"-";ZF$:(' ERROR TRAP FOR DISK FLIP('216,0:822:9965(a SCORE TRACKING ROUTINE(aI1NU%)aJ'&%'& TRAP FOR DISK FLIP7'&216,0:9990A'&9981L'&9990z'&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:9100D(&ZS$"and":H(21Y(Y)(Y2425)_&%C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)7{&%M(X)((X2)(X2))2&%N(I)(((I3)(I3))3)&%P(I)(((I5)(I5))5)&%&& CONTROL-C TRAPPING'&((218)(219)256)9220Č822:9225$1,64::SCR.UN.PAC.%$1,98::SCR.U1.PACG%"$1,118::SCR.U2.PAC_%,$1,73::SCR.KI.PACq%6$:SCR.MO.PAC%@$1,137::SCR.U3.PAC%% * FUNCTION DEFINITIONS *%%H(H)(H1)14%%I(H)(H1)2%%V(V)((V1)8)%%X(X)(X74)&%ZS$,ZL,1)):7936:$#R$# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)^$#Z9(1)h$#ZS$;u$#ZP%1ĺ$#ZP%0$#$# COMPRESSION BUFFER MANAGER$#Z9(1)$$0,0:(4849)9230,9240,9250,9260,9270,9280:4352$ $4848,(4849):%:RA(RA$)1:RI0:V14:H20.5(FA$):480:RI1İ300:2490# 7939,8:7940,V(16):ZS$D$(8):9000:V18:H20.5(RA$):C0:FL%0:FA$RA$:1100# 700:#(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)#-#Z9(1):840$2#ZL1(ZS$):7941,(( V16:FA$S$(12):RA$FA$:H20.5(FA$):C0:FL%0:RA(RA$)1:480:842:S$D$(10)". LI1:V11:610:FA$S$(13):RA$FA$:V18:H20.5(FA$):RA(RA$)1:RI0"8 480:RI1İ300"V 700:"` RI0:V11:S$D$(10):610:FA$S$(13):PG%1MO%3İ350<# RA$FA$J$(4)".":LI1:610:V14:II1112:FA$S$(II):H20.5(FA$):C0:FL%0:1100:VV2:900::842!S$D$(10):V11:610:FA$S$(13):V18:H20.5(FA$):C0:FL%0:1100!700:!V11:S$D$(9)J$(4)".":610:V14:FA$S$(11):H20.5(FA$):C0:FL%0:1100S"%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110@ O2110X RPG%0:MO%3İ25000b S2000 7939,4:7940,V(6):ZS$"Simplify:":9000:TC32:LJ5:FA$P1$:V8:H20.5(FA$):C0:FL%0:1100:V17 MO%2210,2300,2400,2400: _!V11:S$D$(9)%3SC%(UN%,KI%,(MO%2)4)0c91000:TL10:4849,3:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1:891:MO%3SC%(UN%,KI%,1)1>822:840:841?TC35:LI1:LJ4H2200:MO%4İ1000IMO%4ZF%1:ZF$"ALG.1.2":9950MNX$"fd"21306 NPG0:TC34:S$WD$:610:VV2:S$"Mode Selection":610:V11:I114:7939,6:7940,V(V):ZS$MZ$(I1)" "CH$(I1):9000:VV2:7939,6:7940,152:ZS$"Your choice? (1-4) ":9000:HI$"4":420:ZS$A$:9000:MO%AN:A$"4"ZF%1:MO%0:ZF$"ALG.1.2":9950 MO00:: DRAW.EXPONENTG15:MODE(1):H(H),V(V)4:ZS$FF$:9100wMODE(2):FL%1įMODE(1): DRAW.EXPONENT}MO%42105MO%0:PG%0:KI%2:912:891ZS$T1$:876:ZS$T2$:875:15H14:V6(2KI%):WD$TY$(KI%) V6{ LJ