LnSOS BOOT 1.1 SOS.KERNEL SOS KRNLI/O ERRORFILE 'SOS.KERNEL' NOT FOUND%INVALID KERNEL FILE: xةw,@  ȱlmi8#)!)SOS DRVR"TREK.FONT )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103 SEG.F D%SEG.T jDŸ/ ,WAP.STANDARDD! ,DOWNLOAD.INVD!+.SUPER.ST2.TEXT?S{D D  pDDISKNAME.DAT#DD FLASHNAME.DATGDw HELLO D/ *HELLO.TEXTDD*MENU.MAKER |D)PRINT.ALL DIII.GAM.06u' *SOS.DRIVER "k k *SOS.KERNEL J,VF;!a*SOS.INTERP 4kek )TREK.FONTzkB+SUPER.TREK2 }- WkD-READ.ME.FIRST >dLԡm#i㰼m#iЕOLԡȱfg hi !dLԡ憦  Ljmkm l y`2 Lԡ8(Je稽)ʈ@L 7  3  5  >]>>&20 *, *k*>>0 &6.&&  & >>& &>> &8&&>&&&&&&&<  ґȥӑ,10 h0  `,g0L  ҅ӥĥŰ+,0p 4 Ls  Ls i )"|tȌs|st HH` MjH,: <J h̰ <rh,oL`%CYgu9 Ln90$0%,7 ҥ L$0T,8OK50P;ҥ,8 L%\   8҅¥Ӆé҅L,5,6  & @jIH,5 p  He҅Ґhe…å逅h,23Lhd8,h)ec efeede`,5 H  h 4  `5!    4(P 4 4  `,g0L,10kH0 ԥ f0)ĭ9)9҅xh(ĥŐL i,1HȊ©L,52,9-P" a{) b) )ab)a a,h0& &+%a0 +hcefd(c,@cfabdf`cnx  (,4h`dd,9P"<:J H) +̰ H) +ʭcP h̰BTVSPLH   5"ʘ HH` (# (=  0`)aI!SHOLES 1!1!2@23#3#4$4$5%5%6^67&7&8*8*9(9(0)0)-_-=+=+\|QWERTYUI OP[{]}`~`~ASDFGHJ K L ;:;:'"'"ZXCVBNM ,<,<.>.>/?/?d0hp00000> <&<&&&<< <&&&<&><&&&< &&&&   && 7+++#&&&&&&&&&<&&< :< &&&&6,&&&##++7# #&&&< >>8  8>> ">>IIA ##?##6666..&&&&&>>><6&<&&&>&&& &&&&>"6..&&&"&&.6&&&&&&&&&&&&.,&&&& &> &&&&&&&&&&&&&&..6"&&&&&&>&&>>>  #1:CY` 9C<m><=m@=>@?AL8 >m<>@m=@<=L8 <m>?=m@AL8 C9L8 ; ;k`;);k`,@`<,m p<L<`<p<`,ms<L=q=L: ,lXL ==L: ,lCL <=L: <,n)LL8 L8 u:L8 ;)ߍ;j`; ;j`uBL8 uCL8 u)u;) u;L8    x) `(,  LuL-upp<`uqq=L: vuL L L COPYRIGHT 1981 APPLE COMPUTERMICHAEL JOSEPH DHUEY NHMH` (# (B1BBl^`h[,($ ( h ))l (+@EIR[ty} NQ#Panasonic KX-P1124 Parallel Printer2 .PARALLELC AZZ     ! ( 0 7 I N S _  . G R Y f {    ! $ 4 9 F I P S V \ a h m p s x |     ' + < ? D G N U f k p x EJMRUX]`h  2;AGMS[fot|              . 3 6 9 < ? B E H N S V \ _ b w  RY\aelpu !$(+.147<?BFILORUX]`finsw| !%*/369<?BCNU\eh "*-036<BLORX_fj &+38;?DGLTot <?BGLQgjox',/25:BGKOʈ0 Ցʭr̈A萠L: ֦ڱΑ0Б֤ h L  p,:0 JfiΥiώJe΅Хiю@ B $p̑бʑΈ0 Б̱ΑʈeمΐeمАA萿 :  `ʝ"`t  !#%')+;: 8p,:Jf׮@$PA B $P@/A'ʤ˅΄ϥ̤ͅЄ B $̑бʑΈ0Ƞ h L: $)טɀIim>ٮ@8pذ `$0"8,:Jک@ׅפ؈۩MjL,:08*Ȅ B ,:J}΅н(I I $0;P̑бʑΈ,:JՐx 0, )ߍ:) J)*PR,T,V( : `,k<,: JI`I`<,:J̰`=m@>,:J}ʅ̽(I I `<Mj,:0pJՐ̑ʈ`pJհ0`ՑʭrpȐ`=m@< B h ALg " x) (,`% (gL,}0, `gé ĩ `:) j:;jN;~j;O,:0'???>>8?>p<<AAA@@8A@q==C)CB)B Cr x) `(`hh% ( ΍ ύ逅Ñ}`` " ( ĩ~Íĩϭ & &υΠÑΈ~ F ~ҰةeÅÐн},,P,`,g$ ( $fh) `xÙ+(`xÙ&(`)4`)5`)6`)7`)8`)9`,i0!M:0p ȱq L `" (~)y ~JJ* I `x|x|,,}P-X~ F }~L } `,}00L È`,g HH`LL! l      5  Hdcefh&+si  M0   h) `(" (  (È& 8  `)2ȱÍ3`)1`Ɂ" (cefd`Hce<Le Le ,g0L HH`! ( 9EKQWbmz`(" ((è%È`2ȭ3`1`d`c`+È`&È` & IMk`4`5`6`7`8`9`<ȭ=` & @jI`:ȭpȭqé,ifg % (*+,("-#.$/&1)%)?0'`,(0LHEąĩEŅ,/'+?8fPF 8f* 2*H UhX U'+`0`)0)0 X*4,2*,10M.-- x0 0`0֤F`,(0LH  ,-! (`í-ȑí.ȑí/ȑí0ȑí1ȑ``)M#-"ȩȩȭ*ȩ`,(0LH  HL*,0))`Í-ȱÍ.ȱÍ/x0)0)? 00XȱÍ1 LPL(\)&P ěj9ȑ9ȑ99i=:i: >i>`Ɂ7XWWXjnXWi` ]?@@bgchch )^ ]b ]b^b^L\b8g+H__^8_ABB 9::)ѭ [ I[ aυ婶ZeLLL^$%Lae LGidFddddddd.ddddddddd ɕdˏd`Ls  Apple Business BASIC v1.23 - Copyright Apple Computer, 1989-93 CTERESOURCE UNAVAILABLDIRECTORY FULDUPLICATE VOLUM ERROR Please Press SPACE BAR IN PROGRAM INTERRUPTED%&'(%+.@C$DE FG!H"I'MN#PQRTW(X潭`: 808`:dd@՚H Z#IJJCSTRING TOO LONFORMULA TOO COMPLECAN'T CONTINUUNDEF'D FUNCTIOVARIABLSOS CALFILES BUSNOT SOI/FILE TOO LARGWRITE PROTECDISK SWITCHEBAD PATFILE NOT FOUNPATH NOT FOUNVOLUME NOT FOUNDUPLICATE FILDISK FULFILE LOCKEFILE NOT OPEDEVICE DISCONNECONV&CONV$CONV%LEFT$RIGHT$MID$INSTR>=<^/*-+NEXT WITHOUT FOSYNTARETURN WITHOUT GOSUOUT OF DATILLEGAL QUANTITOVERFLOOUT OF MEMORUNDEF'D STATEMENBAD SUBSCRIPRANGINVOKSTACK OVERFLOREDIM'D ARRADIVISION BY ZERILLEGAL DIRECTYPE MISMATNDEELSCONLISCLEAGENETABTSPCUSINTHEAMOSTEANOEXTENSIODIAFNOAAAAAAAAAAAAAASGNINTABSATYPRECAAAAAAAAAAPDLBUTTONSQRRNDLOGEXPCOSSINTANATNAAAAAAAAAAAASTR$HEX$CHR$LENVALASCTENAACONVOERRLIERKBEOTIMEDATEPREFIXEXFNEXFN%OUTREINDENAAAAAAAPOHOMA SUB$OFTRACNOTRACNORMAINVERSSCALERESUMALEGOTIRESTORSWAGOSURETURRESTOOALOASAVDELETRURENAMLOCUNLOCCREATEXECHAIAAACATALOAADATIMAGCADEAPRIssssssssss\3!z~IssssssssssssIG%ӓ,ssևwn7}|tttUUZ{fzxxˆU膅[L<^ENFONEXINPUOUTPUDIREAWRITOPECLOSATEXABYAAAAAWINDOINVOKPERFORAAFRHPOVP̠Ώ h:gpOn[n٧s]ds3issssssss0b>&dsjs|T}|s[ !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHuvwxŭ᭭򭭪𭭠򠭠頭퀠Šӳ頠𠠀𠠠堠젭ӠΠSOS NTRPRHeLZĠР쁭堠堠ՠP򠭠έ魭``(LH*00fg `;?MOQSUWY[]`fjnx},49?HMRV\_dx}'38;HMRUZekqv{^_ ꂅ__hg^`8 悕`gHhHhH5?6@6@*5g5666gҦhhhhhhhhg:e:;e; ;m;`@c@c?be^@e@ _m__^ \Lx] i6g55``BY BSAMHH H]fHhH_HcH uhch_hhhfhi0hhhB B A` ֥'( )&񦕤LNKM$Lb ě $m wl "m6X6+5 56ɀ56H $mhɀ(Z)& mL k~ wlL ͝dL Nsd# wl^`=8WW>X> 悅XXXL:^ g`L<^ l Jj bx bp,_;Ll  ~q$0P oՅ5R66R l ~ L%l $m0 =k $m#`$L#i)8#Ll  s s( L7bʊ# L-l m hxd5d$0H h`L^bLb$%/%5$ &5 &5e$$5e%%$&%$e$% Lk ׫ sHH ~qLPkHHh$0'ph | ZlWȥmW`L$|hXWXL-hm lmmLkl VYZZ{|| w ᐥlmmYZZ LxWXX ox ExYW# kXX 4=^W^0A, 9:: Ga.ghh 悅` A` \\ɾ,L<^hhZkKhLhhhe9e:: mLg jei `Ls j:,"hhhhLgɜEɝDɞLb Hɾɺдmhɾ Qp aj pi `p j` jLi j,d wlOZL^L^-L(dPL<^OPMNKLhhLg` Ls ҥ?ieCiLa,  aFL s a iLg ]hhh5h689H: H:HLHKHH6H5HHH` ui` pi` Qp j pi `p i` j jK$L%8eȢЅ iLOPP$pX0S&ȱhȱKȱLe潥ɂ逅$L# $mKL x~ m khLgLsLc h5逢)&a TH THLgL6k8:9: STT`)ɀLK$Lb8gLOPPKLMNhhm Vf0 mLf) mWA 0 -a mL8fW;8<< 悕` 6kLU*i kXX 4XLy \\'_ch_chbi^g \ihh ] Qp aj ih `p b iq bqn %jjg56Ly { b bq | XHWHHHֺh$PLh wlȱȱ%$LWH mh x~  m#W", mȱ28eLeji`Lwl mȱ"Ɂɂ ȱ :, iTjj ȱiVjj8逪XW0 Vf0WHW$ 0X: h ,@dd )e dʙdH &eh(dL ddک,ddLd:e``eLeHELLO ue 5eLse6e:7ee8ee:e`EAd j @a(% -, bLs j {ghhL<^gHhHhH , - b j$% @ag5h6h6hhhhh8g5h6h 悅`6 "]La ud `L  d.CONSOLE[[ TdSdddddd0 ddddd`dd A 6 s e 9c()' 9cKHLI jLdj89弅:彬: 悅`H hɝɞɜ)`dd  6芅 e ()'` e'()HKIL 9cL>hL<^) i!Ls j @aLK$L% :: 悅 lc!)` +b` +b` sL :b#`L,H s h ऊL(,L8f` A KL jLdjOPPKLL h AKL` Ѽ   (`H shLs Aji!S)Lt`SSS`L` z :0.`9::hhgg.%g& $gegަhH逪hhʰ` ҥ [ aLT ҥIJJABB=>>;<<?@@T ě hhhHH  `89$ 0~!L`!sm?iٰcL`S )!a{)Qi ڐ߽S) -ai) -aɢ ɣɍж$HS -ahʥ0SSȩ5%"/װ&hԐɈf0ɔĐ 8,f 8f L_ʅSS=ȄL`ȱi8eiidHddhd) _ ƢLh _L>h jhP _S @a-Qggeg5hih 6i6 "]S" ]$%SSSg a aL^ S S`La8 SiUjjS):,$f 0$ p = d hkddhe##5ddˏdd?Ll ,?#$04dHHd = d hkddˡddhhd`LsL#&F  ; s b 0` L+l$ Nsd#Lzm566ȱ5Ll H# wl m#͉LchL$m QRKLLsh$0LU$ LL<^~p l nhhLgOPP` Add# 6d s S SS@Ln A " r ,; s lLn#f  ;П ⭩,SLn "mʆ,S _S% nLh "mL_T ST#L(, U VV ׫$ 0  QpU65m5l5k5n j5i`d,]WXX566 |m5 ^|l5k5n %j5i5` |m l)m |m`znth` |ht`i  y my`i n*` |jkjI*mlinLyFn`nEz0ʢiH xv5ui`uei0,iiL0y{n`nI0hhL,yLy |i{ xi` |={{ {LZ{ zL{ |8ii zivjwk xlym* 蕁24(y&x&w&v0⨥ymyxlxwkwvjvL{@jjj)(L{L<^~jklmL y56y^Vy dv88; 54541r |LiHi z xz U{y xy рz xh '~z zLz z~ zm zl zk zj zL{LyJ eyexew~ev~f~ffffJ`5665y5x5w5zEn{z lkj |yjJkjlkmlmi in`emeymlexlkewkjevjLkyi&m&l&k&j8iIiii9fjfkflfmf`nIngjIjgIm lkj`L<^}i0vvvvvj`L656 wh H5Gh`lmm566 Lx5Hȱ5ȱ5 F665 w56h(` x("LH)&h`( '&'`lmm566LxĠLx znInEz{iLx y? zL||uu`8i$iznIii0ĨV y${Wiuu8Iem_B_B`)&N> ȱI8gJJ hhge ghh f feLH>H= x\L|F )XHABB8 __^hHI8e^ @1 @+?%GHHHIJJih BABGHh`$  ě u Дs IJJ^__Lveȱeȱe `LćHƽ Ƽh`$ lȱlLL{ɝɍLɎСL s HI s shmHmHlHHɦ# shmHmHlHH , hHLt  ,, shTTLui ui,L3$0 |Lu xijk6kxyy xxy6i L[ s r$PLsi,L3-hLs L*tɘcɭ_ TTLdd`jk8L|L3L3TL3,L3i LL r$PLLBLsș Ȅ ( qƚƚ` s s),;,=,#,(,,ѼLL<^L<^ llmm$P$?TUJ)TU  ' Lsi imLqLsh E0`H ty ))ELyq  8 $0!PizEn{dUeUi hLqLs `wLr !L2 {}$ 0`QɀX zLs.+"2mXm tL qXXW zzEn{i x }H$ ]kh8 )KLe9e:: }Lgi , p s$8$0p`PL<^Յ H s r ɀ ȱX Hih0 & ?<I?iE W Lq s )L<^ȱQȱȅR dj sLHoUVV$ LhU Lp$ LL<^opL^```?EXTRA IGNORED?REENTER $0pL,`LgXW ׫ k*iXX 4X \\L<^Xii7 { n k$ |WlXVVE$ P% eT{||Hd ̐h p IkLo00$0 L>o "m nV dj$D$ P 膼Lo$0",i [ kLoHSHhp< {}$ p0H 07h ]k ,LmUVV `p F sLn 2 ukLoF вLm jȪnihoi8傐IL|`7 z!L|iD8$n yiLyn)FjjjLyiɠ %}nnI*imLyjklm` s e-o+ smo..IE)2s S -+fh r$h8fL}fg s$gPf8ef B{f &{f o0`LB ` H$ge &{h 80 '~L}H |h |zEn{iLxf d$h0Ly ef q80fL}COt#t$JZ mLKjk8 | ~Lm ^|-$nșRnȩ0iL f~ azea~ } \~ } &{e B{e yx %}ei0h656H |mHlHkHjHiHl5 8eeghh^__` HHH H bqh hhhn0iɐ1 }L yxL%}\i FHHHHH 6hhhHHlm ,҄ shh)>=>hgh<<;[a{p ;<<ccb? @c@ube.a{bb,\(eb cc`ebcA[8饰 a{8`8\e@@He? ]@@?hbbb0 ea ȑbc8L@ @@h5H ?5^6_6_hhXhXhWLk ? % ?Џ`5566` xe5566ɂ66` s p `  zLseff z.!'$ iߪ$ 0 H8eAi\h$ P8 (Lt$ 0}5}} ,kk} , kklm Lٓ[ 80@ 6 2`  dkH) ojhJJJJ ojL 0:i`L<^ jHHHHHH s jhLyqhhh6h6h555_ȱ5VHHHH %L/5H6H6Ht $mlmkljkij8ihn`L,$0DpA q enHi80 @Lyu \ % @u ćh `&m&l&k&j`2L0 և yxLT}$0pLI oբRLi `u LLi u Lui0 ܆ چ,,% п 擩lm0u 1eL5665`iɀ*iH i  @8 ei $ tutt tj ȡhn` t` 0RN0R 0R$n-RRR`i` p`5665i`$0BP?iH i hLbe55f5f6e}Lme6u5u }`6ʈ`v`jip` ? #  ue }~ %u $ چ 0 u}` L uu  ) }Li <i@L{i$i0 p $ 1`ui` LL Lbb `}i~ei^~0] e e^`}`566i5`_cf_cfi^eub` ?^qbep`L<^ ?8b^e` rp`I` ? ㄩp^|be #^b ebbu|beiee^^iL56^f" ऩ थ (! ( ऩ थ (" ( द!LGb8Lऩ@iu +-ELj) e | ^ .' "5 1 p) iIii i)Lm` ?i $0 ׄ $0 $0 ^`Hhth`^Qb ^^ 8` `H Jh(L悈`H逨h` Hh8 Hɀjhji` HihJi(`  ~q$L ɺ b$P i pi$ȱLdjɻƟ dj 柰ީ Lihh sLg  s ! b   s "!!!+|] {n LU{HLʁIڢIڢ-(h#5ᆥ](IڢʥnH BiHɁy U{y рhɁ xhLB` vy{| g|S}dpL}Qz}c0~~D:~L̑56gh6hegehh `iɇoȘ戅 aziȅ xdo`Abi$nFn) i  j g g ^ ܇.Laz͠Lć ^ ׄ& ć ׄ ć ͠L- x |z K{ | T}{ x xnH yxn0 I B xh B Lр |  ZuL.y +|z% T}uH }h{ ~|H !z az ~hJ inIn`L~8;)q4X>Vt~w/z*|cYX ~uƀ1rP aziP | |iɈ { T}i8Huiiu x BU 瀩{h z` |] az 뀩]Laz | i8fe.șR0șRmymlylkykjyj00ڊIi i/ȄȪ)Re.șRI)ЪR0.ȩ+f.8f-RER/8 i:RRRRRR`y`'d |Ģ {gggegȱgehh Ľ ,L<^  8` ^LQ ŠhhL6 $P 訽5 ͎56ۥ 8ee L:^?be^@ce@c __^_ \__^;<<6  $Phihi^Ȋ^6gȑgʆ5a g5ȑgȥg <^^^__ɂ逅____<;إy6 hlhm^Ȋ^LL:^ȥ5^H^h ͎el5emȆ6п  ͎e^e__ iLZe *& eecJcm J_mm嚍J_AgBhBh \^A_B_B` ^"( zM jF566 x}z{6{LҜ #z{{"} GLsL<^ jHHH i dj ٥z{{ j}hhh ;в| |膆  RRRRH uhA?B@7B@87F8f7877878L:^7 8*JA5gB6B68 悅h圍h?H@H@HI?J@J@ "]h@h@h?gAhBhBJJ8 悅J圍J7ߚ8BܚLs`䚌B L:^`Ib^J sL͙ɚʚ `pAƚЙϚŚњ˚ ̚8 悅DDF͚ Κ8 DiFEC CD)ӚDmӚDԚCBКLěŚAݚ⚠IȌ 8 ꂍ  8 ꂅJJ` !7Ri88 pi UŦLUUU HHHHL 2hh LW iL 2hlhkhn jhimhHɗ8 Ls`LIŚ1CUDVDVU Lŧ 0 7U L`L:^֩ ŚEĚ L| Qp QeeRee8 1 V` 痠U` hh R LsL  z (L[ Rީ  @Y%(&:$LU s և ^|iHn %jHkHlHK s n ZlHmH5 s iH jHH楩e ) ,LsLR eՅ7V8U #   785U6VLΔU7e778ҥU^V_bcF_hcCgDhebbc \^__`U8傅UV` |UȱU` L<^ |UUƜ0ƛ ӗWqeWȱWqei W` |8UUWȥVUX`UeUUVUO / +'L U)łiV VL LI 8U 7ȱ7 UU ЯUVULU7V8 p L LZ U qUU qUH85h688V77U U 5qUWȥ6qUX7qWWȥ8qWW ٥IiV) V LVU?e8V je?e>e8U>e5V?e665e=e@eee8 hx57 xLCx8I77JJ8 88` H dhjL YYHH dYZZ oxhhe5566ɂ逅66 wZZY L YIL=m ) s  ʊHYImm shhhhYhZhZHHE` 3YZZ xLCxl5Ym6Z78ߠȘH yxy hL3 j kqHHHH s H , ,H s s ~qhh 1 lhhXhXhWWȱW7ȱW8 eLNLXZWX ` GGH HlHmHmH khmhmhlh hk8j7k8Lޒ e7788IjJkJk )lmm'&`UR{R||L̐: / cRRȹRRȥ Rл s `Lsh sh5lh6mh6mhxhyhy x x Qȱx7ȱx88 Ƃ 7e7888ł75 楽HHȱȱ6H6H5H s =к bqhhh Lshhhh` ~R/mZlmYZ PujHkki^^`H"h{||kjkȱ{ "ie{||  V{|56|6 w&5L<^i8e` ě u8A?pB@B@ )onL܇jkL| Nsdȩ8 NsdL2Lа,L<^ A s ׫ g iq s= sXHXHWHHHH ajL? b rLiq HHH s iqhhh5ȱ6ȱLI65 g5H6 2|H,;' L Pu  pLLwl`|H}HzH{HHH ɶ# xhH s  ~q s,; Ls  ~q$ hxrL iLpnH ~hɀ8(*iR.-:/ RRhhh{hzh}h| Pu p 0|8pJ LUL-LG -$p0`pog $mkڥrok8o,koLdjAaCcoJ mko 5 $mkk mLw L L HG56H6LExh  (`|||}z,A[ :808Ш`,ޞ@`y Gy`LHq ,`HȘe`{ai|a|h kLF  a h ; ` s 欦op б G je б ɩ ̬ 穰t d sd 7L=LVdʆ `! `Ȣ`  婐 ɩ`$ L2u u`I Il8)id`  z Q> "] a a$% iLg֢   sLj$%`8f  a e ; ` s ɩ` YLILcopL7 z0xH ׫$0_ ;h8fH`aai shH2 h zJJJJf Ik ɩ` ̬ t os YLA ևLLק jWXX` ׫$`pd8isŠt`dyoopd8ip`J uv`&&&8孪孪宐橈`! @ uA?B@B 悅@=g>h>h ]=i>j>k a=g8i>hj>h 悅ki=5j>6k6k;el)@7Me0u(> ƬƫHH ,hohp` ɩCe0R`ȹR`ee?e@e ue 5e T L=e;e`Lso`n}pm aa`dyo ɃɄ b`" lJJJJYe s ˰L8Ls LԫN l@u=ekPe tMe )llNesOet NeOetMeCOeNeȌ=e>e;ee?eJeKeLje֩ u>e?eՍ,i-i8, ȱ,%,W,pp ڠ %p`l  " ) i SOS KRNLb.D1/SOS.INTERPŠ̠Š.D1/SOS.DRIVERР頞 0 ) (lH'&3&'&#e'#%e'%'&"$"$#%'#%h`$e dMeL` bՍe :RRRiRȐȰRe9Re: J 2IHJh*=>> 95:6:6R L1 1Lԫ`L:^  aFL^R, ue 5eLڭR7>e?e5 ɩE` eĐL Ȑ 15WL QL5WW{5 ې'`,55 ې'` ݠ B1 ȩȑ Lɦ8`5  @ R㥶i ` İG8`F`X8``éۅĩ >` T֩xxMH]@ Kۅ5H ɐE$ eİ Ȱ h`h`8`W h8`hR`hLҿ i x +ۅ5ۅ6 ǰ `E8<W`­ `0XLۅ5` ռ``ߤeI`IiţO`Ȯʆ/ )󘑡`()0zq 滅ѺY Ueۅ5Ѻ Ѻ  Qܐ'`i ҩ *C8/y.i/ ȑ  © $ E7<3W`ȽLֽȄ @8`R ) [)_[AͰ")[)_[A:0/.ЩȑΘ8e * ȩ`Loü 7)?۽۩ W٠Յ<ōōř ռV7 uM78 V榠=ü#)@5 ɐ /ݐE ) .) @L `lqhٯ޿=ϓTXIֲ̛̐~ؠIJK,-NOPQ0vt `` LLɠ8`ΛLL渠`0 `8`HiHiH ihhȱh`86)IH)heuQɸ` ` W` ] %饚0` W` ߰4`)|E8LLLRLLLLL*LLLLLhh`LLL`SOS 1.3 01-NOV-82(C) 1980, 1982 BY APPLE COMPUTER INC. ) `Gƭ X̐`LLŠǠ  ݭv̅w̅ ðzv̍ŭw̍ŭƭ ­ōō T̰]ŅƮņ X̠8iȱiiȱi ṰŅǭŅ XLōۭ۩ۅ ȱ8D`F`8eYƍťǍŠ)͠ȍ۱Ǎ X̰% & !J8` *LĢ `8 iۥƍۥǍ`ۅ %  6 )Ѱ Ѱ` 𝭧e ǐ bǰL*ۈ5ȱ۠ƍȱǍ X̐ H h1  /ݐE`ۈۅ ۅ 8Hۑۑh8`P) հ Wհҥ,J+j泭۪ƳۑȊ ) ~ fPL ͊.>.ʱ+,EP!.E.Lw+,,ӄ*- P*e (` հB հ5 Wհ0,J۪泭ۑƳ sϰ(` L Ͱ2 ~ P kҐ#L8 T 2ΠHHȑhhȑ`Ld )N8` xհ*eȱ+eȱ,i۠Ѻ۹ۑ񥤅- ť.Lcԥ.La Ͱ$)rJ Lɰ )# Ԑ) ͰU..++,,IJ/ ӥ-.?Цե,J+jѲ4Ƴǥ4聠 H hH kh8`8-ȥ.L 8*Ʊ )8 0*-`.G.ʱ*+,EP'.E.LұE0+,,ӄ*p-e  )LBѠٳ )8`i (` )N8`*eȱ+eȱ,i۠Ѻ*ȱ+L - ť.Lkҥ. ՅL ͐Ld ~ pа.J/)@߅4N8`) ))УJ8` ۑȭۑǠۑۑȭۑ($S8`O8` "` / 򑺠+* ͐H h8` ΰi `()  *ǵ յý5Ņ4gȩυɩč5 iψ }.8` iϙLIѠ ˢ L΢ ΰ LϠ ˢ ΰ1` Đ@ АP8`B8`ۑJJJJ -ѥ +jѲ84ƳJJ 2ΐ3泑ƳLTΩ潑ƽ`ƱƳ ΰ( {Π۵*+)e`8`)` J J + ΰ" 0 ΰ 🱼ѼL8`ǩ Ϡ` ϰ ƑȥǑ` Ѻе*`)ȥ+8ۍې  ,ѺLTΠ"LΠ5 խ ɐ /ݐE`C8`)@ ϰa)ۥ,8ېu+J,\ ȱLJΠ) ϰ'#,J(] { ΰ ƑȥǑ.8` { ΰ,JѲ ƳL΅ƱƳ ΰҥ,J0`#$"0#`!qȱi 5H5Ƶ ǽ jh5`L2̩ƍv̥Ǎw̩ÎL%ϠƄǥLj̩۬L~̠HHh` ̐`*ѺG0?M`)J"u-- M8`۬` # ː`  = O̰)= I`JJJJѶQi Lˢ  0 ̐ `"L˦ `H8`8$$"$= O̰=`$0`#$"0`$` H hQ)fʅ F jF jF jF &!  eװ*  ̰F湥 ƹ`Z8`@  ʰ泭ۑƳ ʐ` ʐ` ˰ ƹ Wː`ۘ . . .۪8*JۦȱѶ"` ɰ Ȑ`E`Ɔ X̐8`>>5Ѷ Qܩ<`>`\ʊJJJJ ۍ۩  ˰Fȱ X̰6 0 Lɠ 0ۑۑ8ȱ`H8` ɹ $  8JJJJ8 ` ۠ǽi `< Ȱ+<#5 ې'` ɐ /ݐE`W8`R` 5&i ` Ȱ 0i `<8> ȐT eİF cȰB)Hh5 ˭)*ȑƑȥǑ'(ȑ`L)ɭ)Ѷ*e`M) `ۅH)Ѱ%}ʈh Qܐ'``hi ` p6۽ʹZ5 HȐ/i i `гW8`0( ɐ Ȱ ʮ6E`5 խ ɐ ޢ ȰLL  ΐ` Wհ> H۪ȱHۑhƳh sϰq ` ʰiȱi `)5©éՅĩ5 }JJ+`.`8`ɂ )`@ ש ְO ֤Fi ڥ(8` ְ( ȱ5 HȦ)`Lxץ: ש ְ⥺i ꥻ(8`Lx Lxש u )۠0)p խ.8`)@ ϰ) ϰۈۅƭۅǭۅ5 X̰ *ƭ۬͵̶   `x )HH8(=&(+ʈ&ਹ''&&hh(` * @ HH` 2``ӠР    0) ȑȱȱȱ008 8hhh H(`x )HH'Ƚ!88x , ,,(`," , *)` `߭lߩ * xLx @h hhh ,0)ߨ)Ah&'0HHHH xhhhh ,0)ߍLLhhh@)&&&(&('+*H)H(h)H@x )HH30.0\-JM-, J3,e$,d,,  * *l߅߅H ߅ \xi ߅LHHH *ح)0 D) HHHH,, ߩ0  xLߍ󠠩à٠΀ƉŠŠӠҠȠHHH *ح)0 D) HHHH,, ߘ)@ *)X  xI)}h)L, L )ڠ) w߭)Ů􅮈 ߠ'x)) J,QJ,SJ,U,P,W(`)(()  8)j`J j߅`0X ٠͠堘ӠȠŠ=`Insert volume: Τ in device: 蠠ɠ then press the ALPHA LOCK key twicex)_ @,P,R,T,V) )) `)8( ߠ',@ ߠ0  '葺 ݰL`5`i 祻(8`2ޝ51©ޅéąŅƍ >ϩ 1ޠ== f ɰ`ޭ`5=(5= i Х(`=H hDC5 L3ܵ ɐ /ݐ 8`5 ˥JJJJ8 H h ` ܠ825H h5 ɐ /ݐ 8`Hh ܥ5 `ɥܥܥܥܥ5`܅܅܅܅܅5`( ݰ)Ѻ ݰL ݰ泱Ƴ ʰȭۮ ʰͩΪΩۦ eװqȭqLJ  ˰Aۅƭۅ X̰2%&N  ʰƭ X̐`Ӏ堁ӠҠՈ՘̠ƠŠӠ̠ɤӮȪŅ͠Ϊ ܆5 HȰۈ)ۅƭۅ X̰ 3ڰLÍLT̥L㼠  ʰ` İK ХP8` LɐH80)N  հ)@LO ˰)0 ̐` M ­۠泭ۑƳѲƱƳ X̰ RڰäJۑĥ` İo!)N8`WپX0 ĥLä X0 ĥLà !"#$ Đ2@H AڰCŰrP` 3ڰ(` AڰѶ? İG8`Fە1 ռ İ ЩP߭)@N8`1@8` Aڰ񈱴 ˦,+* ʈJj =ؠ yiȩ`y4泱ƳHhz ʠiȱizLA`L;ؠ"  `1` Đ7@8V۩ Lɠ۪8ۊ۠X)JJJƄ X Ġȱ۠ ȍ۱۠ ۭ) ۍ ð*)#  O̰``)(`N8` ) xհۈ ̰آ*գ  Ͱ ݢգ LvL{ؠ; 窭 JJҘ)e}ҭ e8ЅЩѩӠEӅ ЭHH p0Hppxpppp( ̍pJJ ̍phh`HH p0Ex0pp(0 (p8**-p hhJJJJ 00) 0`ǀЀOHH p0%Px0pNp(PhhQL(p8**-phh SU  U.ST  UOSQ R ȥɭ }`` ? }``  }`X0i 8~XX0H }h襯` ©Wéĭ }0W`F X0A */5BL. zF`LLz Lz`Y `Ơ堧 B k L( LO  %   }` ` ?!©UéĩU󥣍V }`` ?)) $p10LYeieLVȱ d0L`Hȱ hh` WɸSI I.ȩ8A 8ɸ4ɠ(H)h h8   `    i Ȣ d` $,)?P^ GL㢮 5L}P.)(Ơ L`ޠ LR  稱 I)0JJJJѤ  БĈ` H`)à`֩ нѽ>`]PU]]UPPX0 0 PPXPP  į󠠩ҙ̙ɠΠɊՐӠӢ̢ՠҠŠԠҚРĠ鱃ԠȠࠠLQ  * WHHH>%H H @`)h8`  HШБˆeЅА SYSTEM FAILURE = $hh8`hhhxآY_Z@tPRVT,p S JJJJ ) ʍL@ i0i6`îӉ͠堧ǥӥ``HhHy)(h`H` 0L?i `h` `` `x)( 8 `jjJJԥ)եӬɂ )Ӆ҅`  `H0Xh`Π'à̠ȈL` 8`څ  Lk%  Lk8Lu텚8嚅 L L Ld V ``  h` ک V `ۅץ  VLFx) ( :` H ) L  .P'pб0 &L:L5'8+8`0Fܢ` ř,Ř 0 8f)J ӭƅХDžѥL1LUȑ  i ߩLL )  札)  ҩLL` **éL0;` H ) 4 )ߍ) hjjjjۥ0CF = -$(L !LLL&L L-LJ٥eƦ ,L  # ` (L.L…ҥÅ,] Xx,f (I0јIFjFjFji```x@gŽPy+wLwԠ͠ŠԹ.D1 .D2 .D3 .D`HJJJJh)y` (2ehi?e ueL5e qrL,op ɩ`et?ek;e`hZ L<^hZL<^L=ee>e ?e`opqrst !e5ehe?eLje LjeR=89R>:>:iR:RiRRiRL`8(RR(`EeFe  s bq Vml0L  )* i LiHh`PQPQ>P Q,PQ"PɀQ@PAQ`8`nɀ<)nopoLpp` 0h8蘠fȊf` ab 1abo)abaݰb L9c`` a N0Ioa0H ha`pLopna n`  3ɠ/8 L %iLɠ8逨J Hh $`b >_-%^%p_^^_ab"08^c_L8^c_L8^c_L8^c_ȑcc\] ab^_ ``aV R0M bba dda `Q8STRQ ST`c\ȱc]a  b 5DU e\^e]_ ^_ ^_LH8\^]_?Je\^e]_,78\^]_ ^ݰ_ ^_LH^_ $bL@A^_aoQ*@A RQL@A `T8`RLSJTKQHIQiHiIKNJ)M8逅OPOPHMIN'a MHNILHOIPaOHPI8JHFKIGFGaHMINNMʆSTL8HSITQQSTde0f`   cCȱcD C Ea  UV 1 ELUFVG FUUCVDեYCWZDXWXCUDV[ v`b0WXYZiUcȥVcWX eeYZ ggE` @SATRDžŠƠŚ̮ÎȠ Ӡ̠Ӡ` LL#L/LL'Lgab `abBcd cdBrcadbho:ab.cݰdDcݰd8abҊ v+abcabRcdTefVghXijSdfhj RR`^0U ` 0 ʠ0 8 `ůàՠԠàࠝӢӠ ȠDž̖͌͊頀ϐωŠŠӠҠȠγ`%!^0 ^)@`a R =` *^)ـooL]^)?i |TU QTU]qUoqTITsUsprRprqs]ToUXa` RL=Xa` R` *R` PASCODPASTXTTEXT PASDTABINARYFONT FOTO BASIC DATA WPTEXTSYSTEMRESERVRESERVCAT RPSDATRPSIDXAFDISCASMOD AFRPT SCNLIBk;eo $'>ed?e=93800E=3000-XA+100:P=10:S9=200*D(D)=(K(I,1)-S1)^2+(K(I,2)-S2)^2)!Q1=1)*8+1):Q2=1)*8+1)!S1=1)*8+1):S2=1)*8+1)/ Warp Engines,Damage Repair,Communications-" Phasers,Photon Torpedoes,Shie<1R9>12)130:RR=R9!X4=R9:R9=R9+1E-03:W1=W1+1E-03":"Command Order : Stand By!"9:"You are presently being assigned to a mission...")" with a failure factor of ";RR*20. :" Good-Bye, Sir..."CX=.017453:AR$=" ---> "XA=|~24: 25460<1,180,10::3660=F:"What is your security Clearance Number (1-1,000) ";T9 PE8=T93ZT9<1T9>1000AR$;"Invalid!! Re-Enter!!":70dA=1T9/2nR9=1):R9=2)x5::" Enter Rank (1=Low, 12=High) ";R9(R94 StarTrek for the Apple ///G Instructions will print on screen or printer or to disk after youH start the game and respond "Y" to the "Do you want instructions" prompt.'G(8,8),S(8,8),K(3,3):1,180, <&<&&&<< <&&&<&><&&&< &&&&   && 7+++#&&&&&&&&&<&&< :< &&&&6,&&&##++7# #&&&< >>8  80,>!>>IIA ##?##6666..&&&&&>>><6&<&&&>&&& &&&&>"6..&&&"&&.6&&&&&&&&&&&&.,&&&& &> &&&&&&&&&&&&&&..6"&&&&&&>&&>>> 0`>00000>y{>]>>&20 *, *k*>>0 &6.&&  & >>& &>> &8&&>&&&&&&&< >> " )((8*,;((*,((+)((9/(p((>3  =9 :9 .(+( 8#8# %3(8 ((,+)(%.4$)?((,(103  7  3  5  h`L)i   HH `TH..TH..TH..THATS ALL, FOLKS!R`RT RT`#RT 8*1)+1):^K3=+(R1>F1-F2*R9)+(R1>F3-F2*R9)+(R1>F4-F2*R9):K9=K9+K33hB3=(R2>F3):B9=B9+B3:G(I,J)=100*K3+10*B3+R3:J,Ir(B9>0K9>0)330D|::"OBJECTIVE: Destroy ";K9;" Klingons using ";B9;" Starbase"; U=K9:Y=B9B9=1" ";:420 "s ";:T9=K9+1)*K9/R9+10-R9:PR=T9/K9:"in ";T9;" Stardays." 42602S3=0:B3=S3:K3=B3:A=18:B=18:S(A,B)=0:B,A,A=13:B=13:K(A,B)=0:B,A:S(S1,S2)=1.X=.01*G(Q1,Q2):K3=X):Y=(X-K3)*10:B3=Y)S3=G(Q1,Q2)-100*K3-10*B3-K3=0A=13:B8-B2+8*B2/8):S2=A2+1-8*A2/8)Q3=8-B2/8):Q4=A2/8)+1'(Q1=Q3Q2=Q4)Q1=Q3:Q2=Q4:440*S(S1,S2)=1:A=S1-1S1+1:B=S2-1S2+1A>8B>8A<1B<11460S(A,B)=41340 B,A:710765,180,10::BND=Q1+1:" Long Range":" SensorThe Enterprise has successfully docked with the Base Station.":"Shields are being lowered for refueling and re-supply."!FS=0:P=10:C$="D":E=3000-XA+100 P2290 ZR1=110dD(R1)>=0R1:710%nD(R1)=D(R1)+(11*1)/R9):R1:7105xX:S(S1,S2)=0:S1=-1)+8*B1(X-1)/8)-S2=A1(X-1)+1-8*A1(X1)/8):S(S1,S2)=1<7);:AR$;"Navigational ERROR :Engines shut down at("; S1);","S2);")"T=T+(W1/24);:" You lost ";T;" units Startime restarting engines."(2S(S3,S4)<>4710<:"T=T+W1/24:718 A1(X)=.5+A1+X*C1*CX)) B1(X)=.5+B1+X*C1*CX))X=0W1)9(Q1=8-B1(X)/8)Q2=A1(X)/8+1))X=W1:1400;S3=8-B1(X)+8*B1(X)/8):S4=A1(X)+1-8*A1(X)/8)S(S3,S4)<21400.S(S1,S2)=0:S1=8-B1(XA1=8*Q2+S2-9:B1=72-8*Q1-S1:W1<1W1=W1*1.25"tE=E-2*W1:T=T+W1/25:T>T92520~A2=A1+W1*C1*CX)+.5)B2=B1+W1*C1*CX)+.5)'(A2<0A2>63B2<0B2>63)1200Q7);:AR$;"Captain, please heed Starfleet regulations! (STAY IN GALAXY ) !!132,10::1,1180,24)2D(10)<065,180,10::1,1180,248D(2)<01B:"Damage Control Report: "D$(R1)" Out."::"LR1=1)*8+1):D(R1)>=01130VD(2)<01130B`:D(R1)=1)*2:"Damage Control Report: ";D$(R1);"Repaired.":8jW1=W1*8:I=110:D(I)>=01020D(I)=D(I)+1:D(I)<01020D(2)<010201:"Damage Control Report: "D$(I)" Repaired."I:1)>.111301)>.11130 11001)>R9/10$R1=1)*8+1):D(R1)<0.D(R1)=D(R1)-10*1)-1'0D(9)<01,"":K3>02290E>5*W1980S<124507:"Captain, you only have ";E;" units of energy. "A"Refuel from your Shield Reserves, which have ";S;" units?";;Q9$="NO":": ";Q9$:(Q9$,1)="Y"Q9$,1)="y")6340A=6:D(A)<02450718, sir (0.1-9.9)?: ";W1HSL=0:KP=0:860QR:AR$"REJECTED! A valid course must be in the range of 0 to 359.99 Degrees."\(W1>0)718fD(1)>=0W1<=AC900Cp:AR$;"The Warp Engines are damaged, maximum speed is now ";ACz820 TEC=TEC+1:C$=e don't have ";D$(A);" available anymore."DT=12680:718- A820,4900,3900,1530,1790,2140,2230,26809:A=14:A;" = ";D$(A);:40);A+4;" = ";D$(A+4):A 718>4"What course, sir (0-359.99)?: ";C1:C1<0C1>359.99850,>"What warp factor7053220::"Command? (1-8, or 0 for Help): ";:A:ASQ1=Q1:SQ2=Q2@A>8A<0:" ----> Command? (1-8, or 0 for Help):";:A:ADA>8A<07);"WARNING - Proper commands only please!! ":710 A=1780D(A)>=0780@:AR$;"Captain, w1:A=6:750D(9)<07171,132,10:=D$(9);" Quad("Q1","Q2")":A=18:B=18:A$(S(A,B));:BA<8:A1,1180,247:"Shields ";S;4);"Energy ";E;4);"Photons ";P;4);"Stardays ";T9-T+(D(10)>=0)((SQ1=Q1SQ2=Q2))14S(R1,R2)=4&S3=0590 0A=1S33:R1=1)*8+1):R2=1)*8+1):S(R1,R2)<>0570DS(R1,R2)=2:ANG(Q1,Q2)=G(Q1,Q2))+.5X%l"Sector (";S1);",";S2);")"vKP<>04050DT=12680<S<200*K3AR$;"Shield Energy is too low":SL==13:K(A,B)=0:B,A:5208:7);:AR$;" CONDITION RED !!!!!":7);:A=1K33R1=1)*8+1):R2=1)*8+1):S(R1,R2)<>0500:S(R1,R2)=3:K(A,1)=R1:K(A,2)=R2:K(A,3)=S9:A:B3=0550B3=05503R1=1)*8+1):R2=1)*8+1):S(R1,R2)<>0530s"$A=(Q1-1)BND:B=(Q2-1)(Q2+1)'A<1B<1A>8B>8" ***";:1522/ PRINT" "; SPC(3-LOG(G(A,B)+1)/LOG(10));*"X,###";G(A,B);:G(A,B)=G(A,B))+.5B:A=01570/:AR$;" Computer failure hampers accuracy"=":"Phasers are locked on target. Energy available = ";E?,"Enter the number of energy units to fire (1 to ";E;"): ";6XM@E-X<0:7);"Captain, we don't have that much energy available!":718JT=Try map";40);" 5 = Present Position"@ " 2 = General Status Report";40);" 6 = Self Destruct"F " 3 = Photon Trajectory";40);" 7 = Mission Progress Report"6 " 4 = New Mission";40);" 8 = Exit Computer"  2680. :ٜ" --Temporarter your command (1-8, or 0 for Help):";:A:A:A=02720K A<0A>87):AR$;" Attention user! That does not compute!!":2690, A2900,2950,3000,2840,600,3400,5110,7183 :"Functions available from the Computer are:"C :" 1 = Galactic Memo< L+13440,3470,3490,3510,3540.F :"Do you want to try another game?: ";X$*P (X$,1)="Y"X$,1)="y")130:5420,Z 7);7):"The Federation is saved !!"1d :"You are hereby promoted to Admiral!!!!": n 2630x DT=1U :"Computer is ON - En :::::AR$; "It is now Stardate ";T: 2590  :BEEP=110:7);:1 AR$;"The Enterprise is totally disabled!!": CY=08 "There are ";K9;" Klingons remaining.":CY<>03560(( :"YOU HAVE FAILED YOU SCUMBAG!!":2 L=1)*5)!s moving!"!` R1=8*1)+1):R2=8*1)+1)j (S(R1,R2)=0)24005t S(R1,R2)=3:S(K(I,1),K(I,2))=0:K(I,1)=R1:K(I,2)=R2~ I = :7);:AR$;" The Enterprise is dead in space"::7);  CY=1::2590 K3<=02590 2290 2480 Enterprise":2310  I=13 K(I,3)<=02430%$ H=K(I,3)/D(0)+1)-.5)*1)*71. S=S-H:::H;" Unit hit from ("K(I,1));",";8 K(I,2))"), Leaving ";SB S<02550 L 1050V 1)>R9/2024301[ :" Captain, the dirty Klingon i of Repair"40)"Device State of Repair";R1=15:D$(R1)21)D(R1)40)D$(R1+5)61)D(R1+5):R1DT=12680:718F:"Sir, short Range Sensors report no Klingons in this quadrant."DT=12680:7189C$="D"K3<>0"Starbase protects 1*CX))>S4=S2+W1*C1*CX)) HS3>8S4>8S3<1S4<1710 R1950\Ef"Energy available= ";E+S;" How many units to shields, sir?:"; p" ";X zX<0718E+S-X<02150 E=E+S-XS=XSL=1718718H"Device State4K(A,1)=0:K(A,2)=0:K(A,3)=0A710M:7);:AR$;"Starbase has been destroyed":B3=0:B9=B9-1:S(S3,S4)=0:2060>:7);:AR$;"You just attacked a star, you nitwit!":710 G(Q1,Q2)=G(Q1,Q2)-10:710W1 710 *W1=084S3=S1-W1*CS4);")";A$(S(S3,S4))(S(S3,S4)+12070,2070,2050,1970,204041)<(.1*X4):"Shields deflect torpedo":718M"The Klingon has been destroyed!":S(S3,S4)=0:G(Q1,Q2)=G(Q1,Q2)-100:SQ2=0K3=K3-1:K9=K9-1:K9=02650 A=135K(A,1)=S3K(A,2)=S1+W1*C1*CX))bW1=010.9lW1=0S3=S1:S4=S2:19504v(Q1=8-B1(W1)/8)Q2=A1(W1)/8+1))718?S3=8-B1(W1)+8*B1(W1)/8):S4=A1(W1)+1-8*A1(W1)/8)#A1(W1)=A2B1(W1)=B22070A2=A1(W1):B2=B1(W1))"(";S3);","; Torpedoes have been fired!"718B&"What direction to fire Photon Torpedo, sir? (0-359.99): ";C10T=T+.05:T>T92520:P=P-1:C$<>"D"22904DA1=8*Q2+S2-9:B1=72-8*Q1-S1:C1=90*C1/90)2090"NA1(W1)=.5+A1+W1*C1*CX))"XB1(W1)=.5+B>01770,"Klingon at (";K(I,1));",";K(I,2));>") has been destroyed!":K3=K3-1:K9=K9-1:SQ2=0:K9=02650>G(Q1,Q2)=G(Q1,Q2)-100:S(K(I,1),K(I,2))=0:K(I,1)=0:K(I,2)=0 K(I,3)=0I710P>01830?7):AR$;"Captain, all Photon+.05:T>T92520 TE=E-X^C$<>"D"2290hD(8)>=01660 rX=X*1) |I=13K(I,3)<=01770"H=(X/D(0))+1)-.5)*8*1)K(I,3)=K(I,3)-H2:H;" Unit hit on vessel at (";K(I,1));",";%K(I,2));"), leaving ";K(I,3);"K(I,3)y Malfunction-- "::710 XM<02880K" :AR$;"Safety Check -- Do you wish to abort this mission?:";:AN$:AN$$, (AN$<>"Y"AN$<>"y")2680:1306 B@ :7);:"You have not been authorized for a new mission!!": J 2680"T :"Quadrant code memory map:"6^ A=18:B=18:G(A,B)=G(A,B))" ???";:2940r "X,###,X";G(A,B);| B:" ":A:2680 :" Status Report:":% "Number of Klingons left = ";K9' "Number of Stardates left = ";T9-T' "Number of Starbases left = ";B9: A that no authorization has been"2"given to activate the Self-Destruct System."="You are to proceed with your assigned mission."::26906"Be advised, your mission Progress Factor is ";PR 3780#TF=(XX*X4)/1.6:TF<10TF=TF+10E" Theunauthorized frequency!!"@"Security Control advisesse = ";PH$"Klingon Command Central = ";PJE"Set communications to which channel, sir? (";PH;" or ";PJ;"):"; "";XFXF=PH4330XF=PJ4620"$,:7);:7);:AR$;" ALERT !!"O6"There has been an attempted communication on an PF=XX 3780 PG=XXPH=PD*10+PEPJ=PF*10+PGPH=PJ2830"KP=1:PD=PEPF=PG4040:40601"Sunspots block transmission attempt. ":718*"Move elsewhere and try again"::820"Authorized frequencies":$"Federation Command Ba "Do you wish reassignment to a less hazardous mission? (Y OR N):";:AN$:AN$(AN$="Y"AN$="y")130(240;2:7);:"You have requested a suicide mission.":3840 <"--Communications Active--"F P3780 ZPD=XX d3780 nPE=XX x3780,1180,24:XX=2)*10)+1:X4>123890J:"Command Central advises that your ranking-";X4;"-is in the Expert"D"category. Be advised that if you are not properly qualified,"0"your chances of avoiding failure are nil."Q O9O"!`" 135 . O45"j" . . ."t" . . ."$~"18O . .Warp--Compass. . OOO"" . . ."" . . ."!" 225 . 315"" 27O";1mbecile !! We suggest that you consider suicide!" T<=02630:3560) L=(U-K9)*10+((U-K9)*500/T)-100*(Y-B9) E<=0S<0L=L-200 K9=0L=L+(R9*100):!"Your mission rating is: ";L $5440 85450 B2630L33,164,10:V" 02630:3560) :"You will be executed at sunrise." 35608 :"You will be put to death for your incompetence." 35604 :"You will be confined to your quarters until". " Vulcan's moons become tourist traps!!" T<=02630:3560: :"I:S(A,B)=4S(A,B)=0 * B,A:L4 Q1=K1Q2=K2"You have arrived in time! Our Starbase has been saved!" > KA=0:H SD<>14220:5310R 710 \ 3660 f 2680,p :"You have screwed up once too often!"(z "Off to the Vulcan torture camps!!" T<=:7);:7);:AR$;"!!! Our Starbase in Quadrant ("K1)",";K2);") is under attack!!"2 :"You have ";TK-T;" Stardates to save it!": T.01*R9B9=0 KA=1:A=18:B=18< G(A,B)-100*G(A,B)/100)>9K1=A:K2=B:1)>.5A=8:B=80 B,A:TK=T+.09*(Q1-K1)^2+(Q2-K2)^2)*(10-R9) TK=TK+1] 1-((K(I,2)-S2)/W1)^2))0 C1=C1*S1-K(I,1))/CX: C2(I)=C1-(10*1))D C3(I)=C1+(10*1))N C3(I)<0C3(I)=C3(I)+360X C2(I)<0C2(I)=C2(I)+360!b "(";K(I,1));",";K(I,2));l ")",C2(I),C3(I),W1v I DT=12680:710  MR=(T9-T)/K9:DT=7:750 K3=02270 D(9)<0A=9:740& "Coord","Lowdir","Highdir","Dist" A=149:"-";:A I=03 (K(I,3)>0)3190% W1=(S1-K(I,1))^2+(S2-K(I,2))^2)# W1=0"--->Malfunction!":710  œ28307 C1=1.5708-(K(I,2)-S2)/W1/ Tolerance Factor for this mission is [+/-] ";TF;" percent"XM)+24340,4380,4400XM)>(TF*1.5)4460XM)>TF44307:"Captain, you are behind schedule - Let's Go !!"710I:"You are exactly on computed schedule, proceed with your mission."&710#0XM>TF4550:XM>(TF*1.5)4580D::"You are ahead of computed schedule, keep up the good work!!"D710?N:"You are behind schedule and out of tolerance factor !!"KX" Command Control projects failure...You may sur15)"THREE";7);7);7)::5430!10)"TWO";7);7)::54305)"ONE";7)::5430""ZERO":5430 ,FLASH=111::::::63906I=150:A=A+1::@I=11200:A=A+1:: J63902T Introduction to game. R. Schrader, 1/12/835U 1,180,24:::" Good-bye Private...." 5430<"Self Destruct System activated........";7);7);7):::5430:"Countdown begun !"::125)"FIVE";7);7);7);7);7)::5430,20)"FOUR";7);7);7);7)::5430(80x:SD=1:KD=0D"Captain, Comand Central projects defeat by enemy. You are now"C"authorized to surrender or to activate Self-Destruct System." 2680:SD=0:KD=1E"Captain, Federation Command projects success for your mission." 4550/"Your combat situation has ";PW$;" by a factor of ";XM;" percent."$<XM)>=TFEG$=" not ":EG$=" "FEG$=" "EH$="":EH$=AR$GPEH$;" Your progress is ";EG$;" within tolerance for this mission."ZdEG$=" not "5230:2680nXM<05240:52;" is now repaired !!":D(A)=4*1):TEC=0:718-:AR$;" Nothing damaged at present":710 4300/ "Initial Mission Progress Factor was: ";PR/"Current Mission Progress Factor is: ";MR-XM<0PW$=" Worsened ":PW$=" Improved "(G2.D(A)<010)A;20)D$(A);40)"DAMAGED">:"If no damage is indicated above, answer with 0 (Zero)"&"Which one to repair (0-10)?: ";AA<1A>10AR$;:718D(A)<05080-:D$(A);" is not damaged !!":5040):20)D$(A)EC"D"4970:4990$BAU=AV-TEC:AU=1KF$="":KF$="s"%L:"Damage Repair is inactive !!"-V"Requires ";AU;" more recharge unit";KF$ `:718@j:AR$;" You must be docked at Starbase for Damage Repair!!" t:718~:A=110d":718 37806XX<=5" Klingon Command to Enterprise...":4740 4880&:"Message from Klingon leaders:"?:" We concede the war, sir.... you really pulled one"0" over our foreheads this time!!":3610$AV=X4/2)+1:DR=-1.TQ4720,4740,4780,4780,4750 GF=TF*1.5XM>GF4880XM>TF4840J:" Captain, despite your slight advantage, you are no match for"@" the glorious Klingon fleet.....in your face, CHUMP!!"6:25)"End of message from Klingon Commaners-"::5440 R2610 \3780fXX<=54740'p:"Message from Klingon Command: "Gz:" We will have no further communications at this time":4830B:" We'll talk with our weapons, CADAVER-BREATH !!":4830 3780AQ=(XX+1)/2) AG4" Naturally, we are pleased that you are wimping out, Captain"F>" We are presently boarding your craft, trashing the cabins,"F?" drinking your wine, and having a generally wonderful time!":H:" Here is a message from your lead7);:AR$;"Message from Command Base:";7)<:" Enemy has surrendered to Federation Command !!": 2650 KQ=14880:EQ=14650XM)+24640,4700,4750 XM)<=TF4700?*:"Captain, Klingon Command is on the hailing frequency: ":"Lights out, Captain.............":3:"End of message from Federation Command":: 5440 5310?:"You are ahead of schedule and beyond tolerance factor."C"Call the Klingon leader-dogs and order their surrender.":KQ=1 :39003:render to the enemy."bEQ=1:SD=1:3900 lYY=AC^X47:AR$;"--------- Computer Projection ----------":H"Projected likelihood of success for your mission =T";YY;" percent"H:"We have auto-activated the Self-Destruct System on your vessel."+ Corrected and enhanced by E. Gooding, 2/23/87@V Font creation/game modification by P. Campbell, 11/11/94;W Communications error fixed by Joel Crump on 11/9/94 ^:::8h" Space - the Final Frontier!":Kr" These are the voyages of the Starship Enterprise. The Mission: "H|" To seek new life and new civilizations; to boldly go where no":" man has gone before."::::@:::::"Do you need instructions? (Y or N): ";:Q9$:Q9$( of any of the"."ship's functions. "8.B"- Computer (activated by pressing '8')"4L" Accesses the on-board Apple /// Computer."V:!X:Q9$<>".CONSOLE"::6240-["Press Return to continue: ";:Q8$:::F`" For a list of avains like yours, your ship has"A"shields to protect it. This command controls the amount of"4"energy allocated to the Enterprise's shields."4"- Damage control (activated by pressing '7')"D$" Enables you to check the operational statusG" One of ten torpedoes can be fired at a Klingon. They must be""manually aimed."!:Q9$<>".CONSOLE"::6110-"Press Return to continue: ";:Q8$:::-"- Shields (activated by pressing '6')"A" As the Klingons have weapo"and allows you to select which one to activate."-"- Phasers (activated by pressing '4')"A" Computer-controlled high energy beams are fired at all""Klingons in the quadrant.6"- Photon Torpedoes (activated by pressing '5')"u"/+"are docked at one of Star Fleet's Bases."!,:Q9$<>".CONSOLE"::5940-/"Press Return to continue: ";:Q8$:::44>"- Communications (activated by pressing '3')"DH" Displays both Star Fleet and Klingon hailing frequencies,"6Rmand, you"E"will be asked for a direction of travel ( 0 to 359.99 degrees,"6 "0 is right, 90 is up, etc), and the Warp Speed."3 "- Damage Repair (activated by pressing '2')"E*" allows you to selectively repair damage, but only when yoended. If you ever run out of"4"energy, you will be immobile and defenseless.")" A summary of commands follows:"F"- Warp (activated by entering a '1' in response to 'Command?')"D" 'Warp' moves the Starship. Upon entering the com::G" In your pursuit of Klingons, you will have a large number of"E"units of energy. These can by used to move the ship, to defend"G"the ship, or to fire at Klingons. In executing any of the afore-"F"mentioned functions, energy is exp^ ^ $"" ^ * # ^ ^ ^ ^ ^"" ^ ^ ^ * ^ ^ ^ *"F"The Klingons are represented by '#', Stars by '*', your ship by"5"an '@', Bases by '$', and empty sectors by '^'"!:Q9$<>".CONSOLE"::5800-"Press Return to continue: ";:Q8$:ess Return to continue: ";:Q8$:::?:" When you are in a quadrant, it will be displayed as:"D" ^ ^ ^ ^ ^ ^ ^ ^"N" ^ # ^ ^ ^ ^ * ^"X" ^ ^ ^ ^ ^ ^ ^ ^"b" * ^ ^ * ^ ^ ^ ^"l" ^ ^ ^ ^ ^ @ ^ ^"v" ^ ^ ^ # ^ lored quadrants. the 3-digit"A"numbers encode information about quadrants. The first digitC&"tells how many Klingons are in the quadrant; the second, how"60"many friendly Bases; the third, how many Stars."!2:Q9$<>".CONSOLE"::5690-5"Prd com-""puter, looks like this:"@Q8=13:" ??? ??? ??? ??? ??? ??? ??? ???":Q83" ??? ??? ??? ??? 316 ??? ??? ???"@Q8=14:" ??? ??? ??? ??? ??? ??? ??? ???":Q8E"The question marks represent unexp Enterprise. Your mission"-"will be to rid the galaxy of Klingons."E" The known galaxy is mapped into 64 quadrants (8 x 8). Each"7"quadrant is composed of 64 sectors (also 8 X 8)."D" A map of the galaxy, as represented by your on-boarQ9$="N"Q9$="n")I"Enter the pathname to send the output to ('Return' =.CONSOLE):";Q9$Q9$=""Q9$=".CONSOLE"#1,Q9$:#1 ::::A" ********** Welcome to Star Trek **********":F" You are in control of the Starshiplable commands, type a '0' when asked for"j"a command."t*~" Some free advice for beginners:"9" 1) Put energy in the shields before warping."?" 2) when in doubt, consult the Computer (Command 8)"?" 3) Choose a low Security Clearance and a low Rank."#12"Press any key to start your mission: ";:Q8$." Amount to transfer from shields?: ";Q8Q8<0Q8>S6340S=S-Q8:E=E+Q8:*E;" Units of energy now - try again." ::=23::".D1/MENyou be asked for the direction then the warp factor. Entering a warp factor of "1" will place your ship in the next quadrant. Entering a ".1" will move you one sector within the quadrant. An engine efficiency shift takes place at warp ".3". At this warp faability, you will be reminded of it very quickly by the Federation or the Klingons, but not in that order! A word about Warping and Photon Torpedoes The warp engines can take you one sector at a time or to the other side of the galaxy. When activated, Federation Bases. If that isn't enough, the Klingon ships grow more numerous with stronger shields. They can also effectively dodge your Phasers and Photon torpedoes, and tend to attack Starbases more frequently. If you select a rank that is beyond your nning of the game. You'll probably want to play at the lower levels until you get promoted to Admiral! At the higher levels, you must have precise control over the warp engines and the ability to plot your course accurately to respond to attacks on distantndom, and you may find yourself suddenly in the midst of a Klingon occupied sector with no visual scanners until AFTER you destroy a ship! (preferably not you own...:) In playing the game, you will be given a few pointers in the instructions at the begithe top half being for visual display of the Short Range Scanners, the Warp Compass, and the Long Range Scanners, and the bottom half being for commands and warnings. Speaking of warnings, you should know that the starting position of the Enterprise is raverything was located. This and the other minor problems were corrected by simply editing the Basic program code in Apple- Writer ///, then executing the WP file from Basic. (Don't try this on a MS-DOS system!) During play your screen will be split, with ington Apple PI TCS. The other difficulty had to do with the Galactic Memory Map displayed by the ship's computer. This map showed the explored regions of the galaxy, but grew distorted with usage to the point where it was really hard to tell just were eblems with the original Basic program, but nothing really serious except for a syntax error which would pop up and kill the game when you tried to activate communications to the Federation or the Klingons. The fix for this came from Joel Crump via the Washsing CustomFont, then modified for this version of StarTrek. Aside from all the characters being enhanced, the characters used to represent the star ships and bases are new to work in harmony with the program code modifications. There were a few minor pro WAP /// SIG PD LIBRARY PDS NAME : SUPER TREK 2 BY PAUL CAMPBELL DISK ID : 3GAM-06 BOOTABLE : YES - SIDE ONE ONLY Welcome to the latest update of StarTrek for the Apple ///. The first change you will notice is the new character set which was created uU.MAKER"ctor and above, you must consider the sector occupied by your ship as one of the traveled sectors. For example, if you need to dock with a Starbase and there are six markers between the Enterprise and the Starbase, you should enter ".7" to dock with the Starbase. You really should check with the computer before firing off those valuable photon torpedoes, because you cannot reload except by docking at a Starbase, and also because you WILL get hit by the Klingon ships whether you hit them or not. When you! This disk contains a much improved version of Super Trek - the StarTrek (c) game for all of us SARAsaurs. You can run it from Menu.Maker simply by highlighting "Super.Trek2" in the menu. An ASCII version of the Business Basic progra0 WELCOME! WAP /// SIG Public Domain Library Disk Category/Number : Games / 3GAM-06 Disk Format: Self-booting Paul Campbell has done it again /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// /// SIG, Washington Apple Pi 12022 Parklawn Drive Rockville, MD. 20852 (301)-984-030HER SUBROUTINEnSLOW=110xFLASH/2=FLASH/2):۴ =11:=07 FLASH$ SLOW FLASH:".d1/Menu.Maker"5 WAP /// SIG HELLO PROGRAM. UPDATED 4/12/89 DGO :#1,".D1/hello.text" ž#170 (#1;ERIN$ 2ERIN$<40F#1/P=23:=25:"PRESS ANY KEY TO CONTINUE.":G$U-Z#2,".D1/FLASHNAME.DAT":#2;FLASH$:#2%dFLASH=110: FLASTHE WAP OFFICE LIBRARY HAS A NUMBER OF APPLE /// BOOKS AND MAGAZINES. SUPER STARTREK 2 BY PAUL CAMPBELL ing down control-c, or by rebooting if you don't want to complete the game in the normal way. Of course, you COULD take the Klingon approach to ending the game.... naw, maybe not! - PAUL CAMPBELL /// SIG CO-CHAIRMAN FEBRUARY, 1995 effective at close range, but use a lot of energy units. Be sure that you know where the the closest Starbase is if you use them frequently. You will be given some pointers at the beginning of the game if you ask for them. The game can be aborted by hold do ask for photon trajectories, you will be given a high and a low reading for the photon direction. The most accurate trajectory will be the exact middle between the two numbers (H-L/2+L=direct hit). The phasers lock on target automatically and are verym is included, along with some notes on how to play the game from Paul. We hope you enjoy this game and encourage your submission of programs to our PD library. 0 WAP /// SIG MENU.MAKER PROGRAM (v. 6.2) =".D1"210: Coldstart (320: Warmstart &*X=11000: TEXT SLOW-DOWN LOOP ,X.1 CHANGE DISK SUBROUTINE23œ202:2200<RFa$=" YOU MAY SELECT YOUR DISK BY M$="NOVEMBER":1750M$="DECEMBER":1750826);"-";M$;" ";Ѡ,2));", ";"19";Р,2);" ";/П,2))=>13П,2))-12;џ,6);:1780$П,2))=0"12";џ,6);:ٟ;$П,2))=>12" PM-":" AM-" 1830WW=1530 =26:=211660,1670,1680,1690,1700,1710,1720,1730,1740^M$="JANUARY":1750hM$="FEBRUARY":1750rM$="MARCH":1750|M$="APRIL":1750M$="MAY":1750M$="JUNE":1750M$="JULY":1750M$="AUGUST":1750M$="SEPTEMBER":1750M$="OCTOBER":1750T 0")2070H540R\A$="RUNNING "+B$(I),16,B)f"79C";A$;:=0pB$(I),16,B) z::SEG=1".D1/SEG.T"t=+B$(I),16,B) yCT=CT+1~240:=24:=0:"@ ..... "DATE.TIME.LINE" ....JM=Ҡ,4,2))BTM1630,1640,1650,0=+IBOTM/2-.5):I=IBOTM:I/2=I/2)I=I-1 œ2120B=B$(I),16)," ")-1 B$(I),"BASIC 0")850B$(I),"TEXT 0")890 B$(I),"CAT 0")1140*B$(I),"FONT 0")18504B$(I),"FOTO 0")1930>B$(I),"PASTXB$(I);v:520: 500THPOS=4:I/2=I/2)I=I-1I=IBOTM THPOS=44:I/2<>I/2)I=I+1I2=-1:I=I-2:IBOTM<30THPOS=44I=IBOTM/2)*2:=+IBOTM/2)-1:CA)"PRINT.ALL": OA+P 3HA=(81+UCA)A=(81+LCA):::: OA+Q Quits 3IA=(83+LCA)A=(83+UCA)"PRINT.SHOW": OA+S 2JA=(68+LCA)A=(68+UCA)/Screen.Savers/HELLON=THPOS:B$(I);XA<8A>11540bA-7640,660,690,720l:=THPOS:ٺ1600 =Q:WW=0A=:A=21A=9&oldprefix$=40A=31410: Control C "aborts" program to Basic(:A=13770: Return Selects a file *DA=27:50: Escape to change disks/FA=324000: back out one directory level 3GA=(80+UCA)A=(80+L"BASIC 0":150A$="TEXT 0":150A$="CAT 0":150A$="FONT 0":150A$="FOTO 0":150A$(L),"BLOCKS")510*=27:=19:"FREE MEMORY AVAILABLE: ";=7:=20:"80C";A$(L);$:=5:THPOS=4:I=1:IBOTM=J-1:620Q=:=26:=21:sic; +Q Quits."r12);::"80C";a$;:+w#9,"DISKNAME.DAT":#9;DISKNAME$:#9|d$=DISKNAME$$=23:=0::"80C";d$;::12)201M=3:=14:"This /// SIG Disk is \^ 19";Р,2)", Washington Apple `, Ltd."=4:B$(1)="":B$(2)=""A$=16,B) THEN 240 #1, d$="":=10:"80C";d$ ž#1300I=0"I=I+1:#1;A$(I):290,#1 6L=I-1@j=1:same=0 J:SEG=0 Tœ2030^CT<1CT=1cCT>13000Zha$="{,|,~,}; selects; to new disk; J/2)=4:=+1:ۙ=44B$(J);:J=J+1I:1,180,22:2,280,21:2,2380,23:8A$(1000),B$(1000),C%(511),C$(20),name$(20):=10:=0UCA=128:LCA=UCA+32CT=15 IF PREFIX$= PREFIX$+MID$(B$(I),VOLUME NAME (/DISKNAME) OR DEVICE NAME (.Dx)"P12);::"80C";a$;:Zb$="CHANGING DISKS"$d=23:=0::"80C";b$;::12).n=12:=20:"MAKE A NEW MENU FOR DISK: ";N$xN$)<2110=N$ :210 I=1L(A$(I),A$))200B$ 1600 &:WW=1:0 :SEG=1;".D1/SEG.F" SEG=1".D1/SEG.G"diskname$=3802  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T READ PASCAL TEXT FILES."04=10:"78C";"ANY KEY RETURNS TO THE MENU.">G$:::320H: Error Routine 202:U=11:"79C";"BAD PATH ERROR (NO DISK IN DISK DRIVE OR DESIRED FILE NOT FOUND.)"X=11000:X:::210Z a$="{,|,~,}; selects; back 1 leve MENU.MAKER FONT MODULESEG=0"Menu.Maker"D"Download.Inv"NC$=B$(I),16,B)Xarray$="C%"bname$=34)+C$+34)lgetfont(@name$,@array$)vloadfont(@array$)J=1:SAME=0".D1/MENU.MAKER",3202010C$="N"C$="n"200;:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": 20002,280,21 DF$(I)=D$+"/DISKNAME.DAT"F$(I)=D$+"/FLASHNAME.DAT"410:ۺ310 PRINTER v 1.0 p$ 900A$="PRINTING"+F$(I):$=01:=0::"80C";A$;::12)F=23:=0::"79C";"PRESS ANY KEY TO HALT PRINTING"::2,280,21 2000*:=23:=0::"79C";"CONTINUE...?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"#1,D$::"Processing directory ";34);D$;34);", please wait."; ž#1880*#1;A$:A$)<48104A$,3,4)<>"TEXT"810>X=X+1:".";HE=15:F$=A$,16,15)RF$,E,1)=" "E=E-1:850\F$(X)=D$+"/"+F$,E)f810p:  Pausež#1740#1;A$:A$)<4710A$,3,4)="TEXT"X=X+1710 :X>YN=P::7);"There are no text files in the ";34);D$;34);" directory." ::I=P::7);"Unable to locate and open ";34);D$;34);" directory." ::IT$=N$,E,1):T$=" "T$=","610XE=E+1:E>N$)610:590bD$=N$,S,E-S)l:v:E>S+1600:D$="": œ770P=3:"Looking for ";34);D$;34);" directory." #1,D$=P3:"Reading from ";34);D$;34);" directory." I>X200300S=1:D=1:B=1570D$=""500 Y=X:S=ED$(D)=D$:640 X=Y440D=D+1:S=E:440D=D-1:X=0F$(X):X=0 J=1D D$=D$(J)790&J0 :œ6303DE=S+1:N$,S,1)=" "N$,S,1)=","S=S+1:580%Nž#2390 ^1000c: h#2;a$ma$rY=1150:Y0wB=B+1: Count the number of lines printed xB=15B=30355yB=60#3;12)zB=60B=1 {#3;a$|360B<=20#3;13)::410#3;12):Z=11000:ZI I=3d: PRINTER V. 1.0 ::=2::"PRINT.ALL v. 1.0":3=4:"Directory Name(s) or return to quit: ";n$N$)=0::"MENU.MAKER"430 X>0260I=11000:I:200: ,I=1X 14000 6#2,F$(I)@#3,".PRINTER" Ja$,1)="/"5060:s=s-1 5030=a$240 MENU.MAKER 6.2 * Thanks to C.M.Davidson for his help!l; =23:=0::" GETFONT ~$ <"<"""<< <"""<"><$""< """"  "" 6***""""""""""<""< :< $"""2,"""""**6"""""< >>>>88  >!"*:<"">""""""""""""">>><2"<""">""" ""  ">"6**"""""&*2""""""""""""*,"" "" ">""""""""""""""**6"""""""> >>>xrr|>00000>0# #0>>< (&20 *, **>> "2*&" " >>  ">> "8""> """"""< >> " )((8*,;((*,((+)((9/(p((>3  =9 :9 .(~|L|LNqooGoDDDcc0ccpc]]c"QM"|@@pAATT**|GA7  3  5  EAD PASCAL TEXT FILES."04=10:"78C";"ANY KEY RETURNS TO THE MENU."!>G$:::".D1/MENU.MAKER",320R",220(204::"79A";""; 2D=1:F=1 <#4;a$ FD=D+1 P#5;a$ZD=60#5;12)dD=60D=1nF=F+1::d$;::Y=1100:Y x13402  CATCH PASCAL TEXT FILES 202 :F*=08:"78C";"SORRY BUT MENU.MAKER CAN'T R".D1/MENU.MAKER",220 d$="" A$="PRINTING "+B$(I),16,B)=01:=0::"80C";A$;:#3,B$(I),16,B)Z=1#3;b$:"78A";b$Z=Z+1:Z=18:1290 1260 #4,B$(I),16,B)#5,".PRINTER"+ž#4#5;12):::".D1/MENU.MAKE30C$="N"C$="n"1160;:=23:=0::"79C";"PRESS ANY KEY TO HALT LISTING": $1020.202 8::Z=1B::=23:=0::"79C";"WOULD YOU LIKE A PRINTED COPY?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"1170*C$="N"C$="n"79C";"PRESS ANY KEY TO HALT LISTING"::202 1020#2,B$(I),16,B)ž#242:::1160Z=1#2;A$:"78A";A$Z=Z+1:Z>1842:::Z=1980*:=23:=0::"79C";"CONTINUE...?":1C$:C$<>"Y"C$<>"y"C$<>"N"C$<>"n"10GA3/1.01:7SY IF X4>=9 THEN 3800 240 E=3000-XA+100:P=10:S9=200 250 DEF FN D(D)=SQR((K(I,1)-S1)^2+(K(I,2)-S2)^2) 260 Q1=INT(RND(1)*8+1):Q2=INT(RND(1)*8+1) 270 S1=INT(RND(1)*8+1):S2=INT(RND(1)*8+1) 280 DATA Warp Engines,Damage Repair,Communications 290 d Order : Stand By!" 180 PRINT:PRINT"You are presently being assigned to a mission..." 190 PRINT" with a failure factor of ";RR*20. 200 PRINT:PRINT" Good-Bye, Sir..." 210 CX=.017453:AR$=" ---> " 220 XA=INT(X4*50):AC=(1/(X4+.1)) 230 :GOTO 70 100 FOR A=1 TO T9/2 110 R9=RND(1):R9=RND(2) 120 NEXT 130 CLEAR:PRINT:INPUT" Enter Rank (1=Low, 12=High) ";R9 140 IF(R9<1 OR R9>12) THEN GOTO 130:ELSE RR=R9 150 X4=R9:R9=R9+1E-03:W1=W1+1E-03 170 PRINT:PRINT"Comman  DIM G(8,8),S(8,8),K(3,3):WINDOW 1,1 TO 80,24:HOME 50 GOSUB 5460 60 WINDOW 1,1 TO 80,10:HOME:GOSUB 3660 70 PRINT:INPUT"What is your security Clearance Number (1-1,000) ";T9 80 E8=T9 90 IF T9<1 OR T9>1000 THEN PRINT AR$;"Invalid!! Re-Enter!!" 10 REM StarTrek for the Apple /// 20 REM 21 REM Instructions will print on screen or printer or to disk after you 22 REM start the game and respond "Y" to the "Do you want instructions" 23 REM prompt. 29 REM 30 GETFONT GETFONT DOARRAY2QLOADFONT LOADFONTDOARRAY2ARRAY2 Y5ȱg6ȱg@ ɀLDg eegghI8e556l6m`  lmL}\ZYc&h:h; (+65;H:H`,.CONSOLEg<:/.-+*(% CX`hhh5h66HH :~5~HHH|})   |}) @  hhh ghzh{ Qghhh5h66 HHH566 qyhhhpx{HzH`~DATA Phasers,Photon Torpedoes,Shield Control 300 DATA Damage Control,Computer,Short Range Sensors,Long Range Sensors 310 FOR A=1 TO 10:READ D$(A):D(A)=RND(1)*8:NEXT A 320 A$(0)=" ^ ":A$(1)=" @ ":A$(2)=" * ":A$(3)=" # ":A$(4)=" $ " 330 F1=.86:F2=.01:F3=.95:F4=.99:K9=0:B9=K9 340 FOR I=1 TO 8:FOR J=1 TO 8:R1=RND(1):R2=RND(1):R3=INT(8*RND(1)+1) 350 K3=+(R1>F1-F2*R9)+(R1>F3-F2*R9)+(R1>F4-F2*R9):K9=K9+K3 360 B3=(R2>F3):B9=B9+B3:G(I,J)=100*K3+10*B3+R3:NEXT J,I 370 IF NOT(B9>0 AND K9>0) TH R1=INT(RND(1)*8+1):IF D(R1)<0 THEN RETURN 1070 D(R1)=D(R1)-10*RND(1)-1 1072 IF D(9)<0 THEN WINDOW 1,1 TO 32,10:HOME:WINDOW 1,11 TO 80,24 1074 IF D(10)<0 THEN WINDOW 65,1 TO 80,10:HOME:WINDOW 1,11 TO 80,24 1080 IF D(2)<0 THEN RETURN 1090 PRII)=D(I)+1:IF D(I)<0 THEN 1020 1000 IF D(2)<0 THEN 1020 1010 PRINT:PRINT"Damage Control Report: "D$(I)" Repaired." 1020 NEXT I:IF RND(1)>.1 THEN 1130 1030 IF RND(1)>.1 THEN 1130 1040 GOTO 1100 1050 IF RND(1)>R9/10 THEN RETURN 1060 PRINT"Refuel from your Shield Reserves, which have ";S;" units?"; 950 Q9$="NO":INPUT": ";Q9$:IF(LEFT$(Q9$,1)="Y" OR LEFT$(Q9$,1)="y") THEN GOSUB 6340 960 A=6:IF D(A)<0 THEN 2450 970 GOTO 718 980 FOR I=1 TO 10:IF D(I)>=0 THEN 1020 990 D(RINT:PRINT AR$;"The Warp Engines are damaged, maximum speed is now ";AC 890 GOTO 820 900 TEC=TEC+1:C$="":IF K3>0 THEN GOSUB 2290 910 IF E>5*W1 THEN 980 920 IF S<1 THEN 2450 930 PRINT:PRINT"Captain, you only have ";E;" units of energy. " 940 THEN 850 830 INPUT"What warp factor, sir (0.1-9.9)?: ";W1 840 SL=0:KP=0:GOTO 860 850 PRINT:PRINT AR$"REJECTED! A valid course must be in the range of 0 to 359.99 Degrees." 860 IF NOT(W1>0) THEN 718 870 IF D(1)>=0 OR W1<=AC THEN 900 880 P IF DT=1 THEN 2680:ELSE 718 780 ON A GOTO 820,4900,3900,1530,1790,2140,2230,2680 790 PRINT:FOR A=1 TO 4:PRINT A;" = ";D$(A);:PRINT TAB(40);A+4;" = ";D$(A+4):NEXT A 800 GOTO 718 820 INPUT"What course, sir (0-359.99)?: ";C1:IF C1<0 OR C1>359.99 or 0 for Help):";:GET A:PRINT A 730 IF A>8 OR A<0 THEN PRINT CHR$(7);"WARNING - Proper commands only please!! ":GOTO 710 740 IF A=1 THEN 780 750 IF D(A)>=0 THEN 780 760 PRINT:PRINT AR$;"Captain, we don't have ";D$(A);" available anymore." 770; 716 PRINT SPC(4);"Stardays ";T9-T 717 IF(D(10)>=0) AND( NOT(SQ1=Q1 AND SQ2=Q2)) THEN 1470 718 GOSUB 3220:PRINT:PRINT"Command? (1-8, or 0 for Help): ";:GET A:PRINT A 719 SQ1=Q1:SQ2=Q2 720 IF A>8 OR A<0 THEN PRINT:PRINT" ----> Command? (1-8,7 711 WINDOW 1,1 TO 32,10:HOME 712 PRINT D$(9);" Quad("Q1","Q2")":FOR A=1 TO 8:FOR B=1 TO 8:PRINT A$(S(A,B));:NEXT B 713 IF A<8 THEN PRINT:NEXT A 714 WINDOW 1,11 TO 80,24 715 PRINT:PRINT"Shields ";S; SPC(4);"Energy ";E; SPC(4);"Photons ";PXT A 590 G(Q1,Q2)=INT(G(Q1,Q2))+.5 600 PRINT 620 PRINT"Sector (";STR$(S1);",";STR$(S2);")" 630 IF KP<>0 THEN 4050 640 IF DT=1 THEN 2680 650 IF S<200*K3 THEN PRINT AR$;"Shield Energy is too low":SL=1:A=6:GOTO 750 710 IF D(9)<0 THEN 71EN 550 520 IF B3=0 THEN 550 530 R1=INT(RND(1)*8+1):R2=INT(RND(1)*8+1):IF S(R1,R2)<>0 THEN 530 540 S(R1,R2)=4 550 IF S3=0 THEN 590 560 FOR A=1 TO S3 570 R1=INT(RND(1)*8+1):R2=INT(RND(1)*8+1):IF S(R1,R2)<>0 THEN 570 580 S(R1,R2)=2:NE:K(A,B)=0:NEXT B,A:GOTO 520 490 PRINT:PRINT CHR$(7);:PRINT AR$;" CONDITION RED !!!!!":PRINT CHR$(7);:FOR A=1 TO K3 500 R1=INT(RND(1)*8+1):R2=INT(RND(1)*8+1):IF S(R1,R2)<>0 THEN 500 510 S(R1,R2)=3:K(A,1)=R1:K(A,2)=R2:K(A,3)=S9:NEXT A:IF B3=0 TH S3=0:B3=S3:K3=B3:FOR A=1 TO 8:FOR B=1 TO 8:S(A,B)=0:NEXT B,A 450 FOR A=1 TO 3:FOR B=1 TO 3:K(A,B)=0:NEXT B,A:S(S1,S2)=1 460 X=.01*G(Q1,Q2):K3=INT(X):Y=(X-K3)*10:B3=INT(Y) 470 S3=G(Q1,Q2)-100*K3-10*B3 480 IF K3=0 THEN FOR A=1 TO 3:FOR B=1 TO 3EN 330 380 PRINT:PRINT:PRINT"OBJECTIVE: Destroy ";K9;" Klingons using ";B9;" Starbase"; 390 U=K9:Y=B9 400 IF B9=1 THEN PRINT" ";:GOTO 420 410 PRINT"s "; 420 T9=K9+RND(1)*K9/R9+10-R9:PR=T9/K9:PRINT"in ";T9;" Stardays." 430 GOSUB 4260 440 NT:PRINT"Damage Control Report: "D$(R1)" Out.":PRINT:RETURN 1100 R1=INT(RND(1)*8+1):IF D(R1)>=0 THEN 1130 1110 IF D(2)<0 THEN 1130 1120 PRINT:D(R1)=RND(1)*2:PRINT"Damage Control Report: ";D$(R1);"Repaired.":PRINT 1130 W1=W1*8:A1=8*Q2+S2-9:B1=72-8*Q1-S1:IF W1<1 THEN W1=W1*1.25 1140 E=E-2*W1:T=T+W1/25:IF T>T9 THEN 2520 1150 A2=INT(A1+W1*COS(C1*CX)+.5) 1160 B2=INT(B1+W1*SIN(C1*CX)+.5) 1170 IF NOT(A2<0 OR A2>63 OR B2<0 OR B2>63) THEN 1200 1180 PRINT CHR$(7);:PRINT AR$;"Captain, please B1(W1)=INT(.5+B1+W1*SIN(C1*CX)) 1890 FOR W1=0 TO 10 STEP .9 1900 IF W1=0 THEN S3=S1:S4=S2:GOTO 1950 1910 IF NOT(Q1=8-INT(FN B1(W1)/8) AND Q2=INT(FN A1(W1)/8+1)) THEN 718 1920 S3=8- FN B1(W1)+8*INT(FN B1(W1)/8):S4= FN A1(W1)+1-8*INT(FN A1irection to fire Photon Torpedo, sir? (0-359.99): ";C1 1840 T=T+.05:IF T>T9 THEN 2520 1850 P=P-1:IF C$<>"D" THEN GOSUB 2290 1860 A1=8*Q2+S2-9:B1=72-8*Q1-S1:IF C1=90*INT(C1/90) THEN 2090 1870 DEF FN A1(W1)=INT(.5+A1+W1*COS(C1*CX)) 1880 DEF FN,Q2)-100:S(K(I,1),K(I,2))=0:K(I,1)=0:K(I,2)=0 1760 K(I,3)=0 1770 NEXT I 1780 GOTO 710 1790 PRINT 1800 IF P>0 THEN 1830 1810 PRINT CHR$(7):PRINT AR$;"Captain, all Photon Torpedoes have been fired!" 1820 GOTO 718 1830 INPUT"What dK(I,1));","; 1710 PRINT STR$(K(I,2));"), leaving ";K(I,3);" 1720 IF K(I,3)>0 THEN 1770 1730 PRINT"Klingon at (";STR$(K(I,1));",";STR$(K(I,2)); 1740 PRINT") has been destroyed!":K3=K3-1:K9=K9-1:SQ2=0:IF K9=0 THEN 2650 1750 G(Q1,Q2)=G(Q1$<>"D" THEN GOSUB 2290 1640 IF D(8)>=0 THEN 1660 1650 X=X*RND(1) 1660 FOR I=1 TO 3 1670 IF K(I,3)<=0 THEN 1770 1680 H=(X/ FN D(0))+SGN(RND(1)-.5)*8*RND(1) 1690 K(I,3)=K(I,3)-H 1700 PRINT:PRINT H;" Unit hit on vessel at (";STR$(";E 1580 PRINT"Enter the number of energy units to fire (1 to ";E;"): "; 1590 INPUT X 1600 IF E-X<0 THEN PRINT:PRINT CHR$(7);"Captain, we don't have that much energy available!":GOTO 718 1610 T=T+.05:IF T>T9 THEN 2520 1620 E=E-X 1630 IF C":PRINT 1524 NEXT A:WINDOW 1,11 TO 80,24:GOTO 718 1530 PRINT 1540 IF K3<=0 THEN 2270 1550 IF D(8)>=0 THEN 1570 1560 PRINT:PRINT AR$;" Computer failure hampers accuracy" 1570 PRINT:PRINT"Phasers are locked on target. Energy available = TO BND:FOR B=(Q2-1) TO(Q2+1) 1490 IF A<1 OR B<1 OR A>8 OR B>8 THEN PRINT" ***";:GOTO 1522 1500 REM PRINT" "; SPC(3-LOG(G(A,B)+1)/LOG(10)); 1510 PRINT USING"X,###";G(A,B);:G(A,B)=INT(G(A,B))+.5 1522 NEXT B:IF A8 OR B>8 OR A<1 OR B<1 THEN 1460 1450 IF S(A,B)=4 THEN 1340 1460 NEXT B,A:GOTO 710 1470 WINDOW 65,1 TO 80,10:HOME:BND=Q1+1:PRINT" Long Range":PRINT" Sensors" 1480 FOR A=(Q1-1) =0 THEN NEXT R1:GOTO 710 1390 D(R1)=D(R1)+(11*RND(1)/R9):NEXT R1:GOTO 710 1400 NEXT X:S(S1,S2)=0:S1=8-B2+8*INT(B2/8):S2=A2+1-8*INT(A2/8) 1410 Q3=8-INT(B2/8):Q4=INT(A2/8)+1 1420 IF NOT(Q1=Q3 AND Q2=Q4) THEN Q1=Q3:Q2=Q4:GOTO 440 1430 S(S1,S20 1340 PRINT:PRINT"The Enterprise has successfully docked with the Base Station.":PRINT"Shields are being lowered for refueling and re-supply." 1350 S=0:P=10:C$="D":E=3000-XA+100 1360 GOSUB 2290 1370 FOR R1=1 TO 10 1380 IF D(R1)> PRINT CHR$(7);:PRINT AR$;"Navigational ERROR :Engines shut down at("; 1290 PRINT STR$(S1);","STR$(S2);")" 1300 T=T+(W1/24) 1310 PRINT:PRINT" You lost ";T;" units Startime restarting engines." 1320 PRINT 1330 IF S(S3,S4)<>4 THEN 71) THEN X=W1:GOTO 1400 1240 S3=8- FN B1(X)+8*INT(FN B1(X)/8):S4= FN A1(X)+1-8*INT(FN A1(X)/8) 1250 IF S(S3,S4)<2 THEN 1400 1260 S(S1,S2)=0:S1=8- FN B1(X-1)+8*INT(FN B1(X-1)/8) 1270 S2= FN A1(X-1)+1-8*INT(FN A1(X1)/8):S(S1,S2)=1 1280 heed Starfleet regulations! (STAY IN GALAXY ) !! 1190 T=T+W1/24:GOTO 718 1200 DEF FN A1(X)=INT(.5+A1+X*COS(C1*CX)) 1210 DEF FN B1(X)=INT(.5+B1+X*SIN(C1*CX)) 1220 FOR X=0 TO INT(W1) 1230 IF NOT(Q1=8-INT(FN B1(X)/8) AND Q2=INT(FN A1(X)/8+1)(W1)/8) 1930 IF FN A1(W1)=A2 AND FN B1(W1)=B2 THEN 2070 1940 A2= FN A1(W1):B2= FN B1(W1) 1950 PRINT"(";STR$(S3);",";STR$(S4);")";A$(S(S3,S4)) 1960 ON S(S3,S4)+1 GOTO 2070,2070,2050,1970,2040 1970 IF RND(1)<(.1*X4) THEN PRINT:PRINT"Shields deflect torpedo":GOTO 718 1980 PRINT"The Klingon has been destroyed!":S(S3,S4)=0:G(Q1,Q2)=G(Q1,Q2)-100:SQ2=0 1990 K3=K3-1:K9=K9-1:IF K9=0 THEN 2650 2000 FOR A=1 TO 3 2010 IF K(A,1)=S3 AND K(A,2)=S4 THEN K(A,1)=0:K(A,2)=0:K(A,3 Mission Progress Report" 2760 PRINT" 4 = New Mission"; TAB(40);" 8 = Exit Computer" 2820 GOTO 2680 2830 PRINT:PRINT ERR" --Temporary Malfunction-- " ERRLIN:OFF ERR:GOTO 710 2840 IF XM<0 THEN 2880 2850 PRINT:PRINT AR$;"Safety Cns available from the Computer are:" 2730 PRINT:PRINT" 1 = Galactic Memory map"; TAB(40);" 5 = Present Position" 2740 PRINT" 2 = General Status Report"; TAB(40);" 6 = Self Destruct" 2750 PRINT" 3 = Photon Trajectory"; TAB(40);" 7 =d (1-8, or 0 for Help):";:GET A:PRINT A:IF A=0 THEN GOTO 2720 2700 IF A<0 OR A>8 THEN PRINT CHR$(7):PRINT AR$;" Attention user! That does not compute!!":GOTO 2690 2710 ON A GOTO 2900,2950,3000,2840,600,3400,5110,718 2720 PRINT:PRINT"Functio(X$,1)="y") THEN 130:ELSE 5420 2650 PRINT CHR$(7);CHR$(7):PRINT"The Federation is saved !!" 2660 PRINT:PRINT"You are hereby promoted to Admiral!!!!":PRINT 2670 GOTO 2630 2680 DT=1 2690 PRINT:PRINT"Computer is ON - Enter your commanning.":IF CY<>0 THEN 3560 2600 PRINT:PRINT"YOU HAVE FAILED YOU SCUMBAG!!":PRINT 2610 L=INT(RND(1)*5) 2620 ON L+1 GOTO 3440,3470,3490,3510,3540 2630 PRINT:INPUT"Do you want to try another game?: ";X$ 2640 IF(LEFT$(X$,1)="Y" OR LEFT$ PRINT"It is now Stardate ";T:PRINT 2540 GOTO 2590 2550 PRINT 2560 PRINT:FOR BEEP=1 TO 10:PRINT CHR$(7);:NEXT 2570 PRINT AR$;"The Enterprise is totally disabled!!":PRINT 2580 CY=0 2590 PRINT"There are ";K9;" Klingons remai:PRINT AR$;" The Enterprise is dead in space":PRINT:PRINT CHR$(7); 2460 PRINT 2470 CY=1:PRINT:GOTO 2590 2480 IF K3<=0 THEN 2590 2490 GOSUB 2290 2500 GOTO 2480 2510 PRINT 2520 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT AR$; 2530" Captain, the dirty Klingon is moving!" 2400 R1=INT(8*RND(1)+1):R2=INT(8*RND(1)+1) 2410 IF NOT(S(R1,R2)=0) THEN 2400 2420 S(R1,R2)=3:S(K(I,1),K(I,2))=0:K(I,1)=R1:K(I,2)=R2 2430 NEXT I 2440 RETURN 2450 PRINT:PRINT CHR$(7);GN(RND(1)-.5)*RND(1)*7 2350 S=S-H:PRINT:PRINT:PRINT H;" Unit hit from ("STR$(K(I,1));","; 2360 PRINT STR$(K(I,2))"), Leaving ";S 2370 IF S<0 THEN 2550 2380 GOSUB 1050 2390 IF RND(1)>R9/20 THEN 2430 2395 PRINT:PRINTthis quadrant." 2280 IF DT=1 THEN 2680:ELSE 718 2290 IF C$="D" AND K3<>0 THEN PRINT"Starbase protects Enterprise":ELSE 2310 2300 RETURN 2310 PRINT 2320 FOR I=1 TO 3 2330 IF K(I,3)<=0 THEN 2430 2340 H=K(I,3)/ FN D(0)+S State of Repair" TAB(40)"Device State of Repair" 2250 FOR R1=1 TO 5:PRINT D$(R1) TAB(21)D(R1) TAB(40)D$(R1+5) TAB(61)D(R1+5):NEXT R1 2260 IF DT=1 THEN 2680:ELSE 718 2270 PRINT:PRINT"Sir, short Range Sensors report no Klingons in y available= ";E+S;" How many units to shields, sir?:"; 2160 INPUT" ";X 2170 IF X<0 THEN 718 2180 IF E+S-X<0 THEN 2150 2190 E=E+S-X 2200 S=X 2210 IF SL=1 THEN 718 2220 GOTO 718 2230 PRINT 2240 PRINT"Device G(Q1,Q2)-10:GOTO 710 2070 NEXT W1 2080 GOTO 710 2090 FOR W1=0 TO 8 2100 S3=INT(S1-W1*SIN(C1*CX)) 2110 S4=INT(S2+W1*COS(C1*CX)) 2120 IF S3>8 OR S4>8 OR S3<1 OR S4<1 THEN 710 2130 GOTO 1950 2140 PRINT 2150 PRINT"Energ)=0 2020 NEXT A 2030 GOTO 710 2040 PRINT:PRINT CHR$(7);:PRINT AR$;"Starbase has been destroyed":B3=0:B9=B9-1:S(S3,S4)=0:GOTO 2060 2050 PRINT:PRINT CHR$(7);:PRINT AR$;"You just attacked a star, you nitwit!":GOTO 710 2060 G(Q1,Q2)=heck -- Do you wish to abort this mission?:";:GET AN$:PRINT AN$ 2860 IF(AN$<>"Y" AND AN$<>"y") THEN 2680:ELSE 130 2870 PRINT 2880 PRINT:PRINT CHR$(7);:PRINT"You have not been authorized for a new mission!!":PRINT 2890 GOTO 2680 2900 PRINT:PRINT"Quadrant code memory map:" 2910 FOR A=1 TO 8:FOR B=1 TO 8:IF G(A,B)=INT(G(A,B)) THEN PRINT" ???";:GOTO 2940 2930 PRINT USING"X,###,X";G(A,B); 2940 NEXT B:PRINT" ":NEXT A:GOTO 2680 2950 PRINT:PRINT" Status ReportETURN 3780 XX=INT(RND(2)*10)+1 3790 RETURN 3800 PRINT:IF X4>12 THEN 3890 3810 PRINT:PRINT"Command Central advises that your ranking-";X4;"-is in the Expert" 3820 PRINT"category. Be advised that if you are not properly qualified," ." 3710 PRINT"18O . .Warp--Compass. . OOO" 3720 PRINT" . . ." 3730 PRINT" . . ." 3740 PRINT" 225 . 315" 3750 PRINT" 27O"; 3760 WINDOW 1,11 TO 80,24:PRINT 3770 R PRINT 3620 GOSUB 5440 3640 GOTO 5450 3650 GOTO 2630 3660 WINDOW 33,1 TO 64,10:HOME 3670 PRINT" O9O" 3680 PRINT" 135 . O45" 3690 PRINT" . . ." 3700 PRINT" . . you consider suicide!" 3550 IF T<=0 THEN 2630:ELSE 3560 3560 L=(U-K9)*10+((U-K9)*500/T)-100*(Y-B9) 3570 IF E<=0 OR S<0 THEN L=L-200 3580 IF K9=0 THEN L=L+(R9*100) 3590 PRINT:PRINT 3600 PRINT"Your mission rating is: ";L 3610 for your incompetence." 3500 GOTO 3560 3510 PRINT:PRINT"You will be confined to your quarters until" 3520 PRINT" Vulcan's moons become tourist traps!!" 3530 IF T<=0 THEN 2630:ELSE 3560 3540 PRINT:PRINT"Imbecile !! We suggest that :PRINT"You have screwed up once too often!" 3450 PRINT"Off to the Vulcan torture camps!!" 3460 IF T<=0 THEN 2630:ELSE 3560 3470 PRINT:PRINT"You will be executed at sunrise." 3480 GOTO 3560 3490 PRINT:PRINT"You will be put to death NEXT B,A:RETURN 3380 IF Q1=K1 AND Q2=K2 THEN PRINT"You have arrived in time! Our Starbase has been saved!" 3390 KA=0:RETURN 3400 IF SD<>1 THEN 4220:ELSE 5310 3410 GOTO 710 3420 GOSUB 3660 3430 GOTO 2680 3440 PRINT" Stardates to save it!":RETURN 3330 IF T.01*R9 OR B9=0 THEN RETURN 3260 KA=1:FOR A=1 TO 8:FOR B=1 TO 8 3270 IF G(A,B)-100*INT(G(A,B)/100)>9 THEN K1=A:K2=B:IF RND(1)>.5 THEN A=8: IF C2(I)<0 THEN C2(I)=C2(I)+360 3170 PRINT"(";STR$(K(I,1));",";STR$(K(I,2)); 3180 PRINT")",C2(I),C3(I),W1 3190 NEXT I 3200 IF DT=1 THEN 2680:ELSE 710 3210 RETURN 3220 MR=(T9-T)/K9:DT=0 3230 XM=((MR-PR)/PR)*100 !":GOTO 710 3090 ON ERR GOTO 2830 3100 C1=1.5708-ATN((K(I,2)-S2)/W1/SQR(1-((K(I,2)-S2)/W1)^2)) 3120 C1=C1*SGN(S1-K(I,1))/CX 3130 C2(I)=C1-(10*RND(1)) 3140 C3(I)=C1+(10*RND(1)) 3150 IF C3(I)<0 THEN C3(I)=C3(I)+360 3160 PRINT"Coord","Lowdir","Highdir","Dist" 3030 FOR A=1 TO 49:PRINT"-";:NEXT A 3040 PRINT 3050 FOR I=0 TO 3 3060 IF NOT(K(I,3)>0) THEN 3190 3070 W1=SQR((S1-K(I,1))^2+(S2-K(I,2))^2) 3080 IF W1=0 THEN PRINT"--->Malfunction:":PRINT 2960 PRINT"Number of Klingons left = ";K9 2970 PRINT"Number of Stardates left = ";T9-T 2980 PRINT"Number of Starbases left = ";B9:PRINT 2990 A=7:GOTO 750 3000 IF K3=0 THEN 2270 3010 IF D(9)<0 THEN A=9:GOTO 740 3020 3830 PRINT"your chances of avoiding failure are nil." 3840 PRINT 3850 PRINT"Do you wish reassignment to a less hazardous mission? (Y OR N):";:GET AN$:PRINT AN$ 3870 IF(AN$="Y" OR AN$="y") THEN 130 3880 GOTO 240 3890 PRINT:PRINT CHR$(7);:PRINT"You have requested a suicide mission.":GOTO 3840 3900 PRINT"--Communications Active--" 3910 PRINT 3920 GOSUB 3780 3930 PD=XX 3940 GOSUB 3780 3950 PE=XX 3960 GOSUB 3780 3970 PF=XX 3980 GOSUB 3780ur craft, trashing the cabins," 4671 PRINT" drinking your wine, and having a generally wonderful time!" 4680 PRINT:PRINT" Here is a message from your leaders-":PRINT:GOSUB 5440 4690 GOTO 2610 4700 GOSUB 3780 4710 IF XX<=5 T0,4700,4750 4640 IF ABS(XM)<=TF THEN 4700 4650 PRINT:PRINT"Captain, Klingon Command is on the hailing frequency: " 4660 PRINT" Naturally, we are pleased that you are wimping out, Captain" 4670 PRINT" We are presently boarding yoPRINT CHR$(7);:PRINT AR$;"Message from Command Base:";CHR$(7) 4590 PRINT:PRINT" Enemy has surrendered to Federation Command !!" 4600 PRINT:PRINT 4610 GOTO 2650 4620 IF KQ=1 THEN 4880:IF EQ=1 THEN 4650 4630 ON SGN(XM)+2 GOTO 464and":PRINT:PRINT 4530 GOSUB 5440 4540 GOTO 5310 4550 PRINT:PRINT"You are ahead of schedule and beyond tolerance factor." 4560 PRINT"Call the Klingon leader-dogs and order their surrender.":KQ=1 4570 PRINT:GOTO 3900 4580 PRINT:ood of success for your mission =T";YY;" percent" 4500 PRINT:PRINT"We have auto-activated the Self-Destruct System on your vessel." 4510 PRINT:PRINT"Lights out, Captain.............":PRINT 4520 PRINT:PRINT"End of message from Federation Comme factor !!" 4440 PRINT" Command Control projects failure...You may surrender to the enemy." 4450 EQ=1:SD=1:GOTO 3900 4460 YY=AC^X4 4480 PRINT:PRINT AR$;"--------- Computer Projection ----------":PRINT 4490 PRINT"Projected likelih your mission." 4390 GOTO 710 4400 IF XM>TF THEN 4550:IF XM>(TF*1.5) THEN 4580 4410 PRINT:PRINT"You are ahead of computed schedule, keep up the good work!!" 4420 GOTO 710 4430 PRINT:PRINT"You are behind schedule and out of toleranc GOTO 4340,4380,4400 4340 IF ABS(XM)>(TF*1.5) THEN 4460 4350 IF ABS(XM)>TF THEN 4430 4360 PRINT:PRINT"Captain, you are behind schedule - Let's Go !!" 4370 GOTO 710 4380 PRINT:PRINT"You are exactly on computed schedule, proceed withNT"Be advised, your mission Progress Factor is ";PR 4280 GOSUB 3780 4290 TF=(XX*X4)/1.6:IF TF<10 THEN TF=TF+10 4300 PRINT" The Tolerance Factor for this mission is [+/-] ";TF;" percent" 4310 PRINT 4320 RETURN 4330 ON SGN(XM)+220 PRINT 4230 PRINT"Security Control advises that no authorization has been" 4240 PRINT"given to activate the Self-Destruct System." 4250 PRINT"You are to proceed with your assigned mission.":PRINT:GOTO 2690 4260 PRINT 4270 PRIRINT 4170 PRINT"While a security check is conducted on the Enterprise" 4180 GOSUB 3780:A=XX 4190 GOSUB 3780:I=(XX/2)+(X4/7) 4200 PRINT" your ";D$(A);" will be inoperative for ";I;" units of Startime." 4210 D(A)=D(A)-I:GOTO 710 42 INPUT"";XF 4110 IF XF=PH THEN 4330 4120 IF XF=PJ THEN 4620 4130 PRINT 4140 PRINT:PRINT CHR$(7);:PRINT CHR$(7);:PRINT AR$;" ALERT !!" 4150 PRINT"There has been an attempted communication on an unauthorized frequency!!" 4160 PNT:GOTO 820 4060 PRINT"Authorized frequencies":PRINT 4070 PRINT"Federation Command Base = ";PH 4080 PRINT"Klingon Command Central = ";PJ 4090 PRINT 4100 PRINT"Set communications to which channel, sir? (";PH;" or ";PJ;"):"; 4105 3990 PG=XX 4000 PH=PD*10+PE 4010 PJ=PF*10+PG 4020 IF PH=PJ THEN 2830 4030 KP=1:IF PD=PE OR PF=PG THEN 4040:ELSE 4060 4040 PRINT"Sunspots block transmission attempt. ":GOTO 718 4050 PRINT"Move elsewhere and try again":PRIHEN 4740 4720 PRINT:PRINT"Message from Klingon Command: " 4730 PRINT:PRINT" We will have no further communications at this time":GOTO 4830 4740 PRINT:PRINT" We'll talk with our weapons, CADAVER-BREATH !!":GOTO 4830 4750 GOSUB 3780 4760 AQ=INT((XX+1)/2) 4770 ON AQ GOTO 4720,4740,4780,4780,4750 4780 GF=TF*1.5 4790 IF XM>GF THEN 4880 4800 IF XM>TF THEN 4840 4810 PRINT:PRINT" Captain, despite your slight advantage, you are no match for" 4820 PRIication by P. Campbell, 11/11/94 5463 REM Communications error fixed by Joel Crump on 11/9/94 5470 PRINT:PRINT:PRINT:PRINT 5480 PRINT" Space - the Final Frontier!":PRINT 5490 PRINT" These are the voyages of the SOR I=1 TO 50:A=A+1:NEXT:RETURN 5440 FOR I=1 TO 1200:A=A+1:NEXT:RETURN 5450 GOTO 6390 5460 REM Introduction to game. R. Schrader, 1/12/83 5461 REM Corrected and enhanced by E. Gooding, 2/23/87 5462 REM Font creation/game modif(7);CHR$(7):PRINT:GOSUB 5430 5390 PRINT TAB(10)"TWO";CHR$(7);CHR$(7):PRINT:GOSUB 5430 5400 PRINT TAB(5)"ONE";CHR$(7):PRINT:GOSUB 5430 5410 PRINT"ZERO":GOSUB 5430 5420 FOR FLASH=1 TO 11:NORMAL:HOME:INVERSE:HOME:NEXT:GOTO 6390 5430 F PRINT:PRINT"Countdown begun !":PRINT:PRINT 5360 PRINT TAB(25)"FIVE";CHR$(7);CHR$(7);CHR$(7);CHR$(7);CHR$(7):PRINT: GOSUB 5430 5370 PRINT TAB(20)"FOUR";CHR$(7);CHR$(7);CHR$(7);CHR$(7):PRINT:GOSUB 5430 5380 PRINT TAB(15)"THREE";CHR$(7);CHR$r your mission." 5300 GOTO 4550 5310 WINDOW 1,1 TO 80,24:INVERSE:HOME:PRINT" Good-bye Private...." 5320 GOSUB 5430 5330 PRINT"Self Destruct System activated........";CHR$(7);CHR$(7);CHR$(7) 5340 PRINT:PRINT:PRINT:GOSUB 5430 5350 PRINT"Captain, Comand Central projects defeat by enemy. You are now" 5260 PRINT"authorized to surrender or to activate Self-Destruct System." 5270 GOTO 2680 5280 PRINT:SD=0:KD=1 5290 PRINT"Captain, Federation Command projects success fo IF EG$=" " THEN EH$="":ELSE EH$=AR$ 5200 PRINT EH$;" Your progress is ";EG$;" within tolerance for this mission." 5210 PRINT 5220 IF EG$=" not " THEN 5230:ELSE 2680 5230 IF XM<0 THEN 5240:ELSE 5280 5240 PRINT:SD=1:KD=0 5250 ission Progress Factor is: ";MR 5150 IF XM<0 THEN PW$=" Worsened ":ELSE PW$=" Improved " 5160 PRINT 5170 PRINT"Your combat situation has ";PW$;" by a factor of ";XM;" percent." 5180 IF ABS(XM)>=TF THEN EG$=" not ":ELSE EG$=" " 5190 (A);" is now repaired !!":PRINT 5090 D(A)=4*RND(1):TEC=0:GOTO 718 5100 PRINT:PRINT AR$;" Nothing damaged at present":GOTO 710 5110 PRINT 5120 GOSUB 4300 5130 PRINT"Initial Mission Progress Factor was: ";PR 5140 PRINT"Current Md above, answer with 0 (Zero)" 5040 INPUT"Which one to repair (0-10)?: ";A 5050 IF A<1 OR A>10 THEN PRINT AR$;:GOTO 718 5060 IF D(A)<0 THEN 5080 5070 PRINT:PRINT D$(A);" is not damaged !!":GOTO 5040 5080 PRINT:PRINT TAB(20)D$must be docked at Starbase for Damage Repair!!" 4980 PRINT:GOTO 718 4990 PRINT 5000 PRINT:FOR A=1 TO 10 5010 IF D(A)<0 THEN PRINT TAB(10)A; TAB(20)D$(A); TAB(40)"DAMAGED" 5020 NEXT 5030 PRINT:PRINT"If no damage is indicate20 IF C$<>"D" THEN 4970:ELSE 4990 4930 AU=AV-TEC:IF AU=1 THEN KF$="":ELSE KF$="s" 4940 PRINT:PRINT"Damage Repair is inactive !!" 4950 PRINT"Requires ";AU;" more recharge unit";KF$ 4960 PRINT:GOTO 718 4970 PRINT:PRINT AR$;" You 880 PRINT:PRINT"Message from Klingon leaders:" 4890 PRINT:PRINT" We concede the war, sir.... you really pulled one" 4891 PRINT" over our foreheads this time!!":GOTO 3610 4900 AV=INT(X4/2)+1:DR=-1 4910 IF TEC".CONSOLE" THEN PRINng frequencies," 5970 PRINT"and allows you to select which one to activate." 6030 PRINT 6040 PRINT"- Phasers (activated by pressing '4')" 6050 PRINT" Computer-controlled high energy beams are fired at all" 6060 PRINT"Klingons iF Q9$<>".CONSOLE" THEN PRINT:PRINT:GOTO 5940 5935 PRINT"Press Return to continue: ";:GET Q8$:HOME:PRINT:PRINT 5940 PRINT 5950 PRINT"- Communications (activated by pressing '3')" 5960 PRINT" Displays both Star Fleet and Klingon haili, and the Warp Speed." 5910 PRINT 5920 PRINT"- Damage Repair (activated by pressing '2')" 5930 PRINT" allows you to selectively repair damage, but only when you" 5931 PRINT"are docked at one of Star Fleet's Bases." 5932 PRINT:Ictivated by entering a '1' in response to 'Command?')" 5880 PRINT" 'Warp' moves the Starship. Upon entering the command, you" 5890 PRINT"will be asked for a direction of travel ( 0 to 359.99 degrees," 5900 PRINT"0 is right, 90 is up, etc)ny of the afore-" 5830 PRINT"mentioned functions, energy is expended. If you ever run out of" 5840 PRINT"energy, you will be immobile and defenseless." 5850 PRINT" A summary of commands follows:" 5860 PRINT 5870 PRINT"- Warp (a: ";:GET Q8$:HOME:PRINT:PRINT 5800 PRINT" In your pursuit of Klingons, you will have a large number of" 5810 PRINT"units of energy. These can by used to move the ship, to defend" 5820 PRINT"the ship, or to fire at Klingons. In executing a^ ^ ^ *" 5780 PRINT"The Klingons are represented by '#', Stars by '*', your ship by" 5790 PRINT"an '@', Bases by '$', and empty sectors by '^'" 5792 PRINT:IF Q9$<>".CONSOLE" THEN PRINT:PRINT:GOTO 5800 5795 PRINT"Press Return to continue5710 PRINT" ^ # ^ ^ ^ ^ * ^" 5720 PRINT" ^ ^ ^ ^ ^ ^ ^ ^" 5730 PRINT" * ^ ^ * ^ ^ ^ ^" 5740 PRINT" ^ ^ ^ ^ ^ @ ^ ^" 5750 PRINT" ^ ^ ^ # ^ ^ ^ $" 5760 PRINT" ^ * # ^ ^ ^ ^ ^" 5770 PRINT" ^ ^ ^ * ny Stars." 5682 PRINT:IF Q9$<>".CONSOLE" THEN PRINT:PRINT:GOTO 5690 5685 PRINT"Press Return to continue: ";:GET Q8$:HOME:PRINT:PRINT 5690 PRINT" When you are in a quadrant, it will be displayed as:" 5700 PRINT" ^ ^ ^ ^ ^ ^ ^ ^" ks represent unexplored quadrants. the 3-digit" 5660 PRINT"numbers encode information about quadrants. The first digit 5670 PRINT"tells how many Klingons are in the quadrant; the second, how" 5680 PRINT"many friendly Bases; the third, how ma20 FOR Q8=1 TO 3:PRINT" ??? ??? ??? ??? ??? ??? ??? ???":NEXT Q8 5630 PRINT" ??? ??? ??? ??? 316 ??? ??? ???" 5640 FOR Q8=1 TO 4:PRINT" ??? ??? ??? ??? ??? ??? ??? ???":NEXT Q8 5650 PRINT"The question marNT" The known galaxy is mapped into 64 quadrants (8 x 8). Each" 5590 PRINT"quadrant is composed of 64 sectors (also 8 X 8)." 5600 PRINT" A map of the galaxy, as represented by your on-board com-" 5610 PRINT"puter, looks like this:" 56 PRINT:PRINT:PRINT:PRINT: 5550 PRINT" ********** Welcome to Star Trek **********":PRINT 5560 PRINT" You are in control of the Starship Enterprise. Your mission" 5570 PRINT"will be to rid the galaxy of Klingons." 5580 PRIT:PRINT:GOTO 6110 6105 PRINT"Press Return to continue: ";:GET Q8$:HOME:PRINT:PRINT 6110 PRINT 6120 PRINT"- Shields (activated by pressing '6')" 6130 PRINT" As the Klingons have weapons like yours, your ship has" 6140 PRINT"shields to protect it. This command controls the amount of" 6150 PRINT"energy allocated to the Enterprise's shields." 6160 PRINT 6170 PRINT"- Damage control (activated by pressing '7')" 6180 PRINT" Enables you to check the operational s again." 6380 RETURN 6390 TEXT:HOME:VPOS=23:PRINT:RUN ".D1/Menu.Maker" LOSE#1 6320 PRINT"Press any key to start your mission: ";:GET Q8$ 6330 RETURN 6340 INPUT" Amount to transfer from shields?: ";Q8 6350 IF Q8<0 OR Q8>S GOTO 6340 6360 S=S-Q8:E=E+Q8:PRINT 6370 PRINT E;" Units of energy now - try beginners:" 6280 PRINT" 1) Put energy in the shields before warping." 6290 PRINT" 2) when in doubt, consult the Computer (Command 8)" 6300 PRINT" 3) Choose a low Security Clearance and a low Rank." 6310 PRINT 6315 CRINT:PRINT:GOTO 6240 6235 PRINT"Press Return to continue: ";:GET Q8$:HOME:PRINT:PRINT 6240 PRINT" For a list of available commands, type a '0' when asked for" 6250 PRINT"a command." 6260 PRINT 6270 PRINT" Some free advice fortatus of any of the" 6190 PRINT"ship's functions. " 6200 PRINT 6210 PRINT"- Computer (activated by pressing '8')" 6220 PRINT" Accesses the on-board Apple /// Computer." 6230 PRINT:PRINT 6232 PRINT:IF Q9$<>".CONSOLE" THEN P