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 !2ֲ !O)ALG.2.5.4+.2!O)ALG.2.5.3-!O)ALG.2.5.2+!O'ALG.2.5 7} !O)ALG.2.5.1'.!OALG22B.V.101589O!' 'ALG.2.6 /!O)ALG.2.4.4m1Ȳ!O)ALG.2.6.4.3ڲ3 !O)ALG.2.6.3I[1ڲ2 !O)ALG.2.6.2c.ڲ/ !O)ALG.2.6.1|`aa8aa XL LG &PRODOS`DaElH$?EGvѶK+`L XX LU ŠϠĠӥS)*+,+`F)) (*=GJFjJJA QE'+ '== `@ STSP8QSS8 m P o R(8R  ALG.2.6 - SJW - V.101589+99002XI16:TY$(I)::I117:D$(I):LO$"1":HI$"9":I15:C$(I,5)::I19:ZZ$(I)::I13:C(1,I)::I12:C(2,I):I14:C(3,I)::I13:C(4,I)::I13:C(5,I): T2$"Equations with F your answer.","Enter the final answer only.","Cross multiply.","Divide by","Reduce:""Look at the correct answer:","A complex fraction is simply another division problem!","Rewrite it.","Invert the second term and multiply."u"The formula is:","SN%,5,5)2:4040$SC%(UN%,5,5)14900:821:S@ ** DATA STATEMENTS **r"Fractional Equations","Ratio and Proportion","Complex Fractions","Equations from Formulas","Fractions III Test"W|"Algebra Menu","Use a pencil and paper to calculateI14: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%(U)19TL10:PG%TT9HZF%1:KI%2061,2062,2063,2064ROTTTT1:TT202101oRUN%3:4000:PG%0:25000SMO%0:2000 FACTORING TEST RESULTS821AUC%0:7939,52:7940,40:ZS$"Tried":9000:7939,64:7940,40:ZS$"Correct":9000:V8:I%0:KI%2061,2062,2063,20648 ZF$"ALG.2.6.1":9950RZF$"ALG.2.6.2":9950lZF$"ALG.2.6.3":9950ZF$"ALG.2.6.4":9950 PG%14UN%3:II14:SC%(UN%,II,3)5:SC%(UN%,II,4)0:SC%(4,II,3)0:SC%(4,II,4)0::UN%4:TT15KI%((R%(TT)1)524: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:MO5@6: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)TZS$MZ$(I1):9000:S$TY$(I1):TC26:LJ14:LI1:610:VV2::7939,1:9200:! SHUFFLE ROUTINE4TE%(1)0:SJ%1QZI1ND%: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$:879000:822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:V9(37)1:H9(36)17939,I(H9):7940,V(V9):X9(H91.1)8:Y9(V98)2:: GOTO OLD CURSOR POSITION 4849,(ZS$):7940,17:9000:7969,8:U l7969,22:7939,45(ZS$):7940,5:9000:7969,8:[ z {15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%):893 |ZS$ZS$" " }9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897 ZS$ZS$" "(PG%) ODE(1):B0:K =I11įMODE(2):15:H(H)43,V(V)12:"\";:MODE(1)x ?(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,45O LONG":U L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0:9000:g ZP%1:9000: 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);:MJ0T$S$:690: cHLJU l7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905: vLTTC11:X$(S$,LT,1):X$SP$X$"-"670 ZS$(S$,LT(X$SP$)):ZP%1:9000:660 S$(S$,(S$)LT):VV1:LI1VV1 620 ::::(7);"WORD TOractions" 96005 MODE(1)::15:B0:2000E 16368,0:T 390:A$:l 400:A$(32)415r  400:A$"0"A$"9"ANS(A$): 420 400:A$"2"A$HI$ı 430 420:AN1AN4CHAN: 440 bL(S$):LTCLubstitute:","Calculate: ","The answer is: ","When the denominators are the same, the numerators form the equation.""Find the common denominator.","Multiply to find the numerator.","statement 16"E"perimeter of a rectangle","perimeter of a triangle","volume of a rectangular prism","distance","area of a rectangle""length","width","height","volume","rate","time","perimeter","distance","area",7,1,2,7,4,4,1,2,3,9,5,6,9,1,2(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)-#Z9(1):840B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0:f 822:RA$AN$RIRI1:y MO%3KI%1ı AN$S$(2)J(6)9J(6)9:RIRI1: AN$S$(3)J(7)9J(7)9:RIRI1: % H8H9:906:ZS$(EZ$,RA):7940,(7940)4:9000((A$)32):ZS$A$:9000:AN$AN$A$:C0:835: A$"0"A$"9"(RA$,II,1)"@"A$"@":AN$AN$A$:C0:835:FF$"2":HH9:VV9:1191: A$"0"A$"9"(RA$,II,1)"@"ZS$A$:9000:AN$AN$A$:C0:835: 446J 822:ZS$"Delete":MODE(2):2:420:AN1AN4CHAN:# 4405 906:C5:835N ((MO%1)1)400,402| NX$"redo"(A$(13)AN$"")C0:835: A$"+"A$"-"ZS$A$:9000:AN$AN$A$:C0:835: A$"a"A$"z"ZS$A$:9000:AN$AN$A$:C0:835:1 A$"A"A$"Z"A$3SC%(UN%,KI%,(MO%2)4)0# _3 16368,0:B 390:A$:e 390:A$:A$(127)NX$"redo"k  400:A$"Y"A$"y"A$"N"A$"n"ZS$A$:9000: (7);:410 400:A$(32)415  400:A$"0"A$"9"AN(A$): 420 " ALG.2.4.4 - SJW - V.101589-99007c9600VdEZ$" "vMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$5MO%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)16V20:690: ^MO% !"#$%&'()*+,-,1)0SC%(I,J,5)3:25030NaSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:25030aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030aSC%(I,J,5)2a:e&16368,0:A$0&::(4);"VERIFY ";ZF$S&ZF%0:216,0::(4);"-";ZF$:v' ERROR TRAP FOR DISK FLIP'216,0:822:9965a SCORE TRACKING ROUTINEa " OPEN CDFILE$ FOR READING, 166 BYTES/RECORDaI1NU%aJ15aSC%(I,J&99907&5126,1:5127,30:5128,78:5129,186:5120_&ZF%1ZS$"Check Disk Drive":9972s&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:9100Y)(Y2425);%C(C)(C0)0(C1)6(C2)1(C3)15W%M(X)((X2)(X2))2v%N(I)(((I3)(I3))3)|%& CONTROL-C TRAPPING&((218)(219)256)9220Č822:9225&& TRAP FOR DISK FLIP&216,0:9990&9981  $4848,(4849):-$1,64::SCR.UN.PACE$1,98::SCR.U1.PAC^"$1,118::SCR.U2.PACv,$1,73::SCR.KI.PAC6$:SCR.MO.PAC% * FUNCTION DEFINITIONS *%H(H)(H1)14%I(H)(H1)2%V(V)((V1)8)%X(X)(X74)%Y(02#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:6#n# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)z#Z9(1)#ZS$;#ZP%1ĺ#ZP%0## COMPRESSION BUFFER MANAGER#Z9(1)$0,0:(4849)9230,9240,9250,9260,9270:4352:906:9000:906:AN$"":NX$"":470; (AN$)(RA)485s II(AN$)1:445:H9H91:NX$"redo"A$(13)496 C0:836:NX$"redo"NX$"":H9H8:490 A$(13)AN$""RA(AN$):496 A$(13)AN$""H9H9(H9H8) 491 523$ LP(PL$)1:(PL$,1)"+"PL$(PL$,LP)* ObL(S$):LTCLJ0T$S$:690:XcHLJl7939,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$)15:MODE(1):H(H),V(V)4:ZS$FF$:9100:MODE(2):: DRAW.EXPONENT15:H(H),V(V)4:ZS$FF$:9100:: DRAW.EXPONENTx999:J(2)I:J(3)J(2)(1):999:J(4)2N(I):J(1)J(2)J(3):J(8)J(8)(J(8)J(2))E{J(9)J(4)J(8):J(7)J(1)J(4):NN9:3":1190:HH1:1110&Q1120:HH2=VFF:MODE(1):C0:e`9:ZS$FF$:H(H)4,V(V):9100:j13:ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1):t9:ZS$FF$:((H1)72),V(V):9100:C(C):ZS$FF$:((H1)72),V(V):9100:I$(I)DN$(J)S$(4)S$(I):DN$(4)DN$(J):X1I:X2J;/::eLMODE(2):FF1(FA$):FF$(FA$,FF,1)MC0FF$"@"FF$"#"İ1160:HH2:1110NFF$"@"FF$"2":1190:HH1:1110OFF$"("FF$")"CLC:C5:1160:CCL:HH2:1110PFF$"#"FF$"7:J(II)0:3(S$(9),1)"+"(S$(9),1)"-"ıIS$(9)"+"S$(9):cS$(9)S$:J9$"none":rS$(9)"":S$(9)S$:I19:DN$(I)"":S$(I)""::1001:I13:DN$(I)S$(I):$1001:S$(1)DN$(1)10601.S$(4)"":DN$(4)"":I23:J23:S$"-":SG1:I((1)7)1:I(I7)6(I7)I:NI((1)9)1:l997:LEI:S$SS$(I):1050|J9$"":995999:PI1N(I):J(8)1P(I):PI1010,1015,1020:999:P21N(I):P21400,1409,1420:II45PL$S$(II):520:S$(II)PL$::II61.1)8:Y9(V98)5:: GOTO OLD CURSOR POSITIONM4849,1:9200:NE((RA$,1)"-"):RA(RA$):(RA$,1)"+"(RA$,1)" "RARA1:RA$(RA$,RA)I1NN:J$(I)(J(I)):J(I)0J$(I)"+"J$(I)I: 999:SG$"+":SG1:N(I)1SGZS$"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:V9((7940)8)1:H9((7939)2)197939,I(H9):7940,V(V9):X9(H9851,852:Y58:X2851,852: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:5126,21:5127,52:5128,71:5129,68:5120:: CLEAR.DENOMINATORbRFA$"%":C7:V7:H22:1100:S6:7939,18:7940,120:BOX(136,1)154,Y:T6:BOX(136,1)322,Y:V7:BOX(ZK28,1)H(H),V(V)10:XFA$"/":C7:V7:H22:1100:\Y43:X1I:ZI:15:?G5126,3:5127,129:5128,75:5129,161:5120:nJ5126,7:5127,34:5128,71:5129,68:5120:K7:BOX(328,1)157,50:L5126,3:5127,78:5128,75:5129,161:5120:P5126,21:5127,34:5128,71:5129,49:5120:: CLEAR.NUMERATORAQ,PG%9((MO%4)(TT20))NX$"fd":7399NX$"bk"D822:J4615:B15:MODE(2):5,178:19);:MODE(1):B0:CC(C):ZI01:H(H9),V(V91)ZIH(H9)14,V(V91)ZI::15:DC(C):ZI01:X(X9),Y(Y9)ZIX(X98),Y(Y9)ZįMODE(2):66,178:ZS$"Menu":9100:MODE(1)<15:B0LZA$"":ZA$^ZA$(8)720(ZA$(21))(ZA$(32))730710 LEFT ARROW SELECTEDMO%4TT20NX$"fd":729NX$"bk"822: RIGHT ARROW OR SPACE BAR SELECTED " DRAW ARROWSMO%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).MO%4TT20LT):VV1:LI1VV1"620H::::(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):992:S$(2)S$J$(2):S$(3)S$J$(3):S$(1)S$"@"J$(1):S$(8)S$J$(8)|J9$"none"S$(9)S$:S$(4)S$"#"J$(1)S$:S$(5)S$"@"J$(8)S$:1408}S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(7):S$(5)J$(4)S$J$(9):1408&~S$(9)J$(4)S$:S$(4)S$(9)"#"J$(7)S$:S$(5)J$(4)S$"@"J$(9)S$,<KI%21420999:995:IJ23:J(IJ)ISG::999:J(4)2N(I):J(1)J(2)J(3):J(5)J(2)J(3):J(8)J(8)(J(8)J(2))&J(6)J(5)J(4):J(7)J(4)J(1):J(9)J(8)J(4):NN9:992:S$(2)S$J$(2):S$(3)S$(2):S$(1)ZS$"You can cancel in this problem.":9000q, 7939,6:7940,104:ZS$"What can you cancel:":9000:FA$S$(X11), V914:H926:7939,48:7940,104:ZS$"( )":9000:RA$FA$:914:490, AN$FA$Ĺ7939,6:7940,144:ZS$"Try ("RA$")":9000:3530s- 860:23:S$(I)S$(4)X1I14+ DN$(I)DN$(4)X2I1+ :7939,6:7940,136:ZS$"Can you cancel? (Y/N) ":9000:905:C5:835:410:C0:835:X10(A$"Y"A$"y")V20:S$D$(15):610:900:3550+ X103550-, 844:(A$"n"A$"N")ĺ(7);:7939,6:7940,88:EN* 700:* S$D$(16):V12:610:900:5126,46:5127,36:5128,71:5129,70:5120:850:FA$"("S$(3)")":H24:V6:C0:1100* H24:V8:C0:FA$"("DN$(3)")":1100:H24:V6:ZK(S$(3))2:854:844:X10:X20+ S$D$(6):V12:610:V15:S$D$(7):610:I1100)u :3490[)z 900:844:S$D$(12)D$(13):V12:610:FA$S$(1):V14:H10:1100:900) V17:S$D$(12)D$(14):610:FA$DN$(1):V19:H10:1100:900) FA$S$(1):848:C0:H14:V6:1100:843:FA$DN$(1):849:H14:V8:C0:1100* BLANK AREA ON SCRE2:ZS$"You can cancel:":FA$S$(X11):9000:905:HH92:VV9:C0:1100:860:900:844(f 7939,16:7940,120:ZS$D$(8)":":9000:905:I12:X1IFA$S$(I1):HH92:V15:C0:1100:HH92:ZK(S$(I1)):854)p :I12:X2IFA$DN$(I1):HH92:V17:C0:"("S$(3)")":H24:V6:C0:1100n'S H24:V8:C0:FA$"("DN$(3)")":1100:H24:V6:ZK(S$(3))2:854:844'W X10:X20:S$D$(6):V12:610:V16:S$D$(7):610:I23:S$(I)S$(4)X1I1'X DN$(I)DN$(4)X2I1'\ :X10X203450V(a 7939,6:7940,15":H24:C0:1100:H12:ZK(S$(2))2:854:H24:ZK(DN$(3))2:854&I V8:H12:FA$"("DN$(2)")":C0:1100:H24:FA$"("S$(3)")":C0:1100:856&M MO%3410,3500,3600,3600:#'R S$D$(16):V12:610:900:5126,46:5127,36:5128,71:5129,70:5120:850:FA$O%4ZF%0:ZF$"ALG.2.4":99504%MNX$"fd"2130o%NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110y%O2110%RPG%0:MO%3İ25000%S2000C&H V7:7939,8:7940,V(V):ZS$"Divide:":9000:FA$"("S$(2)")":V6:H12:C0:1100:FA$"("DN$(3)")00:MO%AN:A$"4"ZF%0:MO%0:ZF$"ALG.2.4":9950W$ MO%3SC%(UN%,KI%,(MO%2)4)0$91000:TL10:4849,2:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1$:891:MO%3SC%(UN%,KI%,1)1$>842:844$?TC35:LI1:LJ4$H390:3400:MO%4İ1000 %IM$T2$:875:153#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:VV2:3$7939,6:7940,152:ZS$"Your choice? (1-4) ":9000:440:ZS$A$:90)S$:1429c"S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(6)S$J$(7):S$(5)J$(4)S$J$(9):1429"S$(9)J$(4)S$:S$(4)S$(9)"#"J$(6)S$"@"J$(7)S$:S$(5)J$(4)S$"@"J$(9)S$""MO%42105"MO%0:PG%0:KI%4:912:891#ZS$T1$:876:ZS)J(5):J(7)J(4)J(1):J(9)J(8)J(4):NN9:992:IJ23:S$(IJ)S$J$(IJ)::(J(5))1J$(5)(J$(5),1)!S$(1)S$"@"J$(5)S$J$(1):S$(2)S$J$(2):S$(3)S$J$(3):S$(8)S$J$(8) "J9$"none"S$(9)S$:S$(4)S$"#"J$(5)S$"@"J$(1)S$:S$(5)S$"@"J$(8"@"J$(7)S$:S$(5)J$(4)S$"@"J$(9)S$0 c IJ24:999:995:J(IJ)ISG::J(2)J(3)1420 J(4)2N((J(4))):IJ23:J(IJ)J(8)J(IJ)J(IJ)(1) :J(1)J(2)J(3):J(5)J(2)J(3):J(8)J(8)((J(8)J(2))J(3)):J(8)J(8)(J(8)9)3g!J(6)J(4S$"@"J$(5)S$J$(1):S$(8)S$J$(8)~J9$"none"S$(9)S$:S$(4)S$"#"J$(5)S$"@"J$(1)S$:S$(5)S$"@"J$(8)S$:1419S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(6)S$J$(7):S$(5)J$(4)S$J$(9):1419* S$(9)J$(4)S$:S$(4)S$(9)"#"J$(6)S$ȹ7939,16:7940,136:ZS$D$(8)":":9000:905:I12:X1IFA$S$(I1):V17:HH92:C0:1100:ZK(FA$):HH92:854- I:I12:X2IFA$DN$(I1):V19:HH92:C0:1100- I:7939,6:7940,144:ZS$(EZ$,20):9000:300:35905. 844:S$D$(12)D$(13):V12:610:RA$S$(1):914:V912:H930:490:RA$AN$3570. 7939,16:7940,104:ZS$D$(8)" ":9000:905:I1RA:(S$(1),I,1)"@"ZS$(S$(1),I,1):7939,I(H9):9000:3565. HH9:VV9:FF$"2":1191. H9H91::ZS$".":9000>/ V17:S$"And the"D$(14):6" ALG.2.6.4 - SJW - V.101589-99007c9600VdEZ$" "vMODE(1)::15:B0:2000A$(13)A$""AN$AN$A$:AN$RA$RIRI1:RA(AN$):479477AN$RA$RIRI1:478 ,RW(6(1))1:T$RW$(RW):/0123456789:;<=>?@ABCDEFGH:25030M9aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030^9aSC%(I,J,5)2f9a:l9e8&::(4);"VERIFY ";ZF$A8&ZF%0:216,0::(4);"-";ZF$:d8' ERROR TRAP FOR DISK FLIPz8'216,0:822:99658a SCORE TRACKING ROUTINE8aI1NU%8aJ148aSC%(I,J,1)0SC%(I,J,5)3:25030 9aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)21:5127,30:5128,78:5129,186:5120M7&ZF%1ZS$"Check Disk Drive":9972a7&ZS$"Flip Disk"7&:MODE(2):12:B0:H(21(ZS$))4,55:91007&ZS$"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:91008&16368,0:A$(C7)7&6%M(X)((X2)(X2))2E6%N(I)(((I3)(I3))3)d6%P(I)(((I5)(I5))5)j6%6& CONTROL-C TRAPPING6&((218)(219)256)9220Č822:92256&6& TRAP FOR DISK FLIP6&216,0:99906&99816&9990%7&5126,R.KI.PAC56$:SCR.MO.PAC55@$1,137::SCR.U3.PACU5% * FUNCTION DEFINITIONS *i5%H(H)(H1)14|5%I(H)(H1)25%V(V)((V1)8)5%X(X)(X74)5%Y(Y)(Y2425) 6%C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9Z9(1)4#ZS$; 4#ZP%1ĺ*4#ZP%004#S4# COMPRESSION BUFFER MANAGER_4#Z9(1)4$0,0:(4849)9230,9240,9250,9260,9270,9280:43524 $4848,(4849):4$1,64::SCR.UN.PAC4$1,98::SCR.U1.PAC4"$1,118::SCR.U2.PAC 5,$1,73::SC:7940,152:(7);:ZS$D$(17)NA$".":9000:3690;3f300F3j700:3(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)3-#Z9(1):84032#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:3#3# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2) 4#::RI2İ839:300:3690$233680a2BRI0:AN$(1)S$(1):AN$(2)DN$(1):15:BOX(156,1)175,1142CV914:IJ12:H915:RA$AN$(IJ):914:490:V916:2`FA$AN$(1):848:C0:H14:V6:1100:843:FA$AN$(2):849:H14:V8:C0:110023e822:839:RI2Ĺ7939,4(JJ1)$1$::V19:S$D$(10):610<1&AN$(1)S$(M(X1)2)U1'AN$(2)DN$(M(X2)2)d1)X1036501*RI0:7939,32:7940,104:ZS$"( )":9000:7939,32:7940,120:9000:15:BOX(70,1)225,114:V914:H9182.RI0:HH12:H918:RA$AN$(HH):914:490:V9164:V6:1100:843:FA$DN$(1):849:H14:V8:C0:1100Q0 BLANK AREA ON BOARD\0700:0RI0:TC37:LI1:LJ3:844:V11:S$D$(9):610:PG%1MO%3İ3500X10:X20:IJ12:JJ12:S$(IJ1)DN$(JJ1)X1IJ:X2JJ:36201AN$(1)S$(IJ1):AN$(2)DN$10:RA$DN$(1):914:H928:V917:RI0:490:RA$AN$İ300:3580/ 7939,16:7940,144:ZS$D$(8)" ":9000:905:I1RA:7939,I(H9):(RA$,I,1)"@"ZS$(RA$,I,1):9000:3579/ HH9:VV9:FF$"2":1191/ H9H91::ZS$".":900050 FA$S$(1):848:C0:H1RW4T$T$CM$NA$EX$U 5MO%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)1 6KI%2KI%3S$T$:7939,4:7940,136:ZS$(EZ$,15):9000:V19:LJ3:LI1:TC16:610: 8KI%4MO%3V14:690: >V20:690: ^MO%3SC%(UN%,KI%,(MO%2)4)0 _ 16368,0:$ 390:A$:G 390:A$:A$(127)NX$"redo"M e 400:A$(32)415k  400:A$LO$A$HI$LO$"1":AN(A$): (7);:420 NX$"redo"A$(13)C0:836: 436 906:C5:836! ((MO%3)((MO%1)(KI120: L<P5126,5:5127,33:5128,73:5129,85:5120:rk7969,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$1:X(X9),Y(Y9)ZIX(X98),Y(Y9)ZI:ZI:15:xEC(C):ZI01:H(H),V(V)7ZIH(H)14,V(V)7ZI::15:F(AN$)0ıGZS$" ":906:9000:H5126,3:5127,95:5128,76:5129,110:5120:J5126,3:5127,95:5128,76:5129,165:5bk"822:G615:B15:MODE(2):5,178:19);:MODE(1):B0::C(1):I03:BOX(245I2,136M(I)2)9,31::5126,3:5127,33:5128,35:5129,165:5120:CC(C):ZI01:H(H9),V(V91)ZIH(H9)14,V(V91)ZI::15:4DC(C):ZI05:B0ZA$"":ZA$*ZA$(8)720K(ZA$(21))(ZA$(32))730T710n LEFT ARROW SELECTEDMO%4TT20NX$"fd":729NX$"bk"822: RIGHT ARROW OR SPACE BAR SELECTEDPG%9((MO%4)(TT20))NX$"fd":739NX$"):18,178:9100:MODE(1):PG%9įMODE(2):90,178:9100:MODE(1):704|ZS$"Problems":MODE(2):68,178:9100:MODE(1)MO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)MO%4TT20įMODE(2):66,178:ZS$"Menu":9100:MODE(1)1::::(7);"WORD TOO LONG":nL(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%4704HZS$"Menu":MODE(2L):+bL(S$):LTCLJ0T$S$:690:4cHLJnl7939,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$RA(AN$)!4918RA$AN$RIRI1:FMO%3ı(7);:C0:835:7939,I(H8):7940,V(V9):ZS$(EZ$,14):9000:7939,I(H8):7940,V(V9):ZS$RA$:9000:QR((S$,1))32:LS(S$):S$(QR)(S$,LS1):PL(PL$)1:PL$(PL$,PCT(AN$)1:CT$(RA$,CT,1):CT$")"CT$"("Ĺ7939,I(H9):7940,V(V9):ZS$CT$:9000:H9H91:AN$AN$CT$AN$RA$İ435:NX$"redo"(A$(13)AN$"")C0:835:A$(13)RA(AN$)NX$"redo"NX$"":H1H9:H9H8:906:ZS$(EZ$,10):9000:906:490"")NX$"redo"C0:837:NX$"redo"NX$"":838:906:472bA$(13)AN$""RA(AN$):477k275t473MO%2ĺ(7);:C0:837:838:FA$RA$:FL%2:1100H8H9:906:ZS$(EZ$,RA):9000:906:AN$"":NX$"":470(AN$)(RA)497l"+")C0:837:C2:7941,(A$):7936:HH1:=(7);:460822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0:MODE(1):RARA1:AN$"":470(AN$)(RA)278=C5:837:460:(A$(13)AN$)"@"ZS$A$:9000:C0:835:) 446B ((MO%1)1)400,402] NX$"redo"A$(13)ı A$"0"A$"9"NN(A$):C0:837:7941,(A$):7936:HH1: A$LT$((A$)32)LT$A$LT$:LEL1:C0:837:7941,(A$):7936:HH1:-(A$"="A$"-"A$:835:4 A$"+"A$"-"ZS$A$:9000:C0:835:a A$"a"A$"z"ZS$A$:9000:C0:835: A$"A"A$"Z"A$((A$)32):ZS$A$:9000:C0:835: A$"0"A$"9"(RA$,II,1)"@"A$"@":C0:835:FF$"2":1190: A$"0"A$"9"(RA$,II,1%4)))1400,402:A$"X"A$"x"a A$"0"A$"9"AN$AN$A$:ZS$A$:C0:836:9000:H9H91: (A$"-"A$"+"A$"x")AN$AN$A$:ZS$A$:C0:836:9000:H9H91:435 428 420:AN1AN4ı 440 ((MO%1)1)400,402 NX$"redo"C0" ":}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:H9(7939)21:V9(7940)81:[HH9:VV9:7939,I(H):7940,V(V):X9(H91.1)8:Y9(V98)5:: GOTO.OLD.CURSOR.POSITIONo4849,1:9200:RA$"":IM1(S$):(S$,IM,1)" "RA$RA$(S$,IM,1):RA(RA$)2:T((1)4)1:X(T)1982X(T)1:T(K)T::,I1NN:J$(IJ23:J(IJ)J(8)J(IJ)J(IJ)(1)|(:J(1)J(2)J(3):J(5)J(2)J(3):J(8)J(8)((J(8)J(2))J(3)):J(8)J(8)(J(8)9)3(J(6)J(4)J(5):J(7)J(4)J(1):J(9)J(8)J(4):NN9:992:IJ23:S$(IJ)S$J$(IJ)::(J(5))1J$(5)(J$(5),1);)S$(1)S$"@"J$419\'S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(6)S$J$(7):S$(5)J$(4)S$J$(9):1419'S$(9)J$(4)S$:S$(4)S$(9)"#"J$(6)S$"@"J$(7)S$:S$(5)J$(4)S$"@"J$(9)S$''IJ24:999:995:J(IJ)ISG::J(2)J(3)1420&(J(4)2N((J(4))):J(3):J(5)J(2)J(3):J(8)J(8)(J(8)J(2))&J(6)J(5)J(4):J(7)J(4)J(1):J(9)J(8)J(4):NN9:992:S$(2)S$J$(2):S$(3)S$(2):S$(1)S$"@"J$(5)S$J$(1):S$(8)S$J$(8)'J9$"none"S$(9)S$:S$(4)S$"#"J$(5)S$"@"J$(1)S$:S$(5)S$"@"J$(8)S$:1S$"@"J$(8)S$:1408e%}S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(7):S$(5)J$(4)S$J$(9):1408%~S$(9)J$(4)S$:S$(4)S$(9)"#"J$(7)S$:S$(5)J$(4)S$"@"J$(9)S$%%KI%21420,&999:995:IJ23:J(IJ)ISG::999:J(4)2N(I):J(1)J(2)1) $`$x999:J(2)I:J(3)J(2)(1):999:J(4)2N(I):J(1)J(2)J(3):J(8)J(8)(J(8)J(2))${J(9)J(4)J(8):J(7)J(1)J(4):NN9:992:S$(2)S$J$(2):S$(3)S$J$(3):S$(1)S$"@"J$(1):S$(8)S$J$(8)%|J9$"none"S$(9)S$:S$(4)S$"#"J$(1)S$:S$(5)2):((H1)72),V(V):9100:N#MODE(1):7939,I(H):7940,V(V):9000:X#1192#15:MODE(1):H(H),V(V)4:ZS$FF$:9100:MODE(2):: DRAW.EXPONENT#15:MODE(1):H(H),V(V)4:ZS$FF$:9100: DRAW.EXPONENT$MODE(2):FL%1įMODE(00:3"aMODE(1):7939,I(H):7940,V(V):9000:T"bFA$"=":V7:H22:C0:1100:r"cFA$"=":C0:FL%2:1100:x"d"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įMODE(FL%0):11105!PFF$"@"FF$"2":1190:HH1:1110r!QFF$"("FF$")"CLC:C5:1160:CCL:HH1(FL%0):1110!RFF$"#"FF$"3":1190:HH1:1110!S1120:HH1(FL%0)!VFF:MODE(1):C0:FL%0:"`9:ZS$FF$:FL%0įMODE(2):H(H)4,V(V):91(2)3:d BC$(5,1)"A = lw":C$(5,2)"A = "J$(1)" x "J$(2):C$(5,3)"A = "J$(9):X(1)3:X(2)3: L(FL%1)((FA$)16)įMODE(1):1103 M(FL%2)įMODE(1):1103 NMODE(2):FL%0!OFF1(FA$):FF$(FA$,FF,1):C0FF$"@"FF$"#"İ1160:HH1()"P = "J$(1)" + "J$(2)" + "J$(3):C$(2,3)"P = "J$(7):X(1)3:8C$(3,1)"V = lwh":C$(3,2)"V = "J$(1)" x "J$(2)" x "J$(3):C$(3,3)"V = "J$(8):X(1)3:X(2)4: =C$(4,1)"d = rt":C$(4,2)"d = "J$(1)" x "J$(2):C$(4,3)"d = "J$(9):X(1)3:X8)J(9)J(3):J(7)J(1)J(2)J(3):NN9:992:PR1070,1075,1080,1085,1090:.C$(1,1)"P = 2l + 2w":C$(1,2)"P = 2("J$(1)") + 2("J$(2)")":C$(1,3)"P = "J$(4)" + "J$(5):C$(1,4)"P = "J$(6):X(1)4:X(2)3:F3X(2)2:C$(2,1)"P = S1 + S2 + S3":C$(2,2S$(9)S$:m'N95:999:PRI:N960:II13:999:J(II)I::J1J(1):J2J(2):J3J(3):PR21065(((J1(J2J3))(J2(J1J3)))(J3(J1J2))1066)(J2J1)PR21063*J(6)0:II45:J(II)2J(II3):J(6)J(6)J(II)::J(9)J(1)J(2)K+J(":995g999:PI1N(I):J(8)1P(I):PI1010,1015,1020:999:P21N(I):P21400,1409,1420:II45PL$S$(II):520:S$(II)PL$::II67:J(II)0:(S$(9),1)"+"(S$(9),1)"-"ıS$(9)"+"S$(9):S$(9)S$:J9$"none":S$(9)"": I)(J(I)):KI%4J(I)0J$(I)"+"J$(I)5I:b999:SG$"+":SG1:N(I)1SG$"-":SG1hI((1)7)1:I(I7)6(I7)I:I((1)(((KI%4)9)(KI%4)N9))1:997:LEI:L1LE:S$SS$(I):LT$S$:KI%1050,1025,1050,1063J9$"(5)S$J$(1):S$(2)S$J$(2):S$(3)S$J$(3):S$(8)S$J$(8))J9$"none"S$(9)S$:S$(4)S$"#"J$(5)S$"@"J$(1)S$:S$(5)S$"@"J$(8)S$:1429)S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(6)S$J$(7):S$(5)J$(4)S$J$(9):1429?*S$(9)J$(4)S$:S$(4)S$(9)"#"J$(6)S$"@"J$(7)S$:S$(5)J$(4)S$"@"J$(9)S$E*U*MO%42105u*MO%0:PG%0:KI%4:912:891*ZS$T1$:876:ZS$T2$:875:15*H14:V6(2KI%):WD$TY$(KI%)* V6C+ LJ0:TC34:S$WD$:610:VV2:S$"Mode Selection":610:V11:(((I5)(I5))5)8%48& CONTROL-C TRAPPING]8&((218)(219)256)9220Č822:9225c8&8& TRAP FOR DISK FLIP8&216,0:99908&99818&99908&5126,1:5127,30:5128,78:5129,186:51208&ZF%1ZS$"Check Disk Drive":99729&S *7%H(H)(H1)14,7%I(H)(H1)2B7%V(V)((V1)8)V7%X(X)(X74)l7%Y(Y)(Y2425)7%C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)77%M(X)((X2)(X2))27%N(I)(((I3)(I3))3)8%P(I)R6#Z9(1)E6$0,0:(4849)9230,9240,9250,9260,9270,9280:4352Y6 $4848,(4849):q6$1,64::SCR.UN.PAC6$1,98::SCR.U1.PAC6"$1,118::SCR.U2.PAC6,$1,73::SCR.KI.PAC66$:SCR.MO.PAC6@$1,137::SCR.U3.PAC7% * FUNCTION DEFINITIONAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)A5-#Z9(1):840o52#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:u5#5# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)5#Z9(1)5#ZS$;5#ZP%1ĺ5#ZP%05#6# COMPRESSION BUFFER MANAGE939,4:7940,V(V):ZS$D$(13):9000:7939,38:7940,V(V):ZS$(C$(PR,X(1)),4):9000:905:S$(C$(PR,X(1)),(C$(PR,X(1)))4):9154`RI0:490:RI1İ300:36904a7939,4:7940,V(V92):ZS$"The correct answer is: "RA$:9000:(7);4j700:05(# DRV(V):ZS$S$:9000:VV1:~3PR2āII13:S$"Side "(MZ$(II),2,1)" = "J$(II):7939,28:7940,V(V):ZS$S$:9000:VV1:3$PG%1İ3503.V13:LJ3:TC35:7939,4:7940,V(V):ZS$D$(10):9000:7939,38:7940,V(V):ZS$C$(PR,1):PR1VV14VV18:77939,4:7940,V(V):ZS$D$(13):9000:7939,38:7940,V(V):ZS$(C$(PR,X(1)),4):9000:905:S$(C$(PR,X(1)),(C$(PR,X(1)))4):9152 RI0:490:RI1İ840:3002700:3RI0:VV2:PR2āII2X(2):S$ZZ$(C(PR,II))" = "J$(II1):510:7939,28:7940,):ZS$C$(PR,1):9000:PR1VV11 II2X(1)1:VV2:7939,4:7940,V(V):ZS$D$(9II):9000:7939,38:7940,V(V):ZS$(C$(PR,II),4):9000:905:S$(C$(PR,II),(C$(PR,II))4)1 915:490::X(1)4VV2:7939,4:7940,V(V):ZS$D$(12):90002 VV2:):S$ZZ$(C(PR,II))" = "J$(II1):510:7939,28:7940,V(V):ZS$S$:9000:VV1:0 PR2āII13:S$"Side "(MZ$(II),2,1)" = "J$(II):7939,28:7940,V(V):ZS$S$:9000:VV1:#1 V13:LJ3:TC35:7939,4:7940,V(V):ZS$D$(10):9000:7939,38:7940,V(VV(V):ZS$D$(II9):9000:7939,38:7940,V(V):ZS$C$(PR,II):9000:900::X(1)4VV2:7939,4:7940,V(V):ZS$D$(12):9000/f VV2:7939,4:7940,V(V):ZS$D$(13):9000:7939,38:7940,V(V):ZS$C$(PR,X(1)):9000/ 700:R0 RI0:VV2:PR2āII2X(20:VV1:n.T PR2āII13:S$"Side "(MZ$(II),2,1)" = "J$(II):7939,28:7940,V(V):ZS$S$:9000:VV1:.W V13:LJ3:TC35:7939,4:7940,V(V):ZS$D$(10):9000:7939,38:7940,V(V):ZS$C$(PR,1):9000:PR1VV1}/\ II2X(1)1:VV2:7939,4:7940,O2110!-RPG%0:MO%3İ25000+-S20005-H C4u-I V6:S$"Find the "C$(PR,5)":":LJ4:TC35:610:PR3VV1-M MO%3410,3500,3600,3600:-R C4M1 .S VV2:PR2āII2X(2):S$ZZ$(C(PR,II))" = "J$(II1):510:7939,28:7940,V(V):ZS$S$:9002$:876:ZS$WD$:875:MO%4PG%1D,:891:MO%3SC%(UN%,KI%,1)1M,>822[,@842:848o,CTC35:LI1:LJ4,H390:3400:MO%4İ1000,IMO%4ZF%1:ZF$"ALG.2.6":9950,MNX$"fd"2130,NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110 -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.6":9950+ MO%3SC%(UN%,KI%,(MO%2)4)0#,91000:TL10:4849,3:9200:ZS$TZS$"Flip Disk"F9&:MODE(2):12:B0:H(21(ZS$))4,55:91009&ZS$"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:91009&16368,0:A$9&::(4);"VERIFY ";ZF$9&ZF%0:216,0::(4);"-";ZF$::' ERROR TRAP FOR DISK FLIP*:'216,0:822:9965H:a SCORE TRACKING ROUTINEU:aI1NU%`:aJ14:aSC%(I,J,1)0SC%(I,J,5)3:25030:aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:25030:aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030;a:MODE(1):704DZS$"Problems":MODE(2):68,178:9100:MODE(1)MO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)MO%4TT20įMODE(2):66,178:ZS$"Menu":9100:MODE(1)15:B0ZA$"":ZA$ZA$(8)720(ZA$(21)2):7939,I(H):7940,V(V):ZS$T$:PA1PA0:9000:HZP%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:91007939,I(H):7940,V(V):(S$)TCZS$S$:9000:905:ivLTTC11: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":6L(T$):H20(L0(AN$)(RA)485QII(AN$)1:445:H9H91:NX$"redo"A$(13)495|C0:836:NX$"redo"NX$"":H9H8:490A$(13)AN$""RA(AN$):C0:835491PL(PL$)1:PL$(PL$,PL):bL(S$):LTCLJ0T$S$:690:cHLJ6ldo"NX$"":250:4807A$(13)AN$""IIRA:484NAN$AN$A$:H9H91hIIII1:II(RA)481FL%0:AN$RA$MO%2488(7);:HH7:VV9:C0:FL%2:FA$RA$:1100AN$RA$RIRI1H8H9:906:ZS$(EZ$,RA):9000:AN$"":NX$"":47"="A$"-"A$"+")C0:837:C2:7941,(A$):7936:HH1:K (7);:460 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: FL%1:470:906:ZS$(EZ$,(RA$)):9000:AN$"":II1445:NX$"re"9"(RA$,II,1)"@"ZS$A$:9000:C0:835:7 446P ((MO%1)1)400,402k NX$"redo"A$(13)ı A$"0"A$"9"NN(A$):C0:837:7941,(A$):7936:HH1: A$LT$((A$)32)LT$A$LT$:LEL1:C0:837:7941,(A$):7936:HH1:; (A$)AN$"")C0:835:B A$"+"A$"-"ZS$A$:9000:C0:835:o A$"a"A$"z"ZS$A$:9000:C0:835: A$"A"A$"Z"A$((A$)32):ZS$A$:9000:C0:835: A$"0"A$"9"(RA$,II,1)"@"A$"@":C0:835:FF$"2":1190:. A$"0"A$6368,0: 390:A$:< 390:A$:A$(127)NX$"redo"B Z 400:A$(32)415`  400:A$LO$A$HI$LO$"1":AN(A$): (7);:420 420:AN1AN4ı 440 906:C5:835 ((MO%1)1)400,402 NX$"redo"(A$(13CM$NA$EX$J 5MO%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)1 6KI%2KI%3S$T$:7939,4:7940,136:ZS$(EZ$,15):9000:V19:LJ3:LI1:TC16:610: 8KI%4MO%3V14:690: >V20:690: ^MO%3SC%(UN%,KI%,(MO%2)4)0 _ 1" ALG.2.6.3 - SJW - V.101589-99007c9600VdEZ$" "vMODE(1)::15:B0:2000ZS$(EZ$,(RA$)):HH7:VV9:905:906:9000:(RA$,2,1)"@"İ906:7940,(7940)4:9000 ,RW(6(1))1:T$RW$(RW):RW4T$T$JKLMNOPQRSTUVWXYZ[\]^_`abSC%(I,J,5)2;a:;e)(ZA$(32))7307106 LEFT ARROW SELECTEDUMO%4TT20NX$"fd":729bNX$"bk"m822: RIGHT ARROW OR SPACE BAR SELECTEDPG%9((MO%4)(TT20))NX$"fd":739NX$"bk"822:615:B15:MODE(2):5,178:19);:MODE(1):B0:?:5126,3:5127,33:5128,34:5129,165:5120:p<5126,38:5127,33:5128,75:5129,165:5120:CC(C):ZI01:H(H9),V(V91)ZIH(H9)14,V(V91)ZI::15:DC(C):ZI01:X(X9),Y(Y9)ZIX(X98),Y(Y9)ZI:ZI:15:AES$(5)J$(4)S$J$(9):1408d"~S$(9)J$(4)S$:S$(4)S$(9)"#"J$(7)S$:S$(5)J$(4)S$"@"J$(9)S$j"z"KI%21420"999:995:IJ23:J(IJ)ISG::999:J(4)2N(I):J(1)J(2)J(3):J(5)J(2)J(3):J(8)J(8)(J(8)J(2))d#J(6)J(5)J(4):J(7)J(4)JJ(8)J(8)(J(8)J(2))!{J(9)J(4)J(8):J(7)J(1)J(4):NN9:992:S$(2)S$J$(2):S$(3)S$J$(3):S$(1)S$"@"J$(1):S$(8)S$J$(8)!|J9$"none"S$(9)S$:S$(4)S$"#"J$(1)S$:S$(5)S$"@"J$(8)S$:1408"}S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(7):;: 1192\ 15:MODE(1):H(H),V(V)4:ZS$FF$:9100:MODE(2):: DRAW.EXPONENT 15:MODE(1):H(H),V(V)4:ZS$FF$:9100: DRAW.EXPONENT MODE(2):FL%1įMODE(1) !x999:J(2)I:J(3)J(2)(1):999:J(4)2N(I):J(1)J(2)J(3):L%2:1100:Ij13:ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1):vt9:ZS$FF$:((H1)72),V(V):9100:C(C):ZS$FF$:FL%0įMODE(2):((H1)72),V(V):9100:MODE(1):FL%1Ĺ7939,I(H):7940,V(V):9000: I(H),V(V):FF$FL%0):11105RFF$"#"FF$"3":1190:HH1:1110MS1120:HH1(FL%0)jVFF: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:bFA$"=":V7:H22:C0:1100:cFA$"=":C0:FL(FL%1)((FA$)16)įMODE(1):1103DM(FL%2)įMODE(1):1103WNMODE(2):FL%0OFF1(FA$):FF$(FA$,FF,1):C0FF$"@"FF$"#"İ1160:HH1(FL%0):1110PFF$"@"FF$"2":1190:HH1:1110QFF$"("FF$")"CLC:C5:1160:CCL:HH1(1):J(1)J(5)(DN$(5)):J(1)01052PJ(3)J(2)J(1):J(3)(J(2)J(1))1059 FRJ(1)11:J(4)(J(2)FR):J(5)(J(1)FR)!(J(4)(J(2)FR))(J(5)(J(1)FR))1059":J(4)J(2):J(5)J(1)#NN5:992:I45:PL$J$(I):520:J$(I)PL$::'()"+"(S$(9),1)"-"ı.S$(9)"+"S$(9):HS$(9)S$:J9$"none":WS$(9)"":fS$(9)S$:l1001:I13:DN$(I)S$(I)::DN$(4)J$(1):DN$(5)J$(5)1001:(S$(1)DN$(1))(S$(3)DN$(2))1052%S$(4)J$(1):S$(5)J$(5):J(2)(DN$(4))J((KI%4)N9))1:Q997:LEI:L1LE:S$SS$(I):LT$S$:KI%1050,1025,1050,1063aJ9$"":995999:PI1N(I):J(8)1P(I):PI1010,1015,1020:999:P21N(I):P21400,1409,1420:II45PL$S$(II):520:S$(II)PL$::II67:J(II)0:(S$(9),11:RA$(RA$,RA)5T((1)4)1:X(T)1982KX(T)1:T(K)T::I1NN:J$(I)(J(I)):KI%4J(I)0J$(I)"+"J$(I)I:999:SG$"+":SG1:N(I)1SG$"-":SG1I((1)7)1:I(I7)6(I7)I:I((1)(((KI%4)9)15:MODE(2):39,177:15:9100:MODE(1)::B0:DV9V:H9H:HH9:VV9:7939,I(H):7940,V(V):X9(H91.1)8:Y9(V98)5:: GOTO.OLD.CURSOR.POSITION4849,1:9200:917NE((RA$,1)"-"):RA(RA$):(RA$,1)"+"(RA$,1)" "RARA8: zS{15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%):893c|ZS$ZS$" "}9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897ZS$ZS$" "(PG%)9000:4822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):4X15:BOX(42,1)H(H),V(V)2:BOX(42,1)H(H6),V(V)2:iYZS$"/":15:H(29)2,V(V):9100:\5126,3:5127,110:5128,77:5129,165:5120:k7969,22:7939,45(ZS$):7940,17:9000:7969,8:l7969,22:7939,45(ZS$):7940,5:9000:7969,C(C):ZI01:H(H),V(V)7ZIH(H)14,V(V)7ZI::15:GLjS7:BOX(84,1)H(H),V(V)2:T15:BOX(140,1)H(H),V(V)2:UMODE(1):ZS$"%":15:H(29)2,V(V):9100:WC(C):I03:BOX(56I2,32M(I)2)413I,84M(I)::?(1):J(9)J(8)J(4):NN9:992:S$(2)S$J$(2):S$(3)S$(2):S$(1)S$"@"J$(5)S$J$(1):S$(8)S$J$(8)#J9$"none"S$(9)S$:S$(4)S$"#"J$(5)S$"@"J$(1)S$:S$(5)S$"@"J$(8)S$:1419$S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(6)S$J$(7):S$(5)J$(4)S$J$(9):1419h$S$(9)J$(4)S$:S$(4)S$(9)"#"J$(6)S$"@"J$(7)S$:S$(5)J$(4)S$"@"J$(9)S$n$$IJ24:999:995:J(IJ)ISG::J(2)J(3)1420$J(4)2N((J(4))):IJ23:J(IJ)J(8)J(IJ)J(IJ)(1)3%:J(1)J(2)J(3):J(5)J(2)J(3):26:H9H7:RA$NM$:914:480:V915:H9H7:RA$DN$:914:480O2 RI2İ300:32902 7939,4:7940,145:ZS$D$(13):9000:15:BOX(LL147,1)H(27)7,V(19)2 V918:H727:H9H7:RA$NM$:906:FA$RA$:FL%2:C0:1100 3 V920:H9H7:906:RA$DN$:FA$RA$:FL%2:T1 DN$DN$(1):NM$S$(1):X10:X20:IJ12:JJ12:S$(IJ1)DN$(JJ1)X1IJ:X2JJl1 ::X10X2032701 I12:X1INM$S$(I1)1 X2IDN$DN$(I1)1 1 LL(NM$):L1(DN$):L1LLLLL1:2 15:BOX(LL147,1)H(26)7,V(14)2:V913:H7IDN$DN$(I1)0S :LL5j0X 15:BOX(LL147,1)H(25)7,V(19)2:V918:H725:H9H7:RA$NM$:914:4800l V920:H9H7:RA$DN$:914:RI0:480:RI1İ3000v 700:0 C3M3&41 RI0:TC19:LJ20:LI1:V6:S$D$(1):610:S$D$(2):VV2:610:PG%1İ350$DN$(3)/: 480:5126,38:5127,115:5128,75:5129,165:5120:7939,(LJ1)2:7940,120:ZS$D$(13):9000:NM$S$(1):DN$DN$(1):LL10/D X10:X20:IJ12:JJ12:S$(IJ1)DN$(JJ1)X1IJ:X2JJ/I ::X10X203160/J I12:X1INM$S$(I1)0N X2):610:VV3:H25:V4V:856:857.& RA$S$(2):RA3:H925:H725:V912:480:V914:H9H7:RA$DN$(2):480:V912:H931:RA$DN$(3):H7H9:480:V914:H9H7:RA$S$(3):480 /0 S$D$(9):V17:610:C5:855:V13:853:H9H7:V912:RA$S$(3):480:C0:855:H9H7:V914:RA)- X2IDN$DN$(I1)0- :LL(NM$):LL5j- 15:BOX(LL14,1)H(25)7,V(19):7939,48:7940,136- FL%2:H25:V18:FA$NM$:C0:1100- FL%2:H25:V20:FA$DN$:C0:1100- 700:- C3M2". TC19:S$D$(7):LJ20:LI1:V6:610:VV2:S$D$(8S$DN$(3):9000, 5126,38:5127,115:5128,75:5129,165:5120:C0:855:7939,(LJ1)2:7940,120:ZS$D$(13):9000:NM$S$(1):DN$DN$(1):LL10, X10:X20:IJ12:JJ12:S$(IJ1)DN$(JJ1)X1IJ:X2JJ, ::X10X203078- I12:X1INM$S$(I1VV2:S$D$(8):610:VV2:7939,48:7940,V(V):ZS$S$(2)" "DN$(3):9000:7939,48:7940,V(V2):ZS$DN$(2)" "S$(3):9000, VV1:H25:V9V:856:857:S$D$(9):VV4:610:C5:855:900:V13:853:7939,60:7940,88:ZS$S$(3):9000:7939,60:7940,104:Z"Divide:":9000:FA$S$(2):H7:V9:C0:1100:H7:VV1:851:FA$DN$(2):H7:VV1:C0:1100:H5:VV1:852* FA$DN$(3):H7:VV1:C0:1100:H7:VV1:851:FA$S$(3):H7:VV1:C0:1100* MO%3010,3100,3200,3200:+ TC19:S$D$(7):LJ20:LI1:V6:610:22)?826:828&)CTC35:LI1:LJ4B)H390:3000:MO%4İ1000g)IMO%4ZF%1:ZF$"ALG.2.6":9950{)MNX$"fd"2130)NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110)O2110)RPG%0:MO%3İ25000)S2000k* V6:7939,4:7940,V(V):ZS$39,6:7940,152:ZS$"Your choice? (1-4) ":9000:440:ZS$A$:9000:MO%AN:A$"4"ZF%1:MO%0:ZF$"ALG.2.6":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%,1)1)>8MO%42105,'MO%0:PG%0:KI%3:912:891O'ZS$T1$:876:ZS$T2$:875:15q'H14:V6(2KI%):WD$TY$(KI%)y' 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:q(79S$(9)S$:S$(4)S$"#"J$(5)S$"@"J$(1)S$:S$(5)S$"@"J$(8)S$:1429&S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(6)S$J$(7):S$(5)J$(4)S$J$(9):1429&S$(9)J$(4)S$:S$(4)S$(9)"#"J$(6)S$"@"J$(7)S$:S$(5)J$(4)S$"@"J$(9)S$& 'J(8)J(8)((J(8)J(2))J(3)):J(8)J(8)(J(8)9)3%J(6)J(4)J(5):J(7)J(4)J(1):J(9)J(8)J(4):NN9:992:IJ23:S$(IJ)S$J$(IJ)::(J(5))1J$(5)(J$(5),1)%S$(1)S$"@"J$(5)S$J$(1):S$(2)S$J$(2):S$(3)S$J$(3):S$(8)S$J$(8)J&J9$"none"C0:11003 700:P3(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)a3-#Z9(1):84032#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:3#3# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)3#Z9(1)3#ZS$;3#ZP%1ĺ3#ZP%04##4# COMPRESSION BUFFER MANAGER/4#Z9(1)j4$0,0:(4849)9230,9240,9250,9260,9270,9280,9290:4352~4 $4848,(4849):4$1,64::SCR.UN.PAC4$1,98::SCR.U1.PAC4"$1,118::SCR.U2.PAC4,$1,73::SCR.KI.PAC46$:SCR.MO.PAC 5@$1,137::SC0:837:NX$"redo"NX$"":838:906:472OA$(13)AN$""RA(AN$):477X275a473MO%2ĺ(7);:C0:837:838:FA$RA$:C0:1100MODE(1):822:RA$AN$RIRI1:MO%3KI%1ıAN$S$(2)J(6)9J(6)9:RIRI1:!AN$C2:FF$A$:1120:HH2:* (7);:460 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: MODE(2):RARA1:AN$"":470 (AN$)(RA)278*C5:837:460:(A$(13)AN$"")NX$"redo"CA$:9000:C0:835: 446> FL%0:((MO%1)1)400,402Y NX$"redo"A$(13)ı A$"0"A$"9"NN(A$):C0:837:FF$A$:1120:HH2: A$LT$((A$)32)LT$A$LT$:LEL1:C0:837:FF$A$:1120:HH2: (A$"="A$"-"A$"+")C0:837:A$"+"A$"-"ZS$A$:9000:C0:835:W A$"a"A$"z"ZS$A$:9000:C0:835: A$"A"A$"Z"A$((A$)32):ZS$A$:9000:C0:835: A$"0"A$"9"(RA$,II,1)"@"A$"@":C0:835:FF$"2":1190: A$"0"A$"9"(RA$,II,1)"@"ZS$0: 390:A$:7 390:A$:A$(127)NX$"redo"= U 400:A$(32)415[  400:A$LO$A$HI$LO$"1":AN(A$): (7);:420 420:AN1AN4ı 440 906:C5:835 ((MO%1)1)400,402 NX$"redo"C0:835:* RW$(RW):RW4T$T$CM$NA$EX$^ 5MO%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)1 6MO%2Ĺ5126,3:5127,140:5128,38:5129,165:5120:S$T$:V19:LJ3:LI1:TC16:610: 7851:V20:690: ^MO%3SC%(UN%,KI%,(MO%2)4)0 _ 16368," ALG.2.6.2 - SJW - V.101589-99007c9600VdEZ$" "vMODE(1)::15:B0:2000A$(13)A$""AN$AN$A$:AN$RA$RIRI1:RA(AN$):479477AN$RA$RIRI1:MODE(1):478" ,RW(6(1))1:T$defghijklmnopqrstuvwxyz{,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:25030L9aSC%(I,J,5)2T9a:Z9eRIFY ";ZF$/8&ZF%0:216,0::(4);"-";ZF$:R8' ERROR TRAP FOR DISK FLIPh8'216,0:822:99658a SCORE TRACKING ROUTINE8aI1NU%8aJ148aSC%(I,J,1)0SC%(I,J,5)3:250308aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:25030;9aSC%(I8:5129,186:5120;7&ZF%1ZS$"Check Disk Drive":9972O7&ZS$"Flip Disk"7&:MODE(2):12:B0:H(21(ZS$))4,55:91007&ZS$"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:91007&16368,0:A$ 8&::(4);"VE)((X2)(X2))236%N(I)(((I3)(I3))3)R6%P(I)(((I5)(I5))5)X6%r6& CONTROL-C TRAPPING6&((218)(219)256)9220Č822:92256&6& TRAP FOR DISK FLIP6&216,0:99906&99816&99907&5126,1:5127,30:5128,7R.U3.PAC#5J$1,84:: SCR.U4.PACC5% * FUNCTION DEFINITIONS *W5%H(H)(H1)14j5%I(H)(H1)25%V(V)((V1)8)5%X(X)(X74)5%Y(Y)(Y2425)5%C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)76%M(XS$(3)J(7)9J(7)9:RIRI1:']H8H9:906:ZS$(EZ$,RA):9000:AN$"":NX$"":470s(AN$)(RA)485II(AN$)1:445:H9H91:NX$"redo"A$(13)495C0:836:NX$"redo"NX$"":H9H8:490A$(13)AN$""RA(AN$):C0:835491(PL(PL$)1:PL$(PL$,PL):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(H)4,V(V):9100:BaMODE(1):7939,I(H):7940,V(V):9000:cbFA$"=":V7:H22:C0:1100:cFA$"=":C0:FL%2:1100:dj7:ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1):t9:ZS$FF$:((H1)72),V(V):9100:/C(C):ZS$FF$"İ1160:HH1(FL%0):1110DPFF$"@"FF$"2":1190:HH1:1110QFF$"("FF$")"CLC:C5:1160:CCL:HH1(FL%0):1110RFF$"#"FF$"3":1190:HH1:1110S1120:HH1(FL%0)VFF:MODE(1):C0:FL%0:`9:ZS$FF$:FL%0įMODE(2):H(6)J(3)J(2):FRJ(6)11:J(7)(J(5)FR):J(8)(J(6)FR):FRJ(5)1028oJ(7)J(5)FRJ(8)J(6)FR1030uNN8:998:J$(2)J$(2)LT$:FC1:J(8)1FC0 'LMODE(2):FL%0OFF1(FA$):FF$(FA$,FF,1):C0FF$"@"FF$"#P21N(I):P21400,1409,1420:II45ZPL$S$(II):520:S$(II)PL$::II67:J(II)0:(S$(9),1)"+"(S$(9),1)"-"ıS$(9)"+"S$(9):S$(9)S$:J9$"none":S$(9)"":S$(9)S$:KLT$S$:II14:999:J(II)I1::J(5)J(1)J(4):J1 1I((1)7)1:I(I7)6(I7)I:OI1NN:J$(I)(J(I))::zI((1)(((KI%4)9)(KI%4)N9))1:997:LEI:L1LE:S$SS$(I):LT$S$:KI%1050,1025,1050,1063J9$"":995'999:PI1N(I):J(8)1P(I):PI1010,1015,1020:999:917ZNE((RA$,1)"-"):RA(RA$):(RA$,1)"+"(RA$,1)" "RARA1:RA$(RA$,RA)`~T((1)4)1:X(T)1982X(T)1:T(K)T::I1NN:J$(I)(J(I)):KI%4J(I)0J$(I)"+"J$(I)I:999:SG$"+":SG1:N(I)1SG$"-":SG":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:}H9(7939)21:V9(7940)81:V9V:H9H:HH9:VV9:7939,I(H):7940,V(V):X9(H91.1)8:Y9(V98)5:: GOTO.OLD.CURSOR.POSITION4849,1:9200: :7939,45(ZS$):7940,5:9000:7969,8:0zx{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:Y822:1:B15:ZS$"Space BarX(56,1)336,50:FF$"=":V7:H22:1130:/L_M5126,3:5127,76:5128,75:5129,165:5120:O5126,7:5127,33:5128,70:5129,70:5120:S5126,3:5127,150:5128,77:5129,165:5120:k7969,22:7939,45(ZS$):7940,17:9000:7969,8:*l7969,221)ZI::15:VDC(C):ZI01:X(X9),Y(Y9)ZIX(X98),Y(Y9)ZI:ZI:15:EMODE(2):C(C):ZI01:H(H)4,V(V)7ZIH(H)47,V(V)7ZI::15:F(AN$)0ıGZS$" ":906:H(H)4,V(V):9100:)K7:BOX(56,1)190,50:BO)(TT20))NX$"fd":739'NX$"bk"2822:i615:B15:MODE(2):5,178:19);:MODE(1):B0::C(1):I03:BOX(245I2,136M(I)2)9,31::5126,3:5127,33:5128,35:5129,165:5120:CC(C):ZI01:H(H9),V(V91)ZIH(H9)14,V(V9:ZS$"Menu":9100:MODE(1)*15:B0:ZA$"":ZA$LZA$(8)720m(ZA$(21))(ZA$(32))730v710 LEFT ARROW SELECTEDMO%4TT20NX$"fd":729NX$"bk"822: RIGHT ARROW OR SPACE BAR SELECTEDPG%9((MO%4MO%4704jZS$"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,178T):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) :FL%0įMODE(2):((H1)72),V(V):9100:\MODE(1):7939,I(H):7940,V(V):9000:f119215:MODE(1):H(H),V(V)4:ZS$FF$:9100:MODE(2):: DRAW.EXPONENT15:MODE(1):H(H),V(V)4:ZS$FF$:9100: DRAW.EXPONENT MODE(2):FL%1įMODE(1) n x999:J(2)I:J(3)J(2)(1):999:J(4)2N(I):J(1)J(2)J(3):J(8)J(8)(J(8)J(2)) {J(9)J(4)J(8):J(7)J(1)J(4):NN9:992:S$(2)S$J$(2):S$(3)S$J$(3):S$(1)S$"@"J$(1):S$(8)S$J$(8)%!|J9$"none"S$(9)S$:S$(4)S$"#"J,146:905:VV1:HH1(RA$)2:905:472:RA$J$(8):914:906:VV2:HH1(RA$)2:RI0:905:472q. RI1İ300|. 700:. C2M3&4. V11:S$D$(1):LJ3:TC35:LI1:610:V20:S$D$(2):610:PG%1İ350/ FA$LT$"=":C0:H10:V16:1100:HH1:905:980- 7:BOX(56,1)364,114:905:906:RA$J$(5):914:VV1:HH1(RA$)2:905:472:RA$J$(6):914:RI0:906:VV2:HH1(RA$)2:905:472- J(8)J(6)2780- V19:S$D$(5):610:FA$LT$"=":H25(FA$):C0:1100b. RA$J$(7):914:7:BOX(56,1)3641100, 700:, C2M2, V12:S$D$(3):LJ3:TC35:LI1:610:RA$J$(6)LT$"="J$(5):914:H25(RA$):905:472:S$D$(4):V15:610:904:906:RA$J$(6)- 914:HH1:905:472:FA$LT$"=":H25(FA$):C0:1100:FC0RA$J$(7):914:RI0:905:472:27(FA$)2:1100:906:VV1:C0:FA$J$(6):HH1(FA$)2:1100R+Z J(8)J(6)2690z+[ 900:V19:S$D$(5):610:FA$LT$"=",d H25(FA$):C0:1100:7:BOX(56,1)364,146:905:VV1:FA$J$(7):C0:HH1(FA$)2:1100:906:VV1:FA$J$(8):C0:HH1(FA$)2:LJ3:TC35:LI1:610:FA$J$(6)LT$"="J$(5):C0:H25(FA$):1100:900:S$D$(4):V15:610:904:906*A HH1:FA$J$(6):C5:1100:FA$LT$"=":H25(FA$):1100:FC0FA$J$(7):C0:1100:2650>+F 7:BOX(56,1)364,114:905:906:VV1:FA$J$(5):C0:HH1%:2110)O2110+)RPG%0:MO%3İ250005)S2000)( V6:7939,8:7940,V(V):ZS$"Solve:":9000:IJ12:FA$J$(IJ):V4IJ2:H15(FA$)2:C0:1100:FA$J$(IJ2):H26(FA$)2:C0:1100::843)- MO%2610,2700,2800,2800:)2 C2M1f*< V12:S$D$(3):,6:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1R(:891:MO%3SC%(UN%,KI%,1)1e(>822:847:845y(CTC35:LI1:LJ4(H390:2600:MO%4İ1000(IMO%4ZF%1:ZF$"ALG.2.6":9950(MNX$"fd"2130 )NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PGon":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.6":9950' MO%3SC%(UN%,KI%,(MO%2)4)01(91000:TL10:4849J$(4)S$:S$(4)S$(9)"#"J$(6)S$"@"J$(7)S$:S$(5)J$(4)S$"@"J$(9)S$S&c&MO%42105&MO%0:PG%0:KI%2:912:891&ZS$T1$:876:ZS$T2$:875:15&H14:V6(2KI%):WD$TY$(KI%)& V6Q' LJ0:TC34:S$WD$:610:VV2:S$"Mode Selecti$(1)S$"@"J$(5)S$J$(1):S$(2)S$J$(2):S$(3)S$J$(3):S$(8)S$J$(8)%J9$"none"S$(9)S$:S$(4)S$"#"J$(5)S$"@"J$(1)S$:S$(5)S$"@"J$(8)S$:1429%S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(6)S$J$(7):S$(5)J$(4)S$J$(9):1429M&S$(9)2N((J(4))):IJ23:J(IJ)J(8)J(IJ)J(IJ)(1)$:J(1)J(2)J(3):J(5)J(2)J(3):J(8)J(8)((J(8)J(2))J(3)):J(8)J(8)(J(8)9)3$J(6)J(4)J(5):J(7)J(4)J(1):J(9)J(8)J(4):NN9:992:IJ23:S$(IJ)S$J$(IJ)::(J(5))1J$(5)(J$(5),1)I%S@"J$(8)S$:1419j#S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(6)S$J$(7):S$(5)J$(4)S$J$(9):1419#S$(9)J$(4)S$:S$(4)S$(9)"#"J$(6)S$"@"J$(7)S$:S$(5)J$(4)S$"@"J$(9)S$##IJ24:999:995:J(IJ)ISG::J(2)J(3)14204$J(4)N(I):J(1)J(2)J(3):J(5)J(2)J(3):J(8)J(8)(J(8)J(2))"J(6)J(5)J(4):J(7)J(4)J(1):J(9)J(8)J(4):NN9:992:S$(2)S$J$(2):S$(3)S$(2):S$(1)S$"@"J$(5)S$J$(1):S$(8)S$J$(8)#J9$"none"S$(9)S$:S$(4)S$"#"J$(5)S$"@"J$(1)S$:S$(5)S$"$(1)S$:S$(5)S$"@"J$(8)S$:1408s!}S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(7):S$(5)J$(4)S$J$(9):1408!~S$(9)J$(4)S$:S$(4)S$(9)"#"J$(7)S$:S$(5)J$(4)S$"@"J$(9)S$!!KI%21420:"999:995:IJ23:J(IJ)ISG::999:J(4)206:FC0FA$J$(7):2870v/ 7:BOX(84,1)180,122:RI0:IJ78:RA$J$(IJ):914:906:V15(IJ8)2:905:906:472:/ RI2İ300:2890 0" 851:7939,4:7940,152:ZS$D$(6):9000:7:BOX(56,1)328,122:FA$J$(7):H25:V15:C0:1100:FA$J$(8):H25:V17:C0:11000, 2890:06 RA$J$(7):914:RI0:905:906:472O08 RI1İ300:28900@ 851:7939,4:7940,152:ZS$D$(6):9000:FA$J$(7):V16:H25:C0:11000J 700:0(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)0-#Z9(1):84012#ZL1(ZS$):72:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0:p MODE(1):RARA1:AN$"":470 (AN$)(RA)278 C5:837:460:(A$(13)AN$"")NX$"redo"C0:837:NX$"redo"NX$"":838:906:472 A$(13)AN$""RA(AN$)C A$"0"A$"9"NN(A$):C0:837:7941,(A$):7936:HH1: A$LT$((A$)32)LT$A$LT$:LEL1:C0:837:7941,(A$):7936:HH1: (A$"="A$"-"A$"+")C0:837:C2:7941,(A$):7936:HH1: (7);:460O 822:ZS$"Delete":MODE(2):0 _ 16368,0:) 390:A$:L 390:A$:A$(127)NX$"redo"R j 400:A$(32)415p  400:A$LO$A$HI$LO$"1":AN(A$): (7);:420 420:AN1AN4ı 440 ((MO%1)1)400,402 NX$"redo"A$(13)ıRW4T$T$CM$NA$EX$U 5MO%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)1 6KI%2KI%3S$T$:7939,4:7940,136:ZS$(EZ$,15):9000:V19:LJ3:LI1:TC16:610: 8KI%4MO%3V14:690: >851:V20:690: ^MO%3SC%(UN%,KI%,(MO%2)4)" ALG.2.6.1 - SJW - V.101589-99007c9600VdEZ$" "vMODE(1)::15:B0:2000A$(13)A$""AN$AN$A$:AN$RA$RIRI1:RA(AN$):479477AN$RA$RIRI1:478 ,RW(6(1))1:T$RW$(RW):}~ 6aJ1436aSC%(I,J,1)0SC%(I,J,5)3:25030f6aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:250306aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:250306aSC%(I,J,5)26a:6eH(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:9100^5&16368,0:A${5&::(4);"VERIFY ";ZF$5&ZF%0:216,0::(4);"-";ZF$:5' ERROR TRAP FOR DISK FLIP5'216,0:822:99655a SCORE TRACKING ROUTINE6aI1NU%22:92254&-4& TRAP FOR DISK FLIP?4&216,0:9990I4&9981T4&99904&5126,1:5127,30:5128,78:5129,186:51204&ZF%1ZS$"Check Disk Drive":99724&ZS$"Flip Disk"4&:MODE(2):12:B0:H(21(ZS$))4,55:9100L5&ZS$"and":)3%Y(Y)(Y2425)g3%C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)73%M(X)((X2)(X2))23%N(I)(((I3)(I3))3)3%P(I)(((I5)(I5))5)3%3& CONTROL-C TRAPPING 4&((218)(219)256)9220Č89):2$1,64::SCR.UN.PAC62$1,98::SCR.U1.PACO2"$1,118::SCR.U2.PACg2,$1,73::SCR.KI.PACy26$:SCR.MO.PAC2@$1,137::SCR.U3.PAC2% * FUNCTION DEFINITIONS *2%H(H)(H1)142%I(H)(H1)22%V(V)((V1)8)3%X(X)(X74941,((ZS$,ZL,1)):7936:"1#Z1# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)f1#Z9(1)p1#ZS$;}1#ZP%1ĺ1#ZP%01#1# COMPRESSION BUFFER MANAGER1#Z9(1)1$0,0:(4849)9230,9240,9250,9260,9270,9280:43522 $4848,(484:477 275 473M MO%2ĺ(7);:C0:837:838:FA$RA$:FL%2:1100S r 878:907:AN$"":470:II1 C5:834:490:NX$"redo"C0:834:483 NX$"":480 A$(13)AN$""481 A$(13)AN$""C0:834:IIRA:486 A$(13)AN$AN$A$&IIII1:II(RA)481B822:RA$AN$RIRI1:MO%2ĺ(7);:C0:834:878:FA$RA$:FL%0:C0:907:1100MODE(2):((MO%1)1)400,402NX$"redo"A$(13)įMODE(1):A$"0"A$"9"C0:834:FF$A$:1120:HH2:MODE:J(1)J(5)(DN$(5)):J(1)01052NJ(3)J(2)J(1):J(3)(J(2)J(1))1059 FRJ(1)11:J(4)(J(2)FR):J(5)(J(1)FR)!(J(4)(J(2)FR))(J(5)(J(1)FR))1059":J(4)J(2):J(5)J(1)#NN5:992:I45:PL$J$(I):520:J$(I)PL$::'&L"+"(S$(9),1)"-"ı,S$(9)"+"S$(9):FS$(9)S$:J9$"none":US$(9)"":dS$(9)S$:j1001:I13:DN$(I)S$(I)::DN$(4)J$(1):DN$(5)J$(5)1001:(S$(1)DN$(1))(S$(3)DN$(2))1052#S$(4)J$(1):S$(5)J$(5):J(2)(DN$(4))J(1)KI%4)N9))1:O997:LEI:L1LE:S$SS$(I):LT$S$:KI%1050,1025,1050,1063_J9$"":995999:PI1N(I):J(8)1P(I):PI1010,1015,1020:999:P21N(I):P21400,1409,1420:II45PL$S$(II):520:S$(II)PL$::II67:J(II)0:(S$(9),1):RA$(RA$,RA)4T((1)4)1:X(T)1982JX(T)1:T(K)T::I1NN:J$(I)(J(I)):KI%4J(I)0J$(I)"+"J$(I):999:SG$"+":SG1:N(I)1SG$"-":SG1I((1)7)1:I(I7)6(I7)I:I((1)(((KI%4)9)((2):39,177:15:9100:MODE(1)::B0:<V9V:H9H:HH9:VV9:7939,I(H):7940,V(V):X9(H91.1)8:Y9(V98)5:: GOTO.OLD.CURSOR.POSITIONVV9:HH9:4849,1:9200:NE((RA$,1)"-"):RA(RA$):(RA$,1)"+"(RA$,1)" "RARA1K{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:,822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE5127,150:5128,77:5129,165:5120:V\5126,3:5127,110:5128,77:5129,165:5120:k7969,22:7939,45(ZS$):7940,17:9000:7969,8:l7969,22:7939,45(ZS$):7940,5:9000:7969,8:n5126,I(H9):5127,V(V):5128,72:5129,V(V)7:5120:zF(AN$)0ı.GZS$" ":906:9000:4LdM5126,3:5127,76:5128,75:5129,165:5120:O5126,7:5127,33:5128,70:5129,70:5120:Q5126,3:5127,76:5128,76:5129,112:5120:R5126,3:5127,132:5128,77:5129,165:5120:%S5126,3:1):B0:k:C(1):I03:BOX(245I2,136M(I)2)9,31::5126,3:5127,33:5128,35:5129,165:5120:BC(C):MODE(2):ZI01:H(H)4,V(V)6ZIH(H)47,V(V)6ZI::15:EC(C):ZI01:H(H),V(V)7ZIH(H)14,V(V)7ZI::15:A$(32))7307102 LEFT ARROW SELECTEDQMO%4TT20NX$"fd":729^NX$"bk"i822: RIGHT ARROW OR SPACE BAR SELECTEDPG%9((MO%4)(TT20))NX$"fd":739NX$"bk"822: 615:B15:MODE(2):5,178:19);:MODE(DE(1):704@ZS$"Problems":MODE(2):68,178:9100:MODE(1)MO%4TT20įMODE(2):44,178:ZS$"Problems":9100:MODE(1)MO%4TT20įMODE(2):66,178:ZS$"Menu":9100:MODE(1)15:B0ZA$"":ZA$ZA$(8)720(ZA$(21))(Z7939,I(H):7940,V(V):ZS$T$:PA1PA0:9000:DZP%1:9000:822:NX$"":ZS$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1)MO%4704 ZS$"Menu":MODE(2):18,178:9100:MODE(1):PG%9įMODE(2):90,178:9100:MO,I(H):7940,V(V):(S$)TCZS$S$:9000:905:evLTTC11: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":2L(T$):H20(L2):(1):WA$LT$((A$)32)LT$A$LT$:LEL1:C0:834:FF$A$:1120:HH2:MODE(1):(A$"="A$"-"A$"+")C0:834:FF$A$:1120:HH2:MODE(1):(7);:490PL(PL$)1:PL$(PL$,PL):bL(S$):LTCLJ0T$S$:690:cHLJ2l7939(FL%1)((FA$)16)įMODE(1):1103BM(FL%2)įMODE(1):1103UNMODE(2):FL%0OFF1(FA$):FF$(FA$,FF,1):C0FF$"@"FF$"#"İ1160:HH1(FL%0):1110PFF$"@"FF$"2":1190:HH1:1110 QFF$"("FF$")"CLC:C5:1160:CCL:HH1(FL%0):11103RFF$"#"FF$"3":1190:HH1:1110KS1120:HH1(FL%0)hVFF: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:bFA$"=":V7:H22:C0:1100: cFA$"=":C0:FL%0:FA$S$(1)"="DN$(1):C0:V19:H20(FA$)(((FA$)16)1):FL%1:1100:900,849:V12:S$"Combine terms:":610:FA$J$(1)SS$(L1)"="J$(2):C0:V12:H18:1100:860,VV4:860:S$"The answer is:":610:FA$SS$(L1)"="(J$(3),1):C0:H18:1100;-$),1)126,133+900:V13:S$D$(16):610:FA$"("S$(3)")("S$(2)") = ("DN$(2)")("DN$(3)")":H20(FA$)(((FA$)16)1)+C0:V16:FL%1:1100:7:BOX(490,1)35,133:900:V12:849:V11:S$D$(14):610:850:900N,849:V11:S$"Now multiply:":617:BOX(79,1)175,50:1122x*FA$DN$(3):C0:V6:H26:1100:FA$S$(3):C0:V8:H26:1100:1122:7:BOX(79,1)350,50*MO%2210,2300,2400,2400:+TC37:LJ3:LI1:V11:S$D$(15):610:FA$"("DN$(2)")("S$(3)")":C0:V19:H10:1100:7:BOX(28(FAZF%1:ZF$"ALG.2.6":99500)MNX$"fd"2130k)NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110u)O2110)RPG%0:MO%3İ25000)S2000*V6:7939,8:7940,V(V):ZS$"Solve:":9000:FA$S$(2):C0:V6:H13:1100:FA$DN$(2):C0:V8:H13:1100:"ZF%1:MO%0:ZF$"ALG.2.6":9950G( 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:KI%3İ847:845(CTC35:LI1:LJ4(H390:2200:MO%4İ1000)IMO%4#'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:VV2:#(7939,6:7940,152:ZS$"Your choice? (1-4) ":9000:440:ZS$A$:9000:MO%AN:A$"4S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(6)S$J$(7):S$(5)J$(4)S$J$(9):1429&S$(9)J$(4)S$:S$(4)S$(9)"#"J$(6)S$"@"J$(7)S$:S$(5)J$(4)S$"@"J$(9)S$&&MO%42105&MO%0:PG%0:KI%1:912:891'ZS$T1$:876:ZS$T2$:875:15J(1):J(9)J(8)J(4):NN9:992:IJ23:S$(IJ)S$J$(IJ)::(J(5))1J$(5)(J$(5),1)%S$(1)S$"@"J$(5)S$J$(1):S$(2)S$J$(2):S$(3)S$J$(3):S$(8)S$J$(8)%J9$"none"S$(9)S$:S$(4)S$"#"J$(5)S$"@"J$(1)S$:S$(5)S$"@"J$(8)S$:1429S&J$(4)S$:S$(4)S$(9)"#"J$(6)S$"@"J$(7)S$:S$(5)J$(4)S$"@"J$(9)S$R$$IJ24:999:995:J(IJ)ISG::J(2)J(3)1420$J(4)2N((J(4))):IJ23:J(IJ)J(8)J(IJ)J(IJ)(1)$:J(1)J(2)J(3):J(5)J(2)J(3)W%J(6)J(4)J(5):J(7)J(4):S$(2)S$J$(2):S$(3)S$(2):S$(1)S$"@"J$(5)S$J$(1):S$(8)S$J$(8)#J9$"none"S$(9)S$:S$(4)S$"#"J$(5)S$"@"J$(1)S$:S$(5)S$"@"J$(8)S$:1419#S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(6)S$J$(7):S$(5)J$(4)S$J$(9):1419L$S$(9)"~S$(9)J$(4)S$:S$(4)S$(9)"#"J$(7)S$:S$(5)J$(4)S$"@"J$(9)S$N"^"KI%21420"999:995:IJ23:J(IJ)ISG::999:J(4)2N(I):J(1)J(2)J(3):J(5)J(2)J(3):J(8)J(8)(J(8)J(2))H#J(6)J(5)J(4):J(7)J(4)J(1):J(9)J(8)J(4):NN9:9929)J(4)J(8):J(7)J(1)J(4):NN9:992:S$(2)S$J$(2):S$(3)S$J$(3):S$(1)S$"@"J$(1):S$(8)S$J$(8)!|J9$"none"S$(9)S$:S$(4)S$"#"J$(1)S$:S$(5)S$"@"J$(8)S$:1408"}S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(7):S$(5)J$(4)S$J$(9):1408HH(H),V(V)4:ZS$FF$:9100:MODE(2):: DRAW.EXPONENT{ 15:MODE(1):H(H),V(V)4:ZS$FF$:9100: DRAW.EXPONENT MODE(2):FL%1įMODE(1)  x999:J(2)I:J(3)J(2)(1):999:J(4)2N(I):J(1)J(2)J(3):J(8)J(8)(J(8)J(2))g!{J(5)0:J(2:1100:Gj13:ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1):tt9:ZS$FF$:((H1)72),V(V):9100:C(C):ZS$FF$:FL%0įMODE(2):((H1)72),V(V):9100:MODE(1):7939,I(H):7940,V(V):9000:11929 15:MODE(1):J(3)(J(2)J(1))FA$(J$(3),(J$(3))1):C0:1100:2290-FA$J$(4):C0:H4H:HH((FA$)1):VV1:1100:FA$J$(5):C0:HH4((FA$)1):VV2:1100:7:BOX(56,1)322,122-700:1.TC37:LJ3:LI1:V11:S$D$(15):610:FA$"("DN$(2)")("S$(3)")":C0:V19:H10:1100:7:BOX(28(FA$),1)126,133. V13:S$D$(16):610:RA$"("S$(3)")("S$(2)")=("DN$(2)")("DN$(3)")":914:H20(RA$)2// FA$"("S$(3)")(":C0:V16:FL%2:1100:RA$S$(2):RA3:905:472:FA$")=("DN$(2)")(":C0:FL%2:1100:RA$И:aSC%(I,J,5)2:a: :eROR TRAP FOR DISK FLIP.9'216,0:822:9965L9a SCORE TRACKING ROUTINEY9aI1NU%d9aJ149aSC%(I,J,1)0SC%(I,J,5)3:250309aSC%(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:250308&ZS$"Flip Disk"J8&:MODE(2):12:B0:H(21(ZS$))4,55:91008&ZS$"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:91008&16368,0:A$8&::(4);"VERIFY ";ZF$8&ZF%0:216,0::(4);"-";ZF$:9' ERI)(((I5)(I5))5)7%87& CONTROL-C TRAPPINGa7&((218)(219)256)9220Č822:9225g7&7& TRAP FOR DISK FLIP7&216,0:99907&99817&99907&5126,1:5127,30:5128,78:5129,186:51208&ZF%1ZS$"Check Disk Drive":9972TIONS *6%H(H)(H1)1406%I(H)(H1)2F6%V(V)((V1)8)Z6%X(X)(X74)p6%Y(Y)(Y2425)6%C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)76%M(X)((X2)(X2))26%N(I)(((I3)(I3))3)7%P(NAGER5#Z9(1)I5$0,0:(4849)9230,9240,9250,9260,9270,9280:4352]5 $4848,(4849):u5$1,64::SCR.UN.PAC5$1,98::SCR.U1.PAC5"$1,118::SCR.U2.PAC5,$1,73::SCR.KI.PAC56$:SCR.MO.PAC5@$1,137::SCR.U3.PAC 6% * FUNCTION DEFINI DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)E4-#Z9(1):840s42#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:y4#4# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)4#Z9(1)4#ZS$;4#ZP%1ĺ4#ZP%04#5# COMPRESSION BUFFER MA$J$(5):C0:FL%0:V17:H25:1100V3 FA$(J$(3),1):C0:FL%0:V16:H23:1100:24903 RA$(J$(3),(J$(3))1):914:RI0:905:480:RI1İ300:24903 851:7939,4:7940,152:ZS$D$(6):9000:FA$(J$(3),1)RA$:C0:FL%0:V16:H25:11003 700:44(# )(J(2)J(1))247002y 7:BOX(56,1)210,1222~ RI0:905:V15:V915:907:IJ45:RA$J$(IJ):914:VV(IJ5)2:V9V:907:480:2 RI2İ300:2490#3 851:7939,4:7940,152:ZS$D$(6):9000:7:BOX(56,1)338,122:FA$J$(4):C0:FL%0:V15:H25:1100:FA7:BOX(56,1)322,122:15:RA$J$(4):914:VV1:905:480:RA$J$(5):914:RI0:907:VV2:905:480:RI1İ300z1V 700:1` 1j V11:S$D$(1):LJ3:TC35:LI1:610:V20:S$D$(2):610:PG%1İ3502t FA$LT$"="(J$(3),1):C0:FL%0:H10:V16:1100:J(3914:H18:905:480:FA$"=":C0:FL%0:1100:RA$J$(2):914:905:480:86008 VV4:S$"The answer is:":610:FA$SS$(L1)"="(J$(3),1):C0:H18:FL%0:1100:J(3)(J(2)J(1))23800B RA$(J$(3),(J$(3))1):914:RI0:905:480:RI1İ3000C 2390o1L DN$(3):RA3:905:472:FA$")":C0:FL%2:1100/ 822:849:V12:S$D$(14):610:900:850:849:V12:S$"Now multiply:":610:FA$S$(1)"="DN$(1):C0:V19:H20(FA$)(((FA$)16)1)/$ FL%1:1100:900:849:V12:S$"Combine terms:":610:RA$J$(1)LT$K0. " ALG.2.5.4 - SJW - V.101589-99007c9600VdEZ$" "vMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$4MO%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)1 5MO%2İ841:V15:6V9V:H9H:7V9((7940)8)1:H9((7939)2)1:GVV9:HH9:[4849,1:9200:aI1NN:J$(I)(J(I)):J(I)0J$(I)"+"J$(I)I:999:SG$"+":SG1:N(I)1SG$"-":SG1I((1)7)1:I(I7)6(I7)I:I((1)9)":MO%4ZS$ZS$(PG%):893.|ZS$ZS$" "c}9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897zZS$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:165:5120:Ck7969,22:7939,45(ZS$):7940,17:9000:7969,8:xl7969,22:7939,45(ZS$):7940,5:9000:7969,8:nMO%2ĴF5%854,851:o5126,I(H9):5127,V(V1):5128,72:5129,V(V)7:5120:z{15:7939,2:7940,7:ZS$"C"(KI%)" P26,7:5127,33:5128,70:5129,83:5120:P7:BOX(140,1)70,65:FF$PS$:V9:H18:C7:MODE(2):1160:MODE(1):BOX(140,1)303,65:Q878R7:BOX(427,1)49,144:S5126,3:5127,125:5128,76:5129,143:5120: V5126,2:5127,146:5128,72:5129,(C):MODE(2):ZI01:H(H)4,V(V)6ZIH(H)47,V(V)6ZI:ZI:15:{I5126,3:5127,94:5128,76:5129,128:5120:JLM5126,3:5127,95:5128,76:5129,165:5120:NC(C):ZI03:BOX(148ZI2,32M(ZI)2)64ZI,50M(ZI)::)O51710  LEFT ARROW SELECTED?MO%4TT20NX$"fd":729LNX$"bk"W822: 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:KDC"Problems":MODE(2):68,178:9100:MODE(1)oMO%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))730V(V):ZS$T$:PA1PA0:9000:2ZP%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):704.ZS$:(S$)TCZS$S$:9000:905:SvLTTC11:X$(S$,LT,1):X$SP$X$"-"670~ZS$(S$,LT(X$SP$)):ZP%1:9000:660S$(S$,(S$)LT):VV1:LI1VV1620::::(7);"WORD TOO LONG": L(T$):H20(L2):7939,I(H):7940,""481/ A$(13)AN$""C0:836:822:V II2A$"2"(FA$,2,1)"@"A$"@"p A$(13)AN$AN$A$} :822: 523 LP(PL$)1:(PL$,1)"+"PL$(PL$,LP)  bL(S$):LTCLJ0T$S$:690: cHLJ l7939,I(H):7940,V(V)DE(1): (7);:460 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: 849:907:AN$"":RA(FA$):470:II1RA C5:836:460:NX$"redo"C0:836:484 NX$"":480 A$(13)AN$32)SS$(L1)A$SS$(L1):FF$A$:C0:836:1120:HH2:MODE(1): A$SS$(L2)((A$)32)SS$(L2)A$SS$(L2):FF$A$:C0:836:1120:HH2:MODE(1): A$"+"A$"-"FF$A$:C0:836:1120:HH2:MODE(1): A$"("A$")"FF$A$:C0:836:1130:HH2:MOHAN: 4401 MODE(2):(MO%1)1400,402U NX$"redo"A$(13)įMODE(1): A$"2"II2(FA$,2,1)"@"A$"@":C0:836:FF$"2":1190:HH1:MODE(1): A$"0"A$"9"NN(A$):C0:836:FF$A$:1120:HH2:MODE(1):? A$SS$(L1)((A$)90:+ 67939,4:7940,136:ZS$T$:9000:O ^MO%3SC%(UN%,KI%,(MO%2)4)0U _e 16368,0:t 390:A$: 390:A$:A$(127)NX$"redo"  400:A$(32)415  400:A$"0"A$"9"ANS(A$): 420 420:AN1AN4C1:O997:LEI:L1I:L2I1:S$SS$(I):ST$SS$(I1):KI%1025,1035,1050,1050_J9$"":995999:PI1N(I):J(8)1P(I):PI1010,1015,1020:999:P21N(I):P21400,1409,1420999:DN1N(I):DN1011,1012,1013:S$(9)S$:J9$"none": DN$S$(9):DN$S$(8):)DN$S$(1):8S$(9)"":GS$(9)S$:U: KI%=1c : KI%=2{1001:999:J(1)I1J(4)J(8)J(3):J(5)J(8)J(3):J(6)J(1)J(4):J(7)J(3)J(5):J(9)J(1)(1):J(2)J(3)(1):NN9:992:KI%41060: KI%=3L$9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1O&:891:MO%3SC%(UN%,KI%,1)1l&>842:844:845:847:822&?TC35:LI1:LJ4&H3400:MO%4İ1000&IMO%4ZF%1:ZF$"ALG.2.5":9950&MNX$"fd"2130 'NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5):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.5":9950% MO%3SC%(UN%,KI%,(MO%2)4)0.&91000:TL10:4849,3:(4)S$:S$(4)S$(9)"#"J$(6)S$"@"J$(7)S$:S$(5)J$(4)S$"@"J$(9)S$P$`$MO%42105$MO%0:PG%0:KI%4:912:891$ZS$T1$:876:ZS$T2$:875:15$H14:V6(2KI%):WD$TY$(KI%)$ V6N% LJ0:TC34:S$WD$:610:VV2:S$"Mode Selection")S$"@"J$(5)S$J$(1):S$(2)S$J$(2):S$(3)S$J$(3):S$(8)S$J$(8)#J9$"none"S$(9)S$:S$(4)S$"#"J$(5)S$"@"J$(1)S$:S$(5)S$"@"J$(8)S$:1429#S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(6)S$J$(7):S$(5)J$(4)S$J$(9):1429J$S$(9)J$N((J(4))):IJ23:J(IJ)J(8)J(IJ)J(IJ)(1)":J(1)J(2)J(3):J(5)J(2)J(3):J(8)J(8)((J(8)J(2))J(3)):J(8)J(8)(J(8)9)3"J(6)J(4)J(5):J(7)J(4)J(1):J(9)J(8)J(4):NN9:992:IJ23:S$(IJ)S$J$(IJ)::(J(5))1J$(5)(J$(5),1)F#S$(1J$(8)S$:1419g!S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(6)S$J$(7):S$(5)J$(4)S$J$(9):1419!S$(9)J$(4)S$:S$(4)S$(9)"#"J$(6)S$"@"J$(7)S$:S$(5)J$(4)S$"@"S$(9)S$!!IJ24:999:995:J(IJ)ISG::J(2)J(3)14201"J(4)2):J(1)J(2)J(3):J(5)J(2)J(3):J(8)J(8)(J(8)J(2)) J(6)J(5)J(4):J(7)J(4)J(1):J(9)J(8)J(4):NN9:992:S$(2)S$J$(2):S$(3)S$(2):S$(1)S$"@"J$(5)S$J$(1):S$(8)S$J$(8)!J9$"none"S$(9)S$:S$(4)S$"#"J$(5)S$"@"J$(1)S$:S$(5)S$"@"$"#"J$(1)S$:S$(5)S$"@"J$(8)S$:1408z}S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(7):S$(5)J$(4)S$J$(9):1408~S$(9)J$(4)S$:S$(4)S$(9)"#"J$(7)S$:S$(5)J$(4)S$"@"J$(9)S$7 999:995:IJ23:J(IJ)ISG::999:J(4)2N(I(1): DRAW.EXPONENTux999:J(2)I:J(3)J(2)(1):999:J(4)2N(I):J(1)J(2)J(3):J(8)J(8)(J(8)J(2)){J(9)J(4)J(8):J(7)J(1)J(4):NN9:992:S$(2)S$J$(2):S$(3)S$J$(3):S$(1)S$"@"J$(1):S$(8)S$J$(8),|J9$"none"S$(9)S$:S$(4)SV(V):9100:FC(C):ZS$FF$:FL%0į((H1)72),V(V):9100:sMODE(1):7939,I(H):7940,V(V):9000:}119215:H(H),V(V)4:ZS$FF$:9100:: DRAW.EXPONENT15:MODE(1):H(H),V(V)4:ZS$FF$:9100MODE(2):FL%1įMODEH1:1110$S1120:HH1(FL%0)AVFF:MODE(1):C0:FL%0:y`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),L%2įMODE(1):FL%1:1103.NMODE(2):FL%0OFF1(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):1110 RFF$"#"FF$"3":1190:HS$J$(5):(J$(4))0S$(5)S$"@"J$(5)'S$(9)S$(7):(J$(6))1(J$(6))1S$(6)S$"@"(J$(6),1)S$J$(7):(J$(6))0S$(6)S$"@"J$(7)(L(S$(6))(J$(7)):(J$(7))0S$(6)(S$(6),L).L(FL%1)((FA$)6)įMODE(1):FL%1:1103MFJ(6)J(9)J(4):J(7)(J(3)(1))J(5):NN9:992:S$(6)S$"@"J$(6)S$J$(7)%S$(4)J$(1)S$J$(3):S$(5)S$"@"J$(4)S$J$(5):S$(8)S$J$(8):PL$S$(4):520:S$(4)PL$:PL$J$(9)S$J$(2):520)&S$(7)PL$:(J$(4))1(J$(4))1S$(5)S$"@"(J$(4),1)PG%:2110'O2110-'RPG%0:MO%3İ250007'S2000'H PS$"-":V8:IJ844:FA$S$(IJ):C0:H(IJ8)11(IJ8)28(FA$):1100::848:S$D$(2) (I V10:I211:FA$S$(I):C0:H(I2)11(I1)28((FA$)7)((FA$))((FA$)6)((FA$)2):FL%1:1100::7939,8:7940,40:ZS$S$:9000?(M MO%3410,3500,3600,3600:(R S$D$(11):TC37:LJ3:LI2:V14:610:850:V14:H15:FA$S$(1):C5:1100:900:V16:S$D$(14):610)S FA$"("S$(3)")("S$(2)")":V20:H20(FA$):1100:900:841:V13:S$D$(12):610:C0:FA$1:250306aSC%(I,J,5)2$6a:*6e' ERROR TRAP FOR DISK FLIP85'216,0:822:9965V5a SCORE TRACKING ROUTINEc5aI1NU%n5aJ145aSC%(I,J,1)0SC%(I,J,5)3:250305aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:25030 6aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)ve":99724&ZS$"Flip Disk"T4&:MODE(2):12:B0:H(21(ZS$))4,55:91004&ZS$"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:91004&16368,0:A$4&::(4);"VERIFY ";ZF$4&ZF%0:216,0::(4);"-";ZF$:"5)"3%P(I)(((I5)(I5))5)(3%B3& CONTROL-C TRAPPINGk3&((218)(219)256)9220Č822:9225q3&3& TRAP FOR DISK FLIP3&216,0:99903&99813&99903&5126,1:5127,30:5128,78:5129,186:5120 4&ZF%1ZS$"Check Disk DriION DEFINITIONS *'2%H(H)(H1)14:2%I(H)(H1)2P2%V(V)((V1)8)d2%X(X)(X74)z2%Y(Y)(Y2425)2%C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)72%M(X)((X2)(X2))23%N(I)(((I3)(I3))3 BUFFER MANAGER1#Z9(1)S1$0,0:(4849)9230,9240,9250,9260,9270,9280:4352g1 $4848,(4849):1$1,64::SCR.UN.PAC1$1,98::SCR.U1.PAC1"$1,118::SCR.U2.PAC1,$1,73::SCR.KI.PAC16$:SCR.MO.PAC1@$1,137::SCR.U3.PAC2% * FUNCT:>0(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)O0-#Z9(1):840}02#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:0#0# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)0#Z9(1)0#ZS$;0#ZP%1ĺ0#ZP%00#1# COMPRESSION%1:480:F5%0:FA$AN$RIRI1>/B841:V13:S$D$(15):610/LFA$S$(6):990:V18:H20(FA$):904:F5%2:480:F5%0:FA$AN$RIRI1:RI2İ300:3690/eS$D$(10):841:V14:610:851:854:V18:H20(FA$):1100:FA$S$(1):V20:H20(FA$):11000j700"Try ":7939,I(3):7940,V(V):9000:FL%2:H7:1100:7939,I(H):ZS$"!":9000:900:841:3570. 851:V18:H20(FA$):C0:1100.700:.RI0: .TC37:LJ3:LI1:V14:S$D$(16):610:850:PG%1İ350!/$FA$S$(1):990:V20:H20(FA$):904:F5FA$AN$RIRI1:3570- 841:V14:ZS$"Try ":7939,I(3):7940,V(V):9000:FL%2:H7:1100:7939,I(H):ZS$"!":9000:900:841:849:3550- S$D$(9):V13:841:610:FA$S$(6):V15:H20(FA$):904:480:AN$FA$RIRI1:300:3580- 841`. V14:ZS$0:7939,I(H):ZS$"!":9000:900:841:S$D$(12):V13:610:3525, C5:846:FA$S$(5)"+"S$(4):990:(S$(4),1)"-"S$(4)"+"S$(4), C0:846:H20(FA$):FA$S$(5):V18:C0:1100:H4H- S$D$(13)D$(17):V13:841:610:V18:HH4:FA$S$(7):904:480:841:3510+ V16:S$D$(14):610:FA$"("S$(3)")("S$(2)")":V20:H20(FA$):C0:1100:900:841:V13:S$D$(12):610:C5:FA$S$(3):846+ V15:H20:904:480:AN$FA$RIRI1:3533A, 841:V14:ZS$"Try ":7939,I(3):7940,V(V):9000:H7:FL%2:110:851:FA$S$(6):V18:H20(FA$):C0:11007* 700:?* * S$D$(11):TC37:LJ3:LI2:V14:RI0:610:850:H16:904:480:AN$FA$RIRI1:3520* 841 + V14:ZS$"Try ":7939,I(3):7940,V(V):9000:H7:FL%2:1100:7939,I(H):ZS$"!":9000:900:S$(3):V15:H18:C5:1100p)\ C5:846:900:V18:C0:FA$S$(5)"+"S$(4):990:(S$(4),1)"-"S$(4)"+"S$(4))p C0:846:H20(FA$):FA$S$(5):1100:H4H:900:S$D$(13)D$(17):V13:841:610:FA$S$(7):V18:HH4:C0:1100:900:S$D$(9):V13,*z 841:61072:5129,165:5120:Lk7969,22:7939,45(ZS$):7940,17:9000:7969,8:l7969,22:7939,45(ZS$):7940,5:9000:7969,8:nMO%2ĴF5%854,851:o5126,I(H9):5127,V(V1):5128,72:5129,V(V)7:5120:z'{15:7939,2:7940,7:ZS$"C"2O5126,7:5127,33:5128,70:5129,83:5120:P7:BOX(140,1)70,65:FF$PS$:V9:H18:C7:MODE(2):1160:MODE(1):BOX(140,1)303,65:Q878R7:BOX(427,1)49,144:S5126,3:5127,125:5128,76:5129,143:5120:V5126,2:5127,146:5128,TDC(C):MODE(2):ZI01:H(H)4,V(V)6ZIH(H)47,V(V)6ZI:ZI:15:I5126,3:5127,94:5128,76:5129,128:5120:JLM5126,3:5127,95:5128,76:5129,165:5120:NC(C):ZI03:BOX(148ZI2,32M(ZI)2)64ZI,50M(ZI)::730710) LEFT ARROW SELECTEDHMO%4TT20NX$"fd":729UNX$"bk"`822: 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:47ZS$"Problems":MODE(2):68,178:9100:MODE(1)xMO%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))):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):70940,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(13)AN$""4818 A$(13)AN$""C0:836:822:_ II2A$"2"(FA$,2,1)"@"A$"@"y A$(13)AN$AN$A$ :822: 523 LP(PL$)1:(PL$,1)"+"PL$(PL$,LP)  bL(S$):LTCLJ0T$S$:690: cHLJ)l7939,I(H):7DE(1): (7);:460 822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: 849:907:AN$"":RA(FA$):470:II1RA C5:836:460:NX$"redo"C0:836:484 NX$"":C0:836:480 A$32)SS$(L1)A$SS$(L1):FF$A$:C0:836:1120:HH2:MODE(1): A$SS$(L2)((A$)32)SS$(L2)A$SS$(L2):FF$A$:C0:836:1120:HH2:MODE(1): A$"+"A$"-"FF$A$:C0:836:1120:HH2:MODE(1): A$"("A$")"FF$A$:C0:836:1130:HH2:MOHAN: 4401 MODE(2):(MO%1)1400,402U NX$"redo"A$(13)įMODE(1): A$"2"II2(FA$,2,1)"@"A$"@":C0:836:FF$"2":1190:HH1:MODE(1): A$"0"A$"9"NN(A$):C0:836:FF$A$:1120:HH2:MODE(1):? A$SS$(L1)((A$)90:+ 67939,4:7940,136:ZS$T$:9000:O ^MO%3SC%(UN%,KI%,(MO%2)4)0U _e 16368,0:t 390:A$: 390:A$:A$(127)NX$"redo"  400:A$(32)415  400:A$"0"A$"9"ANS(A$): 420 420:AN1AN4C" ALG.2.5.3 - SJW - V.101589-99007c9600VdEZ$" "vMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$4MO%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)1 5MO%2İ841:V15:6(KI%)" P":MO%4ZS$ZS$(PG%):8937|ZS$ZS$" "l}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:V9V:H9H:@V9((7940)8)1:H9((7939)2)1:PVV9:HH9:d4849,1:9200:jI1NN:J$(I)(J(I)):J(I)0J$(I)"+"J$(I)I:999:SG$"+":SG1:N(I)1SG$"-":SG1I((1)7)1:I(I7)6(I7)I:I(5)J$(4)S$"@"J$(9)S$!$1$MO%42105Q$MO%0:PG%0:KI%3:912:891t$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$(J$(3):S$(8)S$J$(8)o#J9$"none"S$(9)S$:S$(4)S$"#"J$(5)S$"@"J$(1)S$:S$(5)S$"@"J$(8)S$:1429#S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(6)S$J$(7):S$(5)J$(4)S$J$(9):1429$S$(9)J$(4)S$:S$(4)S$(9)"#"J$(6)S$"@"J$(7)S$:S$X":J(1)J(2)J(3):J(5)J(2)J(3):J(8)J(8)((J(8)J(2))J(3)):J(8)J(8)(J(8)9)3"J(6)J(4)J(5):J(7)J(4)J(1):J(9)J(8)J(4):NN9:992:IJ23:S$(IJ)S$J$(IJ)::(J(5))1J$(5)(J$(5),1)#S$(1)S$"@"J$(5)S$J$(1):S$(2)S$J$(2):S$(3)S$S$(9)S$"@"J$(6)S$J$(7):S$(5)J$(4)S$J$(9):1419!S$(9)J$(4)S$:S$(4)S$(9)"#"J$(6)S$"@"J$(7)S$:S$(5)J$(4)S$"@"S$(9)S$!!IJ24:999:995:J(IJ)ISG::J(2)J(3)1420"J(4)2N((J(4))):IJ23:J(IJ)J(8)J(IJ)J(IJ)(1)J(2)) J(6)J(5)J(4):J(7)J(4)J(1):J(9)J(8)J(4):NN9:992:S$(2)S$J$(2):S$(3)S$(2):S$(1)S$"@"J$(5)S$J$(1):S$(8)S$J$(8) J9$"none"S$(9)S$:S$(4)S$"#"J$(5)S$"@"J$(1)S$:S$(5)S$"@"J$(8)S$:14198!S$(9)""S$(9)J$(4):S$(4)ЭS$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(7):S$(5)J$(4)S$J$(9):1408~S$(9)J$(4)S$:S$(4)S$(9)"#"J$(7)S$:S$(5)J$(4)S$"@"J$(9)S$ 999:995:IJ23:J(IJ)ISG::999:J(4)2N(I):J(1)J(2)J(3):J(5)J(2)J(3):J(8)J(8)(J(8)(3)J(2)(1):999:J(4)2N(I):J(1)J(2)J(3):J(8)J(8)(J(8)J(2)){J(9)J(4)J(8):J(7)J(1)J(4):NN9:992:S$(2)S$J$(2):S$(3)S$J$(3):S$(1)S$"@"J$(1):S$(8)S$J$(8)|J9$"none"S$(9)S$:S$(4)S$"#"J$(1)S$:S$(5)S$"@"J$(8)S$:1408K}1)72),V(V):9100:DMODE(1):7939,I(H):7940,V(V):9000:N119215: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.EXPONENTFx999:J(2)I:JE(1):C0:FL%0:J`9:ZS$FF$:FL%0įMODE(2):H(H)4,V(V):9100:waMODE(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į((HOFF1(FA$):FF$(FA$,FF,1):C0FF$"@"FF$"#"İ1160:HH1(FL%0):1110yPFF$"@"FF$"2":1190:HH1:1110QFF$"("FF$")"CLC:C5:1160:CCL:HH1(FL%0):1110RFF$"#"FF$"3":1190:HH1:1110S1120:HH1(FL%0)VFF:MOD1(J$(6))1S$(6)S$"@"(J$(6),1)S$J$(7):(J$(6))0S$(6)S$"@"J$(7)"L(S$(6))(J$(7)):(J$(7))0S$(6)(S$(6),L)#KI%3ı$: KI%=4L(FL%1)((FA$)6)įMODE(1):FL%1:1103MFL%2įMODE(1):FL%1:1103NMODE(2):FL%0RJ$(1)S$J$(3):S$(5)S$"@"J$(4)S$J$(5):S$(6)S$"@"J$(6)S$J$(7):S$(8)S$J$(8):PL$S$(4):520:S$(4)PL$:PL$J$(9)S$J$(2):520 S$(7)PL$:(J$(4))1(J$(4))1S$(5)S$"@"(J$(4),1)S$J$(5):(J$(4))0S$(5)S$"@"J$(5)O!(J$(6))DN$S$(9):"DN$S$(8):2DN$S$(1):AS$(9)"":PS$(9)S$:^: KI%=1l : KI%=21001:999:J(1)I1J(4)J(8)J(3):J(5)J(8)J(3):J(6)J(1)J(4):J(7)J(3)J(5):J(9)J(1)(1):J(2)J(3)(1):NN9:992:KI%41060S$(4)((1)9)1:X997:LEI:L1I:L2I1:S$SS$(I):ST$SS$(I1):KI%1025,1035,1050,1050hJ9$"":995999:PI1N(I):J(8)1P(I):PI1010,1015,1020:999:P21N(I):P21400,1409,1420999:DN1N(I):DN1011,1012,1013:S$(9)S$:J9$"none":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.5":9950% MO%3SC%(UN%,KI%,(MO%2)4)0%91000:TL10:4849,3:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1 &:891:MO%3SC%(UN%,KI%,1)1=&>842:844:845:847:822Q&?TC35:LI1:LJ4h&H3000:MO%4İ1000&IMO%4ZF%1:ZF$"ALG.2.5":9950&MNX$"fd"2130&NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110&O2110&RPG%0:MO%3İ25000'S)4,55:9100g4&ZS$"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:9100y4&16368,0:A$4&::(4);"VERIFY ";ZF$4&ZF%0:216,0::(4);"-";ZF$:4' ERROR TRAP FOR DISK FLIP4'216,0:822:99655a SCORE TR((218)(219)256)9220Č822:9225+3&H3& TRAP FOR DISK FLIPZ3&216,0:9990d3&9981o3&99903&5126,1:5127,30:5128,78:5129,186:51203&ZF%1ZS$"Check Disk Drive":99723&ZS$"Flip Disk"4&:MODE(2):12:B0:H(21(ZS$)(V1)8)2%X(X)(X74)42%Y(Y)(Y2425)2%C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)72%M(X)((X2)(X2))22%N(I)(((I3)(I3))3)2%P(I)(((I5)(I5))5)2%2& CONTROL-C TRAPPING%3&,9280:4352!1 $4848,(4849):91$1,64::SCR.UN.PACQ1$1,98::SCR.U1.PACj1"$1,118::SCR.U2.PAC1,$1,73::SCR.KI.PAC16$:SCR.MO.PAC1@$1,137::SCR.U3.PAC1% * FUNCTION DEFINITIONS *1%H(H)(H1)141%I(H)(H1)2 2%V(V)(1):840702#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:=0#u0# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)0#Z9(1)0#ZS$;0#ZP%1ĺ0#ZP%00#0# COMPRESSION BUFFER MANAGER0#Z9(1) 1$0,0:(4849)9230,9240,9250,9260,9270$(6):990:V18:H20(FA$):904:F5%2:480:F5%0:FA$AN$RIRI1:RI2İ300:3290/ S$D$(10):841:V14:610:851:854:V18:H20(FA$):1100:FA$S$(1):V20:H20(FA$):1100/ 700:/(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1) 0-#Z9("!":9000:900:841:3170@.l 851:V18:H20(FA$):C0:1100K.v 700:R. . TC37:LJ3:LI1:V14:S$D$(16):610:RI0:850:PG%1İ350. FA$S$(1):990:V20:H20(FA$):904:F5%1:480:F5%0:FA$AN$RIRI1. 841:V13:S$D$(15):610T/ FA$S40,V(V):9000:FL%2:H7:1100:7939,I(H):ZS$"!":9000:900:841:3150-b S$D$(9):V13:841:610:FA$S$(6):V15:H20(FA$):904:480:AN$FA$RIRI1:300:3180-g 841.j V14:ZS$"Try ":7939,I(3):7940,V(V):9000:FL%2:H7:1100:7939,I(H):ZS$0:3125P,= C5:846:FA$S$(5)"+"S$(4):990:(S$(4),1)"-"S$(4)"+"S$(4),D C0:846:H20(FA$):FA$S$(5):V18:C0:1100:H4H,N S$D$(13):V13:841:610:V18:HH4:904:FA$S$(4):480:FA$AN$RIRI1:3170J-X 841:V14:ZS$"Try ":7939,I(3):79(2)")":V20:H20(FA$):C0:1100:900:841:V13:S$D$(12):610:C5:FA$S$(3):846+5 V15:H20:904:480:AN$FA$RIRI1:3133 ,: 841:V14:ZS$"Try ":7939,I(3):7940,V(V):9000:H7:FL%2:1100:7939,I(H):ZS$"!":9000:900:841:S$D$(12):V13:61* _*& S$D$(11):TC37:LJ3:LI2:V14:RI0:610:850:H16:904:480:AN$FA$RIRI1:3120h*+ 841*. V14:ZS$"Try ":7939,I(3):7940,V(V):9000:H7:FL%2:1100:7939,I(H):ZS$"!":9000:900:841:3110U+0 V16:S$D$(14):610:FA$"("S$(3)")("S$8:C0:FA$S$(5)"+"S$(4):990:(S$(4),1)"-"S$(4)"+"S$(4)) C0:846:H20(FA$):FA$S$(5):1100:H4H:900:S$D$(13):V13:841:610:FA$S$(4):V18:HH4:C0:1100:900:S$D$(9):V13) 841:610:851:FA$S$(6):V18:H20(FA$):C0:1100* 700:00,3200,3200:t( S$D$(11):TC37:LJ3:LI2:V14:610:850:V14:H15:FA$S$(1):C5:1100:900:V16:S$D$(14):610( FA$"("S$(3)")("S$(2)")":V20:H20(FA$):1100:900:841:V13:S$D$(12):610:C0:FA$S$(3):V15:H18:C5:1100A) C5:846:900:V12000f' PS$"+":V8:IJ844:FA$S$(IJ):C0:H(IJ8)11(IJ8)28(FA$):1100::848:S$D$(1)' V10:I211:FA$S$(I):C0:H(I2)11(I1)28((FA$)7)((FA$))((FA$)6)((FA$)2):FL%1:1100::7939,8:7940,40:ZS$S$:9000( MO%3010,31ACKING ROUTINE5aI1NU%(5aJ14N5aSC%(I,J,1)0SC%(I,J,5)3:250305aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:250305aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:250305aSC%(I,J,5)25a:5e5127,126:5128,76:5129,163:5120:7:BOX(228,1)298,144:858^Y7:BOX(228,1)21,144:ZMO%2įBOX(245,1)280,144:\Y43:X1851,852:Y58:X2851,852:k7969,22:7939,45(ZS$):7940,17:9000:7969,8:l7969,22:7939,45(ZS$):7940,583:5120:hP7:BOX(140,1)70,65:FF$PS$:V9:H18:C7:MODE(2):1160:MODE(1):BOX(140,1)303,65:QZW$FA$:FA$(EZ$,(ZW$)1):907:C0:1100:FA$ZW$:R7:BOX(427,1)49,144:S5126,3:5127,125:5128,76:5129,143:5120:TAX5126,3:4,V(V)6ZIH(H)47,V(V)6ZI:ZI:15:^I5126,3:5127,94:5128,76:5129,120:5120:dJjLM5126,3:5127,95:5128,76:5129,165:5120:NC(C):ZI03:BOX(154ZI2,32M(ZI)2)63ZI,50M(ZI):: O5126,7:5127,33:5128,70:5129,D"MO%4TT20NX$"fd":729/NX$"bk":822:b 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:.DC(C):MODE(2):ZI01:H(H):9100:MODE(1)RMO%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 SELECTEZP%1:9000:q822:NX$"":ZS$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1)MO%4704ZS$"Menu":MODE(2):18,178:9100:MODE(1):PG%9įMODE(2):90,178:9100:MODE(1):704ZS$"Problems":MODE(2):68,1786vLTTC11:X$(S$,LT,1):X$SP$X$"-"670aZS$(S$,LT(X$SP$)):ZP%1:9000:660S$(S$,(S$)LT):VV1:LI1VV1620::::(7);"WORD TOO LONG":L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0:9000:C0:836:822:9 II2A$"2"(FA$,2,1)"@"A$"@"S A$(13)AN$AN$A$` :822:i 523 LP(PL$)1:(PL$,1)"+"PL$(PL$,LP)  bL(S$):LTCLJ0T$S$:690: cHLJl7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905:822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1:9100:MODE(1):15:B0: 849:907:AN$"":RA(FA$):470:II1RA C5:836:460:NX$"redo"C0:836:484 NX$"":480 A$(13)AN$""481 A$(13)AN$"":C0:836:1120:HH2:MODE(1):x A$SS$(L2)((A$)32)SS$(L2)A$SS$(L2):FF$A$:C0:836:1120:HH2:MODE(1): A$"+"A$"-"FF$A$:C0:836:1120:HH2:MODE(1): A$"("A$")"FF$A$:C0:836:1130:HH2:MODE(1): (7);:460i (MO%1)1400,4028 NX$"redo"A$(13)įMODE(1): A$"2"II2(FA$,2,1)"@"A$"@":C0:836:FF$"2":1190:HH1:MODE(1): A$"0"A$"9"NN(A$):C0:836:FF$A$:1120:HH2:MODE(1):" A$SS$(L1)((A$)32)SS$(L1)A$SS$(L1):FF$A$$T$:9000:2 ^MO%3SC%(UN%,KI%,(MO%2)4)08 _H 16368,0:W 390:A$:z 390:A$:A$(127)NX$"redo"  400:A$(32)415  400:A$"0"A$"9"ANS(A$): 420 420:AN1AN4CHAN: 440 MODE(2):" ALG.2.5.2 - SJW - V.101589-99007c9600VdEZ$" "vMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$5MO%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)1 67939,4:7940,136:ZS:9000:7969,8:z`{15:7939,2:7940,7:ZS$"C"(KI%)" P":MO%4ZS$ZS$(PG%):893p|ZS$ZS$" "}9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897ZS$ZS$" "(PG%)9000:A822:1:B15:ZS$"Space Bar":MODE(2):39,177:9100:MODE(1):415:MODE(2):39,177:15:9100:MODE(1)::B0:QV9V:H9H:wV9((7940)8)1:H9((7939)2)17939,I(H9):7940,V(V9):X9(H91.1)8:Y9(V98)5:: GOTO OLD CURSOR POSITIONVV9:HH9:4849,1:9200:0ode 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.5":9950$ MO%3SC%(UN%,KI%,(MO%2)4)0<%91000:9X#S$(9)J$(4)S$:S$(4)S$(9)"#"J$(6)S$"@"J$(7)S$:S$(5)J$(4)S$"@"J$(9)S$^#n#MO%42105#MO%0:PG%0:KI%2:912:891#ZS$T1$:876:ZS$T2$:875:15#H14:V6(2KI%):WD$TY$(KI%)# V6\$ LJ0:TC34:S$WD$:610:VV2:S$"M5),1)T"S$(1)S$"@"J$(5)S$J$(1):S$(2)S$J$(2):S$(3)S$J$(3):S$(8)S$J$(8)"J9$"none"S$(9)S$:S$(4)S$"#"J$(5)S$"@"J$(1)S$:S$(5)S$"@"J$(8)S$:1429#S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(6)S$J$(7):S$(5)J$(4)S$J$(9):1420?!J(4)2N((J(4))):IJ23:J(IJ)J(8)J(IJ)J(IJ)(1)!:J(1)J(2)J(3):J(5)J(2)J(3):J(8)J(8)((J(8)J(2))J(3)):J(8)J(8)(J(8)9)3"J(6)J(4)J(5):J(7)J(4)J(1):J(9)J(8)J(4):NN9:992:IJ23:S$(IJ)S$J$(IJ)::(J(5))1J$(5)(J$(:S$(5)S$"@"J$(8)S$:1419u S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(6)S$J$(7):S$(5)J$(4)S$J$(9):1419 S$(9)J$(4)S$:S$(4)S$(9)"#"J$(6)S$"@"J$(7)S$:S$(5)J$(4)S$"@"S$(9)S$ !IJ24:999:995:J(IJ)ISG::J(2)J(3)14299:J(4)2N(I):J(1)J(2)J(3):J(5)J(2)J(3):J(8)J(8)(J(8)J(2))J(6)J(5)J(4):J(7)J(4)J(1):J(9)J(8)J(4):NN9:992:S$(2)S$J$(2):S$(3)S$(2):S$(1)S$"@"J$(5)S$J$(1):S$(8)S$J$(8) J9$"none"S$(9)S$:S$(4)S$"#"J$(5)S$"@"J$(1)S$(9)S$:S$(4)S$"#"J$(1)S$:S$(5)S$"@"J$(8)S$:1408}S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(7):S$(5)J$(4)S$J$(9):1408~S$(9)J$(4)S$:S$(4)S$(9)"#"J$(7)S$:S$(5)J$(4)S$"@"J$(9)S$E999:995:IJ23:J(IJ)ISG::9H),V(V)4:ZS$FF$:9100:: DRAW.EXPONENTx999:J(2)I:J(3)J(2)(1):999:J(4)2N(I):J(1)J(2)J(3):J(8)J(8)(J(8)J(2)){J(9)J(4)J(8):J(7)J(1)J(4):NN9:992:S$(2)S$J$(2):S$(3)S$J$(3):S$(1)S$"@"J$(1):S$(8)S$J$(8):|J9$"none"S$V(V):9100:Jj13:ZS$FF$:MODE(2):H(H)4,V(V):9100:MODE(1):wt9:ZS$FF$:((H1)72),V(V):9100:C(C):ZS$FF$:((H1)72),V(V):9100:15:MODE(1):H(H),V(V)4:ZS$FF$:9100:MODE(2):: DRAW.EXPONENT-15:H(F,1)4MC0FF$"@"FF$"#"İ1160:HH2:1110[NFF$"@"FF$"2":1190:HH1:1110OFF$"("FF$")"CLC:C5:1160:CCL:HH2:1110PFF$"#"FF$"3":1190:HH1:1110Q1120:HH2VFF:MODE(1):C0:`9:ZS$FF$:MODE(2):H(H)4,:J(2)010354NN2:992:J(1)1J$(1)"":1042QJ(1)1J$(1)"-":1042s(J$(1))0S$(6)J$(2):1043S$(6)J$(1)S$J$(2)S$(6)S$(7)1035I17:PL$S$(I):520:S$(I)PL$::: KI%=3 & 4LMODE(2):FF1(FA$):FF$(FA$,F:995:J(II)ISG::J(6)2N(I):J(7)J(3)J(6):J(8)J(4)J(6):J(9)J(5)J(6):NN9:992 E192:(J(E))1J$(E)(J$(E),1):S$(2)J$(1)S$J$(2):S$(1)J$(3)S$J$(4):S$(3)J$(7)S$J$(8):S$(4)J$(5)S$:S$(5)J$(9)S$:J(1)J(1)J(7):J(2)J(2)J(8)99:PI1N(I):J(8)1P(I):PI1010,1015,1020:999:P21N(I):P21400,1409,1420{999:DN1N(I):DN1011,1012,1013:S$(9)S$:J9$"none":DN$S$(9):DN$S$(8):DN$S$(1):S$(9)"":S$(9)S$:: KI%=1X II16:999I1NN:J$(I)(J(I)):J(I)0J$(I)"+"J$(I)9I:f999:SG$"+":SG1:N(I)1SG$"-":SG1I((1)7)1:I(I7)6(I7)I:I((1)9)1:997:LEI:L1I:L2I1:S$SS$(I):ST$SS$(I1):KI%1025,1035,1050,1050J9$"":995R9TL10:4849,3:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1]%:891:MO%3SC%(UN%,KI%,1)1z%>842:844:845:847:822%?TC35:LI1:LJ4%H2600:MO%4İ1000%IMO%4ZF%1:ZF$"ALG.2.5":9950%MNX$"fd"2130&NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110#&O2110;&RPG%0:MO%3İ25000E&S2000&( PS$"+":V8:IJ12:FA$S$(IJ):C0:H(IJ1)11(IJ2)28(FA$):1100::848:S$D$(1)&) V10:I45:FA$S$(I):C0:H(I4)11(I5)28(FA$):1100::7939,8:7940,40:ZS$S$:9000.'-822:9965*3a SCORE TRACKING ROUTINE73aI1NU%B3aJ14h3aSC%(I,J,1)0SC%(I,J,5)3:250303aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:250303aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:250303aSC%(I,J,5)23a:3e):12:B0:H(21(ZS$))4,55:91002&ZS$"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:91002&16368,0:A$2&::(4);"VERIFY ";ZF$2&ZF%0:216,0::(4);"-";ZF$:2' ERROR TRAP FOR DISK FLIP 3'216,0: CONTROL-C TRAPPING?1&((218)(219)256)9220Č822:9225E1&b1& TRAP FOR DISK FLIPt1&216,0:9990~1&99811&99901&5126,1:5127,30:5128,78:5129,186:51201&ZF%1ZS$"Check Disk Drive":99721&ZS$"Flip Disk"(2&:MODE(2I(H)(H1)2$0%V(V)((V1)8)80%X(X)(X74)N0%Y(Y)(Y2425)0%C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)70%M(X)((X2)(X2))20%N(I)(((I3)(I3))3)0%P(I)(((I5)(I5))5)0%1&)9230,9240,9250,9260,9270,9280:4352;/ $4848,(4849):S/$1,64::SCR.UN.PACk/$1,98::SCR.U1.PAC/"$1,118::SCR.U2.PAC/,$1,73::SCR.KI.PAC/6$:SCR.MO.PAC/@$1,137::SCR.U3.PAC/% * FUNCTION DEFINITIONS */%H(H)(H1)140% SCREEN, MODE(1)#.-#Z9(1):840Q.2#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:W.#.# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2).#Z9(1).#ZS$;.#ZP%1ĺ.#ZP%0.#.# COMPRESSION BUFFER MANAGER.#Z9(1)'/$0,0:(4849RIRI1&-" 841:V13:S$D$(15):610v-, FA$S$(6):990:V18:H29(FA$):904:480:FA$AN$RIRI1:RI2İ300:2890-@ V15:S$D$(10):857:610:V18:H9.5(FA$):1100:FA$S$(5):V20:H9.5(FA$):1100-J 700:.(# DRAW CHARACTERS ON DOUBLE HI-RES):V18:H29(FA$):C0:1100:FA$S$(5):V20:H29(FA$):C0:1100:WR0İ300:2790{, 7939,4:7940,136:ZS$D$(18):9000, 700:, , TC37:LJ3:LI1:V14:S$D$(16):610:RI0:856:PG%1İ350 - FA$S$(5):990:V20:H29(FA$):904:480:FA$AN$841:S$"Try "FA$"!":V13:610:900:2768k+ S$D$(9):V13:841:610:FA$S$(6):HH(D$(9))1:904:480+ ((S$(6)))1L(S$(6))2:S$(6)(S$(6),1)(S$(6),L)+ AN$FA$İ841:S$"Try "FA$"!":V13:610:900:849:WR1:2775T, 851:856:FA$S$(6Try "FA$"!":V13:610:900:2740k* C5:846:FA$S$(3)"+"S$(2):990:(S$(2),1)"-"S$(2)"+"S$(2)* C0:846:H20(FA$):FA$S$(3):V18:C0:1100:H4H:V13:841* S$D$(13):V13:841:610:FA$S$(2):V18:HH4:904:480* ,+ WR0:AN$FA$İ2:V13:850:FA$S$(5)>) V13:S$D$(11):610:H16:904:480}) AN$FA$İ841:S$"Try "FA$"!":V13:610:852:900:2715) FA$S$(5):V20:H20(FA$):C0:1100:841:C5:846:FA$J$(6)) V13:S$D$(12):610:V15:H18:904:480$* AN$FA$İ841:S$"):H20(FA$):990:(S$(2),1)"-"S$(2)"+"S$(2)(P C0:846:FA$S$(3):1100:H4H:900:S$D$(13):V13:841:610:FA$S$(2):V18:HH4:C0:1100:900:S$D$(9):V13(Z 841:610:851:FA$S$(6):V18:H20(FA$):C0:1100( 700:( ) TC37:LJ3:LI J$(6)(J$(6),1):MO%2610,2700,2800,2800:'2 S$D$(11):TC37:LJ3:LI2:V13:610:850:V13:H15:FA$S$(5):C5:1100:V20:H20(FA$):C0:1100:900:841:V13:S$D$(12)'3 610:C0:FA$J$(6):V15:H18:C5:11005(< C5:846:900:V18:FA$S$(3)"+"S$(2  ALG.2.5 - SJW - V.101589+99002XI16:TY$(I)::I118:D$(I):yT2$"Add/Subtract Fractions"9600MODE(1)::15:B0:200016368,0:390:A$:400:A$(32)415 400:A$"0"A$"9"ANS(Aen remove them."k"If the sign is , remove the parentheses.","Combine like terms.","The answer is:""The LCD is","Multiply both the numerator and denominator by","Enter the second numerator."9"Factor it.","Enter the numerator.","Enter the dAdd:","Subtract:"j"Use a pencil and paper to calculate the answer.","Enter the final answer only.","If the denominators are the same, combine the terms using parentheses.""If the sign is , change the signs of the terms in parentheses, th%,5,2)UC%:((UC%20)DT)SC%(UN%,5,5)2:4040CSC%(UN%,5,5)1S900:821:r@ ** DATA STATEMENTS **r"Using Like Denominators","Monomial Denominators","Adding Polynomials","Subtracting Polynomials","Fractions II Test"|"Algebra Menu","0,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):0SC%(UN%,5,1)20:SC%(UN%4:TT1$5KI%((R%(TT)1)5)159TL10:PG%TTXHZF%1:KI%2061,2062,2063,2064qOTTTT1:TT202101RUN%2:4000:PG%0:25000SMO%0:2000 FACTORING TEST RESULTS821`UC%0:7939,52:7940,40:ZS$"Tried":9000:7939,64:794:TE%(II)0::2080= ZF%1:MO%0:KI%2061,2062,2063,2064W ZF$"ALG.2.5.1":9950qZF$"ALG.2.5.2":9950ZF$"ALG.2.5.3":9950ZF$"ALG.2.5.4":9950 PG%1 4UN%2:II14:SC%(UN%,II,3)5:SC%(UN%,II,4)0:SC%(4,II,3)0:SC%(4,II,4)0::UN: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)91"ZS$T1$:876:ZS$T2$:875_6: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)sZS$MZ$(I1):9000:S$TY$(I1):TC2681:H9(7939)21:*4849,1:9200:@ SHUFFLE ROUTINESTE%(1)0:SJ%1pZI1ND%: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:8ZS$(PG%):893! |ZS$ZS$" "V }9000:7939,2:7940,15:ZS$"M"(MO%):MO%4897m ZS$ZS$" "(PG%)y 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)M(LI)2)H(H)7LI,V(V)M(LI)5::7939,I(H):7940,V(V):ZS$MZ$(I1):9000X A 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$,186:5120:F 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) ?(SC%(UN%,I1,5)0)15C(SC%(UN%,I1,5))R @LI03:BOX(56LI2,16$,LT(X$SP$)):ZP%1:9000:660J S$(S$,(S$)LT):VV1:LI1VV1S 620y ::::(7);"WORD TOO LONG": L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0:9000: ZP%1:9000: 451206,17:51207,30:51208,78:51209$): 420+ 400:A$"2"A$HI$ı4 430R 420:AN1AN4CHAN:[ 440 bL(S$):LTCLJ0T$S$:690: cHLJ l7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905: vLTTC11:X$(S$,LT,1):X$SP$X$"-"670! ZS$(Senominator."," (Change the signs.)","Now that's right!"s(# 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##F# COMPRESSION BUFFER MANAGERR#Z9(1)$0,0:(4849)9230,9240,9250,9260,9270:4352 $4848,(4849):$1,64::SCR.UN.PAC$1,98:: SCR.U1.PAC"$1,118::SCR.U2.PAC,$1,73::SCR.KI.PAC 6$::9100:MODE(1):15:B0:E907:AN$"":RA(FA$):470:II1RArC5:836:460:NX$"redo"C0:836:484NX$"":846480A$(13)AN$""481A$(13)AN$""C0:836:IIRA:488II2A$"2"(FA$,2,1)"@"A$"@"A$(1L2):FF$A$:C0:836:1120:HH2:MODE(1):f A$"+"A$"-"FF$A$:C0:836:1120:HH2:MODE(1): A$"("A$")"FF$A$:C0:836:1130:HH2:MODE(1): (7);:460822:ZS$"Delete":MODE(2):2:B15:15,178:ZP%0:9100:ZS$" to Erase":1$,2,1)"@"A$"@":C0:836:FF$"2":1190:HH1:MODE(1): A$"0"A$"9"NN(A$):C0:836:FF$A$:1120:HH2:MODE(1): A$SS$(L1)((A$)32)SS$(L1)A$SS$(L1):FF$A$:C0:836:1120:HH2:MODE(1):, A$SS$(L2)((A$)32)SS$(L2)A$SS$(A$"0"A$"9"(RA$,II,1)"@"A$"@":AN$AN$A$:C0:835:FF$"2":HH9:VV9:1191: A$"0"A$"9"(RA$,II,1)"@"ZS$A$:9000:AN$AN$A$:C0:835: 446 MODE(2):(MO%1)1400,402 NX$"redo"A$(13)įMODE(1):; A$"2"II2(FA ((MO%1)1)400,402G NX$"redo"(A$(13)AN$"")C0:835:} A$"+"A$"-"ZS$A$:9000:AN$AN$A$:C0:835: A$"a"A$"z"ZS$A$:9000:AN$AN$A$:C0:835: A$"A"A$"Z"A$((A$)32):ZS$A$:9000:AN$AN$A$:C0:835:V $T$:9000:2 ^MO%3SC%(UN%,KI%,(MO%2)4)08 _H 16368,0:W 390:A$:z 390:A$:A$(127)NX$"redo"  400:A$(32)415  400:A$"0"A$"9"ANS(A$): 420 420:AN1AN4ı 440 906:C5:835" ALG.2.5.1 - SJW - V.101589-99007c9600VdEZ$" "vMODE(1)::15:B0:2000,RW(6(1))1:T$RW$(RW):RW4T$T$CM$NA$EX$5MO%3SC%(UN%,KI%,(MO%2)4)SC%(UN%,KI%,(MO%2)4)1 67939,4:7940,136:ZS)SC%(I,J,5)1:25030(aSC%(I,J,5)20a:6e16,0:822:9965/a SCORE TRACKING ROUTINEba " OPEN CDFILE$ FOR READING, 166 BYTES/RECORDoaI1NU%zaJ15aSC%(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))DTODE(2):12:B0:H(21(ZS$))4,55:9100&ZS$"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:9100&16368,0:A$&::(4);"VERIFY ";ZF$&ZF%0:216,0::(4);"-";ZF$:' ERROR TRAP FOR DISK FLIP'2& CONTROL-C TRAPPINGD&((218)(219)256)9220Č822:9225J&g& TRAP FOR DISK FLIPy&216,0:9990&9981&9990&5126,1:5127,30:5128,78:5129,186:5120&ZF%1ZS$"Check Disk Drive":9972&ZS$"Flip Disk"-&:MSCR.MO.PAC-% * FUNCTION DEFINITIONS *A%H(H)(H1)14T%I(H)(H1)2j%V(V)((V1)8)~%X(X)(X74)%Y(Y)(Y2425)%C(C)(C0)0(C1)6(C2)1(C3)15%M(X)((X2)(X2))2%N(I)(((I3)(I3))3)%3)AN$AN$A$:822:rH8H9:906:ZS$(EZ$,RA):7940,(7940)4:9000:906:9000:906:AN$"":NX$"":470(AN$)(RA)C0:836:II(AN$)1:445:H9H91:NX$"redo"A$(13)496C0:836:NX$"redo"NX$"":H9H8:490A$(13)AN$""RA(AN$):496:A$(13)AN$""H9H9(H9H8)C491L523x LP(PL$)1:(PL$,1)"+"PL$(PL$,LP)~ bL(S$):LTCLJ0T$S$:690:cHLJl7939,I(H):7940,V(V):(S$)TCZS$S$:9000:905:vLTTC11:X$(S$,LT,CL:HH1(FL%0):1110?RFF$"#"FF$"3":1190:HH1:1110WS1120:HH1(FL%0)tVFF: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:j13:ZS$FF$:MODE(2):H(H)4,V(V : KI%=2!: KI%=3 & 4NL(FL%1)((FA$)6)įMODE(1):FL%1:1103aMMODE(2):FL%0OFF1(FA$):FF$(FA$,FF,1):C0FF$"@"FF$"#"İ1160:HH1(FL%0):1110PFF$"@"FF$"2":1190:HH1:1110QFF$"("FF$")"CLC:C5:1160:C(E),1)J:II132:PL$J$(II):520:J$(II)PL$::PL$DN$:520:DN$PL$S$(6)J$(1)S$J$(2)ST$:S$(7)J$(3)S$J$(4)ST$:S$(8)J$(5)S$J$(6)ST$:J$(7)J$(7)S$:J(7)0J$(7)""J$(8)J$(8)ST$:J(8)0J$(8)""PL$J$(7)J$(8):520:AS$PL$::DN1011,1012:,S$(9)S$:J9$"none":<DN$S$(9):LDN$S$(8):[S$(9)"":jS$(9)S$:t1001II14:999:995:J(II)ISG:995:PS$SG$:II34:J(2II)J(II)SG:J(II4)J(II2)J(II2)::NN8:992:E18:(J(E))1J$(E)(J$)I((1)7)1:I(I7)6(I7)I:=I((1)9)1:997:LEI:L1I:L2I1:S$SS$(I):ST$SS$(I1):KI%1025,1035,1050,1050J9$"":995999:PI1N(I):J(8)1P(I):PI1010,1015,1020:999:P21N(I):P21400,1409,1420999:DN1M(I)9H:/V9((7940)8)1:H9((7939)2)1:i7939,I(H9):7940,V(V9):X9(H91.1)8:Y9(V98)5:yVV9:HH9:4849,1:9200:I1NN:J$(I)(J(I)):J(I)0J$(I)"+"J$(I)I:999:SG$"+":SG1:N(I)1SG$"-":SG1ZS$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:V9V:H3:5127,126:5128,76:5129,163:5120:7:BOX(228,1)298,144:]Y7:BOX(228,1)21,144: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%48,76:5129,V(V)7:5120:KO5126,7:5127,33:5128,70:5129,83:5120:P7:BOX(150,1)65,65:FF$PS$:V9:H18.5:C7:MODE(2):1160:MODE(1):BOX(150,1)298,65:R7:BOX(427,1)49,144:S5126,3:5127,125:5128,76:5129,143:5120:@X5126,)ZIH(H9)14,V(V91)ZI::15:wDC(C):MODE(2):ZI01:H(H)4,V(V)6ZIH(H)47,V(V)6ZI:ZI:15:I5126,3:5127,94:5128,76:5129,120:5120:JLM5126,3:5127,95:5128,76:5129,165:5120:N5126,3:5127,V(V)4:512729NX$"bk"822:E RIGHT ARROW OR SPACE BAR SELECTEDpPG%9((MO%4)(TT20))NX$"fd":739}NX$"bk"822:615:B15:MODE(2):5,178:19);:MODE(1):B0:=BX((H2)8)4:BY(V8)2%CC(C):ZI01:H(H9),V(V9120įMODE(2):44,178:ZS$"Problems":9100:MODE(1)rMO%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":NX$"":ZS$"{]":MODE(2):1:B15:4,178:9100:ZS$"]}":123,178:9100:MODE(1)cMO%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)5MO%4TT1):X$SP$X$"-"670DZS$(S$,LT(X$SP$)):ZP%1:9000:660mS$(S$,(S$)LT):VV1:LI1VV1v620::::(7);"WORD TOO LONG":L(T$):H20(L2):7939,I(H):7940,V(V):ZS$T$:PA1PA0:9000:ZP%1:9000:T822:):9100:MODE(1):At9:ZS$FF$:((H1)72),V(V):9100:yC(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$:9100:: DRAW.EXPONENT 15:MODE(1):H(H),V(V)4:ZS$FF$:9100J MODE(2):FL%1įMODE(1): DRAW.EXPONENTP  x999:J(2)I:J(3)J(2)(1):999:J(4)2N(I):J(1)J(2)J(3):J(8)J(8)(J(8)J(2))!{J(9)J(4)J(8):J(7)J(1)J(4):NN9:992:S$(2)S$J$(2):S$(3)S$J$(3):S$(1)S$"@"J$(1"Try "FA$"!":V13:610:900:851:WR1:2370E.L WR0İ300:2390l.Q 7939,4:7940,136:ZS$D$(18):9000w.V 700:}.` .j RI0:TC37:LJ3:LI1:V13:S$D$(16):610:I12:RI(I)0::856:PG%1İ350/t FA$DN$:990:V20:H30(FA$):H(H21)21(H20)315,1)105,58:FA$S$(6)S$(8):V7:H20(FA$):C0:1100:FA$DN$:V9:H20(FA$):C0:1100:841:V13:S$D$(9)-8 856:V20:H29.5((FA$)7)((FA$))((FA$)6)((FA$)2):1100:V13:610:WR00.B FA$AS$:990:V18:H29.5(FA$):904:480:AN$FA$İ841:S$13:610:850:V20:H20(FA$):1100:FA$S$(6)PS$"("S$(7)")", 990:V18:H20(FA$):904:480:AN$FA$İ841:S$"Try "FA$"!":V13:610:900:851:2320, 841:S$D$(8):SG$"-"S$D$(7),. V13:610:FF$SG$:V13:H18:1130n-3 900:847:7:BOX(D$(8):SG$"-"S$D$(7)@+V13:610:FF$SG$:V13:H18:1130+851:FA$S$(6)S$(8):V18:H20(FA$):C0:1100:900:841:V13:S$D$(9):610:851+FA$AS$:V18:H20(FA$):C0:1100:S$D$(10):V15:610+700:+A, S$D$(6):TC37:LJ3:LI1:V2)28((FA$)7)((FA$))((FA$)6)((FA$)2):1100::7939,8:7940,40:ZS$S$:9000w*MO%2210,2300,2400,2400:*S$D$(6):TC37:LJ3:LI1:V13:610:850:V20:H20(FA$):1100:FA$S$(6)PS$"("S$(7)")":V18:H20(FA$):C0:1100:900+841:S$<)NPG%PG%1:891:MO%3SC%(UN%,KI%,(MO%2)5)PG%:2110F)O2110^)RPG%0:MO%3İ25000h)S2000)V8:IJ67:FA$S$(IJ):C0:FL%1:H(IJ6)11(IJ7)28(FA$):1100::848:FA$DN$:S$D$(1):PS$"-"S$D$(2)X*V10:I12:C0:FL%1:H(I1)11(ISC%(UN%,KI%,(MO%2)4)0_(91000:TL10:4849,3:9200:ZS$T2$:876:ZS$WD$:875:MO%4PG%1(:891:MO%3SC%(UN%,KI%,1)1(>842:844:845:847:822(?TC35:LI1:LJ4(H2200:MO%4İ1000(IMO%4ZF%1:ZF$"ALG.2.5":9950)MNX$"fd"2130LJ0:TC34:S$WD$:610:VV2:S$"Mode Selection":610:V11:I114:7939,6:7940,V(V):ZS$MZ$(I1)" "CH$(I1):9000:VV2:'7939,6:7940,152:ZS$"Your choice? (1-4) ":9000:440:ZS$A$:9000:MO%AN:A$"4"ZF%1:MO%0:ZF$"ALG.2.5":9950( MO%3S$J$(7):S$(5)J$(4)S$J$(9):1429{&S$(9)J$(4)S$:S$(4)S$(9)"#"J$(6)S$"@"J$(7)S$:S$(5)J$(4)S$"@"J$(9)S$&&MO%42105&MO%0:PG%0:KI%1:912:891&ZS$T1$:876:ZS$T2$:875:15&H14:V6(2KI%):WD$TY$(KI%)& V6' S$J$(IJ)::(J(5))1J$(5)(J$(5),1)w%S$(1)S$"@"J$(5)S$J$(1):S$(2)S$J$(2):S$(3)S$J$(3):S$(8)S$J$(8)%J9$"none"S$(9)S$:S$(4)S$"#"J$(5)S$"@"J$(1)S$:S$(5)S$"@"J$(8)S$:1429&&S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(6)99:995:J(IJ)ISG::J(2)J(3)1420b$J(4)2N((J(4))):IJ23:J(IJ)J(8)J(IJ)J(IJ)(1)$:J(1)J(2)J(3):J(5)J(2)J(3):J(8)J(8)((J(8)J(2))J(3)):J(8)J(8)(J(8)9)3*%J(6)J(4)J(5):J(7)J(4)J(1):J(9)J(8)J(4):NN9:992:IJ23:S$(IJ):S$(4)S$"#"J$(5)S$"@"J$(1)S$:S$(5)S$"@"J$(8)S$:1419#S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(6)S$J$(7):S$(5)J$(4)S$J$(9):1419#S$(9)J$(4)S$:S$(4)S$(9)"#"J$(6)S$"@"J$(7)S$:S$(5)J$(4)S$"@"S$(9)S$#&$IJ24:9999:995:IJ23:J(IJ)ISG::999:J(4)2N(I):J(1)J(2)J(3):J(5)J(2)J(3):J(8)J(8)(J(8)J(2))"J(6)J(5)J(4):J(7)J(4)J(1):J(9)J(8)J(4):NN9:992:S$(2)S$J$(2):S$(3)S$(2):S$(1)S$"@"J$(5)S$J$(1):S$(8)S$J$(8)A#J9$"none"S$(9)S$):S$(8)S$J$(8)]!|J9$"none"S$(9)S$:S$(4)S$"#"J$(1)S$:S$(5)S$"@"J$(8)S$:1408!}S$(9)""S$(9)J$(4):S$(4)S$(9)S$"@"J$(7):S$(5)J$(4)S$J$(9):1408!~S$(9)J$(4)S$:S$(4)S$(9)"#"J$(7)S$:S$(5)J$(4)S$"@"J$(9)S$!!h"H/~ 904:480?/ FA$AN$RIRI1:841:V13:S$D$(15):610/ FA$AS$:990:V18:H29.5(FA$):904:480:FA$AN$RIRI1:RI2İ300:2490/ V15:S$D$(10):857:610:V18:H9.5(FA$):1100:FA$DN$:V20:H10(FA$):H(H2)H(H1)H:11000 700::0(# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(1)K0-#Z9(1):840y02#ZL1(ZS$):7941,((ZS$,ZL,1)):7936:0#0# DRAW CHARACTERS ON DOUBLE HI-RES SCREEN, MODE(2)0#Z9(1)0#ZS$;0#ZP%1ĺ0#ZP%00# 1# COMPRESSION BUF250306aSC%(I,J,5)2 6a:&6e ERROR TRAP FOR DISK FLIP45'216,0:822:9965R5a SCORE TRACKING ROUTINE_5aI1NU%j5aJ145aSC%(I,J,1)0SC%(I,J,5)3:250305aSC%(I,J,1)0SC%(I,J,1)5SC%(I,J,5)2:250306aSC%(I,J,1)4((SC%(I,J,2)SC%(I,J,1))DT)SC%(I,J,5)1:99724&ZS$"Flip Disk"P4&:MODE(2):12:B0:H(21(ZS$))4,55:91004&ZS$"and":H(21(ZS$))4,75:9100:ZS$"Press ANY Key":H(21(ZS$))4,100:91004&16368,0:A$4&::(4);"VERIFY ";ZF$4&ZF%0:216,0::(4);"-";ZF$:5' %P(I)(((I5)(I5))5)$3%>3& CONTROL-C TRAPPINGg3&((218)(219)256)9220Č822:9225m3&3& TRAP FOR DISK FLIP3&216,0:99903&99813&99903&5126,1:5127,30:5128,78:5129,186:51204&ZF%1ZS$"Check Disk Drive":DEFINITIONS *#2%H(H)(H1)1462%I(H)(H1)2L2%V(V)((V1)8)`2%X(X)(X74)v2%Y(Y)(Y2425)2%C(C)(C0)0(C1)6(C2)1(C3)15(C4)12(C5)13(C6)9(C7)72%M(X)((X2)(X2))22%N(I)(((I3)(I3))3)3FER MANAGER1#Z9(1)O1$0,0:(4849)9230,9240,9250,9260,9270,9280:4352c1 $4848,(4849):{1$1,64::SCR.UN.PAC1$1,98::SCR.U1.PAC1"$1,118::SCR.U2.PAC1,$1,73::SCR.KI.PAC16$:SCR.MO.PAC1@$1,137::SCR.U3.PAC2% * FUNCTION