@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, Mar. 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: $%e ASASALSASAHCLSELCLSEHSASLOME ##MULTI }|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.XXXThe menu that appeared on the screenwhen you booted the disk willu} onlyRUN programs with a .BAS extender.If you try to run a program and theresponse is 'cannot run Filename',check the filv}e extender with thislist:XXX.BAS BASIC saved program, use menu RUN or LOAD and RUN..LST BASIC listed programw}, ENTER then RUN..EXE Assembly language 'Load and Go' file. Remove BASIC, boot DOS, type L then enterx} the filename..ASM Assembly language source code (Atari Assembler Editor) Must be compiled..M65 "Sy}AVEd" MAC/65 assembly language source code. Must be compiled.XXX.OBJ Machine language object file. z} Same as .EXE but not 'Load and Go'. See corresponding article..SYS Reserved for DOS system files..TXT Text fil{}e. Usually accessed by another program..ACT ACTION! language source code. Must be compiled..LGO A Logo pr|}ogram. Requires the Logo cartridge.XXXAll programs from ANTIC issues datedprior to August 1984 were reproducedf}}rom ANTIC's Archive. We've updatedthem from our HELP columns andmost are compatible with the XL andXE machines. We have w~}orked to insurethat our programs operate aspublished, but we consider all oursoftware listings to be works inprogress whi}ch we encourage you topersonalize and enhance.Good luck, and ENJOY! -ANTIC EDgs to be works inprogress whi_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!-AUTORUNS WITH ATARI DOSBY BILL BODENSTEIN (c) 1987, ANTIC PUBLISHING(;@,233F:AT,"@v*F:A }T,"Af@p<\+(#Please boot an Atari DOS 2.0 or 2.5R("disk before running this program.\ A0F + }A@fPE(E(9 This program permanently modifies your DOS.SYS file, UFF(>permitting you to run sever }al AUTORUN.SYS files at boot-time.V=( ('(Continue Y (Y/N)+=AX% 0Y((Aborted!% }A0ZX(1(&Make sure your DOS disk is in drive 1.D( Press Q@X(d?6-F:A,!6-F:A },06-F:AT,?6-F:AU,n56-%$AV56-F:AC,%F:AD,$AV(Modifying DOS...# A }"6-%@6-%@= &@!"- 36-= AA6-%& }AAV6-%&AV&@ Ap,ATAU6$6-P:'AV,$6-&$AV }@AAJCADP:'AV,9AC&F:AD,$AVC B(Writing modified DOS. }..A@6@@ D1:DOS.SYSA@(DOS modified!--152,72,32,-1,-1,104,16,4 },201,136,208,16==238,302,512,169,292,141,84,3,169,512,141,85,3,76,114,21!!169,48,141,302,512,76,-1,-16668,49,58,6 }5,85,84,79,82,85,78,48,46,83,89,83,155D1:MULTIAUT.BAS ##MULTI >0100 ;PARTIAL DVORAK KEYBOARD0110 ;BY DAVE YEARKE0120 ;(c) 1986, ANTIC PUBLISHING0130 ATRACT = $4D0140 CH = $02FC0150$} CH1 = $02F20160 DOSINI = $0C0170 DOSVEC = $0A0180 HELPFG = $02DC ;XL/XE ONLY0190 HOLDCH = $7C0200 INITAD = $02E2021$}0 KBCODE = $D2090220 KEYDEF = $790230 KEYDEL = $02F10240 KRPDEL = $02D9 ;XL/XE ONLY0250 MEMLO = $02E70260 SRTIMR = $022$}B0270 SSFLAG = $02FF0280 START = $1D000290 VKEYBD = $02080300 ;SYSTEM RESET TRAP0310 *= START0320 RSTTRAP JSR DUMM$}Y0330 LDA # RSTTRAP ;LO BYTES0360 STA $}DOSINI+1 ;HI BYTES0370 LDA # DOSTRAP0400 STA DOSVEC+10$}410 LDA # BOTTOM0440 STA MEMLO+10450 LD$}A # HANDLER ;INTO VKEYBD0480 STA VKEYBD+10490 $} LDA #$FF0500 STA ARFLAG0510 STA KBFLAG0520 RTS 0530 DOSTRAP LDA #$300540 STA SRTIMR ;AUTO-REPEAT ON$}.0550 LDA RSTTRAP+10560 STA DOSINI0570 LDA RSTTRAP+20580 STA DOSINI+10590 LDA BYEBYE+10600 STA $}DOSVEC0610 LDA BYEBYE+20620 STA DOSVEC+10630 LDA MEMHOLD0640 STA MEMLO0650 LDA MEMHOLD+10660 ST$}A MEMLO+10670 LDA KEYHOLD ;REPLACE ORIGINAL0680 STA VKEYBD ;HANDLER0690 LDA KEYHOLD+10700 STA VKEYBD+10$}710 BYEBYE JMP DUMMY0720 ;POKEY INTERRUPT ROUTINE0730 HANDLER TXA 0740 PHA 0750 LDA KBCODE0760 CMP CH10770 $} BNE NEWKEY0780 LDX KEYDEL0790 BNE SETTIMES0800 NEWKEY TAX ;KEY VALUE INTO X.0810 CMP #$9F ;IS IT %w})* TEMGMODWIDTHEIGHMAXKLFACFACTYY(} THE NEW OWNERS COLUMN #12BY DAVE PLOTKIN''(DEMO PROGRAM BY CHARLES JACKSON) (c) 1986, (}ANTIC PUBLISHING#KA@P'AA9A@0KAAF(+@%@2*-@(}@*(@Th Is</-@@/(@ rAiC nEAM-@@;(@ PrS a Ke(}>:A),MAdAUF66-F:A,'AF:A,66-G:@,PM+A,F:A ,)6-G:@,>(}A F:A,M6-G:@,Z;A6-G:@,;F:Ad,"AU@pd'AdAU'+@%(}@n--@@-(@ GrHi 2xG A+@%@2G(>:A%,(HERE'S THE TEXT WINDOW)(} ( ( -> Press any key <- D A'+@%@%@2DF:Ad,"AUA NOW LET'S SEE GR. 3-1(}1=6-@6-@9'6-@36-@= A=6-@6-@y'6-@936-@= A(}=6-@6-@y'6-@936-@= A=6-@6-AY'6-@y36-@= A=(}6-@6-AY'6-@y36-@= A=6-@6-A'6-AY36-@= A=6-(}@ 6-@y'6-A36-@= A=6-@6-@y'6-A36-@ = A=6-@(}6-@y'6-A36-@= AQQRANDOMLY SELECT TWO SINE WAVES AND DRAW A LINE BETWEEN CORRESPO(}NDING POINTS .+6-@"!@.6-@*!@A ,==( }GRAPHICS  (%@(} x %@, /1( colors)(1( Drawing in COLOR 4/6-P:H:,$A,/AdAU>6-(}P:H:,$A,H..-+$6@,@%P:H:,$,R6-O:G:%,$,\6-O:G:%,$,f ,O:,/&O(}:,pg )2@u@@3 AU2g@wz[ @ 8((}$}Press [SELECT] to change GR. modes.;([(Press [START] to continue.JJ+F:B2y,,A A A A A(} A A B6-P:H:,$,B"@*'@P:'@,A  A$-@ (}-GENERIC TIMER ROUTINE F:@ , @PA$D1:NEWOWN12.BAS(^>?O !BRPLPPSPSSNLJDLLYYTSCCCDSMOV,} ,} ! VECTRONBY HEATH,} LAWRENCE (c) 1987, ANTIC PUBLISHING06-@$F:B2y,"@06- A` A A ,}MOVE PROJECTILE(s@w6-;6-@%@4$+"@,[6-@%@$+"@,s%%@@,}$@2%%@@$96-%+"@,&+"@,W6-%+"@,&+"@,l6-F:%%@@$,%,}%@@$@<>-@@ 1"@)"@; A@>$FuK+@*@*@*@,}*@*@ ,@P]A@gu%%@@$@Ps-@A@;2@@,}@? a2@sA@5Zk6-@$+"@,%@$+"@)"@,%@,}$+"@,%@$+"@)"@ ,}6-%+"@,6-%+"@, AdG6-&+@*@ ,3,}"A = AG @PnMAIN ROUTINExi6-@( A%6-@16-@6; AG6-@,}S6-@Y6-c A`i6-i6- A%6-@16-@6; AG6-@ S6-@7Y6-c,} A`i6- A MOVE LAUNCHERS{56-T:,$+"@,%T:@,$+"@,I"@@{6-,}R:,$+"@,%R:@,$+"@,!@*@A`9%%@@$g6-%@$+"@,},&@$+"@,6-%@$+ @,&@$+!@,7%%@@$)-@@- 7 A`,}SET UP A DEFLECTORk!%@%@@$@?%@7%@@$@ Q-@ k(Ҡž,}>:,c56-T:,$+"@,%T:@,$+"@,A"U-@AY c APg56-R:,$+,}"@,%R:@,$+"@,g@*@*@*@AaW6-@6$+"@,%@7$+"@,},%@8$+"@,%@9$+"@,a AMOVE CURSORs-@ ,(,,,,,,,,,,,,,,,,,,86-@ ,}D6-@Y6-F:%%@@$,s%%@@$%@556-T:,$+"@,%T:@,$+"@,",}*;2@@B@@O-@@PS u2@ A`Y",}*"-&(>:,:-@A> L6-%@V AY$"[56-R:,$+"@,%R:@,$+",}@,I"@A`[%%@@$,YY6-&@$+"@ )"@)"@,%@$+"@)"@),}"@,6YY6-&@$+"@)"@)"@,%@$+"@)"@ )"@,@16-%@$+ @,},&@$+!@5,_6-&@$+!@,%@$+ @,t6-F:%%@@$,%%@@$%@ A`,}JGUTTER BALLT"@Ap.-6@F%%@@$@j2@%@P@@,}~-@@ ^-6@2%%@@$@V2@%@P@@j-@@,}n %%@@$@hD%%@@$@ A2@D$r-@6@,}2%%@@$@V2@%@P@@j-@@n %%@@$@ |(%2@,}($UPDATE STATSL-@ @!(+-@7@!/(A-@%@!I( L$,}GAME OVER/PLAY AGAIN? +@-@@6(@ H-@@_(@ =========q-@,}@(@ 1g-@@.(@ 24"F-@@](@ ,}!g APF6-@%+!,'-@@F(@  ]-@@0(@ ,} B-@@](@ Ϡ٠-@@!#AP5-@@9"="Y2@,}@@}2@%@@@-@ O%2@G2@,}K O * F:B2y,@A* @ PLAYFIELD +AR@3AV,}'AVEA@5g6-F:@,%AV$F:@,s6-6-6-@6-@=@w,}+@A=B7tAU @E,@1/@C,@8@U/@8@,}U @D,1/@8C,@ U/@9@ c6-!-@!K(,}%PLAYER 1: TARGETS LEFT: PLAYER 2:W6-@c6-@%6-P:H:,$@,%@G6-P:H:,$@3,},%@i6-P:H:,$@,%@F:%%@@$,A0%%@@$D%%@@$#6-%,}@- AA@PA0D$&REDEFINE0 AF:A@,&@*+@<-@@Q(@,}c-@@x(@--------@@5=@w+@A=B7tA,}:(@by:&-@@B(@T-@@r(@PRESS TRIGGER...6-+F:,}A,%@,$AV?;;6-C:.hhhhhhh`,@00X=USR(MOVE,FROM_ADDRESS,TO_ADDRESS,A,}MOUNT)D6-?:<BsD<<A$,Eee6-C:X  0``0<~ۙ~<<~~<<~~<,},I 6-?:<<%@2<@,N%%+T:,*T:@,,AX$bMM-+"@(,$@(+",},$@(+@$+",&@,g222@+6@$%A!,@@lE-@"( ======== A2@,}E v=@w+@A=B7tA{$TUNE DATA5562,2,}0,58,20,54,20,48,30,48,30,54,20,58,20,62,50D1:VECTRON.BASSMOV,BBRWORDGRIDLCLBYTEDWIDTDHEIGHESESGGEXEYSTARTROSTARTCOMISCFLACOUNFLASSFLNNSTMFN0}LINPPPPMFOUN@ 0} 0} !"#$%&'()WORD FINDER0}BY KEVIN PECK (c) 1987, ANTIC PUBLISHING06-@$F:B2y,"@06- X +A@0}X;@%,;Av,;@,;@,9@,< @%"# A( @0<DO INITIALIZATION@1}( ( ((4( I can't find any puzzle data!7(:(=(@$ Ap$LOOK FOR 1ST. LETTER(FIND REST OF WORDP//1}%+$, )%+$,!%@A5Z//%+$, )%+$,!%@A5d/ 6-%6-%6-@'6-%1}/6-%i 6-6-n# 16-%A(#,x777<,07+&@,$%<+&@,$%,A$6-%1}@!'$ Ap- 6-%6-%6-%#6-%- A.-@@$( WORD. A51}# 16-&A(#,%6-&@%"@A5 6-&6-& A$----------1}6-@"6-B:,"F @8-@&%P:+@&,'@,@<(F A ,a-@&@*(7@1}<@,<-@&@H @%W(7@<,a A 6(7@<@$,@)AJ&-@&1}@&( This word isT$-@&@$( too LONG^&-@&@&( for puzzle!!h A ru1}AF:A@,*B2w<AY@4P-@dB2H%h r+u6-1 }@6-%&@6-@6-%&@# 16-%A(#,CC7@<@,07+&1 }@,$%<+&@,$%,ANJ6-6@"@w&8@AJB7tAS6-1 }6@X!!"*"A b @l' @6-%@' Aq' @6-%@' 1 }Av6-@# 16-&A(#,!  6-%@! A!  6-%@! A1 }6-$-@'@$( Word could &-@&@&( NOT be found*$-@'@$( in puzzle!41}1A@H'A@H1 AP>6-%@H3-@5@! @3-@6@R(\1}"@A f!  6-%@! ApS-@&@(+-@&@/(AA1}SA8-@(@"(FINISHED.6-8 A`"@A 0 A %-@'1}@%( STARTCont$1-@'@!%( OPTIONEnd16-. 6-&6-&0 +,1+%,,1}1$6-F:B2y, @$6-2' )6-%6-%' Ar3##+")!A(,Ap8'6-@1}"@'6-@BjS-@&@(+-@&@/(AA@SA@tE-@&1}@(+-@&@/(A-@&@E(~>-@&@(+-@&@!/(;6->$1} F:A,@Ap&-@&@&( Unexpectedly&-@&@&( out of wordsF-@(@1}"(in DATA!4A@HFA@H! A`!"@A  A $-@'@$(1} UnexpectedQ-@&@-(ERROR # F:A,?A@HQA@H @-@&@@(in LINE1} F:A,%AV$F:A,! A`!"@Ap A (Z$-@'@$( Word FOUNDd&-1}@&@&( at indicatedn"-@(@"(locationx'AA'AA6-%@1}3-@5@! @3-@6@(! AP!"@A  A Ap9A1}R@ A`) A /"9 Ap-@@ F:A,@A`NN(FFirst DATA stat1}ement must contain WIDTH and HEIGHT of grid. One or-*("both of these numbers are missing!-GD(ERROR #F:A1}, in LINE F:A,%AV$F:A,G"P!@$) +-@@M(Improper WIDTH value in DATA!P1},Q!@$) +-@@N(Improper HEIGHT value in DATA!Q6/6-!-@$/6-%@1}@"6-B:,"A@J8-@@8(Width of GRID DATA element #T  ( is too short!^1 }( is too long!h67<%&@,. r A`" AP|`-@@<("DATA statement following G1!}RID DATA`(statements does not contain theKK(Cnumber of WORDS to search for. Please check number of GRID DATA and@=(1"}5check for possible missing WORD COUNT DATA statement.@{6-F:A,&@&A0+BAR@1#}TA@^ A`p-@@{(FINDERh A`-@@*(FINDER<-@@I(1$}BY KEVIN[-@@h(PCK68,--68@,-A(B68@,-AW68@,-A$1%}l68@,-A@68@,-AH68@,-AR68@,-AT68@,-AU2&6-P:+@$1&}&,'@%?P,26-A(&&6-P:+@$&,'@%?P,! 6-!@!6-@)6-&@1'}!@)6-@ 6-)6-&@ )6-&3BBy!AY@F31(}B2w@09B2V@'B2W@9B2X@:KAAE'AAE9AAE1)}KA@D+6-$AV%A+A#@NW-%@%+$@,+?%A(1*}S%AVW XN-%+$@,&@(8,9%A(8,J%AV8,N bK-%A'1+}3%A(G%AVK l6-@H%+$@,v7B2H#B2I%@27B2P1,}%@d (}@-"6-@"-@B:,&(7<%&@,# @$&(6-1-}%@  '-@%'@@%6.  6.*(1.}4( COMPUTER >( WORD FIND (H( # FOUND 0 R( # MISS 0 (\(SEARCH WORDf1/}( (((((p( (((((z( (((7@@!6--6-10}7 A"6. "12 SPACES$ D1:WORD.BASTARTROSTARTCOMISCFLACOUNFLASSFLNNSTMFN0MxyNBRDGDECPLBBPNUMBEROTOTPTTPYYRWORKBLANKDECPNNBRLTLHRLOUEMPBASRLINEFEEPLINEOROCO52}SLINEGO 53}54} ! WAGES AND HOURSBY HAL BOYER (c) 1987, ANTIC PUBLISHINGFFIMPORTANT: SEE PR55}INTER CODES IN LINES 350 & 370 IF YOU DON'T OWN""AN EPSON-COMPATIBLE PRINTER! A@ AU2GOSUB ROUTIN56}ESF?6-@6-@!6-+ A<6.7@<,?$P?6-@6-@!6-+ A<6.7@<,57}?$Z?6-@6-@!6-+ A<6.7@<,?$d?6-@6-@!6-+ A<6.7@<58},?$n 6.=:,x 6.6-B:,%@-@B:,7<,4.6-6-  6-%67&%@59}<,.67&<&,..-&%@7<,4 67<,.0 $7-@@"7(5:}νŠýԠd@.@@K:;)@F@dAU*@'AE5;}%-@""(>:AV,%$_67@<@,.|.67@,.=:,?67@,.|P67@,.$_67@5<},.E67@(,.|%67@3,.$467@4,.E67@I,.|e67@T,.$#67@U,.467@g,.5=}|E67@p,.$T67@q,.e67@,.|"$,67@<@,.|.67@,.=:,?67@,.|N675>}@,._67@,.|n67@,.67@",.|6C67@#,.#67@0,.|267@1,.C67@9,.|5?}@$J_ -@6@<2@P@X2@@`@\ _$T7-@)5@}-@@ 0(4 7$^8 38PRINTER CODE FOR ONE LINE OF EXPANDED PRINTh##3 *WAGES & HOURS*r5A}33 333PRINTER CODE FOR CONDENSED PRINT3NAME: 3UU3 BASE RATE= $< 5B} 52 WKSXX3P| HRS | BASE PAY | OVERTIME PAY | WEEKLY PAY | YEARLY PAY |$5C}MAIN PROGRAM INPUTC +A 1A@CAACAR(}--@5D}@C(ӠӠ+-@@+(=================: A-@@6(Enter Base Rate..5E}:_)!@ # A05-@@U( _ A`5 A-@5F}@1( Enter Name..54@_B:,!@ A0.-@@U("5G}_ A`J A0-@@F(!Send Output to rinter or creen J B&4@0G5H}37@<@,0P*7@<@,0S= A0G A0:4SANPRINT ROUTINEbDAR@5I}'-@@D(ǠΠӠl A@v AP-@@Q>"@$)"@H-5J}-@@034 > AP#6-%?P#@w 6. A33 VV3N-----5K}-------------------------------------------------------------------------)AR A0) @G-@5L}@!)(3 A@= BG @FORMULAS AND JUSTIFY <6-$@@26-P:$A%?P5M},'A< @p)6-&@@)6- >6-$$@P46-P:$A%?P,'A> @5N}*6 6-%,6-P:$A%?P,'A6 @4<6-$@R26-P:$A%?P,'A< A>07@5O}<@,4P& A`0 APH AR$fSCREEN DISPLAY ROUTINEz36-@6--AR@5P}3(}+-@@+(ӠӠ"-@@"(Name..+-@"@+( Base Rate..5Q}$A-@A('|HRS BASE PAY OT PAY WEEKLY YEARLY |-@@Q6-%?P$6.7@5R}<@@,$ A -(6-%@<!@  A0# A@/"@'2'< @%!@ 5S} A@%6-@ 4 -4(& -------------------------------------3 A0 A@)AR3 @5T}SETUP ROUTINE~~;@,;@ ,;@ ,;@ ,;@ ,;@,;@,;@ ,;@@5U},;@,;@,;@,;@ ,$+ 6.-67@,.-+67@,..67@<@,.|55V}67@<@,.|N67@(<@(,.|g67@I<@I,.|67@g<@g,.|67@<@,.|85W}+ 6.-67@9,.-+67@,.B67@<@,.|567@<@,.|N67@<@,.|g675X}@#<@#,.|67@1<@1,.|67@9<@9,.|L+ 6. 67@,. +67@,.V6-@9P5Y}`@j$ D1:WAGES.BASYYRWORKBLANKDECPNNBRLTLHRLOUEMPBASRLINEFEEPLINEOROCO42_} FNTEMPARDPLLA DVORAK KEYB9[}OARDBY DAVID YEARKE (c) 1985, ANTIC PUBLISHING(GG(LINES 10-220 MAY BE USED WITH OTHER BASIC LOADERS IN THIS ISS9\}UE.-##CHANGE LINE 70 AS NECESSARY.)2&&;@ ,;@ ,;@,<$6-F:B,$BAUFH6. D:D9]}VORAK.EXEHTHIS IS THE NAME OF THE DISK FILE TO BE CREATEDP3 +3(! ANTIC'S GENERIC BASIC LOADERZ(BY CHA9^}RLES JACKSONdB Apn1( (( Creating 1(...please stand by.x## "6-;,#6-@9_} 6.".-@B:,@.ARAUL6-&@#-@@L((Countdown...T-P:'@,9`}) =!67<,.>:A:7<%@,,,/6-%@3 = A0SF:A,"@((8(TOO MANY DATA LINES!9a}P(CANNOT CREATE FILE!SH %@(-(TOO FEW DATA LINES!E(CANNOT CREATE FILE!H @@9b}5Af@#(@5Af(@+(( Ġ 417cc2552550000299c}148030032083030169000133012169029133013169048133010169029133011169083141231002169cc030141232002169100141008002169029141009d}9002169255141081030141082030096169048141043002173001029cc13301217300202913301317309802913301017309902913301117307903014129e}31002173080030141232002173077cc0301410080021730780301410090020760830301380721730092102052420022080051742410022081231702019f}159cc208010173255002073255141255002176099201152208010173082030073255141082030176085201157208010173$cc081030073255141089g}1030176071041063201017208005142220002240060134124142242002173081030208022138.cc04106420801713813312404106316200420222107309q}?b'DOS SYSb*+DUP SYSbUAUTORUN SYSbWMENU bjHELP BASbnDOC TXTbLINKLINEEXEb TYPOII LSTb iMULTIAUTBASb#DVORAK M65bNEWOWN12BASb2VECTRON BASb7WORD BASb)1WAGES BASbZDVORAK BASb JSTICK M65b(SCREEN BASbCONSOLE M65bDVORAK EXEbJSTICK LSTbCONSOLE LSTb PUZZLE2 DATbPUZZLE1 DATDRECT 302400602240002082461730820302080181661241380411928cc1331241380410631701890090300051241331241651241412520021690031412410029r}169000133077173082030240Bcc007173081030240002169048141043002104170104064165124073128133124208215035057062003004045006007L9s}cc040009000061012018014015005017001019020022047002024025026027028029030031046033016021036037023Vcc03901004103405604404309t}32038048049050051052053054055011058042059060013008063006007014015000000`cc0000000000000001650121410010291650131410020291659u}010141098029165011141099029173231002141079030jcc173232002141080030173008002141077030173009002141078030076003029000000000009v}0000000000000000000t00000000000000000000000000226002227002084030 D1:DVORAK.BAS DVORAK KEYB8YCTL-1?0820 BNE CTL4 ;IF NOT, BRANCH.0830 LDA SSFLAG ;SCREEN FREEZE FLAG.0840 EOR #$FF0850 STA SSFLAG%x}0860 BCS SETDELAY ;SET TIMERS.0870 CTL4 CMP #$980880 BNE CTL50890 LDA KBFLAG0900 EOR #$FF ;TOGGLE FLAG%y}.0910 STA KBFLAG0920 BCS SETDELAY0930 CTL5 CMP #$9D0940 BNE HELP0950 LDA ARFLAG0960 EOR #$FF0970 %z} STA ARFLAG0980 BCS SETDELAY0990 HELP AND #$3F ;MASK HIGH BITS.1000 CMP #$111010 BNE CONVERT1020 STX%{} HELPFG1030 BEQ SETDELAY1040 CONVERT STX HOLDCH1050 STX CH11060 ARROWS LDA ARFLAG1070 BNE DVORAK1080 TX%|}A 1090 AND #$40 ;TEST SHIFT BIT.1100 BNE DVORAK1110 TXA 1120 STA HOLDCH1130 AND #$3F1140 LDX%}} #$041150 ARLOOP DEX 1160 CMP ARRTAB,X ;CHECK TABLE1170 BEQ NEWARR ;ARROW1180 CPX #$00 ;DONE?1190 BN%~}E ARLOOP1200 DVORAK LDA KBFLAG ;CHECK TYPE1210 BNE PUTCH1220 LDX HOLDCH1230 TXA 1240 AND #$C01250 S%}TA HOLDCH1260 TXA 1270 AND #$3F1280 TAX 1290 LDA TABLE,X1300 ORA HOLDCH1310 STA HOLDCH1320 PUT%}CH LDA HOLDCH1330 STA CH1340 SETDELAY LDA #$03 ;DEBOUNCE1350 STA KEYDEL1360 LDA #$001370 STA ATRACT1380%} SETTIMES LDA KBFLAG1390 BEQ STIME1400 LDA ARFLAG1410 BEQ STIME1420 LDA #$301430 STIME STA SRTIMR1440 %} PLA 1450 TAX 1460 PLA 1470 RTI 1480 NEWARR LDA HOLDCH1490 EOR #$801500 STA HOLDCH1510 BNE P%}UTCH1520 ;DVORAK OFFSET TABLE1530 TABLE .BYTE $23,$39,$3E,$03,$04,$2D,$06,$071540 .BYTE $28,$09,$00,$3D,$0C,$12,$0E,$0%}F1550 .BYTE $05,$11,$01,$13,$14,$16,$2F,$021560 .BYTE $18,$19,$1A,$1B,$1C,$1D,$1E,$1F1570 .BYTE $2E,$21,$10,$1%}5,$24,$25,$17,$271580 .BYTE $0A,$29,$22,$38,$2C,$2B,$20,$261590 .BYTE $30,$31,$32,$33,$34,$35,$36,$371600 .BYT%}E $0B,$3A,$2A,$3B,$3C,$0D,$08,$3F1610 ;ARROW KEY TABLE1620 ARRTAB .BYTE $06,$07,$0E,$0F1630 KEYHOLD .DS 21640 MEMHOLD .DS%} 21650 ARFLAG .DS 11660 KBFLAG .DS 11670 DUMMY1680 BOTTOM .DS 11690 ;INSTALLATION ROUTINE1700 INIT LDA DOSINI1710 %}STA RSTTRAP+11720 LDA DOSINI+11730 STA RSTTRAP+21740 LDA DOSVEC1750 STA BYEBYE+11760 LDA DOSVEC+117%}70 STA BYEBYE+21780 LDA MEMLO1790 STA MEMHOLD1800 LDA MEMLO+11810 STA MEMHOLD+11820 LDA VKEYBD1%}830 STA KEYHOLD1840 LDA VKEYBD+11850 STA KEYHOLD+11860 JMP RSTTRAP+31870 *= INITAD1880 .WORD IN%}IT1890 .END AK KEYBOARD0110 ;BY DAVE YEARKE0120 ;(c) 1986, ANTIC PUBLISHING0130 ATRACT = $4D0140 CH = $02FC0150$0100 ; JOYSTICK EXPANDER0110 ; BY MATT LOVELESS AND MIKE EGGERS0120 ; (c) 1987, ANTIC PUBLISHING0130 ;0140 *= $0600 =} ;Page 60150 SETVBV = $E45C ;Routine to set VBI vectors0160 XITVBV = $E462 ;EXIT VBI VECTOR0170 STICK = $0278 ;beginn=}ing of OS's joystick values0180 DVBVLK = $0224 ;Address of deferred VBI vector0190 ;0200 SETUP0210 LDA DVBVLK ;Save=} old vector0220 STA RETADD0230 LDA DVBVLK+10240 STA RETADD+10250 LDX #UPDATE/256 ;High byte of VBI vector=}0260 LDY #UPDATE&255 ;Low byte0270 LDA #7 ;Use deferred vector0280 JSR SETVBV ;Set VBLANK0290 PLA =} ;* BASIC ONLY *0300 RTS 0310 ;0320 UPDATE0330 LDX #$03 ;4 sticks (0-3)0340 ;0350 LOOP0360 LDA ST=}ICK,X ;Get this joystick reading...0370 TAY ; -- AND --0380 LDA TABLE,Y ;use it to index into the table039=}0 STA STICK,X ;Store new value0400 DEX 0410 BPL LOOP ;If not finished then branch back0420 ;0430 JMP (=}RETADD)0440 TABLE0450 .BYTE 0,0,0,0,0 ;Bad values return a zero0460 .BYTE 4 ;RIGHT/BACK0470 .BYTE 2 ;=}RIGHT/FORWARD0480 .BYTE 3 ;RIGHT0490 .BYTE 00500 .BYTE 6 ;LEFT/BACK0510 .BYTE 8 ;LEFT/FORWARD=}0520 .BYTE 7 ;LEFT0530 .BYTE 00540 .BYTE 5 ;BACK0550 .BYTE 1 ;FORWARD0560 .BYTE 0 ;C=}ENTERED0570 ;0580 RETADD0590 *= *+2 ;Return address0600 .END 7, ANTIC PUBLISHING0130 ;0140 *= $0600 <O0100 ; CONSOLE KEY EXPANDER0110 ; BY MATT LOVELESS AND MIKE EGGERS0120 ; (c) 1987, ANTIC PUBLISHING0130 ; EQUATES0140 CONE}SOL = $D01F ;CONSOLE BUTTONS0150 SKSTAT = $D20F ;SERIAL PORT/KEYBOARD STATUS0160 VALRTRN = 212 ;LOCATION TO STORE USR RE}ETURN VALUE0170 SETVBV = $E45C ;SET VBI VECTOR0180 SYSVBV = $E45F ;SYSTEM VBI0190 XITVBV = $E462 ;EXIT VBI0200 ;0210 E} *= $06000220 LDA #$000230 STA FLAG ;ZERO THE FLAG0240 PLA 0250 BNE INIT0260 ;0270 RTS 0280E} INIT0290 TAX 0300 PLA ;DISCARD HIGH BYTE AWAY0310 PLA ;GET LOW BYTE0320 STA BUTTON ;SAVE}SezCTRLININAB SCREEN CUSTOMIZERA}BY JAMES HAGUE (c) 1986, ANTIC PUBLISHINGd BAR@i!!A @n"AA}"(>:A%,s,-@@,(GRAPHICS MODE ZEROx,-@@,(SCREEN CUSTOMIZER}3-@@A}3(programmed by James Hague#-@@#( MAIN MENU.-@ @.( View/Edit Screen/-@ A}@/( Create Subroutine*-@ @*( Exit Program<-@@<("press the number of yA}our selection A">:,41 A" A">:,42 A " A1>:,43+.(YoA}ur computer is1J -@6@<2A@@@ J AURETURN KEYPRESS IN (A)5A}AdAU5@@K:)@@$EDIT/VIEW SCREEN(>:A%,4-@A}@4(THE FOLLOWING CONTROLS ARE2-@@2(AVAILABLE DURING EDITING3-@@ 3(selectA} line with JOYSTICK6-@@6(OPTION - character luminance1-@@1(SELECT - line luminanceA}--@@-(START - line color 7-@@7(press TRIGGER to stop editing6-@@6(prA}ess any key to continue... A(>:A%,%@6-@% A0#-@@##-@%A}$:P:'@,"'@0(ABCabc: Ap)(ABCabc.@# 3 8-@(A}->=6-R:,B)"@*6-&@) AG1"@*@#'6-%@1 AL AQA}1-@( #-@+(->16-V&6-F:B2y,&@A%[@ ] F:@ ,@A}A`(T:,$b Ae@AEj6-F:A`%,%@o"@6-A}tA`% Ay6-P:F:A6%,'@,~6-F:A6%,&@$@Ap)6-%@A}!@)6- A@A)6-%@!@)6-A6%$@A}% ACREATE SUBROUTINE(>:A%,A-@,(SUBROUTINE CREATOR/(AARA}KK(CEnter the line number that you would like the routine to start at./ A / )!B'A +(A}+( Enter the line number increment.6 A %6 @)P:,)!AA %S(S(HEnter the filename to sA}ave the sub- routine as. The 'D:' is optional.4A 5;;7@<@,4:*7@<@,0DAA} 5Q37@<@,0:*7@<@,0:96.B6.D:Q67@,."AR@"(>:A%,gA}-@@5(Insert a FORMATTED disketteG-@@g(press any key to write file $ A A%$(>A}:A%,8@+@@8(>:A%,&-@@&( writing filePH(@)IF A}PEEK(1584)=104 AND PEEK(1585)=173 THEN%@$P6-% [S(@RESTORE%@$*:FOR A=0 TO 47:READ B:POKEA} 1536+A,B:NEXT A[6-%%E=(@*FOR A=0 TO 106:READ B:POKE 1584+A,B:NEXT AE6-%*6.(@A=USR(1584):CA}TRL=205:RETURN66-%/##(@DATAF:A6,4K-@@#4(@,F:A6%,8 C(@A}K6-%9##(@DATAF:A`,>K-@@#4(@,F:A`%,8 C(@K6-%C-A}@H--(@DATAF:A%@$,MY-@@>(@,F:A%@$%,B A}M(@U6-%Y R(@ DATA 104,64W@$ ERROR HANDLER  A%@ (>:AA}%, /-@@/( I/O ERROR F:A, 5-@@5(press any key for main menu  A$ 6A}-@6( 6-@@6(|OPTION=Character Luminence| 6-@@A}6(|SELECT=Line Luminence | 6-@@6(|START= Line Color | 6-@@6(|TRIGGER= MaA}in Menu | 6-@@6( $'INITIALIZATION'C-@#+AA}6%?A`%@C ' #B'--A")A%- '66-A6-?:AA},6;@ ,;@ ,$'$t'104,173,48,2,133,203,173y'49,2,133,204,160,3,177~'203,9,128,145,203,160,6' 1A}69,130,145,203,200,192,29'208,249,169,129,141,0,2'169,6,141,1,2,160,99'162,6,169,7,133,205,76'92,228,162,A}64,165,205,240'18,173,24,6,141,197,2'173,0,6,141,198,2,169'1,133,206,162,192,142,14'212,76,98,228,72,138,A}72'166,206,189,24,6,141,10'212,141,23,208,189,0,6' 141,24,208,230,206,104,170' 104,64 D1:SCREEN.BAS@}E IT0330 DEX ;COMPENSATE FOR REMOVING FIRST ARGUMENT0340 BEQ GETVBI ;IF ALL PARAMETERS ARE OFF THEN BRANCHE}0350 LOOP10360 PLA ;REMOVE BAD0370 PLA ;VALUES WHICH0380 DEX ;MIGHT OCCUR0390 BNE}E LOOP1 ;IN THE USR CALL0400 ;0410 GETVBI0420 BIT BUTTON0430 BEQ VBIOFF ;OPTION #00440 ;0450 BMI VBION E} ;OPTION #1280460 ;0470 ;OPTION #10480 ;0490 LDA #$010500 STA FLAG0510 ;0520 VBION0530 LDA #BUTTON/256 ;HE}IGH BYTE FOR USR RETURN0540 STA VALRTRN+10550 LDA #BUTTON&255 ;LOW BYTE0560 STA VALRTRN0570 ; GRAB VBI0580 E} LDX #VBI/256 ;HIGH BYTE0590 LDY #VBI&255 ;LOW BYTE0600 LDA #$07 ;DEFERRED VBI0610 JSR SETVBV0620 LE}DA #$000630 STA BUTTON0640 RTS 0650 ;0660 VBIOFF0670 LDA #CONSOL/256 ;HIGH BYTE FOR USR0680 STA VALRTRNE}+10690 LDA #CONSOL&255 ;LOW BYTE0700 STA VALRTRN0710 LDX #XITVBV/256 ;HIGH BYTE0720 LDY #XITVBV&255 ;LOW E}BYTE0730 LDA #$07 ;DEFERRED VBI0740 JMP SETVBV ;ITS RTS WILL RETURN TO CARTRIDGE0750 ;0760 ; THE DEFERRED VBIE} VECTOR POINTS0770 ; HERE.0780 ;0790 VBI0800 LDA SKSTAT0810 AND #$08 ;"AND-OUT" ALL BUT BIT-3 (SHIFT KEY)082E}0 ORA CONSOL ;OR, IN CONSOLE KEYS0830 EOR #$0F ;SWITCH THE LOWER NIBBLE.0840 LDX FLAG0850 BNE ZERO E};ARE WE IN LATCHED MODE?0860 ;---YES0870 TAX ;COPY A-REG INTO X-REG0880 AND #$F7 ;AND OUT SHIFT VALUE0E}890 BEQ EXIT ;IF NO CONSOLE KEYS THEN EXIT0900 ;0910 TXA ;ELSE RETURN ORIGINAL VALUE0920 JMP STOREE}0930 ZERO0940 TAX 0950 AND #$F7 ;"AND-OUT" SHIFT VALUE0960 BEQ STORE ;IF NO CONSOLE KEYS THEN STORE A ZERE}O0970 ;0980 TXA ;OTHERWISE STORE THE ORIGINAL VALUE0990 ;1000 STORE1010 STA BUTTON1020 EXIT1030 JME}P XITVBV1040 ;1050 FLAG1060 .BYTE 01070 BUTTON1080 .BYTE 01090 ;1100 .END LISHING0130 ; EQUATES0140 COND^ S  0  Sd QR`0+  b c OPMN LSH {ɟI} Icɘ RIRUɝ QIQG)?<|Q)@|)?I<R|)|)? |||MRI}Q0+hh@|I|#9>-( = /.!$%' )"8,+ &01234567 :*;< ?   b cOI}10 REM JOYSTICK EXPANDER SUBROUTINE20 REM BY MATT LOVELESS AND MIKE EGGERS30 REM (c) 1987, ANTIC PUBLISHING30000 RESTORE 3M}0100:FOR QQZ=1536 TO 1594:READ QQX:POKE QQZ,QQX:RETURN 30100 DATA 173,36,2,141,57,6,173,37,2,141,58,6,162,6,160,2330110 DATM}A 169,7,32,92,228,104,96,162,3,189,120,2,168,185,41,630120 DATA 157,120,2,202,16,243,108,57,6,0,0,0,0,0,4,230130 DATA 3,0,6M},8,7,0,5,1,0,0,0,0,0,0,0,0BROUTINE20 REM BY MATT LOVELESS AND MIKE EGGERS30 REM (c) 1987, ANTIC PUBLISHING30000 RESTORE 3L10 REM CONSOLE KEY SUBROUTINE20 REM BY MATT LOVELESS AND MIKE EGGERS30 REM (c) 1987, ANTIC PUBLISHING31000 RESTORE 31100:FQ}OR XX=1536 TO 1536+111:READ XXX:POKE XX,XXX:NEXT XX:RETURN 31100 DATA 169,0,141,111,6,104,208,1,96,170,104,104,141,112,6,202Q}31110 DATA 240,5,104,104,202,208,251,44,112,6,240,30,48,5,169,131120 DATA 141,111,6,169,6,133,213,169,112,133,212,162,6,160Q},75,16931130 DATA 7,32,92,228,169,0,141,112,6,96,169,208,133,213,169,3131140 DATA 133,212,162,228,160,98,169,7,76,92,228,17Q}3,15,210,41,831150 DATA 13,31,208,73,15,174,111,6,208,9,170,41,247,240,13,13831160 DATA 76,105,6,170,41,247,240,1,138,141,1Q}12,6,76,98,228,0Y SUBROUTINE20 REM BY MATT LOVELESS AND MIKE EGGERS30 REM (c) 1987, ANTIC PUBLISHING31000 RESTORE 31100:FPPM NLT QR`0+  b c OPMN LSH {ɟH*2 REM WORD FINDER4 REM BY KEVIN PECK6 REM (c) 1987, ANTIC PUBLISHING2220 DATA 24,242230 DATA PKAENGNITSILMARGORPPAIED224U}0 DATA WEQBGAOWCSIFALDECMDODNSC2250 DATA DDJACKTRAMIELEORRUVKCCAM2260 DATA NIODZKIKCVDLNCPNEGASIZNN2270 DATA BSSMRSMNEIEFXU}OMATARHLALA2280 DATA WKNPAIDTSNDNYRXENMPTLCEO2290 DATA ADDOPWWKKVHEIJISIAZGAOXK2300 DATA ERAWMEEMRAPMDZJDRWAEBJCN2310 DATU}A KIJXNTNSICHUMNAGPQHXKPAD2320 DATA DVOTTKXFHWOGBENGNCISAUSZ2330 DATA NEYEXYTRIHTENONHASTPRCSO2340 DATA ASSACPNVGUKOIPGSOMU}OYTLEN2350 DATA TNTHIWGMWIPTSNHAZSCOAUTD2360 DATA SOIEDEACVNUWOSTSDENIDSTA2370 DATA RKCQMOMNULZYAMPECNRMTEEX2380 DATA OSKU}KXKLAOCUTIRISRTSDLNID2390 DATA TISAPCZSTEHNAJSPYFABWKAM2400 DATA IEWTSBEKSADTXAIGPNANUABI2410 DATA NCOLORINDIRECTIONTOCQUPU}F2420 DATA OXNYHWBYZTSIHFNXHCAOENFS2430 DATA MZXGMTMRCABMOUICKBNULOMB2440 DATA SUISLCEYONDZSCUJLWXXKJOK2450 DATA LHRCZITIU}SKTEHOSENSYDIMBT2460 DATA RNVHDDERDNUHTHGIEWNECRCG2470 DATA 202480 DATA ATARI2490 DATA ONETHIRTYXE2500 DATA EIGHTHUNDREDU}2510 DATA DISKDRIVE2520 DATA CASSETTE2530 DATA DISKETTE2540 DATA JACKTRAMIEL2550 DATA TOUCHTABLET2560 DATA JOYSTICK257U}0 DATA HIGHRESOLUTIONGRAPHICS2580 DATA COLORINDIRECTION2590 DATA PRINTER2600 DATA INTERFACE2610 DATA ANTICMAGAZINE2620 DU}ATA MONITORSTAND2630 DATA FIVETWENTYST2640 DATA GEM2650 DATA TRAKBALL2660 DATA CABLE2670 DATA PROGRAMLISTINGRPPAIED224Tr2 REM WORD FINDER4 REM BY KEVIN PECK6 REM (c) 1987, ANTIC PUBLISHING2220 DATA 8,102230 DATA AKNFEAKC2240 DATA DDRKRDVA2Y}250 DATA NOWIECST2260 DATA GQGDSMNT2270 DATA EUZKAASL2280 DATA DFSMHCLE2290 DATA TNAPPBOH2300 DATA MIETDKWE2310 DATA NLY}LUBDMR2320 DATA EWJUOZDD2330 DATA 62340 DATA FROG2350 DATA ELEPHANT2360 DATA CATTLEHERD2370 DATA DOG2380 DATA PHASER2Y}390 DATA BULLDER4 REM BY KEVIN PECK6 REM (c) 1987, ANTIC PUBLISHING2220 DATA 8,102230 DATA AKNFEAKC2240 DATA DDRKRDVA2X