' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL]dAA8)2).v 2u+''#QR!) ` 鷎귭෍ᷩ췩緈JJJJx L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>? &$: *!  " *  +8"0 + , ,(0 2 +*2,)";9-#<-!&:#<-!+2-!+3-!+9-**#?/,$24>+2-!+2-!(;<-,#;-2,#;-2#?/,2< ,+?/472,<#;-2,#;-+<-+<-)#<-)#<-,#<-#<-(4,+?/#/,*#/:(,B=B * a*)$  ;)1eA!9i&!(B jK+N* nLP zaL 8浍BC˵@̵A浨m`@Bɵ@ʵA@ȱ@Ȍ@@7 eȱ@8ȱ@HH@A ehh а= e=LbLHHHHhHH݌hHhHh݌H6 ˆʎõĵLV õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff ` f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx-( Ԡ@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0JȴC ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫLI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(`  d ֠z#?ϠӠؠϠ٠ Ҡ u`H BALL ANGLER$\21:30-f"0"9p22:26Iz"270 + 90"U23:29`"180"|" WHAT DIRECTION? ";DDPS122302250R((1)5025)DDDDR CALCULATE BALL POSITIONOXBX:OYBYPI3.1415926F112030F212070*DIS10ı4::<21a"THAT CLUB IS NOT IN YOUR BAG."w"WHAT CLUB?";CL$1750 BALL IN RUFFDIS01980DISDIS.85  BALL IN SAND TRAP DIS01980*R(1)4DISDISR>"3I"DIS170R30,DCL$"4I"DIS155R30GNCL$"5I"DIS145R20bXCL$"6I"DIS130R20}bCL$"7I"DIS115R20lCL$"8I"DIS95R20vCL$"9I"DIS80R20CL$"PW"DIS65R20CL$"CHIP"DIS30R20PS1DISDIS1.15 $;" ";CL$"CL$"X"1770,1780Z:"POWER STROKE":PS1:"WHAT CLUB ";CL$dDIS0oR(1)CL$"1W"DIS220R70CL$"3W"DIS200R60CL$"4W"DIS190R40&CL$"5W"DIS180R400CL$"2I"DIS185R30:CL$A HOLE@Q1S(C)0'JQ2S2(C)01T1690;^2120PhQ1S(C)S(C)1grQ2S2(C)S2(C)1|::" BALL HIT ";(DIS);" YARDS.22701620 INPUT CLUB:PS021Q1ĺ"WHAT CLUB ";N$;" ";Q2ĺ"WHAT CLUB ";N2)5P(13)4P(14)4'P(15)33P(16)4?P(17)4KP(18)5Qw4:" HOLE NUMBER 1"12" ";Y(1);" YARDS TO HOLE PAR ";P(1)20"" HIT RETURN FOR FIRST HOLE";AN$,52006 PLAY Y(10)220Y(11)335(Y(12)5656Y(13)440D Y(14)435RY(15)155`Y(16)465n(Y(17)325|2Y(18)675<P(1)4FP(2)4PP(3)3ZP(4)4dP(5)5nP(6)3xP(7)4P(8)5P(9)4P(10)3P(11)4P(12 DISTANCE OF THE NEXT "DL" SHOT IS RANDOMLY REDUCED."JVR`24vj"HIT RETURN TO CONTINUE.";ANS$|t~ HOLESY(1)475Y(2)405Y(3)230Y(4)450Y(5)570Y(6)175Y(7)470Y(8)535Y(9)470 STROKE AND YOU MAY ":" LOSE YOUR BALL."9b"TREE HAZARD: COLOR IS BROWN."" THERE IS A CHANCE THAT THE "$" BALL WILL BE DEFLECTED.".8"SAND HAZARD: COLOR IS GRAY."B" THE"." HAS A ONE STROKE PENALTY."4\"WATER HAZARD: COLOR IS BLUE."" HAS A ONE STROKE PENALTY.""ROUGH: COLOR IS ORANGE."" REDUCES THE DISTANCE OF THE"3" NEXT >:H" 0 ":5R" 270 + 90":J\" 180 "Rf24vp"HIT RETURN TO CONTINUE.";ANS$z PAGE 3" THE GOLF COURSE HAS THE FOLLOWING ""HAZARDS: BEWARE!!!":"OUT OF BOUNDS: COLOR IS BLACK.ROM 0 TO "5"360. THE NUMBERS REPRESENT THE 360"b "POINTS OF A COMPASS. 0 OR 360 MAKES""THE BALL GO UP, 90 MAKES THE BALL GO" "LEFT, 180 MAKES THE BALL GO DOWN AND "*"270 MAKES THE BALL GO RIGHT."4:"SEE THE EXAMPLE BELOW:"YOUR NEXT""STROKE."K" BY HITTING THE BALL HARDER YOU "p"MIGHT SLICE OR HOOK THE BALL."x22"HIT RETURN TO CONTINUE,";ANS$ PAGE 2 " THE DIRECTION OF THE BALL IS DETER-" "MINED BY ENTERING A NUMBER Fb" YOU CAN GET LONGER DISTANCES THAN"Xl"THOSE JUST LISTED. TO HIT A POWER "v"STROKE TYPE ''X'' WHEN ASKED WHAT CLUB.""THIS WILL INCREASE THE DISTANCE OF YOUR""NEXT STROKE BUT YOU WILL LOSE SOME " "CONTROL OF THE ANGLE OF 6I 130 TO 150 YARDS "< " 7I 115 TO 135 YARDS"^ " 8I 95 TO 115 YARDS" " 9I 80 TO 100 YARDS" &" PW 65 TO 85 YARDS" 0" CHIP 30 TO 50 YARDS" :24 D"HIT RETURN TO CONTINUE.";ANS$ N X5+S "& " 3W 200 TO 260 YARDS "I " 4W 190 TO 230 YARDS "l " 5W 180 TO 220 YARDS " " 2I 180 TO 210 YARDS " " 3I 170 TO 200 YARDS " " 4I 150 TO 180 YARDS " " 5I 140 TO 160 YARDS" " COURSE. YOU ": r"HAVE THE FOLLOWING CLUBS WHEN ASKED "h |"WHAT CLUB YOU WOULD LIKE TO USE. THE " "NUMBERS AFTER EACH CLUB INDICATE THE " "DISTANCE THAT THE BALL WILL TRAVEL BY" "USING THAT CLUB."  " 1W 220 TO 290 YARDND PLAYER'S NAME? ";N2$& Q10 1150C  INSTRUCTIONSI P 7 ""DO YOU WANT INSTRUCTIONS? TYPE Y OR N" , 6ANS$ @ANS$"N"ı J PAGE 1 T ^" IT THIS GAME OF GOLF YOU WILL PLAY 18" h"HOLES OF A CHAMPIONSHIP CCARTER" xI11500:! 260' G 10:" 1 PLAYER OR 2 ";P PL$a PL$"1"200r PL$"2"220{ 140 15:1:" WHAT IS YOUR NAME? ";N$ 240 15:1:"WHAT IS THE FIRST PLAYER'S NAME? ";N$ 20:"WHAT IS THE SECO],1010,102:1011,213:1012,112:214,2557 Y(20)DAN$(10)OP(20)Z(S(20)f2S2(20)r<L$(50)~FPL$(3)PN$(30)ZN2$(30)dL$"-------------------**-------------------" n:10:16:"PRO GOLF"::19:"BY"::12:"M. W. MA                              ,23,45,62,23,45,101,245,30,63,55,45,21,23,7,0mj 21,173,63,46,21,63,46,21,63,231,119,14,45,53,21,63,56,7,0t 21,173,63,46,21,63,46,21,63,231,119,14,45,53,63,23,21,5,0~ 44,46,62,62,60,36,0 21,173,63,46,62,46,45,0:16368,0!P11000:PI23:"HOW ABOUT ANOTHER GAME?(Y/N)"Q$A$a.A$"Y"Ĭ80{8A$"N"ĉ::"BYE!":B1060L 6,0,14,0,33,0,52,0,71,0,90,0,97,0V 23,191,45,62,23,45,62,23,45,101,245,30,63,55,23,45,40,5,0-` 23,191,45,620:1000:321:21:"?"(1020SI3801:61,I:P130:P:61,I:IdP11200:P{19,Y:0:1020:3:1706,3310,2910,289,278,276,29:6,332,292,283,274,276,296,287,278,279,289,298,308,31:8,33:P:ITX12,LA:0650( 5M,L6>MMSP:M275M5K 5M,L6Q*f4ITX,Y:5M,L6|>:21:18:"MOM!"HIX101R1I,Y\P130:Pf1I,Y:Ip1I,Yz1000SPSP1:SP7ī1030P11000:P61,39 T1X,I bP125:P$ lIT1X,I+ vI4 FL0^ UU1:U3Ğ:21:17:"THE END":1030e 0y 122010U,140 240 I15:Z(S)(S):I ITX,Y 5M,L6  IT1:A6:D(T)2IT3:A9 45 ITX12,LAP1750: 5M,L6:LLE:5M,L6:1 T(16384)202B T0T2T1H \ T((0)127): (16384)160L50G6:E30:470:FL1:16368,0  (16287)127L50G6:E30:470:FL1 & 0690 :15 DIT4Ę45 NIY2L40 XI0)1)SP560 hITX,Y:260- rQ(L30)1@ |L50X40820M T1T0x OXD(T)1:Q3T2ĭH(X5,Q)SPOX5 Q3T2ĭH(X3,Q)SPOX3 Q3ĭH(O,Q)SPFL0G1.5:E30:470:460 FL0Z(S)(S) FL0 MO520,540 330,L6 MO480,510. GG.5:XXD(T):YYG; ITSH(T)S "(G)GITSH(T)1_ ,ITX,Y 6X272X12ĕITX,Y:XXD(T):ITX,Y @YLG3:370 J780 TL5Y9ĭL5YĭM(D(IT3)2)6XM(D(IT3)2)3Xİ690:730 ^(Y)L11ĭH(X,(L3SH(0)1:SH(1)1:SH(2)3% :3::0C I23024010:1I,140:I_ I4513530:0,I279,In I135210 H((1)200)40:0 JHH15:J,I:H(J,I301)SP:J 3:I 61,39 5SP55,145 X260:Y120:L125:IT1:G0 M10:5M  24576(7676)680/I76767780;(W:I,WB2IW<233,29:232,252^F1P::"(K)EYBOARD":"(P)ADDLE"::"ENTER MODE:";ZM$dM$"K"MO1nM$"P"MO2xMO090H(279,2):SP1:S16336 D(0)2:D(1)0:D(2)2:     98,54:799,54:1 800,54:801,95:802,0:803,8:W 804,8:805,200:806,59:807,247:| 808,30:809,54:810,14:811,14: 812,45:813,12:814,12:815,36: 816,28:817,92:818,0: 232,0:233,3 3:1:0 :770,6:771,0:1772,35:773,0:774,8:775,8:U776,8:777,54:778,54:779,54:z780,39:781,36:782,36:783,60:784,54:785,54:786,54:787,39:788,36:789,36:790,60:791,54:792,54:793,54:794,39:795,36: 796,36:797,60:7;(,"(TOP TO BOTTOM) 0 THROUGH 19.":V6"THE BOARD WRAPS AROUND BOTH VERTICALLY"@"AND HORIZONTALLY, SO THE TOP AND BOT-"J"TOM ROWS (OR THE LEFTMOST AND RIGHTMOST"T"COLUMNS) ARE ADJACENT. HAVE FUN!"^23:490pz768,2:769,09:"LESS THAN 2 NEIGHBORS OR MORE"R9:"THAN 3 (DEATH FROM LONELINESS OR";q9:"OVERCROWDING).":5470"LIFE IS PLAYED ON A 35X20 BOARD. HORI-""ZONTAL LOCATIONS (X) ARE (LEXT TO RIGHT)";""0 THROUGH 34. VERTICAL LOCATIONS (Y) ARE"VAL - AN INHABITED PLACE WILL STILL";Q9:"BE INHABITED IN THE NEXT GENERA-";9:"TION IF IT HAS 2 OR 3 NEIGHBORS.";:"DEATH - AN INHABITED PLACE WILL BECOME"9:"EMPTY IN THE NEXT GENERATION"9:"(THE MARKER WILL DIE) IF IT HAS"&S. 'HAVING TWO";x"NEIGHBORS' MEANS HAVING TWO ADJACENT"`"PLACES WHICH ARE INHABITED.":"BIRTH - AN EMPTY PLACE WILL GIVE BIRTH"9:"TO A MARKER IN THE NEXT GENERA-"9:"TION IF IT HAS EXACTLY 3 NEIGH-"9:"BORS.":%"SURVI STATE, WHERE YOU MAY MO-"H<"DIFY THE PATTERN, SAVE IT TO DISK, RE-"vF"TURN TO THE RUN STATE, OR END THE PRO-"P"GRAM.":5470Z"FOLLOWING ARE THE THREE BASIC LAWS."d"REMEMBER THAT EACH PLACE ON THE BOARD"n"HAS EIGHT ADJACENT PLACEVIVAL, AND DEATH. YOU SIMPLY WATCH"Q"THE PATTERNS CHANGE AS THE GENERATIONS"b "EVOLVE.":"IN ADDITION, YOU MAY CHANGE THE PATTERN""AT THE END OF ANY GENERATION. PRESSING"("'ESC' WILL SWITCH FROM THE RUN STATE"2"BACK TO PLAYERALLED A GENERATION.":C"YOU PLAY LIFE BY ENTERING THE PATTERN"q"FOR THE FIRST GENERATION, AND THE WAT-""CHING IT EVOLVE. EACH GENERATION DETER-""MINES THE PATTERN FOR THE NEXT GENERA-""TION BASED ON THE LAWS OF BIRTH,"#"SURCL%(CN)Y:DL%(CN)D0CNCN1:CL%(CN)16 PXL34:XH0:YL19:YH0V \b"LIFE IS A GAME OF PATTERNS. A PATTERN""IS MADE UP OF INHABITED PLACES (OCCUPIED";"BY MARKERS) AND EMPTY PLACES. ANY ONE""PATTERN IS CLXHIXL:XLXH:XHI:XL0XH34XL0:XH34yYLNY(YL1):YHNY(YH1):YLYHIYL:YLYH:YHI:YL0YH19YL0:YH19XL04550I0XL1:CNCN1:CL%(CN)1:XXLXH:YYLYHD%(X,Y)Ă:4610DD%(X,Y)CNCN1:D%(X,Y)0NMNMDNCNC1" NDNDD1 XXLXLX@ YYLYLYO XXHXHX^ YYHYHYdjzX2X1X1"Y2Y1Y1,X3NX(X2):Y3NY(Y2)6D%(X3,Y3)D%(X3,Y3)D@:^4090CN0,XLNX(XL1):XHNX(XH1):X194120&D%(X1,Y1)D%(X1,Y1)D@D%(X1,Y)D%(X1,Y)D^D%(X1,Y1)D%(X1,Y1)DxD%(X,Y1)D%(X,Y1)DD%(X,Y)D%(X,Y)DD%(X,Y1)D%(X,Y1)DD%(X1,Y1)D%(X1,Y1)DD%(X1,Y)D%(X1,Y)DD%(X1,Y1)D%(X1,Y1)D GE: "ND;21)"BIRTHS+DEATHS: "NCP NMĺ"ALL LIFE HAS BECOME EXTINCT...":3505t NCĺ"LIFE IS STABLE...":3505 "HIT ESC FOR PLAYER STATE"; 4500:30002PC(X),PC(Y)P%(X,Y)1P%(X,Y)D1:P%(X,Y)D1X0X34Y0YX1:3120 18 DDL%(I)8 NN%(X,Y)D:N%(X,Y)Nu P%(X,Y)ĴN3100,3100,3110,3110,3100,3100,3100,3100,3100 N33110 4000& 180   (16384)155I(16368):195 21:"GENERATION "NG;21)"MARKERS: "NM "NET CHANDD$"CLOSE"F$:XX4:YY4:20:18:1000A:21:18:20:X4X:Y4Yd"NAME FOR "XX$;:F$:F$XX$F$uDD$"OPEN"F$&"MEASURE FROM CURSOR? (Y OR N)";Z$0XO0:Z$"Y"XO1:  NC0:ND0:NGNG1: X0 I1CN  YCL%(I):Y0X2X2X4:Y2Y2Y4$618:X2:Y2:18,@:6J1780<YP$"ADD FROM DISK":1800jDD$"READ"F$qM|I1MX,Y:XOXXX4:YYY4X34XX34Y19YY19XNX(X):YNY(Y):18:4000:18:21:P$F$" DONE"%DX1XNX(XDX)%YNY(YDY)9DX0:DY0:1050IDX1:1410XDX1:1410hDX1:1420wDX1:1420}NM1050P$"COPY TO DISK":1800DD$"WRITE"F$NMX034:Y019P%(X,Y)1600"X2X:Y2Y,XOXA$"A"1700A$"W"Ľ::322A$(27)3500KA$"H"ĉ:250:1000fA$"Q"ĺ:::DD$"FP"p1050v(4000:1050FP0ZY281528:X282728:X2,Y2::d3:1050xDY1:1443DY1:1443DX1:1443"; $31:X","Y" "; )18& .A$. 818? BA$"X"1300P LA$"G"1370a VA$"N"1350r `A$"U"1410 jA$"D"1420 tA$"L"1430 ~A$"R"1440 A$"Y"1450 A$"I"1460 A$"S"1470 A$"F"1480 A$"C"1500  QUIT PROGRAM (END)" $ 32,0L "HIT ANY KEY TO CONTINUE";:Z$::R XX l 16304,0::21 "COMMANDS - X G N U D L R Y I S F C A Q" " H FOR HELP ESC TO RUN" "MARKERS: X,Y:"; 23:10:NM" OVE RIGHT"! "Y - UP AND LEFT"9 "I - UP AND RIGHT"R "S - DOWN AND LEFT"l "F - DOWN AND RIGHT" "C - COPY TO DISK" "A - ADD FROM DISK" "W - WIPE AND RESTART" "ESC - GO TO RUN STATE" "H - RE-DISPLAY THIS PAGE" "Q -ER STATE."7 "IN THAT STATE, THE FOLLOWING COMMANDS"M ""ARE AVAILABLE:"` ,33,32:32,8: 6"X - PLACE/REMOVE MARKER" J"G - TURN ON GRID" T"N - TURN OFF GRID" ^"U - MOVE CURSOR UP" h"D - MOVE DOWN" r"L - MOVE LEFT" |"R - MX(X35)' "NY(Y)20(Y0)Y(Y20)9 $PC(Z)8Z4\ 2P%(34,19),N%(34,19),D%(34,19)s 7CL%(734),DL%(734) <DD$(4):XX$"LIFE PATTERN " 250 :NM0 4630 X17:Y10 1000  "PRESS ANY KEY TO GO INTO PLAY::7:44096-P$"WELCOME TO LIFE"920:22P1PC(X),PC(Y):g20(P$)2);P$:20(P$)2);P$;:10:P$"DO YOU NEED AN INTRODUCTION?":20P$"(Y OR N)":21A$:A$A$"Y"İ50006000 NX(X)35(X0)     68:"";H$"R+(H$,1)"Y"20207"\+(H$,1)"N"11080B"f+31111\"y16368,0::936::v"֭(39(0)6)34P34QO AND PRESS RETURN)";A! +VTB2:868:VTB1:36,TB:868:"";H$Y!*+(H$,1)"Y"11060u!/+H$"":P15:OQ500:2490!4+(H$,1)"N"11040!>+(VTB):868:(VTB1):"WOULD SOMEONE ELSE LIKE TO PLAY? ";:VTB(37):TB(36) "H+23:868:VTB1:36,TB:86286)1278560 !P1608560^ !936::: PADDLES ARE IN AND SPACE BAR HAS BEEN PRESSED. * "ESC" KEY HAS BEEN PRESSED +16368,0:936:(34)0Ģ10 +"WOULD YOU LIKE TO CONTINUE" +"PLAYING? ";:VTB(37):TB(36)!+::"(TYPE YES OR NADDLE SET. PLEASE PLUG IN THE PADDLE"OR!"SET AND THEN PRESS THE SPACE BAR."|\!:"IF YOU DO NOT HAVE PADDLES, YOU MAY"f!"EXIT THE GAME BY PRESSING THE ESC KEY."p!P(16384):P1558560z!16368,0:P1558580:11000 !(16287)127(1b768,173:769,48:770,192:771,136:772,208:773,4:774,198:775,7:776,240:777,8:l778,202:779,208:780,246:781,166:782,6:783,76:784,0:785,3:786,96v4! PADDLES NOT PLUGGED IN>!10:"BRICK OUT REQUIRES THE USE OF THE APPLE"&H!"P:23:* I125125(1):20:I:M1:N02 8023:1:868:50,63:" PUSH PADDLE BUTTON TO BEGIN THE GAME ";:50,255:OQ500:23:1:868:" <<< PLEASE USE THE OTHER PADDLE. >>> ";6,40:7,30:768ERASE20:X SOUND ROUTINEU16384)1552900^ 23:8687h A:X,Y3:Y120(1)@r X19c| V1:W5(1)2:LL1:L1800| (A$)ĭL1ĺA$", "; L1ĺ"THIS IS BALL ";6L;" OUT OF 5." (16384)15511000 L13010 50,63:"THIS IS THE LAST BALL"; 50,255BEGIN THE GAME ";:50,255`J K120:K: ALLOW TIME FOR USER TO RELEASE BUTTON FROM LAST PUSHhT 20X P1(1):((OOLDP1P1)3(16286)127)ERASEİ4810Y OOLDP1P1:WRONG PADDLEZ ERASEERASEERASE1[ ERASE1İ4800] (16287)128(P(16384):(16287)12724807 P160P1552460R 16368,0:P15511000a :24:1:k 936 :A2:B12:C9:D13:E2:F15:COLORS LL5:P15 355 OOLDP1(1), 13006 S0:Y19:L6@ 23:50,63:" PUSH PADDLE BUTTON TO K O U T ";::"========================================"p. 12:" COPYRIGHT 1979 APPLE COMPUTER INC"xj 20t :"(PRESSING THE ESC KEY WILL END THE GAME)" 23:"PRESS THE SPACE BAR TO BEGIN....";:(40)(41)256(36),96:16368,0 72335P156P1412260("";A$:(A$)02335` I1(A$):((A$,I,I))642330m I:II1 A$(A$,I,(A$)):(A$)ĭ(A$)12A$(A$,12) 2490@$ 936:5:"========================================";::" L I T T L E B R I CTH THE PADDLE HELD OFF-CENTER."':516368,0"* BEFORE WE BEGIN, PLEASE TYPE":"* YOUR FIRST NAME AND THEN PRESS":"* THE KEY MARKED ";(34);"RETURN";(34);(40)(41)256(36),96: CURSORP(16384):P15511000(16287)12"* A WALL OF BRICKS WITH A BALL":"* STRUCK BY YOUR PADDLE."::"* YOU CONTROL THE PADDLE ON THE BOARD":"* BY TURNING THE APPLE PADDLE (0)."::"* YOU MAY ";(34);"PUT ENGLISH";(34);" ON THE BALL":"* (DEFLECT THE BALL) BY HITTING IT":"* WIa2340if"***************************************";:1:1:"***************************************"p10:1,460:0,4739: "DRAW" ASTERICKS (*) ALONG EDGESz3:"* BRICK OUT IS A DYNAMIC BOARD GAME":"* IN WHICH YOU ATTEMPT TO KNOCK DOWN"A7000: POKE SOUND ROUTINE0:936:16298,0X*(16287)127ĭ(16286)127İ85004 ^IF BOTH PADDLE SWITCHES READ "ON", THEN PADDLES ARE NOT PLUGGED IN.>24\QILLJPOQXYKWEVDFNMZS:SET UP VARIABLE TABLE FOR MAXIMUM SPEED50,255'@BANUSQ5:21:1:"TOTAL=";7JQ1500:QJTQSSBANUS5U^8:Q;oh6,150Q40:7,3:768r6,140:7,2:768|6,50:7,3:768K110(1)20:KQ::lH180:OD(16336):H:2910 *** START OF PROGRAM ***?22:50,63:L1ĺ" BONUS POINTS: "xL1ĺ"BONUS POINTS FOR ";L;" BALLS LEFT: "22:Q11800:QQ0L50532:Q;6,180:7,10:768"6,200(1)50:7,10:768,6,160Q10:7,12:7686Q:-> 1 2 3 4 5 6 7 8".P24:958:"SCORE= 0";wZ(787)37ĭ(788)381390: IF "VARIABLE" ALREADY INITIALIZED, SKIPd787,37:788,38:789,0:790,0: SET FLAGS AND INIT NON-CLEARING VARIABLEn22:"HIGH SCORE= ";(789)(790)256;:1: BONUSECt790,S256:789,S(790)256: POKE NEW HIGH SCORE INTO PLACEY~21:15:"FORMER"}Z(16384):(16287)127119020:Z1551160 Z15511000OQ500:2520 PRINT POINT SCALESCOLE6LL(936:"POINTS PER BRICK 50,63:24:"PUSH BUTTON FOR NEW GAME, ESC KEY TO EN";:2039,4:50,255:16368,0V "POKE 2039,4" POKES AN INVERSE "D" INTO THE LAST SCREEN POSITION, AVOIDING SCROLLING.`SSBANUS:BANUS0jS(789)(790)2561160: NEW SCORE LESS THAN HIGH SCOR""O.K.":"TRY IT AGAIN!":11000NVC1030D"FAIR. ":1100f"GETTING REALLY GOOD.":1100}"NOT BAD. ":1100"GOOD.":1100$"VERY GOOD.":1100."VERY, VERY GOOD.":11008"EXCELLENT.":1100B"NEARLY PERFECT.":1100PLEP ON TRYING!":NVC1:1100( NVC1950h "STILL NOT GREAT,":"BUT KEEP WORKING AT IT.":NVC11:1100 "ALL RIGHT.":"JUST KEEP TRYING.":1100 NVC990 EXTP910 "PRETTY BAD!":1100 "MUCH BETTER THAN IT WAS.":"KEEP GOING!":1100MP" 1100< 24::::22:"YOUR SCORE IS ";:S10910M *S50EXTP1^ 4S100NVC0l >S20960{ HS601010 RS1201040 \S2001050 fS3001060 pS4201070 zS6501080 1090 NVC930 "NOT TOO GOOD, BUT":"KES720250# ^24::::1500:7606 cE:DRAW FIELDM hI039:0,39I:I\ I20342 B:0,39I:C:W((I4(I4))4.05)(I4)394 W,W1I:W I: 23:"CONGRATULATIONS, ";:(A$)ĺA$;", "; "YOU WIN!";:868: A$"CHA36):: SIDE BOUNCE5 I16:M(16336):I:IX:M0> VVF 75T MV(V)\ M1 (K2)2,(K2)21I:SSI29:24:8:S;:23:1 '6,180I3:7,3:Z(16336):768 ,6,140I(1):7,2:768 66,50:7,3:768 J^BRICK STRUCK TI6OQ500( 20:E:KJ3:I392408 I,K)E75C I270\ V2:W(KP)2LL:M1s 6,150(W)4:7,3 Z(16336)(16336)(16336)(16336):768 75 WW:JY:Z(16336)(16336)(16336)(16336)(16336)(16336)(163w  2000(Q(0):(QOQ)5(Q)ıEZ(16384):Z15511010cOQQ:Q(39Q6):Q0Q0r(Q34Q342D:Q,QLL0:A:PQď0,Q10<QPďQLL1,390FPQ:KX,Y3:F:I,K:XI:YJPJYW:J0J119İ230xIXV:I01900          -"AND SHOT THE KID "(30(1))6" TIMES"W"IN THE "C$(9)". THE KID DROPPED IN"o" A POOL OF "I$".""'"J$"' TEX SAID, I HATED TO DO THAT""BUT HE WAS ON THE WRONG SIDE OF THE"C$(10)"."700 "IF YOU PLAN ON JOINING THE ALOON.".:"'DRAW TEX,' HE YELLED "B$(3)"."R"TEX REACHED FOR HIS "C$(4)",""BUT BEFORE HE COULD GET IT OUT OF HIS"C$(5)" THE KID FIRED, HITTING TEX IN ""THE "C$(6)" AND THE "C$(7)".":"AS TEX FELL HE PULLED OUT HIS OWN "C$(8)"RODE INTO TOWN. HE SAT "B$(2)" ON THE "W"SADDLE, READY FOR TROUBLE. HE KNEW THAT""HIS "A$(1)" ENEMY, "E$" THE KID WAS ""IN TOWN. THE KID WAS IN LOVE WITH TEX'S""HORSE, "F$". SUDDENLY THE KID CAME ""OUT OF THE "A$(7)" NUGGET SAAIR AND A "A$(10)" TAIL. IT ANSWERS"O"TO THE NAME OF "F$". WHEN LAST SEEN"x"IT WAS CARRYING A "C$(5)" IN ITS ""MOUTH. A "A$(11)" REWARD IS OFFERED."700936:10)"AN ADULT WESTERN""TEX "G$". THE MARSHALL OF "D$" CITY"(THE",U"HOOD, A "A$(5)" PAINT JOB, "A$(6)Y^"TIRES AND THE BACK OPENS INTO A "A$(7)~_C$(3)". WILL CONSIDER TAKING A"r"SLIGHTLY USED "C$(4)" IN TRADE."|:"LOST: IN THE VICINITY OF "H$", "}"A "A$(8)" FRENCH POODLE WITH "A$(9)$"HD":1 6"FOR SALE:1957 SEDAN. THIS "A$(1)" CAR"[ @"IS IN A "A$(2)" CONDITION. IT WAS " A"OWNED BY A "A$(3)" SCHOOL TEACHER " J"WHO ALWAYS DROVE IT "B$(1)". THERE" K"IS A "A$(4)" "C$(1)" IN THE BACK "T"SEAT. IT HAS A CHROME "C$(2)" ON 3,4 ";N: N0N5265:A "COME ON NOW...1,2,3,4";N:250G y "WOULD YOU LIKE THE STORY PRINTED?";:A$:A$ A$"Y"ĺ(4)"PR#1"::271 936:25 N1300 N2400 N3500 N4600 ,936:10)"DAILY GRUNT CLASSIFIECAL LOCATION? ";H$) "A LIQUID? ";I$] "AND FINALLY AN EXCLAMATORY WORD OR TWO? ";J$ "VERY GOOD, WOULD YOU LIKE A:" :10)"1 NEWS AD " 10)"2 A WESTERN" 10)"3 A ARMY STORY" 10)"4 A LETTER" ::"WHICH ONE? 1,2,ND IN 'LY'. (IE SLOWLY, ETC.)2 nI15:B$(I):Ib x:"OK, NOW FOR 10 NOUNS. (IE DOG,BOAT,ETC)x I110:C$(I):I :"HOW ABOUT TWO MEN'S NAMES? ";D$,E$ "THE FIRST NAME OF A GIRL? ";F$ "AND SOMEONE'S LAST NAME? ";G$ "A GEOGRAPHIRITE SOME STORIES."B ("YOU'LL SUPPLY THE WORDS AND I'LL SUPPLY"U )"THE PLOT.": <"FIRST I NEED 11 ADJECTIVES. THEY MODIFY" F"A NOUN. (IE RED, DIRTY, LARGE, ETC.) PI111:A$(I):I Z"NOW I NEED 5 ADVERBS. THEY MODIFY VERBS" d"AND E:16368,0:800%2553 936::K 11)"** MADLIB **"[:15)"BY"z8)"CREATIVE COMPUTING":6)"ADAPTED FOR THE APPLE"9)"BY LOU LAURICH":X13000:XA$(11),B$(5),C$(10) "OK, WE'RE GOING TO W      1N(1)N(2)495280 M3M1(QA)TCTC;5020E2390M24c220(N(2)N(1))i" THE WINNER! ";:A$:X201116:" WIPEOUT! "Y1X:Z(K)::52901pNX1:NY51,OX55OY1&(OX51,OX55OY025020M<B(X,Y)0QZ(0):5120tF(OXX)2(OYY)2QZ(0):5120PQY(0)ZNXX:NYYdE((NXOX)1(NYOY)1)n1010x1120:take-over enemy blobsB(NX,NY)MN(1)0N(2)05320computer selects move/1550:select square=ESC5260ZB(X,Y)MQZ(0):5040hOXX:OYYw97(M1)X51,X5Y51X51,X5Y5QY(0)1550:select second square ESC0(OXXOYY)518015(M1)OX CREDIT   11318);"BLOBS!"9 V*13);"BY NATHAN FISHER"\4q BLOBS START 1890:setup2390:print score(49152)15545003200:verify a move is availableESC5260(CP1M2)CP0İ2460:VX)VX2(VX5)(VX5)G B(VH,VV)0XVVX:YVVY:VY7:VX7:VV7:VH7O :W :f ESC(XV0)l } CREDITS 4600X1150(49152)127X15049168,0 EXIT 460049168,0A$(20)A0:TC1,A A$"?"A0:TC1:QA1AD A2Č198:3100JN CPAPX Vb   VERIFY THAT MOVES ARE AVAILABLE  XV0 VY17 VX17 B(VX,VY)MĂ::3290 VVVY2(VY3)(3VY)VY2(VY5)(VY5) VHVX2(VX3)(3CVA$("I M",2(CVMY),1):/ CD0:A$" ":N  GET NUMBER OF PLAYERS T Z b 17r " BLOBS! "x ~  12 "HOW MANY PLAYERS? "; A$& A(A$)( QA0+ A$"T"A1:TC10 A$(27)4500: A0A$"0"A4? T CHCH(B):CVCV(B)h 8r  COMPUTER MOVES CURSOR Ht ZZ1500:`w CEA$(27):CE0:o| CD12980 MXCXA$("J K",2(CXMX),1): MYCYA$("I M",2(CYMY),1): CD2:A$" ": MXCHA$("J K",2(CHMX),1): MYTF(((1)CM)):CMCM1- CBBTF1:CM1^ FBTCB:CX(0)CX:CY(0)CY:CH(0)CH:CV(0)CVt 0:CH52,CV52z   0:CX52,CY52  " CE(BT99)' CD1, CEı6  LOCK IN THE MOVE @ B0J CXCX(B):CYCY(B)HCX2800!P B(CH,CV)Ă::28208Z 12:CH52,CV52Ad CB0_n J((CXCH)1(CYCV)1)|x VCV(CV1)CV(CV7) HCH(CH1)CH(CH7) B(H,V)OCBCB2   F0 JCB6CB2:J0 JCBCBJH CBCBJ CBB2/ B(CX,CY)MĠ0:CX52,CY52:::28508 JH0E TC2610O JH2a CVCY1CY1s CHCX1CX1 B(CH,CV)MJHJH2 ( 2 CVCY2(CY3)(3CY)CY2(CY5)(CY5)< CHCX2(CX3)(3CX)CX2(CX5)(CX5) F CVCYCESS SPACE TO CONTINUE, ESC TO END...";J5ZFIN$:IN$" "(IN$)2718010_5dF(IN$)2731111e5nF5yI12000:::10:"WOULD YOU LIKE TO PLAY AGAIN ";5yIN$:IN$"Y"1505y(994)(1001)192Č9765y:::5,54:13946,96:13947,0:4?+4hBSC5ıa4iB10:7,929:30,319:9,1432:33,3414:14,25354mB5,88:9,8:8,1310:11,13:13,17124rBRPT154|B138244B7:138274B138244B9:138274BRPT4B138244B5:138274B&5PF24:" PR173:13923,162:}3>13924,48:13925,133:13926,36:13927,173:13928,163:13929,54:13930,133:13931,37:13932,165:13933,48:3>13934,41:13935,15:13936,141:13937,164:13938,54:13939,165:13940,48:13941,41:13942,240:13943,141:4>13944,165:139499,161:13900,54:13901,145:13902,40:13903,200:2>13904,192:13905,40:13906,144:13907,213:13908,160:13909,0:13910,104:13911,105:13912,0:13913,197:3>13914,34:13915,144:13916,196:13917,32:13918,193:13919,251:13920,133:13921,40:13922,:13876,41:13877,240:13878,24:13879,109:13880,160:13881,54:13882,145:13883,40:1>13884,177:13885,40:13886,41:13887,240:13888,205:13889,165:13890,54:13891,208:13892,10:13893,177:12>13894,40:13895,41:13896,15:13897,24:13898,109:138:13853,133:z0>13854,36:13855,133:13856,37:13857,72:13858,32:13859,193:13860,251:13861,133:13862,40:13863,164:0>13864,36:13865,177:13866,40:13867,41:13868,15:13869,205:13870,164:13871,54:13872,208:13873,10:U1>13874,177:13875,409,41:13830,15:13831,141:13832,160:13833,54:/>13834,165:13835,48:13836,41:13837,240:13838,141:13839,161:13840,54:13841,165:13842,36:13843,141: 0>13844,162:13845,54:13846,165:13847,37:13848,141:13849,163:13850,54:13851,169:13852,0;I,J:J015320#.;SC10154008.;I,J:J015340L.(13824,76:13825,108:13826,54:13827,165:13828,48:1382SC7Ė15:" HOT AND DRY ";7-P;SC10Ė17:" CLOUDY ";a-R;SC5Ė14:" THUNDERSTORMS! ";:17000g-`;~-j;A$:A$"*"15210-t;SC215300-~;I,J:J015500-;K1J:768,I:769,10:770-;LKJ:::15230-;I,J:J015300-;SC715400.Ġ0J,6;6,102:4,143:7,124:22,304:20,365:23,336:::17000:15170W,8;SC7Ġ9,:;3,51:2,62:I36:1,7I::2,67:3,58,B;22:8:" LEMONSVILLE WEATHER REPORT ":,G;22:8:" LEMONSVILLE WEATHER REPORT ":,L;SC2Ė18:" SUNNY ";-N;+8:(7):"...READY TO BEGIN? ";A$;+8(A$,1)"N"13000A+8X+: WEATHER DISPLAY`+::{+;SC:I025:0,39I:I+;12:I2639:0,39I:I+;8:I2432:15,25I:I+.;13:I17232:22,23I:I+/;SC2SC715160+0;SC10Ġ15,5;SC5*@8I1N::@*J8"PLAYER NO. ";I;", HOW MUCH MONEY (ASSETS)":W*T8"DID YOU HAVE? ";l*^8"";A$:A(A$):*h8A2ĺ"O.K. - WE'LL START YOU OUT WITH $2.00":A2:14490*r8A40ĺ"JUST TO BE FAIR, LET'S MAKE THAT $10.00":A10*8A(I)(A100.5)100:$BER IT WAS? ";/)F7"";A$:A(A$)::A014200p)P7A$(A$,1):A$"Y"ĺ"GOOD! WHAT DAY WAS IT? ";:II1:14150)Z7A$"N"I014300)d7(7);"YES OR NO? ";:II1:14150)x7A1A99A(A)14300)7DA)7"OKAY - WE'LL START WITH DAY NO. ";D1: MONEY THAN YOU HAVE! ":%(318000-(3:F(6 CONTINUE OLD GAME[(7936:(7);:I0(7"HI AGAIN! WELCOME BACK TO LEMONSVILLE! ":((7"LET'S CONTINUE YOUR LAST GAME FROM WHERE"(27"YOU LEFT IT LAST TIME. DO YOU REMEMBER ")<7"WHAT DAY NUMNCOME FROM SALES AND YOUR EXPENSES.":V'3"THE NUMBER OF GLASSES YOU SELL EACH DAY "'3"DEPENDS ON THE PRICE YOU CHARGE, AND ON "'3"THE NUMBER OF ADVERTISING SIGNS YOU USE.":'3"KEEP TRACK OF YOUR ASSETS, BECAUSE YOU "(3"CAN'T SPEND MORE TO MAKE LEMONADE IS TWO CENTS "Q&3"A GLASS (THIS MAY CHANGE IN THE FUTURE).":\&318000b&3&3"YOUR EXPENSES ARE THE SUM OF THE COST OF"&3"THE LEMONADE AND THE COST OF THE SIGNS. ":&3"YOUR PROFITS ARE THE DIFFERENCE BETWEEN "&'3"THE IING)"]%T3"2. HOW MANY ADVERTISING SIGNS TO MAKE (THE SIGNS COST FIFTEEN CENTS EACH) "%^3"3. WHAT PRICE TO CHARGE FOR EACH GLASS ":%h3"YOU WILL BEGIN WITH $2.00 CASH (ASSETS)."%r3"BECAUSE YOUR MOTHER GAVE YOU SOME SUGAR,"&|3"YOUR COST => ";N$+$/N(N$):N1N30ĺ(7);:122201$/E$2 NEW BUSINESSK$,3{$63"TO MANAGE YOUR LEMONADE STAND, YOU WILL "$@3"NEED TO MAKE THESE DECISIONS EVERY DAY: ":%J3"1. HOW MANY GLASSES OF LEMONADE TO MAKE (ONLY ONE BATCH IS MADE EACH MORN YOU"7#/"MAKE THE MOST MONEY, YOU'RE THE WINNER!!":g#/"ARE YOU STARTING A NEW GAME? (YES OR NO)"#/21:958:"TYPE YOUR ANSWER AND HIT RETURN ==> ";A$#/A$(A$,1):A$"Y"A$"N"ĺ(7);:12200$/23:958:"HOW MANY PEOPLE WILL BE PLAYING =YOU ARE IN CHARGE OF"E"b/"RUNNING YOUR OWN LEMONADE STAND. YOU CAN"u"l/"COMPETE WITH AS MANY OTHER PEOPLE AS YOU""v/"WISH, BUT HOW MUCH PROFIT YOU MAKE IS UP""/"TO YOU (THE OTHER STANDS' SALES WILL NOT"#/"AFFECT YOUR BUSINESS IN ANY WAY). IF55,152,40,171,80,192,40,228,255,1,40,0,160,192,255,192,40,171,80,152,40,128,255,0,0`!- MUSICp!-I,J:J0ı!-768,I:769,J:770!-11710!. TITLE PAGE!D/::(7);!N/"HI! WELCOME TO LEMONSVILLE, CALIFORNIA!":"X/"IN THIS SMALL TOWN, L;LL;,;L;LL;,;;;LL;,,,,,*J - 96,16,85,4,128,4,96,4,76,4,128,4,96,16,0,0 - 114,120,144,60,114,255,1,120,128,120,144,60,128,120,114,60,144,120,171,255,228,255,0,0 - 152,180,152,120,152,60,144,120,152,60,171,120,192,60,152,255,0,0S!(- 0,160,128,212%,32,0:33,40:34,20:35,23:22<,I14000::I(0)B,N, DATA, 96,180,128,60,114,60,128,120,144,60,152,60,128,255,128,60,114,60,85,120,96,60,102,60,114,120,102,60,96,255,0,0 - ,,,,,,L;LL;,L;LL;,;;LL;;,L;LL;,L;;;;,,,;L;;;;,;L;LL;,;5,1958,I3971:15:18,37I:12:I39ď18,36I1OB,15:I30ď18,36I10L,12:I29ď18,37I11:32,I11:11:I12::A$:A$;V,J14II:::I11000:`,13:14,3612:I36201:8,16Ij,J150::768,I312:769,12:770::12:14,19;L;LL;LLLLLLLL";A+"LLLLLLLLLLLL;LL;LL;;;;L;LL;L;LL;LLLLLLLL";r+"LLLLLLLLLLLL;LL;LL;LL;L;LL;L;LL;LLLLLLLL";,"LLLLLLLL;;;;;LL;LL;;;;L;LL;L;;;;LLLLLLLL";,23:" COPYRIGHT 1979 APPLE COMPUTER INC."$,11700:I12000:.,33,1:34,9:3L;L;LL;L;LL;L;LLL";D+";;;;L;;;;L;LLL;L;;;;L;LL;L;;;;L;;;;L;;;;";L+11}+"LLLLLLLL;;;;;LL;LLLLLLLLLLLLLLL;LLLLLLLL";+"LLLLLLLL;LLLLLL;LLLLLLLLLLLLLLL;LLLLLLLL";+"LLLLLLLL;LLLLL;;;L;;;;L;;;;L;;;;LLLLLLLL";+"LLLLLLLL;;;;;LL;LLLLL;L;LLLLLLLLLLLLLLLLLLLLLLLL;LLLLL";Op+";LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL;LLLLL";z+";LLLL;;;;L;;;;;L;;;;L;;;;L;;;;L;;;;L;;;;";+";LLLL;LL;L;L;L;L;LL;L;LL;LLLL;L;LL;L;LL;";+";LLLL;;;;L;L;L;L;LL;L;LL;L;;;;L;LL;L;;;;";+";LLLL;LLLL;L;L;L;LL;L;L71,48:772,192:773,136:774,208:775,5:776,206:777,1:778,3:779,240:780,9:781,202~'782,208:783,245:784,174:785,0:786,3:787,76:788,2:789,3:790,96:791,0:792,0'* INTRODUCTION\+:::12:I039:0,39I::2f+";LLLLLLLLLLL::" ";L(I);7);"GLASSES MADE":hSTIE:4000:" ";S(I);7);"SIGNS MADE";25);"EXPENSES ";STI$::STIP1:4000:16);"PROFIT ";STI$:STIA(I):4000:16);"ASSETS ";STI$18000 :' INITIALIZE'0:0Wt'770,173:7(STI)&STI(STI)STI$STI$".0"MSTI(STI10.5)10STI$STI$"0"S`6:34,5" DAY ";D;30);"STAND ";I::" ";N2;7);"GLASSES SOLD":STIP(I)100:4000:STI$;7);"PER GLASS";STIM:4000:27);"INCOME ";STI$"NDS WERE BEING SET UP."E8 "UNFORTUNATELY, EVERYTHING WAS RUINED!!"YB J1N:G(J)0:cL 1185q` X41805zj X41~ "A HEAT WAVE IS PREDICTED FOR TODAY!" R12 805  STI => DOLLARS.CENTSSTI(STI100.5)100STI$"$"805-"THE STREET CREWS BOUGHT ALL YOUR"L"LEMONADE AT LUNCHTIME!!"V1185k THUNDERSTORM!y X31:R30 SC5:15000:: "WEATHER REPORT: A SEVERE THUNDERSTORM"$ "HIT LEMONSVILLE EARLIER TODAY, JUST AS". "THE LEMONADE STA LIGHT RAIN,"5C"AND THE WEATHER IS COOLER TODAY."DHR11J100MRX11V\805dX21805"THE STREET DEPARTMENT IS WORKING TODAY.""THERE WILL BE NO TRAFFIC ON YOUR STREET."(1).52233R222250R1.1X21USINESS YOU'RE BANKRUPT!"%dB(I)12f18000:HiN1B(1)131111OnIXsR11atR20jx400 RANDOM EVENTSSC102110SC72410(1).2522108054X11805>J30((1)5)10 @"THERE IS A ";J;"% CHANCE OF01ES(I)S3L(I)C1# P1ME4A(I)A(I)P1EH(I)12300K(])B(I)11330."STAND ";I;:" BANKRUPT":18000/139025000FA(I)C1001390P"STAND ";IU:" ...YOU DON'T HAVE ENOUGH MONEY LEFT"Z" TO STAY IN B32350I1N%A(I)0A(I)04R221260GP(I)P91220dN1(P9P(I))P9.8S2S2n1230N1((P92)S2P(I)2)WS(I)C9V1((W)C2)N2R1(N1(N1V))N2(N2G(I))N2L(I)1270N2L(I)MN2P(I).:SC10(1).252300Fj"$$ LEMONSVILLE DAILY FINANCIAL REPORT $$"Loft768,152:769,80:770v768,128:769,160:770x768,152:769,40:770z768,144:769,80:770|768,128:769,200:770 CALCULATE PROFITSR222290R3ONADE ";P(I),P(I)0P(I)100102261024b"COME ON, BE REASONABLE!!! TRY AGAIN."l1010P(I)(P(I))1022C51105023:"WOULD YOU LIKE TO CHANGE ANYTHING?";A$$(A$,1)"Y"ė:C51:810LMIVC50::`950S(I)(S(I))963;S(I)S3A(I)L(I)C11010A\STIA(I)L(I)C1:4000"THINK AGAIN, YOU HAVE ONLY ";STI$"IN CASH LEFT AFTER MAKING YOUR LEMONADE."950:"WHAT PRICE (IN CENTS) DO YOU WISH TO""CHARGE FOR LEM);" GLASSES OF">"LEMONADE YOU NEED $";L(I)C1;" IN CASH."G890M"HOW MANY ADVERTISING SIGNS (";S3100;" CENTS""EACH) DO YOU WANT TO MAKE ";S(I)S(I)0S(I)50963965"COME ON, BE REASONABLE!!! TRY AGAIN." "WISH TO MAKE "; L(I)9 L(I)0L(I)1000903B 906m "COME ON, LET'S BE REASONABLE NOW!!!"~ "TRY AGAIN" 890 L(I)(L(I))903 L(I)C1A(I)950 "THINK AGAIN!!! YOU HAVE ONLY ";STI$"IN CASH AND TO MAKE ";L(II)A(I).000000001$ 4G(I)1:H(I)0` RSTIA(I):4000:"LEMONADE STAND ";I;26);"ASSETS ";STI$f Wv \B(I)0890 f"YOU ARE BANKRUPT, NO DECISIONS" k"FOR YOU TO MAKE." lN1A(1)C31111 p1050 z"HOW MANY GLASSES OF LEMONADE DO YOU"R11 X CURRENT EVENTS( bD3650X l"(YOUR MOTHER QUIT GIVING YOU FREE SUGAR)"f D7700 "(THE PRICE OF LEMONADE MIX JUST WENT UP)"  AFTER 2 DAYS THINGS CAN HAPPEN D22000  INPUT VALUES %:34,(37) *I1N /A( WEATHER REPORT SC(1)0 SC.6SC2:460F SC.8SC10:460O SC7] D3SC2h 15000p :  START OF NEW DAY DD1 "ON DAY ";D;", THE COST OF LEMONADE IS "; C2:D2C4 &D6C5 0"$.0";C: :C1C.01 D FEBRUARY, 19791 Z BY CHARLIE KELLNER` A(30),L(30),H(30),B(30),S(30),P(30),G(30)j P910u S3.15 S230 A22.00 C9.5 C21 , START OF GAME 612000:I1N:B(I)0:A(I)A2: @A$"Y"İ13000:400 J14000  - 14080*10000:11000:16000:135H <<< LEMONADE STAND >>>O n FROM AN ORIGINAL PROGRAM BY BOB JAMISON, OF THE( MINNESOTA EDUCATIONAL2 COMPUTING CONSORTIUM< * * *F MODIFIED FOR THE APPLE P                              3B3F1B1B1309090929090909111B1B1B3F3F1F1B1309092D2D" "2D0D09111B1B3F3B3F3B1F13092D092D0D290D111B3B1B3B3F1B3B13090D092D0D090D111B1B1B3F3B1F1B1309092D09290D09111B1B3B1B1B3B1B1309090D09090D09111B1B3F1B1B3B1F1300" 6384 MX12$ A$). I1(A$)2@8 AD((A$,I,1))48RB AD9ADAD7kL CH((A$,I1,1))48}V CH9CHCH7` L,AD16CHj LL1:It MX~ 3 "030008000A000D0006003C2E000909092D0D0909111B1B1B3B3F1F1B130909092D0D0909111B1B1B4:"GRANDSLAM!!!!!!!":22300"HOME RUN!!!!"FT;" RUNS SCORE!"_B10:B20:B30:T0:{IN2(IN2)BHBH1:RHRH1:IN2(IN2)BABA1:RARA1:1980:T;" RUN";:T1ĺ"S";"SCORE";:T1ĺ"S"; :T0: L12140,15B311970%260,75+FI1100:I:34,20::WYY1152100hYY1042200TB1B2B3:PPT:"TRIPLE!!!"B10:B20:B31:4TB2B3:PPT:"DOUBLE!!">B30:B11B31HB21:B10:TB1B2B31:PPTTЭB11B21:"RUNNER ADVANCES!":+B11:;3FT:0:1JB111840YB211860hB311880r189003211R,59:1790D3133R,13:1810X355R,60b3:137,140141,140l5:8vB1119302220,75B211950 03POZ1,P2:1060?1980:"BATTER WALKED!":1980:1710l1980:B31PP1:T1:B30:"RUN SCORES"B21B31:B20:"RUNNER ADVANCES"B11B21B11:B31B21B11T1:PP1:2290B21B11B31:"RUNNERS ADVANCE!": SCORES!"-P2124P1255İ2250:1990EFT:P2124FT2Ē0W"1:RO11590d,3PO,P2t63:2P1,YY@1:P2124Ē2JP2401640T2P15,YYY1^1660h2P1,YY5:Z10RO11060r1:P2124Ē2|RO11090Z10106'x(1).1RO1ĺ"ERROR":EE1:1700C}"BASE HIT":2250:1700TP21241440jYY56YY401450t1550YY134YY1231550(P1PO5)4148015501980:"OUT!":OTOT1:P2124B31OT2B30:PP1:1980:"SACRIFICE!!":"RUN 12901330 P3100:0)3PO,P3AYY110YY1201550K(1450m2P360:P240Z10P345:1360}7P2401360<P3143:Z10P3129PZ10Ę16ZPOPOZ1:3PO,P3dYY100YY1101450nYY20YY134P240İ1980:1400s14101115VP1XYZY12:1115%XY102[YYYYY1>`P1P15`jPO20Z14PO240Z141180stRO0POPOZ1(PT16289)128RO11390PO235P2124Z141390RO11:P2124Ē23POZ1,P2:48:Z1Z18FTP2124Z10260:I,103I,139:InXY((1)100)25:Z((1)25)5:PO(((1)40)27)2R1:P2124:P12:YY((1)55)70x1060PO(((1)64)32)2R:P1((1)230)15:YY145:P240$Z14((((PT2)15)225))BP2124YYYY5:1130LP1XYY11:0,0:62454:1980:I((1)5)1:I930,940,950,960,970S"INFIELD FLY":1040l"GROUND BALL":1040"LINE DRIVE":980"POP UP TO OUTFIELD":980"FLY BALL TO OUTFIELD"2:0,0:624541:I140159:0,I275,I:I3:I2571:50 550 Z((1)9)4- 1:0:1B*2XYCV,YX2SPS4YXYX153p>XYXYZ:XY3XY275860H3:2XY,YX:1R2XYZ,YX3\YXp(Z)4900z1980:"FOUL BALL!":STST1:ST3ST2HT0:120:1980:2270 1:1135,145 YX138BR32720)550OYX150XY137XY147STST1:50zBR64XY146BR64XY137BLBL1:50BR32STST1:50BR64XY146BR64XY137STST1:50YX137YX151BR57BR39HT1:50XY136YX147STST0610#0CV((((PT2)32)191)):NXY135CV1CV0PXXY148CV1CV0hbYXYX2SP:XYXYCV~l0:1:3:2XY,YXv1:2XYCV,YX2SP(B16288)127X41X41680YX138700550BRBR5:BR:11:1135,145 BR5:;BL;" STRIKES ";ST;:9 11:0:BR64:BR:1135,145[ A$" VISITOR":B2A$" HOME"t A$;"'S PITCH "; (PT16289)128500 XY141:YX60 (PT2)1(PT2)95SP2.5:550 (PT2)159(PT2)256SP7:550 SP4&XY1316287)127(16287)127Ľ:20' h350< r:1:0,0:62454V |PTR1:R1FT0:400_ FT3 3:0,25140,150279,25:1750 2140,147 P3133:FT3P3134 FT:0:1:3P3,44 1980 " RUNS ";P;" OUTS ";OT " BALLS "".";PE BA02909 PE(BHBA1000):31:18:".";PEd "9:23:"PRESS BUTTON TO CONTINUE..."; ,(16287)128(16286)128300 6ININ1:IN19340 @IN18BSRS340 J20 TI1100:I:9:23:" PRESS BUTTON FOR NEXT GAME ?"; ^(ɺS(I);:I 2208 BSBSS(I):I239:10:S(I);:Ij 1:14:"BOXSCORE: RUNS HITS ERRORS HIT%"; 2:16:"VISITORS":1:18:" HOME" 13:16:RS:19:16:RH:26:16:RE 13:18:BS:19:18:BH:26:18:BE PE(RHRA1000):31:16:20:B30:S(IN)P:P0:120:130' n370< xBL0:ST0:HT0:i 34,0:::10)::"ALL-STAR BASEBALL": :::"INNING":::"VISITORS"::"HOME" I19:I39:5:I;:I BS0:RS0:I1IN I2(I2)210 RSRSS(I):(I2311):8 * 17434::2320:232,0:233,64:S(18)3IN1IB2B1:R2:370Z(B2:R1:370x2IN2(IN2)REREE:70<BEBEEFE0:RO0:X40:HT1İ790:50PBL4İ120:1690ZST3İ1980:"YER OUT!!":OTOT1:120:2270 dOT2OT0:B10:B             SIC/GAMES/HOMEMADE/REVERSI":198 HPH:VPV& TP:P0:2:PT0 1170B SC(P)SC(P)1J PEX HPH:VPV (SC(1)SC(2))SC(1)SC(2)641170 21:1:958:"Red: ";SC(1);:20:"Blue: ";SC(2) 23:10 &"That's game! ";:A$: ''216,0:(4);"SAVE/BB/BA1 (FVFH)1660( "HPHFH:VPVFV8 ,3:NG1660L 6B(H,V)E1660^ @HHFH:VVFVn J3:NG1660 TB(H,V)E1600 ^B(H,V)01660 hHHFH:VVFV rB(H,V)Eİ2:SC(P)SC(P)1:SC(E)SC(E)1:1640 wDF1 |  DF1800  S1330 A2713904 (XHYVČ198:1240; 20K <HH,HH3VV] FHH,HH3VV3m PVV,VV2HH ZVV,VV2HH3 _S1500 d nZ1E9: xP3P 1170 Z1E9: 2 PHH:PVV DF0 E3P FV11 FH1HH,HH3VV HH,HH3VV3- VV,VV2HH? VV,VV2HH3N 49152,128Z XH:YVj A(KB)128r A$ HH(A83A75)(A65A74) H0H7 H8H0 VV(A90A77)(A87A73) V0V7 V8V0 S(A13A32)B(H,V) LC(2) QSC(2)' RSC(1)2:SC(2)2@ VC(0)0:C(1)1:C(2)6S `H3:V3:P1:2f jH4:V4:P1:2y tH3:V4:P2:2 ~H4:V3:P2:2 P1:H0:V0 21:1:958:"Red: ";SC(1);:20:"Blue: ";SC(2) Z11E9 C(P) HHH5:VVV5  1000gC(P):HH1H5:VV1V5:HH,HH1VV:HH,HH1VV1:B(H,V)P:BZ(BB)(BB)(BB)(BB):NG(H0V0H7V7):(21)KB49152BB163365A06$0,3845A.0,3845A8BB(7,7) T*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*U*T*U*U*U*U*U*U*U*qgO?*U*U*U*U*U*U*U*T*U*U*U*U*U*U**U*U*U*U*U*U*U*U*U*U*U*U*T*U*U*U*U*U*U*~|ysG*U*U*U*U*U*U*U*U*T*U*U*U*U*U*U*U*UbO?~T*U*U*U*U*U*U*T*UZBTD:ZF45:ZATB:ZD10:,TF69ġ:930JZATG:ZBTF:ZD20:ZF70:gZCZE:ZG0:TF69ġ:930ZATD:ZBTF:ZD45:ZF70:::W13:1010:9:"PLEASE WAIT TEN SECONDS FOR ME":12:15:"TO SET UP THE GAME."::370ZF71:ZG70:ZC1:$uTF69ġ:3355wLDSJ::370AEZDZA:BEZF((AEZG)ZC)ZB:CE14:DE14:B%(C%(AE),CE)B%(C%(BE),DE)Ă::315:::LDC%(AE):CHCE:385:A%(XM,YM,LV)0Ă::315::::380JJJJ1:803TD9ġ:930\TG19JJJJ3::803,^TD44ġ:930J`ZATG:ZBTD:ZD20:ZF45:[aLDSC::370ufTD44ġ:JJJJ3:930gTD46ġ:930hZATD1:ZD45:ZC1:ZBTD:ZF46:ZG45:kTD44ġ:930nLDSD::370pTF71ġ:930rZASJ1:ZD70:ZBSJ::ZD1:>TD44ġ:9306@ZBTD:ZF45:ZATA:ZD1:HCTF69ġ:930eEZBTF:ZF70:ZATA:ZD1:vHLDSA::370MTB9ġ:JJJJ4:803OTG19ġ:930QZATB:ZD10:ZBTG:ZF20:RTF69ġ:930UZBTF:ZF70:ZATB:ZD10:WLDSE::370*TA2ġ:9309-ZATA1:ZBTA:ZC1:ZD1:ZF2:ZG1:K/TB11ġ:930v2ZATB1:ZBTB:ZD10:ZF11:ZG10:ZC1:4ZG0:ZC0:LE2ġ:5306TA0ġ:JJJJ5:8037TB9ġ:9308ZATA:ZD1:ZF10:ZBTB:9TG19ġ:930:ZBTG:ZF20:ZATA:SELD:315:0TGTG1:C%(TG)LD:SCLD:315:STDTD1:C%(TD)LD:SDLD:315: TFTF1:C%(TF)LD:SJLD:(TF8)TF8İ315  JJ1#315:JJ810,815,820,825,830,835,840,845,940,850,855,860,945,865,870,950,875,880,885%900:JJJJ1:803LV10:SA0LDSA:3704SE0LDSE:370J&SC0LDSC:370`0SD0LDSD:370v:SJ0LDSJ:370D335X160:P80FW30:D150:4:QQ125:3:FW145,155:0:FW145,155::TATA1:C%(TA)LD:SALD:315: TBTB1:C%(TB)LD4:Y14:LV14:BLV:520::SOSO1::TLV14:X14:YX:BX:520::SOSO1:LV14:X14:Y5X:BX:520::SOSO1:LV14:Y14:X14:BX:520::SOSO1::LV14:X14:Y14:BY:520::SOSO1:::B%(SO,B)X1000Y100:XLV:BLV:520::SOSO1ELV14:X5LV:YLV:BLV:520::SOSO1pLV14:X5LV:YX:BLV:520::SOSO1X14:LV14:YLV:BLV:520::SOSO1:Y14:LV14:XLV:BLV:520::SOSO1:LV14:XLV:YLV:BLV:520::SOSO1(X1310:D20>CH14:385:160:3:CW1145,155:P60CH20:4U0:CW1145,155:rDD(16384):DD195960DD197ĉ::421X14:LV14:Y5LV:BLV:520::SOSO1:Y14:LV14:X5LV:BLV:520::SOSO1:LV14:Y5LVN:90N,117N150N,117N:P80N4:4::0hM03:N04:X2N10N:Y2N9M392:91X2,Y2150X2,Y291N15,39M2127N15,39M38:P(M1)40(N1)205:4:::0,00,181:0,159279,159:0,158279,158:21:"CONGRADULATIONS,YOU WON!!" ,LV)0Ă*|A%(XM,YM,LV)5:600:CW1420DVXXM:VYYM:VLLV:25XM(B%(LD,CH)1000):YM(B%(LD,CH)100)XM10:LV(B%(LD,CH)10)XM100YM10::2:0,0:62454:3:D7N238:N90,NN150,N:N90,39NN150,39N*N90,78N150N,78(YY2)1.7)10:YY(YY39):NNNNYY:NN159AAAA1:YN0:NN2:NY50:YY2W>AA8AA1f?AA4AA5l@O21:"WE HAVE PLAYED THE GAME TO A TIE!!"P310QDD(16384):DD195960RDD197ĉ::S337r315:CH14:385wA%(XM,YM'B%(LD,5)5İ740:3052,B%(LD,5)1İ760:305G/B%(LD,5)0İ780b1:315:LE540,800,800623:"HIT 'E' TO END OR 'C' TO CONTINUE":;AA:PQ(16336):0,YN100NY,YN:278,157YN179NY,157YN:YNYN1:NYNY1:PQ(16336):YNNNıH=NY(17,265I LD176:B%(LD,5)15CW1:21:"NICE GAME, BUT I WON!!":370T:315qLD176:B%(LD,5)3370|:315TA0:TB9:TG19:TD44:TF69:SA0:SE0:SC0:SD0:SJ0LD176:B%(LD,5)10ĴLE999,700,700:305"B%(LD,5)2İ720:305 600:25APTZX1000ZY100ZL10:CPVX1000VY100VL10tDL176:HC14:BTB%(DL,HC):PTBTWM1:230CPBT240WM5315:B%(DL,HC)B%(DL,HC)WM:B%(DL,5)B%(DL,5)WM:B%(DL,5)4Ă::EC1217,265LDDL:415::EC12BP:F 98AP,4BP105AP,4BP109AP,9BP103AP,9BP98AP,4BP:x AP(XM1)15(YM1)9:BP(YM1)9(LV1)39: FW2:PQ(0):CT1EC1:220 CT1:A%(4,4,4)0XM4:YM4:LV4:215 XM1:YM1:LV1VXXM:VYYM:VLLV:A%(XM,YM,LV)5:2201,7Y1:' ZXMXM1:XM0YMYM1:XM4> dYM0LVLV1:YM4M nLV0LV4Z qGG2:35q xLVLV1:LV5LV1 }XM1:YM1:GG1:35 ZXXM:ZYYM:ZLLV:A%(XM,YM,LV)1:FW1:600:21:"MY MOVE ":200 97AP,4BP109AP,9BP:105AP,4BP102AP,9Y1BP +PQ(16336)8 -WW(16384):WW149QQ1:70N 2WW136QQ1:90f 7WW141Ē3:86:140v <WW160120~ A40 FXMXM1:XM5XM1:YMYM1 KYM5YM1:LVLV1 PLV5LV1 SGG1:35 V102X1,6Y1104X1,6Y1:103X1,5Y1103X:G:LE$"X"ė:405:25* LE$"O"ė:19< 23:958:15\ 405:21:"MY MOVE ":200t :21:"YOUR MOVE" XM1:YM1:LV1:GG1:16368,0:X1X11:Y1Y12 #A%(XM,YM,LV)0ĴGG70,90 $16368,0 (3:86 )0:160:X1AP:Y1BP:86:X1AP:452: c A%(4,4,4),B%(76,5),C%(140):SO1:AA1:NN2:NY50:YY2:16368,0:990:450:20:958 :10:10:"WHICH LEVEL (1-3)?";:LE$:LE(LE$):LE1LE3Č958:13 LE$; G1100:G::10:10:"WHO GOES FIRST, X OR O?";:LE$:LE$;:G1100A20450:A2,173:A3,48:A4,192:A5,136:A6,208:A7,5:A8,206:A9,227:A10,79:A11,240:A12,9:A13,202:A14,208:A15,245:A16,174:A17,226A18,79:A19,76:A20,228:A21,79:A22,9620449:16385:5 20450,P:20451,D:20        SS. IT'S YOUR MOVE." WIN1:0N12000:D"NOMON C,I,O"P:936PVB9:TAB7:"WOULD YOU LIKE TO PLAY AGAIN ";RICH$:RICH$"Y"RICH$"YES"ĺ"RUN CHECKERS"C ."WE WILL FLIP FOR WHO GOES FIRST."Q"WE'LL USE MY COIN--CALL IT."h"H OR T? ";GUESS$}(1).50HEAD1 HEAD1 GUESS$"H" 4080 HEAD0 GUESS$"T" 4080"I WIN THE TOSS. I'LL GO FIRST.""YOU WIN THE TO1:BB1:II15: 1750) B7 S(A,B)24 1420?!FLAG0I& 230gX"YOU GOT ME; GOOD GAME."rY 5000]"MY LUCKY DAY; I WIN."b 5000XP7X4:YP36Y4 XP,YP: XP1,YP1: XP,YP1: XP1,YP XP,YP: XP1,YP1OR -1,-1)";A1,B1:A1A11:B1B112  A10 1810w S(A1,B1)0 (A1A)2 (B1B)2 "I OBJECT!": 1802 S(A,B)1 BB1 ĺ" NO THAT'S BACKWARDS": 1802 S((AA1)2,(BB1)2)0 " NOT YOUR OWN MAN!": 1802EA:HB:AA2 (AE)(BH) 1695@ (7) (11):"ILLEGAL MOVE": 1555\ S(E,H)1 HB 1690 S((EA)2 ,(HB)2)0 (EA)2 ĺ"DON'T JUMP YOUR OWN MAN": 1555S(A,B)S(E,H):S(E,H)0: (EA)2 1810S((EA)2,(HB)2)0   "+TO? ( 15: 3000 X: Y' ""; FLAG0 1885o6"FROM? ";E,H:EE1:HH1:E7E0H7H015557XE:YH: S(X,Y)0 1555"TO? ";A,B:AA1:BB1:XA:YB A0 A7 B0 B7 "OFF THE BOARD": 1555 S(X,Y)0 (AE)2)0 910x0 Y7 0 1: X0 7H S(X,Y)0 FLAG1z S(X,Y)0 ((XY)2)(XY)2 0: 2000 S(X,Y)1 3: 2000  S(X,Y)1Ġ 14: 2000 S(X,Y)2 14: 2000: 15: 3000  S(X,Y)2 3 : 2000::YR(4): S(X,Y)1 B2: A2 2 4: 1370kF S(X,Y)2 A2 2 4: B2 2 4: 1370: BPA:R(0)99ĺ" TO "R(3)1;R(4)1;:R(0)99:1240U 1420: 1555ZUXA:VYB: U0 U7 V0 V7 1400 d S(U,V)0 S(XA2,YBQ0:t R(0)99 1880X(30)"FROM "R(1)1;R(2)1" TO "R(3)1;R(4)1;:R(0)99~ R(4)0 S(R(3),R(4))2: 1310S(R(3),R(4))S(R(1),R(2))S(R(1),R(2))0: (R(1)R(3))2 1420:15552S((R(1)R(3))2,(R(2)R(4))2)00<XR(3)0 U7 QQ1C C1 1 2: UC0 UC7 VG0 1080e  S(UC,VG)0 QQ1: 1080 UC0 UC7 V67 1080 S(UC,VG)0 (S(UC,VG)0 (UCX VGY)) QQ28 C: QR(0) R(0)Q:R(1)X:R(2)Y:R(3)U:R(4)VL: 11405UXA:VYB: U0 U7 V0 V7 870Q S(U,V)0 910: 870f S(U,V)0 870UUA:VVB: U0 V0 U7 V7 870R S(U,V)0 910f V0 S(X,Y)1 QQ2 (YV)2 QQ5 Y7 QQ2 Yz#   ˯ˠ  ϠƠ_à ɠĠ٠Ԡ̠ƠȮà Π   Ҡ  ̠٠ Š/ ŠŠ  ̭Ҡ̠ ӠˠԠ Ԡ"Ӡ"Ԡ9);" ! "+X+b17G+l"-------------------**-------------------"O+v18{+"TOTAL FRONT 9 ! ** TOTAL BACK 9 !"+19+"----------------------------------------"+20+" TOTAL FOR GAME = PAR = 72 "+21","-------*Q1ĺ" NAME : ";N$3*Q2ĺ" NAME : ";N2$:*6j*"HOLE YDS. PAR SCORE HOLE YDS. PAR SCORE"q*&7*0"----------------------------------------"*:I19*D(7I) +N" ";I;" ! ";Y(I);" ! ";P(I);" ! ** ";I9;" ! ";Y(I9);" ! ";P(IY4200)^3730 )h MADE PUTT()r:L)|" YOU MADE THE PUTT"\)I11500:f)4280n):)" IN THE HOLE WITH NO PUTTS")I12500:) SCORE CARD)))35,0)2)" *** SCORE CARD ***"*4DD).5)(F31$( PLOT NEW BALL,(15;(BXH,BYVO(OXBXH:OYBYVk( CHECK FOR END OF PUTT|(MPPT4130(F314130(3890(" END OF PUTT(,F30(6BXBXH:BYBYV(@Q1S(C)S(C)1(JQ2S2(C)S2(C)1)TBXGXBYG(MP0'2MPMP1!'<HMP(DD)0'FVMP(DD)B'PVV.5:HH.5T'ZH(H):V(V)i'd ERASE OLD BALLp'n4}'xSC1Ġ1'OX,OY'SCBXH,BYV)' CHECK FOR END OF GREEN'SC04050'SDSD1'V((MPSD)(DD).5)(H((MPSD)( &2120&SD0(& INPUT DISTANCE.&:&21:20U&" THE GREEN IS :"]&20}&" ";GW;" YARDS WIDE"&20&" ";GL;" YARDS LONG"&"HOW LONG OF A PUTT ";PT&  CAL. BALL MOVEMENT&OXBX:OYBY&DDDDPI180' BALL ON GREEN"*%I11500:0%D%$ BALL ON GREENM%.F30e%8 BALL POS ON GREEN{%BCXHXBX:CYHYBY%LRX((1)52)%VRY((1)52)%`BXGX5CXRX%jBYGY5CYRY%t15%~BX,BY%BXGXBYGY4250& INPUT ANGLE$p I13000:$z 8:PX,PY0$ SCOX,OY):15;$ OX,OYW$ BXOX:BYOY:EXOX:EYOYl$ Q1S(C)S(C)1$ Q2S2(C)S2(C)1$ $ "THE BALL IS IN THE TREES AND PLAYABLE!"$ F11$ I13000:$ $ BALL ON GREEN$ $ :%" TRAP"# I12500:# *#* IN TREES4#4 ::\#> BX2,BY2)8BX2,BY2)03520#H BX2,BY2)8BX2,BY2)03520#R BX2,BY2)8BX2,BY2)03520#\ BX2,BY2)8BX2,BY2)03520#f " THE BALL IS LOST IN THE TREES!" LOSE ONE STROKE"!" I12500:0" 15:BX,BY@" I12000:U" Q1S(C)S(C)1j" Q2S2(C)S2(C)p" x" :" " BALL HIT IN ROUGH"" I12500:" " BALL IN SAND TRAP" F21" :""# " BALL HIT IN SAND 2000:,! " YOU ARE LOOKING FOR IT"GL25:GW25;H;R9;\2,141;f7,142;p1,162;z2,811;2,912<,95:6,106:&5,117/:05,78:9,118C::5,79:10,119J:D1U:NHX,HY]:X15h:bBX,BYr:l1590~:v GREEN::SC4:4:I59:13,27I::I1014:8,32I::I1519:3,37I::I2029:3,17I:;I2024:23T8,13129^7,1214$9h7,121519r7,2616>9|7,2817K97,3018X98,3019e99,3020s910,3021911,3022927,3012927,3013928,3014929,301594,1149109I810:8,13I:910,1211912:78C4:SC48EX13:EY29+8GL35:GW2518888N8I424:5,29I:f8I2530:25,29I:m89813,13:14,13:14,14813,241584,6148"15,1968,I710:I12,I13I:86I2324:10,30I:8@48JI513:4,11I: 9I1618:20,22I:71217I69:14,20I:871C7 HX,HYK715V717,23`7(1590l72 GREENr7<y7F47PI1029:3,37I:7Z17dGX,GY7nSC47x36207Q261807 HOLE 47HX6:HY87GX10:GY227BX13:BY29 SC46LHX19:HY7#6VGX30:GY1736`GL35:GW2096j@6t9W6~I418:10,24I:o6I1924:12,22I:v646I511:13,19I:6I1216:15,19I:6I2224:15,19I:6106I511:18,22I:686I1214:12,14I:76:HY8515:19,33%5BX19:BY3355EX19:EY33>5SC4H51590T5 GREENZ5a54w5I731:7,31I:~51514,245SC45GX14:GY245GL25:GW25536205Q254705$ HOLE 35.BX17:BY2358EX17:EY236BC3:27,2812!430,3114:30,31159419,2017:19,2018Q4I2729:13,17I:i414,1626:14,1630p42y4 J104I15324 JJ14*J,J4I444>I1114:3,15I:4H29,31334R124\I59:15,19I:4f14p16,85zHX1 3D8,14213N8,132023XI1819:10,14I:@3b15,1710M3l15,163Z3v15,164b310x3I37:17,21I:38321,234:21,235326,276:26,277316,1711:16,1712319,2114:19,2115323,247:23,248 427,2811: 212,2933210,3132(28,3131526,3130B25,3429O24,3428f2I1127:3,34I:m242I3234:15,24I:221,2521220,252229,252329,2524210,2525211,24262&13,24272014,23283:7,17228,32I:"112:I27:28,34I:;11:HX,HY:15:BX,BYE11590Q1 GREENW1^14j1I337v15,34I|1111"30,271,GX30:GY2716SC41@GL35:GW301J36201TQ252001^ HOLE 21hC21r1|9114,2734AN$"N"Ā0F1400P HOLE 1'0ZC1H0dBX20:EX20:BY36:EY36:SC4W0nHX33:HY6]0xw09:I138:16,36I:04:I3438:16,24I:0I230:17,30I:010:I24:23,27I::I59:25,29I:0I1922:16,21I:18:I1215:2$/" HOLE NUMBER ";C1,/12e/" ";Y(C1);" YARDS TO HOLE PAR ";P(C1)m/23/" HIT RETURN FOR NEXT HOLE";AN$// / END OF GAME/:/(10/2" DO YOU WANT TO PLAY AGAIN? ( Y/N ) ";AN$ 0<B90:I1018:B9B9S2(I):-.$18:38:B9I..T0:I118:TTS2(I):X.820:23:T`.B23g.L9.V"HIT RETURN FOR NEXT HOLE ";AN$.`35,24.j.tQ25020.~PL$"1"5020.Q2.. NEXT HOLE.Q1.C185140..4-p17-zQ24790-F906-I19:F9F9S(I):>-F9M-C184840W-4930`-F90y-I19:F9F9S2(I):-F9-C184890-4930-B90:I1018:B9B9S(I):-18:38:B9-T0:I118:TTS(I):-20:23:T-4930.---------------------------------"7, SCORES ON CARDB,I1CP,I94640[,(7I)c,17r,Q1ĺS(I),Q2ĺS2(I), ,4690, (I2),*38,4Q1ĺS(I),>Q2ĺS2(I),H,R CHECK FOR END OF FIRST 9,\C94930,f18,1722:9,1623:8,16247K^$7,1525:6,1526:6,1527TKh$6,1328:6,1129:30,10lKr$I3234:10,12I:tK|$12K$I2833:4,9I:K$10K$31,3310:30,3211:29,3012K$27,304:27,305:27,286K$23,2513:21,2514:21,2315&L$9,13J#I234:5,35I:J$94J$I1631:2,14I:KJ$I3235:2,13I:J"$10,1431:10,1430:10,1529:11,1528:11,1627:11,1626J,$4J6$23,2512:20,2513:I1517:14,25I:J@$19,2514JJ$14,2318:11,2119KT$11,1920:11,1921:10n# GREENIx#:4I#SC42I#I417:12,36I:JI#I1317:13,27I:aI#I1827:2,26I:xI#I2837:7,36I:I#1:GX,GYI#3620I#Q28660I# HOLE 9I#BX11:EX11:BY33:EY33:HX31:HY7I#GX22:GY22:GW30:GL30:C9:SC4J#:837,3819H#10(H #I1315:9,11I:TH#14,1515:12,1516:12,1516:12,1317vH#18,1923:18,2124:18,2125H(#20,2225:20,2226H2#35,3825:35,3826H<#29,3035:29,3636:29,3637:29,3438HF#1HP#HX,HYHZ#15:BX,BYHd#1590 I,38I:G"I1113:22,38I:8G"I1424:I9,38I:TG"21,17:20,2218:21,19lG"I3032:36,38I:sG"2G"30,3424:29,3425:28,3426:28,3427G"22,3228:22,3229G"22,2930:22,2931G"30,3623:30,3722 H"35,3721:35,3820:F."I810:25I,26I:4F8"I1113:25I,31I:MFB"I1423:I3,31I:yFL"21,2924:22,2825:22,2726:22,2727FV"12F`"I3437:28,34I:Fj"31,3231:31,3432:29,3433Ft"8F~"15,1619:15,1720F"I16:32,38I:G"I710:274E!I832:13,27I:'E!1:GX,GY1E!3620?E!Q28190LE! HOLE 8RE!xE!BX2:EX2:BY26:EY26:HX34:HY32E!GX19:GY25:GL35:GW35:C8:SC4E!9E"I125:7,31I::I2538:12,38I:E"I17:25,35I:E"4F$"I13:25,28I:0D !23,10:22,2411:21,2512:22,2413:23,14]D*!10,17:9,1118:8,1219:9,1120:10,21eD4!12{D>!I2024:4,6I:DH!1DR!5,21D\!10Df!17,1916:17,2117:17,2118Dp!8,924:8,1025Dz!15:BX,BYD!1590D! GREEND!:4E!SCI2028:8,17I:+C I1824:12,41II:9C 12,2517QC I1516:15,25I:iC I1214:17,26I:C I511:17,27I:C 17,264C I23:18,26I:C 8C I56:1,17I:C!I79:1,14I:C !I1014:1,9I:D!I1516:1,4I:21:GX20:GY15B GL15:GW25,B& SC4:C75B0 :2LB: I1739:O,39I:SBD 9jBN I3539:5,27I:BX I3334:5,23I:Bb I3132:5,21I:Bl I2930:5,19I:Bv I57:18,33I:B I516:5,19I:B 4B I2023:36,38I:C Ah8ArI1415:14,16I:'A|152ABX,BY34,3531:33,3532:32,3533:32,3534D>10X>I23:3,6I:n>I1011:3,8I:>I810:3,7I:>I2122:18,24I:>22,2423>12>I59:5,9I:>1>HX,HY>2>I1719:2,7I:? I10158II:=4$=$I39:3,14I:D=.8,1310:9,1211:10,1112f=817,1911:16,2012:15,2113~=B14,2214:13,2315=LI1620:I3,I8I:=V17,2820:18,2821=`19,2922:20,2923=j21,3024:22,3025=t25,3028:27,2929>~23I1316:2,(716I)I:$<18,2092<18,2110M<I1120:9I,11II:[<29,3121i<30,3222w<30,3223<31,3324<31,3325<32,26<12,16:11,1317:10,1418:9,1519<I2030:I18,I4I:<26,29=I3034:I18,[,9[,I1528:10,24I:9[$,4:I2428:10,12I:U[.,10:15,1916:15,1917m[8,I1922:19,23I:[B,12:I1820:17,21I:[L,8[V,17,12:18,14:20,12:20,15:22,13:26,14:25,17:24,16:24,18:26,20:16,18:18,21[`,2,\j,19,2115:220:11,21:13,22:9,23:11,23+Z+1:HX,HY:Z+15:BX,BYDZ+1590PZ+ GREEN^Z+SC4::4vZ+I1024:15,29I:Z+1:GX,GYZ+3620Z+Q210960Z+ HOLE 14Z+BX26:EX26:BY11:EY11:HX20:HY19:GL25:GW15:SC4:C15Z+GX24:GY22Z,Y +I1523:5,19I:Y+42Y +I79:30,34I:NY*+I1528:37I,44II:eY4+I2429:5,14I:mY>+10YH+I1921:21,25I:YR+I2629:8,14I:Y\+18,2114:18,2115:19,2116Yf+12Yp+I2527:7,9I:Yz+8Z+11,18:13,19:9,20:15, X* GREENX*SC4::4/X*I519:2,36I:GX*I2034:12,26I:UX*1:GX,GY_X*3620nX*Q210620|X* HOLE 14X*BX32:EX32:BY8:EY8:HX8:HY26:GX22:GY17:GL15:GW15:SC4:C14X*X*9X*I79:27,34I:X+I1014:20,34I:421:16,3422:16,3423:15,3424*W0*10VW:*I1012:22,23I::I1314:20,21I:nWD*14,1822:13,1623WN*30,3115:29,3116:29,3117:26,2918:26,2919WX*12Wb*I2527:10,16I::I2830:12,14I:Wl*1:HX,HYWv*15:BX,BYW*1590)4V)20,2420&V)I57:5,9I:>V)I1014:20,31I:UV)I1519:6,29I:lV)I2024:8,15I:sV)8V)5,710:5,911:5,1112V)5,1313:5,1514V*I1517:5,16I:V*I1824:5,33II:V*I2434:5,9I:"W&*16,1920:16,24:4U@)I216:3,37I:3UJ)I1721:13,37I:KUT)I2236:28,37I:YU^)1:GX,GYcUh)3620rUr)Q210190U|) HOLE 13U)BX7:EX7:BY6:EY6:HX29:HY13:GX27:GY19:GL30:GW35:SC4:C13U):9U)I824:3,13I:U)I1021:25,34I:V6,17I:T(4'T(I3537:30,37I:.T(2ZT(30,3838:35,3830:25,3035:22,2634T(22,2433:20,2232:10,2231:10,2030T(10,1929:10,1728:25,3015T(I1014:25,34I:T)15:BX,BYT)1:HX,HYT)1590T") GREENT,)U6)SCI1727:I4,30I:3SP(15,1718:16,1719:17,20:SZ(8RSd(I1516:17,19I:ZSn(10oSx(I812:3,7I:S(12,1610:12,1611S(16,2110:16,2111S(17,2118:17,2219:21,2320:22,2421S(12S(I24:11,17I:T(13,175:I68:129870R' HOLE 12QB'10VQL'18,2118:18,2219nQV'I2527:15,17I:|Q`'1:HX,HYQj'15:BX,BYQt'1590Q~' GREENQ'SC4:Q'4Q'I221:15,34I:Q'I2236:5,34I:Q'1:GX,GYQ'3620R'Q32I: P&4!P&I57:5,9I:@P&I610:11,(I5)310I:bP&12,2611:14,2712:16,2713P&16,1814:17,1915:17,2016:18,2017P&21,2814:23,2415P'14,2428:20,2824:20,2420P'I2324:25,29I:P'12Q$'I2125:20,23I:X,HYO4&15:BX,BYO>&1590)OH& GREEN7OR&:4:SC4NO\&I221:18,32I:eOf&I2236:8,32I:sOp&1:GX,GY}Oz&3620O&Q29550O& HOLE 11O&O&C11:SC4:BX7:BY6:EX7:EY6O&HX21:HY24:GX22:GY19:GL30:GW35O&8P&I329:5,21:9,1722:9,1923#N%18,1915:N%I2427:9,29I:BN%10YN%I911:15,21I:gN%12,1715oN%12N%17,1910:17,1911:I1214:13,19I:N%8N&10,178N &I911:10,14I:N&I1214:10,12I:N &10,2110:10,1711O*&1:H,GY M:%3620MD%Q29170)MN% HOLE 10QMX%BX28:EX28:BY18:EY18:HX13:HY14vMb%GX25:GY9:GW35:GL25:SC4:C10Ml%:2Mv%I1123:14,26I:M%4M%I2729:15,21I:M%9M%I1014:I12,29I:N%25,2922:23,2923:12,1520:12,1517:9,1318:9,1019:7,1020:7,1021>L$17,1814:14,1815jL$20,2218:17,2219:17,1920:17,1921xL$1:HX,HYL$15:BX,BYL$1590L$ GREENL$L%4:SC4L%I514:20,34I:L%I1519:10,34I:L&%I2034:5,34I:M0%1:GXY47 (YGL)Z1YGL& R1X,Y)A (R113)(XXKL%)1250M 8:X,Y[ OXX:OYY ((XXKL%)2)(Y29)ĺ"";:Z11:((X20)GPW)KF1 ((XXKL%)20)((YGL)(T1))ı :TT.08:1160 N1N1 GPWN:GL412(6N):N4GL35%FX:OXX $Y403612 .ZR2:R2R1:R1X,Y1)@ 88:X,Y1N BZ:X,Y1] LY36İ290d VYr `R2:X,36 tOY35:Z10 YYVYT16TT:ZZSKT:XXVXT YYYY1.3 Y35YY:X(OFZZ) R1:OX,OY X0X39ı Y0Y0 Y47)(SP):B II(SP)(SP)(SP)(SP)(SP)(SP)(SP)(SP):S II120::d "II150::v ,II1100:: 150:Y44411 ZR3:R3R2:R2R1:R1X,Y1) 8:X,Y1:Z:X,Y2:280 Y R3:X,42 VXV(A):VYV(A):KF0:T0:O !5 ! SHOESTRING SOFTWARE !S ! 1235 CANDLELIGHT !q ! HOUSON TX 77018 ! ! ! ------------------------ 5000 II(SP) II(SP0  ------------------------? ! * TUESDAY NIGHT * !^ ! * FOOTBALL * !} ! * * ! ! * KICK PRACTICE * ! ! ! ! COPYRIGHT 1980 ! ! CHARLES ANDERSON ! !     33I:e/1:HX,HY:15:BX,BY0e/9:13,1420:e/1590Ge/ GREEN Ue0SC4::4ke 0I731:5,34I:ye01:GX,GYe 03620e*0Q21209014:20,31I:%d/I1522:9,31I:Ad/I2326:I11,53II:Hd/8nd/I7314:5,I::I5294:6,I:d/I7274:7,I::I9254:8,I::I11234:9,I:d/12d/I26:14,19I:d/10:4,721:2,522e/I79:26,31I::I3234:29,,GY c&/3620c0/Q211850*c:/ HOLE 18qcD/BX7:EX7:BY36:EY36:HX17:HY4:GX22:GY19:GW25:GL30:C18:SC4cN/:9:I514:1,37I:cX/4:I1534:1,37I::I3537:5,9I:cb/2cl/1,68:1,89:5,1710:5,1711dv/I1214:9,16I::I1020,24I:$b.12:I1218:2,8I:+b.2`b.12,229:11,2310:10,2411:11,2312:12,2213zb.10:I1922:5,8I:b.15,1719:15,1720:15,1921:17,1922b.1:HX,HY:15:BX,BYb.1590b/ GREENb/SC4::4c/I337:2,36I::1:GXBX30:EX30:BY22:EY22:HX7:HY17:GX29:GY30:GL35:GW35:SC4:C17Ma^.:9eah.I2534:20,25I:|ar.I1011:2,10I:a|.I2628:2,34I:a.8a.I1017:11,34I:a.20,3418:25,3419a.4a.I1925:2,24I::14,1918 b.I2932:24,2713:26,3112:30,3211$`-10<`-I2627:21,23I:^`-13,1526:13,1725:15,1724w`-1:HX,HY:15:BX,BY`.1590`. GREEN `.SC4::4`".I524:5,34I::I2534:5,14I:`,.1:GX,GY`6.3620`@.Q2ī11460`J. HOLE 17DaT._-I1316:29,35I:%_-22,2335o_-32,3417:33,3418:19,2133:20,2434:24,2633:32,3326:30,3227_-27,3028:26,2727_-24,2626:23,2425:22,2324:21,2223:21,2321_-20,21:16,2020:17,1819:15,1621`-14,1522:22,2414:,3119:28,3120:27,3021:27,2922:26,2823:25,2724:25,2625^Z-22,2427:20,2328:13,1428:13,2229:13,2130:13,1831:13,1532^d-I413:24,32I:^n-4:I57:28,30I:^x-12:I2728:9,14I::I2933:9,12I:^-2^-34,3512],],8:I832:4,35I:%],4=],I2328:15,23I:R]-19,2222:21,20g] -23,2523:24,24]-I2428:14,23I:]-18,2023:20,22](-9]2-27,358:8,1334:8,1335]<-16,1822]F-I2326:37I,40II:B^P-29,3117:29,3218:280,2216:21,2317:22,2418:23,2419:20,24E\t,15:BX,BY:1:HX,HYO\~,1590\\, GREEN j\,:SC4:4\,I1529:7,31I:\,1:GX,GY\,3620\,Q2ī11240\, HOLE 16\,BX6:EX6:BY29:EY29:HX30:HY11:GX22:GY17:GL30:GW30:SC4:C16      7:"PRESS SPACE BAR TO BEGIN ";A$/A$:5040STANCE YOU WANT TO TRY FOR. TO"Ox"START, TAP SPACE BAR. A BLACK DOT WILL"|y"ZOOM ACROSS THE BOTTOM OF THE SCREEN."z"PRESSING SPACE BAR WILL LAUNCH BALL."{"THE RECORD IS 68 YARDS. AGAIN PRESS"|"ESC TO RETURN TO MENU."}:!~ TAP THE"4q"SPACE BAR. THE BALL WILL TAKE OFF."br"DISTANCE DEPENDS ON YOUR TIMING. ONCE"s"STARTED, PRESS ESC TO RETURN TO MENU."t:u"TO PRACTICE FIELD GOALS, SELECT EITHER"v"AUTO/MAN. MANUAL ALLOWS YOU TO SELECT" w"THE DI(Z$)1(Z$)351701<Z(Z$):Z2000,5200,5230VP:20:"AUTO OR MANUAL (A/M)? ";qZZ$:Z$"M"AA1:3000dAA0:3000n:4:"TO PUNT PRESS ANY KEY. THE BALL WILL"o"FALL. WHEN THE BALL JUST TOUCHES THE" p"NEXT-TO-THE LAST YARDLINE,32:"*"/7:"*";:14:"KICK PRACTICE *"E7:"*";:32:"*"k:7:"**************************"16:13:"YOU MAY:": 8:"1) PRACTICE PUNTING"8:"2) PRACTICE FIELD GOALS"8:"3) INSTRUCTIONS":(14:"WHICH ";:2Z$: KZ10ZZ:K173230) YL%K17:3020<16298,0:255LX((78))aA(Y)(Y(8))SP16336:KB16384:KS16368:3:7:"**************************"7:"*";:32:"*"5:7:"* TUESDAY NIGHT FOOTBALL *"7:"*";:TTEMPT IS ";"b KFĺ"GOOD":31901l "NO GOOD"@v (AA)3230h :"PRESS ANY KEY FOR ANOTHER KICK" KB,128:(KB)155ĹKS,0:5040 KS,0:3010 ::"YARDAGE FOR NEXT ATTEMPT "; Z$:Z$;:(Z$)275040 ZZ$:ZZ$;:Z(Z$):ZZ(ZZ$)5):R3X,46) 8:44,46X4 A.79:V40(9(8))L VXV(A):VYV(A)u Y47:KS,0:KB,128:KS,0:II1500: Z139:0:Z,Y:15:Z1,Y& (KB)128ĹKS,0:SKXZ:1000:31300 Z:KF0: II11000:D 16301,0:N X KL%" YARD ADS"F:"TO PUNT AGAIN PRESS ANY KEY ":KB,128:KS,0:(KB)275040P2000ZR1:R1R2:R2R3:R3X,ZZ1):8:X,ZZ1:Z:X,ZZ2: (AA)3230 YL%A(54) N6(YL%8):KL%YL%17 1500 XA(13)14  15:0,3947:R1X,44):R2X,4"\"YOU DIDN'T GET THAT ONE OFF"2fKS,0:2240VpKS,0:V48(6(42ZZ))T3(8)uzSK(47V).3:A(2)SKSKA.88ZZ47431:ZX,ZZ):0:X,ZZ:Z:X,ZZ:150:1040II11000:16301,0::"THAT PUNT WENT "(XX)" YAR1X,35):R2X,36):R3X,37),8:35,37X6KS,0HKB,128:KS,0l ZZ3741:2260:(KB)1272160w290: T050:(KB)1272160*4ZZ4246:2260:300:>R1:X,45:R2:X,46:8:20,2147HT0100:130:R16301,0::12:Y,46X:Y,4639XQ15:X,Y1:39X,Y1:X,YO:39X,YO:X,YS:39X,YSf:GYO1YS11z5:X,G:39X,G&YYLYY1:YOYO10:D0:Z047:140:0,39Z:280::::N1:KL%100:1500X20:T0:15:0,3947R35:8,3037:6,3239:3,3542:;YO43:YS17:YL33:1740k13:19,2129:26,2919:26,2921:29,312015:13,2532:12,2633:10,2835:8,3037:6,3239:3,3542:::::16302,07:Y4701:0,39Y:140:Y46:X019:13016:18,292Eކ EE1ώPPP0 EEEE$ 5:8,3037:6,3239:3,3542:YO42:YS14:YL35:174013:18,2229:24,2918:24,2922:29,332015:10,28 N1700,1670,1640,1610,1570,1550:@ YS0:YL44:YO38:1740r 13:14,2629:11,2914:11,2926:29,4220: "YO39:YL41:YS4:1740 ,13:15,2529:16,2915:16,2925:29,3920:15:4,3441: JYO40:YL37:YS8:1740T13:16,2429:18,29Ĺ34,0::::"YOU WON: ";(750):"I WON: ";(751):"CAT WON: ";(752)::"THANX FOR THE GAMES":"RUN MENU"x^34,0h:10rY7vF(0)|X1199YY8R(Y)B(X)B(X1)B(X2)R(Y1)B(X3)B(X4)B(X5) R(Y2)B(X6)B(X..THAT WAS A GOOD GAME":1610,20:W$(X)J"IW(751):IWIW1:751,IW,"I WON.....JUST CAN'T KEEP UP, CAN YOU ?":16106CW(752):CWCW1:752,CW@20:"WELL, CHALK ONE UP FOR THE CAT....."J:"CARE TO PLAY AGAIN ";CH$nT(CH$,1)"Y"H LEVEL) FROM 1 THROUGH 9 FROM TOP LEFT TO BOTTOMRIGHT CORNER."T15:34,5:::mX127:B(X)01470s}15901650X149R(X)271530R(X)3156020:W$(X)YW(750):YWYW1:750,YW"YOU WIN...0 290(L1 211/<XLL83BF((L9)108)nPM$(B(X));" ";M$(B(X1));" ";M$(B(X2))tZdL1L10:1330nL10L19:1330x:"LEVELS ARE 1, 2, AND 3 FROM LEFT TO RIGHT."@"POSITIONS ARE NUMBERED (ON EAC7217`B(X)0B(X)1:1280%j9tR(49)UL1180G~X9195`B(X)0B(X)1:1280f{UL2UL18:430C0X127B(X)01240CC1T(C)XT((2)20)T1TC1250B(T(T))11310 144280 X79ZZ11R(Z)UL1010AYXX126ZB(Y)0B(Y)1:1280`tR(46)UL1060X12713B(X)0B(X)1:1280$R(47)UL1100.X325118B(X)0B(X)1:1280BLR(48)UL1140VXЂ X173ZZ1* R(Z)UL830;*YXX2010T4B(Y)0B(Y)1:1280Z>gHX393qRZZ1\R(Z)UL890fYXX168pB(Y)0B(Y)1:1280zX13ZZ1R(Z)UL950YXX2412B(Y)0B(Y)1:183:B(X)0B(X)1:1280v2R(Z6)UL670VX1Y84:B(X)0B(X)1:1280\pR(Z7)UL700XY2Y62:B(X)0B(X)1:1280Z24X19ZZ1R(Z)UL770YXX189B(Y)0B(Y)1:1280Y3Y5:B(X)0B(X)1:1280"6R(Z2)UL550ZXY6Y8:B(X)0B(X)1:1280`t&R(Z3)UL5800XYY63:B(X)0B(X)1:1280:DR(Z4)UL610NXY1Y73:B(X)0B(X)1:1280XbR(Z5)UL640lXY2YȺ"":300^B(X)9h13108r1440: SEE IF WINNER>|D_ SEE IF COMP CAN WINeB(14)0B(14)1:1280UL2Z7Y1199ZZ8R(Z)UL490XYY2:B(X)0B(X)1:1280R(Z1)UL520XHE TOSS OF THE CHIP......YOU GO FIRST !"9 DE11200A DEK 1410a X.5İ1310:290m B(14)1w 1310} " ,20:"YOUR MOVE (LEVEL,POSITION): ";L,P 6L1L3ĺ"":300 @P1P9ĺ"":290 EF(0) JX(L1)9P TB(X)0:W$(X): M$(0)"." 2 X127:B(X)0:D 18);"QUBIC"l :"WOULD YOU LIKE X'S OR O'S: ";M$ M$"X"M$"O"190 M$(9)M$:M$(1)"X":M$"X"M$(1)"O" X(2):X.5ĺ::"I WIN THE TOSS....I GO FIRST !":228 * "YOU WON T) (2-2) (3-1),(1-6) (2-5) (3-4),(1-9) (2-8) (3-7)l n(1-1) (2-4) (3-7),(1-2) (2-5) (3-8),(1-3) (2-6) (3-9) x(1-7) (2-4) (3-1),(1-8) (2-5) (3-2),(1-9) (2-6) (3-3) (1-1) (2-5) (3-9),(1-3) (2-5) (3-7),(1-7) (2-5) (3-3),(1-9) (2-5) (3-1) X1493-5) (3-7)E <(1-1) (2-1) (3-1),(1-2) (2-2) (3-2),(1-3) (2-3) (3-3) F(1-4) (2-4) (3-4),(1-5) (2-5) (3-5),(1-6) (2-6) (3-6) P(1-7) (2-7) (3-7),(1-8) (2-8) (3-8),(1-9) (2-9) (3-9) Z(1-1) (2-2) (3-3),(1-4) (2-5) (3-6),(1-7) (2-8) (3-9)1 d(1-3-5) (2-6),(2-7) (2-8) (2-9),(2-1) (2-4) (2-7),(2-2) (2-5) (2-8),(2-3) (2-6) (2-9),(2-1) (2-5) (2-9),(2-3) (2-5) (2-7) 2(3-1) (3-2) (3-3),(3-4) (3-5) (3-6),(3-7) (3-8) (3-9),(3-1) (3-4) (3-7),(3-2) (3-5) (3-8),(3-3) (3-6) (3-9),(3-1) (3-5) (3-9),(3-3) (750,0:751,0:752,08 B(27),R(49),T(27),W$(49)KIW0:CW0:YW0(1-1) (1-2) (1-3),(1-4) (1-5) (1-6),(1-7) (1-8) (1-9),(1-1) (1-4) (1-7),(1-2) (1-5) (1-8),(1-3) (1-6) (1-9),(1-1) (1-5) (1-9),(1-3) (1-5) (1-7)u ((2-1) (2-2) (2-3),(2-4) (2 10000:26);"ELIZA>20);"CREATIVE COMPUTING"a18);"MORRISTOWN, NEW JERSEY"k::qPdS(36),R(36),N(36)nN136:N214:N3112xR3000X1N1S(X),L:R(X)S(X):N(X)S(X)L1X "HI! I'M ELIZA. WHAT'S Y          (16286)1272001180XRT PUSH BUTTON":"ON PADDLE 1."6L(16286)127160pV(16287)127ĺ" **** USE THE OTHER PADDLE ****"z`1100jBALL(X):XX(X),YN(X)t0:XX(X),YO(X)~I150:Q(16336):ISCHSHSSC" PUSH BUTTON FOR ANOTHER TRY"NG THE PADDLE UNDER THEM":"BEFORE THEY HIT THE GROUND.".:"TO RELEASE ADDITIONAL BALLS, USE THE":"PUSH BUTTON ON THE PADDLE."8:"EACH BOUNCE OF A BALL SCORES TEN TIMES":"THE NUMBER OF BALLS IN THE AIR AT"B"THAT TIME"::"WHEN READY TO STA BOB FORD MARCH 1979":2J11500:J<::d"DO YOU NEED INSTRUCTIONS? (Y/N)";lA$A$"Y"A$"N"1000A$"N"160:936"THE OBJECT OF JUGGLE IS TO KEEP AS":"MANY BALLS IN THE AIR AS POSSIBLE"8$"BY GETTI18:830" 0:X1100:X:34,18+ 9601 *; 41130H >XAA2Q H920Z RX:j \Y23201s f920| pY: zY23121 920 Y: 940 X,Y: (15)1 B130:B: J1800:J!" BY":" vX16:890 17,23:9401 18,23:X19:860D A17:Y12:830O 18,20] X21:890m 22,23:940 23,23:X24:860 A22:Y12:830 23,20 X26:890 A27:Y23:830 X31:890 A32:Y23:830 A32:Y12:830 A32:Y0 BALL(X) XX(X),YN(X)& 07 XX(X),YO(X)G YO(X)YN(X)N Xe (16286)127280n 330  TITLE AND INSTRUCTIONS &936 0 :X6:860 D7,23:940 N8,23:X9:890 XX11:890 b12,23:940 l13,23:X14:890  hYN(X)1YN(X)36460. rYS(X)YS(X)1@ |YN(X)36340Z XX(X),YN(X))D820q PSPS1:SCSCB10 23:7:SC:23:22:PS T(16336)(16336)(16336)(16336) BALL(X):XX(X),YN(X) 0:XX(X),YO(X) YO(X)YN(X) 34500:I D2:A0 PS0:SC0( B04 936:< 23b "SCORE THROWS HIGH"w 29:"SCORE ";HS BB1:XB "I150:I ,Y((1)120):XX(X)Y3:YO(X)0 6B1XX(X)20 @YS(X)3 JX1B TYN(X)YO(X)YS(X) ^120 d:16298,0n150AxQ((1)39)6:Q0Q0:Q36Q36H}DYQ,Q336:0hQ1ī136v0,Q136Q36ĎQ4,3936PQ:540BALL(15),YO(15),YS(15),YN(15)XX(15)HS0S115:BALL(S)S:S 936:I1   14)B(25)$R(48)B(7)B(14)B(21)?R(49)B(9)B(14)B(19)E` ** COPYRIGHT 1981 **{ ** BY A. L. WYATT ** ** ALL COMMERCIAL ** ** RIGHTS RESERVED **Z1"0R(Z)B(X)B(X10)B(X20)(:5DX393?NZZ1\XR(Z)B(X)B(X8)B(X16)bbmlX13wvZZ1R(Z)B(X)B(X12)B(X24)X79ZZ1R(Z)B(X)B(X6)B(X12)R(46)B(1)B(14)B(27) R(47)B(3)B(7)B(X8)(R(Y3)B(X)B(X3)B(X6)HR(Y4)B(X1)B(X4)B(X7)hR(Y5)B(X2)B(X5)B(X8)R(Y6)B(X)B(X4)B(X8)R(Y7)B(X2)B(X4)B(X6)Z24Y19ZZ1R(Z)B(Y)B(Y9)B(Y18)X173&Z CONCERNED ABOUT MY*.WHAT ABOUT YOUR OWN*X CAN YOU THINK OF A SPECIFIC EXAMPLE?c*WHEN?4WHAT ARE YOU THINKING OF?>"REALLY, ALWAYS?"HDO YOU REALLY THINK SO?RBUT YOU ARE NOT SURE YOU*\DO YOU DOUBT YOU*fIN WHAT WAY? CERTAIN.&WHY THE UNCERTAIN TONE?GCON'T YOU BE MORE POSITIVE?]YOU AREN'T SURE?rDON'T YOU KNOW?ARE YOU SAYING NO JUST TO BE NEGATIVE?YOU ARE BEING A BIT NEGATIVE.WHY NOT?ARE YOU SURE?WHY NO? WHY ARE YOU?lDON'T BE SO DEFENSIVE!GvWHAT DOES THAT DREAM SUGGEST TO YOU?`DO YOU DREAM OFTEN?WHAT PERSONS APPEAR IN YOUR DREAMS?ARE YOU DISTURBED BY YOUR DREAMS?HOW DO YOU DO... PLEASE STATE YOUR PROBLEM. YOU DON'T SEEM QUITEAL REASON?50DON'T ANY OTHER REASONS COME TO MIND?b:DOES THAT REASON EXPLAIN ANYTHING ELSE?DWHAT OTHER REASONS MIGHT THERE BE?NPLEASE DON'T APOLOGIZE!XAPOLOGIES ARE NOT NECESSARY.bWHAT FEELINGS DO YOU HAVE WHEN YOU APOLOGIZES IT THAT YOU REALLY WANT TO KNOW?CHAVE YOU ASKED ANYONE ELSE?nHAVE YOU ASKED SUCH QUESTIONS BEFORE?WHAT ELSE COMES TO MIND WHEN YOU ASK THAT?NAMES DON'T INTEREST ME.I DON'T CARE ABOUT NAMES- PLEASE GO ON. &IS THAT THE REOSE YOU SOON GOT*-WHAT IS YOU NEVER GOT*II SOMETIMES ALSO WANT*^WHY DO YOU ASK?DOES THAT QUESTION INTEREST YOU?WHAT ANSWER WOULD PLEASE YOU THE MOST?WHAT DO YOU THINK?ARE SUCH QUESTIONS ON YOUR MIND OFTEN?"WHAT IYOU BEEN*1TDO YOU BELIEVE IT IS NORMAL TO BE*J^DO YOU ENJOY BEING*rh"WE WERE DISCUSSING YOU-- NOT ME."r "OH, I*"|"YOU'RE NOT REALLY TALKING ABOUT ME, ARE YOU?"WHAT WOULD IT MEAN TO YOU IF YOU GOT*WHY DO YOU WANT*SUPPARE YOU INTERESTED IN WHETHER OR NOT I AM*OWOULD YOU PREFER IF I WERE NOT*tPERHAPS IN YOUR FANTASIES I AM*"HOW DO YOU KNOW YOU CAN'T*,HAVE YOU TRIED?6PERHAPS YOU CAN NOW*@DID YOU COME TO ME BECAUSE YOU ARE* JHOW LONG HAVE ?(TELL ME MORE ABOUT SUCH FEELINGS.@DO YOU OFTEN FEEL*[DO YOU ENJOY FEELING*DO YOU REALLY BELIEVE I DON'T*PERHAPS IN GOOD TIME I WILL*DO YOU WANT ME TO*DO YOU THINK YOU SHOULD BE ABLE TO*WHY CAN'T YOU**WHY ABLE TO*)dWHAT MAKES YOU THINK I AM*RnDOES IT PLEASE YOU TO BELIEVE I AM*uxPERHAPS YOU WOULD LIKE TO BE*DO YOU SOMETIMES WISH YOU WERE*DON'T YOU REALLY*WHY DON'T YOU*DO YOU WISH TO BE ABLE TO*DOES THAT TROUBLE YOU "," YOU "," I ","YOUR ","MY "F" IVE "," YOUVE "," IM "," YOURE "[" ME "," !YOU "~2DON'T YOU BELIEVE THAT I CAN*<PERHAPS YOU WOULD LIKE TO BE ABLE TO*FYOU WANT ME TO BE ABLE TO*PPERHAPS YOU DON'T WANT TO* ZDO YOU WANT TO BEONT,I FEEL> $WHY DONT YOU,WHY CANT I,ARE YOU,I CANT,I AM,IMk .YOU ,I WANT,WHAT,HOW,WHO,WHERE,WHEN,WHY 8NAME,CAUSE,SORRY,DREAM,HELLO," HI ",MAYBE B NO,YOUR,ALWAYS,THINK,ALIKE,YES,FRIEND LCOMPUTER,NOKEYFOUND" ARE "," AM ","WERE ","WAS,1)"!"C$(C$,L1)(C$,(C$)L):557. .L4 0: :@ DK NR1330_ SJJR(K)101320h XRJJp ]F$ bR(K)R(K)1:R(K)N(K)R(K)S(K) l(F$,1)"*"ĺF$:P$I$:200 v(F$,(F$)1);C$ P$I$:200 CAN YOU,CAN I,YOU ARE,YOURE,I DS$5102 C$(C$,L1)R$(C$,(C$)L(S$)1)@ LL(R$)I 540` L(R$)(C$)540{ (C$,L,(R$))R$540 C$(C$,L1)S$(C$,(C$)L(R$)1) LL(S$) L &X +(C$,2,1)" "C$(C$,(C$)1) ,L1(C$)' -(C$,LK$ ;S0360& @L1(I$)(K$)1J T(I$,L,(K$))K$SK:TL:F$K$Q ^LX hKn mS0KS:LT:420| rK36:570 R1230 C$" "(I$,(I$)(F$)L1)" " X1(N22) S$,R$ L1(C$) L(S$)(C$)510 (C$,L,(S$))OUR PROBLEM?" I$( I$" "I$" "7 L1(I$)j (I$,L,1)"'"I$(I$,L1)(I$,(I$)L):230 L4(I$)ĭ(I$,L,4)"SHUT"ĺ"SHUT UP...": L I$P$ĺ"PLEASE DON'T REPEAT YOURSELF!":200   " 'S0 ,K1N1 6";T:46010);T;"+2=";T2(TT2.U"WHAT IS/WAS YOUR MOTHER'S AGE ";\A{A80ĺ10);T;"+0=";T:51010);T;"+1.5=";T1.5:TT1.5"WHAT IS WAS YOUR FATHER'S AGE ";AA80ĺ10);T;"+0=";T:560 &10);T;"+21.9,82.2,82.4,82.7,83.0& T83.3,83.6S ^:"YOUR BASE LIFE EXPECTANCY IS":BA(C)a h:TBA(C)k r3000 |"PART I HEREDITY" 3000 :"DID AT LEAST TWO OF YOUR GRANDPARENTS":"LIVE TO AGE 80 OR MORE "; A$(A$,1)"N"ĺ10);T;"+0=79.9; "80.4,77.0,77.0,77.1,77.1,77.2,77.2,77.3,77.3,77.4r ,77.4,77.5,77.5,77.5,77.6,77.6,77.7,77.8,77.8,77.9 678.0,78.0,78.1,78.2,78.3,78.4,78.5,78.6,78.7,78.9 @79.0,79.1,79.3,79.4,79.6,79.7,79.9,80.1,80.3,80.5 J80.7,80.9,81.2,81.4,81.6,8,70.1,70.2,70.3,70.4,70.5,70.6,70.7,70.8_ 70.9,70.9,71.0,71.1,71.2,71.3,71.4,71.5,71.6,71.7 71.8,71.9,72.0,72.2,72.3,72.5,72.6,72.8,73.0,73.2 73.4,73.6,73.8,74.1,74.3,74.6,74.9,75.2,75.5,75.8 76.2,76.5,76.9,77.3,77.7,78.1,78.6,79.0,79.5, x"AT LEAST 20 YEARS OLD.":, BA(101)Q :"WHAT IS YOUR AGE IN YEARS ";Y AY AY20ĺ"SORRY, YOU MUST BE AT LEAST 20 YEARS OLD": :"WHAT IS YOUR SEX "; S$ I0101:BA(I):I CAY20 (S$,1)"F"CC51( 69.9,70.0ILABLE TODAY. WHILE SCIENTISTS STILL":"DON'T KNOW ALL OF THE VARIABLES CAUSING" Z"LONG LIFE, THEY ARE AWARE OF SOME OF THE":"PHENOMENA THAT SEEM TO BE CORRELATED" n"WITH LONGEVITY. THIS PROGRAM IS BASED":"ON THAT DATA AND STARTS WITH PEOPLE"& :" < < LIFETIME > >"{3:"THIS PROGRAM DETERMINES YOUR LIFE":"EXPECTANCY. DO YOU WANT INFORMATION";(A$2(A$,1)"N"1307<"THE FOLLOWING, THOUGH NOT VALIDATED,":"IS BASED ON THE BEST SCIENTIFIC EVEDENCE"Q F"AVA          808,166:809,217:810,966 '1013,76:1014,0:1015,3 '810,104:811,168:812,104:813,166:814,223:815,154:816,72:817,72:818,152:819,72:820,96 ' NA *NII1:I2Ċ1:LA" "A:0:I0 4NI1LAA >N20000 ,82:780,231:781,32:782,26:783,214:784,144:785,8:'786,160:787,4:788,177:789,155:790,201:791,131:792,240:793,3:794,76:'795,124:796,217:797,165:798,155:799,164:800,156:801,56:802,233:803,1: '804,32:805,80:806,216:807,76:  51,4 55,4 59,4' 63,11 63,1; 64,5E 69,5O 74,2Y 76,4c 80,3m 83,7w 90,3 93,6 99,7 106,6'768,201:769,82:770,208:771,38:772,32:773,177:774,0:775,32:776,103:6'777,221:778,32:779TE ON THAT?+ THAT IS QUITE INTERESTING.4 1,3= 4,2F 6,4O 6,4Y 10,4c 14,3m 17,3x 20,2  22,3 25,3 28,4 28,4  32,3  35,5 40,9 40,9 40,9 40,9 40,9 40,9,49,2AT IS IT ABOUT MACHINES THAT WORRIES YOU?cL "SAY, DO YOU HAVE ANY PSYCHOLOGICAL PROBLEMS?"V WHAT DOES THAT SUGGEST TO YOU?` I SEE.j I'M NOT SURE YOU UNDERSTAND YOU FULLY.t "COME, COME! ELUDICATE YOUR THOUGHTS." ~ CAN YOU ELABORATERS WORRY YOU?< ARE YOU TALKING ABOUT ME IN PARTICULAR?a ARE YOU FRIGHTENED BY MACHINES?$ WHY DO YOU MENTION COMPUTERS. WHAT DO YOU THINK MACHINES HAVE TO DO WITH YOUR PROBLEM?8 DON'T YOU THINK COMPUTERS CAN HELP PEOPLE?*B WHWHY DO YOU BRING UP THE TOPIC OF FRIENDS?RDO YOUR FRIENDS WORRY YOU?tDO YOUR FRIENDS PICK ON YOU?ARE YOU SURE YOU HAVE ANY FRIENDS?DO YOU IMPOSE ON YOUR FRIENDS?PERHAPS YOUR LOVE FOR FRIENDS WORRIES YOU? DO COMPUpWHAT RESEMBLANCE DO YOU SEE?NzWHAT DOES THE SIMILARITY SUGGEST TO YOU?vWHAT OTHER CONNECTIONS DO YOU SEE?COULD THERE REALLY BE SOME CONNECTION?HOW?YOU SEEM QUITE POSITIVE.ARE YOU SURE?I SEE.I UNDERSTAND.2A LOWER LIFE SPAN.":CX:"IS YOUR ANNUAL INCOME OVER $40,000 ";KlA$q(A$,1)"N"ĺ10);T;"-0="T:202010);T;"-2=";T2:TT2:E$A$:(A$,1)"N"2070:"PEOPLE WITH HIGHER INCOMES USUALLY":"EXPERIENCE MORE STRESS EARNING TS AND PHARMACISTS."i"WHY THIS IS TRUE IS UNKNOWN AT THE":"PRESENT TIME. YOU HAVE A GREATER CHANCE"&"OF BEING INVOLVED IN A ACCIDENT IF YOU":"WORK AT RUGGED HEAVY LABOR. PEOPLE"0"WHO WORK AT JOBS ASSOCIATED WITH OVER-":"EATING ALSO HAVE DO YOU WORK IN RUGGED HEAVY WORK OR AS":"A COOK, CHEF, OR BAKER ";:A$](A$,1)"N"177010);T;"-2=";T2:TT2:178010);T;"+0=";T:E$A$:(A$,1)"N"1880:"PROFESSIONALS USUALLY LIVE LONGER EXCEPT":"MUSICIANS, ARCHITECTSS TO BETTER HEALTH CARE."Wr:"IS YOUR OCCUPATION CLASSIFIED AS PROFESSIONAL ";:A$m(A$,1)"N"1730"ARE YOU A MUSICAN, ARCHITECT OR":"PHARMACIST ";:A$(A$,1)"N"ĺ10);T;"+2=";T2:TT2:178010);T;"-1=";T1:TT1:1780G"=";T:16002,A17ĺ10);T;"+1=";T1:TT1:1600U6A17ĺ10);T;"+3=";T3:TT3_@:E$yJA$:(A$,1)"N"1650Y:"ALTHOUGH ATTENDING SHOOL DOES NOT MAKE":"YOU LIVE LONGER, MORE EDUCATION"^"CORRELATES WITH INCREASED INCOME, AND":"ACCE);T;"+2=";T2:TT2#3000T"PART III EDUCATION AND OCCUPATION":3000:"STARTING FROM THE FIRST GRADE, WHAT ARE":"THE TOTAL NUMBER OF YEARS YOU ATTENDED":"SCHOOL ";AA12ĺ10);T;"-2=";T2:TT2:1600 "A14ĺ10);T;"+0ST EXAMINATION AND PAP":"SMEAR AT LEAST ONCE A YEAR ";OxA$:(A$,1)"N"ĺTm10);T;"+2=";T2:TT2:w1490"DO YOU HAVE A PHYSICAL AND PR0CTOSCOPIC":"EXAMINATION AT LEAST ONCE A YEAR ";A$:(A$,1)"N"ĺ10);T;"+0=";T:148010"HOURS IN NONPHYSICAL ACTIVITY AND MAY"y("BE UNHAPPY AND SLEEP AS AN ESCAPE OR":"MAY BE ILL. DEPRESSED PEOPLE HAVE"2"SHORTER LIFE EXPECTANCIES."PZ(S$,1)"F"AY30(S$,1)"M"AY401490d(S$,1)"M"14407n"DO YOU HAVE A BREA+3=";T3:TT3A:"HOW MANY HOURS DO YOU SLEEP EACH DAY ";:A`A9ĺ10);T;"-0=";T:1290A9ĺ10);T;"-4=";T4:TT4:1290A10ĺ10);T;"-6=";T6:TT6 :E$A$:(A$,1)"N"1360'#:"ADULTS THAT SLEEP TOO MUCH US TOO MANY": RATHER RIGID VALUE SYSTEMS":"AND MAY UNDERGO STRESS IN MAINTAINING":"THEM."T"DO YOU EXERSISE MODERATELY--JOG, BIKE":"RIDE, TAKE LONG WALKS, SWIM--AT LEAST""2 OR 3 TIMES A WEEK ";:A$(A$,1)"N"ĺ10);T;"+0=";T:123010);T;"T AN EXPLANATION OF THIS":E$%BA$;L(A$,1)"N"1170V:"MODERATE DRINKING (UP TO TWO DRINKS PER":"DAY) REDUCES STRESS AND AIDS DIGESTION."`"HEAVY DRINKING, HOWEVER, PRODUCES":"PHYSIOLOGICAL DAMAGE. AS FOR TEETOTALER"Nj"THEY MAY HAVE3B10:1000"A4B12:1000E10);T;"-";B;" =";TB:TTB:v"HOW MANY DRINKS DO YOU HAVE EACH DAY ";:AA0ĺTAB;T;"-1=";T1:TT1:1080$A2ĺ10);T;"+3=";T3:TT3:1080.A2ĺ10);T;"-8=";T8:TT8:10808:E$"DO YOU WAN ";:ARA0B0:870#\BA10Ff10);T;"-";B;" =";TB:TTB:"HOW MANY PACKS OF CIGARETS DO YOU SMOKE":"A DAY ";:AA0B0:1000A1B2:1000A1B4:1000A1.5B5.5:1000A2B7:1000A2B8:1000 AER":"ASTHMA, EMPHYSEMA AND/OR CHRONIC"e"BRONCHITIS FOUND IN YOUR PARENTS AND":"GRANDPARENTS ";lA10);T;"-3 X";A;" =";T3A TT3A:3000 "PART II HEALTH AND DIET"*30004>"HOW MANY POUNDS OVERWEIGHT ARE YOUOR HEART ATTACK":"OR STROKE BEFORE AGE 60 ";5A$[(A$,1)"N"ĺ10);T;"-0=";T:710w10);T;"-2=";T2:TT2}"WHAT IS THE TOTAL NUMBER OF INCIDENCES":"OF DIABETES, THYROID DISORDER, BREAST"'"CANCER (WOMEN), DIGESTIVE SYSTEM CANC=";T2:TT20d:"DID ANY OF YOUR GRANDPARENTS, PARENTS,":"BROTHERS OR SISTERS DIE OF HEART"D"ATTACK OR STROKE BEFORE AGE 50 ";XA$b(A$,1)"N"ĺ10);T;"-0=";T:640l10);T;"-4=";T4vTT4-"DID ANY OF THE ABOVE DIE "OF OHIO USERS GROUP":77054CT$"MARCH 1979":770f>CT$"THIS WILL WRITE STORIES FORM YOUR":770HCT$"CHOICE OF WORDS":770R21:" PRESS 'ESC' TO END"\"< PRESS THE SPACE BAR TO CONTINUE...>"f(16384)155760p(16384)16085";Y$::7306"OK, SEE YOU WHEN YOU FEEL UP TO IT."j16368,0:::10:10:"* * * THE END * * *":{20(CT$)2CT$"" 4:CT$"** MAD LIB **":770%CT$"FROM CREATIVE COMPUTING":770*CT$"BY LOU LAURICH":770/CT$ MAKE HER""C$(10)" SORE."::<10)"YOURS "B$(5)","O10)F$" "G$:k(4)"PR#0":I16::It200"WANT ANOTHER STORY? ";Y$Y$"N"900"WANT THE SAME WORDS? ";Y$:Y$"Y"220Y$"N"60 "COME ON NOW, Y OR N -C$(5)" WAS BENT AND KEPT PRESSING INTO"["HER "C$(6)". SHE SAYS THIS COULD LEAD ""TO A "A$(10)" CONDITION OF THE "C$(8):"I WOULD LIKE TO EXCHANGE THIS "A$(9)"BED FOR ONE THAT WILL ALLOW MY WIFE" "TO SLEEP "B$(4)" AND WON'Tm"BED IN YOUR STORE. I GOT IT FOR MY"PvA$(4)" WIFE WHO SLEEPS VERY "B$(1)"}"AND SAYS THAT "A$(6)" WATER BEDS THAT""HAVE "C$(1)"S IN THEM MAKE HER "C$(3)"ACHE. WHEN THE BED ARRIVED MY WIFE ""TESTED IT "B$(2)" AND SAID THE "A$(8)THE" N"AUTOMATIC "C$(9)".":OP"FOLLOW THIS ADVICE AND YOU MAY WIN THE:"~S"*****"A$(7)" CONDUCT "C$(10)"*****":700X"BUST-A-BUTTON AND DUCK DEPT STORE"Y"AKRON, OHIO":b"DEAR SIRS:":l"LAST WEEK I PURCHASED A "A$(2)" WATER"'O THE SLOGAN:":>:" THE ARMY BUILDS BETTER "C$(7)"S!":m?"AT ROLL CALL, WHEN THE "A$(8)" SERGEANT"@"CALLS YOUR NAME, SHOUT '"J$"' LOUD"D"AND CLEAR.":I"YOU WILL BECOME FAMILIAR WITH WEAPONS"J"LIKE THE .30 CALIBER "C$(8)" AND OKING "C$(3)"S ON HIS"C"CAP. WHEN YOU ADDRESS AN OFFICER, SAY"o&C$(4)" AND SAY IT "B$(5)". IF YOU GET"+"A "A$(9)" HAIRCUT, KEEP YOUR "C$(5)"S"0"SHINED. AND SEE THAT YOUR "C$(6)" IS"1"CLEAN AT ALL TIMES, YOU WILL BE A"5"CREDIT TRMY, HERE"8"ARE SOME "A$(11)" HINTS THAT WILL HELP"`"YOU BECOME A "A$(10)" SOLDIER.":"THE ARMY IS MADE UP OF OFFICERS,NONCOMS" "AND "C$(1)"S. YOU CAN RECOGNIZE AN ""OFFICER BY THE "C$(2)" ON HIS SHOULDERS""AND THE FUNNY-LO40:"-";:X:B HAPPY: 3 2 1 0 -1 -2 -3 UNHAPPY"-$ 12);4$ A`$ A0ĺ10);T;"+";A;"=";TA:TTA:2600$ 10);T;"+";A;"=";TA:TTA$( :$2 3000$< " YOUR LIFE EXPECTANCY IS ";T;" YEARS"$F 3000$P ::$ $ X140:"-";:X:A% X10);T;"-";A;"=";TA:TTA:m# "DO YOU USE YOUR CAR'S SEAT BELTS AND":"FOLLOW SPEED LIMITS REGULARLY ";:A$# (A$,1)"N"ĺ10);T;"+0=";T:2530# 10);T;"+1=";T1:TT1# :"ON THE FOLLOWING SCALE HOW WOULD YOU":"RATE YOURSELF?"# "$ " PERSON ARE YOU":"(3 IS THE MOST CALM)";M"V A:10);T;"+";A;"=";TA:TTA:"t "ON A SCALE OF 0 TO 5, HOW MUCH OF AN":"AGGRESSIVE, INTENSE AND COMPETITIVE ""~ "PERSON ARE YOU (5 IS THE MOST AGGRESSIVE":"INTENSE AND/OR COMPETITIVE.)"" A# 1TH SOMEONE":"ON A PERMANENT BASIS ";:A$X!(A$,1)"Y"ĺ10);T;"+3=";T3:TT3:2360t! AAY25:A0A0:2350! "HOW MANY OF THE PAST ";A;" YE!$ AA10!. 10);T;"-";A;"=";TA:TTA("8 :"ON A SCALE OF 0 TO 3, HOW MUCH OF A":"CALM PASSIVE ;T:2170$ p10);T;"+2=";T2:TT2* z4 3000P "PART IV LIFESTYLE"Z 3000 :"DO YOU LIVE IN A RURAL OR AN URBAN AREA";:A$ (A$,1)"R"ĺ10);T;"+1=";T1:TT1:2260 10);T;"-1=";T1:TT1)!:"ARE YOU MARRIED OR LIVING WIHEM AND"' "CONSUME MORE RICH FOOD."-Z "IS YOUR JOB ACTIVE OR SEDENTARY ";:A$4(A$,1)"A"ĺ10);T;"+3=";T3:TT3:2120>10);T;"-3=";T3:TT3:HRAY612180\"ARE YOU STILL WORKIN G ";:A$ f(A$,1)"N"ĺ10);T;"+0=" *$********************.*****$$.* * ** ..**************"+ 1,"$*** $**** $******.*****$$.*.* * *. .* *.. $****"+ 1,"**** $**** $****.*.****$$.* * ******. *. .*.. ******"2, 1,"*** *$**  2,"$*** *$*** $*************$$..*.******. *.. $****"* 2,"**** $$*******************.*.******$$ *** *** **********$****"* 2,"**** *$*** $*****.*********$$ .*******. .*. *****">+ 2,"**** *.******. *****"a) 3,"$*** *$*** $***********$$.*.*.******** $****") 3,"**** $**** $***********$$..*.*******.*.. ******") 3,"**** $**** $************$$...**********.. *****"L***********$***$*$*******$$.*.*.*********.*$$****"|(n 4,"$*******$$***************$****.********$$..*.*.*******.**$$****"(x 4,"**** *$*** $***.*********$$.*.*.*.******. *****") 4,"**** *$*** $************$$..*.***./***"S'F 5,"$****$$$ $**** $$*$$*****$$..*.***********..****"'P 5,"***** $$ *$*** $***$*******$*.*.*.**********..*****"'Z 5,"***** $$$*$*** $$*$**$******$$..*..*********.*$*****"1(d 5,"*******$$******** $*$$.*.**************..."y&( 6,"$**$$ *$*** $*$$.*.*.**************/"&2 6,"***$$$ *$*** $**$$..*.*************..**" '< 6,"****$$ $***** $$*$$****$$.*.*.********.**************../"[% 8,"***** *$*** $$**.**.**************.*/"%  8,"**** $***** $**$*.***************...."% 7,"$*$** $**** $*$...*.*************.* /"2& 7,"**$$* *$ *$*** $**.******************../"$ 9,"**** $****************************$**$.*.***************.*."$ 9,"**** $****************************$**.*.****************..."% 8,"$**** *$*** $**$.**************"X# 11,"**** $***** $***$.******************.."# 10,"$*** $**** $**$.******************./"# 10,"**** *$*** $**$.********************/"8$ 9,"$**** ***************$***$..*******************"v" 12,"****$$$**** $***$.*******************"" 11,"$*** $$$*** $***$.*******************" # 11,"**** *$*** $***$.******* $**** $*$$********************."!~ 13,"*$$* *$*** $**$$.********************"! 12,"$*$$$***$*******************************$***$.********************"*" 12,"**$$$********************.** $*"U V 15,"*** *$** $********************************" ` 14,"$*** *$* *$$$**************************" j 14,"*** $**** $$$**********************">!t 13,"$$** ****************..... .. $******"p8 16,"** .$..$...$.. $*******************************....... $***$"B 16,"** **** $******************************....... *$" L 15,"$** $**** $*****************************.*************************.*........ . $********." 9,"$))$************$.****************************......... . $*******."$ 11,".$...$***********$************************* ** * $*******."#. 15,".$....$..$...$..$**************"****$..*.*.*.*.****************.**.*........... . ))**$$ $$$.*" 8,"********$..*.*.*.********************.**.*.....))) ) ** $) $.)**" 7,"$***********$..*.*.********************.**.*.*....... . )) )))***."3 7,"$.$************$..*.0z16368,0::GIVEN TO APPLE CORE OF SAN FRANCISCO FOR USE OF MEMBERS BY OHIO USERS GROUP,WILLIAM R. DIAL.. LAST MOD. JULY 1979 ' MADLIB 'CN(1);:28:N(2) 5  COMPUTER SELECTS MOVE D 15(M1)^ MX52,MX51MY53x MX52,MX51MY52 MY52,MY51MX53 MY52,MY51MX52 CE0 O3M BT99 CM1 CY17 CX17 15:CX52,CY5150+B CX(MM),CY(MM),CH(MM),CV(MM),CB(MM)1L FV  PRINT SCORE N` 21j M1Ğ:"PLAYER 1 (RED)";::21:"PLAYER 2 (BLUE)";t M2ĺ"PLAYER 1 (RED)";::21:"PLAYER 2 (BLUE)";~ 18 TCĞ:"T";  TCĺ" "  23:868:8:21"PLAYER 1 (RED)";:21:"PLAYER 2 (BLUE)"Q"--------------";l 21:"---------------"z MX4:MY4 X(X)(K)(K)(K)(K)$ Y(Y)X(K)X(K)X(K)X(K)) Z(Z)Y(K)Y(K)Y(K)Y(K)Y(K)Y(K). K163368 MMЃ0,2,2,1,2,3,1,1,3,2,1,3,2,0,0,1,2,2,1,0,3,1,1,2B\E1:OX3:OY3JfM1^pNX1:NY1:1010rzNX7:NY7:1010zM2NX1:NY7:1010NX7:NY1:1010N(2)N(1)2:N(2)2MX1:MY1M1B(1,1)1:B(7,7)1B(1,7)2:B(7,1)2 (21)$B(8,8)74000:credits=^3010:get number of playersf13r1,3811,38381,3811,3838V2385H2385H,V  H(11),V(11)*X0114H(X),V(X)>0HMY52,MY51MX52" X1X7/ X7X1< Y1Y7I Y7Y1X 15(M1)o X52,X51Y53 X52,X51Y52 Y52,Y51X53 Y52,Y51X52 ESC(A$(27)) A(A$" "ESC)  X b SETUP  lv0:1750 rMXX:MYY) |CDİ2930:16908 49152,128@ A$i XMX(A$"K"A$"S")(A$"J"A$"A") YMY(A$"M"A$"Z")(A$"I"A$"W") 0 MXMYXY1710 MX52,MX51MY53 MX52,MX51MY52 MY52,MY51MX53 YC)M:N(M)N(M)1:N(O)N(O)1$ * 9 15(M1)Y (OXNX)1(OYNY)11530q OX51,OX55OY1 OX51,OX55OY N(M)N(M)1  B(OX,OY)0   SELECT SQUARE  F1:XMX:YMY:MX8MX:A$"" "A11 ,F1F) VVVV(A) B11' (C116 2B0C0ĂY <B(NXC,NYB)OčHHC5,VVB5_ Fe Pk Z dNX51,NX5NY52 nNX51,NX5NY51 xNY51,NY5NX52 NY51,NY5NX51 B11 C11 B(NXB,NYC)OB(NXB,N~B11 A0B0Ă8 B(NXA,NYB)OF1:A1:B1@ :N F01470[ K16336b 0z NX51,NX5NY52 NX51,NX5NY51 NY51,NY5NX52 NY51,NY5NX51 HNX52:VNY52 15(M1) A011 HHHH(A 5000  DRAW A BLOB 9 INPUT: OX,OY,NX,NYQH1OX52:V1OY52iH2NX52:V2NY52uX011$15(M1).H2H(X),V2V(X)8EĠ0BH1H(X),V1V(X)LV` TAKE-OVER ENEMY BLOBS jO3M:F0tA11           ****""/ 90,A +/0:A $****.*. **. . $$* ****"}., 0,"- $*** $$$ *****.* **.. .. ****".6 9,"*$** $***.*. * . ..* ****"/@ 9,"*$** $**** . ....* $$ $$*****..** *** .. *.. ******"- 0,"*** *$** $$$$$ $$****... *. .. *.. $****"- 0,"$* *$** $$$$$$$ $******* **. * *.. *****"(." 0,"$* $**** $$$$$$ $*********$$$****. *******. * ... *****", 1,"*** *$** $$********$$$****.*** * ***. * .* . $****", 0,"$** $**** $$$******$ $$$***.*.** ***. . ..*. *****",- 0,"*** $**** $$$$$$0:140,0I,159:I:100'A$"3"300c230,64:3:I125:(1)279,(1)191145,155::77:A$pI1150|Z(P1)230,64:3:(1)279,(1)191145,155:230,32:Z(P2):3:(1)279,(1)191145,155:I100,A$"4"350177:A$:0100 A$"2"250H 230,64:3:0,0:62454:0:50:230,32:77:A$} I2791531:1:140,0I,159:0:140,0I,159:I I1521401:Z(P1):230,64:3:140,0I,159:Z(P2):230,32:0:140,0I,159:I Z(P1)I13901:1:140,0I,159:SAMMY!":::"CHOOSE SAMMY'S DEATH:": "1 ACID":"2 LASER":"3 EXPLOSION":"4 DISINTIGRATION":"5 CRUSHING":"6 ELECTROCUTION":"7 CHAINSAW" :"ENTER YOUR CHOICE (0 TO QUIT) : ";:Z(16368):A$:A$"0"ĉ:: A$"1"190 77:A$:110 50" nI1591401:1:0,I279,I7 pPI3.1415927180 sJ13:3:(1)11140,(1)20140145,159:0:(1)11140,(1)20140145,159:J:I xI140159:0:0,I279,I }J13:0:(1)11140,(1)20140145,159:J:I  & :::"KILL 144,157143,157143,152:142,153143,157143,157143,159p 5141,154141,156:141,158141,159:147,158147,159v < M:Z(16304)(16302)(16300)(16297):230,32: d::230,32:0:0,0:62454:230,64:0:0,0:62454:3:50:230,32:50 i1145:144,140144,145:146,141146,145:148,142148,149 3150,143150,149:141,146143,146:140,147147,147:145,146147,146:145,148146,148:142,149146,1499 4145,150149,150149,159:148,157148,151147,151147,156:145,151145,157146,157:144,151 L BY ELMER J. FUDD OF THE STORE ROOM III AE LINE 201-233-0341 PASSWORD- KNICKSW((1)1000)1005P1P116300:P216299P316336 1006 2140,141140,143:142,140142,       !!! ! gW'  `^ :F Y %^LǏLZ^[_\Z][`1''I8Mt_=gH?J QVQT_ɕ%[^ZZ\[]^Z_[ 0W Г J1  @)ȹ@)ȹ@) q P^ɠ 0   qL MW'WП < XX QLiLLs4  :0 13,"**$****** *.. $$*$*.*.. *... *"u: 13,".*$*****.*.*. *$*$*.*... *... ."D 14,"*$****.*.*.. $$$*.*.*.. *.. *"N 15,"$***.*.*.*. $$*.*.*.*. *. ."(X 15,"$******.* .* * $$$"P 13,"**$******.*. $$... ..** * *" 13,"**$*******.* *$*.. * *" 13,"**$******.*. $$*$... .*... **"& 13,"**$*****.*.*. $*$*.*... .*... *" .******* ** $$$$$$ $$$$$$$$"` 14,"********* .******* ** $$$$$$ $" 14,"********.* .***** ***** $ $$$$$$$$" 13,"**********.* .***** ***$$$ $ $$$$" 13,"**$*******.* * * $$ $$$$$$*.*.* $$$$$$$ $ $"] 16,"******** $$$ $$$$$*.*.*.*** $$$$$ $$ $" 15,"********* $$$$******* * $$$$$ * $$$$$ $$ $ $$" 15,"******** $$$$$$$ .********* * $$$$$$ $ $$$$$$$"! 14,"********* $$$ *$$$$$$$$$$"G 15,"$$$$$$$$$$$$$$$$$ $$$*.*.*.* *** *$$$$$$$ $$" 15,"$$$$$$$$$$$$$$$$$ $$.*.*.* **$ *$$$$$$$ $$" 15,"$$$*** $$$$$ $$$$.*.** **$$$$$**$$ $" 15,"$$***** $ *.* ** $$$$$$$$ $"% 16,"******19,"$$$$$$$$$$$$$$$*.***.*.*. *.*.$$$ $$$$$*."e ^ 20,"$$$$$$$$$$$$$$$*.**----.* $$$$$$$$$$$$$$$" h 20,"$$$$$$$$$$$$$ $$ *** $$$ $$$ $$$$$$$$$" r 18,"$$$$$$$$$$$$$$$$ $$$$$$ $$$ $$$$$$$$$$" | 16,"$$$$$$$$$$$$$$$$ $$*.* $$ $ ..**$$$$$$$"M , 15,"$$$$$$$$$$$$$$$$.*.* .*$$*$$ * **$$$$$$$" 6 16,"$$$$$$$$$$$$$$$ . .$$$$$$$$*." @ 17,"$$$$$$$$$$$$$$$*.*. $$$$$$$$$* *.$$$$ $$$$*." J 18,"$$$$$$$$$$$$$$.*.* $$$$$$$ .*$$$$$ $$$$*."/ T 18,"$*$$$$$$$$$.$$$$$.$$$$$.*$$$$$$$.**$$$$$$$"m  17,"$*$$$$$$$$$$$.*$$$$$ $$$$$.**$$$$$$"  17,"$*$$$$$$$$$$$.*.*.$$$ $$ $$$$$$***$$$$$"  16,"$*$$$$$$$$$$$$..*.* **$$. ..**$$$$$$" " 16,"$$$$$$$$$$$$$$.*.*. *.*$,"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"] 20,"$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$$$$$$$" 20,"$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$$$$$$$$" 19,"$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$$$$$$$$$" 19,"$*$$$$$$$$$$$$$$$$$$$$$*.*$$$$$$$*$$$$$$$"5$$$$$$$$"4 24,"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$"b 23,"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 22,"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 21,"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 21,"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$") 21,' 1:(29):A$(100)*A,A$:A90Ā7A0ĺA$CA015OA);A$W15sd 32,"$$$$$$$$$$$$$$$"n 30,"$$$$$$$$$$$$$$$$$$$$"x 29,"$$$$$$$$$$$$$$$$$$$$$$$" 27,"$$$$$$$$$$$$$$$$$$$$$$$$$$" 25,"$$$$$$$$$$$$$$$$$$$$$! ! !!!!!!!!!       10093:I130149:I,0I,20::I140150:I,20I,50:I150160:I,15I,20::0:I05:135I,I130,I::141,50140,49:149,50150,49: I150,I3:Z(P3)(P3)130,I30140,I30:Z(P3)(P3):150,I30160,I30:Z(P3)(P3):0:130,I45135,I50150,I50:Z(P3)(P3)150,I35160,I35:Z(P3)(P3)I140159:455:3:J105010:(1)J150,I:Z(P3):::I11500::70 w100A$"6"450T230,64:3:I140159:140,I150,I::0:50:77:A$x3:I01402:I,159:I1,158:I11500:Z(P1)Z(P2)::100A$"7"150230,32:500:77:A$I50139:455::4803:140,I3143,I147,.6I1800:(1)11140,(1)20140:I:100?^A$"5"400Kc77:A$hI21145:3:I,139I,159:290I,139290I,159:0:I10,139I10,159:300I,139300I,159:mY138:V5:370n145,Y145,Y20:r3:366:VV.13:0:366:YYV:Y1393Y)J: 200: S(X,Y)# Y,X. 1420A WIN1 1590L 4000_ WIN1 1590 X0 7: Y0 7: S(X,Y)1 3506 S(X,Y)1 A1 1 2:BG: 650: AJ S(X,Y)2 A1 1 2: B1 1 2: 650: B,A^ Y,X 1,323: 1,327: 2,329: 1,331: 15,170: 16,172v U 15,174: 23,250: 23,252: 23,254: 31,330 V R(4),S(8,8):G1:R(0)99 WFLAG1 Z 1,0,1,0,0,0,-1,0,0,1,0,0,0,-1,0,-1,15 x X0 7: Y0 7: J: J15 180 S(X, 80 OS0 :FLAG FLAG" P BV Q 13: 6,386: 6,3839: 6,3938: 6,395 R 11,153: 11,121: 21,233: 19,211: 27,313: 35,392: 0,48: 0,417: 0,223 S 2,425: 0,131: 0,433; T 1,311: 1,319: 1,321: YOU"1 9"HAVE ANOTHER JUMP. TYPE TWO NEGATIVE"T <"NUMBERS IF YOU CANNOT JUMP."_ ?: 65i @WIN1 A"PRESS A KEY TO BEGIN": A$ B936 G :FLAG0 H B7 39 I A6 34 4 JFLAGFLAG:FLAG L A,A4B M A NSS1: S4A COORDINATE" " "SYSTEM."( R #"(1,1) IS FOR THE LOWER LEFT CORNER"| ("(1,8) IS FOR THE UPPER LEFT CORNER" -"(8,1) IS FOR THE LOWER RIGHT CORNER" 2"(8,8) IS FOR THE UPPER RIGHT CORNER" 5 7"THE COMPUTER WILL TYPE '+TO' WHENODIFIED AND% ADAPTED TO APPLE BY=  V. W. BAUMAN FROMY  A PROGRAM BY A. SEGALa : "THIS IS THE GAME OF CHECKERS."  "YOU ARE THE PURPLE MARKERS AT THE"  "BOTTOM OF THE SCREEN. SQUARES"  "ARE REFERRED TO BY :RICH$(10)936.CR17::CRZ16):50,127:"CHECKERS":50,255:::u14);"COPYRIGHT BY":11);"CREATIVE COMPUTING"13);"P.O. BOX 789-M"6);"MORRISTOWN, NEW JERSEY 07960" CR12000:CR:936 PROGRAM M"""""""     O'S NAME?";B$:G13:B((MTS)7(NTS))P1360- <TS:13809 PN:M:e d:G$;G$;G$;"YOU WIN":P1ĺA$:P2ĺB$r sP2ĺB$ x"PLAY AGAIN? Y/N ";Q$:Q$"Y"170 ::"THANK YOU FOR PLAYING ": ::"PLAYER ONE'S NAME?";A$:"PLAYER TW tTS:1380 M4N41210G TS13:B((MTS)7(NTS))P1210U TS:1380g M4N41260 TS13:B((MTS)7(NTS))P1260 TS:1380 M4N41310 TS13:B((MTS)7(NTS))P1310 TS:1380 M4N41360 (TSKA:A:0 G$;"COLUMB FULL "::P1400:5009 500Z G$;G$;G$;"TIE GAME ":1400` k T4ı M17:N17:B(M7N)P1360 $M41110 .TS13:B((MTS)7N)P1110 BTS:1380 VN41160 `TS13:B(M7(NTS))P1160  Y1! B(C7Y)07609 YY1:Y8760:740B 740Z YY1:YSY:Y0900 Y3YS55:CL(P):860:Y(YS1)53830 40:860:J02((1)5):Z(16336)(16336): >Y:B(C7YS)P: \AYY3:Q((C1)5)3:K((C1)5)6:Q,N? ";A$:C:C1C7460' C(C)470C "COLOR DESIRED ";CL(P)L 460] :700:1000c w P2:TF1TT1 &T25TF0920 0"WHICH COLUMN? ";B$:C:C1C7560 5C(C)570 6"COLOR DESIRED ";CL(P) 7560 ::700:1000:400B(56),CL(2):G$"":2000%|::13:I2375:2,37I:2,37I:I:" 1 2 3 4 5 6 7":34,21I056:B(I)0:I:CL(1)7:CL(2)1:T0:TF((1)2):TF:TF1500P1:TF0TT1T25TF1920 "WHICH COLUM"" " " " " "