"TO"CL1:A$(CL):P31:20508G(C$,1)"B"CLN:A$(CL):P31:20508c(C$,1)":"C$"N"C$8(C$,1)"N"390:20508(C$,1)"S"480:20508(C$,1)"E"640:20508(C$,1)"T"DV0:240:20509(C$,1)"/"(C$,1)"L" (C$,1)"F" 110:20509>ʅ(C$,1)"I"1840:20509ԅ(C$,2)"DI"!(0)"GRANS FREE":(C$,1)"P"#2,!(0)"GRANS FREE":111,254:!:111,0:2050 : !:20509ޅ(C$,3)"DEL"1270:20509(C$,1)"D"390:2050: (C$,4)"MOVE"1970:2050:6(C$,4)"COPY"1560:2010:2050:T (C$,1)"C"860:2050:s (C$,1)"H"1090:2050: (C$,1)"P"DV2:240:2050: $(C$,1)"X"A$(CL)A$(CL)(C$,2):P31:A$(CL):2050: .C$"QUIT": 8"INVALID COMMAND; B2050;" L 1:19000,32767: 50560:2010:2050:T (C$,1)"C"860:2050:s (C$,1)"H"1090:2050: (C$,1)"P"DV2:240:2050: $(C$,1)"X"A$(CL)A$(CL)(C$,2):P31:A$(CL):2050: .C$"QUIT": 8"INVALID COMMAND;#&C :W.S. BONNELL GLOBAL EDITOR COPYRIGHT 12/29/83 VERSION 1.4&I&P0&\# 1080&h( 2380&r2MS10&+H:,R:change C /abc/def/**,\P(C$," ")1,(fDL$(C$,P,1),>pP1(P1,C$,DL$),_zP10"SYNTAX ERROR":1040,vP2(P11,C$,DL$),P20P2(C$)1,OS$(C$,P1,P1P1),NS$(C$,P11,P2P11),P30P31,ICL,(C$,1)"*"ICL N- P3(P3,A$(I),OS$)-#ԅP30P31:1040-UA$(I)(A$(I),P31)NS$(A$(I),P3(OS$))-g "[###]";I;-s A$(I)-P3P3(NS$)-(C$,2)"**"CLI:IN:1040-P3(A$(I))P31:1040 : (C$,1)"*"970-(C$,1)"*"--.$. .:.8:help.:B"editing commands: [] OPTIONAL".]L"TOP - TOP";16);"B - BOTTOM".V"CF CURSOR COL.1";16);"[N:+-n] DOWN/UP".`"S SAVE";16);"E EDIT".j"T[nN] TYPE(NUM)";16);"L /abc[/]LOCATE"/t"C /A/B[/*[*]] ";16);"DEL[a,b OR n]"/%~"MOVE A,B,C ";16);"COPY A,B,C"/E"H HELP";16);"Xabc EXTEND/l"I[n] INSERT";16);"A ADD/"P[nN] PRINT(NUM)";16);" AGAIN"/"U[n] UP";16);"D[n] DOWN"/"Rabc REPLACE";16);"QUIT"0"Z ZAP @ CURSOR";16);"F SAME AS L"0.ć":n POINT TO n";16)"DIR[P]-DIRECTORY"04ؐ0;:0N:delete lines0jP(1,C$," "):P0P40P1(P,C$,","):P10E((C$,4)):13600 P2(C$)0F1((C$,P,P1))0F2((C$,P11,P2))0(F2N F2N1 2F1F2 "SYNTAX ERROR":P31:1IF1 F24QB$(IF1)A$(I)4W4eEF2F114x̀IN1CL114A$(IE)A$(I)44ICL1CLE4A$(I)B$(ICL1)44NNE4P31:4:4&:insert lines40N0N15:E((C$,2)):E0E15'DIN1CL1159NA$(IE)A$(I)5?X5PbICL1CLE5^l(128);5jvA$(I)5p5zNNE5P31:5:5:move lines515605 ER1 5ƅCLF1 CLF1E :CLF15Ё13805څOCF1 CLOC1 :CLOCE166 :6 :enter commands60CLN CLN6B CL1 CL16KER06m "cursor(";CL",";P3;")";:C$6C$""AC((C$,1)):AC96 ACAC32:(C$,1,1)(AC)6 (C$)0C$"N"C$6*(C$,1)"F"(C$,1,1)"L"64C$""C$OC$7>OC$C$7@H(C$,1)"Z"A$(CL)(A$(CL),P31):P31:A$(CL):20507vR(C$,1)"R"A$(CL)(C$,2):P31:A$(CL):20507\(C$,1)"A"1480:20507f(C$,1)"U"C$"N-"(C$,2):((C$,2))0C$"N-1"7p(C$,2)"CF"P31:20508z(C$,2)ON, OR DIVISION PROBLEM FOR RIGHT PLAYER0L:A1(10)1:B1(10)1:N1A1B10_D@Q1,A1;"+";B10jN 6800XB1(9):N1(9):A1N1B10l@Q1,A1;"-";B1: 6800vA1(10)1:B1(10)1:N1A1B10@Q1,A1;"*";B10 6801N1(10)1:B1(9):A1N1B11@Q1,A1;"/";B11yP12: P0 200,330,390,470,500: COROUTINE LEFT ERUSE P1 EMBER TO RETURN HERE1M10:L15:IL(1,L1): I,(I)64: SET RIGHT ANSWER M1=0 AND PLACE RIGHT CURSOR ON 5 TO START2  GET JOYSTICK POSITION TO MOVE RIGHT CURSOR2BJ0(0): J020 J00 : J043 J01 : J022J1(1): J116 J10 : J132 J11 : J148 J12 : J132څ J13 K1J03J17 : J00 K10 : K110: K1=NEXT KEY TO GET CURSOR (10=ERASE)32P13: P0 200,330,390,470,500: RETURN TO COROUTINE FOR LEFT PLAYER3Z K1L1 780: IF CURSOR NOT MOVED3IL(1,L1): I,(I)64:L1K1:IL(1,L1): I,(I)64: MOVE RIGHT CURSOR FROM OLD POSITION TO NEW POSITION AND MAKE OLD POSITION = NEW POSITION4 CHECK FIRE BUTTON--IF IT IS PUSHED AND WAS NOT PUSHED LAST TIME THROUGH HERE, ADD DIGIT TO ANSWER AND CHECK FOR CORRECT ANSWER. V1=1 IF LAST TIME THROUGH HERE BUTTON WAS PUSHED.4 ((65280) 1) V10: 710: IF FIRE BUTTON NOT PUSHED THEN RECHECK JOYSTICKS5 V11 710 : V1158 L110 880: IF ERASE KEY5* M11000 M110M1L1:@A3,M1;: IF RIGHT ANSWER LESS THAN 4 DIGITS THEN ADD NEW DIGIT TO ANSWER AND PRINT OVER OLD ANSWER64P14: P0 200,330,390,470,500: RETURN TO COROUTINE FOR LEFT PLAYER6]> M1N1 710: IF ANSWER NOT YET CORRECT, GET NEW CURSOR POSITION FROM JOYSTICKS.7,HI1024A3: JI I4: J,(J)64: J: WN0 S1S11:@T1,S1: S1WN 900: SINCE ANSWER CORRECT THEN REVERSE PRINT IT, ADD TO SCORE IF KEEPING SCORE AND LEAVE COROUTINES IF WINNING SCORE ACHIEVED.7:RP15:C107\ C15 C1C11: P0 200,330,390,470,500: GO TO LEFT COROUTINE 5 TIMES AFTER CORRECT ANSWER TO DELAY INTRODUCTION OF NEW PROBLEM ON RIGHT88fIL(1,L1): I,(I)64:@A3," ": 540: TURN OFF CURSOR, ERASE LAST ANSWER, AND GET A NEW PROBLEM8kp@A3," ";:M10: 710: ERASE RIGHT ANSWER8z INDICATE WHICH PLAYER WON AND BEGIN NEW GAME IF DESIRED8 S0WN PP0 : PP18F45217PP8 I1 3:@F,W$;:09 30 9309@F,N$(PP);: 09+ 30 9509U I:@F,W$;:@488,"SAME GAME (Y/N)?";9R$: R$"" 970 : R$"Y" 130 : R$"N" 50 : 970GAME IF DESIRED8 S0WN PP0 : PP18F45217PP8 I1 3:@F,W$;:09 30 ) FLASHCARDS BY DAVID MEREDITH 1983BL$(2,128):Q036:Q153:A2296:A3313:T0392:T1409: Q0 (Q1) IS SCREEN LOCATION OF LEFT (RIGHT) PROBLEM; A IS LOCATIONS OF ANSWERS, T IS LOCATIONS OF SCORESL(1,10): I0 1: J0 2: K02:L(I,3JK1)122117I32J2K: K:J:I:L(0,0)1253:L(1,0)1270:L(0,10)1255:L(1,10)1272: L(0,I) IS LOCATION OF DIGIT I ON LEFT KEYPAD, L(1,I) IS SAME FOR RIGHT( N$(1)2::" flash cards"::"INPUT PROBLEM TYPE <" A FOR ADDITION":" S FOR SUBTRACTION":" AS FOR ADD AND SUBTRACT":" M FOR MULTIPLICATION":" D FOR DIVISION":" MD FOR MULTIPLY AND DIVIDE":" ALL FOR ALL TYPES"!)F LATER L6 AND L7 ARE USED TO SELECT PROBLEM TYPE--TYPE = RND(L6)+L7, A VALUE BETWEEN 1 AND 4 INDICATING ADD, SUB, MULT, OR DIVIDE!P C$:C$"A"L61:L70:C$"S"L61:L71:C$"AS"L62:L70:C$"M"L61:L72:C$"D"L61:L73:C$"MD"L62:L72:C$"ALL"L64:L70:"REPEAT COMMAND":80"Z:"HOW MANY TO WIN? (ENTER -1":"TO SUPPRESS SCORING.)""Ad WN: WN1 WN0 "REPEAT ENTRY": 100"n:"FIRST PLAYER";N$(0):L5(N$(0)): L511 N$(0)(N$(0),11) : N$(0)N$(0)(11L5," ")#x"SECOND PLAYER";N$(1):L5(N$(1)): L511 N$(1)(N$(1),11) : N$(1)N$(1)(11L5," ")#:@15,BL$:@47,BL$:@79,BL$:@111,BL$:@133,"7 8 9 ";BL$;" 7 8 9":@165,"4 5 6 ";BL$;" 4 5 6":@197,"1 2 3 ";BL$;" 1 2 3":@229,"0 ERASE ";BL$;" 0 ERASE"$@271 , BL$:@289,"ANSWER ";BL$;" ANSWER ":@335,BL$:@367,BL$;$U WN0 @386,"SCORE 0 ";BL$;" SCORE 0" : @399,BL$$@431,BL$:@452 , N$(0);BL$;" ";N$(1)" ";BL$;" ";%UW$"winner ":S00:S10:P01:P11: S0,S1=SCORES OF PLAYERS 0(LEFT) AND 1(RIGHT); P0 AND P1 KEEP TRACK OF NEXT INSTRUCTION IN COROUTINES FOR LEFT AND RIGHT PLAYERS.% BEGIN COROUTINE FOR LEFT PLAYER. CHOOSE A PROBLEM FIRST&P01: P1 550,690,750,830,860: SWITCH TO COROUTINE FOR RIGHT PLAYER. P0 HOLDS VALUE INDICATING RETURN TO THIS POINT&:X(): RANDOMIZE RANDOM FUNCTION&҈ (L6)L7 220,250,270,300: CHOOSE ADDITION, SUBTRACTION, MULTIPLICATION, OR DIVISION PROBLEM FOR LEFT PLAYER&A0(10)1:B0(10)1:N0A0B0&@Q0,A0;"+";B0;& 320'B0(9):N0(9):A0N0B0'/@Q0,A0;"-";B0;: 320'TA0(10)1:B0(10)1:N0A0B0'h@Q0,A0;"*";B0;'s" 320',N0(10)1:B0(9):A0N0B0'6@Q0,A0;"/";B0;(@P02: P1 550,690,750,830,860: SWITCH TO COROUTINE FOR RIGHT PLAYER, REMEMBER TO COME BACK HERE(JM00:L05:IL(0,L0): I,(I)64:@A2," ";: SET LEFT ANSWER M0=0 AND PUT CURSOR ON 5 TO START AND BLANK ANSWER FROM PREVIOUS PROBLEM(T GET JOYSTICK POSITION TO MOVE LEFT CURSOR)^J2(2): J220 J20 : J243 J21 : J22)MhJ3(3): J316 J30 : J332 J31 : J348 J32 : J33)r J33 K0J23J37 : J20 K00 : K010: K0=NEXT KEY TO GET CURSOR (10=ERASE))|P03: P1 550,690,750,830,860: SWITCH TO COROUTINE FOR RIGHT PLAYER* K0L0 420: IF CURSOR NOT MOVED*IL(0,L0): I,(I)64:L0K0:IL(0,L0): I,(I)64: MOVE LEFT CURSOR FROM OLD POSITION TO NEW POSITION, WHICH BECOMES OLD POSITION+^ CHECK FIRE BUTTON--IF IT IS PUSHED AND WAS NOT PUSHED LAST TIME THROUGH HERE, ADD DIGIT TO ANSWER AND CHECK FOR CORRECT ANSWER. V1=1 IF LAST TIME THROUGH HERE BUTTON WAS PUSHED.+ ((65280) 2) V00:350: FIRE BUTTON PUSHED RECHECK JOYSTICKS+ V01 350 : V01+ L010 520: IF ERASE KEY,f… M01000 M010M0L0:@A2,M0;: IF LEFT ANSWER LESS THAN 4 DIGITS THEN ADD NEW DIGIT TO ANSWER AND PRINT OVER OLD ANSWER,P04: P1 550,690,750,830,860: RETURN TO COROUTINE FOR RIGHT PLAYER- օ M0N0 350: IF ANSWER NOT YET CORRECT GET NEW CURSOR POSITION FROM JOYSTICKS.-I1024A2: JI I4: J,(J)64: J: WN0 S0S01:@T0,S0;: S0WN 900: SINCE ANSWER CORRECT THEN REVERSE PRINT ANSWER AND ADD ONE TO SCORE IF KEEPING SCORE. IF WINNING SCORE ACHIEVED,GOTO 930-P05:C00.b C05 C0C01: P1 550,690,750,830,860: GOTO RIGHT COROUTINE 5 TIMES TO DELAY INTRODUCTION OF NEW PROBLEM ON LEFT.IL(0,L0): I,(I)64:@A2," ";: 190: TURN OFF CURSOR, ERASE LAST ANSWER, AND GO GET A NEW PROBLEM/@A2," ";:M00:350: ERASE LEFT ANSWER/) BEGIN COROUTINE FOR RIGHT PLAYER/P11: P0 200,330,390,470,500: COROUTINE LEFT ER. P1 INDICATES REETURN HERE/&X(): RANDOMIZE RANDOM FUNCTION0'0 (L6)L7 570,600,630,660: CHOOSE ADDITION, SUBTRACTION, MULTIPLICATINE'(121,121),20,5,.3'4(121,121),20,8,.3,1,.5':'R:HAIR LOSS ROUTINE'm H61 H61: 1270'(121,96),H,5,1,.5'HH1'؅ (55,100)7 1300''쁦 1300'(121,96),60,8,1'' :EAR ROUTINE((55,100),8,8,1.3,.1,.9("(185,100),8,8,1.3,.62,.4(4((187,97),7,8(E2(50,97),7,8(W< H62 1360(]F(iP 1120(Z:ROUTINE TO DRAW PATCH(d(147,42),90,7,.3,.2185,.4(n(140,63),22,7,1.3,.04,.48(x(140,78),8,7((:GLASSES ROUTINE( 6,5)(105,80),15,6,.8)'(139,80),15,6,.8)>(92,80)(62,92),)W(151,80)(177,92),)q(120,82),7,6,1,.6,.9)wҐ):ROUTINE TO REMOVE GLASSES)(105,80),15,5,.8)(139,80),15,5,.8)(92,80)(62,92),)(151,80)(177,92),* (120,82),7,5,1,.6,.9*& (140,78)8 1370*,"*C,:MUSTACHE ROUTINE*O6D$"C8"+ @"BM100,118;XD$;S6U4R1D4R1U4R1D4R1U5R1D4R1U5R1D4R1U6R1D5R1U5R1D5R1U5R1D5R1U5R1D5R1U5R1D5R1U5R1D5R1U5R1D5R1U5R1D5R1U5R1D5R1U5R1D5R1U5R1D5R1U5R1D5R1U5R1D6R1U5R1D6R1U5R1D5R1U4R1D5R1U4"+J+/T:ROUTINE TO ERASE MUSTACHE+;^D$"C5"+Gh 1600+[r:BEARD ROUTINE+g|B$"C8"+"BM112,127;XB$;S9D4R1U4R1D5R1U5R1D6R1U6R1D5R1U5R1D4R1U4"++:ROUTINE TO ERASE BEARD+B$"C5"+ 1670+:ROUTINE TO START OVER,¼, ́ 50,(:ROUTINE TO ERASE EARS,:(187,97),5,8,K(50,97),5,8,g(55,100),8,5,1.3,.1,.9,(185,100),8,5,1.3,.62,.4, (55,95)8 1830,(55,100),8,8,1.3,.6,.9,(185,100),8,8,1.3,.6,.9,&,0:END PROGRAM,: 65494,0-D-N @ 236,"BYE-BYE";-!X-8b:WHISKERS ROUTINE-Bl 8,5-Qv X1 15-gA(20):B(20)-y(75A,110B)- X- X1 15-A(20):B(20)-(82A,117B)- X-ƀ X1 15-A(20):B(20)-ڽ(88A,127B)- X. X1 15.$A(23):B(23).7(108A,128B).? X.N X1 15.d A(20):B(20).w*(130A,125B).4 X.> X1 15.HA(20):B(20).R(141A,117B).\ X.f X1 15.pA(20):B(20).z(147A,110B). X//":ROUTINE TO DRAW MOHAWK/2 M95 /N(121,96),M,8,1,.73,.79/XMM1/^/|:ROUTINE TO ERASE MOHAWK/ԅ M61 1270/(121,96),M,5,1,.73,.79/MM1//:ROUTINE TO DRAW EARRINGS/ R$"C6"0 "BM55,108;XR$;S13D6U2L3R5"0$ "BM185,108;XR$;D6U2L3R5"0* $0J .:ROUTINE TO ERASE EARRINGS0V 8R$"C5"0b B 23200 L:ROUTINE TO DRAW RANDOM FACE0 V X1 150 ` ((17)) 640,590,560,700,740,770,1370,1120,1160,1290,1420,1580,1650,1890,2200,2300,8301 jQ()1 t X1 ~18 :ROUTINE TO DRAW 'BRIAN'1[ "BM187,12;S9C6D6R3U3L3R3U3L3"1t "BM199,15;S9D4U3R2"1 "BM208,15;D4BM208,11D1"1 "BM214,15;D4U4R3D4U2L3"1 "BM224,15;D4U4R3D4"1 "BM186,29;R20"1 ΐ,1650,1890,2200,2300,830l@419,"press"(128)"enter"(128)"to"(128)"play"(128)"again";'v@451,"press"(128)"break"(128)"to"(128)"stop"(128)"play";' (13) 7040''@:sub for heading'J359,60::screen poke'T0,1'^(h@39,"TYPING PRACTICE";(r@129,"YOU WILL BE GIVEN NINE LETTERS ALONG THE BOTTOM OF THE SCREEN. AS YOU TYPE THESE LETTERS THEY WILL BE BLANKED AND ONE POINT SCORED. ANY LETTERS YOU DON'T TYPE BEFORE TIME EXPIRES WILL CAUSE THE PYRAMID TO GROW")7|" WHEN THE PYRAMID REACHES THE TOP OF THE SCREEN, THE PRACTICE IS OVER.")]:" PRESS ENTER TO CONTINUE";)v (13) 8080 *P@129,"SELECT THE DIFFICULTY LEVEL THAT YOU WISH TO TRY--JUST PRESS THE NUMBER YOU WANT: 1. EASY 2. MEDIUM 3. FAST*d N1376 1535*oN,128*u*SPEED0*A$: A$"" 8140*օ A$"1" SPEED450* A$"2" SPEED350* A$"3" SPEED250* SPEED0 8140+ 359,126::reg screen+  2. MEDIUM 3. FAST*d N1376 1535*oN,128*u*SPEED0*A$: A$"" 8140*օ A$"1" SPEED450* A$"2" SPEED350* A$"3" SPEED250* SPEED0 8140+ :FACE'#:BY BRIAN RUPERTE:TRS-80 EXTENDED COLOR BASICZ(:COLOR COMPUTERd2 3,1j<tF 1,1P65495,0ZH60dM60n:FRAMEx(0,191)(255,191),(0,191)(0,0),(0,0)(255,0),(255,0)(255,191),(121,96),60 :HEAD% (121,96),55:SHOULDERSR(40,140),60,6,1,.04,.25p(200,140),60,6,1,.25,.48(121,96),60,6(120,170),6,6(121,96),60,8 2450:MAIN ROUTINE Z 1 7:338Z,255: (339)254 640  (340)254 590 / (341)254 560 H" (342)254 700 a, (343)254 740 z6 (344)254 770 @ (345)254 830 J (338)253 338,255: 940 T (339)253 1000 ^ (340)253 1120!h (341)253 1160!!r (342)253 1200!;| (343)253 1290!U (344)253 1370!o (345)253 1420! (338)251 1500! (339)251 1580! (340)251 1620! (341)251 1650!… (342)251 1690" ̅ (343)251 1720"%օ (344)251 1750"? (345)251 1890"e (338)247 338,255: 2200" (339)247 2250" (339)239 2300" (340)239 2350" (341)239 2380" (340)247 1840"& 250"0:MOUTH#:(121,121),20,8,.3#D#&N:NOSE#=X"BM123,87;S4C8F4"#Yb (129,105)(120,106),#sl(126,90)(129,105),#yv#(105,80),10,8,.4:EYES#(105,80),6,8#(139,80),10,8,.4#(139,80),6,8##:HAIR ROUTINE# H96 $(121,96),H,8,1,.5$HH1$ڐ$*:CHIN$H(121,140),15,8,.4,.15,.4$N$^:EYE BROWS$o A68 72 $(105,A),15,8,.4,.5,1$ (138,A),15,8,.4,.5,1$* A$4$>:CHEEKS$H 7,8$R C1 40$\A(20):B(20)$f(87A,90B)%p C%z C1 40%+A(20):B(20)%=(140A,90B)%E C%K%a:TALKING ROUTINE%x(121,121),20,8,.3%(121,121),7,8%ʀ X1 55: X%(121,121),5,8%ސ%:BLINKING ROUTINE%(105,80),10,8,.4%(139,80),10,8,.4& (105,80),8,8&(139,80),8,8&1 X1 80: X&C$(105,80),6,5&\. (144,70)8 1090&n8(139,80),6,5&B(105,80),10,8,.4&L(139,80),10,8,.4&V&`:FROWN ROUTINE&j(121,121),20,5,.3&t(121,121),20,8,.3,.5,1&~':SMILE ROUTI8BR4"'!NL$(6)"U8R8BD4L8BD4BR12"'CXL$(7) "U8R8BD4L4BR4D4L8BR12"'cbL$(8)"U8BR8D8BU4L8BD4BR12"'lL$(9)"BU8R8BL4D8BL4R8BR4"'vL$(10)"U4BU4BR8D8L8BR12"'L$(11)"U8BR8G4L4BR4F4BR4"'L$(12)"U8BD8R8BR4"'L$(13)"U8F4E4D8BR4"( L$(14)"U8F8U8BD8BR4"($L$(15)"U8R8D8L8BR12"(AL$(16)"U8R8D4L8BD4BR12"(_L$(17)"U8R8D8H4BG4R8BR4"(}L$(18)"U8R8D4L8BR4F4BR4"(L$(19)"BU4U4R8BD4L8BR8D4L8BR12"(L$(20)"BU8R8BL4D8BR8"(L$(21)"U8BR8D8L8BR12"(L$(22)"BU8D4F4E4U4BD8BR4")L$(23)"U8BR8D8H4G4BR12"),L$(24)"E8BL8F8BR4")I L$(25)"BU8F4E4BG4D4BR8")cL$(26)"BU8R8G8R8BR4")u L$(27)"BR12"){*)4 XX 840,860,880,900,920,940,960,980,1000:)>:SHAPES*H(A,B)(A20,B30),:(A,B30),:(A,B),:(A2,B6),4,4::RT TRIANGLE*R*b\(A,B)(A30,B15),:(A,B30),:(A,B),:(A2,B4),4,4:: ISOCELES TRIANGLE*hf*p(A,B)(A20,B),:(A30,B15),:(A10,B15),:(A,B),:(A4,B4),4,4::PARALLELOGRAM*z*(A,B)(A25,B25),,BF*+(A,B)(A30,B15),,BF:: RECTANGLE++q(A10,B)(A20,B),:(A30,B15),:(A,B15),:(A10,B),:(A14,B2),4,4+w+(A10,B)(A25,B),:(A30,B15),:(A17,B23),:(A,B15),:(A10,B),:(A14,B2),4,4::PENTAGON+ʐ,jԻ(A15,B)(A25,B),:(A35,B15),:(A25,B30),:(A15,B30),:(A5,B15),:(A15,B),:(A18,B2),4,4::HEXAGON,pސ-(A15,B)(A30,B),:(A40,B10),:(A40,B25),:(A30,B35),:(A15,B35),:(A5,B25),:(A5,B10),:(A15,B),:(A18,B2),4,4- -^ P4 " UP"; : P2 " RIGHT"; : P3 " DOWN"; : P1 " LEFT";-" ARROW":30,5::T1700:T:1,1:T1900:T::,:(A40,B25),:(A30,B35),:(A15,B35),:(A5,B25),:(A5,B10),:(A15,B),:(A18,B2 :WH BARBER%:978 CHERRY ST=:WINNETKA IL 60093Q:(312)446-9482c:564-76-9578n 8010u0(32,255);( N1056 1504 322N,255:N31,255<FZ$(144)(154)(144)PN130 3Z@448N,Z$; d@480N,Z$;n&x@11,"SCORE= ";`@422,"press"(128)"enter"(128)"to"(128)"start";w (13) 140@420,(23,128);:game loopSCORE0400020003000@11,"SCORE=####";SCORE;$TURNTURN9 .PYRAMIDPYRAMIDTURN )8 N19:LR(N)207: 4B2000 ?L5010 JVTURN0 c` PYRAMID197 7010 j@420,"press"(128)"enter"(128)"to"(128)"continue"; t (13) 1140 ~@420,(23,128); 1020 :*sub to print chr at bottom!ڿ1,0!N19!(@480N3,(LR(N));!.!9255,1!? !Z :sub to read keyboard!i PYRAMID!s X$! օ SPEED 50,1:! X$"" 3020! N19! (X$)32LR(N) LR(N)143:2000:SCORESCORE1:TURNTURN1! ! 3020":sub to select letter")LX()"4N19"BLX(26)"RLR(N)96LX"Xҋ"^ܐ"y:sub to print pyramid"Y1378"65495,0::speed-up poke"Z0" PYRAMID198 PYRAMID198" X1 PYRAMID"čB"ΒYVB,B"VBVB1# VB27Z VB0:YY31:ZZ2#$#-VB0#3#Q 65494,0::slow down poke#W#jp:data section#z 175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175,175$N 165,175,159,159,159,159,159,159,159,159,159,159,159,159,159,159,159,159,159,159,159,159,159,159,175,170$ 165,175,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,207,175,170% 165,175,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,255,175,170%h 165,175,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,223,175,170% 165,175,191,191,191,191,191,191,191,191,191,191,191,191,191,191,175,170% 165,175,159,159,159,159,159,159,159,159,159,159,159,159,175,170&: 165,175,255,255,255,255,255,255,255,255,255,255,175,170&pʆ 165,175,207,207,207,207,207,207,207,207,175,170&Ԇ 165,175,143,143,143,143,143,143,175,170&ކ 165,175,239,239,239,239,175,170&X:sub to play again&b@395,"game"(128)"over";'BBG"0Z(345)254(H,V,3):345,255:GG1:TMR125::(H,V,2):HH1:VV1:4500:42300sV$V$(G):3400:0:BLANK 3150G00V$"BH"0(338)253(H,V,3):338,255:GG1:TMR125::(H,V,2):HH1:VV1:4500:43301V$V$(G):3400:136001!:LIMITER13 H255H2551@H0H01QV191V1911^V0V01dƐ(G):3400:0:BLANK 3150G00V$"BH"0(338)253(H,V,3):338,255:GG1:TMR125::(H,V,2):HH1:VV1:4500:43301V$V$(G)9 JAMES W. WOOD, 424 N. MISSOURI, ATWOOD, IL, 61913N4:255: L$(27)f:@200,"GEOSHAPES"v(T1300:T2:"YOU ARE TO IDENTIFY VARIOUS":"GEOMETRIC SHAPES. USE THE ARROW":"KEYS TO POINT TO THE SIDE OF":"THE SCREEN WHICH CONTAINS THE":"NAMED SHAPED."2<:"RIGHT TRIANGLE--3 SIDES,"ZF" 1 RT. ANGLE":P"ISOCELES TRIANGLE--2 SIDES EQUAL"Z"PARALLELOGRAM--OPPOSITE SIDES":" PARALLEL"d"PRESS (ENTER) TO CONTINUE";JW$ n:"SQUARE--4 EQUAL SIDES," )x" 4 RIGHT ANGLES." r:"RECTANGLE-- 4 RIGHT ANGLES":" OPPOSITE SIDES EQUAL.": "TRAPEZOID--4 SIDES," " ONE SET PARALLEL," " OTHER TWO EQUAL." "PENTAGON---5 SIDES."!"HEXAGON---6 SIDES."!""OCTAGON---8 SIDES."!Yȇ:" YOU WILL BE ASKED EACH SHAPE":"ONLY ONCE!!!"!҇:"PRESS (ENTER) TO CONTINUE";JW$!ܞ0!U$(94):D$(10):R$(9):L$(8)!530! A1 9: D$(A):A"= RIGHT TRIANGLE,ISOCELES TRIANGLE,PARALLELOGRAM,SQUARE,RECTANGLE,TRAPEZOID,PENTAGON,HEXAGON,OCTAGAN"H3,1:"TR(9)"p"Z(R)1 280 : Z(R)1"|,P(4)"6A1(D$(R))"@ ((D$(R),A,1))32 ST$L$(27) : ST$L$(((D$(R),A,1))64)"JPO5510A:PO$(PO)# T"S3BM"PO$",130"ST$#^A#)h P4 A120:B0#@r P2 A200:B80#X| P3 A120:B140#m P1 A0:B80#|XXR:820#RA(9):RB(9):RC(9): RAR RBR RCR RARB RARC RBRC 410$#P4 A200:B80:XXRA:820:A120:B140:XXRB:820:A0:B80:XXRC:820:460$x P2 A120:B0:XXRA:820:A120:B140:XXRB:820:A0:B80:XXRC:820:460$ P3 A120:B0:XXRA:820:A200:B80:XXRB:820:A0:B80:XXRC:820:460%… P1 A120:B0:XXRA:820:A200:B80:XXRB:820:A120:B140:XXRC:820%-̿1,0:IN$%BA$:A$""470% P4 A$U$ P2 A$R$ P3 A$D$ P1 A$L$ NCNC1:FL1%: FL1 @200,"CORRECT": @192,"WRONG, SHOULD HAVE PRESSED THE": 1020&JFL0:NQNQ1::" PRESS ENTER TO CONTINUE";E$:: NQ9 ::"YOU GOT";NC;"OUT OF 9 CORRECT": : 270&T510&Z&n:CHARACTER SET&L$(1)"U8R8D4L8BR8D4BR4"&&L$(2)"U8R6F2D2L8BR8D2G2L6BR12"&0L$(3)"U8R8BD8L8BR12"&:L$(4)"U8R6F2D4G2L6BR12"'DL$(5)"U8R8BD4L8BD4Re: BASIC BUILDER5: (C) BY L.W. GROSSU : 394 A SAN BRUNO AVE.s: BRISBANE, CA. 94005:SETUP400,16085:::LN110:Q64"PROGRAM NAME";F$L:PRINT MENU&V"S=START (LINE)","F=FINISH (LINE)","A=AID (HOLD DOWN)","E=END","P=PAINT"M`:"C=CIRCLE MODE","O=DRAW CIRCLE"j:"D=DRAW MODE":"R=RIGHT","L=LEFT","U=UP","D=DOWN","E=UP-RIGHT","F=DOWN-RIGHT"t"G=DOWN-LEFT","H=UP-LEFT","B=BLANK LINE","X=X-IT (EXIT)":SETUP TAPE "O",#1,F$ %T$"100PMODE4,1:PCLS:SCREEN1,1" 2·#1,T$; @H96:V96 QTMR1500: c:MAIN INKEY$ s4,1::1,1 ((341)247VV1 2(342)247VV1 <(343)247HH1 F(344)247HH1 K4500 P(H,V,3): TMR130::(H,V,4)!ZA$!dA$"S"1470!,nA$"F"1510!?xA$"A"3500!QA$"P"1700!A$"E"LNLN10:#1,(LN)"GOTO"(LN):#1!A$"M" LNLN10:1600!A$"C"1800! A$"D"2200!1320!HHH:VVV:!:LINES ROUTINE"LNLN10:(HH,VV)(H,V),"\U$(LN)"LINE("(HH)","(VV)")-("(H)","(V)"),PSET""h#1,U$"n"|@:MISTAKS"JA$:A$""1610"TA$"L"(HH,VV)(H,V),"^A$"C"2100"h":PAINT ROUTINE"(H,V),3,3"LNLN10#'U$(LN)"PAINT("(H)","(V)"),3,3"#3̇#1,U$#9֐#T:CIRCLE SETUP ROUTINE#bX1H:Y1V#lA$#&(344)247HH1#0(343)247HH1#54500#:X2H:(H,V,3):TMR125::(H,V)#DA$"O"2000:#1820$: CIRCLE ROUTINE$!(X1,Y1),((X1H)):LNLN10$]U$(LN)"CIRCLE("(X1)","(Y1)"),"((X1H))$i#1,U$$o$4:MISTAKEN CIRCLE$>(X1,Y1),((X1X2)),2:LNLN10:$:DRAW INKEY$ ROUTINE$A$:A$""2210$X2H:Y2V%)LNLN10:U$(LN)"DRAW"(34)"BM"(H)","(V)";"%3A$%EʅA$"B"2400%VԅA$"N"2550%hޅA$"U"2600%zA$"D"2700%A$"R"2800%A$"L"2900% A$"E"3000% A$"F"3100% A$"G"3200% $A$"H"3300& .A$"X"U$U$(34):#1,U$:1320& 8 W1 2230&+ B2240&K `:BLANK DRAW INKEY$ ROUTINE&S jW1&] tA$&o ~A$"U"3600& A$"D"3700& A$"R"3800& A$"L"3900& A$"E"4000& A$"F"4100& A$"G"4200& ąA$"H"4300& ΅W0' ؁2400' :DRAW SUBROUTINES'4 (:DRAW UP SUBROUTINE'< 2G0'G V$V$(G):3400:.O<:BLANK LEFT.WFG0.cPV$"BL".Z(342)253(H,V,3):342,255:GG1:TMR125::(H,V,2):HH1:4500:3930.dV$V$(G):3400:.:BLANK 45.G0.V$"BE"/I(343)254(H,V,3):343,255:GG1:TMR125::(H,V,2):HH1:VV1:4500:4030/Y:BLANK 135/aG0/mV$"BF"/"(344)254(H,V,3):344,255:GG1:TMR125::(H,V,2):HH1:VV1:4500:4130/,V$V$(G):3400:/h:BLANK 225/rG00|V$" `j 2000t 1(~ CR$(50)Nꈇ @228,"VARIABLE CROSS REFERENCE"kꒇ @264,"BY MIKE JOHNSON"꜇ @300,"02/20/83"ꦇ @329,"FOR TRS-80 COLOR 16K"가 X1 2000꺅 "" XĂ VARIABLE CROSS REFERENCE΂ BY MIKE JOHNSON؂ 2/20/83#)5LO3073 LO=5121 FOR CO.CO. WITH 16K DISK BASIC MAY BE DIFFERENT WITH OTHER CONFIGURATIONS NE((LO)256(LO1)) NE0 60780CC1: C10 60250 (: !2"PRESS ENTER TO CONTINUE" A< (13) 60220 IFC0 OP [ZLOLO2 xdLI((LO)256(LO1)) n LI60000 60770 x (6((LI))," ");LI; 낂 LOAD STRING WITH LINE 댅 (LO2)130 60620 떀 ILO2 NE1!뛅 (I)130 (I)131 60340!5: A$A$((I))!=몋 I!s봂 STRIP THE STRING OF LITERAL STRINGS!{I1!ȅ (A$,I,1)(34) 60390!II1:I(A$) 60430!܁ 60360!II1! (A$,I,1)(34) 60370""A$(A$,I1)(A$,I1): 60400"= FIND LEGAL VARIABLES"EI1"cCH$(A$,I,1):CH(CH$)"" CH64 CH90 60630", CH0 60620"6II1"@ I(A$) 60620"J 60440"T J1 (VA$)"^: (VA$,J,1)"Z" 60560#4h: (VA$,J,1)(172) (VA$,J,1)"-"#jr: (VA$,J,1)(171) (VA$,J,1)"+"#|: (VA$,J,1)(174) (VA$,J,1)"/"#: (VA$,J,1)(173) (VA$,J,1)"*"#쐋 J#욇 6C28);VA$;$&C2C21: C24 60590 : : C20 : $3쮁 61070$GVA$"": 60480$‚ CLEAR STRING, LOAD NEW POINTER, START OVER$C20:LONE::A$"": 60170$VA$CH$$II1$CH$(A$,I,1)$CH(CH$)% CH36 (CH64 CH91) (CH47 CH58) 60750%( CH0 60570%Q CH40 CH32 60500%e CH32 60640%|&VA$VA$(A$,I,1)%0 (A$,I,1)")" 60500%:II1%D 60710%NVA$VA$CH$%X 60640%b SORT VARIABLES%l B1 N1%v: F0&: C1 N1&>: CR$(C1)CR$(C) 60860&T: T$CR$(C)&p: CR$(C)CR$(C1)&: CR$(C1)T$&: F1&: C&: F0 60890&Ћ B&ڇ"PRESS ENTER FOR CROSS REFERENCE"' (13) 60900'' I1 N1'&: CR$(I)'>: C3C3(CR$(I))'W : C3256 60970'_ I'e 'k*'t4C30'f"PRESS ENTER TO CONTINUE"'p (13) 61040'z' 60940' J1 N(P (8(VA$),32)VA$(CR$(J),8) FL1: (LI)(CR$(J),((LI))) CR$(J)CR$(J)(8((LI)),32)(LI): 61130(c FL1 61130(k J(uNN1(CR$(N)(8(VA$),32)VA$(6((LI)),32)(LI)(FL0: 60600 J1 N(P (8(VA$),32)VA$(CR$(J),8) FL1: !#$&'(+,-/12VARIREF BAS PYTHON BAS"~GRAPHBLDBAShMAIL-BELBAS%GEOSHAPEBASTYPTEACHBASTIME BAS)FACE BASINTERESTBAS*FLASHCRDBASTIMER BIN.#MSTRDATABAS0EDITOR BAS&{%:FRI/10/SEPT/82andrew siddeley,:61000G#:title*page(:@42,(11,"*"): @74,"P Y T H O N": @106,(11,"*"): @258,"CREATED BY: ANDREW SIDDELEY":" [FRI/10/SEPT/82]":-:initialization2L(20),C(20),TR(125),A$(20)PPPDV(DI))H@P,P$((6));)RSTST1: ST10 ST1* \ENEN1: EN10 EN1*fTR(ST)P*(p@TR(EN)," ";*9z ""220*C820*c:end*of*demo*program*cycle*j:*:game*over*mesage*T1902:0,0: T11T:T1:0,1: "T200O1DAC":T: 0,0:"T4O3L2AP16EP16L1O1E #"+@231,"TOO BAD, GAME OVER";+T11500:T+C@224,"DO YOU WANT TO PLAY AGAIN [Y/N]";+MK$+vK$"Y" :SC0:PC0: SN0:215+ʅK$"N" :+ԁ950+:instructions+:," THE OBJECT OF THIS GAME IS TO GUIDE THE PYTHON THROUGH THE MAZE AND EAT UP ALL THE ",u" DOTS BEFORE THE TAIL CATCHES UP WITH THE HEAD, AND BLOWS THE PYTHON TO TINY BITS.",:" THE CONTROLS ARE :", ,12);"K UP": 12);"< DOWN": 12);"L LEFT": 12);"+ RIGHT"-&:" ** PRESS ENTER TO RETURN **";-H$ (13) 220 : 1060-`B:data*for*the*maze-sІ 16,175,99,99-چ 1,175,12,46,1,175,2,46 ,99,99- 1,175,1,46,7,175,1,46, 2,175,1,46,1,175,1,46,1,175 ,99,99.+ 1,175,7,46,1,175,1,46, 2,175,1,46,1,175,1,46,1,175 ,99,99. 1,175,1,46,2,175,1,46, 2,175,1,46,1,175,1,46,2,175 ,1,46,1,175,1,46,1,175,99, 99. 1,175,1,46,2,175,1,46,2,175,1,46,1,175,6,46,1,175,99,99/ 1,175,4,46,2,175,1,46,1,175,1,46,6,175,99,99/ 4,175,12,46,99,99/V 1,175,4,46,2,175,1,46,1,175,1,46,2,175,1,46,3,175,99,99/* 1,175,1,46,2,175,1,46,2,175,1,46,1,175,6,46,1,175,99,99/4 1,175,1,46,2,175,1,46,2,175,1,46,1,175,1,46,2,175,1,46,1,175,1,46,1,175,99,990> 1,175,14,46,1,175,99,990DH 1,175,1,46,5,175,1,46,4,175,1,46,1,175,1,46,1,175,99,990gR 1,175,12,46,1,175,2,46,99,990z\ 16,175,99,99,1,175,6,46,1,175,99,99/4 1,175,1,46,2,175,1,46,2,175,1,46,1,175,1,46,2,175,1,46,1,175,1,46,1,175,99,990> 1,175,14,46,1,17&,:MAIL-BEL - VER. 5.1-10/8/83-J.A.RYAN&2&Q 15000: S$(210): LN$(5)&150,87::SET THIS POKE TO PRINTER SPEED. SEE R.S.MANUALS&LL0&&@8,"MAILING LIST"&241:@39,"SPACE LEFT";P5'F@64,(4,(128));"PRINTER TO 600 BAUD";(8,(128))::IF YOUR PTR. IS SET FASTER, CHANGE 600 TO YOUR SPEED'b @134,"(1) INPUT ITEMS"' @166,"(2) REPLACE ITEMS"' @198,"(3) ADD TO THE LIST"' @230,"(4) DELETE ITEMS"' @262,"(5) PRINT ALL ITEMS"'@294,"(6) SAVE ITEMS"(@326,"(7) LOAD ITEMS"(7@358,"(8) MAKE ADDRESS LABELS"(^@390,"(9) SEARCH & SORT ROUTINES"(@422,"(10) PRINT LIST HEADING"(@459,"(1-10)";( M( M0 M10 4( M 24,50,27,74,87,109,120,135,165,210( 5(:INPUT/ADD) Y1 )Y1)<L0::"LN, FN, ST, CY, STZP *ACPHCODE")n@32,"put * at end of each entry w/o tele.#")@100,"PRESS WHEN DONE") "ITEM" Y;)S$(Y)"") A$: A$"" 32)! (343)247 37)"LL1: L0 27* #S$(Y)(S$(Y),L)*$ 42*)% A$(13) 46*B&S$(Y)S$(Y)A$: 42*V'P(S$(Y),"*")*( ((S$(Y),P1))12 S$(Y)S$(Y)(12((S$(Y),P1))," ")*)**L(S$(Y))*+@161,"LL=";LL;"L=";L: @193,S$(Y)*, L0 27*-32+. S$(Y)"" +/39:YY1+$0LLLLL:27++1:+92:REPLACE+E3N0:L0+_4:@9,"REPLACE ITEMS"+5@34,"PRESS WHEN FINISHED"+6: "ITEM NO. TO REPLACE";N+7"OLD ITEM WAS: ";S$(N):LLLL(S$(N)):S$(N)""+8 N0 +9"REPLACEMENT";,:A$: A$"" 58,); A$(13) 73,B< (343) 247 64,W=LL1: L0 51,m>S$(N)(S$(N),L),w? 65,@S$(N)S$(N)A$,AL(S$(N)),B@224,"LL=";LL;"L=";L:@256,S$(N),C L0 58,D 72,EP(S$(N),"*")-3F ((S$(N),P1))12 S$(N)S$(N)(12((S$(N),P1))," ")-9G-CH 58-YI69:LLLLL:51-qJ:DELETE SUBROUTINE-yKN0-L:@9,"DELETE ITEMS"-M@34,"PRESS WHEN FINISHED-N: "ITEM TO DELETE";N: N1 5-O NY1 78-P N0 .Q XN Y2.!RS$(X)S$(X1).)S X.6TS$(X)"".@UYY1.JV 74.aW:PRINT SUBROUTINE.gX.Y@134,"1. SCREEN ONLY".Z@166,"2. PRINTER ONLY".[@198,"3. SCREEN & PRINTER".\M: M1 M3 89.] M 94,104,94/+^:"IS THIS A MAIL.LIST(1) OR A LIST WITH SHORTLINES(2) ";G/K_ G1 219 : G2 220/_` X1 Y1 D/pa ZX XDD/~b Z;S$(Z)/c Z/d"PRESS TO CONTINUE";C$/e X/f M3 108/g H$"Y" 217 : 1040,h#2,(27);(78);(5);: X1 Y::PTR.SKIP-OVER-PERFORATION FEATURE0Ki S$(X)"" #2,X;S$(X)0Sj X0k T$"Y" TX$"Y" #2:#2:#2,TT$0l M1 : M1 #2,(12):::PTR.ADV. TO TOP OF NEXT PGE.1m"SAVE TO DISK(D) OR TAPE(T):";L2$: L2$"T" 246 : 1101%n:@135,"SAVE ITEMS ON DISK"1?o"DISK FILE NAME";FF$1Pp "O",#1,FF$1`q X1 Y11nr#1,S$(X)1sX::PUT#1,Y:NEXT X1t#11u:"FILENAME IS: ";FF$1v"HIT WHEN READY":R$1w2x"LOAD FROM DISK(D) OR TAPE(T)";L1$: L1$"T" 258 : 12126y:@136,"LOAD ITEMS FROM DISK"2Pz"DISK FILE NAME";FF$2a{ "I",#1,FF$2i|Y12~} (1)1 1312~#1,S$(Y)2S$(Y)2LLLL(S$(Y))2YY12 1252 #12"FILE ";FF$;" HAS BEEN LOADED LL=";LL3"HIT FOR MENU":R$33N:@2,"THIS IS THE AREA FOR ADDRESS LABELS"3"FIRST RECORD,LAST RECORD TO BE PRINTED";I1,I23"0 FOR SCREEN 2 FOR PRINTER";U: U1 U2 U0 1373 U0 1414;"WHAT CHARACTER MODE? (DEFAULT IS STANDARD ASCII)":"1=ITALIC":"2=PICA":"3=COND.":"4=ELITE":1804"INSERT LABEL PAPER HERE-":"ENTER # OF COLUMNS (1 OR 2)";CC: CC1 CC2 1404"SPACING BETWEEN LABELS IN LINES";NX4 II1 I2:R$S$(I)4 J1 54P(1,R$,",")5 J5 P(1,R$,"*")5 P0 1505*LP15>LN$(J)(R$,L)5PR$(R$,P1)5WJ5LN$(1)LN$(2)" "LN$(1):LN$(5)LN$(4)","LN$(5)5 CC 153,1585#U,1)LN$(1)5#U,1)LN$(3)5#U,1)LN$(5)69#2,(27);(97);(NX)::SETS GEMINI 10-X PTR. TO AUTO LINEFEED NX LINES FOR NEXT LABEL6D 1636b#U,1)LN$(1);41)LN$(1)6#U,1)LN$(3);41)LN$(3)6#U,1)LN$(5);41)LN$(5)6#2,(27);(97);(NX)::PTR.AUTOLINEFEED OF NX LINES6 U1 J1 999: J74 I:#2,(27);(53)::SET PTR.TO STAND.ASCII CHAR.SET7:7[:@5,"SEARCH AND SORT AREA"7b:7@166,"1-SORT BY LAST NAME"7@230,"3-SEARCH"7@198,"2-SORT BY STATE/ZIP/OTHER":@416,"OTHER=ANY # OR CHR UP TO 12 CHRS LONG"7@262,"4-DONE"8M: M0 M5 16582 M 174,222,186,2218J:SORT BY LAST NAME8b:"SORTING - WAIT"8r X1 Y28 I X1 Y18 S$(I)S$(X) R$S$(X):S$(X)S$(I):S$(I)R$8I:X8 X21 5:128,1:158,1:X2:16597CH::PRINTER COMMANDS-SET FOR STAR GEMINI 10/10-X CHANGE FOR YOUR PRINTER9r CH1 #2,(27);(53):::PTR STD.ASCII.CHAR.SET9 CH1 #2,(27);(52):::PTR.ITALIC CHAR.SET9 CH2 #2,(18):::PTR.PICA SIZED PT.MODE: CH3 #2,(15):::PTR.CONDENSED PITCH PT.MODE:? CH4 #2,(27);(66);(2)::R:SEARCH ITEMS:o:"SEARCH LIST FOR";SS$:"IS OUTPUT FOR SCREEN(0) OR PRINTER(1)";OT: OT0 U0: 194: OT1 U2: 191;"WANT A HEADING ON THE PRINTOUT ";HW$: HW$"Y" 204 : 192;4:"ADD TEXT";T$;T T$"Y" 202 : 194;d€ S1 Y1;qR$S$(S);P(1,R$,SS$);Ņ P0 #U,R$;Ƌ S;Dž OT0 128,5:"PRESS TO CONTINUE";C$:165;ȅ T$"Y" #2:#2:#2,TT$<Ӟ:"THIS GIVES THE SAME PRINTOUT AS MODE 5/2 EXCEPT YOU CAN ADD A HEADING AND DATE AND FOLLOWING TEXT TO THE LISTING:":"DO YOU WANT A HEADING ON YOUR LISTING";H$: H$"Y" 5>Oԉ"HEADING";HH$>bջ"DATE? ";DD$>։"DO YOU WANT FOLLOWING TEXT";TX$: TX$"Y" 202 : 215>NN((DD$))>؁103>ه#2,(27);(66);(2);(14);HH$;:#2,40NN);DD$?ڇ#2,(18):?D5:DD4:?0D15:DD14:?6ݐ?_:SORT BY ZIP CODE/STATE SUBROUTINES?ߞ:"SORT BY STATE(S) OR ZIP CODE(Z) OR 'PHONE #[OR OTHER](T)";Z$? Z$"Z" 230 : Z$"S" 225 : Z$"T" 236@ X1 Y2::SORT BY STATE@ IX1 Y1@V (S$(I),21)(S$(X),21) R$S$(X):S$(X)S$(I):S$(I)R$@`I:X@ X21 10:105,1:145,1:X2: 165@"SORTING BY ZIP CODE"::SORT BY ZIP CODE ONLY@ X1 Y2@ IX1 Y1A (S$(I),18)(S$(X),18) R$S$(X):S$(X)S$(I):S$(I)R$A(I:XAR X21 10: 122,1:148,1:X2: 165A"SORTING BY TELE.# OR OTHER": X1 Y2::TELE.SORTA IX1 Y1A (S$(I),12)(S$(X),12) R$S$(X):S$(X)S$(I):S$(I)R$AI:XBX21 10: 100,1:180,1:X2: 165BUM(&H23)256(&H24)::SUBROUTINE TO GIVE STNG.SP. REMAININGBqN(&H21)256(&H22)BO(&H27)256(&H28)BP5MN:QOMBB:TAPE LOADB:@135,"SAVE TO TAPE"B"TAPE FILE NAME";FF$B : C@356,"PRESS PLAY AND RECORD"C?@388,"PRESS WHEN READY";R$CP"O",#1,FF$C` X1 Y1Co#1,S$(X)CvXC#1C"FILE NAME IS: ";FF$:"HIT FOR MENU";R$:C:TAPE LOADC:@136,"LOAD FROM TAPE"C"TAPE FILE NAME";FF$D0@388,"PRESS PLAY THEN WHEN READY":R$DA"I",#1,FF$DIY1D\ (1) 269Dk #1,S$(Y)D LLLL(S$(Y))D YY1D 264D #1D"FILE ";FF$" HAS BEEN LOADED LL= ";LLD"STOP RECORDER & HIT FOR MENU":R$D@388,"PRESS PLAY THEN WHEN READY":R$DA"I",#1,FF$DIY1D\ (1) 269Dk #1,S$(Y)D LLLL(S$(Y))D YY1D 264D #1D"FILE ";FF$" HAS BEEN LOADED LL= ";LLD"STOP RECORDER & HIT FOR MENU":R$D: LISTING ONE%: TIMER?: BY RICK CAMPBELLX: WESTON, ONTARIOi 256,&H3000 L12288 12529 A: L,A( L2 360,&H30: 361,&HC8< 363,&H30: 364,&HC8F0&H3000PA0(0)Z 142,5,224,204,143,143,237,129,140,67d 0,38,246,204,84,73,253,5,235,204Zn 77,69,253,5,237,134,0,183,48x 243,183,48,244,183,48,245,183,48,246 183,48,247,183,48,248,183,48,242,142 48,62,191,1,13,134,53,183,255,3 28,239,57,182,48,242,129,60,37,124 * 127,48,242,124,48,243,182,48,243,129 S 10,37,58,127,48,243,124,48,244,182 w 48,244,129,6,37,45,127,48,244 124,48,245,182,48,245,129,10,37,32 Ȇ 127,48,245,124,48,246,182,48,246,129 ҆ 6,37,19,127,48,246,124,48,247,182!܆ 48,247,129,10,37,6,127,48,247,124!E 48,248,142,5,241,182,48,248,139,112!r 167,128,182,48,247,139,112,167,128,134! 122,167,128,182,48,246,139,112,167,128! 182,48,245,139,112,167,128,134,122,167! 128,182,48,244,139,112,167,128,182,48"# 243,139,112,167,132,182,255,2,124,48"L" 242,59,52,118,158,136,140,5,223,34"n, 2,32,28,142,4,0,16,142,4,32"6 236,161,237,129,140,5,192,38,247,159"@ 136,204,143,143,237,129,140,5,224,37"J 249,53,118,57,47244,139,112,167,128,182,48"# + ::" 1-AMOUNT AT COMPOUND INTEREST"R" 2-VALUE NEEDED FOR COMPOUNDING"v" 3-TIME REQUIRED TO COMPOUND"(" 4-AMOUNT OF ANNUITY"2" 5-PAYMENTS TO ANNUITY"<" 6-TIME REQUIRED FOR ANNUITY"F" 7-VALUE NEEDED FOR ANNUITY"P" 8-ANNUITY FROM PRESENT VALUE"<Z" 9-TIME LEFT FOR ANNUITY"[d"10-POSSIBLE LOAN AMOUNT"n"11-PAYMENTS REQUIRED FOR LOAN"x"12-TIME REQUIRED FOR PAYMENTS""13-COMPARISON OF INTEREST RATES""14-TAXABLE VS TAX-FREE INTEREST":B G B 590,650,730,820,910,1030,1140,1230,1340,1410,1490,1580,1660,1740:10 b:"CONTINUE ";B$ vB$"Y"10: "ANNUAL INT.RATE(6%=.06)";I "NUMBER OF TIMES PER YEAR THAT INTEREST IS COMPOUNDED ";T:RIT: ȇ"LENGTH OF TIME IN YEARS"!(҉"(2 YR 3 MO=2.25) ";Y:NTY:!F܉"PRINCIPAL INVESTED";P:!d:"TOTAL INTEREST ";:!| "#######.##";K:!"TOTAL PAYMENTS ";! "#######.##";NA:!:"PRINT TABLE ";B$:B$"Y" 10 : ""SCREEN OR PRINTER

