IMD 1.15: 16/05/2007 7:40:42 fog gam 014         -FOG/GAM015BREAKOUTBAS#$DISK DOC %OTHELLO BASOZDOT COM& !"PPONG COM2PPONG DOC STARTREKBAS CRCKLISTCRC&*K͞+('+FÎr ͖ 8{ Ăw#w#w^#V#*~#fo^#*~#fo^#V#*n^#*n^#V# ~#fo^#& ~#fo!+!#!+!#!+!+}|z{|}|z7||7zZZ)|/g}/o#|͉k|/g}/o#ɯ2qZZk:q|/g}/o#|/g}/o#:q<2qqDM!xxGyO҃)v|͔`i|)Öxڷz/W{/_ѯzW{_=yOxGæ2qZZ͉M|}ȯ|g}o)|/g}/o  #z/W{/_!9~#fo! ! ! ! ! ! !9~#A"s!`*"!"!Y">2>2>22!"!"!@"!" ʞ!F#x±~#±!b2r~# "2r+}|~#G:rx"2rWelcome to Polish Pong! !A !9DM! ^#Vr+sn`is#rzP͐)!9_!9DM͐\ÜðA } /í 8 z þ !9DM*6#6! u!x+++|{*6#6~0#*~s#r~#*+w# +6#!6#2w2x*s!>r<o&F=-` r'~h6!+`W?_!~7z?` :>ª@w#G.¶ww#?*>?w#> w#.7:77s#r*s#r*s#r~|g}o+`is#r~|g}o|U ͐*s#re ͐*s#r`iw#w͐2ҿ ! w#w͐ҳ ͐k*͐6 ! ^#Vr+sÀ `i^#Vr+sk `iw#w͐2 ͐k*͐k*-ss`i^#V!a{   `OE!y6$ -7rBo&))T])))!yV5:=b#:=#:$=2#v+:<"(">6͋5:&=͋5#*&=|"M1Ϳ5#>6͋5:&=͋5>#͋5>6͋5:'=͋5#*&="<(#>͋5:&=͋r+s `iw#w͐B ͐*͐*g|ss`i^#Vr+s *6+*6+*g6+*}6+~0#k*~#6#*6#6! ́! w#w͐ `iw#w͐2 ͐k*͐n&̈́`i^#Vr+s÷ ! ̈́! ^#Vr+5>s͋5>@2=#R1Ϳ5#(,#:==2=)(@#>s͋5#͘(Y#X1:>͋5:&=͋5c1Ϳ5#f1Ϳ52=#(—#>͋5:&=͋5>{͋5c1Ϳ5#(#:$=µ#>}͋5c1Ú#:$=;-͘(#>&͋5͋5f2Ú#:$=$v+è":sä ! !!%͇! !!͇M^ M!* ! ͊! !!;͇!9 !!͇͍͐*s#r*s#r͓MM~!*͖͙|ʳ è M| MM M*s#r! !h9Type any key to s=$,v+2#:$=>$$>͋5v+>͋5>@2$=2#*="<1Ϳ5:=2="<|s$}d$[2Ϳ5z$g$[3Ϳ5>G>)͋5$#͞*D)͏,Ͷ,v++4ʱ$ð`Yr!!!͡!ͤ!ͧ! ͪ*6#6*6#6ͭ|tart game: Time Used: Targets Left: Best Time: %3dSpeed: M A !9DMD ͐!G ͐ { ! J Æ ;!9DM̀ !͐͐͐̓ ö /} !9DMM ! `iͰ `i!! ͳ !d9%3d /}   !9DMM!4 `i `i!! !d9%2dA /} !9DMM!v `i; `i!!0> !d9%3dà p!9DM} ͐|g}o`is`in&͐͐ ̀ !9 A í z 8 !9DM*w#wM`is#r͐Ҭ*9} *^#Vr+s!R*w#w*^#Vr+s*6#6*~#foMs#r! |(! |g}o*s#rM+++|*6#6!*!! !-!M(M! |!6#6͐>4>Y>6&>ʠ>52>>8>>I>2J>r>V>ʛáM~k*Mn} •M~k*M6\Ý! ìM~k*Mn} M~k*M6/! ìM~k*Mn |g}o*s#r*6#6G5N!9DM! ͐2]ýgÖ!h9DM! ^#Vr+s~#fo! s#r͐! s#r! ^#Vr+sn`is{ʮ`in}%˜! ! s#r! 6#6! s! s! s͐n}-! ^#Vr+s! 4͐n}0! 4͐`is#6͐/!͐\>M~k*M6 F! ìMo*~#fods#r ìMҘ*~#fos#r ì!! ìM~k*Mn} |-\/G#|((M*s#r(n&T}! W!! s#r! ^#Vr+sn`is{.e! W! s#r! 4! ^#Vr+sn`is`in&Z}DʑUXOC%SVÂ͐~#fo|! ^#Vr+s6-͐͐~#fos#r! ^#Vr+s! 6 ! 6! 6! ~#fo! n&! ^#VM*s#r(M`is#rM*s#r͐*s#r(M`is#rM*s#r͐*s#r(*^#Vr+s!ڙ! M~k*M6 0#! s#r #! s#r͐k*͐n} ¶͐r+s~#fo! Qѯgs#r! ^#Vr+s! ^#Vr+s~#fos! ^#Vr+s! n}i! 6#6! ^#Vr+s~#fo! s#r͐n}͐|! ^#Vr+s! ^#Vr+sns! ^#Vr+s! ^#Vr+sÄ͐6! ! s#r! n}%! ^#Vr+s!%!k*͐6#͐͐!# (M~M! s#rMM! s#r͐͐!* MM~M~k*Mn& M|ʬ *w#w͐*~s#r͐*s#rMM|!U!'! !! ^#Vr+s! n}!0! s͐! ^#Vr+sns{N! ^#Vr+s%! n}! ^#Vr+s!! ^#Vr+s6 XÕ! ^#Vr+s`insë! ^#Vr+s`insÌ͐6!9ý!9DM͐͐ ͐^#Vr+s͐ ͐0  ͐7s!&^͐ ͐͐ ͉͐`is͐ ͐͐ )͐`in&#&^!9!9DM! n&0ͯڒ! n&9ͯÜg!9DM`iw#w͐~#fon&͙}͐ ?͐^#Vr+snѯg`is#rê͐!91!9DM! n&|&! n&+! n&!9DM! n&aͯ\! n&zͯ7*"*"*"k" #+|Œ'z ʄÄöY ͳ!xV ###""7:O*o` *>H7*|g}o"zg{o"|g7*+++:G_*DM!6o&7**k***:b~iɰ#b7:**<=ʆ~:_:w  PPONG.DO - INSTRUCTION FO PPONG.COM THI PROGRA WAS UNDERSTAND WRITTE O MODIFIE B٠ B OSBORN USER I COLORADϠ SPRINGS ACADEM COMPUTER COLLECTE TH PROGRAMS. YOՠ MA٠ FINĠ IԠ HELPFU̠ TϠ PRINԠ OUԠ THES INSTRUCTIONS. T PLA PPONG PU THI DIS I DRIV AN TH CP/ SYSTE DIS I DRIV A USŠ ESCAPŠ KE T GE OU O HEL ANĠ INTϠ CP/M WHE A APPEARS TYP I B:PPONG FOLLOWE B TH RETUR KEY. PPON WIL AUTOMATICALL LOA AN START THŠ ONL KEY WHIC AR USE T PLA PPON ARŠ TH FIVŠ KEYӠ WHICȠ FOR͠ CROSӠ OΠ THŠ NUMERICA KEYPAD 8 6 2 THŠ GAMŠ COMEӠ OΠ AԠ GOOĠ BAL̠ SPEEĠ FO BEGINNERS USŠ THŠ KE T TOGGL SPEEĠ UР A DESIRED THE TH KE T TOGGL BAC DOWN. THŠ KE AN TH KE AR USE T INSER BARRIER I TH PAT O TH BALL YO INSER THES BARRIER T GE TH BAL T HI TH TARGETS TH KE PUT a , a I, J, Va I a( J: I, Ja2b<IRANDOM bF IRANDOM(INTEGER)bP &HE5,&HCD,&HFA,&HC9,&H23,&HCD,&HFA,&HC9, &HE1,&HC9,&HED,&H5F,&H17,&H77,&HED,&H5F, &HAE,&H77,&HC9bZ(INTEGER)bd I,Q$,A,A$,G2$,X,X$,K3, I BARRIER TH KE BARRIER IƠ YOՠ WISH YOՠ CA US THŠ KE٠ TϠ REMOV BARRIERS THŠ KE MUS B TOUCHE JUS AӠ TH BAL APPROACHE TH BARRIE YO WAN T REMOVE. J,Q1,Q2,S1,S2,B9,R1, S,T,W1,Y,Z1,Z2cn G(,), C(,), K(,), N(), Z(,), D()cxCLS$ ()(cESC$ ()McENTERPRISE$ "(" () ")"bcKLINGON$ "[k]"cSTARBASE$ () () ()cSCANLINE$ (,"-")cREPOR  T.LINE$ (,"-")cRECORD.LINE$ " --- --- --- --- --- --- --- ---"EdGALAXY.LINE$ " ----- ----- ----- ----- ----- ----- ----- -----"ZdYES% :NO% ed CLS$d  )"STARTREK -- VERSION 1.2 01/02/80"d ) "Revised 09/09/8: C(,) iC(,) : C(,) : C(,) : C(,) : C(,) : C(,) : C(,) 3i I  : D(I) : [iA1$ "NAVSRSLRSPHATORSHEDAMCOMXXX"i:-----SET UP WHAT EXISTS IN GALAXYi:-----K3 = KLINGONS. B3 = STARBASES.0"d  ) "Moved to Osborne 09/26/81"d: : &e " \-------*------/" :e "\----------------------/ \-----/ /---/": " / /"f " \-------|  S3 = STARSi I  : J  iK3 : Z(I,J) : R1 %j R1 Hz K3 : K9 K9 : :Sj& R1 33s K3 : K9 K9 : :zj0 R1 L K3 : K9 K9 j:B3 : u B3 : B9 B9 jDG|-----/ / /": " | | / /"Af" " \-----| |------------------------/ /-------/": {f, " \----------------------------------------/f6: : :  ) "THE USS ENTERPRISE --- NCC-170(I,J) K3 d B3  R0jN J, IjX B9   kbV1 (Q1): V2 (Q2)Gkl G(V1,V2)  G(V1,V2) G(V1,V2) d: K9 K9 kvB9 : G(V1,V2) G(V1,V2)  : Q1 R0: Q2 R0kT9 T9 B3: T9 K9  T9 K91"f@Z$ ()gJT0 (  ) d: T : T9  (  ) : D0 : E  : E0 EfgTP  : P0 P: S9 : S : B9 : K9 : X$ "": X0$ " IS "g^ D ((K(I,) S1)  (K(I,) S2) )gh R(R) (  B3kK7 K9: B9  X$ "S": X0$ "ARE"&l::"THERE ARE";K9;"KLINGONS IN";: " THE GALAXY":[l"YOU HAVE";T9;"DAYS TO COMPLETE YOUR MISSION":l"THERE ";X0$;B9;;"STARBASE";X$;" IN THE GALAXY":l"INDICATE WHEN READY TO( R) *\ G)gr R0 ( *\ G)h:-----INITIALIZE ENTERPRISE'S POSITION&hQ1 R03hQ2 R0@hS1 R0MhS2 R0lh I  : C(I,) : hC(,) : C(,) : C(,) : C(,) : C(,)  TAKE COMMAND";lI : SR$m :-----JUMP HERE ANY TIME NEW QUADRANT ENTERED8m*Z4 Q1:Z5 Q2: K3 : B3 : S3 : G5 Lm4D4  dm>Z(Q1,Q2) G(Q1,Q2)mH Q1  Q1  Q2  Q2  mR : : T  z  m\ CLS$: : : "YOUR MISSION BEGINS WITH YOUR STARSHIP" nf"LOCATED IN THE GALACTIC QUADRANT, '";G2$;"'."*np Unz"NOW ENTERING ";G2$;" QUADRANT . . ."nV1 (Q1): V2 (Q2):: K3 (G(V1,V2)  #z)nB3 (G(Q1,Q2) L})   : (A$,) (A1$,  I , )  s I , , , , r, f, ., z, 6?s : "ENTER ONE OF THE FOLLOWING:"]s*" NAV (TO SET COURSE)"s4" SRS (FOR SHORT-RANGE SCAN)"s>" LRS (FOR LONG-RANGE SCAN)"sH"   K3nS3 G(V1,V2) d K3  B3n K3  o"COMBAT AREA CONDITION RED")o S  Ko" SHIELDS DANGEROUSLY LOW"vo I  : K(I,) : K(I,) : o I  : K(I,) : oQ$ ()o:-- PHA (TO FIRE PHASERS)"sR" TOR (TO FIRE PHOTON TORPEDO)"t\" SHE (TO RAISE OR LOWER SHIELDS)"Btf" DAM (FOR DAMAGE CONTROL REPORTS)"mtp" COM (TO CALL LIBRARY - COMPUTER)"tz" XXX (TO RESIGN YOUR COMMAND)"t: t:-----C---POSITION ENTERPRISE IN QUADRANT. THEN p:-----PLACE K3 KLINGONS, B3 BASES AND S3 STARS.4pA$ ENTERPRISE$: Z1 S1: Z2 S2Np : K3  Bfp I  K3: bpA$ KLINGON$: Z1 R1: Z2 R2p$ : K(I,) R1: K(I,) R2OURSE CONTROL BEGINS HEREt"COURSE (1 - 9)";C1: C1  C1 u C1  C1  6u"** INCORRECT COURSE **": \uX$ "8": D()  X$ "0.2"u"WARP FACTOR (0 - "; X$;")";: W1u D()  W1 L~  u W1p.K(I,) S9 ( )p8pB B3  jpL bqVA$ STARBASE$: Z1 R1: B4 R1: Z2 R21q`B5 R2: Iqj I  S3: bqqtA$ " * ": Z1 R1: Z2 R2: wq~q qDFLAG% NO%: S E  E    W1   u W1  u"INCORRECT WARP FACTOR ";W1v +v "WARP ENGINES DAMAGED. MAX WARP 0.2"5v dv N (W1  ): E N  j v$ "INSUFFICIENT ENERGY AVAILABLE"v. "FOR WARP"; W1; "!"v8 S N D()  q:"** FATAL ERROR **": "YOU ARE STRANDED IN SPACE."+r"YOU HAVE INSUFFICIENT MANEUVERING ENERGY,"\r"AND SHIELD CONTROL PRESENTLY IS INCAPABLE"r"OF CROSS-CIRCUITING TO THE ENGINE ROOM!!": "r"COMMAND";A$r  I  E D()  vB S; "UNITS OF ENERGY DEPLOYED TO SHIELDS"vL 'w` :-----KLINGONS MOVE/FIRE ON STARSHIP8wj I  K3Owt K(I,)   ^w~ A$ " "{w Z1 K(I,): Z2 K(I,)w w bw K(I,) Z1: K(I,) Z2w   A$ KLINGON$w w w Z: D1 : D6 W1x W1  D6 x I  &x D(I)  ( ox D(I) D(I) D6: D(I) L} D(I)  D(I) L}: ( x D(I)  ( x D1  D1 : "DAMAGE CONTROL  A$ ENTERPRISE$| Z1 (S1): Z2 (S2)| :  : T8 } W1  T8 L} ( W1)-} T T T8@} T T9 "l} :-----SEE IF DOCKED. THEN GET COMMANDv}& } :-----PAST QUADRANT LIMITS} X  Q1 X N REPORT: ":x );: R1 I: * y ESC$; ")"; G2$;" REPAIR COMPLETED"; ESC$; "("y( &y2 L~  Xy< R1 R0: RANDOM : RANDOM  x yyF D(R1) D(R1) (  )yP "DAMAGE CONTROL REPORT: ":yZ *yd ESC$ X1} Y  Q2 Y N X2} Q1 (X )} Q2 (Y ) ~ S1 (X Q1 )%~ S2 (Y Q2 )H~ S1  Q1 Q1 : S1 k~ S2  Q2 Q2 : S2 v~ X5 ~ Q1  X5 : Q1 : S1 ~ Q1  X5 ; "l"; G2$;" DAMAGED"; ESC$; "m": yn  yx D(R1) D(R1)  z "DAMAGE CONTROL REPORT: ":'z *Pz G2$;" STATE OF REPAIR IMPROVED": rz :-----BEGIN MOVING STARSHIPz A$ " "z Z1 (S1)z Z2 (S2)z z" : Q1 : S1 ~ Q2  X5 : Q2 : S2  Q2  X5 : Q2 : S2 ! X5  4 C "WARP ENGINES SHUT DOWN AT:"u "SECTOR";S1;",";S2;"OF QUADRANT"; Q1;","Q2"* T T9 "4  Q1 Q2  Q4 Q5   X1 C((C1),) (C((C1),) C((C1),)) (C1 (C1)){, X S1: Y S2J{6 X2 C((C1),) (C((C1),) C((C1),)) (C1 (C1))_{@ Q4 Q1: Q5 Q2o{J I  N{T S1 S1 X1{^ S2 S2 X2{h S1  S1  S2 > T T H  R * :-----MANEUVER ENERGY S/R ** E E N  : E  W "SHIELD CONTROL SUPPLIES ENERGY": "TO COMPLETE THE MANEUVER"e S S Eo E  S  S  :-----LONG RANGE SENSOR SCAN C  S2   {r S8 (S1)  (S2)  || (Q$,S8,) " "  | S1 (S1 X1)2| S2 (S2 X2)S| "WARP ENGINES SHUT DOWN AT"| "SECTOR";S1;",";S2;"DUE TO BAD NAVIGATION":  | : S1 (S1): S2 (S2)|ODE D()  "LONG RANGE SENSORS ARE INOPERABLE":  $"LONG RANGE SCAN FOR QUADRANT";Q1;",";Q20. SCANLINE$N8 I (Q1) (Q1)rBN() : N() : N() L J Q2 Q2ӁV I  I  J  J     N(JQ2) G(I,J): Z(I,J) G(I,J)`: L  : "| ";j N(L)  "*** ";: ~-t ((N(L)),);" ";F~: "|": SCANLINE$S: :-----PHASER CONTROL CODE BEGINS HERE D()  "PHASERS INOPERATIVE": : | D()  "PHOTON TUBES NOT OPERATIONAL": "PHOTON TORPEDO COURSE (1 - 9)";C1. C1  C1 K C1  C1  h"INCORRECT COURSE DATA"r ·X1 C((C1),) (C((C1),) C((C1),)) (C1 ‚ K3  "SENSORS SHOW NO ENEMY SHIPS";" IN THIS QUADRANT"  ? D()  "COMPUTER FAILURE HAMPERS ACCURACY"a"PHASERS LOCKED ON TARGET: "("ENERGY AVAILABLE =";E;" UNITS"2"NUMBER OF UNITS TO FIRE";X< X (C1)): E E : P P $X2 C((C1),) (C((C1),) C((C1),)) (C1 (C1)): X S1: Y S2:"TORPEDO TRACK:"UX X X1: Y Y X2jX3 (X)Y3 (Y) X3  X3  Y3  Y3  *Lj  ЃF E X  (PE E X: D()  X X ZH1 (XK3)d I  1n K(I,)  PxH ((H1D) ( ))o H ~ K(I,) "SENSORS SHOW NO DAMAGE TO ENEMY AT "; K(I,);",";K(I,)" ";X3;","Y3ֈA$ " "Z1 X: Z2 Y & Z3  0A$ KLINGON$,:Z1 X: Z2 YFD : Z3  }N ESC$; "l";"*** KLINGON DESTROYED ***"; ESC$; "m"XK3 K3 : K9 K9 : K9  |b ЄK(I,) K(I,) H H;"UNIT HIT ON KLINGON AT SECTOR"; K(I,);",";_ K(I,): K(I,)  ESC$; "l";"*** KLINGON DESTROYED ***" ESC$; "m": " (SENSORS SHOW";K(I,);"UNITS REMAINING)" K3 K3 : K9 I  l X3 K(I,) Y3 K(I,) v: I K(I,) :  #A$ " * ": Z1 X: Z2 Y= : Z3  r"STAR AT";X3;",";Y3; "ABSORBED TORPEDO ENERGY" Z: A$ STARBASE$Z1 X: Z2 YÊ K9 ՅZ1 K(I,): Z2 K(I,)A$ " ": K(I,) : G(Q1,Q2) G(Q1,Q2) d=Z(Q1,Q2) G(Q1,Q2): K9  |J: ZT h:-----PHOTON TORPEDO CODE BEGINS HEREr P  "ALL PHOTON TORPEDOS EXPENDED" : Z3  "*** STARBASE DESTROYED ***"B3 B3 : B9 B9 " B9  K9 T9 T P"THAT'S IT. YOU ARE RELIEVED OF COMMAND"Z 6eD0  Z1 X: Z2 Y: A$ " ": G(Q1,Q2) K3 d B3    S3׋ Z(Q1,Q2) G(Q1,Q2): Z: *"TORPEDO MISSED": Z: \:-----SHIELD CONTROLLf D()  "SHIELD CONTROL INOPERABLE": jp"ENERGY AVAILABLE =";ESz"NUMBER OF UNITS TO SHIELDS";XÌ X  S X "" H  D  HS  #{ sR1 R0: D(R1) D(R1) HS  } * ESC$; "l"; G2$;" DAMAGED BY THE HIT"; ESC$;S UNCHANGED>": ڌ X E S "ENERGY NOT AVAILABLE""": 1E E S X: S XU"SHIELDS NOW AT";(S);"UNITS"_ z$:-----DAMAGE CONTROL. D()  8"DAMAGE CONTROL REPORT NO "m": ԑ:-----END OF GAME": (4,"+"): "THERE ARE";T9T;"DAYS REMAINING": 6B,: (4,"]"):"YOUR SHIP DESTROYED": "6"THERE WERE";K9;"KLINGONS": " LEFT AT THE END OF YOUR MISSION"@: J B9  r˒T"DO YT AVAILABLE"΍B D0  LD3 : I  V D(I)  D3 D3 L} ` j D3  4t: D3 D3 D4O~ D3  D3 fffv"ESTIMATED TIME TO REPAIR SHIP:";  #z (d D3);"DAYS""DO YOU DESIRE REPOU WANT TO TRY AGAIN (Y/N)";Ԓ^ A$h A$ "Y" r>|: (4,"^"): "CONGRATULATIONS": "YOU HAVE DESTROYED THE LAST KLINGON"y"YOUR EFFICIENCY RATING IS: ";  (K7T): @:-----SHORT-RANGE SENSOR SCAN AND STARTUPÓAIR (Y/N)";A$Ҏ A$ "Y" ⎰ I   D(I)  D(I) T T D3N: "DEVICE STATE OF REPAIR": R1  X * G2$; (Z$,(G2$)); (D(R1) d)  #z R1: : D0  L I S1  S1 ݓ J S2  S2 / (I)  (I)  (J)  (J)  &BA$ STARBASE$UZ1 I: Z2 Jo : Z3  Dz& J, I0D0 : bDD0 : C$ "DOCKED": E  ӏP:-----KLINGONS SHOOTINGZ K3  d D0  "STARBASE SHIELDS PROTECT THE SHIP": /n I  Gx K(I,)  lH ((K(I,) D) ( ))S S H: K(I,) K(I,) ( )А H;"UNIT HIT ON SHIE0: P P0ܔN"SHIELDS DROPPED FOR DOCKING"XS : vb K3  C$ "RED": v9lC$ "GREEN": E E0 C$ "YELLOW"Ov D()  }: "*** SHORT-RANGE SENSORS ARE OUT ***":  REPORT.LINE$ I     J (I)  (I)  : (Q$,J,);: J:" ";  I , , , , , , , \"DAYS REMAINING "; ((T9T)  ) L}:  "CONDITION ";C$:  "QUADRANT "; Q1;","Q2:   6 7 8"͚ RECORD.LINE$ I  : I;: H8  ) J  :" ";: Z(I,J)  "***";: M I Q1 J Q2 ESC$;")";i ((Z(I,J)),);  I Q1 J Q2 ESC$;"("; J: FZ4 I: Z5 ݖ"SECTOR "; S1;",";S2:  "PHOTON TORPEDOS ";(P):  1"TOTAL ENERGY ";(ES):  Z"SHIELDS ";(S):  |"KLINGONS REMAINING ";(K9)  I: REPORT.LINE$: p:-----LIBRARY COM֛( : J0 ( (G2$))2 J0);G2$;<Z5 : : J0 ('(G2$)): J0);G2$4F: I: : Nd:-----STATUS REPORThn" STATUS REPORT:"xX$ "": K9  X$ "S""KLINGON";X$;" LEFT: ";K9"PUTER CODEz D()  "COMPUTER DISABLED": A : "COMPUTER COMMAND";A A  O: H8 : A , n, , , , Bt"AVAILABLE COMPUTER FUNCTIONS:"" 0 = CUMULATIVE GALACTIC RECORD"" 1 = STMISSION MUST BE COMPLETED IN"; L} ((T9 T)  );"DAYS"!X$ "S": B9  X$ "": B9  P"THERE ARE";B9;"BASE";X$;" IN THE GALAXY"Z ."YOU ARE ON YOUR OWN IN THE GALAXY""YOU HAVE NO STARBASES LEFT!": .ATUS REPORT"ޘ" 2 = TORPEDO COURSE DATA"" 3 = STARBASE COURSE DATA"#" 4 = COURSE CALCULATOR"V" 5 = GALACTIC REGION NAME MAP": : 8:-----SETUP TO CHANGE CUM GALACTIC RECORD TO GALAXY MAPÙBH8 : G5 : (:-----TORPEDO, BASE NAV, D/D CALCULATOR K3  X$ "": KE  X$ "S"F"FROM ENTERPRISE TO KLINGON BATTLE CRUISER"; X$sH8 : I  : K(I,)  W1 K(I,): X K(I,)C1 S1: A S2: DFLAG% Y," ");"THE GALAXY"L" 1 2 3 4 5 6 7 8"V GALAXY.LINE$` A:-----CUMULATIVE GALACTIC RECORDI:\:" ";"COMPUTER RECORD FOR QUADRANT";Q1;",";Q2" 1 2 3 4 5 ES%: 6מ"NAVIGATION CALCULATOR:""YOU ARE AT QUADRANT ";Q1;",";Q2; " SECTOR ";S1;",";S2("C1 Q1: A Q2S,"DESTINATION COORDINATES (X,Y)";W1, X}6X X A: A C1 W1: X  @ A  J X  ^T A     C1 : hȟ^C1 h (A) (X) r"DIRECTION ="; C1 ((((A) (X)) (A))(A)))| Q"DIRECTION ="; C1 ((A)(X))[ w A  C1 :  X  C1 : hC1  (A) $ "SHIELD CONTROL": zG2$ "LIBRARY-COMPUTER": :-----STRING COMPARISON IN QUADRANT ARRAY?Z1 (Z1): Z2 (Z2)mS8 (Z2)  (Z1)  : Z3  (Q$,S8,) A$ Z3 : Х:-----QUADRANT NA(X) "DIRECTION ="; C1 ((((X) (A)) (X))(X)) &"DIRECTION ="; C1 ((X)(A))V (X) (A) DI (X) : DI (A)"DISTANCE =";: DFLAG% DI : DI H8   I:  ME IN G2$ FROM Z4, Z5 (= Q1, Q2):-----CALL WITH G5 = 1 TO GET REGION NAME ONLYD Z5  Z4 , , $, ., 8, B, L, VN `iG2$ "ANTARES": G2$ "RIGEL": $G2$ "PROCYON": .G2$ "VEGA":B3  "FROM ENTERPRISE TO STARBASE:": W1 B4: X B5: "NO STARBASES IN THIS QUADRANT"! JX:-----FIND EMPTY PLACE IN QUADRANTbR1 R0: R2 R0: A$ " ": Z1 R1: Z2 R2: : Z3  blɢ:-----INSER Ц8G2$ "CANOPUS": BG2$ "ALTAIR":  LG2$ "SAGITTARIUS": #VG2$ "POLLUX": V` Z4 j, t, ~, , , , , pjG2$ "SIRIUS": tG2$ "DENEB": ~G2$ "CAPELLA": §G2$ T STRING IN QUADRANT ARRAYS8 (Z2)  (Z1)  # (A$)  "ERROR IN 8675": I S8  Q$ A$ (Q$,): q S8  Q$ (Q$,) A$: Q$ (Q$,S8) A$ (Q$,S8): :-----PRIN"BETELGEUSE": ߧG2$ "ALDEBARAN": G2$ "REGULUS": G2$ "ARCTURUS": (G2$ "SPICA"g G5  Z5 , , , , , , , mG2$ G2$ " I": G2$ G2$ " II": G2$ G2$ T DEVICE NAME* R1 4, >, H, R, \, f, p, z 4G2$ "WARP ENGINES": .>G2$ "SHORT-RANGE SENSORS": PHG2$ "LONG-RANGE SENSORS": nRG2$ "PHASER CONTROL": \G2$ "PHOTON TUBES": fG2$ "DAMAGE CONTROL": ƤpG2" III": ѨG2$ G2$ " IV": , , , mG2$ G2$ " I": G2$ G2$ " II": G2$ G2$ G5  Z5 , , , , , , , mG2$ G2$ " I": G2$ G2$ " II": G2$ G2$   ad AZan B(,),BR(,) :B IS THE BOARDbx BSAVE(,) :USED FOR SAVING THE BOARD7b BRM(,) :MODIFIED BOARD RATINGSAbM mb IB(M),JB(M),RB(M) :FOR M BEST MOVES~bSTRTEND 2bSEARCH b BR IS THE RATING OF THE BOAT() TOT()) bfMOVENUM MOVENUM f(MOVENUM@) bgPLYR PLYR()4g(MOVENUMSTRTEND) v [g CHECK IF PLAYER HAS A LEGAL MOVEpg(EXM) rg& ONE PLAYER HAS NO LEGAL MOVEg0  :PRINT NO LEGALRD POSITIONSb IDIR(),JDIR()b XDIR(),YDIR()b CHNG(),TOT()c TWO PLAYERS ARE -1 AND 1Bc PLAYER 1 IS BLACK (SMALL SQUARE)jc PLAYER -1 IS WHITE (LARGE SQUARE)c BLACK (1) GOES FIRSTc  :INITIALIZE THE DIRECTIONSc MOVE MESSAGEg:PLYR PLYR()hD v :CHECK IF SECOND PLAYER HAS A MOVEhN(EXM)  : b'hX r9hb END OF GAMEjhl ******************************************phvhPLYR  : T :PRINT FINAL TOTALShXPOS A : YPOc ******************************************c" START NEW GAMEd, \ :LOAD THE BOARD RATINGS+d6SEARCH Xd@  :PRINT INTRO MESSAGES AND SET OZzdJ H :INITIALIZE THE BOARDdT V :PRINT THE BOARD TEMPLATEd^ x :PS 1 : h"END OF THE GAME";hYPOS YPOS  : i(TOT()TOT()) "IT WAS A TIE";Ci(OZ TOT()TOT()) "YOU LOST";ni(OZ TOT()TOT()) "YOU LOST";i(OZ TOT()TOT()) "YOU WON!";i(OZ TOT()RINT THE INITIAL FOUR PIECESdhMOVENUM  : PLYR  er T :PRINT PLAYER AND TOTALS7e|EXM  :ASSUME THERE IS A LEGAL MOVEke(PLYROZ)  :MOVE THE CURSOR FOR MOVEe(PLYROZ MOVENUMSTRTEND) e(PLYROZ MOVENUMSTTOT()) "YOU WON!";iYPOS YPOS  : i(()) j"HIT Q TO QUIT";*jYPOS YPOS  : Cj"OR ANY OTHER KEY";_j YPOS YPOS  : yj"FOR ANOTHER GAME ";j A$ : ((A$))  j*(A$"Q" A$"qRTEND) e(EXM) &f z :CHECK IF MOVE IS LEGAL AND SET CHANGES$f(LEGAL)  : Mf GOSUB PRINTS ILLEGAL MOVE MESSAGEyf  :PERFORM THE MOVE (FLIP PIECES)f(MOVENUMSTRTEND)  :MODIFY BRMf(TO") : "j4 END OF THE PROGRAM k> -------------------------------------------$kH INITIALIZE THE BOARDKkR MATRIX B(8,8) CONTAINS THE BOARD[k\ I  okf J  kp B(I,J) kz Jk IkB(,)     : B(,) kB(,)  : B(,) kTOT()  : TOT() k"l END OF INITIALIZING THE BOARDTl -------------------------------------------tl INITIALIZE THE DIRECTIONSl THE DIRECTIONS ARE AS FOLLOWS:l 1-8 ARE E,W,S,N);p ( );q( (K%) ()();: ()();: ()();+q2 ()"G";) u(YNEW YNEW 6) u  X XNEW : Y YNEWuI I (XDEL) : J J (YDEL)uv ()"="(Y)(X);v  v?v END OF MOVING THE CURSORov -----------------------------------------v DRAW A PIECEv (X,Y) IS THE POSITION; PIECE = 1, -1THE CURRENT DIRECTIONz CHNG(IND) { IDEL IDIR(IND) : JDEL JDIR(IND)1{ INEW I IDEL : JNEW J JDEL[{ (PLYR  B(INEW,JNEW)) V r{ JND1  {$ INEW INEW IDEL : JNEW JNEW JDEL{. vXOLD X : YOLD Yv&X X  : Y Y v0 ( ); w: ()"="(Y)(X);#wD(PIECE) 3wN PIECE = 1=wX" ";Owb ()"g";]wl ();owv ()"G";yw" ";wY Y ww ()"="(Y)(X);w CHNG(IND) CHNG(IND) {8 (B(INEW,JNEW)) CHNG(IND): V %|B (B(INEW,JNEW)PLYR) V 8|L JND1U|V DONE CURRENT DIRECTIONw|` SCHNG SCHNG CHNG(IND)|j IND|t (SCHNG ) LEGAL |~ | " ";w ()"g";w ();w ()"G";w" ";w H x PIECE = -1x ()"g";8x (); : ();Vx (); : ()"G";dx Y Y jxx  ()"="(Y)(X);x* ()"g";x4 (); : END OF LEGAL MOVE SUBROUTINE| -----------------------------------------} PRINT NOT LEGAL MOVE MESSAGE@} XPOS @ : YPOS 2 : [} "SORRY, THAT IS NOT";w} YPOS YPOS  : } " A LEGAL MOVE";} TIME   : DUM ();x> (); : ()"G";xHxRX XOLD : Y YOLDx\yf END OF DRAWING THE PIECEFyp ------------------------------------------gyz CHECK IF MOVE I,J IS LEGALy LEGAL = 0 IF ILLEGAL, 1 IF LEGALy CHNG CONTAINS THE # OF CHA 33 : TIME} YPOS YPOS  : } " ";~ YPOS YPOS  : -~ " ";3~ \~ END OF PRINTING NOT LEGAL MESSAGE ~ ------------------------------------------~ PERFORM THE MOVE (FLIP PIECNGES IN DIR Iy SCHNG IS THE TOTAL NUMBER OF CHANGESz SCHNG DOES NOT COUNT THE MOVE ITSELF zSCHNG .zLEGAL Cz(I I) Xz(J J) qz(B(I,J)) ~ z CHECK THE EIGHT DIRECTIONSz IND   :IND IS ES)~( PIECE PLYR~2 B(I,J) PLYR~< JSUB PLYR F (SEARCH) TOT(JSUB) TOT(JSUB) 6P (JSUB) KSUB : KSUB`Z (SEARCH)  :DRAW THE PIECExd (SEARCH)  n TIME  d : DUM33ff : TIMEx (S  EARCH)  :DRAW THE PIECE AGAIN NOW FLIP THE REMAINING PIECES IND  , (CHNG(IND)) , X IDEL IDIR(IND) : JDEL JDIR(IND) XDEL XDIR(IND) : YDEL YDIR(IND) ISAVE I : JSAVE J XSAV ";Ԅ X D : Y / PIECE & 0 (PLYR PLYROZ) "<- YOUR MOVE";E: (PLYR PLYROZ) "<- MY MOVE";tD (PLYR) " ";zN X b END OF PRINTING PLAYER'S TOTALSօl --E X : YSAVE Yހ JND  CHNG(IND) I I IDEL : J J JDEL. X X XDEL : Y Y YDEL_ (SEARCH)  :DRAW THE PIECEy B(I,J) PLYR (SEARCH) TOT(JSUB) TOT(JSUB) ߁---------------------------------------v CHECK IF PLAYER HAS ANY LEGAL MOVE* EXM = 1 IF THERE EXISTS A LEGAL MOVEU EXM = 0 IF PLAYER HAS NO LEGAL MOVESa EXM q I   J   z (LEGAL)  (SEARCH) TOT(KSUB) TOT(KSUB)  JND X XSAVE : Y YSAVE-" I ISAVE : J JSAVE;, INDA6 _@ END OF PERFORM THE MOVEJ ------------------------------------------T PRINT PLAYER'S TOTAL AND  Ɔ J҆ I (LEGAL) EXM  END OF CHECKING IF PLAYER HAS LEGAL MOVEP -----------------------------------------r PRINT NO LEGAL MOVE MESSAGE (PLYR) XPOSB : YPOS ' (PLYR) XPOSB  WHOSE TURN IT IS^ XPOS J : YPOS # : h "TOTAL" r YPOS YPOS  : | "PIECES"' PIECE I XPOS A : YPOS & : d " PLAYER "; TOT(); YPOS YPOS  :  " "; X D :: YPOS -ć ڇ* "NO LEGAL MOVE"; 4 TIME   : DUM33Y : TIME> 3H END OF NO LEGAL MOVE MESSAGEcR -----------------------------------------\ LOAD THE BOARD RATINGSf I  p J  z  Y )  (PLYR PLYROZ) "<- YOUR MOVE"; (PLYR PLYROZ) "<- MY MOVE";D (PLYR) " ";f XPOS A : YPOS , :  " PLAYER "; TOT(); YPOS YPOS  :  "  BR(I,J) 舄 L :COMPUTE NRM=NORM(I,J) (NRM) BR(I,J)  1 (NRM) BR(I,J)  A JM I BR(,) : BR(,) : BR(,) : BR(,) BR(,) : BR(,) : BR(,) : BR(,)  щ BR(,)  : BR(,)  BR(,)  : BR(,)  BR(,)  : BR(,) / BR(,)  : BR(,) a BR(,) : BR(,) : BR(,) : BR(,)q I   J   BRM(I,J) BR(I,J) nX  I : Y  JxYPOS YPOS  : " ";YPOS YPOS  : 1" ";R(IBEST JBEST) EXMXy END OF DETERMINE OZ'S MOVE -----------------------------------------Џ J$ IƊ.8 END OF LOAD BR SUBROUTINEB -----------------------------------------HL COMPUTE NORM(I,J), THE DISTANCE FROM CENTERdV STORE THE NORM IN NRM~`(I) INRM I j(I) INRM  It(J) JNRM J REPOSITION CURSOR AT (XPOS,YPOS)֏ ()"="(YPOS)(XPOS);& END OF REPOSITIONING THE CURSORV -----------------------------------------| PRINT INTRO MESSAGES AND SET OZ OZ <> 0 IF OZZIE PLAYS OZ = 0 IF OZZI ΋~(J) JNRM  J(INRMJNRM) NRMINRM : NRMJNRM" END OF COMPUTE NORM(I,J) ROUTINER -----------------------------------------l DETERMINE OZ'S MOVEIBEST  : JBEST RBEST! 0uȌ(SEARCH) XPOSE DOES NOT PLAY͐" ( );,XPOS * : YPOS ! : 6"OSBORNE OTHELLO"(@" by Mark Broadie";IJXPOS  : YPOS $: rT" CURSOR MOVEMENT IS CONTROLLED"^" BY THE NUMBER KEYS:"hr"  B : YPOS 2 : (SEARCH) "I'M THINKING";(SEARCH) YPOS YPOS  : % I  A (SEARCH) "X";U J    z :CHECK IF MOVE IS LEGAL (LEGAL) <ҍ ( 8"ϑ|" 7 ^ 9"둆" \|/ "" 4<--- --->6"#" /|\ "?" 1 | 3 "W" 2"]" MOVE THE CURSOR WITH NUMBER KEYS"" AND THEN HIT RETURN TO ENTEMOVENUMSTRTEND) FAC! : FAC!( RATING! SCHNG BRM(I,J)FAC!<2 (RATING!RBEST!) IBESTI:JBESTJ:RBEST!RATING!L< JYF IsPI IBEST : J JBESTZ(SEARCH) d ERASE I'M THINKING MESSAGE̎R MOVE."" IF YOU THINK THAT YOU DO NOT HAVE"" A LEGAL MOVE HIT 'L'. "0" NOTE: ALPHA LOCK SHOULD BE ON."6N(()) " DO YOU WANT OZZIE TO PLAY (Y OR N)? ";A$ : ((A$)) (A$"Y"    A$"N") ʓ& A$0(A$"N") OZ  : : A$ = "Y"DN(()) NEX" DO YOU WANT TO GO FIRST (Y OR N)? ";fbA$ : ((A$)) bl(A$"Y" A$"N") bv A$(A$"N") OZ  : OZ  : JB(IND) : RB(IND)0uژ IND I   (I) "X"; (I) "X";,$ J  O. z :IS MOVE LEGALn8 (LEGAL) B K  ML (SCHNG RB(K))  Д OF INSTRUCTIONS ----------------------------------------- MODIFY BRM/(PLYROZ OZ) T L :COMPUTE NRM = NORM(I,J)i(NRM) w NRM = 3(I J) BRM(,) : Õ(I J) ڙV ITIB(K):JTJB(K):RTRB(K)` IB(K)I:JB(K)J:RB(K)SCHNG%j (KM) Ct L K Mq~ TMPIB(L):IB(L)IT:ITTMP TMPJB(L):JB(L)JT:JTTMP͚  BRM(,) : (I J) BRM(,) : (I J) BRM(,) : ((J J) HP (B(I,J) B(I,J)) x(B(I,J) B(I,J))  BRM(I,J) : BRM(I,J) *(J) BRM(I, TMPRB(L):RB(L)RT:RTTMP嚜 L K M K  J- IV COPY B INTO BSAVE, PLYR INTO PSAVEo  : PSAVE PLYR IIND  M (IB(IIND)) Zě I IB)˖4(J) BRM(I,)Ֆ> ܖH R(B(I,J) B(I,J)) ,\(B(I,J) B(I,J)) OfBRM(I,J) : BRM(I,J) gp(I) BRM(,J)z(I) BRM(,J) RETURN POINT END OF MODIFYIN(IIND) : J JB(IIND) z :LEGAL MOVE AND SET CHNG   :PERFORM MOVE ON B) PLYR PLYR()8 "XX";a(  :DETERMINE BEST RESPONSE2 (I) RB(IIND)RB(IIND):: RB(IIND)RB(IIND)RBEST! Μ< :G BRM䗢 -----------------------------------------  DETERMINE OZ'S MOVE IN THE ENDGAME* DETERMINE BEST M MOVES9SEARCH [XPOS B : YPOS 2 : p"I'M THINKING";YPOS YPOS  :   IND  M̘ IB(IND)THERE MAY BE NO LEGAL RESPONSEF PLYR PLYR() P h :COPY BSAVE INTO BZ IIND@d DETERMINE BEST MOVE OF THE THREEMnTMP0u`x IIND  M (RB(IIND)TMP) INDBIIND:TMPRB(IIND) IINDSEARCH   ǝPLYR PSAVE : h睪I IB(INDB) : J JB(INDB)X  I : Y  J( ERASE I'M THINKING MESSAGEJXPOS B : YPOS 2 : `" ";|YPOS YPOS  : " ";Ş END OF DETERMINEPOS 3 : آ"ONE LEGAL MOVE -";YPOS 4 : "SEE CURSOR";%X  I : Y  J : C ()"="(Y)(X);s TIME  & : DUM  : TIMEYPOS 2 : " ";Y OZ'S MOVE IN ENDGAME  -----------------------------------------  COPY B INTO BSAVE ROW  5" COL  ], BSAVE(ROW,COL) B(ROW,COL)o6 COL}@ ROWJT END OF COPY B INTO BSAVEҟ^ ------POS 3 : ݣ" ";YPOS 4 : " "; : 6 ()"="(Y)(X);< ^ END OF CHECK FOR LEGAL MOVE  -----------------------------------------; : 6 ()"="(Y)-----------------------------------h COPY BSAVE INTO Br ROW  | COL  : B(ROW,COL) BSAVE(ROW,COL)L COLZ ROW` END OF COPY BSAVE INTO B -----------------------------------------Ԡ CHECK IF PLAYER HAS LEGAL MOVE CALLED FROM MOVE CURSOR ROUTINE FIRST PRINT MESSAGE 7XPOS A : YPOS 2 : N"CHECKING FOR A";jYPOS YPOS  : "LEGAL MOVE ..."; v  ERASE MESSAGEYPOS 2 : ͡&" ";0YPOS 3 : :" "; D IF NO MOVE (EXM=0) THEN RETURN5N(EXM)  aX IF THERE IS A MOVE (EXM=1) SET CURSORyb AND PRINT MESSAGElYPOS 2 : v"THERE IS AT LEAST";Y  "\r3"!^Ͷ !y *#"*|8)À!"*nRR!"!"!"!"͕!"!"͕!"!"͕!"!"͕!"!"!"*#"!"!Þ**H%*j"**H%*l"*|8)go*|8)go|g}o*|8)?go|g}o*|8)?go|g}o|š*8% *) ^#V"*|z**Rp!"Ú*#"Ú**nR‘*#"Ú!"Z*#"*|8)ں*|!"*og"*og"î*)p*s#r*)*s#r3"! 3l#"*|8)څ ! *;)^#V+"*R *)))*V%))*;"*))*$Q$*$Q$*)))*;))*$&#""$*;#";*;|8)Q *R !"!"nR *l#"l*l|8"!hͶ !8W'3"!WͶ W!dX)C3"!F FͤE! )!B9('! )!>9(':!9(g'!å !(g9(! )9(g'*;#";*;|8)ځ !(g9(! )9(!9(g'! )9('!!29(! ))L :!: *)p^#V|8)6 #*#"*|8) s$ }$g !"Æ *#"ͿQ$*$B#͢$ #*"! *c8%^#V$Q$*e$""-! 1-*e#"e*e|8)ڙ *#"*|8) *|!"Z!"\r9('*;#";*;|8)!9('! )9('!q !(9(! )9('*;#";!ï&w&Hl͠'!q7!%6 ͵6!q7!%6 ͵6!q7!)q76͵6!q7!(q76͵6e"u1!q7/!%0O3s&K!͜3k&Ñ͜3"!^Ͷ ! *"j*j)A^#V#"l*j)A^#V#s#r*j8% *l) s#r!"n!*j8% *l"P%)^#V$Q$*e$"Q$*P%)Q^#V)))))))$""%!1-*e#"e*e|8)g:!%*)p^#V|8)!! "Z!3k&|j2c&͸3!P#2̓4Vj2c&͸3!P#2̓4V!g5E5 !g5))d3_&u!g5E5 !g5))d3[&22k&́3"4o&22k&́3"4o&14k&u1!q70 u1!%0u1!%0!g5E5 !g5))d3W&j2c&͸3!P#2̓4  D !g5E5 22S&͕5))͑3͸322k&͕5E5 22O&͕5))͑3:2͸322O&͕5E5 ))͑3:2V4K& O3k&!g5E5 22O&͕5))d3k&!g5E5 22g&͕5))͑3͸322k&͕5E5 22k&͕5))͑3:2͸322O& !g5E5 22g&͕5))d3O&22O&͕5E5 !g5))͑3ͧ422O&͕5E5 !g5))d3W&22;&͕5E5 !g5))͑3͸322S&͕5E5 22O&͕5))͑3:2͸322g&͕5E5 22k&͕5))͑3:2V4K& 22S&͕5E5 !5E5 ))͑3:2V4K&z !g5E5 22k&͕5))d3k&ô22S&͕5E5 !g5))͑3͸322O&͕5E5 22k&͕5))͑3:2͸322O&͕5))͑3:2V4K& 22O&͕5E5 !g5))d3k&O3k&22g&͕5E5 !g5))g5))d3O&22k&͕5E5 !g5))͑3ͧ4 22k&͕5E5 !g5))d3W&22?&͕5E5 !g5))͑3͸322g&͕5E5 22O&͕5))͑3:2͸322k&͕5))͑3:2V4K& 22g&͕5E5 !g5))d3O&à 22g&́33͸322k&͕5E5 22k&͕5))͑3:2͸322O&͕5))͑3:2V4K&z 22k&͕5E5 !g5))d3k&ô14k& u1!%0u1!%0͜3C&͜3C&!g5E5 22O&͕5))͑3͸322k&͕5))͑3:2͸322O&͕5E5 !g"4G& 22g&́3"4G& 4k&J2o&͕5E5 J2o&͕5))͑3ͧ4J2o&͕5E5 J2o&͕5))d3W&4k&ô͜3?&͜3?&22n2c&͸3!P#2̓4!g5E5 !g5))͑3ͧ4j2c&͸3!P#2̓4!g5E5 22S&͕55))͑3:2͸322k&͕5E5 ))͑3:2V4K&!g5E5 !g5))d3O&!g5E5 22O&͕5))͑3ͧ4? !g5E5 22O&͕5))d3W&!g5E5 22;&͕5))͑3͸322O&͕5E5 22S&͕5))͑3:2͸322k&͕5))͑3͸322O&͕5E5 22O&͕5))͑3:2͸322k&͕5E5 ))͑3:2[43&!g5E5 22g&͕5))͑3͸322O&͕5E5 22k&͕5))͑3:2͸322k&͕5E5 ))͑3:2[43&!g5E5 !g5))d3W&ô22E5 ))͑3:2V4K& !g5E5 22S&͕5))d3O&!g5E5 22k&͕5))͑3ͧ4$!g5E5 22k&͕5))d3W&!g5E5 22?&͕5))͑3͸322O&͕5E5 22g&͕5))͑3:2͸322k&͕5E5 ))͑3:2V4K&S&͕5E5 !g5))͑3͸322O&͕5E5 22O&͕5))͑3:2͸322k&͕5))͑3:2[43&22g&͕5E5 !g5))͑3͸322O&͕5))͑3:2͸322k&͕5E5 22k&͕5))͑3:2V43&22k&́3"47&22k&  3"47&4k&'-n2/&!J#262?&́3-n2/&!J#262?&́3j2c&͸3!P#2̓4wj2c&͸3!P#2̓4j2c&͸3!P#2~4!g5E5 !g5))͑3ͧ4!g5E5 !g5))d3W&ôu1!%0u1!%/!͡F͵6!%͞7"h!6!%6!6*h622k&́3û!g5))͑3V4O&22S&͕5E5"h!6!%6!6*h622k&́3û22S&͕5E5"h!%6*h622S&͕5E5"h! 6!g5))͑3 4W&E5  q7u1!0A(O3[&O3[&O3[&͜3?&M22S&͕5_;^^^^22k&́3"47&*22S&͕5E5! q7 6!g5))"h͑3 4W&E5  L76! q76*hN͑3 4W&E5  L76! q76*h͑3 4W&E5  L6! 6*h6u1!q70͜3k&ß!g54|Zu1!1!%/!g5E50Ø͜3k&Êu1!1!%/!g5E5022"k&́3""4"?&b22k&́3"4/&&4+&u1!%0u1!o%0u1!%04+&u1!%0u1!\%0u1!%0͜3?76! q76! 6622S&͕5E5!g5))͑3 4W&E5  q7 6! 66!g5))͑3V4k&22S&͕5E5"h!6!%6!6*h622k&́3G!g5))͑3V4O&22S&͕5E5"h!6!%6&l͜3?&W!g5E5 !g5))͑3ͬ4P!g5E5 !g5))͑3ͬ4z22k&́3"47& 22k&́3"47&!g5E5 !g5))͑3́3&J͑3́3*43*62&62'&!Ϳ;!͡F.͵6!q7!.͙78! q7!.͙7! q7!.͙7!6*h622k&́3G22S&͕5E5"h!%6*h622S&͕5E5"h! 6!g5))͑3 4W&E5  q76! 6*h6!g5))N͑3V4k&22S&͕5E5"h!6!%6!6*h622k&́3Á!g5:! q7!.͙7͎! q7!.͙75O3O3ê3&#&3*?&3*/&|g}o3*&|g}o|g}o|~u1!q7/3&&3*k&3*+&|g}o3*7&|g}o3*&|g}o|g}o|u1!q7/3*k&3*+&|g}o3*7&|g}o3*&))N͑3V4O&W22S&͕5E5"h!6!%6!6*h622k&́3Á22S&͕5E5"h!%6*h622S&͕5E5"h! 6!g5))͑3 4W&E5  q76! 6*h6!g5))͑3V4k&422S&͕5E5|g}o|Ÿ22S&́31'41?&.u1!q7/!1g5E5 !g5))͑3ͬ4_221S&́3143*62&62'&! Ϳ;O31!g5E5 !g5))͑3́3&22S&́31'41C&u1!q7/!1g5E5 !g5))͑3ͬ4221S&́31ë_O35"45  &u1!q7/35C&35&|g}o35&|g}o|‰225k&́35͜3?&{!1g5E5 !5g5))͑3V4W&221g&́31"417&P225k&́35͜3C&!1g5E5 !5g5))͑3V4W&221g&́31"41&22k&́343*62&62'&! Ϳ;O3d3922=k&͕5))d3%bd3922=k&͕5))"d3 &d39229g&́3922=g&́3="4=7&Z!u1!q70u1!(%0u1!%0u1!$0u1!$0u1!$0u1!_$0u1!-$0u1!#0u1!#0u1!#0u1!%0u1!|#0u1!e#0u1!%0u1!%0u1!I#5O31!g5E5 !g5))͑3́3&J͑3́3*O35225O&́35'45?&cu1!q7/35?&35+&|g}o35/&|g}o357&|g}o|͜3?&!1g5E5 !5g5))͑3V4W&9221g&́31"417&225O&́35͜3C&!1g5E5 !5/+A͵6A!%͙7$#22Dk&́3D#"4D%<#22D%́3D$#!Dg5%,A(L#Hit to start... h#COMPLETED 5 SQUARES.2#THE GAME ENDS WHEN EITHER YOU OR THE COMPUTER HAVE#MAY TAKE ANOTHER TURN.0#COMPLETED A SQUARE, THAT SQUARE IS YOURS AND YOU-$g5))͑3V4W&9221g&́31"41&225O&́35M43*62&62'&! Ϳ;O35O31!g5E5 !g5))͑3́3&J͑3́3*3& &3*?&3*/&|g}o3*&|g}o|g}o|u1!q7/3&&3*k&3*+&|g}o3*7&|g}THE LINE BETWEEN THE TWO DOTS. WHEN YOU HAVE/0$MOVE, PRESS AND THE COMPUTER WILL DRAW/b$WANT TO CONNECT. ONCE YOU HAVE DECIDED ON YOUR1$MOVE THE CURSOR TO THE SPACE BETWEEN TWO DOTS YOU/$WANT TO MAKE A MOVE, USE THE FOUR ARROW KEYS TO.$THE GAo3*&|g}o|g}o|) u1!q7/3*k&3*+&|g}o3*7&|g}o3*&|g}o| 22g&́31"417& u1!q7/!1g5E5 !g5))͑3ͬ4 221g&́31n 43*62&62'&! Ϳ;O31!g5E5 !g5))͑3́3&22g&́31ME IS PLAYED ON A 4 x 4 ARRAY. WHEN YOU1+%THIS PROGRAM WILL PLAY CONNECT THE DOTS WITH YOU._%I WON! r%YOU WON! % % COMP %PLAYER%Y%PLAY AGAIN? (Y/N) %MY MOVE... %YOUR MOVE...%INITIALIZING...%G%g%`"41&!u1!q7/!1g5E5 !g5))͑3ͬ4H!221g&́31!õ O39k&͜3?&W"!=g5))Zd3&d39!=g5))d3&:d39!=g5))d3&d39229g&́39,4=7&!22=k&͕5))2d3#&d3922=k&͕5))d3%(@x @P0`p `H@ HHȆ@[[[[ BASLIB #000000 5.30 - OWNED BY MICROSOFT, 1980 ü&1:92&2&*^#V"&##^#V"& 2&!  '!!""&!'"'6#6P>2'>2'>2'ͳ&L'Ͷ&L'C'_ .*1<*3<2-3E~ʨ2:҈20ڈ2 #~y2>DGw2"1<`i"3<]5^5!9"]') !&()'!&('!b'&(!R"'!O"')|'> ^(6#s#r#='>2W'>>9d)!7,͔.-!,M.*,(,)"'͆I-ѯDI%:,Random Number Seed (-32768 to 32767) ) S!',!' S!'Ȇw!,O ̈́P:'<2'!,O ̓O!J^#V#N#F#{YOO6+F6!'4~֫,w R!'QIw+w+wß,5Jʙ9v" GSљ e͘w>hFhiu2Z'>2Y'2\'!P'"i'!$\"_'>&2a'&;6#}#(|#(; STO1)A(ͻ)*i'.. . ........:*w'|H(:t'¶(*r'|ʶ(ͼ()  s#r)  {*w#6"u'*]'*r'>2t'*;(!9N#F)~#~(~+(~#~(+^#V###(###(|)~#foh)!*b,͖|N#"-!9" -" -y2-*g'|3-*'!."w'A~#*/ͤI:'S-~.-e-́>h-͈>"/ʎ-ʚ-ͬ<*J*J*J*Jç-=*Jç-͕<*J*J*/ͤI-~#"/,;- .:'.;-~.!"w'~,"-#"~--# -."-#"/!); Internal Error - No Line Number P')~#ʝ); at lineͼ(P)û)>̈́); at address|"<}"<û)> I> I~#*)ͰI~#folS!9"S'!)*S')"U'!**x". .+~ .y9ç-;?Redo from Start * -:!J.͔.*-:-O:-* -+~+x.j.j. +w l.Ã.++~#fo͸6" -!-5* -9~2.#~#^#V;++9"G2(:.@Ͳ9ͯ9~ 9> Ͳ9Ͳ9#9c*M 9#~+<9=܋: b:e: U'ͻ)!3*~ 9~=i:*M!P"M9"M> 9> 9:S=ʦ:> > *9^#V#Ͷ:ɷ!5<:!1<)%0 1)00 1);0 1)/ 1)%0+1)00+1);0+1)͐0+ME without Erro2Field Overflo3Internal Erro4Bad File Numbe5File Not Foun6Bad File Mod7File Already Ope9Disk I/O Erro:File Already Exist=Disk Ful>Input Past En?Bad Record Numbe@Bad File NamCToo Many FileUnprintable Erro)%'!+>,/'w1)%00)000);00)͐00JF0JF0"JO0H~# G0x2`<:'100V@9<71~x0qH#l0&1V@~{0 qH#Â0>2`<:'1F#~#fox0710ʾ0~#qHò0090>"qHG:'x0I*'+~<0=0###~0*'I  !{0*'*'~=1/<71&1=1> qH0>,qHW*'#^ a1[1+=[1:'=[1Iz{s1{_e1!'"'!"g'2'͋1!'~6#w~!1 qH1|^(}*'1<1 2}#6!J"6{66!)[(:JgoW*J|7g?6:J?6+>N6|/g}/oW6!l6G|h6_6o& Gȯ|g}oo6ͅ6>’6~+~?~6+#Ҫ6+ 6)ͭ96~##++{:>͵I+V+^+6+r+s:)͸6~9)1|^(}1|2!*'#n&5) SP9>à7>à7>à7>à7>à7>ͳ7ʯ7~#fo##GN7y7#~#fo~#fo7#7 7 y7y<.7)7)99:I:-2yI:-23(3OOPO(3=M-MEL'KͰI~#fo:I:JH32J#[(^#V#^#V#\I^#V#\IQI^#V#QI_3DI:I^#3DI^#3QIó3&))))>!>!>!>!>!>^#V#^#V#ú4>!>!C 8 88C88888!"8~%8(8G+8_.8W18O48r_!84G85*8"8~#N#F#ڇ8a8 ͰIJ8yxl8 J8+++6@#yw#xw+++6###!8~6ژ8ͭ8G88*8#~#~G8)U(!*8"8~#^#V#88ͰIú8|8ú8++~_w#~Ww#ú8ͭ8*8DM>!>!>!>^#V#!Jú4>34>34>34>34>34>^#V#^#V#4>]4>]4>]4>]4>]4>^#V#!J4>Å4>Å4>Å4>Å4>Å4>^#3J4>î4>î4>î4>î4>î4> *!J44 G{644 G{64~#fo4##~#^#V#Q999+z.:+{.:##{z~#q#p_9yF9xF9DM9~#F99YP+++"86@###{_zW+r+sɷʠ9*8|~9)X(78^#V+"8w#s#r+++r+s##!99*V;{z*X;?9}|~# 9yGk9x͵IGk9x#N#F& 9ͭ9^#V#)5)5)z75|75|̈́QQ^#V5^#V#U5Q2'))v5)yIͭ5DI|^()ä5)ͭ5Ê55:'5! *=MN5:'5!*̓O:J2J:J6#6:J55|/g}/oN:J{::*V;*X;I*::$:{::### :P:; during G.C. P'P:; P'; Internal Error - String Space Corrup#N#F*8yx:*8yx:++`i+V+^IE:##6+6+~6  >@++*8"8s#r+8*8#~_#~W:)d(r+s##6"8###!  8~#fo;I;<*8"8*8}o|g6@#s#r#6"8*X;*V;"8}w>#w##I=;++6+6 878a;>2Z;|œ;+})N#Ҙ;~#fo :Z;‹;!9"]'!b'4 ~ͰI#^(9I);n&9I)|^(};w:J;:J;!;̓OO~I#=;p=g=J={ @0_?S@!J;E3@:J4@yS@:JO@:JS@:J/S@ÛF@a@6+=s@6-g<#60:cpZ+V+^+pG+r+sK;E<*J}/o|/g#"J|͹>^>~8'#þ<8'W!JJ2<# >AE~6A:A0A #~A>DGA"J`i"J#~+}A-TA0OxG}A#~;A`xErAy &A>2;<ÂA|&AjA&A"J`i"J̀=#W͑C:;0D60̕=WD+~0A.ĕ=A;E>"w#6+A6-/</ A:#p#w#6=>|}+!y>EL͋=Q+6!J>͆N2J!u>O!q>EL!JEL~_#~W#~O5SÆO!BEÃO6Q^=ɇ<o&͹ÄP#Sx{S!J6Qwg>̀S=!>E=<͜<>P=:J2J:JқF͝=:J:>?>E>|/g}/oY>!F:Jb>͝="J>2`<V=ajX> L}͐<Ͷ<F>29<`hY>~&E-ʰ>+ʰ>+ͤEڗ?.=?e>E>ͤEl>L>q>Q>:`<?>?~%J?#[?!\?d?DyGDODGOWDC*a<=DP+Bͣ<ѯ0Cͺ=7đCyĂ?OzWO?PC^C/<;E ?e?ð>ͤE!e=!=?e?ͤE?̕<Ĭ<;E=2==;E,==yͣ<7?t$V=?͗=??ͳ<2==g=ͳ<E=<=NE> CD/><ҀD>͝=̀=E?CD͋=/{_#zW#yO++D>=#̀=p#ڹD>DE>CDN#F  #*J/}o|gE"Jp#=DCDw1_cƤ~@zZrN vH Tʚ;@B''d #~: ʤE ʤE ʤE0?<=:`<E7-++ͤEaFOEHE+EEY>H#+FF!D; !Z))O[&k&o&vk&}͂o&k&! ͩ!%Ͳ͸!%;!f] !))qW&c&%!H,/D ! ͋S&))NJK6>4>?>N͆NM2J:JM:>7>5>2>3>@>C>)o&i()!"g'!."/4G:.EG;?EGpkHyG:\2\@H2 @H>lGG>#sGH6=H!.UH!J L!J>F+N+= L!J L!J>q#p#=#L!JEL"ILLK*INR:JR!JN#FPoNqʂLGܴMͲNx kLbLM!J͎NzLj0 TeB׳]h!I.k K SNLKͺN!JEL͔1!Jq#~++w+qLHyq#@H ‡G> @HkH"H ʇGÊG:.=Hwû)I>^@H@@H=H~ dH> @H@H#UH/'#:*' ʈH#~+<ʇH=I HH ڙH4+~# qH~=`35zr1{r1h!IN qH> qH:'=4I> ?'> ?'*oH^#V#DIɷ!J`I!J[IJ`IJ`Iw#w#w#w#!(ͷI>JÌI>JqI ~#=I!qI#~ ʣI ʣIɅo$ɧGw#¹I{zc&!HV! !8))_&uMxMR!J)NNxʌM!JwRÌM~w# +NK SNJNKͺN!J=MK SNfNKͺNK!J-My2J!JI~q+|NqڝNNsY+’NÈN W~w+§NàN!JäNdQN S!Jw#NRO*O͔15S`O#SNO!J6Qg>̀S|ԹQ!>$Oak SoOPoOwOÉOvQO-SʧQ<SȯGP"Jy2JFo;QQ!D*J:JO8PJ4RPP`Pg.*J:JOz9P`Pg.*J:JFPx<=wP{_zWxG)yOHGRvQÇP-SS̀S|R{>2JR/))Q =Q!J~7w?##wy7O*J*J"J"JajSX\RRJS\E!JR/gS fS7>{_zW}o|g=]S|g}oڏSCZQÂS o-yOzW{_xGÒSJ*JDM^#V#N#F#xyDS:J:J7|/G}/O!>gS fS7>{_zW}o|g=]S|g}o  a BREAKOUT FOR OSBORNE 1a 4-19-82 BY MIKE MARZALEKb THIS SOFTWARE MAY BE COPIED FREELY3b( KEYS 3 AND 9 MOVE PADDLEAb2 ( )Qb< P%  abF I% zbP P%I%,bZ I%bd P%bn P% bx I% 2b3 C(C)f X C(C)f Y D(D)f Y D(D)g(X3) (J%P%) :g X3 ( );( )Zg I%3 I%J%, hgI%X:J%Y|g I%  gL%(I%)gK%( L%J%)g K% P%I%,b I%b P% c 10,22,22,32,10,22,22,32,10,22,22,25,10,22,226c 32,10,25,10,25,10,22,22,32,10,25,10,25Hc 10,22,22,25WcI%:J%gc P% qc tzc P%c 10,22,22,25,10,22,22,25,10,22,32,32,10,22c  gCCg  L%J%, g ( );( )h  I%3 I%J%, )h*CC : C CAh4 X3 D(YP%)Vh>CHAR$"":CHAR$nhH CHAR$"3" hR CHAR$"9" fh\ vhfP%P%: P% P%hp 22,25,10,25,10,25,10,22,22,25,10,25,10,25c 32,10,25,32cI%:J% d P% d td" P%Nd, 10,22,22,32,10,22,22,32,10,25,32,32,10,22~d6 22,25,10,25,22,32,10,22,22,25,10,25,10,25d@ 32,10,25,32dJI%:J%dT P%  3(P%),hz 3(P%), h viP%P%: P% P%i 3(P%),6i 3(P%), @i vLiB%B%bi I%J%, jiXzi I%  i J%  iK%( I%J%)i K% d^ tdh P%dr 10,22,22,25,10,25,10,25,10,22,22,25,10,25"e| 10,25,10,25,10,25,32,22,22,25,10,22,22,254e 32,10,25,32DeI% :J% Te P% ^e tge P%e 10,8,32,57,4,1,32,32,4,1,32,32,21,25,32,51eI%(e J%  XXi J%i I%i BXi B% bi$j. "ANOTHER GAME???"j8CHAR$"":CHAR$0jB CHAR$"" 8HjL CHAR$"A" 8`jV CHAR$"Y"  nj` ( )tjj}jt K%j~ I%J%P%,K%jHAR$"" 8 e P% e te P%e J%e P%  e P% f I% 2f J% /f& I%J%, 8f0 J%Af: I%JfDB%SfNP%ffX 3,zfbCk:D{.~flX:YfvI%X:J%YfYYD:XXCf X   DISK.DOC FOG/GAM.015 First Osborne Group (FOG) Games Disk PPONG is a Polish Pong game. To play, place PPONG.COM in drive A. At the A> prompt, type PPONG Further instructions may be found in PPONG.DOC. STARTREK is another version of the familiar MBASIC game found on FOG/GAM.003. See STARTREK.DOC on FOG/GAM.012 for detailed information. PPONG and STARTREK were received from the Denver Osborne Group (DOG). OZDOT is a connect-the-dots game. Place OZDOT.COM in drive A. At the A> prompt, type OZDOT The game is self-prompting. BREAKOUT was submitted by Mike Marzalek. The objective is to break out a wall by bouncing a ball off paddles directed by the 9 and 3 keys on the keypad. OTHELLO was submitted by Mark Broadie. This game has good graphics and is self prompting. The object is to surround your opponents pieces, eliminating his and filling the board with yours. STARTREK, BREAKOUT, and OTHELLO are!   MBASIC programs. Place .BAS files in drive A and MBASIC.COM in drive B. At the A> prompt, type B:MBASIC At the Ok prompt, type RUN "program" where program is the name of the program, which must be capitalized and surrounded by quotatNG .DOC CRC = 45 EC --> FILE: STARTREK.BAS CRC = AA C1 ---------------------> SUM OF CRCS = 62 4F LE: OTHELLO .BAS CRC = CA 06 --> FILE: OZDOT .COM CRC = 56 66 --> FILE: PPONG .COM CRC = 17 7D --> FILE: PPOion marks. Jim Woolley FOG Disk Librarian May 1983 prompt, type RUN "program" where program is the name of the program, which must be capitalized and surrounded by quotat --> FILE: -FOG/GAM.015 CRC = 00 00 --> FILE: BREAKOUT.BAS CRC = 0A 0B --> FILE: DISK .DOC CRC = 2F AE --> FILE: OTHELLO .BAS CRC = CA 06 --> FILE: OZDOT .COM CRC = 56 66 --> FILE: PPONG .COM CRC = 17 7D --> FILE: PPO"  #  $  %  &  '