IMD 1.15: 16/05/2007 7:39:32 fog gam 016         -FOG/GAM016/GAM#016DOCDUCK BAS+ ESCAPE BASFASTLIFEAQM!FASTLIFECOM FASTLIFEDOCGUNNER-2BASLIFE BASLIFE DOC+,LIFE1 PATLIFE2 PAT LIFE3 PAT!LIFE4 PAT#LIFEASC COMg$%&'()*PINGPONGBAS* RND-WALKBASSLOTS BASMSLOTS DOCSNOW BAS"TYPERACEBAS> /GAM#016CRC-a :**********************************************a:b: ********* SLOTS *********b(:Qb2:ORIGINAL IDEA FROM "67 READY TO RUN PROGRAMSwb<:IN BASIC" BY WM. SCOTT WATSON.bF:ORIGINAL VERSION WRITTEN FOR TRS-80bP:bZ:RE-WRITTEN, MODIFIED AND UPGRADED FOR THE cd:OSBORNE AND MICROSOFT BASIC IN JULY, 19835cn:BY RON FORSYTHE AND MIKE KAUFMAN=cx:pc:*******************************************c: SIGN ON GRAPHICSc:*********************  **********************c ()c A :Z1Z: Z,A:ZZ1Z: Zp,A:Zd 0,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22d 1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,1,23i6 1,23,1,23,1,23,1,23,1,23,1,23,1,23,1,23,1,23,1,23,1,23,1,23,1,23,1,23,1,23,1,23,1,23mi@ 1,23,1,23,1,23,1,23,1,5,2,80,1,114,1,111,1,104,1,105,1,98,1,105,1,116,1,101,1,100,5,22iJ 1,22,78,22,1,22,2,1,30,4,4,1,12,22,1,22,78,22,1,22,2,1,2,122,1,22e 1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22qe 78,22,1,22,48,22,1,22,78,22,1,22,2,80,1,73,1,71,1,83,2,73,1,78,2,65,2,80,1,79,1,75,1,69e 1,89,2,80,1,82,1,69,1,83,1,69,1,78,1,84,1,83,1,58,22,27,1,18,1,18,1,18,1,18,1,18%jT 1,18,1,18,1,18,1,18,1,18,1,18,1,18,1,18,1,18,1,18,1,18,1,18,1,18,1,18,1,18,1,18,1,18j^ 1,18,1,18,1,5,3,4,2,11,2,1,3,98,1,121,8,22,1,22,78,22,1,22,2,1,2,6,25,7,3,4,2,11,2,1jh 12,22,1,22,78,22,1,22,2,1,2,6,3,45,1,42,1,22,78,22,1,22,9,10,1,22,1,22+f 1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22,1,22f 1,22,1,22,1,22,1,22,1,22,1,22,1,25,1,1,12,22,1,22,78,22,1,22,8,10,1,25,24,10,1,25,2,1f 12,22,1,22,78,22,1,22,7,10,1,255,1,45,1,45,1,45,1,45,1,45,1,45,1,45,1,45,1,45:*******************************************uH: SETDBELL$()::RING BELLpNUY$E$"l"::START UNDERLININGqXUN$E$"m"::STOP UNDERLINING-qb ()::CLEAR SCREENaql:********************************************qv: PRINT INSTRUCTIONS TO SCREENq:************************ RANDOM NUMBER SEEDuR:*******************************************v\ "" SEEDSEED: \ "vf ()Jvp:"YOU MAY START WITH UP TO $5000"vz:"HOW MUCH MONEY DO YOU WANT TO START WITH";CA: ()v CA pv CA pv********************q:  )UY$ "WELCOME TO THE OSBORNE SLOT MACHINE";UN$ # ~w˾"p(x= 'ŏ4:4ˤ4#44|g4;F; &4:4ˤ44#4|g4+4;4++4ˤ4#4#4|g4+4+4> #^ V! FASTLIFE 1.00 -- by Carl Flarity This game involves cellular generation growth. Each cell is represented by a character on the CRT. A cell is surrounded by eight other cells. In each generation cells die and grow simultaneously <D %~ '%6 '# 2e! <D~> L> 2ew# ::e*pŏ4:4ˤ4#44|g4;F; &4:4ˤ44#4|g4+4;4++4ˤ4#4#4|g4+4+4> #^ V!. A cell dies from overpopulation if it is surrounded by more than three living cells. It will also die of isolation if it has less than two cells surrounding it. New cells are formed in empty positions ONLY if it has three cells around it. Enter your pattern - a line at a time ... [.] where you want a live cell [0] for an empty one [RETURN] at the end of each line [ESC] to clear screen and set new pattern [/] for each new generation [\] for con   FASTLIFE.DOC 1.00 by Carl Flarity This is an improved version of the LIFE program already in the FOG library. It is written in Z80 Assembly code and thus executes much faster than the other versions. You also have the option of changing patterns as succeeding generations proceed. You may enter patterns a line at a time or use the number pad as a "joy-stick" to reposition the cusor. The size of the "universe" is 60 columns by 32 lines. Patterns wrap around at the edges so that the left edge continues onto right edge, bottom edge continues onto top edge. Note that FASTLIFE uses Z80 code and writes directly into CRT memory assuming width of 128 characters. It seems feasible to adapt this program to a non- OSBORNE Z80 CP/M system given the source code provided in FASTLIFE.ASM.STLIFE uses Z80 code and writes directly into CRT memory assuming width of 128 characters. It seems feasible to adapt thia A(,2),B(,)aNL$( ): CR$( )bA8:A92:SPEED :N2 b( ( ): : ( )"b2(b<`bF "YOU ARE THE ('*'). THE ATTACKERS ARE THE ('$')."bP "THE MINES ARE THE ('X'). THE TANK IS ('&')."bZbd"THE TANK CAN HIT A MINE WITHOUT BEING DAMAGED"cn"THE TANK CAN DESTROY YOU OR THE ATTACKERS"8cx"THE ATTACKERS WILL CHASE YOU SO MANUVER YOURSELF"nc" SO THAT THE ATTACKERS WILL RUN INTO MINES "c"SCORE IS THE TIME YOU REMAIN ON THE BOARD"c"NO POINTS   ARE AWARDED FOR KILLING THE ATTACKERS"cc (), d +(), 'd (), @d '(), rd "MOVE BY TEN KEY PAD USED AS A JOY STICK: "d: "7 UP/LEFT 8 UP 9 UP/RIGHT"d "4 LEFT  ";( );"ESCAPE!";( ); iIII :Y:JJJJ: &);JJ;"SCORE/TIME";( );iAAA$"""iAAA$0iIIIIIIyi(AAA$"")(IIISPEED)  : ( ); : " ";: ( );i AAA$"1" Yi& AAA$"2" Yi0 AAA$ 5 JUMP 6 RIGHT"d "1 DOWN/LEFT 2 DOWN 3 DOWN/RIGHT"d3e "JUMP (5) WILL PUT YOU ANYWHERE (EVEN ON A MINE)."ae "NO MOVE WILL LEAVE YOU WHERE YOU ARE."e "YOU HAVE ONLY ";N2;" CHANCES TO USE JUMP (5)."e": "MAKE SURE WIDT"3" Yi: AAA$"4" YiD AAA$"6" YiN AAA$"7" Y jX AAA$"8" Y!jb AAA$"9" Y6jl AAA$"5" Y`jv Y "NO MOVE";: ( );: jVJ:WK: Y  : N2 j "ILLEGAL";: ( );: jH IS LARGER THAN 64": "OR GAME WILL NOT PRINT CORRECTLY":f, "HIT ENTER TO START GAME";ANS$(f6 ( ):JJ:N2 Mf@ U ((A8)): ( ): UrfJ ( );: ( );: ( );fT B A8: C A9:A(B,C):X(A9)f^ X  Y   : J: jJ(Y)k Y  : Y  : K: kK: )kK(Y): 3k UkA(J,K): K(J), okJH:KI:N2N2: kKKW:JJVk A(J,K) V : A(V,W): W( h : A(B,C): C(B), fh C: B:N34gr D  A9:A(,D): D(), :A(A8,D): D(A8), : Dg| D  A8:A(D,): (D), :A(D,A9): A9(D), : Dg gH(A8):I(A9)V), kA(J,K) : K(J), : .k Xc   : l VX:MY:X(JX):Y(KY):XXV:YYMKl A(X,Y)  : A(X,Y) al  A(V,M) zl* A(X,Y) R : l4XH:YMl> "TWO ATTACKERS HAVE COLLIDEg A(H,I)  : g D : hA(H,I): I(H), : D >hA(H,I) : I(H), :JH:KI: ph D  : A(H,I): I(H), hB(,D)H:B(,D)Ih Dh " D."; : ( );mHA(V,M): M(V), :A(X,Y): Y(X), :WmRA(V,M): M(V), : A(X,Y) \ : A(X,Y): Y(X), am\ plmfXc:mp "KILLED ONE";: ( );:N3N3:mz A(X,Y)  :   M9m B(,M9)X  : B(,M9)Y mM9M9: nB(,M9)c: p7nA(X,Y)A(V,M):A(V,M): M(V), \n A(X,Y) Y(X), n A(X,Y) Y(X), n A(X,Y) Y(X), n  " RIGHT PLAYER USES '6' TO GO UP AND '3' TO GO DOWN""c7"(RIGHT PLAYER SHOULD USE 10 KEY PAD FOR CONTROLS)"bc<::"GAME CONTINUES UNTIL '0' OR '.' IS TYPED TO END GAME"cF:"PLEASE MAKE NOTE OF SCORE BEFORE ENDING GAME SINCE "cP" SCREA(X,Y) Y(X), n A(X,Y) Y(X), n'o "THE ENEMY FOUND YOU -- YOU'RE DEAD"Lo A(X,Y) Y(X), ro A(X,Y) Y(X), o A(X,Y) Y(X), o A(X,Y) EN IS CLEARED WHEN GAME IS ENDED"dZ:"SCORE OF 1 IS GIVEN FOR RETURNING THE BALL"ddSPEED  Pdn" SCORE OF 10 IS GIVEN TO THE OTHER PLAYER IF BALL IS "dx "MISSED OR BALL GOES OFF THE TABLE WHEN RETURNED "d} " BEFORE GOING HALF WAY AY(X), o A(X,Y) Y(X), o$ `p. D :XB(,D):YB(,D): .p8B(,D)X:B(,D)Y: D@pB N3 qpL "ALL OPPONENTS DESTROYED -- YOU WIN": `pV K(J), : "YOU TOUCHED A MINE -- YOU ARE DEADCROSS THE TABLE":d "HIT RETURN TO START PLAY",A$eW  : WIDTH OF SCREEN (TOP TO BOTTOM) (LINES)XeL 1 : LENGTH OF SCREEN (LEFT TO RIGHT) (COLUMNS)teT L : PRINT TABeMT ((L)`) : PRINT MESSAGE TABeSC1  "q` "TRY AGAIN ";ANS$: (ANS$"0")(ANS$"N") 6 : ( ):NE -- YOU ARE DEAD@pB N3 qpL "ALL OPPONENTS DESTROYED -- YOU WIN": `pV K(J), : "YOU TOUCHED A MINE -- YOU ARE DEAD : SCORE LEFT PLAYEReSC2  : SCORE RIGHT PLAYER+fD1  : DIRECTION OF LEFT PADDLE (UP=1,DOWN=-1,NO MOVE=0)mfD2  : DIRECTION OF RIGHT PADDLE(UP=1,DOWN=-1,NO MOVE=0)fOB  : OUT OF BOUNDS FIELD CHARACTERfPD :a :: " PING PONG GAME by Jerry Silverstein,b::: "TO LAUNCH BALL TYPE '0' TO LAUNCH FROM LEFT PLAYER"mb " OR '.' TO LAUNCH FROM RIGHT PLAYER"b(::" LEFT PLAYER USES 'Q' TO GO UP AND 'A' TO GO DOWN"b2 PADDLE CHARACTERfB : BALL CHARACTERgX  : COLUMN NUMBER OF LEFT PADDLEcgY1  :Y2  : LINE NUMBER OF TOP OF LEFT AND RIGHT PADDLESgBLK : BLANK CHARACTERgCLS$ ( ) : CLEAR   SCREEN CHARACTERg"RET$ ( ) : RETURN TO BEGINNING OF SAME LINEh, CLS$;h6 I  8h@  X ((Y1 I)),PDxhJ  X (L )((Y2 I)),PD : CREATE PADDLEShT Ih^ I  (L)hh  (X ) I  :D1 :D2 lLCHlA$ :I I l I SPEED m A$"" ]m A$"Q" D1  : A$"A" D1  : A$"6" D2  : A$"3" D2 m (A$"0")(A$".") CLS$:m m : MOVE PADDLESm ( ,OB : CREATE FIELD BORDERhr  (X ) I (W),OBi| (X)I((W)),OB!i I6i I  (W )oi  (X )(I),OB : CREATE FIELD BORDERi  (X )(I),OBi  (X ) L (Y1 )(D1 ) D1  : STOP PADDLES FROM MOVING OFF SCREENn (Y2 )(D2 ) D2 :n (Y1 (W ))(D1 ) D1 `n (Y2 (W ))(D2 ) D2 n  D1  J1 :N1  : D1  J1 :N1 n D2  J2 I),OBi  (X ) L (I),OBi (X)(I),OBj (X)L(I),OBj I0j I (W)ej ((L))(I),  :CREATE NETj ((L)@)(I), j Ij (L)(),  :N2  : D2  J2 :N2 n Y1 Y1 D1:Y2 Y2 D2!o* D1   X ((Y1 J1)),BLKWo4 D2   X (L )((Y2 J2)),BLKto> " ";SC1;T);SC2;RET$;oH  X ((Y1 N1)),PDoR  X (L )(j (), j (L)(W), j& (W), Ak0 L, : L, :MAKE OUTOFBOUNDS A SQUARE FIELDak: MT);"LAUNCH BALL?";RET$;kDLCH :DIR$"NN":DW :DL kNA$""kXA$ kb A$"" X ll(Y2 N2)),PDo\ : HIT BALL SCOREpf DL(DW),BLK8pp (DIR$"UR")(DIR$"DR")(DIR$"RR") DIR mpz (DIR$"DL")(DIR$"UL")(DIR$"LL") DIR p (DIR$"NN") DIR p DIR  DD DL  : DIR  A$"0" LCH :DIR$"UR":DL :DWW:  DL (DW),B : LAUNCH BALL FROM LEFTolv A$"." LCH :DIR$"DL":DL L :DW:  DL (DW),B : LAUNCH BALL FROM RIGHTl LCH  : : MT);" ";RET$;lA$"":I   DD DL  : DD DLpP ( DD (DW))!q P PD P ( DD ((DW))) : q P PD DIR  DIR$"DL":DIR :SC2 SC2 : ~ : DIR  DIR$"DR":DIR :SC1 SC1 : ~q P PD P   ( DD ((DW))) : Kr P PD DIR  DIR$"LL":DIR :SC2 SC2 : ~ : DIR  DIR$"RR":DIR :SC1 SC1 : ~r P PD DIR  DIR$"UL":DIR :SC2 SC2 : ~ : DIR  DIR$"UR":SC1 $="0")OR(A$=".")THEN PRINT CLS$:END 720 GOTO 670 730 ' MOVE PADDLES 740 IF (Y1 = 1)AND(D1 = 1) THEN D1 = 0 ' STOP PADDLES FROM MOVING OFF SCREEN 750 IF (Y2 = 1)AND(D2 = 1) THEN D2 = 0 760 IF (Y1 =(W -2))AND(D1 = -1) THEN D1 = 0 770 IF (Y2SC1 : ~r DIR$"UR" DW DW :DL DL s DIR$"DR" DW DW :DL DL 8s DIR$"DL" DW DW :DL DL `s DIR$"UL" DW DW :DL DL }s DIR$"LL" DL DL s DIR$"RR" DL DL sP ( D =(W -2))AND(D2 = -1) THEN D2 = 0 780 IF D1 = 1 THEN J1 = 3:N1 = 0 ELSE IF D1 = -1 THEN J1 = -1:N1 = 2 790 IF D2 = 1 THEN J2 = 3:N2 = 0 ELSE IF D2 = -1 THEN J2 = -1:N2 = 2 800 Y1 = Y1 -D1:Y2 = Y2 -D2 810 IF D1 <> 0 THEN POKE -4096 + X +(128*(Y1 + J1)),L ( DW)) : SCORE - OUT OF BOUNDSt P OB DL (L ) SC1 SC1  :LCH: BAt$ POB DL  SC2 SC2  :LCH: But. POB DIR  SC2 SC2  :LCH: Bt8 POB DIR  SC1 SC1  :LCH tB LCBLK 820 IF D2 <> 0 THEN POKE -4096 + X +(L -2)+(128*(Y2 + J2)),BLK 830 PRINT " ";SC1;TAB(T);SC2;RET$; 840 POKE -4096 + X +(128*(Y1 + N1)),PD 850 POKE -4096 + X +(L -2)+(128*(Y2 + N2)),PD 860 ' HIT BALL SCORE 870 POKE -4096+DL+(12H DIR$"UR":DL:DWW: DL(DW),BuL LCH DIR$"DL":DLL:DW: DL(DW),B6uV (LCH)(LCH) jcu` GG : ~: GGG #: GGG: GGuj  DL (DW),B : PLACE BALL AT NEW LOCATIONut u~:a ABCDEFGHIJKLMNOPQRSTUVWXYZa abcdefghijklmnopqrstuvwxyz9b You may change what you need to type by modifying lines 10 to 80.Qb( "THIS IS LINE 4?"b2 "THE QUICK BROWN FOX JUMPED OVER THE LAZZY DOG'S BACK"b< "WHEN PINK PIGS ARE FAT, T FEEDBACK -- BALL HITS PADDLEuBELLNG :BELL LENGTHv b, :BEEPER FLAG ON,v ( );Nv BELCNT  BELLNG: BELCNTZv b,iv ( );ovL LENGTHv b, :BEEPER FLAG ON,v ( );NvHEY CAN'T WALK"bF "I SURE WISH I COULD WIN AT THIS GAME"-cP Use Your imagination or make it (#&$*%**&@^%!$@#$) HARD!!!!Zcb: The next line must be "DATA LASTLINE"kcc "LASTLINE"cd:------------------------------------------------------------  --------------cnE$():: Escape Character!dxCLS$():: Clear Screen_dDC$E$"=":: Direct Cursor AddressingdGY$E$"g":: Graphics OndGN$E$"G"::  , : Get keyboard inputh6 A$"N" A$"n" h i@ A$"Y" A$"y" T : ,\iJ:--------------------------------------------------------------------------iT < : *** PRINT INSTRUCTIONS ***i^: Graphics OffdHO$E$():: Cursor Home+eEP$E$"T":: Erase to End of Line_eDY$E$")":: DIM Display OneDN$E$"(":: DIM Display OffeUY$E$"l": a : WIPE$ homes the cursor and clears the screenb: CUR$ (followed by string X and Y values) puts theWb: cursor at X,Y. NOLINE$ erases from the cursor tob(: the end of the line. GREY$ begins half-intensityb2: display; WHT$ restores Start UnderlineeUN$E$"m": End Underlinef: Direct cursor addressing_f: Location= (CHR$(Line number+32));(CHR$(Column number+32))f:------------------------------------------------------------------------ full intensity. LEAF$ andc<: TRUNK$ each hold a whole line's worth of graphic;cF: herbiage; DIRT$ holds a line's worth of graphic bcP:'dirt'(maybe its really grass?)jcZ:cdWIPE$():CUR$()"=":LEAF$"":TRUNK$""cnNOLINE$( --gCNTBASE :How many times is keyboard read between time updates?GgTIMED :How much time elapes between ME moves?g:--------------------------------------------------------------------------g CLS$g " )( T):GREY$()")"cxWHT$()"(" d I :LEAF$LEAF$()" ": I5d I :TRUNK$TRUNK$()" ": I[d I 2:DIRT$DIRT$(): IdWALL$" "()()()()dFEN$" "()()()() WELCOME TO THE TYPING TEST HORSERACE" h " by: Donald Hill "::Yh " (c) 1983 Donald Hill"h": " Do you require instructions (Y/N) ?";h,A$: (A$) dROOF$()()()()d WIPE$d:: )"DUCK"d::3e" Do you want instructions (Y/N)? ",I$Oe I$"N" I$"n" \e WIPE$;e"The object of the game is to make the most points"e"shooting ducks with  out getting divebombed or blown"f"up. Shot ducks score from 10 to 50 points, depen-"Cf"ding on the angle of the shot. A duck shot directly"|f""overhead (key 5) only scores 10 points, but ducks"f,"shot on the steepest angles (keys 1 or 9) sc CUR$;(4);(6);WALL$;jN CUR$;(3);(6);FEN$;kX CUR$;(2);(7);ROOF$;5kb CUR$;" ";(!);"FIRE AT ANGLE 1 TO 9"=klXQkv Y  4 tk CUR$;(!X);( Y);" ";k ();()k X k X Y Xore 50"f6"points. Only four consecutive shots from the same"(g@"angle are allowed. If you miss, the duck may bomb"_gJ"you or your protecting trees. If more than five"gT"trees are lost from either side of your blind,"g^"you are liable to b:Y: vk X Y  kA$: (A$) fl (A$)H C2C2*l (A$)H (A$) C2;l C2 fHlH(A$)RlVV}l CUR$;" ";dV;"Bullets remaining "lA(A$)lSX:TYl  X  e divebombed from that side. You" hh"can survive if your ammunition is not hit. The duck"Dhr"can also hit your ammunition with a bomb from di-"\h|"rectly overhead."bhh"Five bonus points are scored for each surviving"h"tree as long asl CUR$;(1X);(9(A(X) ));"*" m  CUR$;(1X);(9(A(X) ));" "m* SX HWm4 T(A(X) ) T(A(X) ) im> V d qmH X{mR m\XS:YTmf Ymp CUR$;(!X);(V);" " at least one duck was hit. 20"i"points are scored for trees that survive through"@i"an entire game, but no bonus points are scored if"Zi"no ducks were hit."i: );"Press any key to begin."iA$: A$"" iROLLROLLi;mzX(()(N))m Y4  n CUR$;(!X);( Y);();();n " ""n X Dn X Y X:Y: v\n X Y vnA$: (A$) tn (A$)H C2C2n (A$)H (A$) C2 ROLL  ROLL i i ROLLi L()j Y  : L(Y): Yj WIPE$IjM:N:Q :Z :V:P:H:S:T:A$"":C2[jD(())rj& CUR$;(7);" ";j0 GREY$;LEAF$: TRUNK$: DIRT$: DIRT$j: WHT$;jDn C2 tnH(A$)nVVo CUR$;" ";dV;"Bullets remaining "oA(A$)"oSX:TY6o X  do$ CUR$;(1X);(9(A(X) ));"*"o. CUR$;(1X);(9(A(X) ));" "o8 SX VoB T   (A(X) ) T(A(X) ) oL Vd oV Xp` pjXS:YTpt Y2p~ CUR$;(X!);" ";IpX(()(C))Sp v`p ();{pPP((A$))  p CUR$;" ";(E);P;"Points";p Vd tJ CUR$;(5);(:G);" "tT CUR$;(6);(6G);" "u^ CUR$;(6);(:G);" "0uh CUR$;(3G);(7);" "Qur CUR$;(2G);(7);ROOF$ru| CUR$;(4G);(8G);" "u CUR$;(3G);(7G);()u CUR$;(4G);(p CUR$;(!S);" ";NOLINE$;pX:Yp vpW(())q W q M S /q E  : EUq  CUR$;("MS);("T);()xq CUR$;("MS);("T);" "q TD MS q( Mq2 B  8G);" "u CUR$;(3G);(9G);();()v CUR$;(5G);(8G);" "-v CUR$;(4G);(9G);()Lv CUR$;(3);(:G);" "rv CUR$;(4);(7G);();" "v CUR$;(3);(3G);" "v CUR$;(4);(9G);" q< L(B) T L(B): ZqF BqP qZ T QQ rd T ZZ6rn Q C: CUR$;" ";(;);"DUCK ! "arx Z N: CUR$;" ";(;);"DUCK !"grqr 6r I 1: CUR$;(I);" ";NOLINE$: Ir ( );";()v Gv "rv CUR$;(4);(7G);();" "v CUR$;(3);(3G);" "v CUR$;(4);(9G);" v CUR$;(3);(:G);" "rv CUR$;(4);(7G);();" "v CUR$;(3);(3G);" "v CUR$;(4);(9G);" r );"GAME OVER"r:::r P  : s  )"YOU BOMBED OUT -- NO POINTS SCORED"s @s Vd BONUS : BONUSqs  )" You had";QZ;"trees remaining worth"s: );(QZ)BONUS; "bonus points."s:  );" Your score was";P(QZ)BONUS;"points."t 0,2,4,6,8,10,12,14,16,18,20,28,30,32,34,36,38,40,42,44,46,48)t I :: IYt  );:" Try it again (Y/N)? ",AGAIN$yt" AGAIN$"Y" A$:: t,t6 G t@ CUR$;(5);(6G);" "  --------------------------------------------------------------------------jh CLS$^jr HO$;GY$;"vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv";GN$j| ;GY$;"vvvvvvvvvvvvvvv";GN$;DY$;" WELCOME TO THE TYPING TEST HORSERACE "; :TIMEB : C1o&:--------------------------------------------------------------------------Wo0  : Get line to TYPE:o:X5:Y5: : "READY? (Y/N/ESC)"oDA$: (A$) D : Get keyboard inDN$;GY$;"vvvvvvvvvvvvvv";GN$!k GY$;"vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv";GN$wk GY$;"vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv";GN$k GY$;"vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvputoN A$"N" A$"n" ToX A$"Y" A$"y" vob A$E$ 0pl D0pvX5:Y5: : " "EpX5:Y5 : bp I  : ();: Ip I : Ip:vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv";GN$#l GY$;"vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv";GN$OlX5 :Y5: : ;DY$;" TIME ";zlX5:Y5: : " KEYSTROKES "lX52:Y5: : " ERRORS ";DN$;lvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvq CHRNOLL  :Get next TYPE line if end-of-line7qTRY$(L$,CHRNO,)RqX5CHRNO:Y5 : q:---------------------------------------------------------------------qV$qC1X5 :Y5: : " "mX5:Y5: : " "-mX52:Y5: : " ":Xm GY$;: I E: ({);: I: GN$m GY$;"xb";GN$;"| | C1q C1CNTBASE C1: * :Change TIME yet?0r TIMETIMEBTIMED \:TIMEBTIME :Move ME yet?Er (V$) r V$TRY$ V$ :CHRNOCHRNO: > : ();: Hr    "n "--|---------------------------------------------------------------|--"]n GY$;"xb";GN$;"| | "n GY$;: I E: ({);: I: GN$::nTIME : GOOD : BOBO : ME :Move YOU!r s :^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^\s*TIMETIMEL}: X5 : Y5 :  : "###.#";TIME:::s4X5CHRNO:Y5 : : :Update TIMEs>GOODGO  OD : X5! : Y5 :  : GOOD;: :Update GOOD)tHBOBOBOBO : X55 : Y5 :  : BOBO;: :Update BOBO{tR:--------------------------------------------------------------------------t\X5ME : MEME : Y5tf X5A L : II ();:II : IIxj : "WINNER!!"xt I2 d: I2y~ : " "&y I2 d: I2.y IEy : "WINNER!!"Sy::::dy Y5 y: " C O N G R A T U L A T I O N S !!!!"y: " ------------------------------> ME WIN?tp tz " ";: GY$;"xb";GN$DuX5CHRNO:Y5 :  : :Update MEu:--------------------------------------------------------------------------uX5GOODBOBO:Y5 YOU BEAT THE COMPUTER!!"yTIMED TIMED(ME)z  z:Ez: " I MUST BE TO FAST FOR YOU"}z: " I'LL BE SLOWER NEXT TIME"zTIMED TIMED((GOODBOBO))z::u X5 X5v X5A L : ------------------------------> YOU WIN?v .v " ";: GY$;"xb";GN$;" ";tvX5CHRNO:Y5 :  : :Update YOUv:---------------------------------------------------: "DO YOU WANT TO PLAY AGAIN? (Y/N) "; { A$: (A$)   : get keyboard input%{ A$"N" A$"n" -A{ A$"Y" A$"y" hK{(  {-:::: CLS$:::::::: " THANK YOU FOR PLAYING"{.:::::::----------------------- w DC$( Y5)( X5);: :Position the courser]w:--------------------------------------------------------------------------fw L$twLL(L$)wCHRNOw L$"LASTLINE" : w$:X5:Y5 "Loading MENU"{0 "MENU"{1$|2:--------------------------------------------------------------------------0|< CLS$;q|F " WELCOME TO THE TYPING TEST HORSERACE"|P " by: Donald Hill "|U  : : EP$w.:X5:Y5 : : "TYPE: ";DY$;L$;DN$w8BxB:--------------------------------------------------------------------------xLX5 :We have a WINNER!!!xQIIxV I  x`" (c) 1983 Donald Hill":;}Z " The objece of the game is to get your horse (the bottom horse) across the";b}d "finish line ";UY$;"before";UN$;}n " the other horse gets across.":}x "You will be given a sentence   to type.":~ "Every time you type the right letter (or space) your horse will move forward "%~ "one space.":|~ "Every time you type the wrong letter (or space) your horse will move backward "~ "one space.":~ "If you finish the sentF$ AS 1 290 INPUT "WHICH GENERATION SHALL THE DISPLAY START WITH";T INPUT "AND THE LAST GENERATION";R1 INPUT "ALSO, HOW MANY SHALL I SKIP";O O=O+1 FOR M=1 TO L9 360 READ #1; LINE MM$ IF MM$="DONE" OR MM$="END" THEN 480 IF LEN(MM$) "you will be given another sentence to type. Continue typing until your horse" "crosses the finish line, unless the other horse wins first.": "If you win and wish to play again,  400 PRINT "NO MORE THAN "; L9; " CELLS PER LINE" : GOTO 1500 400 FOR R=1 TO LEN(MM$) IF MID$(MM$,R,1)=" " THEN 460 IF MID$(MM$,R,1)<>"*" THEN 490 S(M,R)=1 A=A+1 IF R>SS THEN SS=R 460 NEXT R NEXT M 480 GOTO 520 490 PRINT "'";MID$(MM$the other horse will get faster." "If you lose and wish to play again, the other horse will get slower."#D "Hit any key to continue";wA$: (A$)  : get keyboard input}rse will get slower."#D "Hit ,R,1);"' IS NEITHER A ' ' NOR A '*'"; GOTO 1500 520 DIM X(L9+1,L9+1) IF Y<=0 THEN 550 GOTO 20 550 DIM X(0,0) DIM X(L9+1,L9+1) V=0:G=0 Y=M-1:N1=M-1 PRINT CHR$(26);"GENERATION = 0 POPULATION =";A GOSUB 1020 610 G=G+1 A=0:V=0 FOR M=1 T II ();:II : IIxj : "WINNER!!"xt I2 d: I2y~ : " "&y I2 d: I2.y IEy : "WINNER!!"Sy::::dy Y5 y: " C O N G R A T U L A T I O N S !!!!"y: "O N1 FOR R=1 TO SS J=0 IF M>L9 OR R>L9 THEN 1370 IF X(M,R+1)<=0 OR R=SS THEN 690 J=J+1 690 IF X(M+1,R+1)<=0 OR M=N1 OR R=SS THEN 710 J=J+1 710 IF X(M+1,R)<=0 OR M=N1 THEN 730 J=J+1 730 IF M=N1 OR R=1 THEN 760 IF X(M+ INTEGER A, B, C, D, E, F, G, H, I, J, K, L, M INTEGER N, O, P, Q, R, S(2), T, U, V, W, X(2) INTEGER Y, Z, L9, N1, R1, SS, XX PRINT CHR$(26) L9=92 DIM S(L9+1,L9+1), X(L9+1,L9+1), M$(72) 20 Y=0:A=0:SS=0 INPUT "PATTERN FILE FOR INPUT";F$ OPEN 1,R-1)<=0 THEN 760 J=J+1 760 IF R=1 THEN 790 IF X(M,R-1)<=0 THEN 790 J=J+1 790 IF M=1 OR R=1 THEN 820 IF X(M-1,R-1)<=0 THEN 820 J=J+1 820 IF M=1 THEN 850 IF X(M-1,R)<=0 THEN 850 J=J+1 850 IF M=1 OR R=SS THEN 880   IF X(M-1,R+1)<=0 THEN 880 J=J+1 880 IF J=3 THEN 900 IF J<>2 OR X(M,R)<=0 THEN 920 900 S(M,R)=1 A=A+1 920 NEXT R NEXT M IF A=0 THEN 1340 IF G=R1 THEN 970 IF (GINT((G-T)/O) THEN 990 970 PRINT CHR$(26); "GEN=" ;G; o稊'I1c<7"f\~C8aS@|,w-8\qeT'nԌUG/ޥw͍{*Y(қzLb ;;i3.~0^zLT")޵TzP._7gx/=n;E\*Bs>FN;73~YYg7b~>\U:\~g'Qf\JoTAB(20); "POP=" ;A GOTO 1000 990 V=9 1000 GOSUB 1020 GOTO 610 1020 J=90:A=90 C=0:D=0 FOR M=1 TO N1 FOR R=SS TO 1 STEP -1 IF S(M,R)<=0 THEN 1130 IF MC THEN C=M IF R>D THEN D=R IF V=9 THEϪc2FpBpǘf8E.'MTМO7 Uzx~UwMzwsBO1UN"!q2Q=,WQ].4#b W]eq=N&eQ3槈q,nS@|,Y?՜N(옟9BOpǸ'U.f̹aO7 IUzx7^bz7^N!^L1z\cثS@|@|vFASTLIFE.ASMW  "!#$%&'()*,+-.0/123456789:<;=>@?oABECFD,x]m*b0^;!zLJofījxxqw)ƙTzP._7'V(Ez1Ɠfػb2?O7 UzxUw5GpK/xI3T#qHqx9=,WWz8ػ4iTzP._7'^uW*׿7?T1 O7 UzxUw?ǫ.ȝ]NGIHJKMNLOPQRSTUVʷ} P}6^kNxE]6zXT%(D1z_ FUnQ@^!>r}SHF(kBOZbBB+B*/Fc=,Tj+XoE\6Fc-TBF迩+ĸLw<,'Wq:xӌ)b1Tfp~97]=7m7 GTǚ{7݀f~⑏߁+{3>*GTz3/d|ԏѯ\MAg73f^>z@Zͼ|S*;4*-wf~D{$V?~JofHN|ԯqn73%Z:Z>WXfFS*Pb&TBFa 1f(`B9^! PYnWx\>Wq޿!Jdm 1fȬJHN+~ bJ@Wq k 1BewsUKor6󤪜}b J+ïB1c,T~|kvS++rSf\> \> \Jon8B,U]&Mz97f\> \Jo檈c;[Hv哏;Zқ,P>W` *nnD+';v̏hW~1қQ?;UVm|o槽>rnn|ir({3?'Hv{$%ÞJofvKvKd-~*׍7^uOf~~IvKvKvgoSYYboIBw󓊻]sIUG (+ ڲ]#r:8P  =Ƹ>~Jx@2@hA[=+V6/砳++vS{ﵼiT D{ho%z'CJj*^v+ z־k7^F.\LTsIp\Xin* WV~+ʈ=7#TMEayZitޕWF^6_)^{鈧@*+X47l|Ԍq2QU9h+v>3oW Uz]GOenkY ݴO+vӾD<[H}=Z?>@ʈͬʋnb~}B_^eng 2b5e־k7TF졆Ptk7kY _vӾXUZk7ЩРZ_JwU豦+tS ,U9h]nz.3oW Uz]`WՕ{)#T#n:*}dJߴ=tvnc![yZVyMuXP Aʋvsq݌k:*}1X+Lm{+#PߌPc_]4a.fSPYu^#J/`(T ߯1IV K~efBEk7W+t[P1T_nۻD>Uz鈷։*4QJ*te% 5zW] BWPiTٕ):wGʈͬʋnwX-Wz]i@~J/:^wޕ& ᷾E_1* # Jﶽ+#PCFi}dJߴ=tvnc![yZVyMuXP Aʋvsq݌k:*}1X+Lm{+#PߌPc_]4a.fS[vGJﶽ+#6Jz:b_Y7XwGʈͬʋnwX-Wz]i@~J/:^wޕ& ᷾E_1* # Jﶽ+#PCFi}o"cWz鈷싻um{W(Ї*bW(& 7 +}Q#>?}Jﶽ+} xnrZc @b0@RcTJ@*Ai}"J/:q  **************************************y: ESTABLISH WINNING COMBINATIONS2z:*******************************************Fz D[ Zz D`j lz D(# ,~z D, Jz D< hz D z D^  z D' z  D z D z D+ {( D| &!{2 D&N &3{< D &D{F Dj &U{P D &{Z "SORRY, BUT YOU LOSE YOUR BET OF $";B{d Z : Z{nTTB: T ::OUT OF MONEY LOOP{x (): {AL{ ~{EL{ ~|CL>|DAEC::A IS VALUE OF WHEEL #1, B WHEEL #2, C WHEEL #3H| ~z|:******************************************|: PAYOFF ODDS|:******************************************|  ) UY$"JACKPOT!!! 100 TO 1 PAYOFFS!!";UN$: BELL$D} UY$ "YOU'RE A WINNER!!!!!!!!!!!!!!!!!!!!!!!!!!!!!";UN$: BELL$S}TT(dB)]} D} "YOU WIN AT 80 TO 1 ODDS": BELL$}TT(PB)}" D}, "YOU WIN A  T 50 TO 1 ODDS": BELL$}6TT(2B)}@ D~J "YOU WIN AT 30 TO 1 ODDS": BELL$~TTT(B) ~^ DH~h "YOU WIN AT 25 TO 1 ODDS": BELL$W~rTT(B)a~| D~ "YOU WIN AT 10 TO 1 ODDS": BELL$~TT( B)~ D~ ~L$ YA$  YB$;);: : PR$(),YB$;);: : PR$(),YB$;);: : PR$(),YB$ YA$7 X +: MM$;: X: LL$A ::W YY : YY] c*4:********************************************>: PRINTED CERTIF "YOU WIN AT 9 TO 1 ODDS": BELL$~TT(B)~ D "YOU WIN AT 8 TO 1 ODDS": BELL$ TT(B)* DQ "YOU WIN AT 7 TO 1 ODDS": BELL$_TT(B)i D "YOU WIN AT 5 TO 1 ODDS": BELL$TT(B) D& ICATE SUB-ROUTINEȃH:R: NOTE: CHR$(14) IS THE ENLARGED MODE FOR (\: EPSON FX-80. CHR$(27);"4" ENTERS[f: ITALIC MODE, CHR$(27);"5" LEAVES IT.p:*******************************************z "ENTER TODAY'S DATE:";DT$"YOU WIN AT 2 TO 1 ODDS": BELL$0TT(B): DD T' XN ZZ : ZZ: (): \X UY$ "INCREDIBLE! YOU'VE BROKEN THE BANK!!";UN$: BELL$b  ) "YOUR WINNINGS ARE $";T;:l: "DO YOU WANT A CERTIFICATE PRINTED (˄ "ENTER YOUR NAME:";NM$$ "================================================================================"H:: () ) "BE IT KNOWN"Q:  ();"4": ) "That the holder of this CERTIFICATE has demonstrated an outstanding"Y/N)";CR$v CR$"Y" CR$"y" CR$"YES" CR$"Yes" CR$"yes" p: "TRY AGAIN (Y/N)";YN$Z YN$"Y" YN$"y" YN$"Yes" YN$"YES" YN$"yes" `: "AND YOU'RE OUT OF MONEY ";UY$;"SUCKER";UN$:: "TRY AGAIN (Y/N)";YN$ "level of skill, talent and just plain good luck in that said person did".: ()  ) "BREAK THE BANK OF OSBORNE"k: "And in doing so did earn the INCREDIBLE amount of:": () );"$";TՆ: ) "The holder of the certificat YN$"Y" YN$"y" YN$"YES" YN$"Yes" YN$"yes" *:********************************************Y: SLOT MACHINE SCREEN GRAPHICS ROUTINE:********************************************:: X +: MM$;: X: Le is therefore entitled to and should"# "receive all of the respect, courtesy and benefits usually afforded to"O "a person of such talent and wealth."p: () "ISSUED TO: ";NM$ : () "DATED: ";DT$: ();"5" : "===========  ====================================================================" TED: ";DT$: ();"5" : "===========rson of such talent and wealth."p: () "ISSUED TO: ";NM$ : () "DATED: ";DT$: ();"5" : "=========== sui you ow tastes Th堠 winnin砠 combination ar establishe i line 1180-1360 Th payof odd ar established in lines 1480-1850. Th valu t "Brea th Bank i se a $10,000 Thi ca b change i lin 1860 bu yo shoul als chang th instructio i lin 68 i yo chang thi value. Th allowabl bet ar 1,5,10,20,5 o 10 dollars Thes ar establishe in an ca b change in line 97 an 980. Th printe sub-ro SLOTS An MBASIC Program Slot wa writte fo th Osborn i MBASI b Ron Forsythe and Mike Kaufman. Th origina ide cam fro th boo "6 Read t Ru Programs i Basic b Wm Scot Watsonutin begin a lin 2100 Thi routin wil allo fo certificat t b printe wit th date user nam an winnin amount Th堠 subroutin use characte strin statement whic addres th itali an enlarge mode Tha version was written for the TRS-80. I thi versio th scree prompt hav bee changed graphic hav bee adde an th rando numbe generato ha bee se u fo MBASIC' Randomiz command. T ru th progra o th Epso FX-8 printer Th certificat shoul prin o an printe bu wil no includ th specia prin format. An question o problem contac Ro Forsythe P.O Bo 1011 Fairfield Ca 94533. inser th MBASIà progra dis i driv A Loa MBASI an a th promp type RUN "B:SLOTS". I yo wan t delet th sig o messag t spee executio o th program delet line 140- 500. Th progra ca b easil modifie t  N 1130 remark go graphics, print circle, jump out, up a line REMARK OUT......... PRINT TAB(R);CHR$(27);"g";CHR$(13);CHR$(27);"G";CHR$(11) PRINT TAB(R);"*";CHR$(11) 1130 NEXT R IF CONSTAT% THEN GOTO 1600 ELSE GOTO 1160  1600 I%=INKEY WHILE NOT CONSTAT% WEND I%=INKEY IF I%=3 THEN GOTO 1380 IF I%=112 THEN CHAIN "DUMP.COM" IF I%=80 THEN PRINTFLAG=1 1160 IF V=9 THEN 1170 PRINT 1170 NEXT M IF PRINTFLAG=1 THEN CHAIN "DUMP.COM" IF G=R1 THEN 1350  C=C-J+3 D=D-A+3 X(1,5)=3 DIM X(0,0) DIM X(L9+1,L9+1) FOR M=1 TO N1 FOR R=1 TO SS IF S(M,R)<=0 THEN 1270 X(M-J+2,R-A+2)=1 1270 NEXT R NEXT M DIM S(0,0) DIM S(L9+1,L9+1) N1=C SS=D RETURN 1340 PRINT "NO MORE LIFE IN GENERATION";G 1350 PRINT "*** END OF RUN ***" GOTO 1380 1370 PRINT "CELL HAS REACHED LIMITS OF PROGRAM. PROGRAM MUST TERMINATE." 1380 PRINT INPUT "ANOTHER RUN";J$ IF LEFT$(J$,1)="Y" THEN CHAIN "LIFE.COM" ELSE GOTO 1500 1500 END a:GUNNER-2: MODIFICATION OF CREATIVE COMPUTINGb:VERSION, INCORPORATING GRAPHICS, AMONG OTHER (b:CHANGES.Fb: ERIC KNUDSONkb: 946 WASHINGTON ROADb: GROSSE POINTE, MI 48230b ()b " GGG U U N N N N EEEEE RRRR" c" G G U U NN N NN N E R R"?c" G U U NN N NN N E R R"rc" G GG U U N N N N N N EEEE RRRRc" G G U U N NN N NN E R R"c"    G G U U N NN N NN E R R"d" GGG UUU N N N N EEEEE R R"d)d( X(d),Y(d)6d2 A$(P)Ed< YNOW()MdF Pedd "NAME, PLEASE";Z$d Z$" IS THE OFFICER-IN-CHARGE,"d"GIVING ORDERS TO A GUN CREW,"SSh S h: "BOOM!!!! YOU HAVE JUST BEEN DESTROYED";i" BY THE ENEMY.":::: ;iIPVV(A)G:XTIP:E(X)Ei XZi (E)RR @ki ERR "ui i::"TOTAL ROUNDS EXPENDED WERE:";STi ST d"TELLING THEM THE DEGREES OF ELEVATION (S)HE ESTIMATES"e "WILL PLACE A PROJECTILE ON TARGET.";e"A HIT WITH 3% OF THE DISTANCE"de "TO THE TARGET WILL DESTROY IT.":e"INPUT GUN CALIBER";C: CeV(())eG:STei ST i ST i"DID YOU CHEAT?": 2j"FANTASTIC SHOOTING, "Z$"!!! YOU ARE AWARDED A MEDAL.": Tj"NICE SHOOTING, "Z$".": j"BETTER GO BACK TO FORT SILL FOR MORE TRAINING, "Z$"."j:"TRY AGAIN (Y/N)";OK$RVVGeRRu{Re ()f "MAXIMUM RANGE OF YOUR GUN IS";R;"YARDS." fZZffSS;fT(R(L}L()))CfSMf rtf "MINIMUM ELEVATION IS 1 DEGREE."~f f "MAXIMUM ELEVATION IS 89 DEGREES."f j OK$"Y" j"OK -- RETURN TO BASE CAMP."jkXSA(A):S2A(A)kbCA(A)#klTOTIMEVSAG8kvTODISTVVS2AGPkSUX(4TODISTT)xk SUX "YOU MUST BE KIDDING":kTINCRTOTIMESUXk I SUXkTNOWITINCRf"OVER TARGET BY";(E);"YARDS, AT";ATEMP;"ELEVATION."f 5g""SHORT OF TARGET BY";(E);"YARDS, AT";ATEMP;"ELEVATION."?g, g@ "***TARGET DESTROYED***";S;"ROUNDS OF AMMUNITION EXPENDED"gESTSTSgJ ZZ gTZZZZgYkYPOSTNOW(VSAGTNOW)kYNOW(I)(YPOST)l YPOST YNOW(I) l Il ()%l I 6lP{IAl P,|Il IXl {,Cgl  I 4ulP{Il  P,_l* Il4 {,Tl> I SUXlH Yg^ "THE FORWARD OBSERVER HAS SIGHTED MORE ENEMY ACTIVITY..."gh *hr " DISTANCE TO THE TARGET IS";T;"YARDS."0h|6hUh"RANGE =";R:"TARGET =";Thh"ELEVATION";Ayh AY h A hATEMPAhAAFIhNOW(I) flRP{IYNOW(I)l\ P,*lf IlplP,_l* Il4 {,Tl> I SUXlH Y{IAl P,|Il IXl {,Cgl  I 4ulP{Il  P,_l* Il4 {,Tl> I SUXlH Y  G RORSCHACH...b ()b"INPUT RANDOM SEED: ",Rb Rb( () cd L,C,X,YcnXPcxY 6cL({XY)IcC(A)Sc L,ChcA()rcXXAc X X4 cXXA: cB()cYYBc Y Y cYYBc c  X X4 cXXA: cB()XY)IcC(A)Sc L,ChcA()rcXXAc X X4 cXXA: cB()a: RANDOM WALK (A LA PARTICLE-IN-A-BOX)a: ...EINSTEIN REVISITED...b: b: ERIC KNUDSON?b: 946 WASHINGTON ROADcb: GROSSE POINTE, MI 48230kb:b:LET ME KNOW IF ANY NUMBER GIVES A HALF-WAYb :INTERESTIN  ng tutor and horserace game. It is most effective with an 80- column screen. The following three games were received from Detroit's DeFOG. GUNNER-2 is a modified version of GUNNER found on FOG/GAM.009. It involves firing a howitzer at a target. SNOW will randomly fill the screen with letters. RND-WALK will display a random path of letters. The above games are MBASIC programs. Place BAS files in drive A and MBASIC.COM in drive B. At the A> prompt, type B:MBASIC At the O DISK.DOC FOG/GAM.016 First Osborne Group (FOG) Games Disk DUCK, contributed by Tim Fox, is a graphics shooting gallery game like that published in the Portable Companion, April/May 1983, p. 42,k prompt, type RUN "program" where program is the name of the program, which must be capitalized and surrounded by quotation marks. FASTLIFE is a faster version of the LIFE games found on FOG/GAM.004 and 010. It uses graphics to simulate b by Peter H. Kelly. Another version of this game submitted by Ray Rhodes was so similar that it was not included here. ESCAPE is a tank battle game using screen graphics. PINGPONG, also with graphics, is a pong game. These were provided by Jeirth and death of cells, eventually reaching an equilibrium condition. This assembly language program was provided by Carl Flarity. Its output format is 60 columns by 32 rows. Place FASTLIFE.COM in drive A. At the A> prompt, type FASTLIFErry Silverstein. SLOTS, submitted by Ron Forsythe, simulates a slot machine customized for the Osborne 1. Instructions are contained in SLOTS.DOC. Another version of this game may be found on FOG/GAM.011. TYPERACE, from Donald Hill, is a typi Further instructions will be displayed. Also, see FASTLIFE.DOC. LIFEASC, submitted by Edward Grant, is a compiled CBASIC version of the LIFE game found on FOG/GAM.004. Starting patterns are input by means of an ASCII file created using a tex  t editor such as WordStar. LIFE1.PAT thru LIFE4.PAT include four sample starting patterns. This program has the ability to chain to DUMP.COM found on FOG/UTL.033 to capture an image of the screen in a file. Place LIFEASC.COM, DUMP.COM, and a slue, the more you must pay to "oD"successfully bribe your adversary. If the bribe "0oN"fails, prepare to fight."\oX"Press RETURN to continue",X$: ()xob"Treasure values are:"~olov" 10 - Ten Smurfy Spoons"o" 30 - Jeweltarting screen pattern such as LIFE1.PAT in drive A. At the A> prompt, type LIFEASC When prompted, enter a pattern filename (e.g., LIFE1.PAT). Refer to LIFE.DOC for additional information. Squeezed assembly language AQM files may be ued Rod" o" 50 - Jar of Diamonds"o" 50 - Vial of Papa Smurf Potion"!p" 75 - Basket of Smurf-berries"Ep"100 - One Hundred Smurf Pies"ap"200 - Treasure Chest"p"Press RETURN to continue",X$: ()p"Movement through the forestnsqueezed using utilities found on FOG/UTL.003, 004, 014, and 031. This disk was first introduced into the library in preliminary form as FOG/GAM.XXX. It is now complete. Jim Woolley FOG Disk Librarian  is easy: just enter the "q"direction you wish to go - N for North, SE for South "Dq"East, etc. The option to reset the display is "q"included ( press 1 ) in case the previous play of "q"the game caused too many lines of text  January 1984 liminary form as FOG/GAM.XXX. It is now complete. Jim Woolley FOG Disk Librarian  ** ** * DONE This pattern will run uninterupted for about 250 generation. The most prolific 5 cell pattern there is! By judicious redimensioning of the program arrays' this pattern might go up to 300 generations.  your foe is an age old alternative to running "n"or fighting. For this, you must use the treasure "Zn&"you have won. Whether or not you succeed depends on "n0"the value of the treasure the enemy is guarding. "n:"The more its va, "r "simply move to any blank area adjacent to the edge "-s*"of the map. Scores of 500 to 700 are average. "js4"Anything above 1000 is excellent. As is common to "s>"games of this type, I have left out a number of "sH"t  hings that you will have to find out for yourself "tR"(Papa Smurf has to have some fun, after "At\"all). Good luck and good hunting!"mtf"Press RETURN to continue",X$: ()ztz ()t: OSBORNE I TERMINAL COMMANDStE$()::Z9$$(): Z9$"F" Z9$"R" Z9$"B" "y Z9$"F"  : Z9$"R"  : Z9$"B"  : Ny "How much magic do you wish to use";K`y K  y KC : UY$;C;UN$;"magic points": yI(()):L:CCK ESCAPE CHARACTERtCLS$():: CLEAR SCREEN"uDC$E$"=":: DIRECT CURSOR ADDRESSINGIuGY$E$"g":: Graphics OnquGN$E$"G":: GRAPHICS OFFuHO$E$():: CURSOR HOMEuEP$E$"T"::  ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** * ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** * ERASE TO END OF LINEuDY$E$")":: DIM DISPLAY ONvDN$E$"(":: DIM DISPLAY OFFFvUY$E$"l":: START UNDERLININGpvUN$E$"m":: END UNDERLININGv$CH$()DY$( )( )DN$:: FIELD CHARACTER (BORDER)* ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** DONE This pattern of blocks with a misplaced cell will repair itself in two generations, and then not change at all. v.CH$()DY$( )( )DN$:: FIELD CHARACTER (FIELD) w8CH$()( )():: TREE5w=CH$()()():: YOUR TRAIL`wBCH$()()():: YOUR POSITIONwL I : J :A(I,J): ()@ A(I,J) wV J,Iw`X()):MI |x I ,,,,,,,,,,,,:,>,f,f,f,f,| "A purple fly";: H| "A pink mouse";: e| "A green Smoof";: | "A cave troll";: | "A mischevious little boy";: |()):Y(())wjA(X,Y):C(())wt  +x~ "Your strength is ";UY$;C;UN$: n: I ~\x M "You get the treasure free!": ^sx Md N x GN$;"Do you want to (F)ight, (R)un, or (B)ribe? "x "Gargamel's mother";: | "A polka dot dog";: | "Azreal";: } "Big Mouth";: 0} "Gargamel";: E} "Nothing";:Mk} " is guarding ":I(())} I ,,,",,,6,@} "ten Smurfy spoons":P   :} "a jeweled rod":P:} "a jar of diamonds":P2:~" "a treasure chest":P:9~, "vial of Papa Smurf potion":P2:X~6 "100 Smurfy pies":Pd:~@ "a basket of Smurf-berries":PK:~J "You outwitted the enemy!"~TSS~** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** DONE This pattern of blocks although very similar to life2.pat will be destroyed by this placement of the center cell.^QQP~h P ~r P : | "You have ";UY$;Q;UN$;" treasure points"gX$"":AX:BY:"What direction (Hit '1' to re-display)";X$: (): X$""  X$"1" CLS$:  :  (X$,)"W" XX (Xt you were captured while climbing out!":  胨  () C @ "The rod was enchanted and doubles your strength!"MCC: mI(() ): I   "Sorry, but the chest was a trap...."DŽ "You were captu$,)"E" XX (X$,)"N" YY (X$,)"S" YY  A(X,Y) RO A(X,Y) ();"Oops...You ran into a tree!":XA:YB:  A(X,Y) ();"Havn't we been here before?":XA:YB: A(A,B):A(X,Y): tred when you opened it!"ф  ();"L" "A mirror was in the chest..."<  "It will scare Gargamel if you meet him":N:v "Your mirror scared Gargamel and he ran away": T  z: HO$: I  : );: J  * GY$;ɀ "You only have";:"How much do you want to pay";K K &7 KQ : UY$;Q;UN$;" treasure points": aI(()):L: I K  H : KLP IH &LLL}:Á"Your bribe was accCH$(A(J,I));م4 J: GN$: I: EP$;GN$:> S nH "A giant eagle carried you to safety"7R: "You survived the forest"kW "You miserable ";S$;"! I'll get you one day!"؆\ "You won a treasure total of ";UY$;Q;UN$: "Congratulations": ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** * ** ** ** ** ** ** ** ** ** ** ** ** ** ** ** **  "Would you like to play again? ";: f "How much farther, Papa Smurf?": | pAz CLS$,DC$;" '";GY$;CH$();GN$;" = Your location";p DC$;(");"'";GY$;CH$();GN$;" = Tree"; DC$;"$'";GY$;CH$();GN$;" = field" DC$;(");"5";  "NW N NE"퇢 DC$;"#7";DY$;GY$;();( );();GN$;DN$;, DC$;"$5";"W ";DY$;GY$;( );( );( );GN$;DN$;" E";_ DC$;"%7";DY$;GY$;();( );( );GN$;DN$y DC$;"&5";"SW S SE";$;GY$;( );( );( );GN$;DN$;" E";_A():: GENERATE WHICH CHARACTER TO PLOTe L,C:: STICK IT ON THE SCREEN"e (e GENERATE X-COORDINATEydY():: GENERATE Y-COORDINATEdL({XY):: L=SCREEN LOCATIONdCa :SNOW: SOMETHING FOR MY KIDS TO GO CRAZY WATCHINGb: ERIC KNUDSON*b: 946 WASHINGTON ROADSb(: GROSSE POINTE, MI 48230}b2 (): CLEAR SCREEN TO BEGIN WITHb< );"SNOW"::bF"ALL THIS PROGRAM DOES IS TO FILL UP THE SCREEN"cP"WITH RANDOM LETTERS, SORT OF LIKE FALLING SNOW."6cZ:"IT MIGHT BE POSSIBLE TO USE THIS FOR PLAYING"gcd"BOGGLE, IF THE SCREEN WERE A BIT SMALLER."cn"(AND IF YOU WERE VERY FAST...)"cx:"INPUT A NUMBER FOR RANDOMIZATION";Rc Rc ()d L,C,X,Y:: IT HAS TO HAVE INTEGERS FOR SCREEN LOCATIONSGdX(4):: GENERATE X-COORDINATEydY():: GENERATE Y-COORDINATEdL({XY):: L=SCREEN LOCATIONdC   ** ** ** ** ** ** * ** ** *** DONE this prolific little bugger lasts for 175 generations. LIFE3 PATLIFE4 $$$+)LIFEASC 57B!!"4͖* d  =""6#}|B=!"4 "}00-!~G#~ }q+ph##a"p#w *5"5"5"5*5*5*5}!a6#6#q#p*5"5*5|`i"5* ,X5 }HƐ'@'_ ERROR $ AT PC $"DM6#6#!"*{w#zw!">2DM}|*ڄ"^#V{^#V{_zWڄ{zҾ*w#ww#w###s#rq#p#!5#ʄOM+F+N*}|!"~#fo{z   }|~#~#~#O~G!}|*##^#V}|?s#r##q#pw#w#~w#~w7!N#F#~#foho}|p`i}W:0!9BKÞ DM!9͞ !9! 9N#F#͞ ͷÖBKw !9DMw ͖DMw !9DM! 9DMw !9DM͖ͷͮ>'wڮ*5Ϳ #~'w!5~w:5=825!5ì5͞  5g bDZA}25x25iOG>F25!5r#ti`)!5~'w#… ~ !5 +» #?µ! < !5=> pT]w+ ~w!55G# !9DMË ͮË DMw !9DM*!9DMw !9DMͷʹʹ*Lͷͫjͫ!9DMw d͌ͫ! 9DMw !9DMͷ̓j̓ë͌̓ÅDMZ!9DMw ͼ !9!9!9DM w :5з! !5!55q!55w+) p!555 p5 + + + + + + 'm P'> 'm o g"5`i5â *5|• ɵ!5â ~#~#~#~#~#~#~#~#!5'w#'w#'w#'w#'w#'w#'w!9~A 6/OGͮü @PP"5̀*5!9~w{_!y+##!52*5  |g"5!HU >'-lw# M>@2525 5͋ À*%*5§5*5"5>25:5Ww !5:5w 5͋ w !55͞ !5:5w:5W!52 #6= x>#w| DM!x& y), )2 )8 )> )D )J )P )| | ʖ zp x)yOxGyxڈ GyO#=t ogeop p )ګ #£ OÍ U `i!:5AOw# $q#,:5!5V5Ϳ M>u5g b!5< 5!5{7>' #i +>'w#>'w #†:525 !5~PM:5M6!5~ U+w# @ }6w{255!5~#!5~#!x  {? )܏ A 0 l&_K|g}o 1 D &l&Ï "5"4"4*4*4n "5!9DMw !5"5:5!25:5¡ 25>NN:5#+ $ ͔$# >$:5ä * ͔*# >*ø . ͔#>.¸ 25S - ͔# .>-¸ >5q#!5"5~#M/G5*5 +#4?MG5*5'w# :!55*5#  5g !5~ȯw+6+wo:5<25OF!5 怮w J_#~ȓAPw>25`i"5255*5>'#>'#>'#>'#>'#>'#>'2525OS >25+ \͔̔ä 253 > 25 ͔#2 ,H >252 !5q.d >25͔#d X !5q^w ͔j !5q-ˆ >25͔>255͋ :5O 2525!5r#§ :5ʵ =25:5> â :5 :5!567 y@G /%2525255w 2:525Gy@w:5!5>_ >_ 4!55<25:5!5G:5x :5OxGxҢ 5W?< =… z` zg !5~ʢ bÈ :5 :5!5:5 :5 >-G:5OW* $ $ :5!5  Oz $>$*͔*>*-.͔#.>-\͔̔*5++!"5ã:00!{~Gwog:00! !*|ʲF#N#íN͊# x£ ͊U" 626z͐*5#"5 4  >24:6i2 625GWy:5ʩ—:5—:5©×:52> >0> 255g b!5~256:5@25!5 lr6!5p25/O!5 #~ ʌ y25=/25:5>0é:5=!55:525!5~>.:5!5/:5:5G:5G25x:5 !552 6͛~"G͛8͛~">2 6~,c͛W* 6F:4ʔo&##a6#4Gw#‹* 6s#r:4#ʥ: 6+~ʷ"¼:6 !5q~!4 w !5rimproper input - r:5:5M>E!5:5'5~ 2/<-Gyx/ : Gyx0:5^2525:5:525"5|ƒ:5~W#^#:5¬zʢ~# Ò|~:525>NS"5"5:5/!&\͔͔̔ʳ/͔âeenter $F^|,##ap#q#w x"s#rFlxG! w#w^DMl^DMl*5DM*5}|ڄODF#N# "5͍go͇ ڧO͊o&͇o&}2o&E{2xn&}!9>OU"6>26y26w# ͸I g :5> !44O:53* YI Bg >24> #> #I ]g :5:4e> k͎b͎B!5:4=B25!5~5*5~+"50G>0 0:5:5:5+2 6260 +#-&>2600#.U: 6/2 6y˜00+:6=26CEʞeʞ<lyGʊ :626҆xÊ: 6ژ:6<260+y0 ʞG-_ʷxº0<G0<OxG{G:6@*6wɯ26y260+->,*5:5> >-*5|*F||>25~G#N#"5"5`i"5"5|!#a&Ê/ʈ&ʈ!ʈ\Š xŠ25>UN. xV"5*5|¨*5"5*5ñ+"5*5~#"525*5~#"5*5|+"5> ĸ"5!5454!>:5#/!&$ ͔>26)DM)) O 0<:6+z/W{/_s#r:6=26~#0:?^#V* }||~!5N q!5 ^!4!5 n&*h6"5*h6!4#Ìzz26zW{_!65ʔ*6| |g}o"6*6|g}o"6g*6*6DM*h6;͞"j6*j6"j6BN|>>>)=; a"h6;p#z  *h6 "o6"q6}#~!n6>w:u626&!658Ͱ:n62n6*j6+"s6ñ*q6"s6!n6~wX͐͞"o6:n6*o6~F *l6|jRE"!9"|6*s6*o6#{zڬ"o6:n6*o6n&:n6͐͞"o6â!4j , Gy2 p#*l6|F4!"2u6æl6*h6$ ~#$*h6 l6 w#* k6~#DF*h6r+s"l6:u6=|!n6~@w"x6)|{>(>NF|ʥ~¥#~#ʤG*h6:ʨz6#> 6 #=®x:ҥw#26P .26P 6 !j"!!66,!66!4"6D26!4"626:6 AF PÀj!6k x*6w#"6!6~w:6w.d# ]7*}:6>*}>266?#`ډ{҉_:ʤ*ʤ?ʝw#:6ڬIF>?Ø*j6*q6}O|Gr# x*q6*o6#{z"o626;3͂z:6*h6!6|A> s#r~#fo1F#NyOxTA*l6as#rr#sTF#wzJFFA>"s#r*l6|F …!n6~ЇwWR"ͦ*o6*j6{_zW{z<Ͱ=¸ͦұ!n6>w*|6*z6|DW"G:5x *l6|~w:6*h6!~w͒C*h6!^w#Vw*h6. s#rͱ>;zV|EX*x6)6w#w>6^#f|OEk26;3͂zzڮ*h6!:~ʮ!~wͭ±MEk>6 s#rk6 ^#VzFU"h6*x6)>6 ^#V"z6 *l6"~6!9"|6*~6|ER"+"~6͐*j6"o6:n6<*h6! N#F p+q*o6w!n6>w!9"|6}:5j>"p:5>"Ëj ËL :5>,:5ڣ>"p:5>"j L :5*~6|++> +|> > *h6!0n6  :u6RB="RU"|IR"+DM*l6\*j6{o>g+{z_yW͐!*h6 s#r!n6~w"o6zr!!9"|6*z*z+zzһ!!9"|6+z+z*v6*j6s#rͦ*h6!0! ~! w#w*o6+"o6!n6~w*|6*z6|EFk6 ^w#VwzCU ""h6ͦ ͐ͦͲzc EX>6 w#w;!È 6)~#fo, *6#"6{zu k6 ^w#VwzDU ""h6ͦͲz EX͗c !9"|6!;͂z<FR"*h6"6!;͂#  z<3!*h6 *6~# !z;*6"h6;!;*6"h6;!!;>26͂*h6 6?##6?!"6_*h6~ʆ!=_"5<EX]"5<EX##FNz!`*j6O yŷ!~##!!!~#!!*6"6ê!;26*6'*6|~&DMxl&zl&|~#+4&'!e'yOxGr&yxO&PYa"6s'BK{''*6SS!"6d&!5~26w24&j *4&##axw#q#4{':625 !44^w|~&e'&a~&~_w# x&e'! as'BK{'++)!*|6!\"h6͂!hw##"!e~ ="6O#6V#6Li"CV"#~OP"#~Mi"CTOP"#~VP"#~LP"\:00څ"!b~w<CM*5*#ª" "´"##"N#F#x# g o" ="  GO" _ W"yx "Ø"6|!"6]'e']'`i ##a"6s' xG'G*6p#z<']'{'*6+|"6H''*6|DM~G#N#zw#s#xʌ'@ͥ''yʞ'Ow# •'yOw#w#w#w# ¥'^#V* }||~"6^#V* }|'*6w#w}''>(>""* {z #*| #+~w*"6!"6*6"6o$Y#*6"6##^#V*6"6*{z/#m#*6^#~WC##,#!"6*o$ʇ##~w+Ì#"6##^#V*{zv#:eO#]!&$#¯#*{z#\!#f$*\!26!6"6!9N#F# y26B(26+~+ng# *6s#r#"6DM:6=!(+~+ng# :6_ "6a"6*6"6)"6*6+F+N ##6# x€(~#fo#:6_ og"6:6(26*6+V+^"6(*6*6"6*6+r+s"6*6+"6|¹(#~#fo#)og"6:6=¨(*6*6s#r:*{z#\f$CX!>$(~#.$!À\ʀ\! "\\*6}ʇ${Ozر~#fot$=e'PYe' |$##a"6s'{'{'''*6! 9SLz%|(%e'PYe'y_xW4%x%%# x6=)C 57B!!"4͖* d  =""6#}|B=!"4 "}00-!~G#~ }q+ph#PATTERN FILE FOR INPUT-WHICH GENERATION SHALL THE DISPLAY START WITHAND THE LAST GENERATIONALSO, HOW MANY SHALL I SKI$''%%ɯ>e'%7%e'%7?%z%N#FyF%x+ͺ'|[%~&~ws#re'q%n&'AC!as'q++*zSSe'yxҧ%PY##a"6s'BK{''*6|e'++'zSSe'yOxG& ##a"6s'BK{'PDONEEND NO MORE THAN  CELLS PER LINE *'' IS NEITHER A ' ' NOR A '*'GENERATION = 0 POPULATION =GEN=POP=*DUMP.COMDUMP.COMNO MORE LIFE IN GENERATION*** END OF RUN ***;CELL HAS REACHED LIMITS OF PROGRAM. PROGRAM MUST TERMINATE$  . ANOTHER RUNY LIFEASC.COM4!)"5"5!)"5!x%w!\"7*7#*7#!!!7'*7#*7#!!!7'!H!!!#7'!"7!"7!"!7!)͖>ͻ!%7 *%7!!!>!)͖>ͻ!7\!)͖>ͻ!7\!)͖>ͻ! 7\* 7#" 7!" 7,!)^#V!}|00* 7#" 7* 7+++|'0X0* 7++|*7* 7)^#V*7)^#V!}|/X0u0*7* 7)^#V*7)6#6*7#"7*7#"7*!7}|-* 7#" 7*7}|-*7|¨0 4*7*7{oz»01*7*7{z*7*7{ozg* 7U *7*7{ozg* 7U  !'7*'7!*$*'7!*$.,,*'7%*7#{zD,Y,! *m*7!*w^4!"7,*'7*7!&!,*$},,*'7*7!&!/*$ʘ,,*7* 7)^#V*7)6#6*7#"7*7*!7}|,*7"!7*7#"7*'7%*7{zb,* 7#" 7*7}|+-!2*m121!x%m!q*m*7!͎!w*m*7981! "7>1å-!Z" 7!Z"7!"7!"7!" 7å2*!7"72*7* 7)^#V*7)^#V!}|12* 7* 7{z1* 7" 7*7*7{z1*7"7* 7*7}|1* 7"7*7*7}|1*7"7*7 {oz12*7͎!}*m! x*'7*7!&m!5*m^4*7#*7#!!!7'*7{zB-E-Ä+!!!!!7'*7#*7#!!!7'!"7!"7* 7+"7* 7+"7!x%m!S*m*79>1*7#"7!"7!"7!" 7Ð0!"7|0!" 7* 7*7}|*7*7}|-!4*7* 7)^#V*%w*7"7!2}|l1͐|.21212É2ͫ")7:2͐|:2ͫ")7*)7+++|V2'4*)7p{ozn2o !*"*)7P{oz‰2!!+7͎*7 {oz›2Þ2B* 7#" 7*7}|_1!!+72o !*"*7*7{oz24*7* 7{ozg###"7*7*7{ozg###7#)^#V!}|/*7*!7{oz,.3.* 7#" 7* 7#*7^#V*7#)^#V!}|/* 7*7{oz*7*!7{ozҁ.È.* 7#" 7* 7#*7^#V*7)^#V!}|/* 7*7{oz..* 7#" 7* 7*7{oz*7+|./* 7#*7^#V*7+)^"7*7^#V!)6#6!!!!!7'*7#*7#!!!7'!" 73!"7ð3*7* 7)^#V*7)^#V!}|y3é3* 7* 7{ozg##*7^#V*7*7{ozg##)6#6*7#"7*!7}|X3* 7#" 7*7}|O3!!!!!7'*7#*7#!!!7'*#V!}|//* 7#" 7*7+|"/M/*7* 7)^#V*7+)^#V!}|F/M/* 7#" 7* 7+|*7+|i/Õ/* 7+*7^#V*7+)^#V!}|/Õ/* 7#" 7* 7+|¡//* 7+*7^#V*7)^#V!}|//* 7#" 7* 7+|*7*!7{oz/0* 7+*7^#V*7#7"7*7"!7!*m*79!*w'4!*wB!+͖>ͻ!37 *37!͎%!+$[4o !+"^4^4o ͝!5q^w ͔j !5q-ˆ {ozg##*7^#V*7*7{ozg##)6#6*7#"7*!7}|X3* 7#" 7*7}|O3!!!!!7'*7#*7#!!!7'*%   LIFEASC.CO͠ run throug蠠 generatio ver quickly fro t second pe generation. LIFEASC.CO i th compile lif progra usin th CB-8 basi compiler I wil promp yo fo th patter fro file Se LIFE1.PAԠ throug LIFE4.PA fo example o th forma fo patter file Onc th progra i cyclin throug th cell an generatin ne lif yo ca sto th displa b hittin an key Th progra wil no continu unti젠 anothe ke stroke Yo hav堠 thre differen option onc th displa i stopped. 1 Hi capita 'P fo scree dum afte th curren generatio i completel outpu t th screen. 2 Hi lowe cas 'p fo scree dum withou completin th curren display (Usefu i yo wan t captur th middl par o pattern) 3 Hi contro 'C t abor th curren pattern LIFEASC.CO͠ wil the as yo i yo wan t inpu anothe pattern Repl wit 'Y o 'N'. L LIFE.DOC by Edward P. Grant edited by Jim Woolley LIFE.BA wa rewritte fo CB-8 basi b Edwar Gran an i publi domain Th origina progra i -FOG/GAM.00 di no hav a autho mentione i th listingIFE.BAӠ i th sourc listin an i compile shoul b compile wit th nam LIFE.CO͠ a i chain itsel whe yo sa 'Y t 'anothe pattern?' LIFE1.PAԠ throug LIFE4.PA ar sampl pattern tha ca b use b LIFEASC.C&  OM Yo ca us WordSta i th non-documen mod t crea patter file Pattern consis o space an asterisks N tab please Remark ca b include i th fil afte th terminatio wor 'DONE o 'END' Onc LIFEASC.CO read th 'DONE o 'END i coul car les wha i o th file DUMP.CO͠ fro FOG/UTL.03 mus b presen o th dis t chai t th scree dump (Se an above. I yo ar goin t us scree dum a anothe patter t inpu t lif the mak sur t remov th statistic a th to o th patter an t ad 'DONE O 'END afte th patter o seperat line. '   --> FILE: -FOG/GAM.016 CRC = 00 00 --> FILE: /GAM#016.DOC CRC = 29 D7 --> FILE: DUCK .BAS CRC = C2 89 --> FILE: ESCAPE .BAS CRC = 9F 99 --> FILE: FASTLIFE.AQM CRC = E0 F8 --> FILE: FASTLIFE.COM CRC = 3D C8 --> FILE: FASTLIFE.DOC CRC = CD F8 --> FILE: GUNNER-2.BAS CRC = CD 36 --> FILE: LIFE .BAS CRC = 9E EC --> FILE: LIFE .DOC CRC = B2 6E --> FILE: LIFE1 .PAT CRC = E5 E7 --> FILE: LIFE2 .PAT CRC = B0 70 --> FILE: LIFE3 .PAT CRC = 49 9A --> FILE: LIFE4 .PAT CRC = 1A 6F --> FILE: LIFEASC .COM CRC = BB 06 --> FILE: PINGPONG.BAS CRC = 91 DB --> FILE: RND-WALK.BAS CRC = A4 FA --> FILE: SLOTS .BAS CRC = FD C7 --> FILE: SLOTS .DOC CRC = 6D 4F --> FILE: SNOW .BAS CRC = 96 95 --> FILE: TYPERACE.BAS CRC = 4D CE ---------------------> SUM OF CRCS = D2 F5  --> FILE: RND-WALK.BAS CRC = A4 FA --> FILE: SLOTS .BAS CRC = FD C7 --> FILE: SLOTS .DOC CRC = 6D 4F --> FI