";B$:B$"P"420"@"4)"INTEREST TOT/INT PRIN/BAL":M0:M20"l, X1N:MJR:M2M2M:JJM: "###";X;"6 "######.##";M;: "#######.##";M2;J:X:"@"SCREEN OR PRINTER

";B$:B$"P"350#J4)" PAYMENT TOT/PAY INTEREST TOT/INT BALANCE"#}TTP0:BA0:M20:X1N:TPXB:MBAR:M2M2M:BATPM2: "###";X;: "######.##";B;: "#######.##";TP;M;M2;BA:X:$^#2,"PAYMENTS";:#2,"######.##";B;:#2," INT RATE"I"TIME"Y"YEARS":#2:#2,"NUM PAYMENT TOT/PAY INTEREST TOT/INT BALANCE"$VhTP0:BA0:M20:X1N:TPXB:MBAR:M2M2M:BATPM2:#2,"###";X;$r#2,"########.##";B;TP;M;M2;BA:X:$|"SCREEN OR PRINTER

";B$:B$"P"400%Y4)" PAYMENT TOT/PAY INTEREST TOT/INT BALANCE":TP0:M20:X1N:TPXB:MBAR:M2M2M:BABAMB: "###";X;: "######.##";B;: "#######.##";TP;M;M2;BA:X:%#2,"BALANCE";:#2,"#######.##";BA;:#2," INTEREST RATE"I"TIME"Y"YEARS":#2:#2,"NUM PAYMENT TOT/PAY INTEREST TOT/INT BALANCE"&ZTP0:M20:X1N:TPXB:MBAR:M2M2M:BABAMB:#2,"###";X;:#2,"########.##";B;TP;M;M2;BA:X:&#2,"INVESTMENT $"J"INT RATE"I"TIME"Y"YEARS":#2:#2,"NUM INTEREST TOT.INT PRIN/BAL"&M0:M20:X1N:MJR:M2M2M:JJM:#2,"###";X;'*#2,"######.##";M;:#2,"########.##";M2;J:X:'Už:"1-AMOUNT AT COMPOUND INTEREST"::'̞:"2-VALUE NEEDED FOR COMPOUNDING"::'֞:"3-TIME REQUIRED TO COMPOUND"::':"4-AMOUNT OF ANNUITY"::':"5-PAYMENTS TO ANNUITY"::(:"6-TIME REQUIRED FOR ANNUITY"::(?:"7-VALUE NEEDED FOR ANNUITY"::(i:"8-ANNUITY FROM PRESENT VALUE"::(:"9-TIME LEFT FOR ANNUITY"::(:"10-POSSIBLE LOAN AMOUNT"::(&:"11-PAYMENTS REQUIRED FOR LOAN"::) 0:"12-TIME REQUIRED FOR PAYMENTS"::)6::"13-COMPARISON OF INTEREST RATES"::)cD:"14-TAXABLE VS TAX-FREE INTEREST"::)N450:"HOW MUCH MONEY WILL YOU HAVE IN 12 YEARS IF YOU NOW INVEST $2500AT 9% ANNUAL INTEREST RATE AND IT IS COMPOUNDED 4 TIMES A YEAR? *X160:450:220:180:200*%bAP((1R)N)*;l230:KAP:240*Uv"TOTAL AMOUNT ";*yKA:240:270:JP:280:620+ 460:"HOW MUCH MUST YOU INVEST NOW IN ORDER TO ACCUMULATE $11,000 AFTER 8 YEARS IF IT WILL BE COMPOUNDED 12 TIMES A YEAR AT 11% ANNUAL INTEREST RATE?"+0160:460+N"AMOUNT TO ACCUMULATE";A+^180:200+pPA((1R)N)+230:KAP:240+Ƈ"AMOUNT TO INVEST ";+KP:240:270:JP:280:700,Xځ470: "HOW LONG WILL IT TAKE FOR $2000 TO GROW TO $12000 IF IT IS INVESTED AT 12% ANNUAL INTEREST RATE AND COMPOUNDED 4 TIMES A YEAR?",h䁦160:470,"PRINCIPAL INVESTED";P,"AMOUNT TO ACCUMULATE";A,180, Y(((A)(P))((1R)))T,230:KAP:240- "TIME REQUIRED" Y " YEARS"-*270:JP:280:790-4480:"HOW MUCH MONEY WILL YOU HAVE IF EVERY MONTH FOR 8 YEARS YOU SAVE$175 AND INVEST IT AT 10.5% INTEREST RATE COMPOUNDED 4 TIMESA YEAR?"->160:480:180:200-H"AMOUNT TO BE SAVED EACH 1/"T.R"YEAR";P.\A(P((1R)N1))R.0f230:KANP:240.Vp"TOTAL OF SAVINGS ";:KNP:240.zz"TOTAL ANNUITY ";:KA:240.270:BP:320:870/@490:"HOW MUCH MUST YOU SAVE EACH MONTH IF YOU INVEST AT 9.2% ANNUAL INTEREST RATE COMPOUNDED 12 TIMES A YEAR AND WANT TO ACCUMULATE $12,000 IN 5 YEARS?"/P160:490/n"AMOUNT TO ACCUMULATE";A/~180:200/PAR((1R)N1)/230:KANP:240/ʇ"PAYMENTS MUST BE ";/KP:240/އ"EVERY 1/"T"YEAR"/"OR MONTHLY ";0KTP12:2400,270:BP:320:9600500:"HOW LONG WILL IT TAKE YOU TO ACCUMULATE $15,000 IF YOU SAVE $225 EVERY MONTH AND INVEST AT 11.2% ANNUAL RATE COMPOUNDED 12 TIMES PER YEAR"0160:5000"AMOUNT TO ACCUMULATE";A:1801"$"AMOUNT TO BE SAVED EACH 1/"T10."YEAR";P1Z8Y(((ARP)(P))(1R))T:NYT1rB230:KANP:2401L"AMOUNT SAVED ";1VKNP:2401`"TIME REQUIRED"Y" YEARS"1j270:BP:320:10902xt510:"HOW MUCH MUST YOU INVEST NOW AT 8% ANNUAL INTEREST RATE TO BE COMPOUNDED 12 TIMES PER YEAR IN ORDER TO HAVE A MONTHLY INCOME OF $800 FOR 15 YEARS?"2~160:510:1802"INCOME DESIRED EACH 1/"T"YEAR": A22002PA(1(1R)N)R2230:KNAP:2403 "AMOUNT TO INVEST ";3KP:24038ā270:BA:BAP:380:11903΁520:"HOW MUCH WILL YOUR MONTHLY INCOME BE IF YOU HAVE $45,000 INVESTED AT 12.6% ANNUAL RATE COMPOUNDED 4 TIMES A YEAR AND WISH IT TO LAST 20 YEARS?"3؁160:5204 "PRINCIPAL INVESTED";P4쁦180:20045ARP(1(1(1R)N))4O:230:KNAP:2404s "INCOME WILL BE ";:KA:2404"EVERY 1/"T"YEAR"4"OR MONTHLY ";4(KTA12:24042270:B((A100.5))100:BAP:380:12805n<530:"HOW LONG WILL YOUR MONEY LAST IFYOU HAVE $27,000 INVESTED AT 11%ANNUAL INTEREST RATE AND WISH TOHAVE A MONTHLY INCOME OF $900?"5F160:530:180:2205P"INCOME PER 1/"T;5Z"YEAR";A5dY((A)(ARP))((1R)T):NYT5n:"TIME LEFT "Y" YEARS"6x270:BA:BAP:380:13906540:"HOW LARGE A LOAN CAN YOU AFFORD IF YOU CAN MAKE PAYMENTS OF $200EACH MONTH OVER A 20 YEAR PERIODAT 9.4% ANNUAL INTEREST RATE COMPOUNDED 12 TIMES PER YEAR?"6 160: 540: 180: 2007"AMOUNT OF PAYMENT EACH 1/"T7"YEAR";A7*PA(1(1R)(N))R7B230:KNAP:2407\"LOAN AMOUNT ";7KP:240:250:270:BA:BAP:380:14608,ҁ550:"HOW LARGE WILL EACH PAYMENT HAVETO BE IN ORDER TO PAY OFF A LOANOF $75,000 IN 25 YEARS AT 13% ANNUAL INTEREST RATE COMPOUNDED 12 TIMES PER YEAR?"8<܁160:5508T"LOAN AMOUNT ";P8d180:2008~ARP(1(1(1R)N))8230:KNAP:240:2508"PAYMENTS MUST BE ";8KA:2409""EACH 1/"T" YEAR":270:B((A100.5))100:BAP:380:15509,560:"HOW LONG WILL IT TAKE TO PAY OFFA LOAN OF $4200 IF 12 TIMES A YEAR YOU MAKE PAYMENTS OF $185 WITH 12% ANNUAL INTEREST RATE?"96160:5609@"LOAN AMOUNT ";P:1809J"PAYMENT EACH 1/"T"YEAR": A:TY((A)(ARP))((1R)T):NYT:,^230:KNAP:240:250:Jh"TIME REQUIRED"Y" YEARS":jr270:BA:BAP:380:1630;|570:"WHAT PERCENT ANNUAL INTEREST RATE, COMPOUNDED 2 TIMES A YEAR,MUST YOU GET IN ORDER TO EQUAL THE INCOME OF 9% ANNUAL RATE COMPOUNDED 12 TIMES A YEAR?";#160:570;G:"KNOWN INT. RATE(6%=.06)";R2;"HOW MANY TIMES A YEAR IS THE KNOWN INTEREST RATE COMPOUNDED";T2;"HOW MANY TIMES A YEAR IS THE UNKNOWN INTEREST RATE COMPOUNDED";T1;R1(((1R2T2)(T2T1))1)T1<4"IT IS EQUIVILIANT TO A RATE OF "R1"OR"R1100"%" FOR MENU";B$:10<́580:"WHAT TAX-FREE INTEREST RATE IS EQUIVILANT TO A 12% TAXABLE RATEIF YOU ARE IN THE 32 PERCENT INCOME TAX BRACKET?"<ց160:580= "TAXABLE INT. RATE(6%=.06)";R1=<"YOUR TAX BRACKET(27%=.27)";TB:R2R1(1TB)=~:"THAT IS EQUAL TO A TAX-FREE RATEOF"R2"OR"100R2"%":1730 EQUIVILANT TO A 12% TAXABLE RATEIF YOU ARE IN THE 32 PERCENT INCOME TAX BRACKET?"<ց160:580= "TAXABLE INT. RATE )Copyright (c) 1984 By Mark D. Goodwin{Menu0 - To time drive 02 - To time drive 21 - To time drive 13 - To time drive 3dPress the indicated key to time the desired drivePress any other key to exit the programtDrive isn't readysNo diskette in drive Press any key to return to the menu{Drive)*,h??៟y??9?g??|!fs f`???<- 1 . 5 % +?1.5%290123456 7 8 9003123456789013??? ?<-)('0%#qn*BH@Y$ځ0&Z& зH0'+H&0'H'0'H& +0)) 0*)*'O*:+і=344B0 j&2a3Dj&2a*& PH&H'0H&0H',AOJL$,&4H4P$\X&5P\X& L#9 \#94 4O4 =0aDDD0'DZ & C4ৄ54 '3A 94V03$34TTT4XX0H@HH,30 ė OXIXI-3O4 4ca'Ą HHHH_j'DV 2a4CS CS0 ja&2b5֎큌(%94x5*' &@;. 4O4 =0aDDD0'DZ & C4ৄ54 '3A 94V03$34TTT4XX0H@HH,30 ė OXIXI-3O4 4ca'Ą HHHH_j'DV 2a4CS CS0 ja&2b5֎큌(%9& 2940&h:DATABASE MANAGER, W.BONNELL 239 MASON AVE, ROCHESTER, NY, 14626 - COPYRIGHT 7/7/83&o:&w(:&2DV2::"menu"&<"1. dEFINE FILE FIELDS"&F"2. aDD RECORDS"&P"3. vIEW, MODIFY RECORDS"&Z"4. kILL A DATABASE"'d"5. sEARCH FOR FIELD"',n"6. cREATE AN INDEX"'=x"7. rEPORTS'L"8. qUIT"'\"9. fILES"'v"CHOOSE";O$:O(O$)' O0 O(1,"DAVKSCRQF",O$)' O0 50' O20 50' O8 "FILE NAME (7 OR LESS CHARACTERS";F1$(F1$(F1$"00000000",8)(C҈ O1 50,240,910,1300,1630,1690,1960,2210,1610,2530(M܁ 50(T:(q:create file definition(x:(F$F1$"/DEF"(K0:SW0( 380(" IK15 :KI1(,@0,"FIELD"16)"LENGTH(6@32(IK),I;(@ F$(I)) J F$(I)"" NI1:)"T@32(IK)16,"";)<^ L(I): L(I)0 310)EhSW1)Kr)f|"rEVIEW OR cREATE";A$)y A$"R" 420))II1: 290: F$(I)"" 430 : 410): 750))RL0)K0)̀ I1 N)օ IK15 44539:KI:*P(I)RL1*&@0,"FILE "F$;" FIELD REVIEW*P@32(IK),"## ";I;: F$(I);16)L(I)*_RLRLL(I)*e* "record length="16)RL*K0*&"FIELD # TO CORRECT OR ";A$*0I(A$): A$"" 620*: I0 550*D:KI: 310*N IN NI+ X: 440+b:+%l:save on disk+6v SW1 40+H: "O",#1,F$+Y #1,FR,LA,N+g I1 N+ #1,F$(I),L(I),P(I)++ 40+:+:open file and define+О+F$F1$"/DEF"+@0,"FILE NAME ";F$+"I",#1,F$, #1,FR,LA,N, "FIRST INDEX REC="FR,7 "LAST INDEX REC="LA,IL0: I1 N,j #1,F$(I),L(I),P(I):LLL(I),*S(I)E1:ES(I)L(I)1,4,>,H,R "D",#1,F1$"/DAT",L,\ 1,L S$,fLO(1),p,z:,:add records, 720: 850-JLO-JJ1-1110-@ V$"QUIT" JJ1:LOJ:1380-K 930-R:-g:update records-sށ 1510-"enter field# to update";UD$-I(UD$):- I0 1380- IN 1000- (L(I),"."):TT$S$: V$-ZZL(I)(V$).$ ZZ0 V$V$(ZZ," ").?.(TT$,S(I),L(I))V$:T$TT$: 1260.K8 1380.RB:.oL:add or replace records.V:"record"J.`K0.j I1 N.tPS32(IK):ES32(IK)(F$(I))1L(I):SSESL(I):KK((ESPS)32).~ ES480 :KI: 1140/.@PS,F$(I);":";(L(I),"."):@SS,"";: V$/` V$"" V$(S$,S(I),L(I)):@SS,V$: 1240/t V$"QUIT" /ZZL(I)(V$)/ ZZ0 1230/ ZZ0 1240/V$V$(ZZ,32)/V$(V$,L(I))/T$T$V$// S$T$/ #1,J0T$""0  0:0&:which record01( 7200<2 8500M<"record#";J0^F JLO 13400nP J0 400uZ:0d 15100n"enter <-Q#URADPNLS->"0xA$: A$"" 14000 A$"S" 17100 A$(8) J((S$,(S$)5,3)): 13501E A$"P" #DV,"RECORD"J: I1 N:#DV,F$(I)":"(S$,S(I),L(I)): I1l A$(9) J((S$,3)): 13501A$"L"JJ1:1350:A$"N"JJ1:1350:A$"#"1340:A$"U"990:A$"R"1460:A$"A"920:A$"Q"40:A$"D"1480 : 14001 11102  13802) S$(0):1270: 138020:2E:display record2P #1,J2V2g"record#";J2oK02} I1 N2PS32(IK):ES32(IK)(F$(I))1L(I):SSESL(I):KK((ESPS)32)2" ES480 44539::KI: 15603,@PS,"## ";I;: F$(I)":";(S$,S(I),L(I))3"63(@30J:37T:3L^:kill data base3kh"ARE YOU SURE(YES/NO)";A$3r A$"YES" 503|KF13 25603:3:search3720:8503: I1 N3"## ";I;: F$(I)3‹4 ̉"WHICH FIELD SEARCH OR ALL";A$4F(A$)46"ENTER SEARCH STRING";SS$4O SS$"" SS$(0)4^LO(1):4"cURRENT OR fIRST RECORD";A$:4 A$"C" J0 JJJ : JJ14 IIJJ LO4#1,II:@0,"RECORD"II" "4& F0 186050 (S$,S(F),(SS$))SS$ JII: 1510 : 19005$: 18705ND (S$,SS$)0 JII:1510 : 19005pN"Q TO END SEARCH ELSE ENTER"5XA$: A$"" 18805b A$"Q" IILO5l5v@480, "mENU/vIEW/sEARCH";5A$: A$"" 19205O(1,"MVS",A$)6 O1 1920,40,1350,17106:6#:index63720:8506N: I1 N:"## ";I;6ZƇ F$(I)6`Ћ6ډ"WHICH FIELD TO INDEX BY";F: F0 F16"ENTER LENGTH FOR INDEX OR ENTER";LI:LI0 LIL(F)6LO(1)6 I1 LO6#1,I7 IX$(I1)(S$,S(F),LI)(" "(I),3)7"7- 28107@*IX$(LO)IX$(0)7O4 I1 LO7h>J((IX$(I1),3))7yH #1,J:T$S$7R(T$,(T$)2,3)(IX$(I),3)7\ I20 (T$,(T$)5,3)(IX$(I2),3) : (T$,(T$)5,3)(IX$(LO1),3)7f S$T$8p #1,J8z88ILA((IX$(LO1),3)):FR((IX$(0),3)):6408P:8e:printer report8w 720: 8508 24508PG18ʁ 23608Ԁ J1 LO8ޅ J1 #1,FR : #1,((S$,3))8 I1 N9#DV,"%"(TB(I),32)"%";(S$,S(I),L(I));9 I9 #DV9, LXLX19X  LXLP 2430:PGPG1: 2360:LX0:9` $ J9j . 409w 8:HEADER9 B#DV,"REPORT OF FILE "F$" page"PG9 L#DV9 V II1 N:#DV, "%"(TB(II),32)"%";F$(II);9 ` II9 j#DV9 t9 ~:FOOTER: I1 3:#DV::: :TAB:. I1 N:b (F$(I))L(I) TB(I)(F$(I)): TB(I)L(I):x TB(0)TB(0)TB(I): I: LP60((TB(0)80.999)): ΐ: :: : :directory and kill files: (0)"GRANULES FREE": I311; 0,17,I,A$,B$;  J0 3;C C$(A$,J321,12):D$(B$,J321,12);a ( (C$,1)(255) 2740;} 2 (C$,1)(0) 2670;  6>6 @ ADDR&H0E02 &H0E68: A$: ADDR,("&H"A$):?+ JBE,0E,00,34,10,EE,E4,AE,5E,30,1F,4F,34,12,A6,C4,27,2A,A6,C4,E6,45,A0,45,24,02,E6,C4,34,01,AE,42,10,AE,47,6D,45,26,04,32,61,20,29,A6,80,A0,A0,27,04,32,61,20,05,5A,26,F3,35,01,23,18,AE,42,10,AE,47,AF,47,10,AF,42,A6,C4,E6,45,E7,C4,A7,45,EA,45?u TEA,E4,E7,E4,33,45,AE,61,30,1F,AF,61,26,B0,A6,E4,32,63,26,A1,32,62,39?{ ^? h:? r: initialize? |0:1:10000? (&HE02)190 2880? F$(20),L(20),S(20),P(20),IX$(400),TB(20)? 50F,47,10,AF,42,A6,C4,E6,45,E7,C4,A7,45,EA,45?u TEA,E4,E7,E4,33,45,AE,61,30,1F,AF,61,26,B0,A6,E4,32,63,26,A1,32,62,39?{ ^? h:? r: initialize? |0:1:10000? (&HE02)190 2880? F$(20),L(20),S(20),P(20),IX$(400),TB(20)? 50