@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}}2 |||DDOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED* MENU 018 COPYING---D1:MENU4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 10˛ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4u>FFV}W} X} Y} !"#$A%%&'()Z}*+,-./0123456789[}:;<=>?@ABCDEFGH\}IJKLMNOPQRSTUVWX]}YZ[\]^_`abcdefgh^}ijklmnopqrstuvw_}xyz{|6-6-@'6-@36-@?6-@K6-@W6-@`}c6-@o6-@{6-@ 6-@6-@6-@6-@6-@6-@6-@6a}-@6-@6-@ 6-@!6-@"'6-@#36-@P?6-@dK6-AW6-A#c6-b}AIo6-A{6-A6-A26-B2y6-Aw6-Acd- B7t!A-6-A6c}e\ Aw-@0+2A;2A0? N6-F:A,\A&g/+ B7t!0d})0/-h( stand by iP 6-&6-$AV'-A#:%F:BsD%,> D6-P6-%+$,j' e}-+%, !0'6-k!6-P:$H:,,%! Al!6-P:$H:,,%! AmK -( f} -AV%36-96-?6-E6-K6-p  -( q7 06-6-'6-P:$H:,,%76-Pg}:$H:,,%r!6-P:$H:,,%6-!0s7 --(>:, '6-%7%!At AuK -Ah}@2%(>:,+-5(>:,;-E(>:,K6-v= 6-  A9-1( SUB PATROL =6-xi}N 6--(ships"-3( FUEL/// 9-D(bowN A5yK 6-6--!(subs'-0(6j}-?(E6-K6-z1 -(scan-+(sub path16-{= 6-6-6--$(*-3( k}9"= |6 -(>:, A#-,( 6 A9}G@w-)( PATROL L 7* *"=-l}G(>:,~A R:,"6-&-#(W)6-/6-7& =6-A A R:,"6-%-#(E)6-/6-7m}%!=6-A A R:,"6-%-#(S)6-/6-7%!=6-A A R:,"6-&-#(N)6-/6n}-7& =6-A T:,"A2E -A@7%(>:,+-3-7 A(>:,E U 6-6-o} A# A$)"/-9(NO?-K(DATAU A41 AX A!!*!'-1(- -p}(>:, * #--( !*"-(   *"-(  !-( q} "*!-(  "* -(  !* -(  *!-(* -r} 6-!!-*(  -(  -( !-( ")" Ads} -(>:, AcH -2@S)-@3- 72A2E H$S --&(t} SUB BLASTED 4-AP8 >-S( 9 -  - %"/ A`9 AS "u}  AA  -!( SUB PATROL + AW5 Ai=-A C -( START"-7( v}?-C +F:,,"%I - ( &-/( 5-I( SUB PATROL > -(w} -" , AU2->(GAME" -( OVER " AUD --(ALERT,-APx}0 6-D( C --(ALERT,-@@0 6-C( "A4 -(y}  !-(  !-( /2@s#2@)"/6-!* *z}"-!(>:, * -(>:,")")")"Au -( %%%")&")%")&"{}Au3%")&")" A1) AI3 Aa3%")&")" A1) AI3 AFB-A|} $H:, ? .282B AQ -( - A6-6-#2-2}} " @ 6-6-6- A9%-/(>:,@T:,"AA R:,"6-&6- 6-&-/(W7~}& =6-A A R:,"6-&6- 6-&-/(N7& =6-A A R:,"6-%6- 6-&-/(}S7%!=6-A G A-)( PATROL LL /-8(>-G( A R:,"6-%6- 6-}&-/(E7%!=6-A  * -(>:,K -A@6%(>:,+-3-7 A(>:},K AyU 6-6- A# A$)"/-9(NO?-K(DATAU A4U 6-6- A# }A$)"/-9(NO?-K(DATAU A4 A$ A3 A3"! $$@ 22} !-.(CLEAR<-Ae@ ? -(  2&-;( ? %"*")&}"*" &"*")%"*" &"*%" %"*%" &"*&" %"*&" } "*" $@ 6-6-6-6-!6-+ A$/ 5-@(AIM7 --(>:, '6-%}7%!A  A9 -(>:,-#(>:,9"*"*"A1"A#"*"A!} R:,"*"6-6-  R:,"*"6-6-  R:,"*"6-6-  R:,"*"6-6- }  R:,"*"6-6-  R:,"*"6-6-  R:,"*"6-6-  R:,"*"6-6-} $T:,"*" AQ$ A "  R:,"*"6-6-  R:,"*"6-6-  R}:,"*"6-6-  R:,"*"6-6-  R:,"*"6-6-  R:,"*"6-6-  }R:,"*"6-6-  R:,"*"6-6- $T:,"*" AQ$ A9 -(>:,-} %-/(>:,9 A 5 -  -#( )-5( C 6--#( )-3(}>:,9-C( ; --(  $-;( -A 6- "* }A("*!A("*!A("* A( "* 6- "*!6- "* }6- "*!6-$"* Ah"*!Ah$> --("-& ,-6(}>:,: > T --'( 5-@`9 ?-T( 66-P:$H:,,%#6-P:}$H:,,%+-/ 3 6$ 0- 08 -2A#-' 125 8$ " }$  6-& !6-& !6-&  6-&  6-& !6-&   6-&  }!6-&  AH*$  !6-&   6-&' -$ -!'6-&  6-}&  6-; -$  Ax!-% --1 ; AO2@r#2@)+-/ }92C2K-O F2@r#2@)+-/ 92C2F$I --(}+-@%/ 5-A( I-   Ac"*")"*"A$3 --'(} HIT MINE /-3 4 -( ,-@%0 4 G 6-6- AU)6-P:$H:,,%}96-P:$H:,,%G"A  "A! " -$F -( SUB IN AREA '-+ 1-F( } &N6-P:$H:,,%6-/6-P:@$H:,,%56-;6-? E-N( ) "-( * 6-}"6- A+ "*"6-, "*"6--C --(  $-9( C A}.! -( SHIP BURNING!$0 " $1"*Ah2H:, ?0A3 A4E - A }-'(FISH/-3 9-E( 5 -   Ac6 !6-&7  6-&8' -$} -!'6-&;  6-&<  6-=; -$  A !-% --1 ; A"@I 2}2@'%-) 32=2E-I A@ 22@'%-) 32=2}@$BA --(SUB$-( .-9( A-C  $D A9"* $E "*!}$F "* $G "*!$H 6-"* $J "*!$K "* $L "*!$MC  -'(} 5-AP9 C AcO% "6-%%!6-%6-P% "6-%%!6-%6-Q% }"6-&& 6-%6-R 6-S? -(w-!('-0(e6-?(nW' -(s}"-'(WY "-(EZ "-(S[ "-(N\$]D --(ALERT},-@@0 6-D( ^ -  $_ "*"6-6-&` "*"6-6-%a "*}"6-%6-b "*"6-&6-c "*"6-&6-&d "*"6-&6-%e "*"6-%6}-&f "*"6-%6-%g$h "*"6-A$i "6-$j "6-$k'$ A'H:},!?@A1n) --( %-) o@ -(FUEL#-@%' + 1"7-@( q}"@-( r*"@(-( &-* s"@(*"ASt"@(*"AX}u$vH:, ?`$w>  -"( SUB ESCAPED *-. 46-> AyD6-P:$H:,,%-!-6(} <"D6-%z %!6-{ "6-&| & 6-} "6-%~ %!6- "}6-& & 6-G -( -!( +2/ 9 AdG"A"H:, ?P6-" A} 6-M -( --A%1 A2A(I-M : 2-( "-}+( 1-:( / 6-%%")"@)"@(/ Af "-(>:, "-(>:,} 6-6-"  " A  " A E6-%@%%@!@16-76-A }AE  A E -(HIT2&-* 0-;( E AU+ A A-}+"A $ 6-%"- ( $  "-(  4 "-( $ AG*"06}-4  AU( 6-%"*"-$( (  "*"-(  6 "*"-( "6-}(6-2 A86  2 A1 : --(  $-:( L --}(LOST#-/(SHIP=-@@A G-L(> -( -'( /-3 7 ; >$& -}( &-:R:,"*6-%-((>:,06-%: A):R:,"*6-&-((}>:,06-&: A):R:,"*6-&-((>:,06-&: A):R:,"*6-%-((>:,06}-%: A):R:,"*"6-%-((>:,06-%: A0:R:,"*"6-&-((>:,06-&: A}0:R:,"*"6-&-((>:,06-&: A0:R:,"*"6-%-((>:,06-%: A0} "A0& -(>:,-#(>:,&$& -(>:,-#(>:,&$"*& &*& &$}$*& &*& &$ Au " $9 -(>:,-#(>:,)-3(>:,6$9$D -(} GAME OVER %-) /-D( FOR < - -*( PATROL LL 06-8-< + 6--}(>:,+"*"AW 6-6-$6-E -( GAME OVER &-* 0-E( FOR }6 - -*( PATROL L 2-6 7 6--(>:,6-%6-7"*"AW "*" A}i$  $ "6- "6-A "6-0 -(PATROL L-0( PATROL LL}5 6-& @p-+(NOVICE5 Ai6 6-&A-,(ADMIRAL6 Ai( -(}CAPTAIN( Ai2Au-(( LIEUTENTANT2 Ai#@p-#(ENSIGN 6-6-"}6- "6-A "6-9 6-&")@p!-/(NOVICE9 AU.A-$(}ADMIRAL. Ax( -(CAPTAIN( Ax2Au-(( LIEUTENTANT2 Ax#@p}-#(ENSIGN AU"6-%$ 6-%$ 6-6-$ 6-6-$$ }6-6-$ 6-6-$$K A -$(DEPTH*-5(SET=-A K A} -(>:,$6R:,"*")R:,"*"!-,(L 26-6 6R:,"*")R:,"*"!-,(LL 26-6} 6R:,"*")R:,"*"!-,(LLL26-6 /T:,"*")T:,"*"% A/ A A A}%"*"*" A% AP AG -2-! +2;2@C-G }0 2 0!-% -00$E -(MISS-! '-3( ;6-%E At %!}6- Au) -@( ) A) -( -)( ,  -( }-,( ) -( -)( : -( -(( .-:( 7 -}( 6-' A-6-36-7 ) 6-6-P:$H:,,%)6-P:$H:,,%K --(  $-;}( K6-P:$H:,,%!6-P:$H:,,%%!!6-%!@6- "6- 6-%6-}%$@-@E62(2, 62@2 - $6- A --(miss+}-A/ 5-A(  -AP  $ 9 --(SUB&"*",-9(BELOW ?}%")&")%")&"#--(IN3-?(AREAM-@5 -'( --9( ?-M(} @ -  -.( ATTACK MODE @"*"A16 -(SUB-&(AREA,-6(I}N1%")&")%")&")-@1($* -(SUB-'(BELOW*$"H:, ?P6-" }A6%*&6-%*6-6&*6- !- A8  -6D}2@1&-%&(.-2 :-%D(>:,!) A"*%"6- A '  6}-26-' A"Q --%( TORPEDOES 3-@57 =-Q( #; - } 2'21 A; A2$"H:, ?@6-" AR%%*&6-&%*6-6'}&*6-( !- AT)  -6*22@1&-%&(.-2 -? -%}(>:,-%(>:,/!) 56-? A/"*%"6- A0  6-6- A1Q -}-%( TORPEDOES 3-@57 =-Q( 2; -  2'21 A; A}H32 -2-! +2/ 2$4( "*"-(NE ( Ah5( "*"-(SE }( Ah6( "*"-(NW ( Ah7( "*"-(SW ( Ah8$9: "-(NOVICE}#-7( SUB PATROL :$:I 6-&-%( SUB PATROL 1A7-F(ADMIRALI$<'Aw-$(}CAPTAIN'$=*Ar-'( LIEUTENANT*$>&@-#(ENSIGN&$?&@-#(N}OVICE&$@$A"F:Ax,@T" AB1+ B7t!0)010CO - (ANTI-SUB PA}TROL&-2(from8-O(roklan softwareDX -(copyright 1982%-8( PRESS startH2@sX}2@E -  AF+F:,,"AG> -(2 player6-%6-0+F:,,"4 > AH}+F:,,"$I AJ2 -(1 PLAYER$+F:,,"( 2 AK) 6--A"+F:,,"%$) L }AM5$-A'+F:,,"A+ 5 AP""AUAQ 6-% AR6-?:}A6,6-$Sll169,82,141,2,3,169,0,141,4,3,141,11,3,169,4,141,5,3,169,54,141,10,3,32,83,228,173,0,4,72,32,83,228,104}T 205,0,4,240,254,104,96,255USC-F:A0,%AV$F:A1,F:A2,%AV$F:A3,OAUS V3F:A}8,%AV$F:A9,%@A D:ANTISUBD AA2,%AV$F:A3,OAUS V3F:AGA퀨NHA?dN A=N A`N/AfN/tC$~NA퀢N/A퀨N/tC$~NpNpNpNp NB <}rBN>N~+CLICK HERE NOW IF YOU WISH TO MAKE A GUESS.NN8?<?< pr _N&pN ?<Bgpr _N&NzN NBmA}5N A X0A` F0AN&<x*<NVpJBgp/A&NF$VHfN:lA N&<x*<NV}fN9A 0?<Z?<&pCAJ 0CDAP 0CVA> 0C\AD 0N:lA} 0?<Z?<&p!CAV 0CDA\ 0CJA> 0CPAD 0N NBmf?< }?<A"NNprN?Nr.CONGRATULATIONS ! CLICK MOUSE 2 FOR NEW GAMENAZN&<x*<NfN=tN}AZN`N=?< ?<Hmp _"NpNpNpNp NB <r4N>Nr,S O R R Y T H A T IS I N C O R R E C TN}N NA>N?ADN?A`N/AfNC$~NNCЍ/ <r$< _NA>N&<}x*<NpJBgp/A N&<x*<NVpJBgp$VHfN>A> ,0 N}&<x*< NpJBgp/A N&<x*<NVpJBgp$VHfN?\A> u0 AN&<x*<NfN/AN&<x}*<NfN"NdNApNpNpN <r$<ANNbN/ <r$<ANNbN"N>AN&<}x*<NfN/AN&<x*<NfN"NdAN/AN"N>ANN NNAN4?<Z?<&p!C ,0AD T0AJ ,0AP T0AV u0A\ T0A큰NzNVfNDH+|pAN}+| pA N <r$<N&<x*<NfAN <r$<N&<x*<NfANAN/ATNC}$~NANAN/ATN/AN/ANC$~NC$~NAN/AN/ANC$~NN`NqN}`NqBmA` F0A X0pNpNpNp NB <rHN>Nr*USE MOUSE BUTTON TWO FOR EXIT OR NEW GAME.N}AEJN N N)| A큪N&<x*<NVfNE.NCN)|E: BgBg?<?<A0NCN~C O N C} E N T R A T I O N4"<N pNpNpNpNp."<N> <"<N^p<"<NpNpNpNA< H0 } <r$<&<x*<AANN/ABN"NdN`NqNqN`JNqpNpNpNp"<N }>p*"<>N^p"<GN>p*"<N^ <rN> <"<oN^pNpN0pNJprNZA< H0 <r$<&< }x*<AAANqAN NN NNpNAI}N BR <@r$< NN? <r$<N&<x*<NfN? <r$<N&<x*<NfNCpf"<6NjpNpNpNA H0 }<r$<&<x*<ANAN"<N@AN&<x*<NfN"<NlN`NqNqpNpNpNpF"<}N>px"<NjpNpNpNp NBph"<HN>N~ A N T I C4NpNpNpNpNBpN~WRITTEN IN }GFA BASIC BY4NpJ"<N>N~STEPHEN EVERMAN4NpT"<N>p&N"Np^"<N>Nr PAUL PRATTNpr"<|N>Nr}(c) 1988NpNpNpNpNB <"<N>N~T W O4N <"<N>N~O N E4NpNpNpNpN}B <"<N>NrEXITNpNpNpNpNB <"<N>NrPLAYERN <"<N>N~PLAYERS4NpN}pNpNp NBp"<N>N~C O N C E N T R A T I O N4NAIN NprNpN"NLNXN\AN NzAR}vN N NA 0ANJBfNSNH ArN AxN AZNAZN&<x*<NVpJBgp/ArN}&<x*<NpJBgp/ArN&<x*< NpJBgp/AxN&<x*<NpJBgp/AxN&<x*}<NpJBgp$VHfNSBm <r$<ArNNb&<x*<NAN`ASN N NAZNzN}fNTNH ArN AxN AZN`N NBUTTERFLY64479644794240423995543141083710261548905792764575}481881696347132180193372965535CANDLE65535652796553565151645756553564575650236457565535645756502334817368}494915549267FLOWER4799930847387732870534527614434095533539316791083311674764764639649596508765279ICECREAM }65023640316334361583609275786361471634636351963975645756501564575650236515165271SODA64639646396393563935!}614716147163455634556345562815634556326363455621756147161471GOBLET49153532475871157347573475939164543650"}236540765407654076540764543647674915351199WINE GLASS49153532475939157347624596144764719645756540765407654#}076540764543647674915351199JOYSTICK63999639996553563999655356399965535639996399863998574685746833655353$}2799DISK8048573598048573598176573591637665535138166297512120612791637665535065535CANDELABRA6553552851359%}39655353593965535359396553535939359391164639646396147161471HOUSE PLANT4606765535328766348757351647354915&}564183327765910362595056359887629916343961455CLOCK655356553561455614555117149155390333276940825327693672'}1327694915549155960960LAMP6243161471532394915932765160527646396052764639646396463964639646396147161471(}EIGHTBALL57351573513475334753672646726467520675206726467264347533475357351573516553565535PEN6508765535650)}5565055651996539165199653916521565407652156540765151654076540765407KEY6457564767639036444757351593916145*}5624636457565471646396553564639655356463965407RING628956147164223635516145565535577996195158343624635834+}36246361895639996350365535T-SQUARE6351965535327696553565151655356515165407651516553565151654076515165535,}6515165407PERFUME63519645116515165535639676351951195491553996733249399673324961439573476246361455BELL6457-}5645756390363647583595735153243491555016349155408573276934801327696515165151THUNDER BIRD61503615036457564.}5753840277023843075013932297422907060855573515570749155TABLE006457564575651516515165151651516457564575/}645756457563887638875827958279BOOKS653115916765311592076351959207635195920763519592073893734625616817920}6553565535FLAG65535655351023204801023112631023204806553432767327673276865535655356553565535BAR-B-Q6727511}23276932769573515735163215632156321563215614556145561175611755682756827TELEVISION6553552479655356246332762}93276932961368493481734289335053627332769409653276932769BRIEF CASE57351573515936759367085800128000003}06553565535RADIO3276765535655355734365535573430016316163800001268400DRINK64511655356502365535631434}6339963335634636333563463634156347963415615116350363503GUM MACHINE61455614555923959895602795904763183618395}6457564575645756457561455618394915549155CALCULATOR49159491595733557175491594915949159491595149551495491596}4915949447514954915949159APPLE6195162463565755760365535640655350655350491514915361439614436348763495AR7}ROW4480448044803544020320992044801280A STITCH IN TIME SAVES NINEOLD SOLDIERS NEVER DIE THEY JUST FADE AWAY8}THE SHORTEST DISTANCE BETWEEN TWO POINTS IS A STRAIGHT LINEIF AT FIRST YOU DON'T SUCCEED TRY TRY AGAINYOU KNEW THE JOB WAS 9}DANGEROUS WHEN YOU TOOK ITTO ERR IS HUMAN TO FORGIVE IS DIVINEYOU CAN'T KEEP A GOOD MAN DOWNFISH AND VISITORS SMELL IN THR:}EE DAYSDON'T CRY OVER SPILT MILKANTIC THE ATARI RESOURCEA BIRD IN THE HAND IS WORTH TWO IN THE BUSHONE SMALL STEP FOR MAN;} ONE GIANT LEAP FOR MANKINDPEOPLE WHO LIVE IN GLASS HOUSES SHOULDN'T THROW STONESWHERE THERE'S A WILL THERE'S A WAYFRIENDS<} ROMANS COUNTRYMEN LEND ME YOUR EARSYOU CAN'T MAKE A SILK PURSE OUT OF A SOW'S EARYOU CAN'T HAVE YOUR CAKE AND EAT IT TOOM=}ONEY IS THE ROOT OF ALL EVILTO BOLDLY GO WHERE NO MAN HAS GONE BEFOREDON'T CUT OFF YOUR NOSE TO SPITE YOUR FACEA ROLLING S>}TONE GATHERS NO MOSSA ROSE BY ANY OTHER NAME WOULD SMELL AS SWEETMONEY IS THE ROOT OF ALL EVILGIVE ME LIBERTY OR GIVE ME D?}EATHWHEN IN ROME DO AS THE ROMANS DOLIVE FROM NEW YORK IT'S SATURDAY NIGHTDON'T COUNT YOUR CHICKENS BEFORE THEY'RE HATCHED@}/ * d&&&N$R" >^"tJ6"H6lf 4,B"-OK1mGfABASIC,@@@bBBB<35@555555556B6B6B:B}dQWMLSCR_MEMXPLANE1PLANE2OBJBUYDYUXDXYBTNPOXPOYPLYMXMYXOBJ_POSYOBJ_POSCENTERATCHOISENCHOSENOPOXOC}POY CHECK_POX CHECK_POY OXOBJ_POS OYOBJ_POS TITLE_STARTX1Y1TEMPSPLITXCHYCHXPOXYPOXYPOYDECIDINGECIDINGTHINKINGPLAD}YERSPLAYER THIS_PLAYERCORRECT PRIZE_BOX_X1PRIZE_X1PRIZE_Y1XPRIZEYPRIZEXPRIZE1YPRIZE1XPRIZE2YPRIZE2GUESSOFFCHOICEE}CAP_LOCKCSXXTTT T_INCREMENT SHOWING_ANSWSAYINGSFLAGDEBUGATXBOARDANSWQUOTELQRQCHTHINKBLANKCONERRASEMY_GF}UESSNOW WIN_SCREEN CREDIT_SCREENERASEXYBOARDATPALOBJ_NAMEOBJTITLE GAME.DATA STRING.DATA STRING_DATAMEM_POKEKOLOG}RBULLDIALOGCREDITS CREDIT_SCREEN BOARD_SCREENSET_UPMAIN OBJECT_PUTOBJ_PUTCOMPARENEW_GAME STRING_SET_UPLETTERSLETTERH} SET_COLORSKOLORSTHINKRELEASECHANGE_PLAYERS AWARD_PRIZE TAKE_GUESS COUNT_THEMEODCONCENTRATION "BY PAUL PRATT & STEPHEI}N EVERMAN (c) 1988, ANTIC PUBLISHING R c4* ! !@ ! FE F!EXXFHEF J}} FMF-MF.EFFFeGEFFEFMFiMFMF` Ħ. Fe0EFMFF-MF-zF/YFEK}GF 6! F ĸFqF<--------------------------------------------------------- +F-M F-  FF "!!FL}-" Print At(2,2);" "  Print At(2,2);Mx;" ";My  Ŗ;1F-MF F ŬFMF- FE M}F-M F F  FERFFF.F>---------------------------------------------------------- N}+ F6 ȜA__HH))F* !4!FERASE TEXT WINDOW ;EFE%#  O} FE%# p F Ș@ #   F %!!F8EFkkeep old array offset of first object P}selected EF8EFkeep old screen position of first obj selected  EF8EF get new array offset of second objeQ}ct selected EFHE)Fpget screen position of second object selected EpFg4F"R}E%#@@6@  FY!!  "@ F!E00Ft&!F!!@ !F F FS}.F@------------------------------------------------------------- + F-F!,EG F$y!!V@ !@T}!F FG1EF%!!F*@!!0! F*@! !0!  F$YXU}!  " F$Y,!  " F @ @ F y!@!!`! F1EV}F;EF M! F M! FMF(@ EF remove objects from array h @ EF(!!!F B'!@W}!+CLICK HERE NOW IF YOU WISH TO MAKE A GUESS.F F y!@!! ! F F y!!!FF!.F >-------------X}--------------------------------------------- +F-EFM FF!EXXFtEFFF : ̘.1Fcchange players Y}if 2 players and no match 40FF0EF84!! Fswitch player indication arrow  !!Z} F7E5F8E6F5E9F6E:F ̔F"0EF4!! F !! F9E5F:E6F5E[}7F6E8F FE F! .F>----------------------------------------------------------- +F-;EF* !4!F\}ERASE TEXT WINDOW iY!@ "F" ~#0!  F6>E0!0!  FSET CAP LOCK ON G FE]}: F@ , FF !4!FF^EGpFSF @EG`F"y!`!V@ !^}!FF @FGFT@EG`F"y!`!V@ !!FF (@FG FGΦEGFΜ_}EGF M! F ΆF rF y!!!FFE(!!!FTD'P!@!.CONGRATULATIONS ! CLICK `}MOUSE 2 FOR NEW GAMEF $ F ERF F ϜF  !4!!F(!!!FB'P!@!,S O R Ra} Y T H A T IS I N C O R R E C TF F.F<--------------------------------------------------------- +F-5!6!b}@ !F05!F <50F5E,,F06!pF F4 r5 0F5EuuF 06!pc}F  F6.F4------------------------------------------------ - +(!* F(!!!`F&E,,(F'E44d}*ppFE?@#* (@ Fe b F%!!F*& !' !&!'F ѤF%!e}!F*& !' !&!'F '&!'!F' F&.F<---------------------------------------------------------f} + F-YFF- 4!! !F>ҸEGFeach object number goes into board array twice ҮEGg}F@ EF"@  EF fF RF 5E,,F6ETTF7E,,q}hB'DOS SYSB*+DUP SYSBUAUTORUN SYSBWMENU UANTISUB qCONCENTRPRGqACONCENTRBASDOC TXTPORT TXT'LINKLINEPRGB,MULTISORM65BEMULTISORDEMB;YTERMINATBASTHROTTLEEXETHROTTLEM65LINKLINEEXEF8ETTF9EuuF:ETTF h "HJF$Remove these loops for testing-- @then the prizes always fr}all 4 rows apart in the same column. &EGF1 shuffle prizes -EGF "EV F#EV s}F$E@ FF@ E"@# Ff"@# E$F ӺF ӦF F hEFEFFF!EXXF(!!!t}F @'!@!*USE MOUSE BUTTON TWO FOR EXIT OR NEW GAME.FM F.F 8-------------------------------------------u}---------- +FRF GFhQFvLF FEFGFFvF.F.------------------------------------------ +v}F-GEFF.FF.------------------------------------------- + F-RF-&EGVF F pick random string QF վw}FG HJF<ENOWF USE THIS FOR TESTING. THE ANSW IS ALWAYS "NOW"  F<E  Fpad begining and end of strinx}g with spaces E6 F:~ FLwhile string not expanded to 64 spaces 4%EV F pick random place to start iy}n string 8?@%@  Fif not space increment until it is 4%F?F8E;@% Fsplit the string in half and insez}rt space sE=@6 FiE F E6 F`F .F0--------------------------------------------- +F{}EGF" E`!!  F6!F F!! !@!F!!p!`! FEF|}FEQFe  EFEFFEQ!F !F !F4F ZF !!p!`}}! F-4F@F.FE,----------------------------------------- +Fn6!F6!D@ F6!.~}F6!n F-.F!0-------------------------------------------- +F-!FYF$! !!F(!!!PF8/}!@!z!C O N C E N T R A T I O NF %!!F#F$=!8!c!,FC&C!pF%!!}F"ڸ EHG'HpFC E PF"ڮ ECG`HFA E `F ! ! ! F چ F}F T FF%!!F$=!`!!(F $#!`!c!(F !3! !DFp#F} $!!!F" EHG!HpFC$`! !,,! PPFA$k! ! ! PPFA&}! F&m! F V F!F-YF.F.------------------------------------------ +FYF!FM}F`EFFE4F2V@ !V( `!Vxx  !F-2V@ !V( `!Vxx  !F-2V}@ !V( `!Vxx  !F-2V@ !V( `!Vxx  !F-&y!P!V@ !<}F29F y!!!FhEGF6!F7 PF$H!H!!LFN%!!F"}EHGHHF"! !!*F ݶFH%!!F$! ! !pFN(!!!}F '$!P! A N T I CF(!!!F.'x!p!WRITTEN IN GFA BASIC BYF &'!!}STEPHEN EVERMANF'>!(!&FE '*!<! PAUL PRATTF'>!d!(c) 1988F(!!!F'}V!!T W OFS'!!O N EFS(!!!PF' !&!EXITF(!!!@F'!}&!PLAYERF'U!&!PLAYERSF(!!!F0'!@!C O N C E N T R A T I O NFTMFY!} "B` FFF-FMF-.F4------------------------------------------------ +F--EF -FH "!!F < }H  ++F-EF.E#H F  FEpFMF-.F-2----------}------------------------------------ -+F- R F- "!!F-2F!.F.-------------------------------------------} |FC BUTTERFLY 264479,64479,42404,23995,54314,10837,10261,54890 257927,64575,48188,16963,47132,18019,33729,65535 CAND}LE 4265535,65279,65535,65151,64575,65535,64575,65023 264575,65535,64575,65023,34817,36849,49155,49267 FLOWER 5247999,308}47,38773,28705,34527,61443,40955,33539 231679,1083,31167,47647,64639,64959,65087,65279 ICECREAM 265023,64031,63343,6158}3,60927,57863,61471,63463 263519,63975,64575,65015,64575,65023,65151,65271 SODA ,264639,64639,63935,63935,61471,61471,634}55,63455 263455,62815,63455,63263,63455,62175,61471,61471 GOBLET 2249153,53247,58711,57347,57347,59391,64543,65023 26540}7,65407,65407,65407,64543,64767,49153,51199 WINE GLASS 249153,53247,59391,57347,62459,61447,64719,64575 265407,65407,654}07,65407,64543,64767,49153,51199 JOYSTICK 0263999,63999,65535,63999,65535,63999,65535,63999 *63998,63998,57468,57468,3,3,}65535,32799 DISK ,08048,57359,8048,57359,8176,57359,16376,65535 7.13816,62975,12120,61279,16376,65535,0,65535 CANDELABR}A ,265535,52851,35939,65535,35939,65535,35939,65535 *35939,35939,1,1,64639,64639,61471,61471 HOUSE PLANT 246067,65535,32}876,63487,57351,64735,49155,64183 232776,59103,6259,50563,59887,62991,63439,61455 CLOCK 265535,65535,61455,61455,51171,4}9155,39033,32769 .40825,32769,36721,32769,49155,49155,960,960 LAMP 6.62431,61471,53239,49159,32765,1,60527,64639 260527,}64639,64639,64639,64639,64639,61471,61471 EIGHTBALL 257351,57351,34753,34753,67264,67264,67520,67520 267264,67264,34753,3}4753,57351,57351,65535,65535 PEN 265087,65535,65055,65055,65199,65391,65199,65391 265215,65407,65215,65407,65151,65407,65}407,65407 KEY 264575,64767,63903,64447,57351,59391,61455,62463 264575,65471,64639,65535,64639,65535,64639,65407 RING ,2}62895,61471,64223,63551,61455,65535,57799,61951 258343,62463,58343,62463,61895,63999,63503,65535 T-SQUARE 6263519,65535,}32769,65535,65151,65535,65151,65407 265151,65535,65151,65407,65151,65535,65151,65407 PERFUME 263519,64511,65151,65535,639}67,63519,51195,49155 239967,33249,39967,33249,61439,57347,62463,61455 BELL ,264575,64575,63903,63647,58359,57351,53243,49}155 250163,49155,40857,32769,34801,32769,65151,65151 THUNDER BIRD 0*61503,61503,64575,64575,384,0,27702,384 230750,13932},29742,29070,60855,57351,55707,49155 TABLE *0,0,64575,64575,65151,65151,65151,65151 264575,64575,64575,64575,63887,63887,}58279,58279 BOOKS 265311,59167,65311,59207,63519,59207,63519,59207 063519,59207,38937,34625,6168,1792,65535,65535 FLAG },065535,65535,1023,20480,1023,11263,1023,20480 265534,32767,32767,32768,65535,65535,65535,65535 BAR-B-Q 0672,7512,32769},32769,57351,57351,63215,63215 3263215,63215,61455,61455,61175,61175,56827,56827 TELEVISION ,265535,52479,65535,62463,327}69,32769,32961,36849 234817,34289,33505,36273,32769,40965,32769,32769 BRIEF CASE ,(57351,57351,59367,59367,0,8580,0,128 2}0,0,0,0,0,0,65535,65535 RADIO *32767,65535,65535,57343,65535,57343,0,0 16316,16380,0,0,0,12684,0,0 DRINK 264511,655}35,65023,65535,63143,63399,63335,63463 263335,63463,63415,63479,63415,61511,63503,63503 GUM MACHINE 261455,61455,59239,59}895,60279,59047,63183,61839 264575,64575,64575,64575,61455,61839,49155,49155 CALCULATOR ,249159,49159,57335,57175,49159,4}9159,49159,49159 251495,51495,49159,49159,49447,51495,49159,49159 APPLE ,61951,62463,56575,57603,65535,640,65535,0 .6553}5,0,49151,49153,61439,61443,63487,63495 ARROW 448,0,448,0,448,0,3544,0 o2032,0,992,0,448,0,128,0 o |FB: When ad}ding new string data do NOT to use commas in strings. A STITCH IN TIME SAVES NINE .OLD SOLDIERS NEVER DIE THEY JUST FADE }AWAY n>THE SHORTEST DISTANCE BETWEEN TWO POINTS IS A STRAIGHT LINE .IF AT FIRST YOU DON'T SUCCEED TRY TRY AGAIN 2YOU KNEW }THE JOB WAS DANGEROUS WHEN YOU TOOK IT (TO ERR IS HUMAN TO FORGIVE IS DIVINE Y"YOU CAN'T KEEP A GOOD MAN DOWN Y(FISH AND V}ISITORS SMELL IN THREE DAYS DON'T CRY OVER SPILT MILK ANTIC THE ATARI RESOURCE N.A BIRD IN THE HAND IS WORTH TWO IN THE }BUSH 4ONE SMALL STEP FOR MAN ONE GIANT LEAP FOR MANKIND :PEOPLE WHO LIVE IN GLASS HOUSES SHOULDN'T THROW STONES &WHERE TH}ERE'S A WILL THERE'S A WAY T.FRIENDS ROMANS COUNTRYMEN LEND ME YOUR EARS 2YOU CAN'T MAKE A SILK PURSE OUT OF A SOW'S EAR N*}YOU CAN'T HAVE YOUR CAKE AND EAT IT TOO MONEY IS THE ROOT OF ALL EVIL ,TO BOLDLY GO WHERE NO MAN HAS GONE BEFORE .DON'T }CUT OFF YOUR NOSE TO SPITE YOUR FACE E"A ROLLING STONE GATHERS NO MOSS 0A ROSE BY ANY OTHER NAME WOULD SMELL AS SWEET MON}EY IS THE ROOT OF ALL EVIL $GIVE ME LIBERTY OR GIVE ME DEATH Y$WHEN IN ROME DO AS THE ROMANS DO *LIVE FROM NEW YORK IT'S }SATURDAY NIGHT '4DON'T COUNT YOUR CHICKENS BEFORE THEY'RE HATCHED x}*(a_D}X-6}X"}X2} \0 }>s8}h$׸ق0ՒЪj2B}P555555556B6B6B:P WELCOME TO THE ANTIC MONTHLY DISKMost of the pr}ograms on this side of the disk are for the ATARI 520 ST.We recommend you refer to thecorresponding issue of ANTIC forco}mprehensive documentation. If youwish to order a back issue, or needsubscription information, contact usat (415) 957-0886 }or, for credit cardorders, dial (800) 227-1617, Ex. 133.In California,(800) 722-3545, Ex. 133XXX *** BONUS FILES * BONUS} FILES ***For those of you who don't own GFABASIC, here's CONCENTR.PRG, a runtimeversion of Pratt & Everman'sConcentrat}ion game.XXX *** EVEN MORE BONUS FILES ***Whenever there is sufficient room,we will be including LINKLINE onthe mon}thly disks.Please see the HELP files on thisside of the disk for LINKLINEinstructions.XXXThe menu that appeared }on the screenwhen you booted the disk will onlyRUN programs with a .BAS extender.(NOTE: The menu WILL NOT RUN GF}A or ST BASIC programs!)If you try to run a program and theresponse is 'cannot run Filename',then check the file extender }withthe following list:XXX.SYS Reserved for DOS system files..DAT Data file. Usually accessed by another pro}gram..TXT Text file. Usually accessed by another program..PI2 A Med.-resolution DEGAS picture file.XXX}*** Files for the 520 ST ***.C C Language source code. Must be ported to an ST disk. See the correspon}ding article for complete details..BAS A GFA BASIC program. WILL NOT RUN on 8-bit computers!!! } Must be ported to an ST disk. See the corresponding article for complete details.XXX.PRG A compiled ST }program which uses GEM. Must be ported to an ST disk. See the corresponding article for complete }details..TOS A compiled ST program which does not use GEM. Must be ported to an ST disk. See the cor}responding article for complete details..S 68000 Assembly language source code. Must be ported to} an ST disk. See the corresponding article for complete details.XXX Whenever possible, we will try toada}pt our programs to work with asmany configurations of C as possible.But we think ANTIC's published Clistings should come a}s close aspossible to the industry standard. At this time, only the Lattice,Alcyon, GST and Megamax C packagesdo this.}XXXAll programs from ANTIC issues datedprior to August 1984 were reproducedfrom ANTIC's Archive. We've updatedthem fr}om our HELP columns andmost are compatible with the XL andXE machines. We have worked to insurethat our programs operate a}spublished, but we consider all oursoftware listings to be works inprogress which we encourage you topersonalize and enha}nce.Good luck, and ENJOY!-ANTIC EDtware listings to be works inprogress which we encourage you topersonalize and enha(ndXE machines. We have worked to insurethat our programs operate aspublished, but we consider all oursoftware listings to} be works inprogress which we encourage you topersonalize and enhance.Good luck, and ENJOY!-ANTIC EDtware listings tolST LISTINGSON MONTHLY DISK...and how to get themby CHARLES JACKSONAntic Technical EditorFor those ST owners who do no!}t yetown a C compiler, but are eager totry out Antic's C language listings,we are now including the executableobject code!} on the Antic MonthlyDisk.XXXAll disk files with extendersof .PRG, .TOS, .TPP and .ACC arecompiled ST programs, ready !}to betransferred to an ST disk andexecuted. Given enough disk space,we will also include the sourcecode. 'C' source cod!}e files willhave a .C extender, assemblylanguage source code will havean .S extender.XXXPORTING FILESBefore using an !}ST program, you musttransfer it to an ST disk. Thisprocess of transferring filesbetween computers is called"porting."X!}XX To port a file from the AnticMonthly disk to an ST disk, you'llneed the Linkline programs fromthe August 1985 issue!}.(LINKLINE.PRG and LINKLINE.EXE are both included on this disk).XXXIf you don't have Linkline, youmay also use: !}- A telecommunications programfor the ST which supports XMODEMfile transfers.FLASH or PC/InterComm will work).XXX - !}A similar program for your8-bit Atari which supports XMODEMfile transfers. Chameleon orBackTalk will work. Unfortunately!},HomeTerm won't do the job because ittranslates all carriage returns intoATASCII value 155. Also, don'texpect to succeed!} at ST porting withany version of AMODEM.XXXA - 8-bit Atari computerB - An Atari 850 Interface Module with a modem !}cable (RS-232 to D-9.)C - Null modem connectorD - Gender changer (if required)E - Your ST   !} | A |=>| B |=>| C |=>| D |=>| E |     Sample porting configurationXXX IMPORT!}ANT: If you're not usingLinkline, both modem programsmust be configured similarly. Ifyour 8-bit software is set for 1200!}baud, your ST software also must beconfigured for 1200 baud. Additionally, BOTH programs mustbe set for 8-bit (binary) !}filetransfers.XXX Once both computers are linkedtogether you may begin the filetransfer. You can also reverse this!}procedure to transfer files from STdisks to your 8-bit machine.XXXWALK-THROUGH DEMO1) LINKLINE:Once both LINKLINE pro!}grams arerunning, place the monthly diskinto the 5-1/4" drive, and sitdown at the ST. Choose theLOAD A FILE option and t!}ype inthe name of the file you want totransfer. LINKLINE will pullthe file off of the monthly disk,and save it to an ST !}disk.That's it. You're done.XXXWALK-THROUGH DEMO2) MODEM PROGRAMSLet's walk-through a sample filetransfer. We'll !}use BackTalk on an8-bit machine, and FLASH on the ST. Configure BackTalk for 1200 baud,with Full Duplex and ASCIItrans!}lation. Press [SELECT],choose the XSEND option, selectXMODEM protocol and enter the nameof the file you wish to port.X!}XX From the ST desktop, double clickon FLASH.PRG. Make sure FLASH isrunning at 1200 baud. Type -Bto change baud!} rates, if necessary. Now type -R (for RECEIVE).When the file selector box appears,press [ESCAPE] and type the name !}ofthe file to receive. Press [RETURN]or click on OK. To begin the transfer, press the[START] button on the 8-bit Atar!}i.XXX Occasionally some versions ofXMODEM will append extra "garbage"characters to your files. Textfiles, such as C!} listings, areparticularly susceptible to thisproblem. If your implementation ofXMODEM appends garbage characters toyour!} source code, you must removethose characters with a text editorbefore compiling the program.or those ST owners who do no a` *O.|r*m - ЭЭм// ??<JNA NJ/<NA"/0<NBNuNVaaJygaHN%}^NuNVNZ./</</<N $ 3>.j/<>/< N&P. ?<NTByByN^NuNV. <%}?<NT3 yfa< yfa. ?<NT3 yf3N^NuNV. r?<NTBy<`Ry%}< y>Naa>>NN^Nu%}NV. ?<NTah09,|3f09,|@3:. ?<NTD:*B9./</<%}NPJyg">>N>a&a>>NN^NuNVBy`By<`Ry< y?<?<N v%}X>f?<?<N vX>:?<?<N vXByd`*0yd"|00H>?<?<N vXRyd09dy,m>?<?<N%} vXN^NuNV32>N 3h09h|A:*.*B9B9./</<NPJy%}gv>>N>/<?<=N \32 y2o$.0/9 n?92?<?N P3,>2?<>N T>>NN%}^NuNV>>NBW/<?<2?<>N T>>NN^NuNV%}>>N>aa>>NN^NuNV>?<N vT3& y&f>?<N vT3f>?<N vT3:09:%}@yf3.Byd`* |02yd/?<?<N vX _Ryd09dy.m3d,N^NuNV>?<?<N vX nf>%}S?<?<N vX nf>L?<?<N vXBy`> |2y \g$0y"|0H>?<?<N vXRy |2y%}J(nBy`*0y"|0H>?<?<N vXRy |2y n> ?<?<N vXN^NuNV. :?<N&}T>>NNN^NuNV3eBByDByH3NNN^NuNV3{BByDByH3NNN^NuNV#z#&} .мZ#3dBByD3 H n 3NN n 0N#z###~N^NuNV3 3&}zBByD3H3NNN^Nu#Bv"<vpsNBNuNV30.|Hм -@=|` nH2n2&}RRn nm.4N>B@09 N^NuNV#### #Z##4> aF3&} @pN^NuNV>a*pN^NuNV3# Z>4NN^NuNV#Z# ^>ZN n0"B@09 N^NuNV>&}MN n0" n 0$ n0& n0(B@09 N^Nu#NN/9Nu#NM/9Nu#NA/9Nu&} &}&}[1][ Welcome to LinkLin& }e/ST | v.041286 ][ Perform ][3][ Load: 8Bit->ST Save: ST->8Bit ][ Load | Save ][3][ Enter the 8Bit file to load. ][ Selec& }t ][3][ Select the ST file to transfer. ][ Select ][3][ Select the new device:filename.ext ][ Select ][3][ Want to tran& }sfer another file? ][ Yes | No ][3][Thanks for using|LinkLine/ST|v.041286][ Exit ]}_crystal>_ctrl_cn _workin& } _hialert _typeale <_loadler r_saveler _devaler _moreale _tksaler :_max_len n_main& }J_initiald_communi_termina_load_fi8_save_fi_load_8B_write_tL_read_thX_send_&}co_send_fi_get_fil_v_clsvw_v_hide__v_opnvw&_v_show__gsx1_gsx2_iiof&}fz_iooff_pioff~_pooff_vdi_crys_if_appl_inZ_appl_ex_form_al_fse&}l_in_graf_ha $_gemdos _bios v_xbios f_intin_intout_org_pal_c_mx&}_my_finishe_new_pal_i_j_k_l_hi_word_w&}rite_b_ptsin_path_ptsout_write_h_global_inchar&_lo_word(_pressed*_&}bytes_r,_bytes_t._text_bu0_control_int_in_int_out _read_ha._dum0_file_ha2&}_ad_c4_resolut8_lenhi:_delay<_gem_han>_gl_apid@_contrlB_addr_inZ_charact&}b_file_ind_lenlof_driveh_workoutj_button_filenam_for_rea_action__addr_ou&}_color.$            &}            &}$    .|r*m - ЭЭм// ??<JNA NJ/<NA"/0<NBNuNVaaJygaHN$0100 ;MACHINE LANGUAGE SORTS, PART 10110 ;BY KEVIN PECK0120 ;(c)1987, ANTIC PUBLISHING0130 FLAST = $00 ;End, outer loo*}p0140 FLENKEY = $CB ;Key length0150 RLEN = $CC ;Record Length0160 OFFSETKEY = $CF ;Key offset0170 FIRST = $CD *};1st element ptr0180 SECOND = $D4 ;2nd element ptr0190 LAST = $D6 ;End, inner loop0200 FENDKEY = $D8 ;End, key f*}ield0210 ORDER = $E1 ;Order, sort 0,10220 FLENSEC = $D0 ;2nd field lngth0230 OFFSETSEC = $E0 ;2nd " " offset0240 F*}ENDSEC = $D1 ;End 2nd field0250 ;0260 *= $40000270 ;0280 CLD 0290 PLA 0300 ; Retrieve arguments from BAS*}IC0310 PLA 0320 STA FIRST+10330 PLA 0340 STA FIRST0350 PLA 0360 STA LAST+10370 PLA 0380 *} STA LAST0390 PLA 0400 PLA 0410 STA FLENKEY0420 PLA 0430 PLA 0440 STA OFFSETKEY0450 CLC * } ;Find end of 0460 ADC FLENKEY ;First key 0470 STA FENDKEY0480 PLA 0490 PLA 0500 STA FLENSEC*!}0510 PLA 0520 PLA 0530 STA OFFSETSEC0540 CLC 0550 ADC FLENSEC ;Find end of 0560 STA FENDSEC ;se*"}cond key0570 PLA 0580 PLA 0590 STA RLEN0600 PLA 0610 PLA 0620 STA ORDER0630 ;0640 ; All parms*#}. now in zero page.0650 ; Next, set pointer to the end0660 ; of the outer loop0670 LDA LAST+10680 STA FLAST+1069*$}0 SEC 0700 LDA LAST0710 SBC RLEN0720 STA FLAST0730 BCS SETSECOND0740 ;0750 DEC FLAST+10760 ; S*%}tart of outer loop.0770 ; Adjust the second pointer to0780 ; point to the first pointer0790 ; plus the record length.0800*&} ;0810 SETSECOND0820 CLC 0830 LDA FIRST+10840 STA SECOND+10850 LDA FIRST0860 ADC RLEN0870 STA *'}SECOND0880 BCC SORTKEY0890 INC SECOND+10900 ; Start of the inner loop.0910 ; 1. Compare the Key field of0920 ; *(} the two sort elements.0930 ; 2. If we find a mismatch,0940 ; do we need to swap them?0950 SORTKEY0960 LDY OFFSET*)}KEY0970 ;0980 KEYLOOP0990 ;1000 LDA (FIRST),Y ;get a byte1010 CMP (SECOND),Y ;of each.1020 BEQ CHKMORE ;If **}= Continue.1030 ;1040 BCC NOSWAP ;If FS swap.1070 ;1080 CHKMORE1090 ;*+}1100 INY ;Adjust pointer1110 CPY FENDKEY ;All done?1120 BNE KEYLOOP ;No. Continue.1130 ;1140 ; At t*,}his point, all bytes in1150 ; the key field of both sort1160 ; elements are equal. Drop to1170 ; SORTSECOND and check the*-}1180 ; secondary fields.1190 ; If their lengths = 0, then1200 ; we don't have 2ndry fields.1210 ; We are only doing a o*.}ne-field1220 ; sort--goto the Noswap routine.1230 ; If the key fields are equal,1240 ; there is no need to swap them.1250*/} ;1260 SORTSEC1270 LDA FLENSEC ;A second field?1280 BEQ NOSWAPBD ;No.1290 ;1300 LDY OFFSETSEC1310 SECLOOP1*0}320 LDA (FIRST),Y ;Compare byte1330 CMP (SECOND),Y ;by byte...1340 BEQ CHKMORE2 ;If = do more.1350 ;1360 *1}BCC NOSWAP ;If Fs Swap.1390 ;1400 CHKMORE21410 INY ;Point to nex*2}t.1420 CPY FENDSEC ;End of 2nd?1430 BNE SECLOOP ;No, do more.1440 ;1450 ; Now, both the key and the1460 ; second*3}ary fields of both sort1470 ; elemtents are equal. Goto1480 ; the noswap routine through the1490 ; "back door." No need to*4} check1500 ; the order, no need to swap.1510 BEQ NOSWAPBD1520 ;1530 ; This is where the swapping1540 ; occurs. First*5}, check the1550 ; swapping order.1560 ; (Assume swapping in ascending1570 ; order.) If order<>0, then1580 ; sort in desce*6}nding order.1590 ;1600 SWAP1610 ;1620 LDA ORDER ;Get order1630 BNE NOSWAPBD ;Not 0, No swap1640 ;1650 ; Swap*7} routine's back door.1660 ; If NOSWAP decides we need to1670 ; swap by checking the order,1680 ; we need to come here (ins*8}tead1690 ; of SWAP) or we would go into1700 ; a continuous loop.1710 ;1720 SWAPBD1730 LDY #01740 SWAPLOOP1750 *9}LDA (FIRST),Y ;Key byte1760 PHA ; to stack.1770 LDA (SECOND),Y ; 2ndry byte1780 STA (FIRST),Y ; to k*:}ey.1790 PLA ;Key from stack1800 STA (SECOND),Y ;to 2ndry.1810 INY ;Next byte.1820 CPY RLE*;}N ; More?1830 BNE SWAPLOOP ;Yes. Continue.1840 ;1850 ; All bytes have been swapped.1860 ; Now adjust pointers to t*<}he1870 ; next elements for the sort.1880 ; Goto the noswap back door.1890 ;1900 BEQ NOSWAPBD1910 ;1920 NOSWAP1930*=} ;1940 LDA ORDER ;Is ORDER=1?1950 BNE SWAPBD ;Yes. Swap them1960 ;1970 NOSWAPBD1980 CLC 1990 LDA SEC*>}OND2000 ADC RLEN2010 STA SECOND2020 LDA SECOND+12030 ADC #02040 STA SECOND+12050 CMP LAST+1206*?}0 BNE SORTKEY2070 ;2080 LDA SECOND2090 CMP LAST2100 BNE SORTKEY2110 ;2120 ; We've made one pass through*@}2130 ; the sort's inner loop. Now,2140 ; adjust the outer loop and2150 ; check if we're done with it.2160 ; If not, read*A}just the inner2170 ; loop pointer to the outer loop2180 ; pointer + the record length.2190 ;2200 CLC 2210 LDA FI*B}RST2220 ADC RLEN2230 STA FIRST2240 LDA FIRST+12250 ADC #02260 STA FIRST+12270 CMP FLAST+12280 *C} BNE SETSECOND2290 ;2300 LDA FIRST2310 CMP FLAST2320 BNE SETSECOND2330 ;2340 RTS ;Goto BASIC*D}2350 .END NGUAGE SORTS, PART 10110 ;BY KEVIN PECK0120 ;(c)1987, ANTIC PUBLISHING0130 FLAST = $00 ;End, outer loo(`2 I MKSRECPNDFLPMK $$MACHINE LA.F}NGUAGE SORTS, PART 1BY KEVIN PECK(c)1988, ANTIC PUBLISHING A2SET ASIDE ROOM FOR DATAF11;A`.G},;@,;@,;@,Z""FILL DATA STRING WITH BLANKSdAND THEN READ DATAx+ 6. 67A`,. +6.H}7@,.9-@@ 96-++&@,$@#,%@ "67<%B:,,.##67%@<%@.I}%B:,,.##67%@<%@%B:,,.  PRINT HEADING AND UNSORTEDDATA TO SCREEN A .J}&((Unsorted data....& ANOW SORT BY LAST, FIRSTAND PRINT NEW DATA"NN6-?:C:,MARY,JOHNSON,DRIVERH.S}AMANDA,JAMES,PROGRAMMERRBOB,HUNT,DRIVER\JERRY,PECK,TRAINERfMICKI,SMITH,PROGRAMMERpLEROY,JOHNSON,DRIVER.T}zJIM,HUNTER,TRAINER= (}-@=(Ԡ Ԡ Π9-@@ 96-++&@,.U}$@#,%@NN(7<%@, 7%@<%@, 7%@<%@",   $;A,Z.V}Z6.Phhhhhhhhhe˅hhhheЅhhhhׅ8̅΅եe̅Ԑդcc67@,.P5..W} Hԑhe̅ԥi3367Aa,. ЬЦe̅ͥiІЀ`$.X}D1:MULTISOR.DEMSRECPNDFLPMK $$MACHINE LA,<=f}SIIDOTXIXYIYZZLIVEOOSCREESCMOVECHSEM2Z} 2[}1040 TERMINATORBY STEPHEN STOUT(c)1988, ANTIC PUBLISHING APz@w2\}$6-R:,@6-+"@,&+"@,\6-+"@,&+"@,z"*"A1%%(55@2]}2*A3*A6*@8A21"A312AP@@<?"@812@P2^}@@?6-&@F= -(@  6-%(6-%.-=(@PA3ApZ2_}A0db6-&@!1%@-"A2;6-%@I-%@X(@ b A n -&@2`} (@ x,-&@"(@, A`b6-&@!1%@-"A2;6-%@I-%2a}@X(@ b AP -&@ (@ =-&@ (@.-%@=(@2b}/%2/ A9%29"@AP"A2c}p71%%7"@)"@2)"@8A"AP66-P:H:,$@,)"62d}6-6@4 1%-@2*@*@846-6J 1%-@2*@*@896-@6-2e}6J A06- A66-P:H:,$@,)"66-6@4 1%-@2*@2f}*@846-6J 1%-@2*@*@896-@6-6J A6- A" 12g}"A36-, -(@>:,60 6-%6-%1!-0(@@G%2@2h}@G2J"@APT @ ^06-&@#-@0(@2i}h^ -@6@<2^2@rL -(@,-@2j}@0 L2@A@|x -(@,-@@0 4 V22k}x2@"@6-@2"@6-@2"A0. 6-2l}6--$(@. @ 7-@7(@you lose hit triggera-@AP@;2m}2@@? a22@w2T:,"@AP%2n}-@AP "@A6-%@ A@7-@7(@you win hit tr2o}iggerb -AP@6@<2@@@ b2 AP6A2p}Y'-6(@}&;-;(@ SCREEN: LIVES:08-@@"2q}"'-4(@8 :. "6-6--*(@."D* "1-*(@N2r}AY@4 @ Xb&&&&& &&&&&& &&&&&l&&v&&&& &&&&&2s}& &&&& &&&&&&&& &&&&&&&&&&&& &&&& & &&&&2t}&&&&&&&&&&&&&&&&& &&&&&&&&&&&&&&&&&&&&&2u} & &&&& &&&&&&&&&&&& &&&&&&&& &&&& &&&&&& &&&& 2v}&&&&&&& &&&&&& &&&&& *9,12,1564 3,5,0,1>2w}H&&&&&&&&&&&&&&&&&&R&&&\&&&&&&&&&&&&&&&&&f &p&&&&&&&&&&&2x}&&&&&&z&&&&&&&&&&&&&&&&&&&&&& &&&&&&&&&&&&&&&&&&&&2y}&&&&&&&&&&&&&&&&&&&& &&&&&&&&&&&&&&&&&&&&&&&&2z}&&&&&&&&&&&&&&&& &&&&&&&&&&&&&&&&&& &&& &&&&&&&&&&&&&&2{}2,21,19318,3,-1,0$.&&&&&&&&&&&&&&8&&&&&&&&2|}&&B&&&&&&&&&L&&&&&&&&&&V&&&& &&&& &&&&`&&&&&&j&&&& &2}}&&& &&&&t&&&&&&&&&&~&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&2~}&&&&&&&&&&& &&&&&&&& &&&&&&&&&&&& &&&&&&&& &&&&&&&&&&&&2}&&&&&&&&&&&&&&&&& &&&&&&&&&&&&18,20,193 1,3,0,2}1 &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&(&&& &&&&&&&&&&&&&2&&&&&&&2} &<&&& &&&&&&&&&&&&&F&&&&&&&&&&&&&&&&P&&&&&&&&&&&&&&&&Z&&&&&&&&&&&&&&&&d&&&&&&2}&&&&&&&&&n&&&&&&&&&&&&&&&&x&&&&&&&& &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&2}&&&&&&&&&&&&&&&&&&&&&&&&&& &&&& &&&&&&&&&&&&&&&&&&&& &&&&&&&&&&&&&&&&&&&2}&&&&&&&&&&&&&&&&10,13,2851,21,0,-1&&&&&&&&&&&&&2}&&&&&&&&&&&&&&&&&&&&&&&&&&&& &&&& &&&&&&&"&&&&&&&&&&&&& &&&,&&&&&&&&2}&&&&&&6&&&&&& &&&&&&&&&&@&&&& &&&&J&&&&&& &&&&&&&&&&T&&&&&&&&&&&&&&&&^&&&&&2}&&&&& &&&&&&h&&&& &&&&r&&&&&&&&&& &&&&&&|&&&&&&&&&&&&&&&&& &&&&&&&&&&&&&2}&&&&&&& &&&& &&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&2}17,20,259 3,3,1,0C +AY1@@dCB7t@dO;@V,O6.8hhhh2}hhh`6-AD$AV!!6-?:C:,<BsD<<A$, #A0 A2} 1-@"-%$@%1 "6@ A&''3,255,129,189,189,189,189,129,25502}%%4,60,102,195,153,153,195,102,60:''5,126,255,255,255,255,255,255,126D6,24,62,96,60,6,124,24,0N$$7,60,126,219,2552},102,60,36,102X""8,56,56,16,124,186,186,40,40b-1l;@ ,vK+@%@'AY9@@d2}KB7t@d'A@'A AY-@1(@C-@@2}Y(@U-6-F:A`,%F:Aa,$AV%@A%@@U%@@c-@2}@3(@1040 TERMINATORE-@@c(@٠Π3-@@ 3(@trigge2}r to beginAY@42@w2T:,A9+@%@'@@d9B2}7t@dKA@@'AA9AAKA @9AV'AV!#A-62}-@96-@ A@D1:TERMINAT.BASSCMOVECHSEM09@@$%$% B@HIBD@E V`}堛 By Matthew Ratcliff 6} Press Joystick trigger to pause(send ^S) scrolling text from modem.Press trigger again to continue(send a ^Q).=6}H  .h(lLɾ``@ V`}堛 By Matthew Ratcliff 4C0100 ; TRIGGER THROTTLE, SOURCE CODE0110 ; BY MATTHEW RATCLIFF0120 ; (c)1987, ANTIC PUBLISHING0130 JIFFY = $140140 CTL_S :}= 190 ; INTERNAL CODE0150 CTL_Q = 175 ; INTERNAL CODE0160 VVBLKD = $02240170 CH = $02FC0180 ; Operating system:} equates:0190 CIO = $E4560200 ICCOM = $03420210 ICBAL = $03440220 ICBAH = $03450230 ICBLL = $03480240 ICBLH = $03490:}250 ICAX1 = $034A0260 ICAX2 = $034B0270 TRIG0 = $D010 ;Joystick trig 00280 PUTBIN = $0B0290 ;0300 *= $40000310 I:}NIT0320 LDA VVBLKD ; Install0330 STA VEXIT ; VBI0340 LDA VVBLKD+1 ; routine0350 STA VEXIT+10360 L:}DA # START0380 LDX JIFFY0390 HOLD0400 CPX JIFFY ; Sync so0410 BEQ HOLD ; VBI won':}t0420 ;0430 STA VVBLKD ; crash the0440 STY VVBLKD+1 ; installation0450 LDA #CTL_S ; procedure.0460 STA:} THROTTLE0470 LDX #00480 STX BUSYCTL ;Enable throt.0490 LDA #PUTBIN ; Print title0500 STA ICCOM ; scree:}n.0510 LDA LEN0520 STA ICBLL0530 STX ICBLH0540 LDA # TITLE0570:} STA ICBAH0580 JSR CIO0590 RTS ; Back to DOS0600 ;0610 TITLE0620 .BYTE "}:}",1550630 .BYTE " By Matthew Ratcliff ",155,1550640 .BYTE "Press Joystick trigger to pause",1550650 .:}BYTE "(send ^S) scrolling text from modem.",1550660 .BYTE "Press trigger again to continue",1550670 .BYTE "(send a :}^Q).",155,1550680 LEN0690 .BYTE *-TITLE0700 ;0710 ; Trigger Throttle installed.0720 ; Actual program is below.0730 :};0740 *= $01000750 ; Place this code in the lower0760 ; 62 bytes of the 256-byte0770 ; system stack at $0100-$01FF.:}0780 ; (Should be safe!)0790 ;0800 VEXIT0810 .WORD 0 ;VBI exit vector0820 THROTTLE0830 .BYTE 0 ; Space o:}r BS0840 BUSYCTL0850 .BYTE 0 ; Control flag0860 START0870 PHP ; VBI starts0880 PHA ; Sav:}e all stats0890 LDA BUSYCTL ; and regs.0900 BNE TIMIT ;ON0910 ;0920 TESTON0930 LDA TRIG0 ; Busy on0940 :}; request?0950 BNE EXIT ; No. No change.0960 ;0970 INC BUSYCTL ;OFF, Turn it ON0980 LDA TH:}ROTTLE ; Send next0990 ; throttle state.1000 STA CH1010 JSR TOGGLE ;Change throttle1020 ; :} state.1030 EXIT1040 PLA ; Restore stats1050 PLP ; and reg & exit1060 JMP (VEXIT)107:}0 ;1080 TIMIT1090 LDA TRIG0 ; Trig released?1100 BEQ EXIT ; No, time-out1110 ;1120 LDA #0 ; Yes, r:}e-enable1130 STA BUSYCTL1140 JMP EXIT1150 ;1160 TOGGLE ; If ^s, then1170 CMP #CTL_S ; next is ^q118:}0 BNE TOGQ1190 ;1200 LDA #CTL_Q1210 STA THROTTLE1220 RTS 1230 ;1240 TOGQ1250 LDA #CTL_S1260 S:}TA THROTTLE1270 RTS 1280 ;1290 *= $02E0 ; init addr.1300 .WORD INIT ; for LOAD1310 .END 0140 CTL_S 8r8K8P?@     Y`  Y0 l `8''xXL( LinkLine/80>}0V.041486 (C)1986 Antic Publishing Written by Patrick Bass Receiving Working Transmitting READY>>}(|)PBJKL(E:D(E VP B D'EWHI V &B JKL)R1:D(E V $>}B JKL()R1:$D)E VP BD'E HI V G,P BlD'E HI V ,L5)D1:)*~):)):"`>}BJKzD)E V 0#`BJK}D)E V0`P BD'EHI V`08~):>}H):A`BJKzD)E VAP BD'EHI VL*`BJK}D)E V0A*+(` B>}D(EHI Vii8` B JKL*R1:D*E V (BJKL+R1:D+E V>}0((( BD(EHI V( BD(EHI Vii8++>}( BD(EHI V B V`G,B- B JKL_,R1:[D,E V (BJKL,R1:D,E V>}+ BD'EHI V ,+'+ ΢ B V`' P BD'EHI V`+LL-SL- `>}+})0 )0 b-` B VPC->. BvD'EHI V *``BD'EHI V0$'>}iiiiLb-`+}) - *` B V0`0P B`D'E HI>} V B JKL!.R1:D.E V (BJK?./LF.R1:BD.E V BD'EHI V䭜'ۢ B>}םD-EHI V B؝D-EHI V BD'EHI V'iiii8-->}--- -Ш B V`'     Y`  Y0 l `8''xXL( LinkLine/80<!