@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}}} HE |||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- 128ɛ+,' 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 D4uEiͩkΩ͙kCop j`j {j`Hi͝Νh`V}L"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`Y? O XLAPNB0D +26-?:C: X}hhhԩ`,<A6,DAdAUuAA'A @9A@&K@@]@ Y}@7c(}uAR@++(#++(#| Antic Monthly Disk, June 1987 | Z}++(#( | Side 'A' |++(# @  [}-@A $ GG;@@,;@ ,;@@,;A,;@,;@@, "D1:MENU" &&@ \}@D:*.* 6,6." 6 @0i6-%@(6.7@<@,A67@ ]}<@ ,..i67@<@,.7@<@,3 6.|67B:,%@,.367B:,%@,.G67@< ^}@,.(--@B:,:7<,4 G67<,..] 6.=:, @D67@<@,.7@<@,]6 _}7@<@,.0$@(''7@<@,4FREE@- @ 2() <@ `}F''7@<@,4FREE@K @ P(7@<@,)|U @0W'!-@6+'@,% a}@' |Z++(#| |[ ( |  |\++(# b}d**(" Select HELP.BAS for information.xAR[@@9'-@@#C( FI c}LE NUMBERM A0Q[ BP:,A00"@&6.7@<@,0 AELB6.7+&@,$ d}@%@<+&@,$@%@,L B37@<@,4 36.7@<@,!7@<@ e},4DOS!.0 6.-@B:,07<,4 AH67B:,%@,.7<,   6.! 6.D1:!67B:,% f}@,.?AR@'-@@"?  LOADING ? A@@91@@5% g}? B[-@@"-  CANNOT RUN 7 @LF:A,"@![% D:HELP.BAS B A0 h}D1:MENU.XLAPNB0D +26-?:C: 78BBFLAGSSHISSSCIMMA1MA2SQAMOJNA&@u@ }|LINEA ;A ,;@,; (}@;@@ D:DOC.TXTk} A(@2vB:,!@-7@<@,4XXX0(3(E-@@"Y(ӠΠf@l}l(}v @@<( @@dj@ B*-@@"R("ΠҠՠҠˠҠ_@m}j%D:MENU D:HELP.BAS ;A ,;@,; (}@;@@ D:DOC.TXT% WELCOME TO THE ANTIC MONTHLY DISK Most of the pro}ograms on this disk arewritten in Atari BASIC. Some requirespecial hardware or specific instruc-tions. Please read the corp}respondingissue of ANTIC for completeIf you wish to order a back issue,or need subscription information,call us at (415) q}957-0886. For creditcard orders, dial (800) 227-1617, Ex.133. In California, call(800) 722-3545, Ex. 133XXX *** BONUS r}FILES * BONUS FILES ***Whenever there is sufficient room,we will be including TYPO II andLINKLINE on the monthly disks.s}TYPO II is in LISTed form, and must be ENTERed before using.It will not RUN from the menu.Please see the HELP files on tht}eback of this disk for LINKLINEinstructions.XXXWe've also included HAUNT.BASthe complete version of RobinAlan u}Sherer's HAUNTED HOUSEdemo program. (See this issue'scomputer animation tutorial formore information!)XXXThe menu thav}t appeared on the screenwhen you booted the disk will onlyRUN programs with a .BAS extender.If you try to run a program anw}d theresponse is 'cannot run Filename',check the file extender with thislist:XXX.BAS BASIC saved program, use menu x} RUN or LOAD and RUN..LST BASIC listed program, ENTER then RUN..EXE Assembly language 'Load and Go' y}file. Remove BASIC, boot DOS, type L then enter the filename..ASM Assembly language source code (Atarz}i Assembler Editor) Must be compiled..M65 MAC/65 assembly language source code. Must be compiled.XX{}X.OBJ Machine language object file. Same as .EXE but not 'Load and Go'. See corresponding article..SYS R|}eserved for DOS system files..TXT Text file. Usually accessed by another program..ACT ACTION! language source co}}de. Must be compiled..LGO A Logo program. Requires the Logo cartridge.XXXAll programs from ANTIC issues~} datedprior to August 1984 were reproducedfrom ANTIC's Archive. We've updatedthem from our HELP columns andmost are comp}atible with the XL andXE machines. We have worked to insurethat our programs operate aspublished, but we consider all our}software listings to be works inprogress which we encourage you topersonalize and enhance.Good luck, and ENJOY! } -ANTIC EDgs to be works inprogress which we encourage you topersonalize and enhance.Good luck, and ENJOY! 8K8P?@     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!32000 REM TYPO II BY ANDY BARTON32010 REM VER. 1.0 FOR ANTIC MAGAZINE32020 CLR :DIM LINE$(120):CLOSE #2:CLOSE #332030 OPEN} #2,4,0,"E":OPEN #3,5,0,"E"32040 ? "}":POSITION 11,1:? "Ϡɠ"32050 TRAP 32040:POSITION 2,3:? "Type in a program line"3}2060 POSITION 1,4:? " ":INPUT #2;LINE$:IF LINE$="" THEN POSITION 2,4:LIST B:GOTO 3206032070 IF LINE$(1,1)="*" THEN B=VAL(LIN}E$(2,LEN(LINE$))):POSITION 2,4:LIST B:GOTO 3206032080 POSITION 2,10:? "CONT"32090 B=VAL(LINE$):POSITION 1,3:? " ";32100 PO}KE 842,13:STOP 32110 POKE 842,1232120 ? "}":POSITION 11,1:? "Ϡɠ":POSITION 2,15:LIST B32130 C=0:ANS=C32140 POSITION} 2,16:INPUT #3;LINE$:IF LINE$="" THEN ? "LINE ";B;" DELETED":GOTO 3205032150 FOR D=1 TO LEN(LINE$):C=C+1:ANS=ANS+(C*ASC(LINE}$(D,D))):NEXT D32160 CODE=INT(ANS/676)32170 CODE=ANS-(CODE*676)32180 HCODE=INT(CODE/26)32190 LCODE=CODE-(HCODE*26)+65322}00 HCODE=HCODE+6532210 POSITION 0,16:? CHR$(HCODE);CHR$(LCODE)32220 POSITION 2,13:? "If CODE does not match press Π }and edit line above.":GOTO 3205032010 REM VER. 1.0 FOR ANTIC MAGAZINE32020 CLR :DIM LINE$(120):CLOSE #2:CLOSE #332030 OPEN! @ @ A @6AB B6rt }BFRBH CITADELBY HEATH LAWRENCE (c) 1987, ANTIC PUBLISHING( Ap A`2  }A<%6-%@%"@7A@Fc%6-P:H:,$@6,%@16-@H8,"@pW68,- }c6-PMOVE BOMBZ-@@&6-R:,T6-&@$+"@,%@$+"@,6-&@ }$+!@5,%@$+ ,-@( @wdA%6-P:H:,$@,&@5!+%@ },A6-nD2+"@*F:%%@@$,"A,A D%%@@$xU 6-%6-%@=2@%@ }@@I @U6-@!@76-@7b6-F:%%@@$,,"AA@!@ }A X%%@@$@b @GAME OVERG-@@,(CITADEL DESTROYED!@-%@@G( } y-AA@;2@@@M-@ y('iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii }y-@ A('kkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkkE g2@y-@ _ }/('fffffffffffffffffffffffffffffffffffffffA-@@_(PRESS TO PLAY AGAIN* F:B2y,@A* } @PUPDATE STATSZ-@"(SCORE:4-@'C(IMPACTS:W"@A`Z$RAC }K CLEARED{-@((Šš66-%@%@ A \-@@ @{2@8,@ }@-@8%@, $ @-@@ @_2@8,@@x-@8%@ },|  -@@ @>2@8,@@]2@8,@@v-@8%@ },z ~ -@g( 82@Z2@d A }@g$SHIELD HIT"q6-%@-( ' A ;-@0@pO-%@@V(ppj-%@@ }q(qq,j2@@@# E2@Y-%@@`( j @`6CI }TY HIT@6-%@ A 7-AA@S2@@@eA@gk-q(kA }@gJq -(k!A@i'--(i?A@eE-K(fO q2@ }TA @`^SELECT LEVELhX +@A@1-@@L(@ skill level }X6-@r6-R:,@6-%@$+"@,&@$+"@,n6-%@$+ @,&@$+!@,- }@@(@-@@5 |# T:,Ap#$PLAYFIELD +AY }3AV'AVEAR@WAy6-F:@,%AV$F:@,6-6-6 }-@Q-@8#-@!)(b5-@";(b? Q-@ y-(%dcd dc c cdd c dc dc ddc d }cdc cdc dcA-@@o-P:H:,$@9,P:H:,$@,u(jy ]-@@ $( lmno. }A @AY@4]-@56@|%2@@@@1-@9(hgaM-@ }@Q U i-@@7x68,-@| O-@( (6-:@ALB7tA }O$REDEFINE C-SEToG9@,9@,;@,9@7,;@,;A6,R6. ee oAF:A }@,&@V#67@<@,.>:@4,:67@<@,.D+@VA@f;;6-C:.hhhhhh }h`,__67@<@h,.D::=mߞq<~B~B~~<<~B~fUUU,jU| ~ }@__67@i<A6,.D @hA $#??????##UUUU##H67@<@,. }167A!<A",.H67A3<A4,.-@@*(@CITADEL<-@@[(@٠ }Ƞm-@@ (@(c)1987, ANTICW$6-+F:A,%@,$AV?6-?:<BsD<<A$,S- }@AW &##6-?:xp8  Ш $}xj$AR@70@70@@-@$}@"-@(% !-@@!(GMNGQ3 -@@ (!' # *-@@($}-@@-@(J !-@@ !( -@@ ( Z-$}@@Z(>:@',>:@0%A(,>:@',>:@(%A(,-@( -@$}@(-@&(2-@%( < F-@@P-@(JZ d-@ $}@n($$$$$$$$$$$$$$$x-@ @(W X Z 0 1 2 e F f-@@"-@3(%$} -@5@(  -@5@ ( -@4@!(& x (-@5@"($}-@@(/ \-@@( -@@(\/-@#"-@$}@9("  #A -@@ "-(v" ,-@3@(s _STAR$}S2,1,3,3,19,0,23,0,29,018,2,24,5,26,1,31,2,38,2 AV%@ A` *4$}  ;A$,__TEST.FNT **67@,.<<~ ))67@$,.|ƒ،p133 ))6$}7@F,.33~~<$<8TTTDp ))67@h,. pPPƒTT ))67@,.~0~ ((67$}A,. 0`@8TT ((67A3,.T((Ƃ((( ((67AT,.=  ((67Au$},. Ȉ& ((67A,.8<<`p<<  0 ((67A,.Ш : ((67A8,.$}>xp8 D ((67AY,.xN ((67A,.8\|E@@~`|X ((67A,.``~8$}t| b ((67A",.~~l ((67AC,.flxxlf`````~v ((67Ad,.UU$}w ((67A2,. ((67AS,.8pp8 ($}(67At,.? ((67A,. ((67A,. ((67$}A7,.ww ((67AX,.<~~~ ((67Ay,.< ((67A$},. ((67A!,.8l|DJ@ ((67A,.>8888||@pP8||p ((67A,.<~D8$}T(8|(P pz ((67A ,.!I$H~^~>|88T ((67A 1,.~B(|(l1z>9 ((67A R,.8l|DD$}D8t| ((67A s,.DD 8t|D <~~< ((67A ,.~x|nf 67A,. TTTTTT6-?:$}C:,}Ap-%@%@(r s-%@(*x7%2@%@@7@ }5?} F:@ , @A%<-%@( 92<$K'6-%P:H:,$@,&@5@}K6-%P:H:,$@,&@ @6-@!@56-@5!@6-@5A} @6-@ - ( -%@ (  -%@ ( $ HIT7%25B}@5@@7@ -%@(*-%@%@( A F:@ 5C}, @ A - 6-%-@3!(-6-A6-%@( --%@%@6( (%65D}-@%P:H:,$@ ,($J%6-@%P:H:,$@2,G6-@%P:H:,$@,J$K-@@5E})(- OUT OF AMMO -;-@@K( press  F:B2y,@A%D1:STINGRAY.BAS4xAB/CCHOICTDBLANKTMSCORHANDICABLSORSORTTOTABESDISKBYT9G}  GOLF HANDICAPPERBY JERR9H}Y WHITE (c) 1986, ANTIC PUBLISHINGd3 +AR@) A3 A n A x'@@9I}'AR((1 ENTER SCORES((2 DISPLAY SCORES((3 SAVE SCORES & EXIT/(( YOUR CHOICE!9J} A%/ B+ 6-P:,@@+(>:A%,!! @)!@A# @#A9K}$@AAA)6-%@!@ )6-@ &&67$@ &@<$@ ,.'(9L}'(ENTER NEW SCORE INFORMATION:(( DATE (YYMMDD)&B:,@ A& A@F-@@/9M}7<,20)7<,392'< AF A@ ..67$@ &@<$@ &@,."(( YOUR SCORE,9N}3B:, @)B:,!@) A3 A6C-@B:,,7<,20)7<,39/'9 AC A@ J9O}<367$@ &@<$@ &@%B:,,.<6-A:,T(( COURSE RATING^3B:, @)B:,!@) A9P}3 A@h-@B:,rB:, @ A|0&"@*7@<@,4.0 A27<,209Q})7<,39'( A2 A@ <367$@ &@<$@ &@ %B:,,.<6-A:,/(+(IS THE ABOVE 9R}DATA CORRECT (Y/N)/ (B:, A ,7@<@,4Y"6., Ap37@<@,4N)(>:A%9S},3 A  A 96.=:+&,$?,!6-B:,-!@96-@0067$@ &@<$@ &@9T}%,. AK(((I HAVE NO SCORES TO DISPLAY+(=( PRESS AK A666-?:C:,:A%,4AR@@6-L6-(ŠŠ9V}Ǡ;-@;(7$@ &@<$@ &@,&E16-A:7$@ &@<$@ &@,,=!@9W}E( 0 A( :k-(7$@ &@<$@ &@,A-@%%@k(7$@ &@<$@ 9X}&@,DW07$@ &@<$@ &@,4 M(>:@0,>:@0,.0W AN(X b6-'@9Y}l-'@P:'@,-6-P:%@,v< 6.<6-?:C:,= 6. 67A,. +67@,.16.9a}76.=6.H6.D1:GOLFHDCP.DATR5-@A")67<,.>:,16-%5 \2B)(/(ERROR IN DATA9b} STATEMENTS2fWAAH'A @9AK@@W6-pRR216,104,56,233,3,19c}33,217,104,133,204,104,133,203,104,133,215,104,133,214,104zNN133,210,104,133,209,162,0,104,104,157,0,1,232,228,217,208,2469d},56,165,209PP233,2,133,209,165,210,233,0,133,210,48,108,165,209,133,211,165,210,133,212TT165,204,133,206,133,208,165,9e}203,133,205,24,101,214,133,207,165,208,101,215,133GG208,160,0,185,0,1,190,2,1,134,218,190,1,1,200,200,200,132,216,168N9f}N136,177,205,209,207,240,12,165,218,208,4,144,16,176,46,144,44,176,10,200SS202,208,234,164,216,196,217,208,210,198,211,19g}69,255,197,211,208,6,166,212,240QQ11,198,212,165,208,133,206,165,207,24,144,172,165,213,240,4,134,213,208,148ZZ96,1349q}b'DOS SYSb*+DUP SYSbUAUTORUN SYSbWMENU bjHELP BASbnDOC TXTbLINKLINEEXEb TYPOII LSTb%iCITADEL BASb9HAUNT BASb HAUNT01 BASbINFORMEREXEb.INFORMERM65b4STINGRAYBASb&FGOLFHDCPBASbuMAIL LGOb'VERBOT BAS,213,160,0,177,205,170,177,207,145,205,138,145,207,200,196,214,208,241,240,2035 A@5@@9r}"@ A)@B:,@ ) A>6-%@467$@ &@<$@ ,.> 9s}A !@ B6.!$-@@'A-(})()( GOLF HANDICAP CALCULATO9t}R$($( by Jerry White$ D1:GOLFHDCP.BESDISKBYT8@TO ADDRESSCS CT TSSETCURSOR [12 10] PRINT [LOGO ADDRESS BOOK]SETCURSOR [18 14] PRINT [by]SETCURSOR [9 16] PRINT [M. Loren=v}z / A. Moose]SETCURSOR [11 18] PRINT [December , 1986]SETCURSOR [7 20] PRINT [c.1986, Antic Publishing]PRESS.CENDTO PRE=w}SS.CSETCURSOR [4 22] PRINT [Press C to continue]CHOOSEENDTO CHOOSEMAKE "CHOICE ( RC )IF :CHOICE = "C [CT MENU]IF :CHO=x}ICE = "1 [CT MAKE "DATA [] INPUT MENU]IF :CHOICE = "2 [CT ADD MENU]IF :CHOICE = "3 [CT MAKE "DATA [] UPDATE MENU]IF :CHOIC=y}E = "4 [CT GETMAIL PRINT.ALL MENU]IF :CHOICE = "5 [CT SELECT MENU]IF :CHOICE = "6 [CT QUIT STOP]CT PR [YOU ENTERED AN INCO=z}RRECT NUMBER]WAIT 100 MENUENDTO MENUCTPR [YOUR CHOICES ARE...]PR []PR [* 1 - CREATE A NEW MAILING LIST]PR []PR [* 2={} - ADD TO THE EXISTING LIST]PR []PR [* 3 - UPDATE AN ENTRY]PR []PR [* 4 - PRINT OUT THE WHOLE LIST]PR []PR [* 5 - PRINT=|} OUT A SELECTED NAME]PR []PR [* 6 - QUIT]PR []CHOOSEENDTO ADDGETMAILMAKE "DATA BL :NEWDATAINPUTENDTO UPDATEGETM=}}AILMAKE "NEWDATA BL :NEWDATAPR [GIVE FIRST AND LAST NAME]MAKE "TAG ( RL )FINDENDTO INPUTCTPR [ENTER FIRST AND LAST N=~}AME]PR [( Or END for Main Menu )]MAKE "NAMELIST RLIF EQUALP :NAMELIST [END] [DATASAVE STOP]PR [ENTER STREET ADDRESS]MAKE=} "STLIST RLPR [ENTER CITY, STATE ZIP]MAKE "CITYLIST RLPR [DO YOU WANT TO MAKE CORRECTIONS? ( Y / N )]MAKE "CHOICE RCIF E=}QUALP :CHOICE "Y [INPUT STOP]MAKE "DATA LPUT :NAMELIST :DATAMAKE "DATA LPUT :STLIST :DATAMAKE "DATA LPUT :CITYLIST :DATAI=}NPUTENDTO PRINT.ALLSETWRITE "P:PR FIRST :NEWDATAPR FIRST BF :NEWDATAPR FIRST BF BF :NEWDATAPR []MAKE "NEWDATA BF BF =}BF :NEWDATAIF EQUALP FIRST :NEWDATA "* [SETWRITE [] PRESS.C STOP]PRINT.ALLENDTO GETMAILSETREAD "D:MAILIST"MAKE "NEWDAT=}A RLSETREAD []ENDTO SELECTPR [GIVE FIRST AND LAST NAME]MAKE "TAG RLGETMAILSELECTPRNTENDTO QUITCTPR [THAT IS ALL,=} FOLKS]WAIT 50CTENDTO FINDIF EQUALP :TAG FIRST :NEWDATA [CORRECT STOP]MAKE "DATA LPUT FIRST :NEWDATA :DATAMAKE "DATA =}LPUT FIRST BF :NEWDATA :DATAMAKE "DATA LPUT FIRST BF BF :NEWDATA :DATAMAKE "NEWDATA BF BF BF :NEWDATAIF EMPTYP :NEWDATA [P=}R [NO MATCHING NAME] WAIT 100 STOP]FINDENDTO CORRECTPR [HERE IS THE CURRENT ENTRY]PR []PR FIRST :NEWDATAPR FIRST BF :=}NEWDATAPR FIRST BF BF :NEWDATAPR []PR [ENTER NAME]MAKE "NAMELIST RLPR [ENTER STREET ADDRESS]MAKE "STLIST RLPR [ENTER C=}ITY, STAT ZIP]MAKE "CITYLIST RLPR []PR [DO YOU WANT TO MAKE CORRECTIONS? ( Y / N )]MAKE "CHOICE RCIF EQUALP :CHOICE "Y [=}CORRECT STOP]MAKE "NEWDATA BF BF BF :NEWDATAMAKE "NEWDATA FPUT :CITYLIST :NEWDATAMAKE "NEWDATA FPUT :STLIST :NEWDATAMAKE =}"NEWDATA FPUT :NAMELIST :NEWDATACREATELISTENDTO DATASAVEMAKE "FILEND "*MAKE "DATA LPUT :FILEND :DATASETWRITE "D:MAILIS=}TPR :DATASETWRITE []QUITENDTO CREATELISTMAKE "DATA LPUT FIRST :NEWDATA :DATAMAKE "DATA LPUT FIRST BF :NEWDATA :DATAM=}AKE "DATA LPUT FIRST BF BF :NEWDATA :DATAMAKE "NEWDATA BF BF BF :NEWDATAIF EMPTYP :NEWDATA [DATASAVE STOP]CREATELISTEND=}TO PRINT.SOMESETWRITE "P:PR FIRST :NEWDATAPR FIRST BF :NEWDATAPR FIRST BF BF :NEWDATASETWRITE []ENDTO SELECTPRNTIF E=}QUALP :TAG FIRST :NEWDATA [PRINT.SOME PRESS.C STOP]MAKE "NEWDATA BF BF BF :NEWDATAIF EQUALP FIRST :NEWDATA "* [PR [NO MATCH=}ING NAME FOUND] PRESS.C STOP]SELECTPRNTENDLOGO ADDRESS BOOK]SETCURSOR [18 14] PRINT [by]SETCURSOR [9 16] PRINT [M. Loren<-RESSCMDSTARCHSE@ A} VERBOT COMMANDERBY ALBERT BAGGETTA (c) 1987, ANTIC PUBLISHING2 AF:A}A@,&@<~ +AR@1A@CA@UA @Gg-@ @~(A}ԠҠ>&&;@,9@V,;@,@6.SHUDFBLRAN-@@%( PLEASE WAIT7-@ @A}N(LOADING CHARACTERSF;-@@;(!      K;-@@;(!  A}   P]-@@;(!      >(]( THESE ARE ROBOTS???U AA}Z%2A @@9-@A= _2@P@@s-@Aw 2A}^N-@@%( 7-@ @N( _V-@@A}>($ THAT'S BETTER R-@A V `F(+(WANT TO LOAD OLD SOUNDS Y OR N /F4N)4A}NOAa0Y*0YES@bB A@B@@ D:SOUNDS.FILc-@@VA}d)@68,-f @ BiPRINT COMMAND SCREENn?(>:A%,"-@@9(ROBOTA} COMMAND LIST<(?(s))(!  x--(%     },)(!  A}  ,(+(( +(++(# Stop Smile Up Down 4(1(&A}ѠԠ4(66(     !>:@4, # `[]))(!   &%$ A} @?b,)(!     '() a:=,(+(( +(++(# Forwd Bkwrd LA}eft Right.@.@@K:V%22)@D@AA}VB7tA0>:,4Q#AF:A@,-+07-@@76-+&@,$@%@A}7<,0>:,A[-%@228,@@F-@@J N Q'[ Au  AA}u,0&(CAN'T FIND SOUND FILE ON DISK!0 @^((CAN'T SAVE SOUND FILE.( A0REDEFINE CHARACTER SETOA}$6-+F:A,&@,$AV8-A#K%F:BsD%,O )AV'AV)AR@ #AA}5""6@@ 1-@"-%$@%1  A 1,0,0,0,0,1,2,4,9""2,A}0,32,120,132,2,125,254,255!!!3,32,64,240,76,34,1,241,121&##4,172,146,72,68,72,132,136,16+''5,255,254,255,255,255,254A},253,25506,19,35,103,39,39,19,11,557,2,3,3,3,1,0,0,0:$$8,254,124,128,65,170,148,64,32?9,32,64,128,0,0,0,0,0A}D!!10,4,2,15,50,68,128,143,158I!!11,0,4,30,33,64,190,127,255N12,0,0,0,0,128,64,32,144S13,52,73,18,34,18,33,17A},8X((14,255,255,255,255,255,255,127,255]15,4,2,1,0,0,0,0,0b26,127,62,1,130,85,33,2,4g!!27,64,192,192,192,128,A}0,0,0l28,4,2,1,0,0,0,0,0q!!29,64,192,192,192,128,0,0,0v((30,200,196,230,228,228,200,208,160{((31,255,127,255,25A}5,255,127,191,25532,53,73,18,34,18,33,17,8!!59,0,4,30,33,64,190,255,25561,0,0,0,0,128,64,32,1664,0,0,0,A}0,0,0,0,0&&65,255,127,191,223,224,230,233,4$$66,231,231,231,231,0,118,41,41$$67,255,254,253,251,7,103,87,80&&A}68,2,233,230,224,223,191,127,255##69,41,41,38,0,231,231,231,231##70,96,71,71,7,251,253,254,25571,0,18,36,73,19,A}38,79,2472,0,0,255,0,0,0,129,66##73,0,72,36,146,200,100,242,24&&74,59,107,72,135,143,136,132,255!!75,66,66,A}66,129,255,0,0,255%%76,220,214,18,225,241,17,33,255##77,128,120,24,40,72,0,192,240&&78,31,63,127,111,223,255,255,A}255((79,248,252,254,254,255,255,255,25580,220,198,113,28,7,0,0,0&&81,128,140,242,2,242,140,128,12882,1,1,A}1,1,1,1,1,1%%83,128,128,128,128,64,32,64,25584,1,1,1,1,2,4,2,25585,0,0,0,0,3,12,49,62&&86,128,140,178,194A},28,96,128,128 87,0,8,144,160,192,240,0,088,8,4,2,255,2,4,8,0  89,16,32,64,255,64,32,16,0 96,4,2,15,50,68A},128,143,3097,4,2,1,0,0,0,0,0((98,200,196,230,228,228,200,216,160 ""127,16,24,28,30,28,24,16,155%-1*COA}MMAND SOUNDS/41( (.( GENERATING SOUNDS FOR Ԡ1(9-@@V96-P:H:,$AU,%@ A}B68,-a28,@@e 2>A(&(SAVE THESE SOUNDS Y OR N *A4A}N)4NOA@0Y*0YESA0CB AP@B@@ D:SOUNDS.FILD-@A}@VF 6-8,*@G& @ B& A D1:VERBOT.BAS @]