IMD 1.16: 31/05/2007 20:42:38 FOGCPM.150 --FOGCPM1503DGRAPH BAS3DGRAPH DSCBREAKOUTCOMp LALANE BASMAZE3 BAS$SNAKE COMe !"#$%&'()WATOR1 COM~*+,-./0123456789WATOR1 PASb:;<=>?@ABCDEFEXAMPLE POPfGHIJKLMNOPQRSALPHABETCOMeTUVWXYZ[\]^_`ALPHABETDOC|abcdefghijklmnopALPHABETBASqAUTOALFACOMrstuA OZP vwB OZP xyC OZP z{D OZP |}E OZP ~F OZP G OZP H OZP I OZP J OZP K OZP L OZP M OZP N OZP O OZP P OZP Q OZP R OZP S OZP T OZP U OZP V OZP W OZP X OZP Y OZP Z OZP -09-00 86 -CPM150 DOCThis is the disk name. 100 ' 3-D BAR GRAPH 110 ' BY BILL BURKETT 120 ' HOUSTON, TEXAS 130 ' PORTABLE COMPANION, JUNE, 1983 140 E$=CHR$(27): 'ESCAPE 150 DC$=E$+"=": 'DIRECT CURSOR ADDRESSING PREFIX 160 UY$=E$+"l": ' START UNDERLINING ("l") IS A LETTER 170 UN$=E$+"m": ' STOP UNDERLINING 180 DIM X$(20),I(20),U(20),N(20),T(20),AV(20) 190 F$=CHR$(150):G$=CHR$(127):E$=CHR$(153):B$=CHR$(128) 200 T=0: A=0 210 PRINT CHR$(26): 'CLEAR SCREEN 220 PRINT STRING$(10,B$)+" VARIABLE BAR GRAPH "+STRING$(10,B$):PRINT:PRINT 230 PRINT "NUMBER OF OBSERVATIONS COVERED, (MAX=20)" 240 INPUT N 250 C$=STRING$(3,G$) 260 PRINT:PRINT "WHAT IS THE SCALE FACTOR, (ie..5,10,50,100 etc.)" 270 INPUT S 280 PRINT:PRINT "ONE(1) LINE OF ";C$;" = ";S 290 FOR I = 1 TO N 300 PRINT:PRINT"NAME OF OBSERVATION NO.";UY$;I;UN$ 310 INPUT X$(I) 320 X$(I)=LEFT$(X$(I),3) 330 PRINT"NUMBER OF UNITS FOR ";UY$;X$(I);UN$;" = ";:INPUT U(I) 340 PRINT 350 T=T+U(I) 360 U(I)=U(I)/S 370 NEXT I:PRINT 380 PRINT CHR$(26) 390 PRINT:PRINT "PRESS ANY KEY TO CONTINUE" 400 M = 28 410 PRINT CHR$(26) 420 FOR I = 1 TO N 430 K=U(I) 440 P$=LEFT$(X$(I),3)+SPACE$(1) 450 IF K>20 THEN 460 ELSE 480 460 IF K < 40 THEN K=K/2:GOTO 490 470 IF K > 40 THEN K=K/4:GOTO 500 480 P0$=STRING$(3,G$)+E$:GOTO 510 490 P0$=CHR$(110)+CHR$(47)+CHR$(50)+E$:GOTO 510 500 P0$=CHR$(110)+CHR$(47)+CHR$(52)+E$:GOTO 510 510 P1$=STRING$(3,G$)+F$ 520 P2$=CHR$(138)+STRING$(3,F$) 530 L=54:M=M+5 540 J=1 550 PRINT DC$;CHR$(L);CHR$(M);P$ 560 L=L-1 570 PRINT DC$;CHR$(L);CHR$(M);P0$ 580 GOTO 600 590 PRINT DC$;CHR$(L);CHR$(M);P1$:J=J+1 600 IF J=K THEN L=L-1:GOTO 620 620 PRINT DC$;CHR$(L);CHR$(M);P2$ 630 NEXT I 640 PRINT DC$;"7 ";"PRESS ANY KEY TO CONTINUE"; 650 Q$=INKEY$:IF Q$="" THEN 660 ELSE 665 660 PRINT:PRINT 670 AV=T/N:PRINT "TOTAL OF UNITS FOR OVERALL PERIOD = ";UY$;T;UN$ 680 PRINT"AVERAGE UNITS FOR ";UY$;N;UN$;" OBSERVATIONS = ";UY$;AV;UN$ 690 PRINT:PRINT"PRESS 'V' FOR ANOTHER VARIABLE BAR GRAPH 700 Q$=INKEY$:IF Q$="" THEN 700 ELSE 710 710 IF Q$="V" OR Q$="v" THEN 190 720 END PRESS 'V' FOR ANOTHER VARIABLE BAR GRAPH 700 Q$=INKEY$:)+SPACE$(1) 450 IF K>20 THEN 460 ELSE 480 460 IF K < 40 THEN K=K/2:GOTO 490 470 IF K > 40 THEN K=K/4:GOTO 500 480 P0$=STRING$(3,G$)+E$:GOTO 510 490 P0$=CHR$(110)+CHR$(47)+CHR$(50)+E$:GOTO 510 500 P0$=CHR$(110)+CHR$(47)+CHR$(52)+E$:GOTO 510 510 P1$=STRING$(3,G$)+F$ 520 P2$=CHR$(138)+STRING$(3,F$) 530 L=54:M=M+5 540 J=1 550 PRINT DC$;CHR$(L);CHR$(M);P$ 560 L=L-1 570 PRINT DC$;CHR$(L);CHR$(M);P0$ 580 GOTO 600 590 PRINT DC$;CHR$(L);CHR$(M);P1$:J=J+1 600 IF J=K THEN L=L-1:GOTO 620 620 PRINT DC$;CHR$(L);CHR$(M);P2$ 630 NEXT I 640 PRINT DC$;"7 ";"PRESS ANY KEY TO CONTINUE"; 650 Q$=INKEY$:IF Q$="" THEN 660 ELSE 665 660 PRINT:PRINT 670 AV=T/N:PRINT "TOTAL OF UNITS FOR OVERALL PERIOD = ";UY$;T;UN$ 680 PRINT"AVERAGE UNITS FOR ";UY$;N;UN$;" OBSERVATIONS = ";UY$;AV;UN$ 690 PRINT:PRINT"PRESS 'V' FOR ANOTHER VARIABLE BAR GRAPH 700 Q$=INKEY$:3DGRAPH is from William Burkett's article on pp. 44 and 45 of the 6/83 issue of Portable Companion. It will display a 3D bargraph on the screen using interactive data input. Place 3DGRAPH.BAS in drive A and MBASIC.COM in drive B. At the A> prompt, type B:MBASIC 3DGRAPH and follow instructions provided by the program. This program was received from Detroit's DeFOG. ͫCopyright (C) 1984 BORLAND IncA Osborne 1al selectedZ)(= ERT()~7#~=% o&ͦoͦܐԩͣ}!!"8~#(}:$= +*!Z!*B!!:(=2!Z: <2!!!:O::O:!*B! !45(!.+/ 0y0( d!kZ!{Z͈͈o&  :(y ͠|( *"x2y( >28!?"9!!>2 :D]SXN]D [ (!e}̈́A8Q0G: x@!\w# (   yV. V!h6# (*(.(!8}(*(̈́w#>?> w#a{ |͒}͛Ɛ'@'7||}>"C"6# ""͐ͩ*B"[R5*"^#V#^#V#N#FO/o&9O/o&9!9(> (G!9 w#E͊w}8uRB0 >R@RR!+ͨ z R!+ͨ z <!+ͨ z <!+ͨ z <!#ͨ z <!+ͨ z T]KB!z> S>))0 = |JJDMgo>jB0 7?= H\<z5+)+<z {0Gɯgo||H}||/g}/o#}o&K[xAJSJDM!b"!6J"DM'ͬͬdͬ ͬ} wͦWͧ _}8(8J`9{T]=o`9y w >uJ u` }>(; xQ }} ˸T}ٕ(0D=C ,= ( [ 0%D , 7 ͏ ?(8u x O - ; 8˸x X ,-xG}; }م 9; .>#n0[ D = - nx P ,-(-˸G,-; }ٕ? 9.>͏ 8u ?= u+-(>O 0u O 8͏ ?x P , 78ƀ8ƀ8ox٨!دoGOW_gɷɷ|لg{ً_zيWyىOxوG|ٔg{ٛ_zٚWyٙOx٘Gxٸyٹzٺ{ٻ|ټx٨ xx(ͼ ?}ٽÏ }ց; <(; 7D = |٤g{٣_z٢Wy١Ox٠GD u J }x>uu}ƀ/ƀo; -J }0W-J W,}l˸ͨ 8 ; ` x( -ͨ 8J -ͨ 8,J }l8;*!` ! >u` ` u--- J ,,,-xGg?+2n*8t z~,->uxua}.; OJ , ; !U >,k- o&0%,` }g; }؉}颋.:}8c~I$I~L*kٷx˸; }0G,͙<},-(-J ! >0 a` o8 Oþ >um.`1pF,t6|!wS<.z}[|%FXc~ur1}Oٯx(<˸ͨ 8; !~Jͨ 0O!><ͨ 8 =  7 <` O ; 7 0 W-J OT0 j oD,:j !I}袋.}8c~I$I~L!>u` ` 77 ` = O nf^VNF!DLT\I!!53!r1!\!> x #-= o˸xO(- }(x>8(C ,C `iM!>u|; |J>| )=|(DMbo˸ͦ88ͦx(0 8> Mx(>-Ͳ{(ay(Ͱͦ \z(>.Ͳ (Ͱ ~ͦ{>EͲ>+|(|Dg>-Ͳ|/ 0:p# ~# +>0w#,-  60#J˸}րogM| .(C = ~> x0w#xG%P %P ZJDM%P = _~65i+~hìx-Sx9?+{Η@}|C C gZJDM0D ,7}o˸  #yO!@9i&   # w# /w# w#!9! E9!!9~(+F͊!"9!(#>2*Ͳ"|>" :( ͆ *6#w*6#6 !\$![ (̈́( #:~CONTRMKBDLSTAUXUSR>2$*#~ Ͷ$*:> >w###6  #6++p>2S-$Ͷ:*6###ww#w$w#w: ##N#F*B> w#w#[s#r>2S$Ͷ$*6 #-Nw#Fwq#p#6#w#w#w* :( ͒: *^ F* < >26"~͟*-w#ww#͟"~ <@*Ͳ!\  <ʮ!\$> >2*|>! * \$\<(!: [1Á\!(f"> 2:!<"F( #~#6e>!["N>!~8>O6*"w (=(&("( :(N 8y(~#x+% (6*#~[*#~ *~(h#"b=  8 J= B== ͯ}8= ͵}/ͭ !*###~-_~(4Q6*>2>*##w:>*##~*#~(E[ ( ( ( !][ ( ( ((w#(6!]~-#8~>7  [>OkͼMs #rkͼpX á[ [ (( #w(q*#~[ (  *##~6͜O$*#~(08ʦ=ʦ==ʩ=ʬò+###~-_q46͡> *:4^q}Ò*|(M|( M6-#͐ͦ[R8 (G> ͒C~͒#*ͦC!h !lTRUEFALSEͦ!9^#(~#(G~͒#> ͒> Ò "F![(#RR0*4#4> RR *4 #4(>>2$*V(/˖:(#~+ x y2!͵( =( X:(R*:(###~-_-͌X> :("͟"*^˞*V˖0 SRѷR8A* N#F#s#r$ 0})jS\*###w* N#FB ͟r+s> !T]>)j)0 0= UR!#U*^#V#N#F#^#V>">!2DM"~x(L* :O(o:" C}=( ?*-N#Fp+qq#p! * F+N+++V+^Bq#p>>> SRѷR* s#r$ s#r"S"! N#FB(^x * 6#[<(H*! Kq#p##K[! *! 4 #4! x *$ *>w""{_!"*nf}(HR0nf" ^VMDnfutqp*s#r*s#r"* 5KB!>u~#fo{_"*R0RnfR0KqputsrNF( ^VNF^V*SutKqp R*R(~w~wnf ut"6# * *!""*NFy(* "*B0Cnf* [R*"*RS[s#r^#VS>O"w2x2!"" @*>2"!"""!\Ͳ*: !~6go(\R*s#r_2x( s x(T]DMR0 -a%}̈́o*!~6o&͠|ͣ}%^C User break1:% I/O% Run-time% error ͒%, PC=[R"͍% Program aborted*1!͍!|5z|Ͳ_4 R!b!}2k"S}"U}*U}!!*S}!"K}!*U}!|g}o"I}!*K}n&"G}*G} Rm !"M}Ù R€ !"M}Ù R“ !"M}Ù !"M}*M}*I}|g}o!a}2W}!*K}!*M}*I}|g}on&s*W}&"C}"E}*E}!!*C}!"7}!*E}!|g}o"9}!*7}n&";}*;}RH!!"=}t!R[!!"=}t!Rn!!"=}t!!"=}!*7}!*=}!*9}R|g}on&s!"1}*1}!͛E&"*1}B*z*x *z!R*x }20}*1}B*z!R*x *z*x }20}*1}!!"1}è!c!7"d!"`*^!ͯEc"!F! *^R"b!"l*^!͛*^!ͯ}oEʠ"!7*^!R"b!"l*^!͛E"!7*^!R"b!"l!!5zC#"*}!**}**}!|g}o!NE #ͩ#͐!!.5z:#"(}R*&b*(}##**}#"!!!!05zx#"*}R*&b**}#X#!!5z#"*}!**}R*&*&b!/**}R*&*&b**}#Ã#ͩ!!5zP$"*}**}!"&}!!/5zG$"(}!*(}*&}!*(}*&}n&!|g}os*(}#$**}##!<!ŔSCOREb!<!*jR!b!<!ŔLEVELb!<!*^R!b!;!ŔPADDLES͐b!<! *hR!͐b!<! Ŕ HALL OF FAME͐b!!5z%"*}!]}**}+)))))^#V!͛Eʸ%!<! **}!]}**}+)))))^#VR!́ !]}**}+))))) !q͐b**}#%!:!Ŕ 1 = move leftb!:!Ŕ2 = stopb!:!Ŕ3 = move rightb!:!Ŕ 4 = step leftb!:!Ŕ6 = step rightb!9!Ŕ esc = pauseb!2!!!ͽ!!ͽ!<! *hR!b*b"f!"`!"r!"p!"n!("z!!("x!"v!!R"t*r*lR*r*l5z_'"}!,*}! EV'Ŕerrorb*}#&'!2!*^!"^*h!"h!B'"͍&*z*v"}*x*t"}*z!,a*v!͛}oE'*z*x *}*} }2}*}"z*}"x*}&E})*z!ͯE(*v}/o|/g#"v*j!*^"j*d!R"d!*z!R"}*}*`͛E~(*}"`*b*`!R"f*x!!!|g}o!R*z!!Ŕ b*}*} }2}!<!*jR!b!2!})*z!,NE})*x!*rR"}!"v*t*p*n"t*}*lNEW)*t!"t*}*l}/o|/g#NE})*t!R"t*x!ͯEʖ)*tJ"t*x!-!͛Eʾ)*tJ}/o|/g#"t*z!ͯE)!"v*]&*z!/ͯ}o}2]**r*l͇E *!"pb*!,*r*l! *r!R"r!,*r*lR! Eb*Ŕerrorb*r!.͛E|*!"p*!,*r*lR! *r!"r!,*r*l! E*Ŕerrorb*z!,aE+*n*p" }* }!ͯE+)+* }!͛E+c*!"n! !ŔPress any key to continue.b͠}oE[+L+!.! !ͽ!!Ezʰ+"|*|R!b!B! !ͽ*|+{+!2!͠E[,!.o&"|*|1R+!"p[,3R+!"p[,4R,!"p!"n[,6R+,!"p!"n[,R;,+[,RU,!"h!}2][,!"p!"j!}2\}!| BREAKOUT.COM=!|zb!|U!pͯEN-!]}!+)))))! s#r!]}!+)))))Wade(!! 5zK-"|!]}*|+)))))!s#r!]}*|+)))))(*|#,l-!|!lb!|!]}!kb!|Sb!| BREAKOUT.COM=!|zb!|U!pͯE-!|!|Ub!|!]}!p!|URgb!|!lb!|!]}!gb!|SbcR͐bŔ Hall of Fame͐bR͐b!! 5zʺ."|!]}*|+)))))"|*|^#V!͛Eʱ.*|R! *|^#V!́ *| !q͐b*|#B.R͐b*j!͛E.*jR!́ last score͐b*j!]}! +)))))^#V͛Eʲ0!}2\}!"~|*j!]}*~|+)))))^#VͯEe/*~|!"~|-/*~|! ͯE/! *~|Ez/"|!]}*|!+)))))!]}*|+)))))+*|+À/!]}*~|+)))))*js#r!B!!ͽŔ You rank #*~|!́ in this version of breakout.͐bͽR͐bͽŔ'ENTER your name for the record books = b!]}*~|+)))))+(._b-cŔ" B R E A K O U T͐bŔ4  by Wade Satterfield 4-10-85͐bR͐bŔ4This is my rendition of the video game by the same͐bŔname.͐bR͐bŔ4This is written in Turbo pascal and will only work͐bŔon an Osborne I computer.͐bR͐bŔ0You need an 80 column machine to see your score.͐bR͐bŔ4The object of the game is to keep your paddle under ͐bŔ4the ball and keep it from falling off of the bottom ͐bŔ4of the screen. The 4 and 6 keys will step the ͐bŔ4paddle left and right one column. The 1 and 3 keys ͐bŔ4will move the paddle left and right several columns.͐bŔ4it will keep moving until another key is pressed. ͐bŔ4The 2 key is a handy key to use to stop the paddle. ͐bR͐bŔ% PRESS any key to play...b͠!NEV4C4!.\,ͳ0-!B!"h!"^!"j'"*h!͛E4͍&!}2]*]&E4ͻ+)͏'*d!NE4j'*fBÝ4͢!!B͠E4!.*h!R"hÃ4.!!R͐bŔDo you want to play again ? b͠!NEF535!`!.o&|g}o!yaEn4-*\}&Ey5v-! Wade Wade10 ' L A L A N E An animation by Wade Satterfield January 1982 20 DEFINT A-Z 30 PRINT CHR$(26); 40 DEF FNWIN$(R,C)=CHR$(27)+"S"+ CHR$(R+32)+CHR$(C+32) 50 DATA 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 79, 32, 32, 32, 32, 32, 32, 43, 32, 32, 32, 32, 32,124,124,124, 32, 32, 32, 32,124, 43,124, 32, 32, 32, 32,124, 32,124, 32, 32, 32, 95,124, 32,124, 95, 32 60 DATA 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 79, 32, 32, 32, 32, 32, 32, 43, 32, 32, 32, 32, 32,124,124,124, 32, 32, 32, 47, 32, 43, 32, 92, 32, 32, 32,124, 32,124, 32, 32, 32, 95,124, 32,124, 95, 32 70 DATA 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 79, 32, 32, 32, 32, 32, 32, 43, 32, 32, 32, 32, 95, 47,124, 92, 95, 32, 32, 32, 32, 43, 32, 32, 32, 32, 32, 47, 32, 92, 32, 32, 32, 95,124, 32,124, 95, 32 80 DATA 32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 79, 32, 32, 32, 32, 45, 45, 43, 45, 45, 32, 32, 32, 32,124, 32, 32, 32, 32, 32, 32, 43, 32, 32, 32, 32, 32, 47, 32, 92, 32, 32, 32, 95,124, 32,124, 95, 32 90 DATA 32, 92, 32, 32, 32, 47, 32, 32, 32, 92, 79, 47, 32, 32, 32, 32, 32, 43, 32, 32, 32, 32, 32, 32,124, 32, 32, 32, 32, 32, 32, 43, 32, 32, 32, 32, 32, 47, 32, 92, 32, 32, 95, 47, 32, 32, 32, 92, 95 100 DATA 32, 32, 47, 32, 92, 32, 32, 32, 32, 92, 79, 47, 32, 32, 32, 32, 32, 43, 32, 32, 32, 32, 32, 32,124, 32, 32, 32, 32, 32, 32, 43, 32, 32, 32, 32, 32, 47, 32, 92, 32, 32, 95, 47, 32, 32, 32, 92, 95 110 FOR I=0 TO 3 120 FOR J=0 TO 1 130 N=N+1 140 X(N)=I*32 150 Y(N)=((I+J) AND 1)*16 160 NEXT J 170 NEXT I 180 FOR F=1 TO 6 190 FOR J=8 TO 14 200 FOR I=20 TO 26 210 READ X 220 L=I+X(F) +(J+Y(F))*128 -4096 230 POKE L,X 240 NEXT I 250 NEXT J 260 NEXT F 270 FOR J=1 TO 20 280 FOR I=2 TO 5 290 PRINT FNWIN$(Y(I),X(I)); 300 GOSUB 380 310 NEXT I 320 FOR I=6 TO 1 STEP -1 330 PRINT FNWIN$(Y(I),X(I)); 340 GOSUB 380 350 NEXT I 360 NEXT J 370 GOTO 420 380 FOR X=1 TO 90 390 NEXT X 400 PRINT CHR$(27)+"="+CHR$(40+Y(7))+CHR$(55+X(7)); 410 RETURN 420 END  370 GOTO 420 380 FOR X=1 TO 90 390 NEXT X 32, 32, 43, 32, 32, 32, 32, 32, 32,124, 32, 32, 32, 32, 32, 32, 43, 32, 32, 32, 32, 32, 47, 32, 92, 32, 32, 95, 47, 32, 32, 32, 92, 95 100 DATA 32, 32, 47, 32, 92, 32, 32, 32, 32, 92, 79, 47, 32, 32, 32, 32, 32, 43, 32, 32, 32, 32, 32, 32,124, 32, 32, 32, 32, 32, 32, 43, 32, 32, 32, 32, 32, 47, 32, 92, 32, 32, 95, 47, 32, 32, 32, 92, 95 110 FOR I=0 TO 3 120 FOR J=0 TO 1 130 N=N+1 140 X(N)=I*32 150 Y(N)=((I+J) AND 1)*16 160 NEXT J 170 NEXT I 180 FOR F=1 TO 6 190 FOR J=8 TO 14 200 FOR I=20 TO 26 210 READ X 220 L=I+X(F) +(J+Y(F))*128 -4096 230 POKE L,X 240 NEXT I 250 NEXT J 260 NEXT F 270 FOR J=1 TO 20 280 FOR I=2 TO 5 290 PRINT FNWIN$(Y(I),X(I)); 300 GOSUB 380 310 NEXT I 320 FOR I=6 TO 1 STEP -1 330 PRINT FNWIN$(Y(I),X(I)); 340 GOSUB 380 350 NEXT I 360 NEXT J 370 GOTO 420 380 FOR X=1 TO 90 390 NEXT X b  : () : ); "M A Z E" : : : : ); "by Wade Satterfield"b ,,b AZIb XY$(R,C)ESC$"="(R)(C) b( L(), R(), F(), DR(), DC(), W(), M(,), F$(), L$(), R$(), V$(), LF$(), RF$() b2 I b< F(I)IbF L(I)(I )bP R(I)(I )bZ I cdDR()cnDC()#cxDR()1cDC() CcER UcEC ecRD wcRR cRC cDcNORTH cRcCcCRUMBSdcC$( )( )()( )" " d I d J (d M(I,J)1d J:d I FdW()RdW()^dW() idW()udW() dESC$()d"C1$"|"d,C2$"/"d6C4$"|"d@C7$()dJC14$"\" dTN$()"Plunk!"d^N$()"Crunch"dhN$()"Plink!"erN$()" Biff""e|N$()" Plop"4eN$()"Splat"FeN$()" Thud"geN$()"KA-BOOM!! (a biggy)" ueD$()"N"eD$()"E"eD$()"S"eD$()"W" e  : INITIALIZE MORE STUFF e: MAIN LOOPe eX("")eA$f (A$) Q(,C$,A$) : Q9f& Q X,, ,,Lf+RATRAT `f, RAT  wf0 Q  :  fX: STEP FORWARDfb (F(D) M(R,C)) C7$; : flRRDR(D) fvCCDC(D) f{ ECC ERR (f g: BACKUPgD1D ?g (F(D1) M(R,C)) C7$; : SgRRDR(D1) ggCCDC(D1) g ECC ERR (g g : TURN LEFTg*D(D) g4 g: RIGHT TURNgDD g g: DROP CROUTONgQ h CRUMBS .hCRUMBSCRUMBS5hM(R,C)M(R,C) Vh XY$(,); N$( );\h$h. XY$(,); "You are out of croutons.";h8 h: DRAW PICTUREhXRhYCh ();hZ("")h S hA$h (A$)  i V$(S);qi  L(D) M(X,Y) L$(S); : F(D) M(XDR(D ) , YDC(D ) ) LF$(S);i R(D) M(X,Y) R$(S); : F(D) M(XDR(D )  , YDC(D ) ) RF$(S);j  F(D) M(X,Y) F$(S); : Sj> XXDR(D) )jH YYDC(D) 2jR S :jfXRBjpYCPjz I uj (F(D) M(X,Y)) I : j XXDR(D) j YYDC(D) j XER YEC XY$(W(I),); "EXIT";k  M(X,Y) XY$((W(I)W(I)),); ".";k I"k XY$(,);@k D$(DNORTH ); ();Jk ^k : MOUSE MOVERk    , , ,H , k : MOVEk& (F(RD) M(RR,RC)) RRRRDR(RD)  : RCRCDC(RD) k0 k : TURN LEFTl RDRD  l l : EAT3l M(RR,RC)M(RR,RC) :l Ml : TURN RIGHT]l RDRD dl wlH : TURN RIGHTlR RDRD l\ l :RUSTLEl XY$(,);l ff  , , ,,l "Squeek squeek";l $m "Sniff sniff";m $/m "Munch munch";9m $Pm "Rustle Rustle";Zm $mm " Burp!";m$ XY$(,);m. m: INITIALIZEm I m L$(I)XY$(W(I),W(I))m JW(I) W(I) n L$(I)L$(I)C2$,n JW(I) L$(I)L$(I)( )6n J Tn R$(I)XY$(W(I),W(I))mn JW(I) W(I)n R$(I)R$(I)C14$n JW(I) R$(I)R$(I)( )n J n F$(I)XY$(W(I),W(I))(W(I),-)#o" LF$(I)XY$(W(I),W(I)) (W(I)W(I),-)Zo, RF$(I)XY$(W(I),W(I)) (W(I)W(I),-)uo6 V$(I)XY$(,W(I))o@ X$XY$(,W(I))oJ J W(I)oT V$(I)V$(I)C1$o^ X$X$C4$ph JW(I) X$X$()( ) : V$(I)V$(I)()( )"pr J6p| V$(I)V$(I)X$>p IKpV$()""Tp |p 9,1,5,3,9,4,3,12,3,13,4,3,9,4,1,3p 14,10,11,10,14,11,12,1,6,9,3,10,12,3,10,14p 5,2,12,4,5,0,5,2,9,2,12,0,1,6,8,5q 11,12,5,3,11,10,11,10,10,10,13,6,12,7,12,3/q 8,5,5,2,8,2,12,6,10,10,9,3,9,3,9,2]q 10,9,3,10,10,12,5,5,6,12,6,12,6,12,6,14q 2,10,8,2,12,1,3,9,5,5,5,5,5,5,5,5q 14,10,10,14,11,10,10,16,13,1,5,7,9,5,1,3q 5,6,12,1,4,2,12,4,1,6,9,7,8,7,10,8r 5,3,11,12,3,14,9,3,10,9,4,5,6,9,2,122r 11,8,4,7,8,1,6,10,8,4,5,1,7,10,12,3[r 8,4,1,5,2,12,7,8,4,5,3,12,5,0,3,10r 10,9,4,7,12,5,1,4,7,9,4,1,3,14,8,6r  14,10,9,1,7,9,2,11,9,2,11,10,10,11,10,11r 5,6,10,14,9,2,10,8,2,14,8,0,0,0,0,0s 13,5,4,5,6,10,14,10,12,7,10,14,14,10,14,14 8s( XY$(,); "YOIKS YOU GOT OUT!!">s2,9,2,10,8,2,14,8,0,0,0,0,0s 13,5,4,5,6,10,14,10,12,7,10,14,14,10,14,14 8s( XY$(,); "YOIKS YOU G)V$(I)C1$o^ X$X$C4$ph JW(I) X$X$()( ) : V$(I)V$(I)()( )"pr J6p| V$(I)V$(I)X$>p IKpV$()""Tp |p 9,1,5,3,9,4,3,12,3,13,4,3,9,4,1,3p 14,10,11,10,14,11,12,1,6,9,3,10,12,3,10,14p 5,2,12,4,5,0,5,2,9,2,12,0,1,6,8,5q 11,12,5,3,11,10,11,10,10,10,13,6,12,7,12,3/q 8,5,5,2,8,2,12,6,10,10,9,3,9,3,9,2]q 10,9,3,10,10,12,5,5,6,12,6,12,6,12,6,14q 2,10,8,2,12,1,3,9,5,5,5,5,5,5,5,5q 14,10,10,14,11,10,10,16,13,1,5,7,9,ͫCopyright (C) 1984 BORLAND IncA Osborne 1al selectedZ)(= ERT()~7#~=% o&ͦoͦܐԩͣ}!!"8~#(}:$= +*!Z!*B!!:(=2!Z: <2!!!:O::O:!*B! !45(!.+/ 0y0( d!kZ!{Z͈͈o&  :(y ͠|( *"x2y( >28!?"9!!>2 :D]SXN]D [ (!e}̈́A8Q0G: x@!\w# (   yV. V!h6# (*(.(!8}(*(̈́w#>?> w#a{ |͒}͛Ɛ'@'7||}>"C"6# ""͐ͩ*B"[R5*"^#V# ^#V#N#FO/o&9O/o&9!9(> (G!9 w#E͊w}8uRB0 >R@RR!+ͨ z R!+ͨ z <!+ͨ z <!+ͨ z <!#ͨ z <!+ͨ z T]KB!z> S>))0 = |JJDMgo>jB0 7?= H\<z5+)+<z {0Gɯgo||H}||/g}/o#}o&K[xAJSJDM!b"!6J"DM'ͬͬdͬ ͬ} wͦWͧ _}8(8J`9{T]=o`9y w >uJ u` }>(; xQ }} ˸T}ٕ(0D=C ,= ( [ 0%D , 7 ͏ ?(8u x O - ; 8˸x X ,-xG}; }م 9; .>#n0[ D = - nx P ,-(-˸G,-; }ٕ? 9.>͏ 8u ?= u+-(>O 0u O 8͏ ?x P , 78ƀ8ƀ8ox٨!دoGOW_gɷɷ|لg{ً_zيWyىOxوG|ٔg{ٛ_zٚWyٙOx٘Gxٸyٹzٺ{ٻ|ټx٨ xx(ͼ ?}ٽÏ }ց; <(; 7D = |٤g{٣_z٢Wy١Ox٠GD u J }x>uu}ƀ/ƀo; -J }0W-J W,}l˸ͨ 8 ; ` x( -ͨ 8J -ͨ 8,J }l8;*!` ! >u` ` u--- J ,,,-xGg?+2n*8t z~,->uxua}.; OJ , ; !U >,k- o&0%,` }g; }؉}颋.:}8c~I$I~L*kٷx˸; }0G,͙<},-(-J ! >0 a` o8 Oþ >um.`1pF,t6|!wS<.z}[|%FXc~ur1}Oٯx(<˸ͨ 8; !~Jͨ 0O!><ͨ 8 =  7 <` O ; 7 0 W-J OT0 j oD,:j !I}袋.}8c~I$I~L!>u` ` 77 ` = O nf^VNF!DLT\I!!53!r1!\!> x #-= o˸xO(- }(x>8(C ,C `iM!>u|; |J>| )=|(DMbo˸ͦ88ͦx(0 8> Mx(>-Ͳ{(ay(Ͱͦ \z(>.Ͳ (Ͱ ~ͦ{>EͲ>+|(|Dg>-Ͳ|/ 0:p# ~# +>0w#,-  60#J˸}րogM| .(C = ~> x0w#xG%P %P ZJDM%P = _~65i+~hìx-Sx9?+{Η@}|C C gZJDM0D ,7}o˸  #yO!@9i&   # w# /w# w#!9! E9!!9~(+F͊!"9!(#>2*Ͳ"|>" :( ͆ *6#w*6#6 !\$![ (̈́( #:~CONTRMKBDLSTAUXUSR>2$*#~ Ͷ$*:> >w###6  #6++p>2S-$Ͷ:*6###ww#w$w#w: ##N#F*B> w#w#[s#r>2S$Ͷ$*6 #-Nw#Fwq#p#6#w#w#w* :( ͒: *^ F* < >26"~͟*-w#ww#͟"~ <@*Ͳ!\  <ʮ!\$> >2*|>! * \$\<(!: [1Á\!(f"> 2:!<"F( #~#6e>!["N>!~8>O6*"w (=(&("( :(N 8y(~#x+% (6*#~[*#~ *~(h#"b=  8 J= B== ͯ}8= ͵}/ͭ !*###~-_~(4Q6*>2>*##w:>*##~*#~(E[ ( ( ( !][ ( ( ((w#(6!]~-#8~>7  [>OkͼMs #rkͼpX á[ [ (( #w(q*#~[ (  *##~6͜O$*#~(08ʦ=ʦ==ʩ=ʬò+###~-_q46͡> *:4^q}Ò*|( M|( M6-#͐ͦ[R8 (G> ͒C~͒#*ͦC!h !lTRUEFALSEͦ!9^#(~#(G~͒#> ͒> Ò "F![(#RR0*4#4> RR *4 #4(>>2$*V(/˖:(#~+ x y2!͵( =( X:(R*:(###~-_-͌X> :("͟"*^˞*V˖0 SRѷR8A* N#F#s#r$ 0})jS\*###w* N#FB ͟r+s> !T]>)j)0 0= UR!#U*^#V#N#F#^#V>">!2DM"~x(L* :O(o:" C}=( ?*-N#Fp+qq#p! * F+N+++V+^Bq#p>>> SRѷR* s#r$ s#r"S"! N#FB(^x * 6#[<(H*! Kq#p##K[! *! 4 #4! x *$ *>w""{_!"*nf}(HR0nf" ^VMDnfutqp*s#r*s#r"* 5KB!>u~#fo{_"*R0RnfR0KqputsrNF( ^VNF^V*SutKqp R*R(~w~wnf ut"6# * *!""*NFy(* "*B0Cnf* [R*"*RS[s#r^#VS>O"w2x2!"" @*>2"!"""!\Ͳ*: !~6go(\R*s#r_2x( s x(T]DMR0 -a%}̈́o*!~6o&͠|ͣ}%^C User break1:% I/O% Run-time% error ͒%, PC=[R"͍% Program aborted*1!O͍!/3HͲØ1   R!b!&}2kR!b!&}2k!BR!b!&}2k!BR!b!&}2k!ZBR!b! &}2kSI!*SIn&"KI*KI R !!"MI7!R!!"MI7!R1!!"MI7!!"MI*MI*UI&|g}o!a&}2VI!*SI!*MI*UI&|g}on&&s*VI&HI!*HIn&"@I*@IR!!"BI"R!!"BI"R!!"BI"!"BI!*HI!*BI!*JI&R|g}on&&s!,!":I!,!"8I*8I*:I!!"vI*:I!|g}o!NEʯ"*&&}2xI"*&&}2xI!vI !NEE"*fI!R!!",I!!*,I+)^#V5z#"2I!*,I+))*2I+)^#V".I!! *,I+))*2I+)^#V5z#"0I*.I!|g}o!*.I!!R*&*&b*.I! *,I+))*2I+)^#V".I*0I#l#*2I##! "bI!"`I! "jI*fI! ͯE0$!*fI!R"hI6$!("hI! *fI!!"lI*`I*bI5zʴ$"&I!|I*&I)!2s#r!|I*&I)*&&s*&I#]$!!!"yI*&&}2{I!"dIc͐!!5zF%"$I!*$I!!!!05z=%"&IR*&b*&I#%*$I#$!!5zʣ%"&I!*&IR*&*&b!/*&IR*&*&b*&I#Q%"ͩ!<!ŔSCOREb!<!*tIR!b!<!ŔLEVELb!<!*fIR!b!;! ŔAPPLESb!=! *lIR!b!;! ŔSNAKESb!=! *nIR!b!<!ŔBONUSb!<!*rIR!b!:!Ŕ 4 = turn CCWb!:!Ŕ 6 = turn CWb!5!Ŕarrows turn you to theb!5!Ŕ direction they pointb!9!Ŕ esc = pauseb!2!E"!!R! b!4"vI4 *hI!"jI*tI! "tI!<!*tIR!b*lI!R"lI!=! *lIR!b!2!!|I*`I)I!!5z_("I*`I!R!|g}o"`I!|I*`I)!I*I#(*lI!͛Eu(E"x(i'*fI!"fI*tI*rI"tI*fI!d"rI!"pI!<!*tIR!b!*fI5z("I4 !B*I#(!B#*dIR )*yI!"yIö)RU)*{I&*&NE7)*yI!R"yI!*{I&R&}2{Iö)Rq)*yI!R"yIö)R¶)*{I&*&NEʛ)*yI!"yI!*{I&R&}2{I!|I*`I)͝!*`I!!|g}o"`I*bI!!|g}o"bI!|I*bI)!yI!yI &}2 I*yI*vIN*{I&*xI&N}oEV*͆'Æ** I&Es*!&}2_IÆ**yI!ͯEʆ*y(!2!ŔPress any key to continue.b͠}oE*õ*!.!2!ͽ!!Ez+"I*IR!b!B!2!ͽ*I+*!2!͠E7,!.o&"H*HRP+RY+!"dI7,Rm+ Rv+!"dI7,Rʊ+ R“+!"dI7,Rʧ+ R°+!"dI7,4R+*dI!!|g}o"dI7,6R+*dI!!|g}o"dI7,R,͇*7,R+,!"nI!&}2_I7,R!bcŔ S N A K E͐bŔ4 by Wade Satterfield 8-17-84͐bR͐bŔ4This game is similar to a game called "SNAKEBYTE"͐bŔ4I once saw  on an Apple. This is written in Turbo͐bŔ4pascal and will only work on an Osborne I computer.͐bŔ0You need an 80 column machine to see your score.͐bR͐bŔ4The object of the game is to steer the snake around͐bŔ4the screen and eat the apple. The snake is controled͐bŔ4by the arrow keys, or the 4 and the 6. An arrow key͐bŔ4will send the snake the direction the arrow points.͐bŔ4The 6 and 4 TURN the snake clockwise and counter-͐bŔ4clockwise. These are easy to use but hard to learn.͐bR͐bŔ4When you eat an apple, your snake grows longer and͐bŔ4slows down. The longer your snake goes hungry the͐bŔ4faster it gets. Running a snake into itself or into͐bŔ4a wall will kill it. Running out of bonus points͐bŔ4does not kill a snake. Once all of the apples for a͐bŔ4screen have been eaten, a narrow door opens at the͐bŔ4top of the screen. The snake must enter this door͐bŔ3to pass on to the next level and collect any bonus.͐bŔ% PRESS any key to play...b͠!NEʏ1|1!.8,!"nI!"fI!"tI!"pI!"rI*nI!͛Eʽ2#!&}2_I*_I&Eʒ2$+(*jI!B*jI*hI͛E2*jI!R"jI*pI*jI!"pI*pI! ͛Eʏ2*pI! R"pI*rI!͛Ek2*rI!R"rI!<!*rIR!b!2!1Q !B͠Eʫ2!.*nI!R"nIù1!!R͐bŔDo you want to play again ? b͠!NE 32!`!.o&|g}o!yaEʛ1!R"nIù1!!R͐bŔDo you want to play again ? b͠!Nd͐bŔ4slows down. The longer your snake goes hungry the͐bŔ4faster it gets. Running a snake into itself or into͐bŔ4a wall will kill it. Running out of bonus points͐bŔ4does not kill a snake. Once all of the apples for a͐bŔ4screen have been eaten, a narrow door opens at the͐bŔ4top of the screen. The snake must enter thͫCopyright (C) 1984 BORLAND IncA Osborne 1ne OneectedP)(= ERT()~7#~=% o&ͦoͦܐԩͣ}!!"8~#(}:$= +*!Z!*B!!:(=2!Z: <2!!!:O::O:!*B! !45(!.+/ 0y0( d!kZ!{Z͈͈o&  :(y ͠|( *"x2y( >28!?"9!!>2 :D]SXN]D [ (!e}̈́A8Q0G: x@!\w# (   yV. V!h6# (*(.(!8}(*(̈́w#>?> w#a{ |͒}͛Ɛ'@'7||}>"C"6# ""͐ͩ*B"[R5*"^#V#^#V#N#FO/o&9O/o&9!9(> (G!9 w#E͊w}8uRB0 >R@RR!+ͨ z R!+ͨ z <!+ͨ z <!+ͨ z <!#ͨ z <!+ͨ z T]KB!z> S>))0 = |JJDMgo>jB0 7?= H\<z5+)+<z {0Gɯgo||H}||/g}/o#}o&K[xAJSJDM!b"!6J"DM'ͬͬdͬ ͬ} wͦWͧ _}8(8J`9{T]=o`9y w >uJ u` }>(; xQ }} ˸T}ٕ(0D=C ,= ( [ 0%D , 7 ͏ ?(8u x O - ; 8˸x X ,-xG}; }م 9; .>#n0[ D = - nx P ,-(-˸G,-; }ٕ? 9.>͏ 8u ?= u+-(>O 0u O 8͏ ?x P , 78ƀ8ƀ8ox٨!دoGOW_gɷɷ|لg{ً_zيWyىOxوG|ٔg{ٛ_zٚWyٙOx٘Gxٸyٹzٺ{ٻ|ټx٨ xx(ͼ ?}ٽÏ }ց; <(; 7D = |٤g{٣_z٢Wy١Ox٠GD u J }x>uu}ƀ/ƀo; -J }0W-J W,}l˸ͨ 8 ; ` x( -ͨ 8J -ͨ 8,J }l8;*!` ! >u` ` u--- J ,,,-xGg?+2n*8t z~,->uxu a}.; OJ , ; !U >,k- o&0%,` }g; }؉}颋.:}8c~I$I~L*kٷx˸; }0G,͙<},-(-J ! >0 a` o8 Oþ >um.`1pF,t6|!wS<.z}[|%FXc~ur1}Oٯx(<˸ͨ 8; !~Jͨ 0O!><ͨ 8 =  7 <` O ; 7 0 W-J OT0 j oD,:j !I}袋.}8c~I$I~L!>u` ` 77 ` = O nf^VNF!DLT\I!!53!r1!\!> x #-= o˸xO(- }(x>8(C ,C `iM!>u|; |J>| )=|(DMbo˸ͦ88ͦx(0 8> Mx(>-Ͳ{(ay(Ͱͦ \z(>.Ͳ (Ͱ ~ͦ{>EͲ>+|(|Dg>-Ͳ|/ 0:p# ~# +>0w#,-  60#J˸}րogM| .(C = ~> x0w#xG%P %P ZJDM%P = _~65i+~hìx-Sx9?+{Η@}|C C gZJDM0D ,7}o˸  #yO!@9i&   # w# /w# w#!9! E9!!9~(+F͊!"9!(#>2*Ͳ"|>" :( ͆ *6#w*6#6 !\$![ (̈́( #:~CONTRMKBDLSTAUXUSR>2$*#~ Ͷ$*:> >w###6  #6++p>2S-$Ͷ:*6###ww#w$w#w: ##N#F*B> w#w#[s#r>2S$Ͷ$*6 #-Nw#Fwq#p#6#w#w#w* :( ͒: *^ F* < >26"~͟*-w#ww#͟"~ <@*Ͳ!\  <ʮ!\$> >2*|>! * \$\<(!: [1Á\!(f"> 2:!<"F( #~#6e>!["N>!~8>O6*"w (=(&("( :(N 8y(~#x+% (6*#~[*#~ *~(h#"b=  8 J= B== ͯ}8= ͵}/ͭ !*###~-_~(4Q6*>2>*##w:>*##~*#~(E[ ( ( ( !][ ( ( ((w#(6!]~-#8~>7  [>OkͼMs #rkͼpX á[ [ (( #w(q*#~[ (  *##~6͜O$*#~(08ʦ=ʦ==ʩ=ʬò+###~-_q46͡> *:4^q}Ò*|(M|( M6-#͐ͦ[R8 (G> ͒C~͒#*ͦC!h !lTRUEFALSEͦ!9^#(~#(G~͒#> ͒> Ò "F![(#RR0*4#4> RR *4 #4(>>2$*V(/˖:(#~+ x y2!͵( =( X:(R*:(###~-_-͌X> :("͟"*^˞*V˖0 SRѷR8A* N#F#s#r$ 0})jS\*###w* N#FB ͟r+s> !T]>)j)0 0= UR!#U*^#V#N#F#^#V>">!2DM"~x(L* :O(o:" C}=( ?*-N#Fp+qq#p! * F+N+++V+^Bq#p>>> SRѷR* s#r$ s#r"S"! N#FB(^x * 6#[<(H*! Kq#p##K[! *! 4 #4! x *$ *>w""{_!"*nf}(HR0nf" ^VMDnfutqp*s#r*s#r"* 5KB!>u~#fo{_"*R0RnfR0KqputsrNF( ^VNF^V*SutKqp R*R(~w~wnf ut"6# * *!""*NFy(* "*B0Cnf* [R*"*RS[s#r^#VS>O"w2x2!"" @*>2"!"""!\Ͳ*: !~6go(\R*s#r_2x( s x(T]DMR0 -a%}̈́o*!~6o&͠|ͣ}%^C User break1:% I/O% Run-time% error ͒%, PC=[R"͍% Program aborted*1!͍!?HͲ7""**͛E **R!R"~B *!NE; *"~B *"~*~"*R!b͠E} !&}2JN 3&}2s"t"v] *s&R *vn&!!N&*vsh!R!*vn&!R!N& *vsh!R;!*tn&!R!&*tsh!Rh!*tn&!!&*ts%$=#&}2b] *b&R!*m&!Z*o&!!NO))))))*n&))n&N&}2c6#Rb"*m&!Z*o&!R!NO))))))*n&))n&N&}2c6#R"*m&!Z*o&O))))))*n&!R!))n&N&}2c6#R6#*m&!Z*o&O))))))*n&!!))n&N&}2c*c&&}2f&}2g&}2h&}2i*i&p!Eʞ#*i&&}2j$*h&p!E#*h&&}2j$*g&p!E#*g&&}2j$*f&p!E $*f&&}2j$!&}2j*j&&}2m&}2n&}2o!R‡$!!!!m!&}2pæ(Rµ$!!!!m!&}2pæ(R$!!!!m!&}2pæ(R%!!!!m!&}2pæ(R?%!!!!m!&}2pæ(Rm%!!!!m!&}2pæ(R›%!!!!m!&}2pæ(R%!!!!m!&}2pæ(R%!!!!m!&}2pæ( R%&!!!!m!&}2pæ( RS&!!!!m!&}2pæ( R&!!!!m!&}2pæ( R¯&!!!!m!&}2pæ( R&!!!!m!&}2pæ(R '!!!!m!&}2pæ(R9'!!!!m!&}2pæ(Rg'!!!!m!&}2pæ(R•'!!!!m!&}2pæ(R'!!!!m!&}2pæ(R'!!!!m!&}2pæ(R(!!!!m!&}2pæ(RM(!!!!m!&}2pæ(R{(!!!!m!&}2pæ(R¦(!!!!m!&}2p*p&&}2^&}2_!Z*_&O))))))*^&))!&s*_&*^&!j!&}2Z!Z*_&O))))))*^&))n&*Q&NE_**Z&!aE[*!Z*_&O))))))*^&))!&s!_!^*Z&͂ !Z*_&O))))))*^&))"\!&*\s*\!&s*\!&s,*Z&!a!d*N&ͯ}oEʨ+!Z*_&O))))))*^&))n&&}2[!Z*_&O))))))*^&))!&s!_!^*Z&͂ !Z*_&O))))))*^&))"\!&*\s*\!&s*\*[&!&s,!Z*_&O))))))*^&))"\*\*\n&!&s&}2X&}2Y!Z*Y&O))))))*X&))!&s*Y&*X&!j!&}2T*Y&*X&!j!&}2U!Z*Y&O))))))*X&))n&*P&NE#0*T&!aE1.!Z*Y&O))))))*X&))!&s!Z*Y&O))))))*X&))!&s!Y!X*T&͂ !Z*Y&O))))))*X&))"V!&*Vs*V!&s*V!&s*V!&s 0*U&!aEʌ/!Z*Y&O))))))*X&))"V] *Vn&&}2R*V!&s*V!&s*R&*O&aEʈ/!Y!X*U&͂ !Z*Y&O))))))*X&))"V!&*Vs*V!&s*V!&s*V*R&!&s 0!Z*Y&O))))))*X&))"V] *Vn&*O&NE/*V!&s0*V*Vn&!&s3*T&!aEo1!Z*Y&O))))))*X&))n&&}2S!Z*Y&O))))))*X&))!&s!Y!X*T&͂ !Z*Y&O))))))*X&))"V!&*Vs*V!&s*V*S&!&s*V!&s3!Z*Y&O))))))*X&))n&*O&NE2] !Z*Y&O))))))*X&))!&s3*U&!a!d*M&ͯ}oE`3!Z*Y&O))))))*X&))"V*Vn&&}2S*Vn&&}2R*V!&s!Y!X*U&͂ !Z*Y&O))))))*X&))"V!&*Vs*V!&s*V*S&!&s*V*R&!&s3!Z*Y&O))))))*X&))"V] *V*Vn&!&s*V*Vn&!&s!N!&}2Q!N!R!&}2O!!&}2P!!R!&}2N*Q&&}2L*P&&}2K!Z*L&O))))))*K&))"x*xn&}oE5*xn&R4*L&*K&ͭ(5R5*L&*K&,5R5] *L&*O&!N&}2L*K&*N&!&}2K*L&*Q&N*K&*P&N}oEʇ4!"J!"H!!!!5z6&}2K!!N5zʸ6&}2L!Z*L&O))))))*K&))"L] !&*Ls*Ln&!NEh6R!Xb*H!"Hì6*Ln&!NEʟ6R!ob*J!"Jì6R! b*L&#5R͐b*K&#ó5ŔTime: *T!́ ́Fish (!ó) :*J!́ ́Sharks (!X́) :*H!b*H&Eq7![*T!*J!*H!͐b*J&͠}o*J!N}o*H!N}o*T!N}o&}2J*T!"TcŔ Welcome to Wator͐bR͐bŔInitial number of Fish < !,!́ > : b!,"X!X+_bŔInitial number of Sharks < !!́ > : b!"V!V+_bŔBreeding rate of Fish < !!́ > : b!&}2Q!Q+_bŔBreeding rate of Sharks < ! !́ > : b! &}2P!P+_bŔStarvation period of Sharks < !!́ > : b!&}2O!O+_bŔMovement chance of Fish < !2!́ > : b!2&}2N!N+_bŔMovement chance of Sharks < !P!́ > : b!P&}2M!M+_bŔ"Random initial ages (Y or N) : b!G+_b*G&!nN*G&!NN}o}o&}2IŔ"Write population file (Y/N> : b!G+_b*G&!YN*G&!yN}o&}2H*H&Eʿ;Ŕ File name : b!8+._b!!8 <b!b![́ Time Fish Sharks͐bR͐bR͐bŔ;To stop, hit any key and hold it down until you hear a beep͐b!Bc!!N5z<&}2L!!5zʵ<&}2K!Z*L&O))))))*K&))!&s*K&#R<*L&#3!Z*L&O))))))*K&))"*!&s*I&E$?**P&!&s**O&!&sV?*!&s*!&s*R#=!&}2J!"T͎5 ͎5*J&E~?!bs>*!&s*!&s*R#=!&}2J!"T͎5 until you hear a beep͐b!Bc!!N5z<&}2L!!5zʵ<&}2K!Z*L&O))))))*K&))!&s*K&#R<*L&#3 Lim then Result := Num - Lim - 1 else if Num = -1 then Result := Lim else Result := Num ; Modulo := Result ; end ; Procedure Beep ; begin Write ( ^G ) ; end ; Procedure CheckEndit ; begin if KeyPressed then begin Endit := True ; Beep ; end ; end ; Procedure Advance ; type Check_type = ( Right, Left, Up, Down, None ) ; Procedure Adjust ( var I, J : Byte ; D : Check_type ) ; begin CheckEndit ; case D of Right : I := modulo ( I + 1, Max_X ) ; Left : I := modulo ( I - 1, Max_X ) ; Up : J := modulo ( J - 1, Max_Y ) ; Down : J := modulo ( J + 1, Max_Y ) ; end ; end { Adjust } ; Function Check ( I, J : Byte ; It : Location_type ) : Check_type ; Function Check1 ( Dir1, Dir2, Dir3, Dir4 : Check_type ) : Check_type ; Function Check2 ( Dir : Check_type ) : Boolean ; begin CheckEndit ; Case Dir of Right : Check2 := ( It = Ocean [ modulo (I+1, Max_X), J ].Contents ) ; Left : Check2 := ( It = Ocean [ modulo (I-1, Max_X), J ].Contents ) ; Up : Check2 := ( It = Ocean [ I, modulo (J-1, Max_Y) ].Contents ) ; Down : Check2 := ( It = Ocean [ I, modulo (J+1, Max_Y) ].Contents ) ; end ; end { Check2 } ; begin { Check1 } if Check2 ( Dir1 ) then Check1 := Dir1 else if Check2 ( Dir2 ) then Check1 := Dir2 else if Check2 ( Dir3 ) then Check1 := Dir3 else if Check2 ( Dir4 ) then Check1 := Dir4 else Check1 := None ; end { Check1 } ; begin { Check } case Random(24) of 0 : Check := Check1 ( Up, Right, Down, Left ) ; 1 : Check := Check1 ( Up, Right, Left, Down ) ; 2 : Check := Check1 ( Up, Down, Right, Left ) ; 3 : Check := Check1 ( Up, Down, Left, Right ) ; 4 : Check := Check1 ( Up, Left, Right, Down ) ; 5 : Check := Check1 ( Up, Left, Down, Right ) ; 6 : Check := Check1 ( Right, Up, Down, Left ) ; 7 : Check := Check1 ( Right, Up, Left, Down ) ; 8 : Check := Check1 ( Right, Down, Up, Left ) ; 9 : Check := Check1 ( Right, Down, Left, Up ) ; 10 : Check := Check1 ( Right, Left, Up, Down ) ; 11 : Check := Check1 ( Right, Left, Down, Up ) ; 12 : Check := Check1 ( Down, Up, Right, Left ) ; 13 : Check := Check1 ( Down, Up, Left, Right ) ; 14 : Check := Check1 ( Down, Right, Up, Left ) ; 15 : Check := Check1 ( Down, Right, Left, Up ) ; 16 : Check := Check1 ( Down, Left, Up, Right ) ; 17 : Check := Check1 ( Down, Left, Right, Up ) ; 18 : Check := Check1 ( Left, Up, Right, Down ) ; 19 : Check := Check1 ( Left, Up, Down, Right ) ; 20 : Check := Check1 ( Left, Right, Up, Down ) ; 21 : Check := Check1 ( Left, Right, Down, Up ) ; 22 : Check := Check1 ( Left, Down, Up, Right ) ; 23 : Check := Check1 ( Left, Down, Right, Up ) ; end ; end { Check } ; Procedure DoFish ( I, J : Byte ) ; var TempAge : Byte ; Chk : Check_type ; begin Ocean [ I, J ] . Processed := True ; Chk := Check ( I, J, Empty ) ; if Ocean [ I, J ] . FAge = FBreed then begin if Chk <> None then begin Ocean [ I, J ] . FAge := 1 ; Adjust ( I, J, Chk ) ; with Ocean [ I, J ] do begin Processed := True ; Contents := Fish ; FAge := 1 ; end ; end ; end else if ( Chk <> None ) and ( Random(100) < FMove ) then begin { 50% chance of moving ?? } TempAge := Ocean [ I, J ] . FAge ; Ocean [ I, J ] . Contents := Empty ; Adjust ( I, J, Chk ) ; with Ocean [ I, J ] do begin Processed := True ; Contents := Fish ; FAge := TempAge + 1 ; end ; end else with Ocean [ I, J ] do FAge := FAge + 1 ; end { DoFish } ; Procedure DoShark ( I, J : Byte ) ; var ChkE, ChkF : Check_type ; TempAge, TempStarve : Byte ; begin Ocean [ I, J ] . Processed := True ; ChkF := Check ( I, J, Fish ) ; ChkE := Check ( I, J, Empty ) ; if Ocean [ I, J ] . SAge = SBreed then { new shark ? } if ChkF <> None then begin Ocean [ I, J ] . SAge := 1 ; Ocean [ I, J ] . StarveCount := 1 ; Adjust ( I, J, ChkF ) ; with Ocean [ I, J ] do begin Processed := True ; Contents := Shark ; SAge := 1 ; StarveCount := 1 ; end ; end else if ChkE <> None then begin { new shark here; old (starving) one in adjacent place } with Ocean [ I, J ] do begin CheckEndit ; TempStarve := StarveCount ; SAge := 1 ; StarveCount := 1 ; end ; if TempStarve <> Starve then begin { otherwise, starved to death while giving birth } Adjust ( I, J, ChkE ) ; With Ocean [ I, J ] do begin Processed := True ; Contents := Shark ; SAge := 1 ; StarveCount := TempStarve + 1 ; end ; end { if TempStarve } ; end { else if ChkE } else { can't breed -- no room -- don't advance age, but starve } with Ocean [ I, J ] do begin CheckEndit ; if StarveCount = Starve then Contents := Empty else StarveCount := StarveCount + 1 ; end else if { SAge <> SBreed and } ChkF <> None then begin TempAge := Ocean [ I, J ] . SAge ; Ocean [ I, J ] . Contents := Empty ; Adjust ( I, J, ChkF ) ; with Ocean [ I, J ] do begin Processed := True ; Contents := Shark ; SAge := TempAge + 1 ; StarveCount := 1 ; end ; end else if Ocean [ I, J ] . StarveCount = Starve then begin CheckEndit ; Ocean [ I, J ] . Contents := Empty end else if ( ChkE <> None ) and ( Random(100) < SMove ) then begin with Ocean [ I, J ] do begin TempAge := SAge ; TempStarve := StarveCount ; Contents := Empty ; end ; Adjust ( I, J, ChkE ) ; with Ocean [ I, J ] do begin Processed := True ; Contents := Shark ; SAge := TempAge + 1 ; StarveCount := TempStarve + 1 ; end ; end else { can't move, can't breed, can't eat! } with Ocean [ I, J ] do begin CheckEndit ; SAge := SAge + 1 ; StarveCount := StarveCount + 1 ; end ; end { DoShark } ; var I1, J1, Delta_I, Delta_J : Byte ; begin { Advance } I1 := Random ( Max_X + 1 ) ; Delta_I := Random ( Max_X - 1 ) + 1 ; J1 := Random ( Max_Y + 1 ) ; Delta_J := Random ( Max_Y - 1 ) + 1 ; { since Max_X + 1 and Max_Y + 1 are both prime (and mutually prime), Delta_I, J will cycle through all the array positions } I := I1 ; J := J1 ; repeat with Ocean [ I, J ] do if not Processed then case Contents of Fish : DoFish ( I, J ) ; Shark : DoShark ( I, J ) ; Empty : CheckEndit ; end ; I := modulo ( I + Delta_I, Max_X ) ; J := modulo ( J + Delta_J, Max_Y ) ; until ( I = I1 ) and ( J = J1 ) ; end ; Procedure Display ; var F, S : Integer ; begin F := 0 ; S := 0 ; GotoXY ( 1, 1 ) ; for J := 0 to Max_Y do begin for I := 0 to Max_X do with Ocean [ I, J ] do begin  CheckEndit ; Processed := False ; { reset this for Advance } if Contents = Shark then begin Write ( SharkChar ) ; S := S + 1 ; end else if Contents = Fish then begin Write ( FishChar ) ; F := F + 1 ; end else Write ( EmptyChar ) ; end ; WriteLn ; end { for J } ; Write ( 'Time: ', Time : 5 , ' ' , 'Fish (', FishChar, ') :', F : 4 , ' ', 'Sharks (', SharkChar, ') :', S : 4 ) ; if FileP then WriteLn ( PopFile, Time:8, F:8, S:8 ) ; Endit := Endit or KeyPressed or ( F = 0 ) or ( S = 0 ) or ( Time = MaxInt ) ; Time := Time + 1 ; end ; begin { main } Randomize ; ClrScr ; WriteLn ( ' Welcome to Wator' ) ; WriteLn ; Write ( 'Initial number of Fish < ', DefNFish, ' > : ' ) ; NFish := DefNFish ; { if just a Return is typed, the value of a variable is not changed, so this becomes a default } ReadLn ( NFish ) ; Write ( 'Initial number of Sharks < ', DefNShark, ' > : ' ) ; NSharks := DefNShark ; ReadLn ( NSharks ) ; Write ( 'Breeding rate of Fish < ', DefFBreed, ' > : ' ) ; FBreed := DefFBreed ; ReadLn ( FBreed ) ; Write ( 'Breeding rate of Sharks < ', DefSBreed, ' > : ' ) ; SBreed := DefSBreed ; ReadLn ( SBreed ) ; Write ( 'Starvation period of Sharks < ', DefStarve, ' > : ' ) ; Starve := DefStarve ; ReadLn ( Starve ) ; Write ( 'Movement chance of Fish < ', DefFMove, ' > : ' ) ; FMove := DefFMove ; ReadLn ( FMove ) ; Write ( 'Movement chance of Sharks < ', DefSMove, ' > : ' ) ; SMove := DefSMove ; ReadLn ( SMove ) ; Write ( 'Random initial ages (Y or N) : ' ) ; ReadLn ( C ) ; Rand_Init_Ages := not ( ( C = 'n' ) or ( C = 'N' ) ) ; Write ( 'Write population file (Y/N> : ' ) ; ReadLn ( C ) ; FileP := ( C = 'Y' ) or ( C = 'y' ) ; if FileP then begin Write ( 'File name : ' ) ; ReadLn ( FileName ) ; Assign ( PopFile, FileName ) ; Rewrite ( PopFile ) ; WriteLn ( PopFile, ' Time Fish Sharks' ) ; end ; WriteLn ; WriteLn ; WriteLn ( 'To stop, hit any key and hold it down until you hear a beep' ) ; Delay ( 1000 ) ; ClrScr ; for I := 0 to Max_X do for J := 0 to Max_Y do Ocean [ I, J ] . Contents := Empty ; { Processed is initialized/reset by Display } for K := 1 to NFish do begin repeat I := Random ( Max_X + 1 ) ; { Random returns integer between 0, arg - 1 (inclusive) } J := Random ( Max_Y + 1 ) ; until Ocean [ I, J ] . Contents = Empty ; with Ocean [ I, J ] do begin Contents := Fish ; if Rand_Init_Ages then FAge := Random ( FBreed ) + 1 else FAge := 1 ; end ; end ; for K := 1 to NSharks do begin repeat I := Random ( Max_X + 1 ) ; J := Random ( Max_Y + 1 ) ; until Ocean [ I, J ] . Contents = Empty ; with Ocean [ I, J ] do begin Contents := Shark ; if Rand_Init_Ages then begin SAge := Random ( SBreed ) + 1 ; StarveCount := Random ( Starve ) + 1 ; end else begin SAge := 1 ; StarveCount := 1 ; end ; end ; end ; Endit := False ; Time := 0 ; Display ; Repeat Advance ; Display ; until Endit ; Close ( PopFile ) ; end .  initialized/reset by Display } for K := 1 to NFish do begin repeat I := Random ( Max_X + 1 ) ; { Random returns integer between 0, arg - 1 (inclusive) } J := Random ( Max_Y + 1 ) ; until Ocean [ I, J ] . Contents = Empty ; with Ocean [ I, J ] do begin Contents := Fish ; if Rand_Init_Ages then FAge := Random ( FBreed ) + 1 else FAge := 1 ; end ; end ; for K := 1 to NSharks do begin repeat I := Random ( Max_X + 1 ) ; J := Random ( Max_Y + 1 ) ; until Ocean [ I, J ] . Contents = Empty ; with Ocean [ I, J ] do begin Contents := Shark ; if Rand_Init_Ages then begin SAge := Random ( SBreed ) + 1 ; StarveCount := Random ( Starve ) + 1 ; end else begin  Time Fish Sharks 0 300 30 1 387 25 2 473 23 3 548 25 4 722 22 5 881 22 6 1004 21 7 1226 22 8 1386 22 9 1502 23 10 1625 28 11 1699 30 12 1734 30 13 1741 35 14 1758 38 15 1753 42 16 1754 42 17 1760 44 18 1753 44 19 1744 46 20 1738 56 21 1721 60 22 1730 60 23 1720 70 24 1703 76 25 1693 84 26 1686 84 27 1686 88 28 1681 88 29 1671 92 30 1645 112 31 1634 120 32 1624 120 33 1601 140 34 1556 152 35 1549 168 36 1501 168 37 1478 176 38  1478 176 39 1455 184 40 1391 224 41 1354 240 42 1307 240 43 1224 278 44 1139 302 45 1044 332 46 906 325 47 786 331 48 674 321 49 565 322 50 464 361 51 349 348 52 271 315 53 200 277 54 151 252 55 104 251 56 76 181 57 63 136 58 62 76 59 71 50 60 76 25 61 89 21 62 115 14 63 126 13 64 150 12 65 200 12 66 225 9 67 270 6 68 340 6 69 397 7 70 473 8 71 568 8 72 652 8 73 746 8 74 865 10 75 971 12 76 1097 12 77 1198  12 78 1303 11 79 1434 13 80 1521 15 81 1600 15 82 1696 15 83 1727 15 84 1755 18 85 1776 22 86 1782 22 87 1781 22 88 1784 22 89 1782 26 90 1782 30 91 1765 30 92 1769 30 93 1767 30 94 1763 36 95 1749 44 96 1754 44 97 1755 44 98 1748 44 99 1731 52 100 1732 60 101 1721 60 102 1705 60 103 1695 60 104 1697 72 105 1666 88 106 1641 88 107 1633 88 108 1616 88 109 1599 101 110 1559 116 111 1537 115 112 1522 115 113 1486 113 114 1458 135 115 1429 159 116 1385 158  117 1333 155 118 1291 145 119 1278 170 120 1216 188 121 1147 179 122 1112 168 123 1056 153 124 1014 164 125 984 170 126 947 163 127 920 141 128 914 124 129 882 143 130 846 199 131 821 188 132 786 159 133 763 128 134 779 119 135 797 101 136 793 91 137 828 80 138 879 74 139 905 85 140 947 108 141 980 105 142 999 102 143 1020 88 144 1052 90 145 1070 90 146 1110 84 147 1134 82 148 1172 79 149 1232 109 150 1232 133 151 1221 132 152 1250 130 153 1245 129 154 1238 143 155 1234 147 156 1250 142 157 1233 141 158 1258 139 159 1253 189 160 1221 228 161 1174 225 162 1125 215 163 1073 201 164 1036 219 165 960 212 166 896 201 167 868 194 168 827 180 169 796 209 170 768 241 171 681 227 172 636 191 173 622 172 174 555 206 175 513 208 176 513 189 177 464 149 178 452 123 179 498 122 180 476 143 181 485 128 182 535 120 183 523 91 184 558 122 185 601 121 186 601 113 187 649 95 188 715 81 189 726 85 190 802 85 191 880 74 192 873 68 193 951 63 194 1024 66 195 1024 66 196 1114 65 197 1173 64 198 1187 64 199 1257 98 200 1286 124 201 1249 124 202 1261 124 203 1282 124 204 1256 126 205 1286 122 206 1312 118 207 1300 106 208 1319 99 209 1336 146 210 1304 181 211 1247 177 212 1216 161 213 1185 144 214 1152 141 215 1115 122 216 1115 115 217 1099 108 218 1091 96 219 1102 127 220 1065 150 221 1019 147 222 1032 133 223 1025 115 224 999 122 225 1013 113 226 1024 106 227 1026 102 228 1065 98 229 1081 132 230 1082 155 231 1110 152 232 1109 141 233 1120 130 234 1146 158 235 1116 154 236 1096 148 237 1130 145 238 1123 137 239 1109 181 240 1095 209 241 1034 202 242 994 191 243 989 182 244 974 216 245 953 206 246 942 186 247 907 161 248 950 144 249 929 181 250 881 211 251 832 201 252 792 192 253 752 176 254 715 173 255 684 166 256 683 156 257 643 143 258 648 138 259 659 196 260 628 239 261 600 231 262 606 188 263 592 145 264 596 128 265 632 107 266 647 92 267 651 84 268 720 69 269 750 98 270 741 109 271 770 107 272 776 97 273 784 81 274 824  85 275 842 84 276 868 81 277 932 76 278 964 76 279 993 112 280 1040 132 281 1034 130 282 1064 114 283 1118 106 284 1124 113 285 1137 111 286 1173 109 287 1176 100 288 1192 91 289 1203 115 290 1182 155 291 1167 152 292 1145 147 293 1128 141 294 1119 157 295 1124 152 296 1110 147 297 1092 132 298 1111 119 299 1091 150 300 1042 194 301 1044 187 302 990 177 303 959 143 304 970 141 305 956 129 306 925 119 307 933 108 308 935 100 309 895 163 310 843 176 311 812 175 312 770 166 313 752 149  314 738 159 315 706 154 316 722 150 317 703 148 318 716 144 319 753 256 320 660 255 321 607 250 322 619 210 323 590 180 324 578 161 325 581 139 326 583 117 327 589 90 328 619 71 329 655 87 330 652 88 331 675 80 332 713 57 333 707 51 334 730 68 335 761 65 336 768 62 337 793 58 338 832 55 339 840 61 340 883 72 341 936 69 342 953 64 343 1001 64 344 1063 92 345 1064 91 346 1120 91 347 1154 84 348 1162 80 349 1241 85 350 1261 102 351 1251 100 352 1301 98 353 1313 95 354 1309 119 355 1306 113 356 1318 108 357 1315 98 358 1308 93 359 1311 106 360 1287 126 361 1260 123 362 1253 120 363 1244 110 364 1242 141 365 1225 136 366 1207 130 367 1203 124 368 1197 119 369 1186 153 370 1143 173 371 1089 171 372 1076 166 373 1054 163 374 1037 201 375 998 194 376 973 188 377 938 170 378 931 152 379 919 192 380 860 211 381 831 204 382 810 180 383 768 158 384 756 173 385 741 151 386 729 140 387 723 117 388 730 110 389 733 145 390 716 164 391 701 158 392 692 148 393 696 137 394 711 157 395 711 150 396 717 145 397 733 138 398 766 135 399 787 179 400 792 204 401 822 195 402 813 161 403 833 129 404 864 148 405 833 130 406 853 122 407 878 112 408 866 108 409 891 143 410 882 161 411 851 161 412 844 157 413 853 145 414 824 182 415 802 171 416 788 164 417 757 155 418 772 151 419 788 189 420 758 200 421 758 189 422 745 168 423 735 158 424 745 205 425 701 197 426 671 189 427 688 161 428 671 141 429 670 165 430 691 169 431 666 158 432 659 133 433 691 123 434 683 160 435 653 158 436 693 152 437 674 130 438 686 116 439 755 147 440 724 166 441 681 162 442 704 154 443 675 143 444 645 164 445 667 160 446 652 152 447 622 131 448 688 123 449 687 159 450 661 187 451 695 178 452 662 162 453 639 137 454 701 141 455 701 119 456 672 108 457 764 91 458 801 84 459 796 120 460 836 124 461 863 120 462 860 103 463 909 95 464 941 115 465 934 106 466 957 101 467 978 99 468 995 96 469 1039 144 470 1036 142 471 1037 139 472 1047 126 473 1078 113 474 1076 147 475 1052 134 476 1072 132 477 1054 118 478 1043 114 479 1073 157 480 1031 151 481 1014 145 482 1042 129 483 1050 121 484 1035 162 485 1065 151 486 1063 141 487 1031 124 488 1052 119 489 1061 155 490 1024 149 491 1023 144 492 1038 123 493 1039 112 494 1054 161 495 1049 160 496 1019 153 497 1028 141 498 1035 137 499 1019 180 500 986 172  120 462 860 103 463 909 95 464 941 115 465 934 106 466 957 101 467 978 99 468 995 96 469 1039 144 470 1036 142 471 10378+"6!L.8&  ! ;|h)O! c . .  O O  Oͪ ͡ 8  !sZ !8 !o $!H$!F n !͙$!"ͬ  â*+c  ÄZ ! 8 ͪ  !s ͙$!"!!|°*!ͪ #'ͮ }Pͪ ' ' '3Z !z ͪ # # #!`Z !8 !8!i OZ !8 Z !z Z !z Z !W & +!+;|)+!S`+!O`|g}o|FZ !8 O{{{RyVYZStop ? (Y or N)lS rRv.OZP}`j4 @6t@X[[[[ BASLIB #000000 5.30 - OWNED BY MICROSOFT, 1980 6*s#r+}*DM*"*##">22*^#V"##^#V" 2!A!!""!"6#6P>2>2>2ÆÆ}_j..n.y. u+w!~#fo#~#w:.ʏ.6~+ž.~ ž.6 «.~«.6i j !9" !`!`!`!R"!O"|4> 6#s#r#=)>2>2>22!"!$\">&26#}]|]́ STOk{*.. . ........*|‚:*|  s#r  {Nw#6"**>2Ou!9N#F~#~(~+.~#~(+^#V######|:~#fo!B́ Internal Error - No Line Number Ê~#́ at line͊>;<ڣͷ;<ڣ0(ͷҟ}_|W!͌)~#fo>́ at address|ͥ}ͥ> (> (~#*͌)~#fo8n3!9"!*"!=*!m~Input Past En?Bad Record Numbe@Bad File NamCToo Many FileUnprintable Erro_!% >< iw>ͱe#}ͭ$''! ~#fo"B ! "D |˜*B }o|g("B *D "D Y#s#r++s          u   þ  þ  þ u þ *+ *+ "*4 H~# , x2: ͵ d ͢< ~] Z(#Q ~` Z(#g >2: F#~#fox͵  ͬ ʣ ~#Z(× ͬ ͵ >"Z(G:x͵ )*+~< = ###~ *)!` **~= /< = > Z(͵ >,Z(W*#^ F @ +=@ :=@ )z{X {_J !"!"2p !~6#w~! ͓Nʇ #i&ã F͙9F 6 <  6 <  6 < H  6 < H  6 <  6 <  6 < H  6 < H W u ^#V#́ " * W W ^# Q W ^#V#{ & " ~2 " * * : #): b): ͠ h//i0/͠ "--*, +͌)~#fo^#V#^#V#E)^#V#E):)^#V#:)ü -)#)&)))>0 >0 >0 >0 >0 >^#V#^#V#? J  G͇^ ~#fo` ##-I12 b)͹ -)|Øð ͹ Ö :!F"-. : !Jh/:*2*:*%/:* |/g}/o.:*/!*.͇%!#Õ:*goW**|7gK:*K+>Z|/g}/oc!xG|tko& Gȯ|g}o{͑>ž~+~?~©+#Ҷ+ ͋~##++Y>͑)+V+^++r+sͣ~ژI((~#~#fo͑)|˜!9>ͱ>g>g>g>g>g>p!+GNʜyʜ#~#fo~#fo¥#ʛ ‹ yʥy<.گ)ʯ)~o&~ʘ#^#V++o&9PY!F#6 : Lul_!4%5*"~#N#F#e? ͌)(yxJ (+++6@#yw#xw+++6###!~6v͋%*#~#~%#Ï!*"~#^#V#͌)Ø|½Ø++~_w#~Ww#Ø͋*DM~#^#V#/+z +{ ##{z~#q#p_y$x$DM~#$YP+++"6@###{_zW+r+sɷ~*|\#Ò^#V+"w#s#r+++r+s##!*4{z*6?Ҡ}|~# ¦yGIx͑)GIx#N#F& ú͋Yã*4*6͟)Yͣ###.́ during G.C. Ê.́ Ế Internal Error - String Space Corrup#N#F*yxڞ*yxҞ++`i+V+^͟)###6+6+~6  >@++*"s#r+*#~_#~W#Þr+s##6"###!~#fo͟)<*"*}o|g6@#s#r#6"*6*4"}w>#w##͟)++6+6")`n&")|˜}`w:*w:*w!}h/.͇~(#ÇG~#ʣ#•++ͮ0:ڹ(HABETREL " ALPHABETPRNA **}/o|/g#"*|<I1 !*~wɯ2*A&.<**<I1A&ͨ.>>~r#Ar!*_>!**2f# e!*"-!*F͹*>>ڈ>|}+!*,͵1+6!*>k.2*!/!*,!**,~_#~W#~O2k/!h/1ɇ<o&<I1****"*`i"*!*^#V#N#F#!i02x{2!*61wg>J33J:Gw#JE_!*F*A*A=**||2aj L}9 >2`h~&\-3+3+'.eEEo'l]L]q]Qn:ʈ>È~%#!dʈDŸ'R'ڍŸ_{_£A!A Ÿ3'!!}ß'ß/A=ADGˆ"*`i"*#~+-0OxG#~¾`xEy ҩ>2|ҩé"*`i"*#W:3=AAͳ60+~0P.ʂA>"w#6+s6-/</ u:#p#w#6!#z ڦͫzr{̐=ʸp#6!#:~ ʽ*ʽ+'-+_:{0#'++wþ6%ڭ%u3+6%=X_x͞ėå_yce{_x͞Ò͇yO͇GO*=Pî&ѯʳ=7yOzWO/< />\>\p#=!*6> ?/{_#zW#yO++J#p#<>x>N#F#**/}o|gҋ"*p#=xw1_cƤ~@zZrN vH Tʚ;@B''d #~: ' ' '0?<=:N7-++'OmHm+yڂH#ʮÈ#ÕM!͚ژ}0?)))صoÚM!ھ}0? ? ))))صoa{ }A:*:*:22#Õ#Õȷ> G> G;?!"9?!=:=+H9>!"7>!=:=\H~\H~HO #~goPY!' ůw+!:#(=(=Oѯ(<(!% ^#Vr+s}X$!"}ͭ$ʤ PYš!`i>!' ~&+!K%}ͭ$'!&! ~+ng}ͭ$'! n&*~' 'DM'~#4N#V p zw w+s#r#6#6DM:B !" s#r#6Ç ! {zV $w<} <(!! {w:'” !! ~$!) ̵ #̵ '~#¸ *~9'( ~ +~#5O ~+~ 7>*T]% N#F+q#p###6 !+!:#>$!>w+w!( 7?*' 6#67~(#^#fk_t!N#~:x!++@(y@(( #!~.¢!͵!7Î!#!2z ((> õ!ʩ!> !é!W!$< (!> ͑)W!:!(<(*~'#N#F++ Ob"Ib"R'*|b"!"}_ͭ$u"K%{ͭ$(zW! ͇%"#> ͑)66+!~"<("<" (õ"!%w#w#w#w~" ) p# "X$ _W!$< (!6# #i#W!2!#!#$ (O!%  ~#)(y¸#~ ʵ#>.)( ¢#: W:#> )()(&(’#~*6?# #O!!4 $#4 $#4y"$(><">2!t'":<2*"!l$"")"*|j$##nhY$.c*Á$2©%"é%Ý$2ª%"ê%'<'=_!~#fo$##{$++ý$*$"q#p#s#4#5++###DM !"~#fo)%+V+^##*{z$BK^#V+*s#r! DM;%* DMͲs#r# 6# x>% !T]~#fo'xV%yV%~#~+*"s#r+~2cOA*|ʗ%! s#r#w¡%2%}ͭ$'! ^#V:%*{'+s#r! w#w! ~#fo!'%:&BK>!)&)#&))& &#=&}_}la)(5&#x("%! "%!) "%!}o|g'd&bk:%ʪ&'y&&DM*%*%&"%PY&}o|g*%#"%G&&DM*%*%&"%PYÏ&2'*%! ~#fo's#r&:'&!&!&  ~# x&DMg'(\'! w!( V6 4'zwe'(\'! ~!W'! ^#V! s#rDMT'N''}ͭ$'ʇ''`i"!'"'ã|˜,ʾ'-:'*!i"{If$%'!'*'|}!">6>4>?>=>:>7>5>2>3>@>C>#o&ã(>^)(@)(&(~ M(> )()(#>(iɡP* q(#~+ Z(~=(*!"Z("> Z(> Z(:=)> y> y*X(^#V#-)ɷ!*I)!*D)*I)*I)w#w#w#w#*X|ʸQo)>*u)>*Z) ~#=y)!Z)Ʌo$ɧGw#•){zxQQ?P|w;SSDM!>ç ҦS7>{_zW}o|g=SSS|GS|QOoygøQ*fS|R$P̈́Sg{oͻQS!r~w!s~G+NiʶP.T/<#Fwx+ TF+N9͡P!kG>w2a!rUxbT:k2aTҧT4dX-UçT>T!jTG:h–T!aVwz6#ҭ*.**3O*!3!*y#*+*3?3+2ͨ.++͟.ʹ+!*.r+:*3:*/Nk.-2*:*-3x/F+N+=+!*,!*>q#p#=,!**,")+++*).ʽ2:*ʽ2!*N#F0T.qg,Gܙ-͗.x P,G,-!*s._,j0 TeB׳]h!I.k +2ͨ.î,+͟.!**,y !*q#~++w+q,3DNn"~`35zr1{r1h!I.3yO2*(-.3:*ʴ+:-/<ʹ+93:*O͵1G2*!*k.:*2*x!**-͢-q-4͗.:*-!*~++w3!*4#Š-4ʴ,+6!**# ¢-ɯ# ¯-ͯ--/!*Oyw#-G:*-!*Vwz# -x-ý2!*.-xq-!*wҽ2q-~w# .+2ͨ./.+͟.!*"-+2ͨ.K.+͟.ʹ+!*-y2*!*)~q+a.qڂ.NsY+w.m. W~w+Œ.Å.!*É.I1è.2!*w#®.3Ϳ.}....͵1!*F#^#V#NÝ2.}*~#.G++Ny3*.!*2>7//y 2E/23/!*61g>J3|Ԟ1!> /ak2T/0T/3!*~+>w3[1k/23:*2~//<ͬ13͵1gJ3!*/~_#~W#~Oҝ2#4ʌ2.`3Ý2G~_#~W#~Oܘ11[1/23>On/[1/2ʌ13ȯG0"*y2*Foͣ1ͬ1!D**:*O0*4ʌ250E0g.**:*Oz0E0g.**:*+0x<=\0{_zWxG)yOHGÝ2[1l02230y+F+F+Fw`h|ʹ0gyҝ0:*O|g}oxG-|‘0}Œ01ElaOË0!*~Gx0ƀʼ2w͵1w+ɷ2ý22x{2!*61wg0z0 >J3|ԯ2{>2*1/13 037>{_zW}o|g='3|g}oY3CZQL3 o-yOzW{_xG\3***DM^#V#N#F#x3͵1gJ3!*/~_#~W#~Oҝ2#4ʌ2.`3Ý2G~_#~W#~Oܘ11[1/23>On/[1/2ʌ13ȯG0"*y2*Foͣ1ͬ1!D**:*O0*4ʌ250E0g.**:*Oz0E0g.**:*+0x<=\0{_zWxG)yOHGÝ2[1l02230y+F+F+Fw`h|ʹ0gyҝ0:*O|g}oxG-|‘0}Œ01ElaOË0!*~Gx0ƀʼ2w͵1w+ɷ2ý22x{2!*61wg0z0 >..mb 5 .op .he GRAPHICS ON THE OSBORNE 1 Pg # GRAPHICS ON THE OSBORNE P Jeffrey Plermo Kitchen Software 325 James St, Falls Church VA 22046 A Kitche Softwar muc ha bee learne abou th graphic capabilit o th O- i developin ou OZPAIN program I i share i th hop i wil sav yo tim an effor an spar you interes i tryin you han a O- graphics. ALPHABET PROGRAM progra i include o thi dis t demonstrat som o th graphi capabilitie o th O- an hav som fu too Th progra draw scree eac tim yo pres letter Eac scree i base o som commo compute trademark Mos childre wil enjo i thoug the migh relat t zebr bi mor tha th Zenith Th screen wer al develope usin ou OZPAIN program Ther ar man othe variation yo migh wan t develo your self Th progra ma b starte automaticall b pressin RESE and Line 0 51 79 127 ------ ------ ------ ------ ------ 0 61440 61491 61519 61667 (F000) (F033) (F04F) (F07F) 1 61568 61619 61647 61695 (F080) (F0B3) (F0CF) (F0FF) 7 62336 62387 62415 62463 (F380) (F3B3) (F3CF) (F3FF) 15 63360 63411 63439 63487 (F780) (F7B3) (F7CF) (F7FF) 23 64383 64434 64452 64511 (FB80) (FBB3) (FBCF) (FBFF) 31 65407 65458 65486 65535 (FE80) (FEB3) (FECF) (FFFF) Remembe th lin an colum numberin begi wit zero Thi mean colum 5 i colum 5 th wa w human usuall think Lin 2 i th botto lin o th O-'s 2 lin screen. Sample Implementations S no you'v bee give al thi information ho d yo reall us it T complet th story i seem onl fai tha yo ge som sample o ho yo migh us al thes features Th bes wa t us the i b definin variable o function t d wha yo want Her i on suc set: Screen Feature BASIC dBASE II ------- ---------------- ------------------------ Screen Variables: Graphics on GRF$=CHR$(27)+"g" STORE CHR(27)+"g" TO grf off GRN$=CHR$(27)+"G" STORE CHR(27)+"G" TO grn Underlining on UL$=CHR$(27)+"l" STORE CHR(27)+"l" TO ul off UN$=CHR$(27)+"m" STORE CHR(27)+"m" TO un Bright BR$=CHR$(27)+"(" STORE CHR(27)+"(" TO br Dim DM$=CHR$(27)+")" STORE CHR(27)+")" TO dm Clear CL$=CHR$(26) CLEAR "bell BL$=CHR$(7 STOR CHR(7 T bl Screen Functions: Cursor locate DEF FNLCT$(Y,X)=CHR$(27)+"="+(32+Y)+(32+X) @ Y,X SAY Screen locate DEF FNSCS$(Y,X)=CHR$(27)+"S"+(32+Y)+(32+X) Not needed in dBASE II Her ar exampl line fo BASI an dBAS I t clea th scree an prin graphi "cross a th cente o th scree (26,12 followe b dimmed underline tex : Basic PRIN CL$;FNLCT$(26,12);GRF$;CHR$(12);GRN$; PRINT DM$;UL$; Screen cente.";UN$;BR$ dBASE II CLEAR @ 26,12 SAY br+grf+CHR(12)+grn+dm+ul+" Screen center."+un+br " TO grf off GRN$=CHR$(27)+"G" STORE CHR(27)+"G" TO grn Underlining on UL$=CHR$(27)+"l" STORE CHR(27)+"l" TO ul off UN$=CHR$(27)+"m" STORE CHR(27)+"m" TO un Bright BR$=CHR$(27)+"(" STORE CHR(27)+"(" TO br Dim DM$=CHR$(27)+")" STORE CHR(27)+")" TO dm Clear CL$=CHR$(26) CLEAR "bell BL$=CHR$(7 STOR CHR(7 T bl Screen Functions: Cursor locate DEF FNLCT$(Y,X)=CHR$(27)+"="+(32+Y)+(32+X) @ Y,X SAY Screen locate1000 REM: <--- MAIN CHARACTER LOOP 1010 CH$=INKEY$:IF LEN(CH$)<1 GOTO 1010 1020 CH=ASC(CH$) 1030 IF CH=27 GOTO 3000 1040 IF CH=3 GOTO 3000:REM: Goto ending routine 1050 IF CH<65 GOTO 1010 1060 IF CH>122 GOTO 1010 1070 IF CH<91 GOTO 2000 1080 IF CH>96 GOTO 1500 1090 GOTO 1000 1500 REM: Capitalize 1510 CH$=CHR$(CH-32) 2000 REM: <--- FILENAME/SCREEN 2010 FLNAME$=CH$+".OZP" 2020 PRINT CHR$(26); 2030 OPEN "R",#1,FLNAME$,1 2040 FIELD#1,1 AS X$ 2050 GET #1,1:SCWID%=ASC(X$):I=1 2060 FOR J=1440 TO 4384 STEP 128 2070 FOR K=0 TO SCWID%-1 2080 PRINT CHR$(12); 2090 I=I+1:GET #1,I:SC%=ASC(X$) 2100 IF EOF(1) GOTO 2140 2110 POKE (J+K+60000!),SC% 2120 NEXT K:PRINT 2130 NEXT J 2140 CLOSE #1:PRINT CHR$(7);CHR$(27)+"S "; 2150 GOTO 1000 3000 REM: <--- ENDING 3010 PRINT CHR$(26):PRINT:PRINT:PRINT "Stop ? (Y or N)"; 3020 YN$=INKEY$:IF LEN(YN$)<1 GOTO 3020 3030 IF YN$<>"Y" AND YN$<>"y" THEN PRINT CHR$(26):GOTO 1000 3040 SYSTEM 3050 END  3020 YN$=INKEY$:IF LEN(YN$)<1 GOTO 3020 3030 IF YN$<>"Y*.|g";R=*;.0*;.>w*;.|w*;w# x0ALPHABETr !x A# xc=6 $aaaaaaaaaaaaaaaaaaaaaBLEaKWIaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaBLEaAAWaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaWaaaYaWaaaaBaaYYaaaaVWZaVVZaRXaaaRBaYaaaaaaYYaGaYYaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaWKZaYUWSRXa[Ya[Da[YaaWaaaWaaXFEFH[aUWSYaaYaYDaRB[DaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaWVIaWaWa[YaBEa[YaBEaaWaaaWaaYDEDaBaaWaVKIZa[DaBa[YaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaWaaaWaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaatsvaaaaaaaaWaaaWaaamaassquwaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaRXFaaaRXaBaaGEaaEaQaaaaaRXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa[YDaaaBaa[YaGEaYDaaaaaBaaYYaGaaHYaGHaDGaa[GaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaBaEaaa[YaBEaBEa[DaaYDaaa[Ya[DaRRBEDa[DaEaa[YaBaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYEHYYYYYYYYYYYYYYaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaAAAAAaMaaaaaRXXXFaaaaaAAAAAaCCCCaaRXXXFaRXFLRXFaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaAaaaAaMaaaaaBEWWEaaaaaAaaaAaCaaaOaBRXXXaXXFLRXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaAaaaAaMaaaaaBHYYDaaaaaAaaaAaCGGGCaBB\\QaaaELBaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaAAAAAaMaaaaaBEaaaaaAAAAAaCUUUHaBB\\`aaaELBaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaAaaaAaMaaaaaBEaaaaaaaaAaaaAaCaaaCaB[YYYaaaELBaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaAaaaAaMMMMMa[DaaaaaaaaAaaaAaCCCCaa[YYYDaaaELBaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaccaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYYaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa$_!~ʦ ![4ç \͢¦ 2[ 7 >?  e͢!g"c> _͢a_!f~> 5*c~#"c 0 aaaaaBEaaaaaAAAAAaCUUUHaBB\\`aaaELBaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaAaaaAaMaaaaaBEaaaaaaaaAaaaAaCaaaCaB[YYYaaaELBaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaAaaaAaMMMMMa[DaaaaaaaaAaaaAaCCCCaa[YYYDaaaELBaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaccaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaYYYYYYY4    R                                                                                                                                                                4                                                                                                                                                     4                                                                                                                                          4                                                                                                                                                                                              4                                                                                                                                               4                                                                                                           4                                                                                                    4                                                                                                                          4     R                                                                            4                                                                                                         4                                                        325 JAMES ST FALLS CHURCH, VA 22046  (ALPHABET - WRITTEN BY US, NOW IN THE PUBLIC DOMAIN)                                    325 JAMES ST FALLS CHURCH, VA 22046  (ALPHABET - WRITTEN BY US, NOW IN THE PUBLIC DOMAIN)              4                                                                                                                                4                 __             __             __             __             __                                                               __             __             __                                          4                                                                                                                                                             4 .:. \!/ .::. .:::. -*- .::::. .:::::.\ /!\ /.::::::. .:::::::.\ ! /.::::::::. .:::::::::.\ ! /.::::::::::. .:::::::::::.\!/.::::::::::::.                                                WE GET A    OZPAINT WAS  LITTLE PLUG   USED TO DRAW  IN HERE !    THE ALPHABET                     .:::::::::::.\!/.::::::::::::.                                                WE GET A    OZPAINT WAS  LITTLE PLUG   USED TO DRAW  IN HERE !    THE ALPHABET     4                                                                                                          !4                                                                                                                                             4                                                                                                                             4                                                                               "                                                                                 4                                                                                                                 4                                                                                                         #4                                                                                                                  4                                                                                                                                                      4                                                                      $                                             4                                                                                                                             4            /       / /      /        /         ---__ / ----- / ------ ---              / /      /        /         ---__ / ----- / ------ ---     % This is the release date of the disk. !K"K$K%K&K'K(K)K+K,K-K.K/K2K3K4K5K6K7K8K9K:K;KK?K@KAKBKCKDKEKFKGKHKIKJKKKLKMKNKOKPKQKRKSKTKUKVKWKXKYKZK[K\K]K^K_K`KaKbKcKdKeKfKgKhKiKjKkKlKmKnKoKpKqKrKsKtKuKvKwKxKyKzK{K|K}K~KKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKKLALPHABET.COM 1C 1E 12928 101 ALPHABET.DOC A0 24 15872 124 ALPHABET.BAS 76 5A 1024 8 AUTOALFA.COM 37 ED 3328 26 A .OZP A6 9B 1280 10 B .OZP AE 78 1280 10 C .OZP 50 F0 1280 10 D .OZP D4 B2 1280 10 E .OZP EB 5B 1280 10 F .OZP B5 C1 1280 10 G .OZP 24 99 1280 10 H .OZP 86 67 1280 10 I  Fog Library Disk FOG-CPM.150 Copyright (1986) by Fog International Computer Users Group to the extent not copyrighted by the original author for the exclusive use and enjoyment of its members. Any reproduction or distribution for profit or personal gain is strictly forbidden. For information, contact FOG, P. O. Box 3474, Daly City, CA. 94015-0474. as part of the description of a file indicates that the program is distributed on a "try first, pay if you like it" basis. If you find the program(s) meet your need, please refer to the author's documentation for information on becoming a registered user. Only by registering and paying for the programs you like and use will the authors of such programs continue development. Often, more complete documentation, additional modules, and new releases are available only to registered users. Osborne 1 Programs. Filename Description -09-00 .86 This is the release date of the disk. -CPM150 .DOC This is the description of the disk contents. 3DGRAPH .BAS EC96 3K [3d Graph 1 of 2] Display a 3d Bar Graph on the Screen. 3DGRAPH .DSC C213 1K [3d Graph 2 of 2] BREAKOUT.COM C309 14K Osborne 1 version of the familiar Arcade game. LALANE .BAS 5964 3K Animated Stick figures. MAZE3 .BAS CEC3 5K Random maze generator. SNAKE .COM CC81 13K A snake game using graphics. WATOR1 .COM 62D2 16K [WATOR 1 of 3] A "simulation" of sharks and fish in the ocean. Based on an article in Dec, 1984 Scientific American. Should work on any Z80 computer. Turbo Pascal source code is included. WATOR1 .PAS 22B1 13K ver. 1 [WATOR 2 of 3] EXAMPLE .POP BC51 13K ver. 1 [WATOR 3 of 3] ALPHABET.COM 1C1E 13K [ALPHABET 1 of 30] Draws the screen for each letter of the alphabet. This should be an attention getter for children. ALPHABET.DOC A024 16K [ALPHABET 2 of 30] ALPHABET.BAS 765A 1K [ALPHABET 3 of 30] AUTOALFA.COM 37ED 4K [ALPHABET 4 of 30] A .OZP A69B 2K [ALPHABET 5 of 30] B .OZP AE78 2K [ALPHABET 6 of 30] C .OZP 50F0 2K [ALPHABET 7 of 30] D .OZP D4B2 2K [ALPHABET 8 of 30] E .OZP EB5B 2K [ALPHABET 9 of 30] F .OZP B5C1 2K [ALPHABET 10 of 30] G .OZP 2499 2K [ALPHABET 11 of 30] H .OZP 8667 2K [ALPHABET 12 of 30] I .OZP E2C0 2K [ALPHABET 13 of 30] J .OZP 7222 2K [ALPHABET 14 of 30] K .OZP A04F 2K [ALPHABET 15 of 30] L .OZP 48A3 2K [ALPHABET 16 of 30] M .OZP 0EA0 2K [ALPHABET 17 of 30] N .OZP 2FEB 2K [ALPHABET 18 of 30] O .OZP 6B37 2K [ALPHABET 19 of 30] P .OZP DB2C 2K [ALPHABET 20 of 30] Q .OZP 5784 2K [ALPHABET 21 of 30] R .OZP 1D61 2K [ALPHABET 22 of 30] S .OZP 934B 2K [ALPHABET 23 of 30] T .OZP F253 2K [ALPHABET 24 of 30] U .OZP D08B 2K [ALPHABET 25 of 30] V .OZP 9711 2K [ALPHABET 26 of 30] W .OZP 488F 2K [ALPHABET 27 of 30] X .OZP BF12 2K [ALPHABET 28 of 30] Y .OZP 529B 2K [ALPHABET 29 of 30] Z .OZP 655F 2K [ALPHABET 30 of 30]  .OZP 1D61 2K [ALPHABET 22 of 30] S .OZP 934B 2K [ALPHABET 23 of 30] T .OZP F253 2K [ALPHABET 24 of 30] U .OZP D08B 2K [ALPHABET 25 of 30] V .OZP 9711 2K [ALPHABET 26 of 30] W .OZP 488F 2K [ALPHABET 27 of 30] X .OZP BF12 2K [ALPHABET 28 of 30] Y .OZP 529B 2K [ALPHABET 29 &'