M&': COCO 3 MEMORY MANAGER&%':&C'$ ZZ0 ZZ1 : 10150&J'.:&`'8: INITIALIZATION&'B BD,B3,ED,1A,50,B7,FF,A0,B7,FF,A8,F7,FF,A1,F7,FF,A9,8E,00,00&'L A6,84,A7,89,20,00,30,01,8C,20,00,26,F3,17,81,73,1C,AF,39&'V I&H5F00 &H5F0038''` A$: I,("&H"A$)''j I'.'t9&H5F00'C'~ZM$(483," ")'I''P':'f': COMMAND DECODE'o'ZE0''ZA("DELSTRGETREAWRI",ZF$)'' ZA0 ZE1: 10940''ZA(ZA2)3''Έ ZA 10210,10290,10470,10590,10780'':(': DEL(ETE) FUNCTION - DELETES ENTRY FROM MAP(,'쁦 10910(Y' ZC$"999" ZM$(483," "): 10940(l(ZA(ZM$,ZC$)(( ZA0 ZE1: 10940(( (ZC$)100 (ZM$,ZA,12)" " : (ZM$,ZA,3)" "(( 10940(((:)(2: ST(O)R(E) FUNCTION - STORES BLOCK TO MEMORY)#(< 10910)6(FZA(ZM$,ZC$))S(P ZA0 ZE1: 10940)(Z (ZC$)100 ZB$" " : ZB$" ")(dZA(ZM$,ZB$))(n ZA0 ZE1: 10940)(x (ZC$)100 ZC$ZC$ZC$ZC$ZC$)((ZM$,ZA,(ZC$))ZC$* (ZB(ZA1)3*(ZC$(ZC$,3)*y( (ZC$)100 ZD48 : (ZC$)200 ZD54 : (ZC$)300 ZD52 : ZE1: 10940*( (ZC$)100 ZF3 : ZF0*( ZI0 ZF*(A9((ZDZI)256ZBZI)*(ȋ*(ҁ 10940*(:+(: GET FUNCTION - GETS BLOCK FROM MEMORY+( 10910+.(ZA(ZM$,ZC$)+J) ZA0 ZE1: 10940+Z)ZB(ZA1)3+) (ZC$)100 ZD48 : (ZC$)200 ZD54 : (ZC$)300 ZD52 : ZE1: 10940+)" (ZC$)100 ZF3 : ZF0+), ZI0 ZF,)6A9((ZBZI)256ZDZI), )@,)J 10940, )T:,T)^: REA(D) FUNCTION - READS BLOCK FROM DISK FILE,a)h 10910,t)rZA(ZM$,ZC$),)| ZA0 E1: 10940,) (ZC$)100 ZB$" " : ZB$" ",)ZA(ZM$,ZB$),) ZA0 ZE1: 10940-) (ZC$)100 ZC$ZC$ZC$ZC$ZC$-7)(ZM$,ZA,(ZC$))ZC$-G)ZB(ZA1)3-Q)ZC59-c)ZC$(ZC$,3)-)օ (ZC$)100 ZF3 : ZF0-) ZI0 ZF-)M"EM"ZC$"/"((ZI),1)-)A9(ZC256ZBZI)-)-* 10940-*:.*: WRI(TE) FUNCTION - WRITES BLOCK TO DISK FILE.'*& 10910.:*0ZA(ZM$,ZC$).V*: ZA0 ZE1: 10940.f*DZB(ZA1)3.p*NZC59.*X (ZC$)100 ZF3 : ZF0.*b ZI0 ZF.*lA9((ZBZI)256ZC).*vM"EM"ZC$"/"((ZI),1),&H6000,&H7FFF,&H6000.*/* 10940/ *:/(*: CONVERT ZC$"SUBROUTINE/@*ZC$("000"ZC$,3)/F*/L* 10940.f*DZB(ZA1)3.p*NZC59.*X (ZC$)100 ZF3 : ZF0.*b ZI0 ZF.*lA9((ZBZI)256ZC).*vM"EM"ZC$"/"((ZI),1),&H6000,&H7FFF,&H6000.*/* 1 &$: COPYRIGHT 1990 FALSOFT, INC&> 1000 :COLRTYPE V:1&^:@ 104,"COLOR TYPEWRITER"&@ 166,"ROBERT ALLEN TURNER":@ 231,"(C) 25 APRIL 1989"&(:: "LOAD & PRINT OLD FILE (Y/N)?"&2A$: A$"Y" 350 : A$"N" 50'<@ 256,(32,"-");: "SET MARGINS (0-132):"'=F @320,(30,32);: @320,;'P "LEFT-->";L$:L(L$): L0 L132 150,1: "ILLEGAL! 0-132": 80'Z "RIGHT->";R$:R(R$): R0 R132 150,1: "ILLEGAL! 0-132": 90(Jd "SPACING (1-3) 1=NORMAL, 2=DOUBLE3=TRIPLE--->";S$:S(S$): S1 S3 150,1: "ILLEGAL: 1-3": 100(|n (32,"-"): "SAVE APE ISK O SAVE"(xA$: A$"" 120 : A$"D" X1 : A$"C" X1 : A$"N" X0 : 120)< 150,1: X0 "FILENAME (8 CHARACTERS)-------->";F$:F(F$): (F1)(F8) "ILLEGAL!": 130) X1 "ENTER EXTENSION (3 CHARACTERS)->";X$: (X$)3 150,1: "3 CHARACTERS MAX.!": 140 : F$F$"."X$* : X1 "PREPARE CASSETTE PLAYER IN RECORD MODE" : X1 "INSERT TARGET DISK IN DRIVE:0"*M 150,1: "PRESS [ENTER] WHEN READY:";A$*e X0 "O",X,F$*y 150,1::ARL*(128);*B0:C1:T$(132,32)*҅ C1 C1*C$: C$"" 220 : C$(12) 300*C1(8);" ";+Q C$(8) C$;C$;" ";C$;(128);:CC1: C1 C1: 150,1::(T$,C,1)(32): 210+y CA 150,1: 200,1: 150,1:B1+ B1 C$(32) C$(13)+(8);:(T$,C,1)C$:CC1: C$;(128);: C$(8) (T$,C1,1)" ", C$(13) X0 #X,(T$,1,C1);,:" C$(13) 320: 200 : 210,s, X0 #X:: "DATA SAVED. YOU MAY REMOVE MEDIA",6 #2,(13);:,@ #2,L);(T$,1,C1);,J S1 #2,"": S2 #2,"",T-*^ "ENTER LEFT MARGIN (0-132)";L$:L(L$): L0 L132 "ILLEGAL!": 150,1: 350-Bh "SPACING (1,2,3)"-wrA$: A$"" 370 : A(A$): A1 A3 370-|: "APE ISK OR XIT".A$: A$"" 390 : A$"D" X1 : A$"T" X1 : A$"E" : "BYE." : 150,1: 390.b "FILENAME (8 CHARACTERS)-------->";F$: (F$)8 (F$)1 150,1: "ILLEGAL!": 400. X1 "ENTER EXTENSION (3 CHARACTERS)->";X$: (X$)3 "ILLEGAL! MAX. 3 CHARACTERS!": 410 : F$F$"."X$. X1 A$"DISK" : A$"TAPE"/) "INSERT "A$" CONTAINING FILE---->"F$/B "PRESS [ENTER]";A$/Q™ "I",X,F$/^̻ #X,C$/և #2,L);C$: A1 #2,"": A2 #2,""/ (X)1 500 : (12) 500/ꁥ 460/ #1: "**DONE**": X1 A$"DISK" : A$"TAPE"D6NL8D6BR10U12L4R8BL26BU12L10R2U6NR8U6L2R10D12"Ar!"BR64BU6NU30R4L24R2E6R6F4D4G4L6H4BL22BU4U30E4R6F4G4NR6L6NL8H4"A&"BR12BD50U12F12NU12BR6U12R8D6NL8D6BR10U12L4R8BR6D12R8NU12BR6U12R8D6L8R2F6BR6U12R8D6NL7D6BR6NU12R8BU24BL48NU12L10R2U6NR8U6L2R10"BG+"BR64BD22NU36R4L24R2E6R6F4BU8NR6NL18BD8D4G4L6H4BL22BU2U34E4R6F4D2G4L6H4U2"B0"BR12BD50U12F12NU12BR6U12R8D6NL8D6BR10U12L4R8BR6D12R8NU12BR6U12R8D6L8R2F6BR6U12R8D6NL7D6BR6NU12R8BU24BL48L8U12R8"CN5"BR64BD22NU36R4L24R2E6R6F4BU8NR6NL18BD8D4G4L6H4BL22BU2U34E4R6F4D2G4L6H4U2BH6BL2D14BL4U14D4L4R12L4D6R4L12BD24BR30D14BL4U14D4L4R12L4D6R4L12"C:"BR26BD50R8U6L8U6R8BR6D12U6R8U6D12BR6U12R8D6NL8D6BR6U12R8D6L8R2F6BR6U12R8D6L8BU18BL22L8U12R8"D!?"BR64BD18NU36ND2BL14E4R6U2NL14NR8D2F4D4G4L6H4U2BL22BU2U36E4R6F4D4G4L6H4U2BH6BL4D14E4U2H4BD30BR24D14E4U2H2"DwD"BR36BD50U6NR8U6R8BR6D12R8BR7U12R8D6NL8D6BR10U12L4R8BL32BU12R8NU12L10R2U12L2R10"DI"BR64BD18NU36ND2BL14E4R6U2NL14NR8D2F4D4G4L6H4U2BL22BU2U36E4R6F4D4G4L6H4U2"EHN"BR12BD50U12F12NU12BR6U12R8D6NL8D6BR10U12L4R8BR6D12R8NU12BR6U12R8D6L8R2F6BR6U12R8D6NL7D6BR6NU12R8BU24BL48NU12L10R2U12L2R10"ES"BR64BD18NU36ND2BL14E4R6U2NL14NR8D2F4D4G4L6H4U2BL22BU2U36E4R6F4D4G4L6H4U2BH6BL2D14BL4U14D4L4R12L4D6R4L12BD24BR30D14BL4U14D4L4R12L4D6R4L12"FGX"BR26BD50R8U6L8U6R8BR6D12U6R8U6D12BR6U12R8D6NL8D6BR6U12R8D6L8R2F6BR6U12R8D6L8BU18BL30R8NU12L10R2U12L2R10"F]"BR64BD14NU36R4L24R2E6R6F4D4G4L6H4BL22BU4U34E4R6F4D2G4L6H4U2BH6BL4D14E4U2H4BD30BR24D14E4U2H2"Fb"BR36BD50U6NR8U6R8BR6D12R8BR7U12R8D6NL8D6BR10U12L4R8BL26BU12L8U6NR8U6R8"G;g"BR64BD14NU36R4L24R2E6R6F4D4G4L6H4BL22BU4U34E4R6F4D2G4L6H4U2"Gl"BR12BD50U12F12NU12BR6U12R8D6NL8D6BR10U12L4R8BR6D12R8NU12BR6U12R8D6L8R2F6BR6U12R8D6NL7D6BR6NU12R8BU24BL48L8U6NR8U6R8"Gq"BR64BD8NU36ND2BL14E4R6F4D2G4L6H4BL22BU2U36E4R6F4D4G4L6H4U2"Hqv"BR12BD50U12F12NU12BR6U12R8D6NL8D6BR10U12L4R8BR6D12R8NU12BR6U12R8D6L8R2F6BR6U12R8D6NL7D6BR6NU12R8BU24BL56U6NR8U6R8"H{"BR64BD8NU36ND2BL14E4R6F4D2G4L6H4BL22BU2U36E4R6F4D4G4L6H4U2BH6BL2D14BL4U14D4L4R12L4D6R4L12BD24BR30D14BL4U14D4L4R12L4D6R4L12"IX"BR26BD50R8U6L8U6R8BR6D12U6R8U6D12BR6U12R8D6NL8D6BR6U12R8D6L8R2F6BR6U12R8D6L8BU18BL30U6NR8U6R8"I"BR64BD4NU36R4L24R2E6R6F4D4G4L6H4BL22BU4U34E4R6F4D2G4L6H4U2BH6BL4D14E4U2H4BD30BR24D14E4U2H2"J"BR36BD50U6NR8U6R8BR6D12R8BR7U12R8D6NL8D6BR10U12L4R8BL26BU12NU6L8U12R8BD6L2BU8BR2"JT"BR64BD4NU36R4L24R2E6R6F4D4G4L6H4BL22BU4U34E4R6F4D2G4L6H4U2"J"BR12BD50U12F12NU12BR6U12R8D6NL8D6BR10U12L4R8BR6D12R8NU12BR6U12R8D6L8R2F6BR6U12R8D6NL7D6BR6NU12R8BU24BL48NU6L8U12R8BD6L2BU8BR2"K["BR64BD4NU36R4L24R2E6R6F4D4G4L6H4BL22BU4U34E4R6F4D2G4L6H4U2BH6BL2D14BL4U14D4L4R12L4D6R4L12BD24BR30D14BL4U14D4L4R12L4D6R4L12"K"BR26BD50R8U6L8U6R8BR6D12U6R8U6D12BR6U12R8D6NL8D6BR6U12R8D6L8R2F6BR6U12R8D6L8BU18BL22NU6L8U12R8BD6L2BU8BR2"L,"BR64BU2NU36ND2BL14E4R6F4D2G4L6H4BL22BU2U36E4R6F4D4G4L6H4BH6BL4D14E4U2H4BD30BR24D14E4U2H2"L"BR36BD50U6NR8U6R8BR6D12R8BR7U12R8D6NL8D6BR10U12L4R8BL26BU12U12L8D6NR8D6BU12BR8"L"BR64BU2NU36ND2BL14E4R6F4D2G4L6H4BL22BU2U36E4R6F4D4G4L6H4U2"MH"BR12BD50U12F12NU12BR6U12R8D6NL8D6BR10U12L4R8BR6D12R8NU12BR6U12R8D6L8R2F6BR6U12R8D6NL7D6BR6NU12R8BU24BL48U12L8D6NR8D6BU12BR10"M"BR64BU2NU36ND2BL14E4R6F4D2G4L6H4BL22BU2U36E4R6F4D4G4L6H4U2BH6BL2D14BL4U14D4L4R12L4D6R4L12BD24BR30D14BL4U14D4L4R12L4D6R4L12"N:"BR26BD50R8U6L8U6R8BR6D12U6R8U6D12BR6U12R8D6NL8D6BR6U12R8D6L8R2F6BR6U12R8D6L8BU18BL22U12L8D6NR8D6BU12BR10"N"BR64BU6NU36R4L24R2E6R6F4D4G4L6H4BL22BU4U34E4R6F4D2G4L6H4U2BH6BL4D14E4U2H4BD30BR24D14E4U2H2"NƆ"BR36BD50U6NR8U6R8BR6D12R8BR7U12R8D6NL8D6BR10U12L4R8BL26BU12L10R2U6NR8U6L2R10ND12"O6ˆ"BR64BU6NU36R4L24R2E6R6F4D4G4L6H4BL22BU4U34E4R6F4D2G4L6H4U2"OІ"BR12BD50U12F12NU12BR6U12R8D6NL8D6BR10U12L4R8BR6D12R8NU12BR6U12R8D6L8R2F6BR6U12R8D6NL7D6BR6NU12R8BU24BL48NU12L10R2U6NR8U6L2R10"O0:I1 NN:TEM$P$(I,1):P$(I,1)P$(I,2):P$(I,2)TEM$:P큥105PE:@101,"YOU TRIED"NCNW"TIMES &":@165,"ANSWERED"NC"CORRECTLY"Pg@229,"WHILE DOING"NW"WRONG."PNQNCNW: NQ0 NQ1PMS(NCNQ100)P@293,"YOUR SCORE IS"MS"%."P @357,"ANOTHER TRY (Y/N/C) ?";PX$:X$"Y" PX$"N":QX$"C" Y17 270Q"1040&":@165,"ANSWERED"NC"CORRECTLY"Pg@229,"WHILE DOING"NW"WRONG."PNQNCNW: NQ0 NQ1PMS(NCNQ100)P@293,"YOUR SCORE IS"MS"%."P @357,"ANOTHER TRY (Y/N/C) ?";PX$:X$"Y" PX$"N":0,1:1,1/R"BM2,8C1","BM130,8C0","BM2,90C0","BM130,90C0","BM2,48C0","BM130,48C0"/_I1 NN/~A(I)(NN):N(A(I))1180/N(A(I))1:I:Y1 NN:1,0/I24/B(I)(3)1:N(B(I))0195/N(B(I))0:I:I14:N(I)1:0B(NN):BA((Y))2050%C(NN):CB CA((Y))2100= A$(1):P$(A(Y),1)0^ A$(B(2)):P$(B,2):P$(B,3)0 A$(B(3)):P$(C,2):P$(C,3)0 A$(B(4)):P$(A(Y),2):P$(A(Y),3)01,00Z000,40 A$(1)"C0":P$(A(Y),1)1 A$(B(2))"C1":P$(B,2):P$(B,3)1) A$(B(3))"C1":P$(C,2):P$(C,3)1U A$(B(4))"C1":P$(A(Y),2):P$(A(Y),3)1c0,1:1,11{(8,6)(120,80),,B1X$:X$" "290:X$"@"101011,0:(8,6)(120,80),,B:2751"ZZ1:Z4Z11'1,0:(C(Z),D(Z))(E(Z),F(Z)),,B2/,X$:X$" "290:X$(13)310:X$"@"10102[11,0:(C(Z),D(Z))(E(Z),F(Z)),,B:2952m6Z1B(4)3202;NWNW1:K15:0,4:1,1:10,3:0,1:1,1:1,3:K:2953 @NCNC1:0,4:1:(0,40)(256,126),,B:(6,44)(124,122),,B:(130,44)(248,122),,B:(2,42),0,03$E A$(5):P$(A(Y),1)3HJ A$(6):P$(A(Y),2):P$(A(Y),3)3QO1,13kTX$:X$(13)3403tY0,13^31:1,1:24:Y:10103c0,2:1:1,1:(0,40)(256,126),,B:(6,44)(124,122),,B:(130,44)(248,122),,B:(2,42),0,04hI1 NN: A$(5):P$(I,1)4.m A$(6):P$(I,2):P$(I,3)4HrX$:X$(13)3704w1,0:(8,46)(122,120),,BF:(132,46)(246,120),,BF:I4|4"BR64BD24NU36R4L24R2E6R6F4D4G4L6H4BL22BU4U34E4R6F4D2G4L6H4U2"5D"BR12BD50U12F12NU12BR6U12R8D6NL8D6BR10U12L4R8BR6D12R8NU12BR6U12R8D6L8R2F6BR6U12R8D6NL7D6BR6NU12R8BU24BL48L8U12R8"5"BR64BD24NU36R4L24R2E6R6F4D4G4L6H4BL22BU4U34E4R6F4D2G4L6H4U2BH6BL2D14BL4U14D4L4R12L4D6R4L12BD24BR30D14BL4U14D4L4R12L4D6R4L12"6*"BR26BD50R8U6L8U6R8BR6D12U6R8U6D12BR6U12R8D6NL8D6BR6U12R8D6L8R2F6BR6U12R8D6L8BU18BL22L8U12R8"6"BR64BD18NU36ND2BL14E4R6F4D4G4L6H4U2BL22BU2U36E4R6F4D4G4L6H4U2BH6BL4D14E4U2H4BD30BR24D14E4U2H2"6"BR36BD50U6NR8U6R8BR6D12R8BR7U12R8D6NL8D6BR10U12L4R8BL32BU12R8NU12L10R2U12L2R10"7*"BR64BD18NU36ND2BL14E4R6F4D4G4L6H4U2BL22BU2U36E4R6F4D4G4L6H4U2"7"BR12BD50U12F12NU12BR6U12R8D6NL8D6BR10U12L4R8BR6D12R8NU12BR6U12R8D6L8R2F6BR6U12R8D6NL7D6BR6NU12R8BU24BL48NU12L10R2U12L2R10"80"BR64BD18NU36ND2BL14E4R6F4D4G4L6H4U2BL22BU2U36E4R6F4D4G4L6H4U2BH6BL2D14BL4U14D4L4R12L4D6R4L12BD24BR30D14BL4U14D4L4R12L4D6R4L12"8"BR26BD50R8U6L8U6R8BR6D12U6R8U6D12BR6U12R8D6NL8D6BR6U12R8D6L8R2F6BR6U12R8D6L8BU18BL30R8NU12L10R2U12L2R10"9"BR64BD14NU36R4L24R2E6R6F4D4G4L6H4BL22BU4U34E4R6F4D2G4L6H4U2BH6BL4D14E4U2H4BD30BR24D14E4U2H2"9P"BR36BD50U6NR8U6R8BR6D12R8BR7U12R8D6NL8D6BR10U12L4R8BL26BU12L8U6NR8U6R8"9"BR64BD14NU36R4L24R2E6R6F4D4G4L6H4BL22BU4U34E4R6F4D2G4L6H4U2":†"BR12BD50U12F12NU12BR6U12R8D6NL8D6BR10U12L4R8BR6D12R8NU12BR6U12R8D6L8R2F6BR6U12R8D6NL7D6BR6NU12R8BU24BL48L8U6NR8U6R8":Pdž"BR64BD8NU36ND2BL14E4R6F4D2G4L6H4BL22BU2U36E4R6F4D4G4L6H4U2":̆"BR12BD50U12F12NU12BR6U12R8D6NL8D6BR10U12L4R8BR6D12R8NU12BR6U12R8D6L8R2F6BR6U12R8D6NL7D6BR6NU12R8BU24BL56U6NR8U6R8";Kц"BR64BD8NU36ND2BL14E4R6F4D2G4L6H4BL22BU2U36E4R6F4D4G4L6H4U2BH6BL2D14BL4U14D4L4R12L4D6R4L12BD24BR30D14BL4U14D4L4R12L4D6R4L12";ֆ"BR26BD50R8U6L8U6R8BR6D12U6R8U6D12BR6U12R8D6NL8D6BR6U12R8D6L8R2F6BR6U12R8D6L8BU18BL30U6NR8U6R8"<ۆ"BR64BD4NU36R4L24R2E6R6F4D4G4L6H4BL22BU4U34E4R6F4D2G4L6H4U2BH6BL4D14E4U2H4BD30BR24D14E4U2H2""BR26BD50R8U6L8U6R8BR6D12U6R8U6D12BR6U12R8D6NL8D6BR6U12R8D6L8R2F6BR6U12R8D6L8BU18BL22NU6L8U12R8BD6L2">w"BR64BU2NU32ND2BL14E4R6F4D2G4L6H4BL22BU2U32E4R6F4G4L6H4NL6NR18BH6BL4D14E4U2H4BD30BR24D14E4U2H2">"BR36BD50U6NR8U6R8BR6D12R8BR7U12R8D6NL8D6BR10U12L4R8BL26BU12U12L8D6NR8D6"? "BR64BU2NU32ND2BL14E4R6F4D2G4L6H4BL22BU2U32E4R6F4G4L6H4NL6R18"?"BR12BD50U12F12NU12BR6U12R8D6NL8D6BR10U12L4R8BR6D12R8NU12BR6U12R8D6L8R2F6BR6U12R8D6NL7D6BR6NU12R8BU24BL48U12L8D6NR8D6"@  "BR64BU2NU32ND2BL14E4R6F4D2G4L6H4BL22BU2U32E4R6F4G4L6H4NL6NR18BH8BL2D14BL4U14D4L4R12L4D6R4L12BD24BR30D14BL4U14D4L4R12L4D6R4L12"@s"BR26BD50R8U6L8U6R8BR6D12U6R8U6D12BR6U12R8D6NL8D6BR6U12R8D6L8R2F6BR6U12R8D6L8BU18BL22U12L8D6NR8D6"@"BR64BU6NU30R4L24R2E6R6F4D4G4L6H4BL22BU4U30E4R6F4G4NR6L6NL8H4BH6BL4D14E4U2H4BD30BR24D14E4U2H2"A."BR36BD50U6NR8U6R8BR6D12R8BR7U12R8&"* MUSIC 104: G AND F CLEF *&=9650:XX():NN17&_@390," READING G & F CLEF ";&#53,,,58,,53,,53,,,,58,48,58,,,,,,53,,53,,,71,,78,76,77,69,,69&-53,,,58,,53,,53,,,,58,,,,,,53,,53,,53,,,76,72,76,76,76,,,68&=NN34:NM17'PANNNN1: P$(NN,3),A$(6),B$(NN),C$(NN),A(NN),N(NN),B(4),C(4),D(4),E(4),F(4),AO(NN):NN17'ZMNN34'U::(32,"=");:@102,"AN INTRODUCTION TO":@137,"G AND F CLEF":@199,"A) REVIEW NOTES":@263,"B) QUIZ NOTES":@327,"C) REVERSE NOTES"N34:NM17'PANNNN1+#&"***************************&C* MUSIC 104: G AND F CLEF *&d* COPYRIGHT (C) 1990 *&* BY FRED B. SCERBO *&* 60 HARDING AVENUE *&* NORTH ADAMS, MA 01247 *&***************************'9650:XX():NN17'< 0:(32,220);(32,204);:I1224:A:(A128);:'X (32,195);(32,211);'z@390," READING G & F CLEF ";'@422," BY FRED B.SCERBO ";:@454," COPYRIGHT (C) 1990 ";(61,60,60,62,60,61,48,61,,,,62,48,62,60,60,60,61,48,61,56,53,60,60,60,61,48,,,,,(F53,,,58,,53,,53,,,,58,48,58,,,,,,53,,53,,,,,,,,,,(#53,,,58,,53,,53,,,,58,48,58,,,,,,53,,53,,,71,,78,76,77,69,,69((53,,,58,,53,,53,,,,58,,60,60,60,60,61,,53,,53,,,69,,74,,69,68,76,77)-53,,,58,,53,,53,,,,58,,,,,,53,,53,,53,,,76,72,76,76,76,,,68)J253,,,,,53,,53,,,,58,,50,,,,53,,53,,53,,,,49,,,,,,)760,56,,,,60,56,52,60,60,60,56,,60,60,60,60,60,,60,56,52,60,60,60,60,,,,,,)>>",_:(32,"=");,dX$:X():X$"A"355:X$"B"105:X$"C"1000:100-i0:0,1:1-'n(0,0)(254,170),,B-@s(6,4)(122,82),,BF-Zx(128,4)(248,82),,B-t}(6,86)(122,164),,B-(128,86)(248,164),,B.s"BM26,188C0NU10R10NU10BR6R10U6L10U4R10BR6NR10D4NR10D6R10BR12BU6NE4D2F4BR6R10U6L10U4R10BR6ND10R10D4NL10BR6NR10D6U10R10D10BR6NR10U10R10BR6NR10D4NR10D6R10BR10U10NL4R10D4NL10D6NL14BR6U10R10D4NL10D6BR6U10R10D4L10R4F6BR6E4U2H4".130,6,246,80,6,86,120,162,130,86,246,162.(2,2),0,0:13.0,4:1.(0,0)(254,170),,BF.(8,6)(120,80),,BF/42:Ȅ IJ#K @32," ": I 1 65JE#RA$ : A$ "" 9056 : IJQ#Y 9014Jw#`A (A$): A 0 A NL1 J#g 9014J# @SL,P$ : @SL32," " J# @SL32,"";J# " >";VA$J#LA (VA$): VT$ "D" 9177J# VT$ "N" 9149K# LA HV 9100K# KF#VV (VA$): VV LV VV HV 9100K\#ą VT$"D" 9142K#˅ (VA$,1) "0" (VA$,1) "9" 9100K#҅ VV (VV) 9100 : 9142K#م LA 9 LA 3 9100K# (VA$,LA2,1) "." 9100K#灥 9149L)# DD$ "15" DF$ "15" : DF$ "01LM#SG$ "M" MM$ "D" DF$ "/CHK"L{$: "I",#1,SG$: "O",#2,"WORK/CHK:"WF$:L$ (1) 1 9270L$ #1,LI$:IK$ (LI$,9)L$" IK$ OK$ #2,LI$ : 9310L$, 9230M $6 RA 9290: AD 9280,9300,9300M$@ #2,WR$MG$JRA0:: SG$: "WORK/CHK:"WF$ SG$:GE1:MY$TRA0:GE2::M$^ IK$ OK$ 9340: :INPUT >=OUTPUTM$h AD 9300,9330,9330 :INPUT =OUTPTM$rGE1: :CHANGEM$| AD 9350,9370,9370: :INPUT > OUTPUTN$ RA 9360: #2,WR$: #2,LI$:RA1: 9230N4$ #2,LI$: 9230NM$ RA 9360: 9300N|$ @256,"==== THE CURRENT RECORD IS =====";N$ DV$;"NUMBER:";(LI$,6,4);N$Ƈ " DATE:";(LI$,2);"/";(LI$,3,2)N$I(11,LI$,SS$):J(I1,LI$,SS$)O,$AM$(LI$,11,I11):AM$(AM$,(AM$)2) "." (AM$,2)O]$ۇ @320," AMOUNT:";: "$$######.##";(AM$)O|$ " CLEARED:";(LI$,10,1)O$ " TO/FROM:";(LI$,I1,JI1)O$ (DV$,2)" D" O$ " PURPOSE:";(LI$,(LI$)J):O%JF384:JB1: 9520P%&JF320:JB2P2%0 @0,"--- FINAL O.K. OR CHANGE ----cP]%: @32," TYPE 'Y' IF ALL ITEMS ARE O.K.P|%D J64 JF 64: @J,"=";P%N @J32," ";: JP%X I 1 350P%bA$: A$ "" 9640 : IP%l @32,PM$;: @96,"1";: @160,"2";Q%v @224,"3";: @288,"4";: @352,"5";Q+% JB 9610,9620Q;% @416,"6";QK% I1 450Qw%A$: A$ "" 9640 : I: 9530Q}%N @J32," ";: JP%X I 1 350P%bA$: A$ "" 9640 : IP%l @32,PM$;: @96,"1";: @160,"2";Q%v @224,"3";: A$(P):IF A$(P)="END"THEN640ELSENEXTP 640 IF A$(P)="END"THEN A$(P)="" 650 CLS 660 PRINT" RAINBOW ON TAPE" 670 PRINT" (C) FALSOFT, 1987" 680 PRINT 690 PRINT " (XX)=PAGE NUMBER OF LISTING":KK=LEN(MN$):KK=INT(KK/2):PRINTTAB(9-KK)"IN "MN$"'S RAIN &$: COPYRIGHT 1990 FALSOFT, INC&I (&H6000)204 M"SCALEMAN"&f 200,&H60001:CO&H61B5&:GOSUB 320:'NORMAL COLORS& 380::6 COLOR SCHEME&(SC8192 :2^13&2 XL,XR,YB,YT&LI$(3)"3= ** GO DELETE THE RECORD **>4SL96:NL3: 9400: 9000>Mˆ A 1400,140,1580>AD2:0: @0,"------ WHAT TO CHANGE? ------i";>LI$(1)"1= CHANGE A CHECK>LI$(2)"2= CHANGE A DEPOSIT>&LI$(3)"3= CHANGE A BILL?0LI$(4)"4= RETURN TO FIRST MENU a?':LI$(5)"5= RETRIEVE INFORMATION?HDLI$(6)"6= END THIS SESSION"?_NNL5:SL96: 9000?X0: A 1890,1910,1900,140,350,230?bOK$ "C":DV$" CHECK ": 1920?lOK$ "B":DV$" BILL ": 1920?vOK$ "D":DV$" DEPOSIT @$ @27,"-----";: @0,"-- FIND THE";DV$;"TO CHANGE ";@QSL96:P$"1= ENTER THE NUMBER: 1000-9999@uVT$"N":LV1000:HV9999: 9100@SN$VA$:SL160:P$"2= ENTER"DV$"MONTH: 1-12@VT$"N":LV1:HV12: 9100@MM$("0"VA$,2)ASL224:P$"3= ENTER"DV$"DAY: 1-31A#VT$"N":LV1:HV31: 9100AADD$("0"VA$,2): 9200ApOK$MM$DD$OK$SN$: 9230: GE2 2420A0: @0,"- CHANGE (1-4) THEN ACT (5-7) -jALI$(1)"1= CHANGE"DV$"AMOUNT"ALI$(2)"2= CHANGE CLEARED INDICATORBLI$(3)"3= CHANGE"DV$"PAID TO"B; LI$(4)"4= CHANGE CHECK OR BILL PURPOSEBeLI$(5)"5= DISPLAY INFO NOW IN RECORDB LI$(6)"6= MAKE NO CHANGES-START AGAINB*LI$(7)"7= CHANGES COMPLETED- MAKE THEMB4NL7:SL96: 9000C> A 2130,2190,2240,2330,2480,2120,2390CH: 1800C?R @352,"OLD AMOUNT WAS: ";:I(11,LI$,SS$)C{\AM$(LI$,11,I11):AM$(AM$,(AM$)2)"."(AM$,2)Cf "$######.##";(AM$)CpP$"ENTER NEW AMOUNT BELOW":SL384:LV1:HV999999.99DzVT$"D": 9100:AM$(VA$,(VA$)3)(VA$,2)D8LI$(LI$,10)AM$(LI$,(LI$)I1): 2020Df @352,"CLEARED/PAID WAS: ";(LI$,10,1);D (LI$,10,1)" " " = YES" : " = NO"DP$"ENTER ' ' OR '*' BELOW":SL384:VT$"A":HV1D 9100: VA$ " " VA$ "*" 2210E(LI$,10,1)VA$: 2020E4 @352,"PAID TO WAS: ";E[I(11,LI$,SS$):J(I1,LI$,SS$)Eԅ (LI$,I,1)(127) 2270 : IECP$ (LI$,I1,JI1)E CP$:P$"ENTER NEW PAY TO BELOWE (JI1) 20 SL416 : SL384FVT$"A":HV31: 9100F1 LI$ (LI$,I)VA$(LI$,(LI$)J1)F=  2020Ft  (DV$,2)" D" 2100 : @352,"PURPOSE WAS:";F $I (11,LI$,SS$):J(I1,LI$,SS$)F .CF$ (LI$,J1,(LI$)J)F 8 CF$: ((LI$)J) 21 SL416 : SL384G BVT$"A":HV64:P$"ENTER NEW PURPOSE BELOWG@ L 9100:LI$(LI$,J)VA$: 2020GR VRA1: #2,LI$G~ `0: "------ CHANGE BEING MADE -------"G j " P L E A S E W A I T": 9230H t0: GE 1 @0,"--- ";DV$;"WAS CHANGED ----" : @0,"*** UNFOUND";DV$;"NOT CHANGEDH) ~LI$(1)"1= CHANGE MORE RECORDSHI LI$(2)"2= RETURN TO MENU aHs LI$(3)"3= RETRIEVE FROM THE DATABASEH LI$(4)"4= END THIS SESSION NOWH SL 96:NL4: 9000: A 1800,140,350,230H 0: "++ DISPLAY OF CURRENT VALUES ++m"I LI$(1)"1= RETURN TO THE LAST MENUID LI$(2)"2= CHANGE THE RECORD AS SHOWNIt SL96:NL2: 9400: 9000: A 2020,2390I#( I 1 NL: @SL,LI$(I)I#/SL SL32: II#6 @32,"* SELECT FROM THE FOLLOWINGI#= I 1 200J#DA$ : A$ "" 9056 :+~&$: COPYRIGHT 1990 FALSOFT, INC&1d 3,1000&Xn 750: LI$(7):SS$(127):WF$"0"&xPM$" or type item number to change "& I1 32: (PM$,I,1) " " I : (PM$,I,1)(128): I&0: @0,"--- MONEY MANAGER DATA BASE ---a'LI$(1)"1= ADD INFORMATION'7LI$(2)"2= CHANGE INFORMATION'YLI$(3)"3= DELETE INFORMATION'~LI$(4)"4= CHANGE WORKFILE DRIVE'LI$(5)"5= RETRIEVE INFORMATION'LI$(6)"6= END SESSION'SL128:NL6:AD0: 9000'܈ A 360,1800,1300,270,350,230( @385,(30,"*");(C @417,"SESSION IS OVER - BYE FOR NOW ";(Z @449,(30,"*");(s I1 1800: I::(0: "------ DRIVE SELECTION --------d"(LI$(1)"1= PUT THE WORKFILE ON DRIVE 0("LI$(2)"2= PUT THE WORKFILE ON DRIVE 1),LI$(3)"3= OK - RETURN TO MENU a)A6 @320,"WORKFILE IS ON DRIVE ";WF$)k@SL96:NL3: 9000: A 330,340,140)~JWF$"0": 310)TWF$"1": 310)^ "RETRV)h0: "--- ADDING INFO TO DATABASE ---e")rAD1:LI$(1)"1= ENTER A CHECK* |LI$(2)"2= ENTER A DEPOSIT*'LI$(3)"3= ENTER A BILL*GLI$(4)"4= RETURN TO MENU a*mLI$(5)"5= END THIS SESSION":NL5*SL128: 9000: A 500,800,1000,140,230*0: @0,"----- CHECK INFORMATION ------b* 520: 540: 560: 580: 610: 630+3P$"1==ENTER THE MONTH: 1-12=======":LV1:HV12:SL64+[VT$"N": 9100:MM$("0"VA$,2):+P$"2==THE DAY: 1-31 ===============":LV1:HV31:SL128+&VT$"N": 9100:DD$("0"VA$,2):+0P$"3==THE CHECK NUMBER: 1000-9999==":LV1000:HV9999,:SL192:VT$"N": 9100:CN$VA$:,]DP$"4==THE AMOUNT: NNNNNN.NN =======":LV1.00:HV999999.99,yNVT$ "D":SL256: 9100,XAM$(VA$,(VA$)3)(VA$,2):,bP$"5==WHO CHECK WAS PAID TO =======":SL320:VT$"A,lHV31: 9100:CP$VA$:-+vP$"6==WHAT THE CHECK WAS FOR ======":SL384:VT$"A-EHV58: 9100:CF$VA$-Q 9500-g A$ "Y" 690-A (A$): A 0 A 7 680 : 650- A 520,540,560,580,610,630: 650-0: "------- ADDING THE CHECK -------".% " P L E A S E W A I T":OK$ MM$DD$"C"CN$.KWR$ OK$"*"AM$SS$CP$SS$CF$.bЁ 9200: 9230:0.څ GE 1 "---- CHECK WAS ADDED -----dd" : "** DUPLICATE CHECK NOT ADDED **d.LI$(1)"1= ADD ANOTHER CHECK/LI$(2)"2= ADD OTHER INFORMATION/"LI$(3)"3= RETURN TO MENU a/FLI$(4)"4= RETRIEVE INFORMATION/p LI$(5)"5= END THIS SESSION RIGHT NOW/SL96:NL 5: 9000: A 500,360,140,350,230/ 0: "---- DEPOSIT INFORMATION ----e/* 520: 540: 820: 580: 8400.4P$"3==A 4-NUMBER DEPOSIT ID =======":VT$"N":SL1920T>LV1000:HV9999: 9100:DC$VA$:0HP$"5==THE SOURCE OF FUNDS =========":SL320:HV64:VT$"A0R 9100:SF$VA$0\ 95100f A$ "Y" 9000pA (A$): A 0 A 6 890 : 8601)z A5 840 : A 520,540,820,580: 8601] 9200:WR$MM$DD$"D"DC$"*"AM$SS$SF$SS$1OK$ (WR$,9):0: "---- DEPOSIT BEING ADDED ------";1 @32," P L E A S E W A I T ": 92302%0: GE1 "----- DEPOSIT WAS ADDED -----ff" : "*** DUPLICATE DEPOSIT NOT ADDED2FLI$(1)"1= ADD MORE DEPOSITS2kLI$(2)"2= ADD OTHER INFORMATION2LI$(3)"3= RETURN TO MENU a2LI$(4)"4= RETRIEVE INFO FROM DATABASE2LI$(5)"5= END THIS SESSION RIGHT NOW3NL4:SL128: 9000: A 800,360,140,350,2303A0: "-- BILL TO PAY INFORMATION --":FR03t 1020: 1040: 1060: 580: 1080: 11003P$"1==ENTER THE BILL DUE MONTH:1-12":VT$"N3SL64:LV1:HV12: 9100:MM$("0"VA$,2):4P$"2==THE BILL DUE DAY: 1-31 ======":VT$"N49SL128:LV1:HV31: 9100:DD$("0"VA$,2):4j$P$"3==A 4-NUMBER ID CODE ==========":VT$"N4.SL192:LV1000:HV9999: 9100:BN$VA$:48P$"5==PAY THE BILL TO? ============":VT$"A4BSL320:HV31: 9100:BT$VA$:5LP$"6==THE REASON FOR THE BILL? ====":VT$"A5=VSL384:HV64: 9100:BP$VA$5I` 95005_j A$ "Y" 11605tA (A$): A 0 A 7 1150 : 11205~ A6 1100 : A 1020,1040,1060,580,1080: 11205WR$MM$DD$"B"BN$"*"AM$SS$BT$SS$BP$6(0: "----- BILL BEING ADDED ---------"6O " P L E A S E W A I T6s 9200:OK$ (WR$,9): 923060: GE1 "------- BILL WAS ADDED ------g" : "*** DUPLICATE FOUND - NOT ADDED ";6LI$(1)"1= ADD MORE BILLS7LI$(2)"2= ADD OTHER INFORMATION74LI$(3)"3= RETURN TO MENU a7_LI$(4)"4= RETRIEVE INFO FROM DATABASE7LI$(5)"5= END THIS SESSION RIGHT NOW7SL 96:NL5: 9000: A 1000,360,140,350,2307AD3:0: @0,"----- WHAT TO DELETE -----h8LI$(1)"1=????????? OHH???? OHH?? OHH????C J2C???<C J2C???? C J2C???<?C J2C?? THE PROGRAM BY ITS FILENAME.",,Q(Q$):QQ6:SL$(Q$,Q),& SL$,R, "MAY", " (14) DATAB", " (22) SCALE1"-  " (24)*SCALEMAN"-$ " (24)+SCALEMAN"-; " (28) SCALEDRV"-R " (36) MUSIC103"-f$ " (39) FIXER"-}. " (36) MUSIC104"-8 " (40) PATBOOK"-B " (40) BKLTPLUS"-L " (51) MINDSTIM"-V " (59) COLRTYPE"-` " (86) MANAGER".j " (86) SAMPLE".t " (88) METRIC".$~ "END" " (28) SCALEDRV"-R " (36) MUSIC103"-f$ " (39) FIXER"-}. " (36) MUSIC104"-8 " (40) PATBOOK"-B " (40) BKLTPLUS"-L " (51) MINDSTIM"-V " (59) COLRTYPE"-` " (86) MANAGER".j " (86) SAM𕚟𥪀 ꀰꀯ𥪀紀Я匆𯀥𠯥Я$%(+,-023 FALSOFT PRESENTS! RAINBOW" ON # DISK  MENU BAS*DATAB BASSCALE1 BAS&SCALEMANASM'SCALEMANBIN)SCALEDRVBASMUSIC103BAS*FIXER BASMUSIC104BAS&PATBOOK BAS.BKLTPLUSBAS/MINDSTIMBAS1COLRTYPEBASMANAGER BASPSAMPLE BAS4METRIC BAS55߀߀셀߀ꀀڀ߀ڀ߀ڀ߀ꀀ ڀ߀ꀀڀ߀ꀀڀ߀ꀀ󀓟 ÀππĀ΀̀π̀ʀʀπʀππππʀʀπππڀ߀ꀀڀ߀ꀀ󀓟 ÀππĀ΀̀π̀ʀʀπʀππππʀʀππ???????????? 0 0 0?&$: COPYRIGHT 1990 FALSOFT, INC&> XC1.5:XD2:XSXD64&XYC1.0:YD2:YSYD64&h3,1::1,0&|(XXC: H0 64&2YYC: V0 64&Y+U 00420 STY ASQ1 00430 STU ASQ3 00440 LDD BLOC 00450 BPL CONT2 IS IT NEGATIVE? 00460 NEGA IS SO -- 00470 NEGB NEGATE IT 00480 SBCA #0 00490 CONT2 TFR D,X 00500 JSR $9FB5 D*X->Y+U 00510 STY BSQ1 00520 STU BSQ3 00530 GETSUM LDD ASQ3 00540 ADDD BSQ3 00550 LDA ASQ2 00560 ADCA BSQ2 00570 LDA ASQ1 00580 ADCA BSQ1 00590 TEST CMPA #$10 COMPARE TO MSB OF 2**13TH 00600 BLO GETDIF STILL A VALID NUMBER 00610 LDB COUNT 00620 CMPB #9 00630 LBLS FIN 00640 LDU #CTABLE 00650 LDB B,U COLOR BASED ON ITERATIONS 00660 LBRA PSET 00670 GETDIF LDD ASQ3 00680 SUBD BSQ3 00690 STD DIF3 00700 LDA ASQ2 00710 SBCA BSQ2 00720 STA DIF2 00730 LDA ASQ1 00740 SBCA BSQ1 00750 STA DIF1 00760 LDB #13 SCALE FACTOR IS 2**13TH 00770 SCALE1 ASR DIF1 00780 ROR DIF2 00790 ROR DIF3 00800 ROR DIF4 00810 DECB 00820 BNE SCALE1 00830 LDD DIF3 RESULT 00840 ADDD XLOC 00850 STD DIF1 NEW REAL VALUE 00860 00870 LDA ALOC 00880 EORA BLOC 00890 STA SIGN SIGN OF THE PRODUCT 00900 LDD ALOC 00910 BPL CONT4 IS IT NEGATIVE? 00920 NEGA IS SO -- 00930 NEGB NEGATE IT 00940 SBCA #0 00950 CONT4 TFR D,X AND SAVE IT 00960 LDD BLOC 00970 BPL CONT5 IS IT NEGATIVE? 00980 NEGA IS SO -- 00990 NEGB NEGATE IT 01000 SBCA #0 01010 CONT5 JSR $9FB5 D*X->Y+U 01020 STY SUM1 01030 STU SUM3 01040 TST SIGN IS PRODUCT NEGATIVE? 01050 BPL CONT6 01060 COM SUM1 IS SO -- 01070 COM SUM2 NEGATE IT 01080 COM SUM3 01090 COM SUM4 01100 LDB SUM4 01110 ADDB #1 01120 STB SUM4 01130 LDA SUM3 01140 ADCA #0 01150 STA SUM3 01160 LDB SUM2 01170 ADCB #0 01180 STB SUM2 01190 LDA SUM1 01200 ADCA #0 01210 STA SUM1 01220 CONT6 LDB #12 NEW SCALE IS 2**12TH 01230 SCALE2 ASR SUM1 01240 ROR SUM2 01250 ROR SUM3 01260 ROR SUM4 01270 DECB 01280 BNE SCALE2 01290 LDD SUM3 01300 ADDD YLOC 01310 STD BLOC NEW IMAGINARY VALUE 01320 LDD DIF1 01330 STD ALOC NEW REAL VALUE 01340 LDB COUNT 01350 INCB 01360 CMPB #255 01370 LBNE AGAIN 01380 LDB #$FF MANDELBROT SET POINT 01390 PSET STB $B5 01400 LDA #191 ADJUST FOR SCREEN 01410 SUBA DOWN 01420 LDB $B9 BYTES ACROSS 01430 MUL 01440 ADDA $BA START OF PAGE1 01450 TFR D,X 01460 LDB ACROSS 01470 LSRB 01480 LSRB 01490 ABX 01500 LDA ACROSS 01510 ANDA #3 01520 LDU #$92E5 PMODE3 OR TABLE 01530 LDA A,U 01540 ANDA $B5 01550 ORA ,X 01560 STA ,X 01570 01580 FIN LDD YLOC 01590 ADDD YS NEXT POINT UP 01600 STD YLOC 01610 LDA DOWN 01620 INCA 01630 CMPA #191 01640 LBLS ML2 01650 01660 LDD XLOC 01670 ADDD XS NEXT POINT OVER 01680 STD XLOC 01690 LDB ACROSS 01700 INCB 01710 CMPB #127 01720 LBLS ML1 01730 RTS 01740 XC RMB 2 01750 YC RMB 2 01760 XS RMB 2 01770 YS RMB 2 01780 XLOC RMB 2 01790 YLOC RMB 2 01800 ALOC RMB 2 01810 BLOC RMB 2 01820 COUNT RMB 1 01830 ASQ1 RMB 1 01840 ASQ2 RMB 1 01850 ASQ3 RMB 1 01860 ASQ4 RMB 1 01870 BSQ1 RMB 1 01880 BSQ2 RMB 1 01890 BSQ3 RMB 1 01900 BSQ4 RMB 1 01910 SUM1 RMB 1 01920 SUM2 RMB 1 01930 SUM3 RMB 1 01940 SUM4 RMB 1 01950 DIF1 RMB 1 01960 DIF2 RMB 1 01970 DIF3 RMB 1 01980 DIF4 RMB 1 01990 ACROSS RMB 1 02000 DOWN RMB 1 02010 SIGN RMB 1 02020 CTABLE RMB 256 02030 END START (191)(213)(218)R$(223)R$(229);,(234)R$R$R$R$(143)R$(110)R$(255)R$R$R$(159)R$(149)(154)R$(165)(170)(161)(162)(191)R$R$(191)(213)(218)R$(223)R$(229);-^(234)R$R$R$R$(143)R$(99)R$(255)R$R$R$(159)R$(149)(154)R$(165)(170)(165)(170)(191)R$R$(191)(213)(218)R$(223)R$(229);."(234)R$R$R$R$(143)R$R$(243)(255)(243)R$(147)(159)(145)(151)(155)(146)(167)(171)(167)(170)(191)(179)(179)(191)(213)(219)(211)(223)(225)(231);.(235)(226)R$R$(129)(143)(130)R$(195)(195)(195)(194)(195)(195)(195)(195)(193)(195)(195)(194)(195)(195)(195)(193);/l(195)(195)(194)(195)(194)(193)(195)(195`aaaUaaa_aaaOaaaaa_aa*@Paaa*@Paaaaaaaa%a` #aaaaaaaaaa wavavavaZ&aaaaaaa*@Pa*@Paa}a*,sasasasaaaaaaaaaa wavavavaZ&aaaaaa\&׵aֹ=aTT:aΒƔaaaaL#aaaaa\#9`97)(202)R$(207)R$(202)(207)R$(207)R$;1(207)R$(202)(197)(202)(197)(199)(202)R$(197)(202)R$(207)R$(207)R$(199)(203)(192)R$(199)(203)(197)(203);2g(193)(207)(195)(202)(207)(195)(207)(193)(207)(195)(202)(199)(203)(192)(197)(203)(192)(199)(203)(192)(207)(195)(207);2I11000:""I22,1:1:1,1:1:0:1,1:65314,24822,3:1:1,32 "BM0,100C1U20R45U4R156D4R45D20L45D4L156U4L45"3e!(50,80)(78,100),,BF:(194,80)(166,100),,BF:(102,80)(142,100),,BF:(86,84)(94,96),,BF:(150,84)(158,96),,BF3s"31:423#2,3:1:1,34,$"BM3,120C1U5LU5LU5R45U4NR166M+10,-6R146M+10,+6D4R45D5LD5LD5L45D4L160U4L45BM0,104M+50,-30R156M+50,+30M-50,-30BG4M+28,+16L201M+28,-16R144BD28L144M+2,+12R140M+2,-12"4%(128,116),1,1:"BL28BDC4M-2,+12L2M+2,-12L16D12NR14L2U12BL40D12L2U12L16M+2,+12NR14L2M-2,-12"4&(128,90),3,1:"BU20C1NL20C4R76C1R20"4'31:424(2,3:1:1,35E)"BM8,150C1H8R45U2R166D2R45G8L40D2L160U2L40H8M+32,-80R192M+32,+80L45H20L128NG20L40M+18,-52R176M+18,+52L42"5*(76,94),14,1,.8:(176,94),14,1,.8:(76,94),1,1:(176,94),1,15+(76,86)(176,102),,B:(96,90)(156,96),,BF:(128,74),3,16C,"C1BM50,144R154L2D2L150R2D2R146BL36C4U4L18D4BL40U4L18D4BU12C1BL14L4U2R4BR18R4U2L4BR32BU4R4U2L4BR32BD6R4D2L4BR26L4D2R4"6Q-31:426."BM0,54C1U42R20":(16,24),16,1,.8,.8,.17:"BD22BR4F2RDRM+2,+17L8U4LU7LU3L2UL2UL7D16NL8U16BU7U12R8DR2DRFRD2RD2LD2LGLGLDL8"7b/"BR25BD23M+12,-42R10M+10,+42L8M-2,-8NL11BU6BL2M-3,-14LM-3,+14NR7BD6BL2M-2,+8NL8BR28U42R10D42NL10BR8U42R16M+14,+32U32R10D42L16M-14,-32D32L10"70"BR48U42R20":(154,24),16,1,.8,.8,.17:(154,44),16,1,.8,.8,.17:"BD42NR4L20R9BU6U12R8DR2DRFRD2RD2LD2LGLGLDL8BU18U12R8DR2DRFRD2RD2LD2LGLGLDL8"81(190&"***************************&C* MUSIC 103:READING F CLEF*&d* COPYRIGHT (C) 1990 *&* BY FRED B. SCERBO *&* 60 HARDING AVENUE *&* NORTH ADAMS, MA 01247 *&***************************'8000:XX():NN17'< 0:(32,220);(32,204);:I1224:A:(A128);:'X (32,195);(32,211);'z@390," READING F CLEF ";'@422," BY FRED B.SCERBO ";:@454," COPYRIGHT (C) 1990 ";(61,60,60,62,60,61,48,61,,,,62,48,62,60,60,60,61,48,61,56,53,60,60,60,61,48,,,,,(F53,,,58,,53,,53,,,,58,48,58,,,,,,53,,53,,,,,,,,,,(#53,,,58,,53,,53,,,,58,48,58,,,,,,53,,53,,,71,,78,76,77,68,76,77((53,,,58,,53,,53,,,,58,,60,60,60,60,61,,53,,53,,,69,,74,,69,68,76,77)-53,,,58,,53,,53,,,,58,,,,,,53,,53,,53,,,76,72,76,76,76,68,76,76)P253,,,,,53,,53,,,,58,,50,,,,53,,53,,53,,,,49,,,,,,)760,56,,,,60,56,52,60,60,60,56,,60,60,60,60,60,,60,56,52,60,60,60,60,,,,,,)>>",_:(32,"=");,YdX$:X():X$"A"355:X$"B"105:X$"C"1000:100,hi0:0,1:1,n(0,0)(254,170),,B,s(6,4)(122,82),,BF,x(128,4)(248,82),,B,}(6,86)(122,164),,B,(128,86)(248,164),,B-"BM26,188C0NU10R10NU10BR6R10U6L10U4R10BR6NR10D4NR10D6R10BR12BU6NE4D2F4BR6R10U6L10U4R10BR6ND10R10D4NL10BR6NR10D6U10R10D10BR6NR10U10R10BR6NR10D4NR10D6R10BR10U10NL4R10D4NL10D6NL14BR6U10R10D4NL10D6BR6U10R10D4L10R4F6BR6E4U2H4"-130,6,246,80,6,86,120,162,130,86,246,162.(2,2),0,0:13.0,4:1.5(0,0)(254,170),,BF.N(8,6)(120,80),,BF.a42:0,1:1,1."BM2,8C1","BM130,8C0","BM2,90C0","BM130,90C0","BM2,48C0","BM130,48C0".I1 NN.A(I)(NN):N(A(I))1180.N(A(I))1:I:Y1 NN:1,0/I24/"B(I)(3)1:N(B(I))0195/CN(B(I))0:I:I14:N(I)1:/^B(NN):BA((Y))205/C(NN):CB CA((Y))210/ A$(1):P$(A(Y),1)/ A$(B(2)):P$(B,2):P$(B,3)/ A$(B(3)):P$(C,2):P$(C,3)0 A$(B(4)):P$(A(Y),2):P$(A(Y),3)0 1,00Z000,407 A$(1)"C0":P$(A(Y),1)0] A$(B(2))"C1":P$(B,2):P$(B,3)0 A$(B(3))"C1":P$(C,2):P$(C,3)0 A$(B(4))"C1":P$(A(Y),2):P$(A(Y),3)00,1:1,10(8,6)(120,80),,B0X$:X$" "290:X$"@"101011,0:(8,6)(120,80),,B:2751/"ZZ1:Z4Z11U'1,0:(C(Z),D(Z))(E(Z),F(Z)),,B1,X$:X$" "290:X$(13)310:X$"@"1010111,0:(C(Z),D(Z))(E(Z),F(Z)),,B:29516Z1B(4)3202;NWNW1:K15:0,4:1,1:10,3:0,1:1,1:1,3:K:2952f@NCNC1:0,4:1:(0,40)(256,126),,B:(6,44)(124,122),,B:(130,44)(248,122),,B:(2,42),0,02~E A$(5):P$(A(Y),1)2J A$(6):P$(A(Y),2):P$(A(Y),3)2O1,12TX$:X$(13)3402Y0,12^31:1,1:24:Y:10103Lc0,2:1:1,1:(0,40)(256,126),,B:(6,44)(124,122),,B:(130,44)(248,122),,B:(2,42),0,03jhI1 NN: A$(5):P$(I,1)3m A$(6):P$(I,2):P$(I,3)3rX$:X$(13)3703w1,0:(8,46)(122,120),,BF:(132,46)(246,120),,BF:I3|44+"BR64BD22NU36R4L24R2E6R6F4BU8NR6NL18BD8D4G4L6H4BL22BU2U34E4R6F4D2G4L6H4U2"40"BR12BD50U12F12NU12BR6U12R8D6NL8D6BR10U12L4R8BR6D12R8NU12BR6U12R8D6L8R2F6BR6U12R8D6NL7D6BR6NU12R8BU24BL48L8U12R8"5;5"BR64BD22NU36R4L24R2E6R6F4BU8NR6NL18BD8D4G4L6H4BL22BU2U34E4R6F4D2G4L6H4U2BH6BL2D14BL4U14D4L4R12L4D6R4L12BD24BR30D14BL4U14D4L4R12L4D6R4L12"5:"BR26BD50R8U6L8U6R8BR6D12U6R8U6D12BR6U12R8D6NL8D6BR6U12R8D6L8R2F6BR6U12R8D6L8BU18BL22L8U12R8"6?"BR64BD18NU36ND2BL14E4R6U2NL14NR8D2F4D4G4L6H4U2BL22BU2U36E4R6F4D4G4L6H4U2BH6BL4D14E4U2H4BD30BR24D14E4U2H2"6dD"BR36BD50U6NR8U6R8BR6D12R8BR7U12R8D6NL8D6BR10U12L4R8BL32BU12R8NU12L10R2U12L2R10"6I"BR64BD18NU36ND2BL14E4R6U2NL14NR8D2F4D4G4L6H4U2BL22BU2U36E4R6F4D4G4L6H4U2"75N"BR12BD50U12F12NU12BR6U12R8D6NL8D6BR10U12L4R8BR6D12R8NU12BR6U12R8D6L8R2F6BR6U12R8D6NL7D6BR6NU12R8BU24BL48NU12L10R2U12L2R10"7S"BR64BD18NU36ND2BL14E4R6U2NL14NR8D2F4D4G4L6H4U2BL22BU2U36E4R6F4D4G4L6H4U2BH6BL2D14BL4U14D4L4R12L4D6R4L12BD24BR30D14BL4U14D4L4R12L4D6R4L12"84X"BR26BD50R8U6L8U6R8BR6D12U6R8U6D12BR6U12R8D6NL8D6BR6U12R8D6L8R2F6BR6U12R8D6L8BU18BL30R8NU12L10R2U12L2R10"8]"BR64BD14NU36R4L24R2E6R6F4D4G4L6H4BL22BU4U34E4R6F4D2G4L6H4U2BH6BL4D14E4U2H4BD30BR24D14E4U2H2"8b"BR36BD50U6NR8U6R8BR6D12R8BR7U12R8D6NL8D6BR10U12L4R8BL26BU12L8U6NR8U6R8"9(g"BR64BD14NU36R4L24R2E6R6F4D4G4L6H4BL22BU4U34E4R6F4D2G4L6H4U2"9l"BR12BD50U12F12NU12BR6U12R8D6NL8D6BR10U12L4R8BR6D12R8NU12BR6U12R8D6L8R2F6BR6U12R8D6NL7D6BR6NU12R8BU24BL48L8U6NR8U6R8"9q"BR64BD8NU36ND2BL14E4R6F4D2G4L6H4BL22BU2U36E4R6F4D4G4L6H4U2":^v"BR12BD50U12F12NU12BR6U12R8D6NL8D6BR10U12L4R8BR6D12R8NU12BR6U12R8D6L8R2F6BR6U12R8D6NL7D6BR6NU12R8BU24BL56U6NR8U6R8":{"BR64BD8NU36ND2BL14E4R6F4D2G4L6H4BL22BU2U36E4R6F4D4G4L6H4U2BH6BL2D14BL4U14D4L4R12L4D6R4L12BD24BR30D14BL4U14D4L4R12L4D6R4L12";E"BR26BD50R8U6L8U6R8BR6D12U6R8U6D12BR6U12R8D6NL8D6BR6U12R8D6L8R2F6BR6U12R8D6L8BU18BL30U6NR8U6R8";"BR64BD4NU36R4L24R2E6R6F4D4G4L6H4BL22BU4U34E4R6F4D2G4L6H4U2BH6BL4D14E4U2H4BD30BR24D14E4U2H2";"BR36BD50U6NR8U6R8BR6D12R8BR7U12R8D6NL8D6BR10U12L4R8BL26BU12NU6L8U12R8BD6L2BU8BR2""BR64BU2NU36ND2BL14E4R6F4D2G4L6H4BL22BU2U36E4R6F4D4G4L6H4BH6BL4D14E4U2H4BD30BR24D14E4U2H2">o"BR36BD50U6NR8U6R8BR6D12R8BR7U12R8D6NL8D6BR10U12L4R8BL26BU12U12L8D6NR8D6BU12BR8">"BR64BU2NU36ND2BL14E4R6F4D2G4L6H4BL22BU2U36E4R6F4D4G4L6H4U2"?5"BR12BD50U12F12NU12BR6U12R8D6NL8D6BR10U12L4R8BR6D12R8NU12BR6U12R8D6L8R2F6BR6U12R8D6NL7D6BR6NU12R8BU24BL48U12L8D6NR8D6BU12BR10"?"BR64BU2NU36ND2BL14E4R6F4D2G4L6H4BL22BU2U36E4R6F4D4G4L6H4U2BH6BL2D14BL4U14D4L4R12L4D6R4L12BD24BR30D14BL4U14D4L4R12L4D6R4L12"@'"BR26BD50R8U6L8U6R8BR6D12U6R8U6D12BR6U12R8D6NL8D6BR6U12R8D6L8R2F6BR6U12R8D6L8BU18BL22U12L8D6NR8D6BU12BR10"@"BR64BU6NU36R4L24R2E6R6F4D4G4L6H4BL22BU4U34E4R6F4D2G4L6H4U2BH6BL4D14E4U2H4BD30BR24D14E4U2H2"@Ɔ"BR36BD50U6NR8U6R8BR6D12R8BR7U12R8D6NL8D6BR10U12L4R8BL26BU12L10R2U6NR8U6L2R10ND12"A#ˆ"BR64BU6NU36R4L24R2E6R6F4D4G4L6H4BL22BU4U34E4R6F4D2G4L6H4U2"AІ"BR12BD50U12F12NU12BR6U12R8D6NL8D6BR10U12L4R8BR6D12R8NU12BR6U12R8D6L8R2F6BR6U12R8D6NL7D6BR6NU12R8BU24BL48NU12L10R2U6NR8U6L2R10"A0:I1 NN:TEM$P$(I,1):P$(I,1)P$(I,2):P$(I,2)TEM$:A큥105B2:@101,"YOU TRIED"NCNW"TIMES &":@165,"ANSWERED"NC"CORRECTLY"BT@229,"WHILE DOING"NW"WRONG."BnNQNCNW: NQ0 NQ1BMS(NCNQ100)B@293,"YOUR SCORE IS"MS"%."B @357,"ANOTHER TRY (Y/N/C) ?";BX$:X$"Y" BX$"N":CX$"C" Y17 270C1040&":@165,"ANSWERED"NC"CORRECTLY"BT@229,"WHILE DOING"NW"WRONG."BnNQNCNW: NQ0 NQ1BMS(NCNQ100)B@293,"YOUR SCORE IS"MS"%."B @357,"ANOTHER TRY (Y/N/C) ?";BX$:X$"Y" BX$"N":CX$"C" Y17&5:BKLTPLUS' by Keiran Kenny, Sydney, 1990.&W:COPYRIGHT 1990 FALSOFT, INC&a5508&y150,18 :2400 baud&<:2)"ARE YOU USING DISK OR TAPE?",7)"PRESS OR ."&>K$:K$""62&@K$"D"DV1:70&BK$"T"DV1:70'D62'F:A$(162)'nG@160,"YOU CAN"::3)"1. LOAD A SAVED FILE",3)"2. TYPE A NEW TEXT.",8)"PRESS 1 OR 2."'HK$:K$""72'IK$"1"820'JK$"2":110'K72':PN1:B1'282,0:TB LP6'ÅA$(T)"]"BT:TT1:LNLN1:802(K$"N"K$"n"761(4:@224,"SAVE YOUR TEXT? Y/N"(IK$:K$""762(aK$"Y"K$"y"1000(xK$"N"K$"n":(762( 0,1:1:22)"282,255::DV1PF$"PARTFILE":@160,"POSITION TAPE. PRESS AND . PRESS ANY KEY.":44539:K$)2$DV1@160,"SAVE PARTFILE NAME:";:PF$)C&"O",#DV,PF$)\(#DV,B,T,PN,LN,LP,LF)g*X1T)v,#DV,A$(X))~.:)4:"IS THIS FILE COMPLETE? Y/N")6K$:K$""822)8K$"Y"900):K$"N":830)<822*=>DV1PF$"PARTFILE":@160,"POSITION TAPE. PRESS . PRESS ANY KEY.":44539*x@DV1@160,"LOAD PARTFILE NAME:";:PF$:PF$PF$"/DAT"*B"I",#DV,PF$*D#DV,B,T,PN,LN,LP,LF*FX1T*H(DV)846*J#DV,A$(X)*L*N#DV+:PT4:"LAST 5 LINES OF FILE:":XT4T:A$(X)::4)"PRESS ANY KEY TO CONTINUE";:44539+SRLNLP LN0:PNPN1+_T:150+:DV1F$"FILE":@160,"POSITION TAPE. PRESS . PRESS ANY KEY.":44539:10)"LOADING FILE."+DV1@160,"LOAD FILENAME";:F$:F$F$"/DAT", "I",#DV,F$,!#DV,LP,LF:NLP6,.T1N3,>(DV)980,cTN #DV,C$(TN):#DV,A$(T),iʋ,rԚ#DV,|ށ350,282,255::DV1F$"FILE":@160,"POSITION TAPE. PRESS AND . PRESS ANY KEY.":44539:10)"SAVING FILE."-DV1@160,"SAVE FILENAME:";:F$-)NLP6-9"O",#DV,F$-H#DV,LP,LF-UT1N3-x$TN #DV,C$(TN):#DV,A$(T)-~.-8:-L:X1LP6-VXLP6"A$("X")=":A$(X)-`X5(X5)XLP6"PRESS ANY KEY";:44539:-j-t350D &5:BKLTPLUS' by Keiran Kenny, Sydney, 1990.&W:COPYRIGHT 1990 FALSOFT, INC&] &g800&q5508&150,18 :2400 baud&@104,(34)"THE BOOKLET"(34)&(@174,"BY"&2@233,"KEIRAN KENNY"'<:2)"ARE YOU USING DISK OR TAPE?",7)"PRESS OR ."'*>K$:K$""62'@@K$"D"DV1:70'WBK$"T"DV1:70'`D62'oF:A$(162)'G@160,"YOU CAN"::3)"1. LOAD A SAVED FILE",3)"2. TYPE A NEW TEXT.",8)"PRESS 1 OR 2."'HK$:K$""72'IK$"1"820(JK$"2":110( K72(%P150,18 :2400 BAUD(/Z5508(<dA$(162)(jn@225,"";:"LINES PER PAGE (MAX. 27):";LP(}xLP27:110(LF(((LP27)2))(:PN1:B1(P32:PP0(282,0:TB LP6(LNLN1:@PP,"TYPE PAGE"PN;(8)", LINE"LN)@P34,"]")@P,"";:A$(T))BÅA$(T)"]"BT:TT1:LNLN1:802)pȅA$(T)(95)TT LP6:A$(T)""::270)҅(A$(T))34"TOO LONG! TYPE LINE"LN"AGAIN.":@P,((A$(T)),32):@P34,"]":190)܇)PP96:PPPP96)LNLP PNPN1:LN0*PP480:P32:PP0**<:"TYPE 3 LINES FOR COVER."*EP64*P"X13*`,@P,"LINE"X*l6C$(X)*@(C$(X))34:"LINE"X"TOO LONG!":@P,"";:310*JPP96*T*^:@224,"PRINTER READY? HOW MANY COPIES DO YOU WANT TO PRINT";:NC+(h:@224,"PRINTING PAGES 1 & 6 AND 3 & 4"+5rCC1NC+A|NR12+YNR1Q1:PX1:PZ6+vNR2QLP21:PX3:PZ4+#2:#2,3)"PAGE"PX;72)"PAGE"PZ+#2+LP27X1LF:#2:+TQ QLP1+…NR1MTLP5+̅NR2MTLP,և#2,3)A$(T)46)A$(M),,1X130(LFLP):#2:,9NR,ACC,~:@128,"REVERSE PAPER. PRINTER READY? PRESS .",K$:K$(13)530,:@224,"PRINTING COVER AND PAGES 2 & 5.",&CC1NC,0X110:#2:,:X13-D#2,63(C$(X))2)C$(X)-"NZ15:#2:-(X-:bX16:#2:-QlQLP41:PX5:PZ2-xv#2,3)"PAGE"PX;72)"PAGE"PZ:#2-LP27X1LF:#2:-TQ QLP1-MTLP3-#2,3)A$(T)46)A$(M)-T-X130(LFLP):#2:-CC:TCTCNC.:ƞ:@64,"COPIES PRINTED ="TC::"DO YOU WANT MORE? Y/N".dЇ:"(TO CORRECT LINES PRESS )".yK$:K$""730.K$"Y"K$"y"NR0:770.K$"N"K$"n"761.730.:@224,"SAVE YOUR TEXT? Y/N".K$:K$""762/K$"Y"K$"y"1000/K$"N"K$"n":/(762/M@192:@192,"HOW MANY MORE";:NC/t :"PRINTER READY? PRESS ."/K$:K$(13)790:360/ 0,1:1:220"282,255::DV1PF$"PARTFILE":@160,"POSITION TAPE. PRESS AND . PRESS ANY KEY.":44539:K$0C$DV1@160,"SAVE PARTFILE NAME:";:PF$0T&"O",#DV,PF$0m(#DV,B,T,PN,LN,LP,LF0x*X1T0,#DV,A$(X)0.:04:"IS THIS FILE COMPLETE? Y/N"06K$:K$""82208K$"Y"9000:K$"N":8300<8221N>DV1PF$"PARTFILE":@160,"POSITION TAPE. PRESS . PRESS ANY KEY.":445391@DV1@160,"LOAD PARTFILE NAME:";:PF$:PF$PF$"/DAT"1B"I",#DV,PF$1D#DV,B,T,PN,LN,LP,LF1FX1T1H(DV)8461J#DV,A$(X)1L1N#DV2KPT4:"LAST 5 LINES OF FILE:":XT4T:A$(X)::4)"PRESS ANY KEY TO CONTINUE";:445392dRLNLP LN0:PNPN12pT:1502:DV1F$"FILE":@160,"POSITION TAPE. PRESS . PRESS ANY KEY.":44539:10)"LOADING FILE."3 DV1@160,"LOAD FILENAME";:F$:F$F$"/DAT"3"I",#DV,F$32#DV,LP,LF:NLP63?T1N33O(DV)9803tTN #DV,C$(TN):#DV,A$(T)3zʋ3Ԛ#DV3ށ3504 282,255::DV1F$"FILE":@160,"POSITION TAPE. PRESS AND . PRESS ANY KEY.":44539:10)"SAVING FILE."4/DV1@160,"SAVE FILENAME:";:F$4:NLP64J"O",#DV,F$4Y#DV,LP,LF4fT1N34$TN #DV,C$(TN):#DV,A$(T)4.48:4L:X1LP64VXLP6"A$("X")=":A$(X)4`X5(X5)XLP6"PRESS ANY KEY";:44539:5j5 t350DV1@160,"SAVE FILENAME:";:F$4:NLP64J"O",#DV,F$4Y#DV,LP,LF4fT1N34$TN #DV,C$(TN):#DV,A$(T)4.48:4L:X1LP64VXLP6"A$("X")=":A$(X)4`X5(X5)XLP6"PRESS ANY KEY";:44539:5j&$: COPYRIGHT 1990 FALSOFT, INC&5 :*MINDSTIM*&H:BY MARK WEBB&[:JANUARY 1990&b(:&o265497,0&y<1000&F X,Y,Z,A$,I$,PC(15),L(8,3),LV,XA,YA,V(40),M(6),C,N(6),RT$(15),TE(6),TD(6)&P2:0&Z"T255L255V31"&dX1 4:X,400:X'bn BRAIN,WIZARD,CLEVER,GENUIS,SUPER,GREAT,SMART,NOT BAD,GOOD,FINE,PAR,SO-SO,POOR,LOUSY,NOID,CARROT'xX15 0 1: RT$(X):' 0,43,8,63,11,16,32,54,38,44,56,40,7,23,52,24'X0 15:PC(X):X,PC(X):( 4,6,0,4,6,1,4,8,0,4,8,1,6,8,0,6,8,1,6,10,0,6,10,1(.X1 8:Y1 3: L(X,Y):Y,X([X0 7:&HF09D520X,255:X::CHR$(97)(q:TITLE ANIMATION((120,80)(184,88),1:4((15,10),"MINDSTIM":(120,80)(184,88),2((112,96)(192,104),3:5)(14,12),"BY M. WEBB":(112,96)(192,104),4)1X1 50:4,(8)22:(50)150,1:);4,11)E480)ZY80:XA120:YAY)nX120 176 2)(XA,YA)(XA64,YA8),1,:(X,Y)(X64,Y8),2,)"XAX),)6X176 248 2)@(XA,YA)(XA64,Y8),1,:(X,Y)(X64,Y8),2,* JXAX:YAY:YY2*T*^YY2*1hX248 240 2*ir(XA,Y)(XA64,YA8),1,:(X,Y)(X64,Y8),2,:XAX*p|X*1:(238,17)(306,17),*Y96:XA112:YAY*X112 233 2*(XA,YA)(XA80,YA8),3,:(X,Y)(X80,Y8),4,:XAX*+Y95 24 2+@(XA,YA)(XA80,YA8),3,:(X,Y)(X80,Y8),4,:YAY+F̋+L֐+u6:(8,15),"USE (L-R) ARROW KEYS TO"+(8,16),"CHOOSE LEVEL & HIT ENTER"+LV1:A$(10,97):580+:CHOOSE LEVEL HERE+I$:I$""520,  I$( 8) LV1 LVLV1:580,2 I$(9) LV8 LVLV1:580,H& I$(13) 640,Y0"O3GBGO4BG",c:520,D0:Y18 21:(14,Y),A$:,N8:I$((L(LV,1)),1)" PEGS":(14,19),I$,XI$"LEVEL "(LV):(14,18),I$-bX((L(LV,2)))1:I$((L(LV,2)),X)" COLORS":(14,20),I$-Jl L(LV,3)0 I$"NO DOUBLES" : I$"DOUBLES"-`v(14,21),I$:520-y260:0:X64:XA256-Z1 15:"O4DCDCDCV-V-"::"V31"-Y0 16 2-(X,Y120)(XA,Y120),:(X,135Y)(XA,135Y),-.X1 40:V(X)X:X.X1 50.2A(40):B(40): BA 710.NCV(A):V(A)V(B):V(B)C.Tڋ.bX1 40.jA0. V(X)10 V(X)V(X)10:AA1:760.XA(13V(X))81:YA(18A)81:(XA,YA)(XA8,YA8),1. 0:(13V(X),18A),(97)/&XA(29V(X))81:YA(5A)81:(XA,YA)(XA8,YA8),1,/- X/I*1:(238,47)(305,47),/x4I$"NR96D160NR96D24NR96F8R96NH8U184H8D184"/>"BM0,0;C1;XI$;":(1,1),2,1:(1,162),2,1/H(8,186),4,1:(98,8),4,1/R"BM120,0;XI$;":(121,1),2,1:(121,162),2,10\(128,186),4,1:(218,8),4,10&fY8 152 1609pX8 88 160Wz(X,Y),5,1:(X120,Y),5,10`X,Y0X8 88 16:(X,172),5,1:04:(127,167)(209,176),,BF:1:(126,166)(210,176),,B0I$"COLORS USED"0X1 (I$)1A$(I$,X,1):3X:(28X,10),A$:"O3BGB"1X171:(230,89)(320,89),1\ZL(LV,2)2:Z4 XA252:10101vޅ Z5 XA244:10101 Z3 XA2601X1 10:V(X)0:X1V(1)(10)51X2 Z21Y(10)51W1 X11$ YV(W) 10401.W28V(X)Y2 BX2-LZXA(Z16)16:YA100:C1:12:VY0 12M`XXA Z 162j(X,YA(Y16)),5,1:(X,YA(Y16)),V(C),1:CC12tX,Y2~:CHOOSE HIDDEN PEGS2M(1)V((L(LV,1)))2X2 L(LV,1)2YV((L(LV,2)))2 L(LV,3)1 12303Z1 X13 YM(Z) 11803"ċZ3-M(X)Y34؋X3BX1 503~Z((L(LV,1))16)8:(Z,172),5(10),1: 50(100),13X3X8 88 16:(X,172),3,1:X3 7:(17,21),"ROUND 1"3 L(LV,1)6 13403Y8 152 164((72,Y),0,1:(88,Y),0,14 24"(CX(2),CY(2)),:(CX(3),CY(3)),;T (CX(0),CY(0)),;[Z;v 13:(16,11),"THE END";*I$:13,(48)15:I$""2090;40:65496,0::;>A(ZW90)PI:CX(W)X(A)R:CY(W)Y(A)R:RR.5:W;(CX(0)&d 2000,&H5EFF&+i: CLEAR MEMORY MAP&NjZF$"DEL": ZC$"999": 10000&{n: STORE A HI-RES GRAPHICS SCREEN AS 009&x 4& (320,100),100&ZF$"STR": ZC$"009": 10000&: NOW CLEAR THE HI-RES SCREEN AND STORE NEW SCREEN AS 008&' (100,100)(150,150),,B'@ZF$"STR": ZC$"008": 10000'c: STORE A THIRD SCREEN AS 003'i' (200,100)(300,150),,BF'ZF$"STR": ZC$"003": 10000': NOW SAVE ID=009 AS DISK FILE'ZF$"WRI": ZC$"009": 10000(: NOW GET THREE SCREENS IN SUCCESSION(@ZF$"GET": ZC$"009": 10000(cZF$"GET": ZC$"003": 10000(ZF$"GET": ZC$"008": 10000("(,: NOW DELETE ID=009(6ZF$"DEL": ZC$"009": 10000(@(J: NOW READ DISK FILE 009 AND THEN DISPLAY) TZF$"REA": ZC$"009": 10000)C^ZF$"GET": ZC$"009": 10000)ph: NOW DELETE 008 AND THEN TRY TO GET IT)rZF$"DEL": ZC$"8": 10000)|ZF$"GET": ZC$"8": 10000) 390 10000(@(J: NOW READ DISK FILE 009 AND THEN DISPLAY)2&" "COOKING WITH METRIC UNITS"&Z"STEVE BLYN,COMPUTER ISLAND,STATEN ISLAND,NY,1990"&5:XX():XX1:"X IS THE COUNTER"&( X11 320&2@3,"cooking with metric units";&< T1056 1087: T,204: T&F T1120 1151: T,195: T'$P@64,"VOLUME (1 CUP) WEIGHTS"'2Z@128,"";'Yd"BUTTER 80Z. 224G."'n"GRANULATED SUGAR 8OZ. 224G."'x"FLOUR(SIFTED) 4OZ. 112G."'"FLOUR(UNSIFTED) 6OZ. 160G."'"POWDERED SUGAR 4OZ. 114G."(A(2(6))2(tB(5): B1 B$"BARRY" : B2 B$"MARY" : B3 B$"SONIA" : B4 B$"SHARI" : B$"ANNE"(R(5)( R1 A$"BUTTER":Z8:G224( R2 A$"GRANULATED SUGAR":Z8:G224(ȅ R3 A$"POWDERED SUGAR":Z4:G114)"҅ R4 A$"UNSIFTED FLOUR":Z6:G160)J܅ R5 A$"SIFTED FLOUR":Z4:G112)@320,"#";X;". ";B$" NEEDS"A;"CUPS OF ":A$;" THIS TIME.")@416,"HOW MANY OUNCES IS THIS";: Y) YAZ "L8CDEGGG":JJ5) YAZ 10,2:@441,AZ*"HOW MANY GRAMS IS THIS";: YY*4 YYAG "CDEGGG":JJ5*U" YYAG 10,2:@473,AG*u,@490,"press enter";:EN$*6 EN$(13) 30 : 300*@:"GFEDCCCC":" YOUR FINAL SCORE WAS";J;"%":*J"PRESS enter TO PLAY AGAIN OR eND";*TEN$+)^ EN$"E" 360 : EN$(13) : 340+1h:*U" YYAG 10,2:@473,AG*u,@490,"press enter";:EN$*6 EN$(13) 30 : 300*@:"GFEDCCCC":" YOUR FINAL SCORE WAS";J;"%":*J"PRESS enter TO PLAY AGAIN OR eND";*TEN$+)^