SELECT0 550 : 5608MVRP:ST$(L," "):15000:(R,PY),ST$:160008` 10000:K$:TR: TR(TR3)30 (R8,PY81)(R81,PY88),,B8j SELECT0 ST$(L," "):8t:CHECK TO SEE IF THEY CHOSE "CANCEL" OR "OK"9+~ CX421 CX471 CY21 CY30 ST$(L," "):9Y CX421 CX471 CY37 CY46 9~(R8,PY81)(R81,PY88),,B9 K$"" 11209 K$(8) 12209RR1: RP RP9(ST$,RP1,1)" ":15000:(R,PY)," ":16000: 1120:ą K$(13) :x΅ K$"0" K$"9" RLP (ST$,RP1,1)K$:15000:(R,PY),K$:16000:RR1: RLP RLP:؁ 1120:':GET A MOUSE EVENT:'SELECT0:'C7((0)9.9H1):C8((1)2.783H2);7'$ (0)0 C810 CD(1)1 (C9H1,C0H2)(C9H116,C0H216),1: 10120:CX1:CY1:;T'. C7C9 C8C0 10100;'8 CD(1)1 (C9H1,C0H2)(C9H116,C0H216),1;'B C7H10 C7H1;'L C8H20 C8H2;'V(C7H1,C8H2)(C7H116,C8H216),1<'` "BM"(C7)","(C8)CURSOR$<'jC9C7:C0C8:CD(1)0('(CD(13)2,12)(CD(13)2,CD(22)1),>:'CD(4)CD(6)8>V' C31 HEIGHT(CD(14))>' CHOICE$(CD(14),C3)"-" (CD(4),C31),(WI(CD(14))2," "):CD(8)(C31)83: C4CD(6) CD(13) 2:(C4,CD(8))::10250>((CD(4),C31),CHOICE$(CD(14),C3)?( ?( 10430?&( (0)0 10480?T((C7((0)9.9H1):C8((1)2.783H2)?q(2 C7C9 C8C0 10270?(< C89 (C7RANGE(CD(14)1) C7RANGE(CD(14))) C78 10480?(FCD(15)((C88)8)?(PCD(17)((C08)8)?(ZCD(16)CD(15)88@(dCD(11)CD(17)88@;(n(C9H1,C0H2)(C9H116,C0H216),1@(x C7CD(6) C7CD(13) C8CD(18) C8CD(22) 10420 :IF C7 IS OUTSIDE, GOTOAD( C9CD(6) C9CD(13) C0CD(18) C0CD(22) CHOICE$(CD(14),CD(15))"-" (CD(6),CD(16))(CD(13),CD(16)7),4:(CD(6),CD(16))(CD(13),CD(16)7),4,: 10430 : 10430Aa( CD(16)CD(11) 10430A( CHOICE$(CD(14),CD(15))"-" (CD(6),CD(11))(CD(13),CD(11)7),4:(CD(6),CD(11))(CD(13),CD(11)7),4,: 10430BM( CHOICE$(CD(14),CD(17))"-" (CD(6),CD(16))(CD(13),CD(16)7),4:(CD(6),CD(16))(CD(13),CD(16)7),4,: 10430B((CD(6),CD(11))(CD(13),CD(11)7),4:(CD(6),CD(11))(CD(13),CD(11)7),4,:(CD(6),CD(16))(CD(13),CD(16)7),4:(CD(6),CD(16))(CD(13),CD(16)7),4,: 10430C( C9CD(6) C9CD(13) C0CD(18) C0CD(22) CHOICE$(CD(14),CD(17))"-" (CD(6),CD(11))(CD(13),CD(11)7),4:(CD(6),CD(11))(CD(13),CD(11)7),4,C( C7H10 C7H1C(ȅ C8H20 C8H2C((C7H1,C8H2)(C7H116,C8H216),1D ( "BM"(C7)","(C8)CURSOR$D$(C9C7:C0C8: 10270DM((C9H1,C0H2)(C9H116,C0H216),1D((CD(6)1,11)(CD(13)1,CD(22)1),2:(CD(6),0)(RANGE(CD(14))1,9),3:(CD(6),0)(RANGE(CD(14))1,9),3,D)(CD(6)1,0)(CD(6)1,9),D) C7H10 C7H1E) C8H20 C8H2E-)"(C7H1,C8H2)(C7H116,C8H216),1ER), "BM"(C7)","(C8)CURSOR$Eb)6C9C7:C0C8E)@C7((0)9.9H1):C8((1)2.783H2)E)J C7CD(6) C7CD(13) C8CD(18) C8CD(22) SELECTNU(CD(14),CD(15))E)TE.:POP UP A WINDOWF . 15000F..(WX(1),WY(1))(WX(2),WY(2)),5FS.(WX(1),WY(1))(WX(2),WY(2)),,BFZ.0F/(WX(1)1,WY(1)1)(WX(2)1,WY(2)1),,BFF/1F/(WX(1)4,WY(1)2)(WX(2)4,WY(2)2),,BF/&(WX(1)5,WY(1)2)(WX(1)5,WY(2)2),G/0(WX(2)5,WY(1)2)(WX(2)5,WY(2)2),G/: 16000G%/DGD2:ERASE THE CURRENT WINDOWGy2ȁ15000:(WX(1),WY(1))(WX(2),WY(2)),5:16000:G6:CLEAR THE SCREEN AND REDRAW THE MENUBARG6:17000:CD(1)1:C91:C01:G::ERASE THE CURSORH :(C9H1,C0H2)(C9H116,C0H216),1:H%>:REDRAW THE CURSORHN>(C9H1,C0H2)(C9H116,C0H216),1Hr>"BM"(C9)","(C0)CURSOR$Hx>HBg:DRAW MENUBARHBh(0,10)(639,10),HBr MENU$(1)"@@" "BM12,4"RAINBOW$ : (2,0),MENU$(1)HB|C22:C12IBC1C1(MENU$(C21))2IB C2CD(7) I1B(C1,0),MENU$(C2)I=BC2C21IJB 170301Hr>"BM"(C9)","(C0)CURSOR$Hx>HBg:DRAW MENUBARHBh(0,10)(639,10),HBr MENU$(1)"@@" "BM12,4"RAINBOW$ : (2,0),MENU$(1)HB|C22:C12IBC1C1(MENU$#K&$: COPYRIGHT 1989 FALSOFT,INC&T &HF015,&H21 :MAKE SOLID HPRINT CHARACTERS&a65497,0&q 0,63:1,0&x(1&2 1,512: 2,2256:3,512:4,512:5,4096&<1&F3&P&HFF9A,63 :SET BORDER TO WHITE&Z 2096'd @@,About The Desktop,Get Info,Key Caps,Music,END'7n File,New Game,-,Quit,END'\x Edit,Undo,-,Cut,Copy,Paste,END' Options,Foreground,Background,END' END' CD(22),MENU$(10),CHOICE$(10,20),NU(10,20),HEIGHT(20),WI(10),RANGE(10)(ZARROW$"C0D13M+3,-3M+1,+1DM+1,+1D2R3U2M-1,-1U2M-1,+1U2R4M-9,-9DC1D10M+1,-1U8M+1,+1D6RDRD2RD2RULU2LU2LU5M+1,+1D3RU2M+1,+1DR"(RAINBOW$"D3R1U3M+1,-1URDUM+1,-1R3M+1,-1R7M+1,+1R3M+1,+1DRUDM+1,+1RD3LU3D3BL3U2LD2U2M-1,-1LURLM-1,-1L7M-1,+1LDRLM-1,+1LD2RU2D2BR3U2RD2U2M+1,-1R3M+1,+1D2RU2")CURSOR$ARROW$:H11:H21)$CD(1)1)2CD(18)16)FCD(7)1:CD(0)1)Y܍ MENU$(CD(7)))y MENU$(CD(7))"END" 350)HEIGHT(CD(7))1)WI(CD(7))0) CHOICE$(CD(7),HEIGHT(CD(7))))CD(5)(CHOICE$(CD(7),HEIGHT(CD(7))))* CHOICE$(CD(7),HEIGHT(CD(7)))"END" 330*C" CD(5)WI(CD(7)) WI(CD(7))CD(5)*, CHOICE$(CD(7),HEIGHT(CD(7)))"-" NU(CD(7),HEIGHT(CD(7)))CD(0):CD(0)CD(0)1*6HEIGHT(CD(7))HEIGHT(CD(7))1*@ 260*JCD(7)CD(7)1*T 220+^CD(7)CD(7)1:RANGE(0)8+h C11 CD(7)+/rHEIGHT(C1)HEIGHT(C1)1+Q|CD(19)CD(19)(MENU$(C1))2+RANGE(C1)RANGE(C11)((MENU$(C1))2)8++RANGE(C1)640+ CD(19)80 "Menubar Options Too Long":+ C11 CD(7)+ C21 HEIGHT(C1),U… CHOICE$(C1,C2)"-" CHOICE$(C1,C2)" "CHOICE$(C1,C2)((WI(C1)(CHOICE$(C1,C2)))1,32),^̋ C2,g֋ C1, 17000 :DRAW MENUBAR,:'' END MENU STEUP,:'' YOUR PROGRAM STARTS HERE, GR(2,2)-TURN$"X": T0 2: T20 2:GR(T,T2)0: T2,T-0(200,75)(440,75),:(200,115)(440,115),-`(280,35)(280,155),:(360,35)(360,155),-m& 10000-0 SELECT 930,700,790,770,900,990,910,660,660,660,1000,1000-: CX200 CX440 CY35 CY155 550. D CX280 CX360 CY75 CY115 550.4NXI((CX200)80):YI((CY35)40).cX GR(XI,YI) 55,1: 550 : GR(XI,YI)1.bAXI80200:BYI4035:MOVE1:LXXI:LYYI.l 15000/ v TURN$"X" (A10,B5)(A70,B35),:(A10,B35)(A70,B5),:TURN$"O" : (A40,B20),30:TURN$"X"/ 16000/# 550/WWX(1)208:WY(1)70:WX(2)430:WY(2)120: 12000/ 15000: 55,1:(29,11),"Sorry, not implemented":(31,12),"Click to continue": 16000/ 10000: CX1 CY1 SELECT0 680/ 13000: 56003WX(1)170:WY(1)70:WX(2)470:WY(2)130: 12000: 150000c(23,10),"The CoCo Desktop - A programming"0(23,11),"environment which supports Pop-Up"0(23,12),"Windows and Pull-Down Menus.":(23,14),"Available Memory :":(42,14),:(49,14),"Bytes"1䁦 1600017 10000: CX1 CY1 SELECT0 7501K 13000: 560165496,0:"T3L2FL8GB-AGL4O4CCL8CDO3AB-L4GGL8GB-AGFO4CO3GAL4F":65497,01 5501WX(1)70:WY(1)60:WX(2)310:WY(2)112: 12000: 150002 C65 90:(11C65,9),(C):2)* C97 122:(11C97,10),(C):2O4 C33 58:(11C33,11),(C):2u> C59 64:(11C59,12),(C):2H C91 96:(17C91,12),(C):2R C123 126:(23C123,12),(C):2\ 160003f 10000: CX1 CY1 SELECT0 8703p 13000: 5603z 5503U 14000: 520 :CLEAR SCREEN AND REDRAW MENUBAR3 MOVE1 GR(LX,LY)0:MOVE0: TURN$"O" TURN$"X":(A10,B5)(A70,B35),:(A10,B35)(A70,B5), : TURN$"O":(A40,B20),30,03 5504 WX(1)228:WY(1)30:WX(2)410:WY(2)90: 120004< 15000 :CLEAR CURSOR4(32,5),"The CoCo Desktop":(33,7),"By Tony Zamora":(33,9),"Copyright 1988"4 16000 :DRAW CURSOR4ʁ 10000: CX1 CY1 SELECT0 9704ԁ 13000: 5604ޒ 65496,0:::5GTEMPSELECT:WX(1)144:WY(1)16:WX(2)496:WY(2)64: 12000: 150005 TEMP11 (20,3),"Enter the new foreground color." : (20,3),"Enter the new background color."5(53,3),"Cancel":(55,5),"OK"6~(421,25),8,,1,.5,.75:(421,21)(471,21),:(421,34)(471,34),:(421,30),8,,1,.25,.5:(471,25),8,,1,.75,0:(471,30),8,,1,0,.25:(413,26)(413,29),:(479,26)(479,29),7,(421,41),8,,1,.5,.75:(421,37)(471,37),:(421,50)(471,50),:(421,46),8,,1,.25,.5:(471,41),8,,1,.75,0:(471,46),8,,1,0,.25:(413,42)(413,45),:(479,42)(479,45),7P(157,37)(352,50),,B: 160007}$P20:PY5:L23: 1110 :INPUT THE COLOR7. ST$(L," ") ST(ST$) : 110078 ST63 55,1: 10607B TEMP11 1,ST : 0,ST:&HFF9A,ST8L 13000:&$: COPYRIGHT 1989 FALSOFT,INC&0 500:&W "-- READ/CALCULATE COMPARISON --&r "O",#1,"RECORDS/DAT"&A$ (150,"X"): ID 1 20& #1,A$: ID:& "I",#1,"RECORDS/DAT"& 0& ID 1 20&( #1,IN$&2 ID'< "READING TOOK ";'F 0'.Z ID 1 20'QdZ Z 1: X X 2:Y Z X'ugW 3 Y:V W Z:U 365 V'jT (UVWXYZ)24.3'k DD 1 4'lS S1: DD'n ID'x "PROGRAM TOOK ";':0&( #1,IN$&2 ID'< ,&$: COPYRIGHT 1989 FALSOFT,INC&0d 500:&Xi "----- CREATE THE DATABASE -----&in I 1 12&}sA$ ((I),1)&x I 9 A$ "1"A$ : A$ "0" A$&F1$ "M"A$ "D01/CHK"&F2$ "M"A$ "D15/CHK"& "CREATE ";F1$;" AND ";F2$' "O",#1,F1$: "O",#2,F2$:'& I','S: "DATABASE CREATED LET'S CHECK"'v @256,"ENTER THE MONTH 01-12"'ȉ MM$'҇ "ENTER THE DAY 01 TO 31"'܉ DD$' DD$ "15" FD$"15" : FD$"01"'SG$ "M"MM$"D"FD$"/CHK"'( "I",#1,SG$(+ "FILE "SG$" IS THERE": 190S: "DATABASE CREATED LET'S CHECK"'v @256,"ENTER THE MONTH 01-12"'ȉ MM$'҇ "ENTER THE DAY 01 TO 31"'܉ DD$' DD$ "15" FD$"15" : FD$"01"'SG$ "M"MM$"D"FD$"/CHK"'( "2NR4D4R4BR4NU4R4"/B"BM208,66NR10U12R10BR6NR8D6NR8D6R8BG4D4R6U4"/m"BM138,160L20D10M-4,-10BF10BR6R8G8R8"/"BM36,172C1"A$(0)/"BM36,138"A$(1)/"BM84,138"A$(2)/"BM132,138"A$(3)/"BM36,103"A$(4)/"BM84,103"A$(5)0 "BM132,103"A$(6)0 "BM36,68"A$(7)05"BM84,68"A$(8)0K"BM132,68"A$(9)0a"BM76,172R4U2L4"0o41:4300,1:"BM230,30C0"A$(0):0,40F$"":S$"":AN$"":D0:E0:GS0:R0:P11005400X$(12)2350N$(P)(48X)1 "BM230,30C0"1QP 111B0,3:QQ(N$(Q))48:"C0" A$(QQ):Q:311K431XR02951w"P:PP1:P10 GS1:5401'7001,I1P: (N$(I))58 N$(I)"."11 (N$(I))59 N$(I)"-"16F$F$N$(I):I1; R5 4001@7002ED0:E0:P1102J43:0,32O63520TX$(12)2352aYX$"U":41:0,1:"BM230,30C0"A$(0):3252t^N$(P)(48X)2cX$(13)3852h"BM230,30C0"2mQP 112r0,3:QQ(N$(Q))48:"C0" A$(QQ):Q:312w432|P341:PP1:I1P: (N$(I))58 N$(I)"."36 (N$(I))59 N$(I)"-"3IS$S$N$(I):I3_F(F$):S(S$)3x R1 ANFS:4353 R2 ANFS:4353 R3 ANFS:4353 R4 S0 7053 R4 ANFS3 R5 AN(F)34341AN$(AN): AN0 P(AN$)1:AN$(AN$,P):: P(AN$)4@ P107054P"BM230,30"4`ǀQP 1140,3:QQ((AN$,Q,1))48: QQ2QQ104х QQ3QQ114օQQ217054ۅQQ57054"C0"A$(QQ):Q:314I110:N$(I)"":5F$AN$:S$"":F0:S05X$:X$""4955.X$(12)2355>X$"U"2355UX$"M" R1:3205lX$"P" R2:3205X$"X" R3:3205 X$"D" R4:3205X$"Z" R5:40054955X$:X$""5405!P15855&X$"M" R1:PP1:6+X$"P" R2:PP1:6(0X$"X" R3:PP1:6A5X$"D" R4:PP1:6Z:X$"Z" R5:PP1:6g?E15856DX$"-" P1 X11:E1:6IX$(12)6N GS15406SD1 X$"."5406XX$"." X10:D1:6]XX(X$):XXXX486bXX05407gXX95407lXXX7Yq0,1:(A(X),B(X))(A(X)40,B(X)30),,B:"P36":(A(X),B(X)),,B:0,37_v7t{X$:X$""6357X$(12)7X$"U"7E16607X$"-" P1 X11:E1:7D1 X$"."5407X$"." X10:D1:8X(X$):XX488X$(13)8X06358+X96358u0,1:(A(X),B(X))(A(X)40,B(X)30),,B:"P32":(A(X),B(X)),,B:0,38{80,1:"BM24,30C0"S$(R):9-0,1:"BM56,30C0U12R12D12NL12BR6BU12M+6,+12M+6,-12BR6NR12D6NR12D6R12BR6U12R12D6L12R6F6BR6U6NR12U6R12BR6D12R12BR6U12R12D12NL12BR6NU12R6NU6R6U12"9BX$:X$""7109U˅X$(12)2359eЅX$"U"2359oՁ7100,38{80,1:"BM24,30C0"S$(R):9-0,1:"BM56,30C0U12R12D12NL12BR6BU12M+6,+12M+6,-12BR6NR12D6NR12D6R12BR6U12R12D6L12R6F6BR6U6NR12U6&$: COPYRIGHT 1989 FALSOFT,INC&:' WILL IT FLOAT?&E' BY &X' JAMES ABELL&iPI3.1415927'0:" WILL IT FLOAT"::" FIRST,FIND THE VOLUMN.":" PICK THE SHAPE CLOSEST TO YOUR OBJECT.":"(1) CUBE (OR RECTANGLE)":"(2) CYLINDER":"(3) SPHERE":"(4) CONE":"(5) ELLIPTICAL TUBE"'V"(6) TRIANGULAR(HALF OF A CUBE)"'uA: A 8,10,12,14,16,18':"CUBE":"ENTER LENGTH":L:"ENTER WIDTH":W:"ENTER HEIGHT":H' ALW:VAH:20( :"CYLINDER":"ENTER DIAMETER":D:"ENTER LENGTH":L(* RD2:A(R2)PI:VAL:20(O :"SPHERE":"ENTER DIAMETER":D(q RD2:V((43)PI)(R3):20(:"CONE":"ENTER DIAMETER":D:"ENTER LENGTH":L(RD2:V((R2)PIL)3:20)::"ELLIPTICAL TUBE":"ENTER DIAMETER LONGEST SIDE":DA:"ENTER DIAMETER SHORTEST SIDE":DB:"ENTER LENGTH":L)dRADA2:RBDB2:ARARBPI:VAL:20):"TRIANGULAR(HALF OF CUBE)":"ENTER LENGTH":L:"ENTER WIDTH":W:"ENTER HIGHT":H)ALW:VAH:20*Q:"ENTER OBJECT WEIGHT IN POUNDS": WT:WW62.5:"WERE THE DIMENSIONS IN (1) FEET OR (2) INCHES?":A:A124 : A2 21*"INCHES":WI62.51728:WZWIV: WTWZ 22 : WTWZ 23*"IT WILL SINK!":P(WZWT)100:P100P:" IT IS"P"% TOO HEAVY":27+!"IT WILL FLOAT!":P(WTWZ)100:P100P:" IT IS"P"% BOUYANT": 27+Z"FEET":WI62.5:WZWIV: WTWZ 25 : WTWZ 26+"IT WILL SINK!":P(WZWT)100:P100P:"IT IS"P"% TOO HEAVY":27+"IT WILL FLOAT!":P(WTWZ)100:P100P:"IT IS"P"% BOUYANT":27,:" PRESS ENTER TO RETURN...":A$:5YANT": 27+Z"FEET":WI62.5:WZWIV: WTWZ 25 : WTWZ 26+"IT WILL SINK!":P(WZWT)100:P100P:"IT IS"P"% TOO HEAVY":27+"IT WILL FLOAT!":P(WTWZ)100:P100P:"IT IS"P"% BOUYANT":27,:" PRESS ENTER Tp&"***************************&C* CO CO Q-LATOR *&d* KEYBOARD CALCULATOR *&* BY FRED B.SCERBO *&* COPYRIGHT (C) 1988 *&* 6O HARDING AVE *&* NORTH ADAMS,MA 01247 *' ***************************' 2000'' 0:(64,188);'HI1 256 : A:(A128);:'Y(32,188);'@390," KEYBOARD CALCULATOR ";:@422," BY FRED B. SCERBO ";:@454," COPYRIGHT (C) 1988 ";(030,28,26,30,28,26,37,44,44,44,45,32,32,100,110,96,96,101,108,108,106,110,109,108,106,110,108,109,101,108,108,109(#26,,16,26,,26,37,32,,,37,,32,,106,96,,101,,96,106,104,101,96,104,106,96,101,101,96,,101((27,19,26,27,19,26,37,32,,,37,,32,16,106,96,,101,,96,106,96,101,,96,106,96,101,101,96,96,101)W-19,19,18,19,19,18,37,32,,,37,68,76,64,106,96,,101,108,108,106,96,101,,96,106,96,101,101,108,109,108)226,,24,26,,26,37,32,35,32,37,,32,,106,96,,101,,96,106,96,101,,96,106,96,101,101,96,100,106*726,,18,26,,26,37,32,36,43,37,,32,,106,96,97,101,96,96,106,96,101,,96,106,96,101,101,96,,109*<28,28,24,28,28,24,36,44,44,44,47,32,32,100,108,108,108,100,96,96,104,96,108,104,96,108,108,108,100,104,96,100*A60,60,60,60,60,60,60,60,60,,36,40,,60,60,60,60,60,60,60,60,60,60,60,60,60,60,60,60,60,60,60+FX$:X$(13)70+)K S$(5),A$(11),A(9),B(9),N$(11)+bPI011:A$(I)::I15:S$(I)::I09:A(I),B(I):+U U12L12D12NR12BL6,BL6U12NG2D12BL10,L12U6R12U6L12BD12BL6,NL12U6NL12U6L12BD12BL6,U12D6L12NU6BD6BL6,NL12U6L12U6NR12BD12BL6,Z NU6L12U6NR12U6NR12D12BL6,U12L12D2BD10BL6,U12L12D6NR12D6NR12BL6,NL12U6NL12U6L12D6BD6BL6,BL6NL4U2L4D2BL8,BU6L12BD6BL6,BU6R12,BU6R6NU6ND6R6,E6NH6NE6F6,BU6R6NR8BU4NR2BD8R2,"BU10M+4,+10U10R12",_ 10,153,10,118,58,118,106,118,10,83,58,83,106,83,10,48,58,48,106,48-d0,1:1:1,1:0,4:0-i(10,8)(244,42),,BF--nI023048-=sY012035-cx(12I,50Y)(48I,76Y),,B:Y,I-}(156,155)(242,181),,BF-I15823048:Y5412635-(0I,0Y),1,1-Y,I-(136,175),1,1.5"BM160,172C0NR8U6NR8U6R8BR4ND12F12U12BR4R4ND12R4BR4NR8D6NR8D6R8BR4U12R8D6L8R2F6BR6BU4NR10BU4R10"."BM160,140E8NF8NH8NE8BF10BR4BU6F4NE4NF4NG4BE10BR12R8NR10BU4NR2BD8R2BR10BD2R8D8L8R2U8"."BM168,96NU10ND10NL10R10BD4BR4R8D4L8U4D8BE12BR14R18BR2BD4ND8F4E4D8"/"BM160,66NR10U12R10BR6D12R8BG4BL&:ASCSERCH.BAS&8:*****************************&\:** ASCII FILE SEARCH **&:** VERSION 2.0 APR/88 **&:** BY: STEPHEN MILLER **&:** (C) 1989 FALSOFT,INC **&:***************************** '/ 20,&H7F00:5000:Z$(20)::6)"ASCII PROGRAM SEARCH":D$'| @64,"PRINTER (Y/N) ? ";:D$:D$""12:D$"Y""YES":D2:"NO":D0' :" FILENAME.EXT OF 'ASC' PROGRAM: ";N$:N$""T112:N$N$((&H7F00T))::@161,N$:16(AA1:(N$,A,1)"."14:N1$(N$,A1):N2$(N$,3)(o(N1$)8N1$N1$" ":15:N$N1$"."N2$:T112:&H7F00T,((N$,T,1)):(@224,"";:"ENTER TARGET LETTERS (WORDS) >";T$:L(T$):L116)@320,"DO YOU WANT 'PAUSE' (Y/N) ? ";:P$:P$""17:P$"Y""YES":"NO")cD$"Y"#D,"ASCII FILESEARCH":#D,"SEARCHING FOR ";(34)T$(34):#D,"FILENAME:- "N$)r"I",#1,N$)#1,A$:NTNT1::A$*,T1(A$):(A$,T,L)T$225,2:25:26:TNTN1:(Z$(W))200WW1:TN1000"THERE ARE FAR TOO MANY OCCURANCEOF "(34)T$;(34)" TO CONTINUE.":23*@:(1)23:20*#1:"<>":#D:#D,"YOUR PROGRAM USES"NT1"LINES":#D,"THERE WERE"TN"OCCURANCES":#D,"IN LINES ";:T0W:T1" TO LIST MORE...":44539::#D,Z$(T):+c"OF "(34)T$(34):"IN YOUR "N$" PROGRAM":" IST AGAIN OR UN";:44539:N$((135)):N$"L"23:+R16:Y$(A$,R,1):Y$" " Z$(W)Z$(W)","::Z$(W)Z$(W)Y$::,P$"Y"1024(T1),((T$,1)):V150::""1024(T1),(((T$,1))64):V150::""26,:end" IST AGAIN OR UN";:44539:N$((135)):N$"L"23:+R16:Y$(A$,R,1):Y$" " Z$(W)Z$(W)","::Z$(W)Z$(W)Y$::,P$"Y"1024(T1),((T$,1)):V150::""1024(T1),(((T$,1))64)&$: COPYRIGHT 1989 FALSOFT,INC&6d65497,0:3,1&An:1,1&Tx(128,96),15,8&fA(255):XA&tY99Y0&A52XX1.3&A52A96XX.9&A96A114XX.5&A114A143XX&A143A192XX.5&ȅA192A220XX.9'҅A220XX1.3'!YY1:(X,Y)'8(X1,Y1)8130'O(X1,Y1)8130'f(X1,Y1)8130'}(X1,Y1)8130'(X,Y)'(X,3)8300'"Y99150:Y0:130',(128,96),8:280A143A192XX.5&ȅA192A220XX.9'5&$: COPYRIGHT 1989 FALSOFT,INC&b :PROGRAM TO CALCULATE ASCII GRAPHICS FOR DATA LINES&s:GREG BAUER&:6411 SO. ALDER&(:TACOMA,WA. 98409&2200&<'HF@42,"COLOR NUMBERS";:@101,"0=GREEN 1=YELLOW";:@165,"2=BLUE 3=RED";:@229,"4=BUFF 5=CYAN";:@293,"6=MAGENTA 7=ORANGE";'P::" ENTER (0-7)";C$:C(C$):C0 C7 80'Z'd@41,"PATTERN NUMBERS";'n@100,(192)"=0";:@107,(193)"=1";:@114,(194)"=2";:@121,(195)"=3";(Gx@164,(196)"=4";:@171,(197)"=5";:@178,(198)"=6";:@185,(199)"=7";(@228,(200)"=8";:@235,(201)"=9";:@242,(202)"=10";:@249,(203)"=11";(@292,(204)"=12";:@299,(205)"=13";:@306,(206)"=14";:@313,(207)"=15";)::" ENTER (0-15)";P$:P(P$))0P0 P15150)W:A(16C)P:@265,"ASCII#-128=";A)" AGAIN";A$:A$"Y"60:A$"N"190:180):)Ȟ0:I132:(128);:)ҀI132:(204);:)܀I196: A:(128A);:*I132:(195);:*M@266,"PRESENTED BY";:@363,"GREG BAUER";:@455,"COPYRIGHT (C) 1988";*_X14000::*0,,46,45,,46,44,,46,44,,45,40,36,46,,,,46,44,,46,45,,42,,,46,44,,,0*0,,43,39,,44,45,,42,,,37,,,42,,,,42,,,43,39,,42,,,42,,,,0+40,,42,37,,35,39,,43,35,,39,34,33,43,,,,43,35,,42,37,,43,35,,43,35,,34,0,"COPYRIGHT (C) 1988";*_X14000::*0,,46,45,,46,44,,46,44,,45,40,36,46,,,,46,44,,46,45,,42,,,46,44,,,0*0,,43,39,,44,45,,42,,,37,,,42,,,,42,,,43,39,,42,,,42,,,,0+40,,42,37,,35,39,,42U2LD2L2D4BM140,182U24R20D2R2D12L2D2L14D8NL4BU14U4R10D4L10BR24BD14U24R20D6L14D4R14D4L14D4R14D6L20" 55 PAINT(92,180),1,1:PAINT(110,180),1,1:PAINT(142,180),1,1:PAINT(172,180),1,1:PCOPY3TO1:PCOPY4TO2 56 FORI=0TO24STEP24:CIRCLE(216+I,176),12,2,.85,.85,.7:CIRCLE(216+I,176),10,2,.85:CIRCLE(216+I,176),8,2,.85:CIRCLE(216+I,164),10,2,.85:CIRCLE(216+I,164),8,2,.85:NEXTI 58 PCOPY3TO1:PCOPY4TO2 59 FORII=1TO1000 60 IFINKEY$=""THEN61ELSE600 61 NEXTII 600 REM START MENU TEXT 610 DIM A$(40) 620 READ MN$ 630 FORP=1TO34:READ 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 1989 FALSOFT,INC&:5 COLUMN DIRECTORY LISTER FOR THE COCO 3 (C)1988 FROM BILL BERNICO SOFTWARE &2000:X$(75)&80:1,0:3,1:::"OUTPUT TO SCREEN OR PRINTER (S/P) ";Y$'Y$"S"D0:Y$"P"D2:3'e:X311:0,17,X,A$,B$:C$A$(B$,127):Q125532:(C$,Q,1)(0)7:(C$,Q,1)(255)8'X$(IX3)(C$,Q,11):II1'Q,X'L04:M0I3:(X$(M))0 #D," ";X$(M);" ";:9( M:#D:#D:#D," FREE GRANULES =";(0)::" ANOTHER DISK (Y/N)";(9 I$:I$"Y"3:I$"N"32::10(C$,Q,1)(0)7:(C$,Q,1)(255)8'X$(IX3)(C$,Q,11):II1'Q,X'L04:M0I3:(X$(M))0 #D," ";X$(M);" ";:9( M:#D:#D:#D," FREE GRANULES =";(0)::" A) COCOART"," (81) MIRORPIX" 1030 DATA " (82) P178&GL"," (82) WINDCHIL"," (83) FOOTBALL"," (95) CCBLITZ"," (99) MENUGEN"," (99) COCODRAW","(103) 3DLETTER","(107) READPROG","(118) ANIMATE","(124) PICTBOOK" 9999 DATA END ," (78) FUNFACE"," (79) MARTIAN"," (80<&$: COPYRIGHT 1989 FALSOFT,INC&=:BLINK. by K.R.Hill&:Draws a blinking blue eye. Type CMP if a CM-8 monitor is in use.& 8& 3,5&&( 3,1&2&< 1,1&F(128,191),156,8,1,.60,.91&P(128,191),158,8,1,.60,.91'Z(128,0),160,8,1,.10,.40'.d(128,0),162,8,1,.10,.40'Dn(128,96),74,7,.8'Zx(128,96),30,7,.8'm(128,150),7,7'{ N1 4' A,B' A B' N' 1,5,2,6,3,7,4,8''(128,36),6,8' 3,5'ܿ 1,1' T1 2000: T' 3,1( 1,1((128,36),6,8(* T1 400: T(5 210(;"4,7,.8'Zx(128,96),30,7,.8'm(128,150),7,7'{ N1 4' A,B' A B' N' 1,5,2,6,3,7,4,8''(128,36),6,8' 3,5'ܿ 1,1' T1 2000: T' 3,1(R$CHR$(159)R$CHR$(149)CHR$(154)R$CHR$(165)CHR$(170)R$R$CHR$(191)R$R$CHR$(191)CHR$(213)CHR$(218)CHR$(208)CHR$(223)R$CHR$(229); 14 PRINTCHR$(234)R$CHR$(236)CHR$(133)R$CHR$(143)R$CHR$(138)R$CHR$(255)R$R$R$CHR$(159)R$CHR$(149)CHR$(154)R$CHR$(165)CHR$(170)R$R$CHR$(191)R$R$CHR$(191)CHR$(213)CHR$(218)CHR$(208)CHR$(223)R$CHR$(229); 15 PRINTCHR$(234)R$R$R$R$CHR$(143)R$R$R$CHR$(255)CHR$(240)CHR$(245)CHR$(250)CHR$(159)R$CHR$(149)CHR$(154)R$CHR$(165)CHR$(170)R$R$CHR$(191)R$R$CHR$(176)CHR$(213)CHR$(218)R$CHR$(223)R$CHR$(229); 16 PRINTCHR$(234)R$CHR$(239)R$R$CHR$(143)R$R$R$CHR$(255)CHR$(252)CHR$(253)CHR$(250)CHR$(159)CHR$(156)CHR$(157)CHR$(154)R$CHR$(165)CHR$(170)R$R$CHR$(188)CHR$(188)CHR$(188)CHR$(191)CHR$(213)CHR$(218)R$CHR$(223)R$CHR$(229); 17 PRINTCHR$(238)CHR$(236)CHR$(239)CHR$(224)R$CHR$(143)R$R$R$CHR$(255)R$R$R$CHR$(159)R$CHR$(149)CHR$(154)R$CHR$(165)CHR$(170)R$R$CHR$(191)R$R$CHR$(191)CHR$(213)CHR$(218)R$CHR$(223)R$CHR$(229); 18 PRINTCHR$(234)R$R$CHR$(224)R$CHR$(143)R$CHR$(105)R$CHR$(255)R$R$R$CHR$(159)R$CHR$(149)CHR$(154)R$CHR$(165)CHR$(170)R$R$CHR$(191)R$R$CHR$(191)CHR$(213)CHR$(218)R$CHR$(223)R$CHR$(229); 19 PRINTCHR$(234)R$R$R$R$CHR$(143)R$CHR$(110)R$CHR$(255)R$R$R$CHR$(159)R$CHR$(149)CHR$(154)R$CHR$(165)CHR$(170)CHR$(161)CHR$(162)CHR$(191)R$R$CHR$(191)CHR$(213)CHR$(218)R$CHR$(223)R$CHR$(229); 20 PRINTCHR$(234)R$R$R$R$CHR$(143)R$CHR$(99)R$CHR$(255)R$R$R$CHR$(159)R$CHR$(149)CHR$(154)R$CHR$(165)CHR$(170)CHR$(165)CHR$(170)CHR$(191)R$R$CHR$(191)CHR$(213)CHR$(218)R$CHR$(223)R$CHR$(229); 21 PRINTCHR$(234)R$R$R$R$CHR$(14&$: COPYRIGHT 1989 FALSOFT,INC&F :CoColeid by Andy Wolstromer&[65497,0:999&b2&k(0,0&x2P4(1)&dR(80):AN(0)P4:C(15):SZ(5)&nOX((AN)R):OY((AN)R)&xX160OX:Y96OY:500&X160OX:Y96OY:500'X160OX:Y96OY:500'3X160OX:Y96OY:500'NX160OY:Y96OX:500'iX160OY:Y96OX:500'X160OY:Y96OX:500'X160OY:Y96OX:500'ȁ100'(15),(63)'C:(XSZ,YSZ)(XSZ,YSZ),,B'':65496,0:500'HR$(195)CHR$(195)CHR$(194)CHR$(195)CHR$(195)CHR$(195)R$CHR$(197)CHR$(202)CHR$(197)CHR$(202)CHR$(197)CHR$(202)CHR$(192)CHR$(207); 24 PRINTCHR$(192)CHR$(207)CHR$(192)CHR$(200)CHR$(207)R$CHR$(196)CHR$(192)CHR$(207)R$CHR$(200)CHR$(197)CHR$(203)CHR$(194)CHR$(197)CHR$(202)CHR$(197)CHR$(197)CHR$(202)CHR$(202)CHR$(207)CHR$(192)CHR$(196)R$; 25 PRINTCHR$(197)CHR$(206)CHR$(204)CHR$(200)CHR$(197)CHR$(206)CHR$(205)CHR$(206)R$CHR$(207)CHR$(204)R$CHR$(204)CHR$(204)CHR$(207)R$CHR$(207)CHR$(204)R$CHR$(197)CHR$(202)CHR$(203)CHR$(197)CHR$(202); 26 PRINTR$CHR$(197)CHR$(202)R$CHR$(204)CHR$(204)CHR$(207)R$CHR$(197)CHR$(202)CHR$(192)R$CHR$(197)CHR$(202)CHR$(197)CHR$(202)R$CHR$(207)R$CHR$(202)CHR$(207)R$CHR$(207)R$; 27 PRINTCHR$(207)R$CHR$(202)CHR$(197)CHR$(202)CHR$(197)CHR$(199)CHR$(202)R$CHR$(197)CHR$(202)R$CHR$(207)R$CHR$(207)R$CHR$(199)CHR$(203)CHR$(192)R$CHR$(199)CHR$(203)CHR$(197)CHR$(203); 28 PRINTCHR$(193)CHR$(207)CHR$(195)CHR$(202)CHR$(207)CHR$(195)CHR$(207)CHR$(193)CHR$(207)CHR$(195)CHR$(202)CHR$(199)CHR$(203)CHR$(192)CHR$(197)CHR$(203)CHR$(192)CHR$(199)CHR$(203)CHR$(192)CHR$(207)CHR$(195)CHR$(207); 29 FORI=1TO1000:IFINKEY$=""THENNEXTI 30 PMODE2,1:PCLS1:SCREEN1,1:PMODE1:PCLS0:SCREEN1,1:POKE65314,248 31 PMODE2,3:PCLS1:PMODE1,3 32 DRAW"BM0,100C1U20R45U4R156D4R45D20L45D4L156U4L45" 33 LINE(50,80)-(78,100),PSET,BF:LINE(194,80)-(166,100),PSET,BF:LINE(102,80)-(142,100),PSET,BF:LINE(86,84)-(94,96),PSET,BF:LINE(150,84)-(158,96),PSET,BF 34 PCOPY3TO1:PCOPY4TO2 35 PMODE2,3:PCLS1:PMODE1,3 36 DRAW"BM3,120C1U5LU5LU5R45U4NR166M+10,-6R146M+10,+6D4R45D5LD5LD5L45D4L160U4L45BM0,104M+50,-30R156M+50,+30M-50,-30BG4M+28,+16L201M+28,-16R144BD28L144M+2,+12R140M+2,-12" 37 PAINT(128,116),1,1:DRAW"BL28BDC4M-2,+12L2M+2,-12L16D12NR14L2U12BL40D12L2U12L16M+2,+12NR14L2M-2,-12" 38 PAINT(128,90),3,1:DRAW"BU20C1 RITEREAD"," (91) TIMER"," (92) CREATE"," (92) ADDRECRD","(105) DESKTOP","(130) SLOTCORE"/b. ENDBLINK"," (79) COCOLEID"," (79) ASCICALC"," (80) 5-COLDIR"," (80) ASCSERCH"," (81) FRACTAL"," (82) WILFLOAT"/X " (84) QLATOR"," (91) SEPARATE"," (91)XREF","(182) COMMANDO"0. END) FILESRCH"/ "(102) LOADER","(103) CADPRINT","(108) RESTORE","(117) ROBOCISE","(135) WHO AM I"/ "(146) TIN EAR","(147) KOLAROLA","(150) SUBTRACT","(162) SUPERCLS","(166) SOUND 2"0$ "(167) SOUNDGEN","(172) & "THE YUPPIE PUPPY"&Q"STEVE BLYN,COMPUTER ISLAND,STATEN ISLAND,NY,1989"&\ 1000&q(:AA$(32,191)&2@8,"PET QUESTIONS";&<@32,AA$;&F@64,"WHAT IS YOUR FIRST NAME ?": A$&P 210:"ARE YOU A BOY OR A GIRL?";: Q$'.Z Q$"BOY" R$"HIS" : Q$"GIRL" R$"HER" : 80'hd 210:"WHAT KIND OF PET DO YOU HAVE?":"MY ";: B$'n 210:"WHAT IS YOUR PET'S NAME?": C$'x 210:"IS "C$" A BOY OR A GIRL?":"A ";: D$' D$"BOY" X$"HE":Y$"HIS"( D$"GIRL" X$"SHE":Y$"HER"(2 D$"BOY" D$"GIRL" 120(Y 210:"HOW OLD IS "C$"? ";: E$( 210:"NAME ONE FOOD THAT "X$" LIKES":"TO EAT BEST. ";: G$( 210:"NAME ONE THING THAT "X$" LOVES":"TO DO OFTEN. ";: H$)* 210:"WRITE SOMETHING THAT TELLS WHAT":C$" LOOKS LIKE. ";: I$)5ȁ 220)d҇@64,"":@96,"":@64,"";:"O3L80CEDFGGG":)ܞ:"O3L8CDEDC":@4,A$;"'S YUPPIE ";B$)@32,AA$)@64,"MY PET'S NAME IS "C$".") C$" IS A "D$" "B$".")@160,C$" IS "E$" YEARS OLD AND"* Y$" FAVORITE FOOD IS "G$"."*=@256,X$" LOVES TO "H$"."*Y" X$" LOOKS LIKE "I$"."*,@352,A$" WILL ALWAYS LOVE "R$: "PET "B$" NAMED "C$"."*6EN$*@ EN$"E" 330 : EN$"P" 340 : 310*J:*T"****PRINTING ROUTINE***"+^#2,30)A$;"'S YUPPIE ";B$: 470+Bh#2,25)"MY PET'S NAME IS "C$"."+lr#2,28)C$;" IS A ";D$;" ";B$: 470+|#2,25)C$" IS "E$" YEARS OLD AND"+#2,28)Y$;" FAVORITE FOOD IS ";G$: 470+#2,25)X$;" LOVES TO ";H$;".",#2,28)X$" LOOKS LIKE "I$".": 470,8#2,25)A$;" WILL ALWAYS LOVE "R$,g#2,28)"PET ";B$;" NAMED ";C$;".": 470,#2,10)(60,"-"),‡#2,25)"HERE IS A PICTURE OF MY PET",́ 310,ր T1 3:#2," ": T: LOVES TO ";H$;".",#2,28)X$" LOOKS ????????? OHH???? OHH?? OHH????C J2C???<C J2C???? C J2C???<?C J2C?? TO CONTINUE";+JX$:X$""330+TX$" "370+^I114:X$B$(I)500+hI:330+r+|: " (XX)= PAGE NUMBER OF LISTING"+:,)P1315:B$(P)A$(P),B$(3P)A$(P3):P,1:,t " PRESS TO RETURN TO FIRST PAGE OF MENU", " PRESS ^ (UP ARROW) FOR ";,XX$: XX$""430,XX$(94) ::,…XX$" "240,̀I15 NP:XX$B$(I)500-֋I:430-XX$430-ꁥ240-?Q$A$(I):(Q$,1)"*"540-:@138,"SORRY, BUT"::8)Q$::" IS A MACHINE LANGUAGE PROGRAM."-:" THE MENU PROGRAM HAS NOW BEEN CLEARED SO YOU MAY THE PROGRAM BY ITS FILENAME."-.Q(Q$):QQ6:SL$(Q$,Q).& SL$,R.) "MARCH". " (28) PETSTORY"," (32)*MLNOTES"," (60) GOLFER"," (78) BLINK"," (79) COCOLEID"," (79) ASCICALC"," (80) 5-COLDIR"," (80) ASCSERCH"," (81) FRACTAL"," (82) WILFLOAT"/X " (84) QLATOR"," (91) SEPARATE"," (91)𕚟𥪀 ꀰꀯ𥪀紀Я匆𯀥𠯥Я  $%()*+,-./3 FALSOFT PRESENTS! RAINBOW" ON # DISK  MENU BAShPETSTORYBASMLNOTES BIN&GOLFER BAS'[BLINK BAS?COCOLEIDBASASCICALCBAS85-COLDIRBAS=ASCSERCHBAS"FRACTAL BASWILFLOATBASQLATOR BASsSEPARATEBAS0 RITEREADBAS1TIMER BASCREATE BAS/ADDRECRDBAS2DESKTOP BASNSLOTCOREBAS4߀߀셀߀ꀀڀ߀ڀ߀ڀ߀ꀀ ڀ߀ꀀڀ߀ꀀڀ߀ꀀ󀓟 ÀππĀ΀̀π̀ʀʀπʀππππʀʀπππڀ߀ꀀڀ߀ꀀ󀓟 ÀππĀ΀̀π̀ʀʀπʀππππʀʀππ???????????? 0 0 0?040"0X"59"T4V30O3L4CP100CGP100GAP100AGP100GFP100FEP100EDP100L8.DL16EL2C""L4GP100GFP100FEP100EDP100DGP100GFP100FEK0L100FEDL8.EL10FL4EDCP100CGP100GAP100AGP100GFP100FEP100EDL100EDCL8.DL16EL2C"0NX&: SCRATCH GOLFER&>: (C) 1986 BY LARRY DUGGINS&]: 2706 SYMPHONY WAY &: W. CARROLLTON OH COPYRIGHT 1989, FALSOFT,INC&342'[:PD(&HC000): PD68 "DOES YOUR COMPUTER ACCEPT THE SPEED UP POKE WITH YOUR DRIVE CONNECTED (Y/N)";AQ$: "DOES YOUR COMPUTER ACCEPT THE SPEED UP POKE (Y/N)";AQ$'s AQ$"Y" 65495,0'X()::"WHAT TYPE OF SHOT DO YOU WANT ASYOUR NORMAL ONE...PRESS (D) FOR DRAW (F) FOR FADE";SS$' SS$"D" SS$"F"12:7( 0,1,2,3,4,2,1,5,3,4,5,2,3,4(5 4,1,0,3,2,3,4,5,0,1( 5,536,4,468,5,596,3,152,4,440,4,416,4,424,3,212,4,376,4,420,4,292,4,388,5,532,4,368,3,240,4,424,5,640,3,164( WD(7)1:WS(20)1: WD1 WD$"N": WD2 WD$"NE") WD3 WD$"E": WD4 WD$"SE")5 WD5 WD$"S": WD6 WD$"SW")] WD7 WD$"W": WD8 WD$"NW"*/G$"H5L1H1L2H2U1H2U1L1H3L1H1L1H1L1G1D1G1D1G1D1G1D1G1D1G2D1G2D1F1D1F1D1F1D1F2D1F3D1F3D1F3R3F2R3E2R3E5U3E3U3H3U2":F1$"G3D2G2D3F3R4F3R4F6R3E4R3F2R2E4R4E3R5F14R4F12R4F12R4F10R3F2R3F1R2E16R3E12R3E10R3E8R3E8R3"+"GW$"E2R2F3R2F3R2F2D2G5D2G2L3G6L2H4U3H5U3E8":FW$"G14L2G6L2G4D3G5D3G8D3G5D4G2D3G1D2G1D1F2D2F2D2G2D2G1D3F2D3F3D2G1D2R2E1R3E4R2U2E2U2E2U2H2U3E6U2H2U3H2U2H3U2E5U2E7U2E4U2E4U2E3U2E4U2E6U2E2U2L3":GS$"L2G2L2G3D3G3D3F4R4F2R4E3R3U2E6U2H4U1H3G2L3+SR$"R3F2R3F2R3F2R1F2D2G3L2H3L2H4L2H2U4":SF$"H3U2H2L2H2U2L2G3D2G2D3F3D2F2R4F2R2E3U4":FB$"L3G2L2G2L2G5D1G2D2F6":LB$"F3R3D2F3R3E3U2H6L2H3L4H2L4G3L2G6L3G4L2G2D6F4D3F4R6E3H4",FT$"H1L1H1L2H2L1H2H3U2H4U2H3L2G3L2G4D2F6R3F5R2F3R2F4R2U2R2E3U2":SM$"H3L2H1L1G2L1G1D1G1D1F2R1F1R2E2R2U1E2":SL$"H4L2H2L2D3L2D3F3D2F3D2L2D2F3R3E3U2E2R2U3H8":FL$"R2D5R4D3R5D2R6E2R7E2R5E3R5D3R7F8R5F7R6F5R3E6R3E5R3E3F3D4R5E7U4E8U3E7R5F9R3F10R4E7R5F10-eG4$"F9R2F4R2F3R2F1R4F1R3E1R2E1R3E2R2E2U1H2U2H1U1H3U1L2H1L1H2L2H2L4H1L2H1L2H4L1H2L1G2L2G4D2G2D2":GR$"U2H2U1H2U1L3H1L3G2L2G2D3F4D2F3R4E3R2E2U1".$:@200,"***ONE MOMENT***": LE(18),ST(18),TS(18),PS(18),NP(18),WD(30),PA(18),S1(18),SC(18),TR(18):HO1:CP72:CT1:RP109:PV1134:SZ$(32,131):BS$(64,32):BL$" ":AT$(32,42):GF1.p X0 23:WD(X)X:X: X1 24: A: X: X1 18: PA(X),LE(X): X:.FX0:FY0:FT0:241.3,1:1:RF.99: HO 26,33,42,54,63,69,73,84,79,88,92,95,100,104,107,110,114,119.121/(13,157)(23,170),,BF/*"BM70,109;XF1$;BM70,109;XFL$;"/X(230,99),14,4:HX226:HY103:(HX,HY),2,3/(104,138),5,2:(122,143),5,2:(120,136),5,2:(115,139),5,2:(110,132),5,2/(210,138),3,4/1,1:"BM10,180;XD1$;BM70,109;XF1$;BM70,109;XFL$;"/ 1210#!HX192:HY125:(26,41)(42,49),,BF0I"(196,133),16,4,1.45:(HX,HY),2,30#H$"L2U1L3U1L4U1H3U1L2H3U1L2U1L5U1H2L4U1H2L7H1L4H2L4H1L5G2L4G2L4H3L4H2L3G2L3"0$R$"R2F2D3R5F5R4F4R4F2D2F2D2E1U2R4F5R3E4R3E2R3E6R3E4"1c%"BM98,91;XR$;BM152,60;A2;XFT$;BM206,114;A3;XGW$;BM136,71;XSM$;BM190,113;A0XH$;BM128,75;XSM$;":(170,72),2,4:(218,110),3,4:(116,95),2,41&(120,74),2,4:(170,108),24,4,1.45,.17,.49:(172,130),3,41'(170,108),24,1,1.45,.17,.49:(137,76),2,42>(1,4:"BM152,60;A2;XFT$;BM206,114;A3;XGW$;BM98,91;A0;XR$;BM190,113;XH$;BM136,71;A3;XSM$;BM128,75;A0XSM$;"2H)1212e*HX72:HY18:(HX,HY),2,32+(232,139)(242,149),,BF2,W$"F3D2F6D3F3D3F4D4G6L5G4L6U3G2L4U4E4U3R2E2U3R4H4U2G1U4E2H4U3H3"38-"BM118,0;A0;XW$;BM160,100;XSR$;BM166,95;XSL$;":(163,103),2,4:(166,98),2,4:(170,106),2,4:(160,107),2,43I.(118,4),3,43`/"BM76,33;A1;XG$;"3x0"BM176,82;A2XSF$;"31"BM138,90;A1XFW$;"32(84,55),2,4:(180,86),2,433(59,29),12,,1.22,.10,.7:(54,27),3,4:(59,29),12,1,1.22,.10,.74M41,1:"BM118,0;A0XW$;BM138,90;A1XFW$;BM160,100;A0XSR$;BM166,95;XSL$;BM176,82;A2XSF$;"4W512146HX110:HY76:(HX,HY),2,3:(52,100)(59,108),,BF47WL$"F30D4F10D4F10D3F7D2F9D5F3D3F7R5F3R5F4R3E2U7"58WR$"F10D2F8R3F4D2F8R2F10R3F4R3F1R4F2R5F4R3F2R4F1R5F1R3F1R3F1R4"5/9WG$"D1F4R2F6R1F5D1F3R1F7R2F2D2F3"5^:WB$"R5F2R5F1R6F2R4F2R6F3R5F1R3F1R4E2U3H5"5;"BM20,0;A0XWL$;BM30,0;XWR$;BM82,60;XWG$;BM82,60;XWB$;":(25,0),3,45<"BM120,78;XGR$;"5=1,1:"BM20,0;XWL$;BM30,0;XWR$;BM82,60;XWG$;BM82,60;XWB$;"6>1216J?HX85:HY46:(138,149)(148,157),,BF:(80,40),16,4:(HX,HY),2,36@"BM111,86;S6;XSL$;":LS$"H3L2H2G3D2L2F3R3F2R3E2U2":"BM93,86;XLS$;":(112,95),2,4:(93,89),2,46A"BM124,75;S8;XSR$;":(142,86),2,47qBGT$"G3D2G2D2F3R2F1R3F2D2F2R3E2R2E3U2E2U3H2":"BM66,50;S4;XGT$;":TR$"E3R2E2R2F3R2F2D3R2D2G3L2G2L2H1L3HL3H2":"BM96,43;XTR$;":(66,55),2,4:(96,47),2,47C1,1:"BM111,86;S6XSL$;BM93,86;XLS$;BM124,75;S8XSR$;BM66,50;S4XGT$;BM96,43;XTR$;"7D1218EHX62:HY122:(205,40)(208,46),,BF:(60,124),12,4:(HX,HY),2,38|F"BM118,82;A1S6XSF$;BM134,108;A0XSF$;BM63,106;A2XSF$;":(118,80),2,4:(130,110),2,4:(68,107),3,48G1,1:"BM118,82;A1;XSF$;BM134,108;A0;XSF$;BM63,106;A2;XSF$;"8H1219 IHX166:HY40:(50,130)(58,138),,BF:(HX,HY),2,3:(168,42),13,49J"BM104,89;A1;S4;XFT$;BM124,104;A0;S6;XSM$;BM126,108;A2;XSM$;BM126,88;A3;XSM$;BM151,79;A1;XSR$;BM155,45;A0;XSM$;BM154,39;A1;XSM$;BM184,40;XSM$;BM186,55;A0;XSM$;":(101,86),2,49K(117,105),2,4:(129,108),2,4:(124,93),2,4::L(148,84),2,4:(147,45),2,4:(150,32),2,4:(183,37),2,4:(185,54),2,4:M1,1:"BM104,89;A1;S4;XFT$;BM124,104;A0;S6;XSM$;BM126,108;A2;XSM$;BM126,88;A3;XSM$;BM151,79;A1;XSR$;BM154,39;A1;XSM$;BM184,40;XSM$;BM155,45;A0;XSM$;BM186,55;A0;XSM$;":N121;4OHX60:HY122:(HX,HY),2,3:(170,40)(179,50),,BF:(58,121),11,4;^P"BM124,122;A1S4XSL$;":(120,120),2,4<6Q"BM118,35;A0XFW$;BM54,101;A2XSF$;BM140,91;A1XSR$;BM119,99;A3XSM$;BM108,112;A2XSM$;":(111,111),2,4:(121,106),2,4:(116,40),3,4:(63,107),2,4:(138,94),2,4:1,1:"BM118,35;A0XFW$;BM54,101;A2XSF$;BM140,91;A1XS$;<R"BM119,99;A3;XSM$;BM108,112;A2;XSM$;BM124,122;A1;XSL$;BM140,91;A1XSR$;<S121<THX68:HY65:(172,56)(178,64),,BF:(68,62),10,4:(HX,HY),2,3=U(75,75),4,2:(70,78),4,2:(63,74),4,2:(54,70),4,2=CV"BM68,49;A2S4XFT$;":(82,53),2,4:1,1:"BM68,49;XFT$;"=MW121=XHX107:HY50:(HX,HY),12,4:(139,148)(151,158),,BF:(HX,HY),2,3>Y"BM108,37;A0XFB$;BM110,37;XLB$;BM122,81;S6;XSL$;BM146,91;A2;XSM$;":(96,40),2,4:(118,87),2,4:(158,92),3,4>UZ1,1:"BM108,37;A0;S4;XFB$;BM110,37;XLB$;BM122,81;S6;XSL$;BM146,91;A2;XSM$;">_[121>\HX146:HY40:"BM157,42;A0S4XGR$;":(14,70)(22,82),,BF:(HX,HY),2,3?]"BM90,124;A2XFW$;BM166,38;XSR$;":(164,35),2,4:(110,104),3,4:1,1:"BM90,124;A2;XFW$;BM166,38;XSR$;"?^121?c_HX48:HY65:(HX,HY),2,3:(176,130)(184,140),,BF:(50,62),11,4?`WO$"S6L2H3L6H3U4E3R2E3R6F6D4G6":"BM106,99;A0XWO$;":(100,91),3,4:"BM106,99;C1XWO$;"?a"BM38,63;C4A3S6XSM$;":(96,101),4,2:(42,70),2,4@"b1,1:"BM38,63;A3;XSM$;BM70,63;S4A0XWF$;"@,c121@cdHX198:HY178:(120,45)(132,53),,BF:(HX,HY),2,3@e"BM198,169;S4;XGS$;BM106,123;A3;XFW$;BM180,101;A3;XFT$;BM177,128;A2XSM$;":(122,138),3,4:(182,104),2,4:(181,130),2,4Af1,1:"BM106,123;A3;XFW$;BM180,101A3XFT$;BM177,128;A2XSM$;"A)g121AqhHX105:HY139:(HX,HY),2,3:(140,42)(150,50),,BF:(HX,HY),9,4,1.3B&i"BM126,129;S6A0XSL$;BM83,120;A3;S8;XSR$;BM132,121;S4;A2;XGS$;":(134,118),2,4:(124,140),3,4:(90,112),3,4:1,1:"BM126,129;S6A0XSL$;BM83,120;A3;S8;XSR$;BM132,121;S4;A2;XGS$;"B0j121B{kHX124:HY128:(HX,HY),2,3:(128,126),14,4,.66:(124,64)(132,72),,BFBl(110,126),5,2:(110,120),5,2:(105,123),5,2:(112,115),5,2:(113,131),5,2:(118,136),5,2:(107,128),5,2:(126,138),5,2Cm121CLnHX108:HY153:(HX,HY),3,3:(96,40)(112,48),,BF:(110,152),11,4,1.33CoC1$"H6U3H6U3H5L2U4E12U3E7U3E12R3U3R4H8U4E15R2"Cp"BM90,180;S3;A3;XF1$;BM90,180;S4;A0;XC1$;":(95,175),3,4:1,1:"BM90,180;S3;A3;XF1$;BM90,180;S4;A0;XC1$;"Cq121D@rHX108:HY34:(HX,HY),2,3:(110,30),13,4:(240,175)(252,183),,BFDs(192,114),5,2:(210,124),5,2:(160,120),5,2:(159,130),5,2:(150,123),5,2:(207,113),5,2E$t"BM140,64;S8;A2;XSM$;BM116,56;A3;XSM$;BM130,28;S4;XGR$;BM88,41;A2;XGR$;":(120,68),2,4:(156,58),2,4:(100,46),2,4:(132,34),2,4Eu1,1:"BM140,64;S8;A2;XSM$;BM116,56;A3;XSM$;BM130,28;S4;XGR$;BM88,41;A2;XGR$;BM190,124C3XSM$;":(196,122),3,3Ev121EwHX116:HY94:(HX,HY),10,4:(HX,HY),2,3:(150,128)(158,136),,BFFhxWC$"G4D2G2D2F2D3F2D2F3R3F2R3E3R3E3R2E2U3E2U3H6U2L3U2L4H2L2G4":"BM106,79;S6A0XWC$;":(108,86),3,4:1,1:"BM106,79;S6A0XWC$;"Fy:OB0:1024,191:@1,"COURSE YARDAGE = 7,088 YDS.":1056,191:@33,"COURSE PAR = 72"Gz1088,239:@65,"HOLE";HO;:1097,239:@74,"PAR";PA(HO):1105,239:@82,"LENGTH";LE(HO);"YDS"Gk{1120,175:@97,"WIND- SPEED";WS;"** DIRECTION ";WD$:359,126:@128,SZ$;H.|@288,SZ$:@326,"AVERAGE DISTANCES";:@353,"WOODS: DR=265 3W=241";:@385,"IRONS: 1=223 2=211 3=202";:@425,"4=193 5=184 6=175";:@457,"7=166 8=157 9=148";:@482," 10=133";H|}TG0: RF.99 @179,(175);"YOU HAVE A": RF1 @212,"GOOD LIE":129H~ RF.99129: RF.7 RF1@212,"FAIR LIE":129H RF.5 RF.8@212,"BAD LIE";:129I@179,(191);"BAD LIE ":@212,"BE CAREFUL":TG1IZ RF.99 @243,(239);"DISTANCE TO":@276,"HOLE";DH4;"YDS";IA$: A$""@161,"WHICH CLUB**** ";: T1 20:T:1198,127: T1 80:T:130JA$(83)1,0:(SX,SY,3): T1 50:T:(SX,SY,2): T1 50:T:B$: B$""131:0,0:130JH30,1: A$(13)134:NNNN1:C$(NN)A$:130Jj T1 400:T:1232,32:130J N1 NN:C$C$(1)C$(2): N:"T230;O5AO4BO5F":@176,C$;: FL1 SS$"D" SS$"F": SS$"F" SS$"D"K TG1138: C$"DR"C$"3W"RF.2RF:138K+C(C$): C5RF.3RF:138KU C10RF.4RF :RF(4)3:RFRF10KA$: A$""@193,"DIRECTION***** ";: T1 20:T:1230,127: T1 80:T:138L A$(83)1,0:(SX,SY,3): T1 100:T:(SX,SY,2):B$: B$""139:0,0:138L930,1: A$(13)141: PRPR1:DR$(PR)A$:138L{ N1 PR:DR$DR$(1)DR$(2): N:"T230;O5AO4BO5F":@208,DR$;LA$: A$""@225,"LENGTH OF ARC* ";: T1 20:T:1262,127:T1 80:T:142M4 A$(83)1,0:(SX,SY,3): T1 50::(SX,SY,2): T1 50::B$: B$""143:0,0:142MZ A$"7" A$"2"1,5:A$"":142MLA(A$):"T230;O5AO4BO5F":@239,LA;: LA5TS$"":@257,"TYPE OF SHOT** ";:@272,"*";:150NA$: A$""@257,"TYPE OF SHOT** ";: T1 20:T:1294,127:T1 80:T:146NE A$(83)1,0:B$: B$""147:0,1:146Nd A$"F" A$"D"149 :146NTS$A$:"T230;O5AO4BO5F":@272,TS$;N@320,BS$N@416,"*(PRESS TO PLAY HOLE)":@448,"*(PRESS TO CHANGE ANY VALUES ";OA$: A$""152O) A$(13)156O A$(32)@176,BL$;:@208,BL$;:@239,BL$;:@271,BL$;:PR0:NN0:C$(1)"":C$(2)"":DR$(1)"":DR$(2)"":130O@271,BL$;:146ODR(DR$): (WD2)WD2163O WD1 WD5 158:160P% DR0 DR1 DR23 WD1 DW2WS :DW2WSPT DR10 DR14 WD5 DW2WS :DW2WSPp WD3 WD7 161:163P DR4 DR8 WD3 DW2WS :DW2WSP DR16 DR20 WD7 DW2WS :DW2WSP WD2 WD6 164 :166Q DR1 DR5 WD2 DW2WS :DW2WSQE DR13 DR17 WD6 DW2WS :DW2WSQ_ WD4 WD8 167 :Q DR7 DR11 WD4 DW2WS :DW2WSQ DR19 DR23 WD8 DW2WS :DW2WSQIN(1)5:IN(2)4:IN(3)5:IN(4)5:IN(5)4:IN(6)5R WD1X1(1)2:X1(2)5:X1(3)14:X1(4)17RJ WD2X1(1)5:X1(2)8:X1(3)17:X1(4)20Rx WD3X1(1)8:X1(2)11:X1(3)20:X1(4)23R WD4X1(1)11:X1(2)14:X1(3)23:X1(4)2R WD5X1(1)14:X1(2)17:X1(3)2:X1(4)5S WD6X1(1)17:X1(2)20:X1(3)5:X1(4)8S. WD7X1(1)20:X1(2)23:X1(3)8:X1(4)11S\ WD8X1(1)23:X1(2)2:X1(3)11:X1(4)14S C$"DR"CC460: ST0 GF((5)5)10S C$"3W"CC410S C$"1"CC380S C$"2"CC360S C$"3"CC345S C$"4"CC330T C$"5"CC315T C$"6"CC300T* C$"7"CC285T> C$"8"CC270TR C$"9"CC255Tg C$"10"CC230T LA7R(100):CORT LA6R(40):COR25T LA5R(40):CORT LA5R20:CO(R)T… LA4 LF1 :LF.1TÅ LA5 NT0:229U;R1(13)1: TS$SS$ R2(9)15:R3(3): R33199U]R4(10):R44TS$SS$:199Uyƀ N1 R1:NT:N:200Uǀ N1 R2:NT:NUȏUɀ XX1(CT)X1(CT)IN(CT): WD(X)DR 203:XUCTCT1: CT6 CT0:201V˅ CT2 CT5 AF(WS4.1): AF(WS12.3)V6̅ CT3 TS$"F" AFAFViͅ CT0 206: CT0 CT4 TS$"D" AFAFVCT1:NT(NTLA101.92AF)Vυ NT0 FL1: TS$"D" TS$"F": TS$"F" TS$"D"VNT(NT):AF0:C(C$)Vх C6 C11 NT1 NT1W҅ C3 C7 NT2 NT2W;Ӆ C0 C4 NT3 NT3WNԅ TS$"F" 221WgՅ (DR2)DR2217WօDR0 DR2 DR12 DR16XC3:YC6:229WׅDR4 DR10 DR16 DR22XC6:YC6:229W؅DR6 DR8 DR18 DR20XC8:YC2:229XمDR1 DR13XC0:YC9:229XOڅDR3 DR11 DR17 DR23XC4:YC7:229XۅDR5 DR9 DR15 DR21XC7:YC4:229X܅DR7 DR19XC8:YC0:229X݅ (DR2)DR2225XޅDR0 DR10 DR12 DR22XC2:YC8:229Y߅DR2 DR8 DR14 DR20XC6:YC6:229YODR4 DR6 DR16 DR18XC8:YC2:229YDR1 DR9 DR15 DR21XC4:YC7:229YDR3 DR7 DR13 DR19XC7:YC4:229YDR5 DR17XC8:YC0:229YDR11 DR23XC0:YC9Z (DR2)DR2 233Z? DR5 DR7 DR17 DR19XI10:YI2.34:237Zx DR3 DR9 DR15 DR21XI4.34:YI4.345:237Z DR1 DR11 DR13 DR23XI1.34:YI5.34:237Z DR0 DR12XI0:YI5.34:237Z DR6 DR18 XI11:YI0:237[2 DR2 DR10 DR14 DR22XI3:YI5.26:237[b DR4 DR8 DR16 DR20 XI7:YI3.34[@176,BL$;:@208,BL$;:@239,BL$;:@271,BL$;:@416,BS$;:3,1:1,0:DI(CCLA10RFGF(DWLF))CO[RF1:GF1\AC(ACLA101.3.5):PPDI22:FPPP(PP):PP(PP.5)\% FT1260\I HO1SX18:SY161:BXSX:BYSY\l HO2SX38:SY45:BXSX:BYSY\HO3SX236:SY142:BXSX:BYSY\HO4 SX57:SY103:BXSX:BYSY\HO5 SX145:SY153:BXSX:BYSY\HO6 SX204:SY43:BXSX:BYSY]!HO7 SX56:SY132:BXSX:BYSY]F HO8 SX174:SY60:BXSX:BYSY]jHO9 SX174:SY46:BXSX:BYSY]HO10 SX145:SY150:BXSX:BYSY]HO11 SX20:SY78:BXSX:BYSY]HO12 SX178:SY132:BXSX:BYSY]HO13 SX126:SY50:BXSX:BYSY^$HO14 SX145:SY47:BXSX:BYSY^IHO15 SX128:SY68:BXSX:BYSY^mHO16SX104:SY45:BXSX:BYSY^HO17SX246:SY179:BXSX:BYSY^HO18SX155:SY131:BXSX:BYSY^ FT0FT1:^ DR1 DR7 QX1:QY1:264_ DR6 DR13 QX1:QY1:264_; DR12 DR19 QX1:QY1:264_] DR18 DR24 QX1:QY1_RXSX:RYSY:IYYI(YI):IXXI(XI)_ T1 300: T:CXPPNT:CXPPNT:TS(ST)DI:"T100V31O4AB":(SX,SY,1):(BX,BY,4)` N1 PP:CXCX1: CX0 SXSXXCQX:SYSYYCQY`N CX0 SXSX((XIIXTX)QX):TXTXIX: TX1TX0` CX0 SYSY((YIIYTY)QY):TYIYTY: TY.66TY0aS SX0 SX255 SY0 SY191 1,5::@197,"****OUT OF BOUNDS****": T1 900:T:OB1:PSPS1:SXRX:SYRY:C$(1)"":C$(2)"":DR$(1)"":DR$(2)"":NN0:PR0: ST0SXBX:SYBY:STST1:284::284a (SX,SY)2(SX,SY): T1 80: T:(SX,SY,2): N:TR(HO)TR(HO)1:RF(9):RFRF10:293bd(SX,SY)3(SX,SY,2):T1 80:T:(SX,SY,3):N:(HXSX)5 (HYSY)5 273:"T200O1ABO4CDO1EF":PSPS1:TWTW1:WHWH1:(SX,SY),3,2:T1 300:T:(SX,SY),3,3:290b(SX,SY): T1 60: T:(SX,SY): Nb(SX,SY,2)bRF(100): RF92 RF.8 : RF4 RF.6 :RF1b SXHX SP1:SP1c SYHY SE1:SE1c# SXHX18 CXHX20:280cB SXHX18 CXHX20:280cLCXSXck SYHY18 CYHY20:283c SYHY18 CYHY20:283cCYSYc NXCX HX SP: NYCY HY SE: (NX,NY)4 FG1 : NY,NX:FG0dbDD0:LX(SXHX):LY(SYHY):DH((LX2LY2)):DX(BXSX)2:DY(BYSY):DD((DX2DY2)):DD(DD4.5):TS(ST)DDdLX(SXHX):LY(SYHY):LXLX2:DH((LX2LY2)): OB1 121d(SX,SY),1,4:STST1eA$:(SX,SY),1,2: T1 50: T:(SX,SY),1,3: A$(83)287:PR0:DD0:NN0:C$(1)"":C$(2)"":DR$(1)"":DR$(2)"":@180," ";:@212," ";:@244," ";:@276," ";e 0,0: FG0 :LPDH:295e!124e" ST0 S1(HO)1f+# CX0 SXSXXIQX:SYSYYIQY: (SX,SY)3 ((HXSX)11 (HYSY)11) 294 :291f$SXSXXCQX:SYSYYC2QY: (SX,SY)3 (SX,SY)2 ((HXSX)11 (HYSY)11) 294: CXCX1:291f% ST0S1(HO)1f&275f'DW0:PS(HO)PS:PG(100):ST(HO)STg( PG22 PG28 NP1:305g%) DH10 PG50 PG54 NP4gy* DH0 "T8O5GBDO3FACO5CEG":0,1::@102,"YOU HOLED OUT!": T1 600:T:305g+ DH0 DH3 PG9 NP1 :NP2:305g, DH2 DH5 PG49 NP1 :NP2:305h- DH4 DH7 PG69 NP1 :NP2:305h4. DH6 DH9 PG29 NP2 :NP1:305hd/ DH8 DH11 PG49 NP2 :NP3:305h0 DH 10 PG69 NP2 :NP3:305h1NP(HO)NP:SC(HO)STNPPS:PTPTNPi20,0::@7,"STATS FOR HOLE ";HO;:@33,"PAR ";PA(HO);" LENGTH OF HOLE ";LE(HO);:@64,SZ$;i3@97,"PENALTY STROKES************";PS:XPXPPS:@129,"SCORE FOR THE HOLE*********";SC(HO);:@160,SZ$;i4 HO4 HO8 HO15 HO18 @225,"DRIVE LAND IN FAIRWAY?***** --";:310 j+5TLTLTS(0):@225,"DRIVE LAND IN FAIRWAY?***** ";: S1(HO)1 "NO":"YES";:GDGD1jZ6@193,"LENGTH OF TEE SHOT*********";TS(0);k7@257,"# OF TIMES IN ROUGH/TRAP***";TR(HO);:BRBRTR(HO):@289,"# OF TIMES IN WATER********";WH;:@320,SZ$;:@353,"REACHED GREEN IN REGULATION ";: STPSPA(HO)2 "YES":GRGR1:"NO";kF8@385,"NUMBER OF PUTTS************";NP;kn9 HO10 YFYFSC(HO):YBYBSC(HO)k:A$: A$""314:ST0:YSYFYB:k;@9,"***SCORECARD***":@64,"HOLE PAR SCR HOLE PAR SCR";:FH96:BH113:FP102:FS106:BP119:BS123l_< X1 9:@FH,X:FHFH32:@FP,PA(X):FPFP32:@FS,SC(X):FSFS32:X:@384,"TOTAL 36 ";YF;l= X10 18:@BH,X:BHBH32:@BP,PA(X):BPBP32:@BS,SC(X):BSBS32:X:@401,"TOTAL 36 ";YB;m>TPTPPA(HO):SRYSTP: SR0 PV,(SR)48 : SR0 @RP," E";:@RP,SR;m*? HO9 RP93:PV1118m@@RPRP32:PVPV32mAA$: A$""321: HO18 322 :HOHO1:PS0:NP0:WH0:23n>B:PD(&HC000): PD68326:"DO YOU WANT TO SAVE YOUR STATS TO DISKETTE Y/N";F1$: F1$"N"325::"MAKE SURE YOUR DRIVE IS ON AND A DISK IS IN IT....PRESS RETURN WHEN READY";F2$nC"IS THIS YOUR FIRST SAVE OF THIS FILE Y/N";F3$: F3$"N"324:ZS85:ZD6:ZL245:ZG6:ZP36:ZG10:ZW8:ZX10:"O",#1,"FINLSTAT/DAT":#1,ZS,ZD,ZL,ZG,ZP,ZR,ZW,ZX:#1:325o'D"I",#1,"FINLSTAT/DAT":#1,ZS,ZD,ZL,ZG,ZP,ZR,ZW,ZX:#1o-EpF@10,"FINAL STATS":@65,"SCORE**********************";YS;:@97,"# OF DRIVES IN FAIRWAY*****";GD;:@129,"AVERAGE LENGTH OF DRIVE****";(TL14);:@161,"GREENS REACHED REGULATION**";GR;:@193,"# OF PUTTS*****************";PT;pG@225,"# OF TIMES IN ROUGH / TRAPS";BR;:@257,"# OF TIMES IN WATER********";TW;:@289,"PENALTY STROKES************";XPpH T1 600:T:MT3340pI F1$"N" PD68 340:@352,"**FLASHING ASTERISKS=NEW RECORD"qJ YSZS @93,"**";:MT2 ZSYSq8K GDZD @125,"**";:MT2 ZDGDqmL (TL14)ZL @157,"** ";:MT2 ZL(TL14)qM GRZG @189,"**";:MT2 ZGGRqN PTZP @221,"**";:MT2 ZPPTqO BRZR @253,"**";:MT2 ZRBRrP TWZW @285,"**";:MT2 ZWTWr+Q XPZX @317,"**";:MT2 ZXXPr>R T1 200:TrNS@352," ";rT F1$"Y"MTMT1: MT4326:"O",#1,"FINLSTAT/DAT":#1,ZS,ZD,ZL,ZG,ZP,ZR,ZW,ZX:#1rU::"PLAY AGAIN Y/N";F4$: F4$"Y"0:s8VXB1216:YY1247:X480::A$(32,32):T1$" SCRATCH GOLFER":N$" LARRY DUGGINS"snW@X,T1$:XX32:X193T1 30::"T100;A":343sxXX480sY@X,A$:XX32:X129T1 30::"T160;O2A":345sZT1 100:t[ L1 16:"T190O5AED":XB1,96:YY1,96:T1 30::XB,66:YY,89:XBXB1:YYYY1:tD\"T200":FT120:"T+CE":FT:@256,N$tW]T1 800::30::"T100;A":343sxXX480sY@X,A$:XX32:X129T1 30::"T160;O2A":345sZT1 100:t[ L1 16:"T190O5AED":XB1,96:YY1,96:T1 30::XB,&$: COPYRIGHT 1989 FALSOFT,INC&:d 500:SS$(127)&ei: "- ENTER, COMBINE, AND SEPARATE -"&nP$"ENTER A DECIMAL NUMBER":VT$"D"&xHV999999:LV1:SL64: 9020&|NN$(VA$,(VA$)3)(VA$,2)&P$"ENTER YOUR FIRST NAME":VT$"A"'HV32:SL128: 9020'*NN$NN$SS$VA$SS$'\P$"NOW YOUR LAST NAME, DON'T BE SHY":VT$"A"'uHV32:SL192: 9020'NN$NN$VA$': "---- THE ENTIRE RECORD IS ----"' NN$'I (1,NN$,SS$):J (I1,NN$,SS$)( : "---- THE PARTS ARE -----------"(/NB$(NN$,I3)"."(NN$,I2,2)(Jȇ "NUMBER ------>";NB$(s "FIRST NAME -->";(NN$,I1,JI1)( "LAST NAME --->";(NN$,(NN$)J)(: "TOUCH 'ENTER' TO CONTINUE";: CT$: 105(#< @SL,P$: @SL32," ": @SL32,"";)#B "==> ";VA$ :INPUT THE VARIABLE)@#DLA (VA$): VT$ "A" 9044)c#FVV (VA$): VT$ "D" 9038)#J (VV) VV 9020 : 9042)#N LA 9 LA 3 9020)#P (VA$,LA2,1) "." 9020)#R VV LV VV HV 9020*#T LA HV 9020 : :INPUT THE VARIABLE)@#DLA (VA$): VT$ "A" 9044)c#FVV (VA$): VT$ "D" 9038)#J (VV) VV 9020 : 9042)#N LA 9 LA 3 9020)#P (VA$,LA2,1) "." 9020)#R VV LV VV HV 9020*#T LA HV 90&$: COPYRIGHT 1989 FALSOFT,INC&<d:NA$"RECORDS/DAT"&ei "--- TEN RECORDS ON A FILE ------"&n "O",#1,NA$: @32,"+++ WRITING ===>";&x IX 1 10: " ";IX;& #1,"RECORD NUMBER:",IX& IX: #1: @96,"++++ READING BACK ++++"' "I",#1,NA$' IX 1 10') #1,IN$,NB'> "===> ";IN$;NB'I IX:'lȻ "ERASE THE FILE? Y/N ";KF$'҅ KF$ "N" 250 : NA$' "RUN IT AGAIN? Y/N ";MT$' MT$ "N" : 100 IX: #1: @96,"++++ READING BACK ++++"' "I &$: COPYRIGHT 1989 FALSOFT,INC&12 3,1000&Pd 750: LI$(7):SS$(127)&~0: @0,"--- MONEY MANAGER DATA BASE ---a&LI$(1)"1= ADD INFORMATION&LI$(2)"2= END SESSION&SL128:NL2:AD0: 9000& A 320,260& @385,(30,"*");', @417,"SESSION IS OVER - BYE FOR NOW ";'C @449,(30,"*");'\ I1 1800: I::'@0: "--- ADDING INFO TO DATABASE ---b"'AAD1:LI$(1)"1= ENTER A CHECK'JLI$(2)"2= RETURN TO THE FIRST MENU a'TLI$(3)"3= END THIS SESSION":NL3( YSL128: 9000: A 370,150,260(Nr0: @0,"----- CHECK INFORMATION ------c(|w 380: 400: 406: 410: 414: 430(|P$"1= ENTER THE MONTH: 1-12":LV1:HV12:SL64(VT$"N": 9020:MM$("0"VA$,2):) P$"2= ENTER THE DAY: 1-31":LV1:HV31:SL128)2VT$"N": 9020:DD$("0"VA$,2):)lP$"3= ENTER CHECK NUMBER: 1000-9999":LV1000:HV9999)SL192:VT$"N": 9020:CN$VA$:)P$"4= ENTER THE AMOUNT: NNNNNN.NN":LV1.00:HV999999.99)VT$ "D":SL256: 9020*AM$(VA$,(VA$)3)(VA$,2):*FP$"5= ENTER WHO CHECK WAS PAID TO":SL320:VT$"A*bHV31: 9020:CP$VA$:*P$"6= ENTER WHAT CHECK WAS FOR":SL384:VT$"A*HV58: 9020:CF$VA$*և @0,"--- FINAL O.K. OR CHANGE ----d+ @32,">TYPE 'Y' IF ALL ITEMS ARE O.K.<";+ I 1 220+=A$: A$ "" 490 : I+w @32," OR TYPE LINE NUMBER TO CHANGE ";: I1 300+A$: A$ "" 490 : I: 480+ A$ "Y" 520+A (A$): A 0 A 7 510 : 470, A 380,400,406,410,414,430: 480,<0: "------- ADDING THE CHECK ------e",u " P L E A S E W A I T":OK$ MM$DD$"C"CN$, WR$ OK$"*"AM$SS$CP$SS$CF$, 9070: 9100:0-  GE 1 "---- CHECK WAS ADDED ------f" : "** DUPLICATE CHECK NOT ADDED **d--LI$(1)"1= ADD ANOTHER CHECK-W&LI$(2)"2= RETURN TO THE FIRST MENU a--LI$(3)"3= END THIS SESSION RIGHT NOW-0SL96:NL 3: 9000: A 370,150,260-#( I 1 NL: @SL,LI$(I)-#)SL SL32: I.#- @32,"* SELECT FROM THE FOLLOWING.#. I 1 200.<#/A$ : A$ "" 9012 : I.X#0 @32," *": I 1 65.~#1A$ : A$ "" 9012 : I.#2 9005.#4A (A$): A 0 A NL1 .#5 9005.#< @SL,P$ : @SL32," " :PROMPT.#@ @SL32,""; :REPOSITION/#B "> ";VA$ :INPUT/;#DLA (VA$): VT$ "D" 9044/S#F VT$ "N" 9036/i#H LA HV 9020/#J :VARIABLE IS IN RANGE/#LVV (VA$): VV LV VV HV 9020/#N VT$"D" 9034/#O (VA$,1) "0" (VA$,1) "9" 90200#P VV (VV) 9020 : 90340:#T LA 9 LA 3 90200^#V (VA$,LA2,1) "." 90200j#X 90360#n DD$ "15" DF$ "15" : DF$ "010#pSG$ "M" MM$ "D" DF$ "/CHK"0#: "I",#1,SG$: "O",#2,"WORK/CHK":0# (1) 1 91301# #1,LI$:IK$ (LI$,9)1=# IK$ OK$ #2,LI$ : 91601I# 91001q# RA 9132: AD 9131,9134,91341~# #2,WR$1#RA0:: SG$: "WORK/CHK" SG$:GE1:1#RA0:GE2::1#ȅ IK$ OK$ 9200: :INPUT >=OUTPUT2#ʈ AD 9134,9170,9170 :INPUT =OUTPT2$#GE1: :CHANGE2Q# AD 9202,9220,9220: :INPUT > OUTPUT2# RA 9210: #2,WR$: #2,LI$:RA1: 91002# #2,LI$: 91002$ RA 9210: 9134:GE2::1#ȅ IK$ OK$ 9200: :INPUT >=OUTPUT2#ʈ AD 9134,9170,917& 2:4:8,4:&(B17: B,300:B&6 C1 7&E((35,11),9&V2(35,11),C,8&c<(3,1),C&yF(24,0)(44,20),C&P 4: C&Z"BM46,46R90D30L90U30R30ND30R30D30"&d(50,50)(70,70),(7),&n 43345: 180&x(80,50)(100,70),(7),' 43345: 180'-(110,50)(130,70),(7),'@ 43345: 180'WAA1: A10 200'b 100'oY(40)' X1 Y: X:'(3,20),"Hit (ENTER) to pull lever"'Ң44539:4:A0:90(7),&n 43345: 180&x(80,50)(100,70),(7),'