@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, July 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: ^D[COLUSHAPLIND@P@@@@4A%FAFTERIMAGE T }|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 *** EXTRA-r}SPECIAL DISK BONUS! *** Introducing ANTIC WRITER, trulyone of the best word processingprograms of our time! And its}'s FREE, HERE, NOW fromANTIC. Just boot Side B of thisdisk for the ANTIC WRITER programand documentation!XXX ***t} BONUS FILES * BONUS FILES ***Whenever there is sufficient room,we will be including TYPO II andLINKLINE on the monthly u}disks.TYPO II is in LISTed form, and must be ENTERed before using.It will not RUN from the menu.Please see the HELP filev}s on theback of this disk for LINKLINEinstructions.XXX SYNCALC HelpThe SynCalc "Personal Net Worth"temw}plates are on Side 'B' of thisdisk.XXXThe menu that appeared on the screenwhen you booted the disk will onlyRUN px}rograms with a .BAS extender.If you try to run a program and theresponse is 'cannot run Filename',check the file extender y}with thislist:XXX.BAS BASIC saved program, use menu RUN or LOAD and RUN..LST BASIC listed program, ENTER z} then RUN..EXE Assembly language 'Load and Go' file. Remove BASIC, boot DOS, type L then enter the {} filename..ASM Assembly language source code (Atari Assembler Editor) Must be compiled..M65 "SAVEd" MAC/6|}5 assembly language source code. Must be compiled.XXX.OBJ Machine language object file. Same as .}}EXE but not 'Load and Go'. See corresponding article..SYS Reserved for DOS system files..TXT Text file. Usually ~}accessed by another program..ACT ACTION! language source code. Must be compiled..LGO A Logo program. Req}uires 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 compatible with the XL andXE machines. We have worked to in}surethat our programs operate aspublished, but we consider all oursoftware listings to be works inprogress which we encou}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!ESTPBY NICK KOZIUPAZ (c) 1987, ANTIC PUBLISHINGd AnCOLOR CHOICEx (} (AR@##( } 6(6(+Choose the color of the object to focus on:K((1) Red(2) Blue.( 3) Yell }ow<( 4) GreenK( 5) Purple( 6) Orange)@1"@I6-@'6-@1 AP1"@P }6-@'6-@1 AP1"@Q6-@'6-@1 AP1"@R6-@'6-@ }1 AP1"@S6-@'6-@1 AP1"@T6-@'6-@1 AP Ap }SHAPE CHOICE (} (##( 6(6(+Choose the shape of the object to focus on:"C(( } 1) Circle$( 2) Square5( 3) TriangleC( 4) Cross,)@6%"@I6-@% A`@%"@P }6-@% A`J%"@Q6-@% A`T%"@R6-@% A`^ Ah''A }AAA`r A|CIRCLE TESTU+@%@'A@9A@C@U }A@ #AAe@-@ ",7!@U7@@ }S: 0-@A5 A@-@A% $AA7 }7,33,78,33,79,33,80,33,81,33,82,33,83,33,84,34,85,34,86,34AA87,35,88,35,89,36,90,37,91,38,92,39,92,40,93,40,93,41,93,42 }AA94,42,94,43,94,44,94,45,95,45,95,46,95,47,95,48,95,49,95,50AA95,51,94,51,94,52,94,53,94,54,93,54,93,55,93,56,92,56,92 },57AA91,58,90,59,89,60,88,61,87,61,86,62,85,62,84,62,83,63,82,63&AA81,63,80,63,79,63,78,63,77,63,76,62,75,62,74,62,73, }61,72,610AA71,60,70,59,69,58,68,57,68,56,67,56,67,55,67,54,66,54,66,53:AA66,52,66,51,65,51,65,50,65,49,65,48,65,47,65,4 }6,65,45,66,45DAA66,44,66,43,66,42,67,42,67,41,67,40,68,40,68,39,69,38,70,37N))71,36,72,35,73,35,74,34,75,34,76,34X }SQUARE TESTbU+@%@'A@9A@C@UA@lK,@d@5'/@ }@59/@@bK/@d@bvAe@X -@b@56@,,@dT@@ }S:X 0-@A5 A@-@A% $ }TRIANGLE TESTU+@%@'A@9A@C@UA@9-@`A }),@@25/@d9 0-@A5 A@-@A% } $CROSS TESTU+@%@'A@9A@C@UA@ 3-@u@ }#,@5//@b3 3-@D@S#,@d//@3  0*-@A5 } 4A@>-@A% $7 +AR@1@7(}/( (/(! } '('( by Nick Koziupa-@AP .@.@@ }K:, (} (,( +(+(Do you need instructions (Y/N)?$)@. }"@A8"@x$B A`LINSTRUCTIONSV11()}ᠠ`Y(2 }(' This program demonstrates afterimagesY(!(how your eyes percieve an image jO#(after it has disappeared.)&(O($ } After selecting an object to view,tW.(&the screen will change to a dull shadeW($of white. Within seconds, the shape~ }S(( will appear at the center of theS(&screen. Fix your eyes upon the centerN&(of the object. After about 15N(#se }conds, the object will disappear.Y.(&Continue to look at the area where theY(&shape had been. If the experiment was }P+(#successful, the image will still beP( visible, but now in the opposite>(color.(>((ݠ } F:B2y,@A$D1:AFTIMAGE.BAS@4A%FAFTERIMAGE T L 0B?D(EJK V j' #& T$ & B V*0*1!/č`+ԩ' ' '' yG 83+3$}+La PN(N(N(N(J(+La C8I(I( A(*La DP(P(91P(P(8 *La LЃ 'La R( La U&E$}0*1 !''UEL!)(@L "0+1@ & & &'BٝD(EHI V(L|&a(a($}(8 '+L*ߢCɈж &F'' ,,,i,, ''ɛ[~' &ΐ'L! ' &'L!0480''+$}i 'a('!"'i,, ,'L! & X%"/l,m,  @ԢBٝD(EHI VCɈ p&$}n,n,(ɛ0 , I()ml,'a('m, "l,n,n,L"l,m,Lv$SɈЅ &L#'N('L'''8'''$}L'''8'"#_8''L'''m'8''L'23+&`& %V'#'L#0$}ϭ1Щo0,1 *y- ύ0Ѝ1L# ''153 %Lu#4L {-'1^ $'X˥Y̠˙()$}( BٝD(EPH#$I VSEi(˥i''`еL$2$ $ BXDYEHI VLG$Lu#L %SL$}$L#+` a(x`N(3+ -m,L$-m,L$L"`& %l,m,L"& %L$ BD$EH$}I V B VLu# B$%OD(EJK VS`hL& j'''{- '''~{- R(L%ɛ $}R(8 {-L%{-` BӝD%EJ3+KL%K V3+J0i˭1i̠ON˥i˥iL%A`$}i˥̅΅L%`S:'X˥Y̩ͩ@%&ΠH͑h(''`i(˥i̥i(ͥiL%`'˩@̠($}''i(˥iL0&`3+ " #`" #`X (`ɛL|! L|! L|!Ld!' ,,,8逝,,`(`a($}x`BOD(EJK VS `&' BLV䩕0-1Sԩ ؠȱ)- ' & 'L j'''* $}'''~* R(L%'ɛ ΝR(8 *L%'*` R(*{- ` Ў `''<(<( ͩ*L'0$}BʝD'EHILV&͍ͥ=(&Υ΍>(&'`(&Υm=(ͥm>(ΥXeͥͅYe΅έ')'JJeͥͅiά'8(90(=(4($}1 =(`U?0 K:\^]_D1: )*($}'' L|!L!ppppppGp*pA**ppppGP*AE*3%$%&!5,43/2$)49/52/7.c  !ntic0ubli$}shing)ncolumnofprintoutoadfile$*+efaultdrivenumbericturepos$}tioning\raphicsmodestartstheconversionHH Ԏ~+hh@HH ԩJ$}Щ čЩ Щ`+hh@ppppG+ppppppppppA++,$}pppppppG,0p$} Ao,3avescreen mode,-3avescreen mode %n$}tersavefilename2estartprogramtogglesscreens forscrn3avefilename$}$``ppppppppppG-A-%22/2  +ԩ' ' '' yG 83+3$R78 LSCVBLDPDIBONUCBPOSCORHIGIIFLTIM(ABh<II(}@tBhd @ A @ @ @P@h@@hBX@@)@(} CHICKENBY STAN OCKERS (12/81)ANTIC PUBLISHING, 1987 F#@@K:F;@ ,;@(} ,;@ ,(INITIALIZING ...PAGE 6 ROUTINES AND DATA(%-A6A"!% )VERTICAL BL(}ANK ROUTINE*8;A,$-@A("467,.>:,8 +LOAD PLAYER ROUTINE-8;@s,$-@@s(}("467,.>:,8 /))INSERT ADDRESS OF ROUTINE IN PAGE 60? 6-C:,6-P:'AV,)A@?A8&AV(}$2II104,160,52,162,6,169,7,76,92,228,104,160,98,162,228,169,7,76,92,2284bb120,120,120,120,30,57,81,105,15,15,15,15,0,0(},0,0,52,53,54,55,2,2,3,4,12,15,15,15,15,11,11,11678hh72,138,72,152,72,162,0,189,120,2,29,44,6,160,15,24,176,32,2(}01,15,240,28,201,14,208,2,160,13,201,139kk208,2,160,14,201,11,208,2,160,7,201,7,208,2,160,11,192,15,240,6,61,48,6,157,28,6(},152,61,44,6,157,44,6:232,224,4,144,195<UU162,0,189,32,6,133,203,189,36,6,133,204,189,40,6,133,209,198,209,16,7,232,2(}24,4A%%144,232,176,91,189,28,6,133,207F7770,207,176,26,188,24,6,192,1,240,19,208,1,200,177Kff203,240,6,136,145,203,2(}00,208,245,136,145,203,222,24,6,70,207,176,29,188,24,6,200,192,254,176,21Phh177,203,208,247,136,177,203,240,6,200,145,203,(}136,208,245,200,145,203,254,24,6,70,207,176,3,222,20U006,70,207,176,3,254,20,6,189,20,6,157,0,208Z``24,144,154,162,4,18(}9,11,208,240,5,169,0,157,39,6,202,208,243,104,168,104,170,104,76,98,228d[[234,234,234,104,104,104,170,189,32,6,133,186,189(},36,6,133,187,104,133,213,104,133,212nff189,24,6,133,195,169,0,168,192,255,176,35,196,195,240,5,145,186,200,208,243,162,0,(}161,212,240,11x]]145,186,230,212,200,192,255,176,11,208,241,169,0,145,186,200,192,255,144,249,96,234,234CAR COLOR DA(}TA+-@@ "'67,.>:,+ JJ24,60,218,68,90,186,70,150,54,232,74,168,88,154,21,252,200,76,228,28..(}DEFINE P/M AREA - SINGLE LINE RESOLUTION46-F:A,&@&BBy46-AV$PLAYER MISSILE POINTERS+(}-@@'Ah%%+ '-AhAq#' DATA FOR PLAYER IMAGES!-%A!(}"! HH16,56,16,56,40,16,16,16,146,254,254,124,56,56,40,40,40,40,40,108,0==126,195,219,219,91,219,219,219,21(}9,91,219,219,195,126,0??126,195,219,219,218,219,219,219,219,218,219,219,195,126,0==33,34,150,84,57,30,60,123,159,30,5(}2,86,151,36,194,193,0CC16,56,16,56,40,16,16,56,124,254,186,56,56,40,40,40,44,32,96,0@@16,56,16,56,40,16,16,146,214,12(}4,56,56,40,40,40,104,8,12,0??126,255,173,173,239,199,199,199,199,239,173,173,255,126,0INIT. HORIZ. & VERT. POS./(} #A!-AVAc%"+/ ""120,120,120,120,30,57,81,105 INIT COLORS"6-@6-A-(}A@@96-M-@@cA%@:7%,,g s6-@6-@'DRAW ROADS - SET PRIORI(}TY,0 +@!-@@ ,67,._0 1A-@@ @*67,.-=67&@,. A 6-(}@"(@4-@A(@S-@`(@r-@"(@8-(}@"(@4-@A(@S-@`(@r-@(@A(}@T))INIT. AND PRINT INFO. - RESET TIMER^x6-@P!-@C(@score time U-(}@#x(@dif high hw-"(@4-@@"A(@S@w(}e@w@ mINIT. P/M GR. - FLAGSrEAY@b'B2w@36-@h?6-(}@E6-w..LOAD PLAYERS - SET COLORS - PLAYER SIZES|p 6-C:,6-?:<<,:6-?:<@<%@!,U6-?:(}<@<%@!,p6-?:<@<%@!,'6-?:A6,'INSERT VBI ROUTINEKB2W@'B2X@(}9B2Y@KA#@INIT. SPEEDSFAv@)-AwAyBH:,$%@F (}"-@@""(@&&IF CARS OFF SCREEN, CHANGE LANES+F:AW, @*F:Aa,"@W=Aa(}AX6-?:<@<%@6,jA@t AA+F:AW,!A@*F:Aa,"A=Aa(}@WX6-?:<@<%@!,jA@t AA+F:AX, @*F:Ab,"@=A(}bAiX6-?:<@<%@6,jA@t AA+F:AX,!A@*F:Ab,"Ai=(}Ab@X6-?:<@<%@!,jA@t AA+F:AY, @*F:Ac,"A(}=AcAEX6-?:<@<%@6,jA@t AA+F:AY,!A@*F:Ac,"AE(}=AcAX6-?:<@<%@!,jA@t AA""PRINT TIME - CK. FOR TIME UP(}Q6-@0&F:@,,-@=(@ QA  RESET SOUND - HORN ROUTINE%%2(}:H:,!?P:2@:H:, ?:2@@@)}@CHICKEN STOMP06-F:Ad,0!@) @A,"@"6-?:<<,, A)}; "6-12@@@; A1 "6-12@"@@CHECK FOR RE)}ACHING BOTTOM6-?:<<%, F:A`,!A0ACHECK FOR COLLISION F:B2`,"A)} SPLAT6-?:<<%@Q,2-@@_2H:,$AU@@2@H:)},$AU@@  AF:A,%@4-@@08 < ^22)}@A@@""DECREASE SCORE - CHECK FOR 0J6-&@ #-6(@)} JA))MOVE UP - RELOAD BIRD - RESET COLL.M A`F:A`,&@$36-?:<<,?)}!@M6-&@NB2x ASCORE = ZERO1-@@1(@Χ )}AMBULANCE6-@2F:Av%,"(6-%@2 A!@6-@WAv%@) }.A`%F:A`,BAV%A W6-?:<<%A,h-@@4-@`@@6@P2) }@@d-@@h  #-@@@`@?2@@S-@@) }W [ _ 2NEW HIGH SCORE?=6-?:AF,!6-0-@@"=(@) }a-@@4(@ F-@@a(@ k-B2HB2Q) }#' I2k2@WAIT FOR BUTTON T:,"@)}A@P/M GRAPHICS OFF@B2x'B2w66-?:AF,@ A ))BACK TO TOP - STOP M)}OVEMENT OF BIRD*:A`@0(6-?:<<,:Av/ SIGNAL AND INCREMENT SCORE4-@@)}4-@@6@P2@@l2@@@p 2)}2@9\6-?:<<%@h,=-@H:,$@0A \6-?:<<%@)},><6-%$@%-8(@ < H @ 6-%@ICK FOR BONUSJ AP)}Lj%2@%@@36-%AB6-F:@,N @`@j AHN@&@)}P,-@(@,6-%@R ATIME'S UP ROUTINE,-@@,(@ ŧ)}  A CHANGE CAR COLOR)6-%@"@ )6-@6-@:7,,$D1:CHICKEN.BASII(y=>MSSTOMMSTMOTBRCHSEDSGICCOICBADICBLETRPW-} -} """GHOST WRITERS IN DIS-GUISE"BY THOMAS MOORE(c)1987, ANTIC PUBLISHING+@%@J1;@ -},;@ ,;@ ,;@ ,J6-+F:B2y,@,$ A`8 A L6-@`- A+%@-}-AV'AVt9A A('A@9AA0--6-F:A`,%AV$F:Aa,%@-}5-@'%A3%+ 5 A@*@@'@@)*(6.6.$--}-@B")AS%- ''72,138,72,152,72,162,0,141,10,212++189,1,6,188,9,6,141,24,208,140,25,208-}((232,173,0,6,201,1,144,3,141,10,212(**224,6,144,226,104,168,104,170,104,64<?-@s")A%- -}?AP++72,138,72,173,60,6,201,4,144,55,162,7d''173,8,6,141,61,6,173,9,6,141,62,6x202,189,1,6,157,2,6-}224,0,208,245,173,61,6NN141,1,6,162,0,189,10,6,157,9,6,232,224,7,208,245,173,62,6,141,16,6,169,0--141,60,6,238,- }60,6,104,170,104,76,98,228E-@AA7%+@%,$@%$@E E-@AAE-!}%+@%,$@%$@E A6'A@'A@,9AH@c'AI-"}@9BBA1 B67-@ 7(@]&&&&&&&&&&&&&&&&&&.@7-@7(@-#}[%%%%%%%%%%%%%%%%%%,E7%2@@@@@7B7h@J/-@@/(@ -- -$}O*-@@ *(@Q+-@@!+(@T6.::V6.-%}::h A r3-@3(@ +@A+B7tA-&}! A  Ap! A! A @ Ap! A A$  B'-@@'(@-'}O-@@#-@3(@ G-@@K O X -@@6@,--(}@<(@ P-@@T X /-@@/(@ --  A@[ B/-)}2@@@Q2[ A@D,,@@ D:GHOST.FNTXD-*}6-@06-+F:A,&@,$AVDAV'AVl'6-A46-A6'6-A@)%%@'A-+}V)%'%%@@'%'%@'6-?:C:hhhLV,<,@$4--,}@@#-0(@4 $4-@@#-0(@4  $t G%2--}G2@u \-@@,AF:B7p,>-@\(@-.} writery ''2@$@@@~ .!@!-@@.(@ .!@ !-@-/}@.(@ %%2@ 6 $0F:@ ,@6@w $X-0}+@A+B2yAb$(#-@@-# 6-2#26-H:@,$@& @26-@-1}F#%!@%6-'@%@P# -(@Z# d# Apn#$#-@@# 6--2}#26-H:@,$@& @26-@#%!@%6-'@%@# -(@# # Ap-3}#$'k%2AU@@7B7h@Y2@AT@@kB7h@'$-4} D1:GHOST.TSTOMMSTMOTBRCHSEDSGICCOICBADICBLETRPW,$BfffB$$~~'~$ @$$$$@ ~~ 016}`@||88| 0`~  f< x<6>ffsccnccfff;``|ff|ff:>|x|``lvff0 8flxl0 f1<}~~jc|fffc|v```>`<|0~0006ffn;ff<k>6f<x~ ~1~<~~<1=}~x|nf8x8(ʔFB$$~~'~$ @$$$$@ ~~ 00GYBRLSQRLSQTESSTKNSQRTGOTTEREWHITBLUYELLOCXGUXTEMYGUYTEMSTATCGOXSTARYSTARCGUTFOUNCNOT5?}GOMODBLACCHIDTXTXMAXSQRWIDSCLENSCCLS 5@} @5A} !"#$%& RED, WHITE5B} AND BLUEBY HEIDI BRUMBAUGH (c) 1987, ANTIC PUBLISHING(6-+F:B2y,@,d BINITIALIZATIONn5C} ApGET SKILL LEVELx! B!MAKE RANDOM BOARD A`DRAW BOARD A 6-P:'@, 5D}-&% ,+&,/+%, &$AdAUBBF:Ad,")+R:,"@*T:,",A5E} A09T:,"" AP, A9FLIP BOARD6-F:A2,+"@ A # A5F}+RIGHT("@ A!# A(UP*"@ A"# A*LEFT$*"@ A## A5G}*DOWN),"@,T:,"A.& A&REPEAT TIL KEY PRESSED87'+%@,$+%@,A5H}7CHECK FOR WINL +@V4-@4(@!!!!!!!!!!!!!!!!!`4-@@4(@!!! 5I}you win !!!j4-@@4(@!!!!!!!!!!!!!!!!!t1 A-@@1(@~0 A5J}-@@0(@. A-@@.(@= A-@@ 3(@5K}ҿ= A%-@A % A T:,"Ae +@A%A 5L}1AC-e(@* * * * * * * +A!A@+#B W-@@5M}"'-7(@>:,C-@S(@>:,W .-@@.(@ 4-@5N}@4(@RED white & ſH-@@&(@yes8-@@H(@7-5O}@ 7(@* * * * * * *HIGHLIGHT NOCHECK TRIGGER 1T:,"" A`, A5P}1NO'-@@'(@-@@&(@No0 A B-@@S(@n5Q}] A o-@@(@O A  R:,@AHIGHLIGHT YES(&-@5R}@&(@--@@'(@Ye1 A C-@@U(@Es_ A q-@5S}@(@yS. A 2 T:,"A< R:,@A F Ax 5T}T:,"A Ar%2@E@@9-@@%= _25U}b$rSOUND ROUTINE.-@A $.DELAY ROUTINE-@@ $&@@w5V}+@A=B7tA@$0$!  6-%@! A0 A$ +4'!5W}6-&@' A0> A$'!6-&@' A0 A$!  6-%@! 5X}A0  A$ 1@w1P:8<,'@,A1 NOT HIDDEN 8<,A1`& NOT GOTTEN5Y}0 33,%+$,%P:'@,%+$,%P:'@,: ?6-%+$,%P:'@,56-%+$,%P:'@,? AD ; 6-5Z}6-,*68<,-@86-%@;$N ALREADY GOTTENX  A6-6-$b HIDDENl 768<,-8<5[},&@)6-%@76-%@q 8<,A2@v NOT GOTTEN C 6-%+$,%P:'@,96-%+$,%P:'@5\},C A 6-M:@#@@, 33,%+$,%P:'@,%+$,%P:'@, ; A6-!6-5]}',868<,-@;$ GOTTEN, REVEAL SQUARE C 6-%+$,%P:'@,96-%+$,%P:'@,C A  5^} A6-6-$2+AA+A 2FLIP--%P:8<,'@5_},% APp "*" APp68<,-O:8<,&@, 8<, APp!!-%+$,5`}%+$,%&@ 6-%$6-%&@ ,/   33,%+$,%P:'@,%+$,%P:'@,5a}6-&%@$p++AA+A z--%P:8<,'@,% 5b}A`P 8<, A`P?6-%+$,%P:'@,56-%+$,%P:'@,? A  35c}3,%+$,%P:'@,%+$,%P:'@, 6-6-$X +@ A0bD @ skill level:/-@5d}D(@%@ld-@@2(@USE JOYSTICK TOD-@@d(@CHANGE SKILL LEV5e}ELv8-@ @&(@8-@@ E!(@PRESS TRIGGER TO3-@@E(@PL5f}AYJOYSTICK INPUTT:,"$>6-R:,0 @)!@Ap`>CHECK RANGE@&5g}ApAp%!&@ A% Ap`6-%@ Aq# @ A# Ap`6-5q}b'DOS SYSb*+DUP SYSbUAUTORUN SYSbWMENU bjHELP BASbnDOC TXTbLINKLINEEXEb TYPOII LSTb"iAFTIMAGEBASbARTCONVREXEbACHICKEN BASbGHOST BASb 5GHOST FNTb0>RWB BASb wCOLUMN80SETb"EASY80 BASbHOUSE02 LSTb HOUSE03 LSTbARTCONVRM650NETJULY SC bHOUSE BAS&@d-@%(@ 7-@L(@%@`-@Ad  Ap`'05r}06-P:+'@,&+++%@,'@,$,,'006-P:+'@,&+++%@,'@,$,,'-'-5s}$'**68<,-P:H:,%?P,%@.' 8' B'X6-P:H:,$%@,;6-P:H:,$%@,L68<,5t}-@R6-X6-L'6-@6-@`'$*\6-@%@#6-@/6-@H;6-@P6-P:+',&5u}@,\6-@+36-6-@'6-@36-@ +9<,;@,+Z6.>:A%,6-@(5v}*6-@P66-@B6-AN6-@0Z6- +$. 170,10,42,170,10,42,170,10 D1:RWB.BASFOUNCNOT4tDfffwwfffffffffffffff3333333333ww333333339x}DDwwfffffffffDDfffffffffwẅ̈DfDDDDDDDDDD"9y}"DDDDDDfD"D"DDDDDDff""""DDDDDD9z}""DDDDDD""D""""" ""f̪""D"DDDD"DD"D"9{}DD"DDDf̪̪ff̪̈fDDDD"""D̪9|}DD̪̈Df̪̪fD""DDDDDDDDDDD"DDD""""""9}}DDD"f̪ff""ffDD"DDDDf"̪DDD"""""̪DDDD9~}̪DD̪̈ff""̪fD"DDDDffDDf""DDDffffffff9}̪"""ff"̈7m7mffffff3333333333ww333333338#:;H]P8T80X8Y8E80IXPOYPOCHBAYXOOCHBCHBT=} =} EASY-80BY JD CASTEN (c) 1987, ANTIC PUBLISHING())80-COL. ROUTINES ARE IN 20000-20099Z =}Bd A@nG @)-@@x@5,AG/@AAYo[/@AAY!/A5=},@%AG/@AAY[/@x%AxG ,A+/@xA=/@xAG#Ap=} " B A0k6-@6-@/-A'86.>:,B BS6.>:%A(,a6-%@=}@k B76-&@9"@6)6-@76-%@ N6.D皚=}뀀򀀴Z6-@f6-@F:@,%@B%6-?:C:,-@@"H BL ],'/=}A9/AAK/A]/ACCEPT TEXT IN 80 COL.4;@ ,6-@=}(6-@D46-@@6. *6-@%66-@@ B.@.@@=}K:4'6-?:C:,:,36-?:C:,=-=-=-=-=-=-=-=-=-=-=- ,10,3YYFont editors (i.e INSTEDIT etc.) can edit this font from the file:COLUMN80.SET.,1,=}5XXUse lines 20000 - 20099 of this program to create your own 80 column programs.,1,6==Here is the entire set in both=} normal and inverse:,15,8,1,17,3,19  ,59,14&  =} ,59,23N80-COL. DRIVER: NINIT. 80-COL. DRIVER%N;Ap,;A ,*NM6-@#B--=}@1"M-@@@+N[96-+@:7,,&@e,$@&%@:7%@,,&@eE67,.>:,S6-%@=}W [ QNLOAD COLUMN80.SETRN6-BVVN:@:@@D:COLUMN80.SET\N6-P:'AV=},aNA fN6-&$AVpN!A !A uN'A @'A@zN6-?:C:h@L=}V,,NC+@%@'AAB9A C AN"6-?:C:,KH0260 I} STA ICBAH,X0265 LDA #40270 STA ICAX1,X0275 LDA #00280 STA ICAX2,X0285 JSR CIOV ;Do it!0290 ;I}0295 ;Main loop.0300 ST10305 JSR CLEARFN ;Clear the0310 ; filename area.0315 JSR CLRBIGBUF ;Clear oI}ur0320 ; screen memory0325 JSR CLEARALLELSE0330 JSR CLOSE ;Close channels0335 ;0340 LDX #$I}20 ;Close disk0345 LDA #$0C ;channel.0350 STA ICCOM,X0355 JSR CIOV0360 LDA # DLIST1 ;list.0375 STA SDLSTL+10380 LDA #33 ;Smaller0385 SI}TA SDMCTL ;screen0390 LDA #$C4 ;green0395 STA 710 ;GR.0 lines0400 LDA # DLI0415 STA VDSLST+10420 LDA #$C00425 STA NMIEN0430 LDA # ST1 ; error.0445 STA MNUJMP+20450 ;0455 GETKEYS0460 JSR GETKI}EY ;Get a key.0465 LDA KEY ;Is it a0470 CMP #32 ;space?0475 BEQ CONVERT ;Yes, convert.0480 ;0485 I} CMP #'G ;Is it G?0490 BNE NO1 ;No.0495 ;0500 LDA #'+-32 ;Toggle from0505 SEC ;GR.7 to0510I} SBC L5+19 ;GR.7+ or0515 STA L5+19 ;vice versa.0520 JMP GETKEYS ;back.0525 ;0530 NO10535 CMP #'P I} ;Is it P?0540 BNE NO2 ;No.0545 ;0550 INC POS ;Yes, change0555 LDA POS ;picture0560 CMP #4 I} ;positioning.0565 BNE NOTOVER0570 ;0575 LDA #00580 STA POS0585 ;0590 NOTOVER0595 LDX POS ;ShowI} arrow.0600 LDA ARWS,X0605 STA L4+230610 JMP GETKEYS0615 ;0620 NO20625 CMP #'C ;Is it C?0630 BI}NE NO3 ;No.0635 ;0640 LDA #1 ;Toggle column0645 SEC ;from 80-132 and0650 SBC COL ;vice vI}ersa.0655 STA COL0660 ASL A0665 ASL A0670 LDY #00675 TAX 0680 LOOPQ0685 LDA COLS,X ; Show ourI}0690 STA L1+23,Y ;columns.0695 INX 0700 INY 0705 CPY #40710 BNE LOOPQ0715 ;0720 JMP GETKEYS07I}25 ;0730 NO30735 CMP #'D ;Is it D?0740 BNE NO4 ;No.0745 ;0750 INC FILENAME+1 ;Increment0755 LDAI} FILENAME+1 ;default0760 CMP #'9 ; drive.0765 BNE OKDRIVE0770 ;0775 LDA #'10780 STA FILENAME+1078I}5 OKDRIVE0790 LDA FILENAME+10795 SEC 0800 SBC #$200805 STA L2+140810 JMP GETKEYS0815 ;0820 NO4082I}5 CMP #'L ;Is it L?0830 BNE GETKEYS ;No. Start over.0835 ;0840 JSR INPUT ;Get filename.0845 JMP GETI}KEYS ;Back.0850 ;0855 ; Start conversion.0860 ;0865 CONVERT0870 LDA FILENAME+3 ;Is there0875 CMP #32 ; a I}filename?0880 BNE GOTAF1 ; Yes.0885 ;0890 JMP GETKEYS ; Do over.0895 GOTAF10900 JSR SETMD ; Set borders.I}0905 LDA #