@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 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;DEL`?<0LV`@ʆ 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  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED736 FREE SECTORS COPYING---D1:DIRECK.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 138ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u10 REM CONSOLE KEY SUBROUTINE20 REM BY MATT LOVELESS AND MIKE EGGERS30 REM (c) 1987, ANTIC PUBLISHING31000 RESTORE 31100:FT}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,202U}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,160V},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,17W}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,1X}12,6,76,98,228,050 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,10100 ; CONSOLE KEY EXPANDER0110 ; BY MATT LOVELESS AND MIKE EGGERS0120 ; (c) 1987, ANTIC PUBLISHING0130 ; EQUATES0140 CON Z}SOL = $D01F ;CONSOLE BUTTONS0150 SKSTAT = $D20F ;SERIAL PORT/KEYBOARD STATUS0160 VALRTRN = 212 ;LOCATION TO STORE USR R [}ETURN VALUE0170 SETVBV = $E45C ;SET VBI VECTOR0180 SYSVBV = $E45F ;SYSTEM VBI0190 XITVBV = $E462 ;EXIT VBI0200 ;0210 \} *= $06000220 LDA #$000230 STA FLAG ;ZERO THE FLAG0240 PLA 0250 BNE INIT0260 ;0270 RTS 0280 ]} INIT0290 TAX 0300 PLA ;DISCARD HIGH BYTE AWAY0310 PLA ;GET LOW BYTE0320 STA BUTTON ;SAV ^}E IT0330 DEX ;COMPENSATE FOR REMOVING FIRST ARGUMENT0340 BEQ GETVBI ;IF ALL PARAMETERS ARE OFF THEN BRANCH _}0350 LOOP10360 PLA ;REMOVE BAD0370 PLA ;VALUES WHICH0380 DEX ;MIGHT OCCUR0390 BN `}E LOOP1 ;IN THE USR CALL0400 ;0410 GETVBI0420 BIT BUTTON0430 BEQ VBIOFF ;OPTION #00440 ;0450 BMI VBION a} ;OPTION #1280460 ;0470 ;OPTION #10480 ;0490 LDA #$010500 STA FLAG0510 ;0520 VBION0530 LDA #BUTTON/256 ;H b}IGH BYTE FOR USR RETURN0540 STA VALRTRN+10550 LDA #BUTTON&255 ;LOW BYTE0560 STA VALRTRN0570 ; GRAB VBI0580 c} LDX #VBI/256 ;HIGH BYTE0590 LDY #VBI&255 ;LOW BYTE0600 LDA #$07 ;DEFERRED VBI0610 JSR SETVBV0620 L d}DA #$000630 STA BUTTON0640 RTS 0650 ;0660 VBIOFF0670 LDA #CONSOL/256 ;HIGH BYTE FOR USR0680 STA VALRTRN e}+10690 LDA #CONSOL&255 ;LOW BYTE0700 STA VALRTRN0710 LDX #XITVBV/256 ;HIGH BYTE0720 LDY #XITVBV&255 ;LOW f}BYTE0730 LDA #$07 ;DEFERRED VBI0740 JMP SETVBV ;ITS RTS WILL RETURN TO CARTRIDGE0750 ;0760 ; THE DEFERRED VBI g} VECTOR POINTS0770 ; HERE.0780 ;0790 VBI0800 LDA SKSTAT0810 AND #$08 ;"AND-OUT" ALL BUT BIT-3 (SHIFT KEY)082 h}0 ORA CONSOL ;OR, IN CONSOLE KEYS0830 EOR #$0F ;SWITCH THE LOWER NIBBLE.0840 LDX FLAG0850 BNE ZERO i};ARE WE IN LATCHED MODE?0860 ;---YES0870 TAX ;COPY A-REG INTO X-REG0880 AND #$F7 ;AND OUT SHIFT VALUE0 j}890 BEQ EXIT ;IF NO CONSOLE KEYS THEN EXIT0900 ;0910 TXA ;ELSE RETURN ORIGINAL VALUE0920 JMP STORE k}0930 ZERO0940 TAX 0950 AND #$F7 ;"AND-OUT" SHIFT VALUE0960 BEQ STORE ;IF NO CONSOLE KEYS THEN STORE A ZER l}O0970 ;0980 TXA ;OTHERWISE STORE THE ORIGINAL VALUE0990 ;1000 STORE1010 STA BUTTON1020 EXIT1030 JM m}P XITVBV1040 ;1050 FLAG1060 .BYTE 01070 BUTTON1080 .BYTE 01090 ;1100 .END TA BUTTON1020 EXIT1030 JM ^_} FNTEMPARDPLLA DVORAK KEYBo}OARDBY DAVID YEARKE (c) 1985, ANTIC PUBLISHING(GG(LINES 10-220 MAY BE USED WITH OTHER BASIC LOADERS IN THIS ISSp}UE.-##CHANGE LINE 70 AS NECESSARY.)2&&;@ ,;@ ,;@,<$6-F:B,$BAUFH6. D:Dq}VORAK.EXEHTHIS IS THE NAME OF THE DISK FILE TO BE CREATEDP3 +3(! ANTIC'S GENERIC BASIC LOADERZ(BY CHAr}RLES JACKSONdB Apn1( (( Creating 1(...please stand by.x## "6-;,#6-@s} 6.".-@B:,@.ARAUL6-&@#-@@L((Countdown...T-P:'@,t}) =!67<,.>:A:7<%@,,,/6-%@3 = A0SF:A,"@((8(TOO MANY DATA LINES!u}P(CANNOT CREATE FILE!SH %@(-(TOO FEW DATA LINES!E(CANNOT CREATE FILE!H @@v}5Af@#(@5Af(@+(( Ġ 417cc255255000029w}148030032083030169000133012169029133013169048133010169029133011169083141231002169cc03014123200216910014100800216902914100x}9002169255141081030141082030096169048141043002173001029cc1330121730020291330131730980291330101730990291330111730790301412y}31002173080030141232002173077cc030141008002173078030141009002076083030138072173009210205242002208005174241002208123170201z}159cc208010173255002073255141255002176099201152208010173082030073255141082030176085201157208010173$cc08103007325514108{}1030176071041063201017208005142220002240060134124142242002173081030208022138.cc0410642080171381331240410631620042022210730|}302400602240002082461730820302080181661241380411928cc133124138041063170189009030005124133124165124141252002169003141241002}}169000133077173082030240Bcc007173081030240002169048141043002104170104064165124073128133124208215035057062003004045006007L~}cc040009000061012018014015005017001019020022047002024025026027028029030031046033016021036037023Vcc0390100410340560440430}32038048049050051052053054055011058042059060013008063006007014015000000`cc000000000000000165012141001029165013141002029165}010141098029165011141099029173231002141079030jcc17323200214108003017300800214107703017300900214107803007600302900000000000}0000000000000000000t00000000000000000000000000226002227002084030 D1:DVORAK.BAS300900214107803007600302900000000000Y S  0  Sd QR`0+  b c OPMN LSH {ɟ} Icɘ RIRUɝ QIQG)?<|Q)@|)?I<R|)|)? |||MR}Q0+hh@|I|#9>-( = /.!$%' )"8,+ &01234567 :*;< ?   b cO}PM NLT/.!$%' )"8,+ &01234567 :*;< ?   b cO*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 }CTL-1?0820 BNE CTL4 ;IF NOT, BRANCH.0830 LDA SSFLAG ;SCREEN FREEZE FLAG.0840 EOR #$FF0850 STA SSFLAG}0860 BCS SETDELAY ;SET TIMERS.0870 CTL4 CMP #$980880 BNE CTL50890 LDA KBFLAG0900 EOR #$FF ;TOGGLE FLAG}.0910 STA KBFLAG0920 BCS SETDELAY0930 CTL5 CMP #$9D0940 BNE HELP0950 LDA ARFLAG0960 EOR #$FF0970 } 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 D1840 LDA VKEYBD+11850 STA KEYHOLD+11860 JMP RSTTRAP+31870 *= INITAD1880 .WORD IN10 REM JOYSTICK EXPANDER SUBROUTINE20 REM BY MATT LOVELESS AND MIKE EGGERS30 REM (c) 1987, ANTIC PUBLISHING30000 RESTORE 3}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 DAT}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,6},8,7,0,5,1,0,0,0,0,0,0,0,02,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,60100 ; 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 .BYTE 1 ;FORWARD0560 .BYTE 0 ;C O$%e ASASALSASAHCLSELCLSEHSASLOME ##MULTI$}-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.BAS85,3,76,114,21!!169,48,141,302,512,76,-1,-16668,49,58,6$>)* 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.BASA$-@ (^2 REM WORD FINDER4 REM BY KEVIN PECK6 REM (c) 1987, ANTIC PUBLISHING2220 DATA 8,102230 DATA AKNFEAKC2240 DATA DDRKRDVA2,}250 DATA NOWIECST2260 DATA GQGDSMNT2270 DATA EUZKAASL2280 DATA DFSMHCLE2290 DATA TNAPPBOH2300 DATA MIETDKWE2310 DATA NL,}LUBDMR2320 DATA EWJUOZDD2330 DATA 62340 DATA FROG2350 DATA ELEPHANT2360 DATA CATTLEHERD2370 DATA DOG2380 DATA PHASER2,}390 DATA BULLTA EWJUOZDD2330 DATA 62340 DATA FROG2350 DATA ELEPHANT2360 DATA CATTLEHERD2370 DATA DOG2380 DATA PHASER2,2 REM WORD FINDER4 REM BY KEVIN PECK6 REM (c) 1987, ANTIC PUBLISHING2220 DATA 24,242230 DATA PKAENGNITSILMARGORPPAIED2240}0 DATA WEQBGAOWCSIFALDECMDODNSC2250 DATA DDJACKTRAMIELEORRUVKCCAM2260 DATA NIODZKIKCVDLNCPNEGASIZNN2270 DATA BSSMRSMNEIEFX0}OMATARHLALA2280 DATA WKNPAIDTSNDNYRXENMPTLCEO2290 DATA ADDOPWWKKVHEIJISIAZGAOXK2300 DATA ERAWMEEMRAPMDZJDRWAEBJCN2310 DAT0}A KIJXNTNSICHUMNAGPQHXKPAD2320 DATA DVOTTKXFHWOGBENGNCISAUSZ2330 DATA NEYEXYTRIHTENONHASTPRCSO2340 DATA ASSACPNVGUKOIPGSOM0}OYTLEN2350 DATA TNTHIWGMWIPTSNHAZSCOAUTD2360 DATA SOIEDEACVNUWOSTSDENIDSTA2370 DATA RKCQMOMNULZYAMPECNRMTEEX2380 DATA OSK0}KXKLAOCUTIRISRTSDLNID2390 DATA TISAPCZSTEHNAJSPYFABWKAM2400 DATA IEWTSBEKSADTXAIGPNANUABI2410 DATA NCOLORINDIRECTIONTOCQUP0}F2420 DATA OXNYHWBYZTSIHFNXHCAOENFS2430 DATA MZXGMTMRCABMOUICKBNULOMB2440 DATA SUISLCEYONDZSCUJLWXXKJOK2450 DATA LHRCZITI0}SKTEHOSENSYDIMBT2460 DATA RNVHDDERDNUHTHGIEWNECRCG2470 DATA 202480 DATA ATARI2490 DATA ONETHIRTYXE2500 DATA EIGHTHUNDRED0}2510 DATA DISKDRIVE2520 DATA CASSETTE2530 DATA DISKETTE2540 DATA JACKTRAMIEL2550 DATA TOUCHTABLET2560 DATA JOYSTICK2570}0 DATA HIGHRESOLUTIONGRAPHICS2580 DATA COLORINDIRECTION2590 DATA PRINTER2600 DATA INTERFACE2610 DATA ANTICMAGAZINE2620 D0}ATA MONITORSTAND2630 DATA FIVETWENTYST2640 DATA GEM2650 DATA TRAKBALL2660 DATA CABLE2670 DATA PROGRAMLISTINGZINE2620 D0rSezCTRLININAB SCREEN CUSTOMIZER4}BY JAMES HAGUE (c) 1986, ANTIC PUBLISHINGd BAR@i!!A @n"A4}"(>:A%,s,-@@,(GRAPHICS MODE ZEROx,-@@,(SCREEN CUSTOMIZER}3-@@4}3(programmed by James Hague#-@@#( MAIN MENU.-@ @.( View/Edit Screen/-@ 4}@/( Create Subroutine*-@ @*( Exit Program<-@@<("press the number of y4}our selection A">:,41 A" A">:,42 A " A1>:,43+.(Yo4}ur computer is1J -@6@<2A@@@ J AURETURN KEYPRESS IN (A)54}AdAU5@@K:)@@$EDIT/VIEW SCREEN(>:A%,4-@4}@4(THE FOLLOWING CONTROLS ARE2-@@2(AVAILABLE DURING EDITING3-@@ 3(select4} line with JOYSTICK6-@@6(OPTION - character luminance1-@@1(SELECT - line luminance4}--@@-(START - line color 7-@@7(press TRIGGER to stop editing6-@@6(pr4}ess any key to continue... A(>:A%,%@6-@% A0#-@@##-@%4}$:P:'@,"'@0(ABCabc: Ap)(ABCabc.@# 3 8-@(4}->=6-R:,B)"@*6-&@) AG1"@*@#'6-%@1 AL AQ4}1-@( #-@+(->16-V&6-F:B2y,&@A%[@ ] F:@ ,@4}A`(T:,$b Ae@AEj6-F:A`%,%@o"@6-4}tA`% Ay6-P:F:A6%,'@,~6-F:A6%,&@$@Ap)6-%@4}!@)6- A@A)6-%@!@)6-A6%$@4}% ACREATE SUBROUTINE(>:A%,A-@,(SUBROUTINE CREATOR/(AAR4}KK(CEnter the line number that you would like the routine to start at./ A / )!B'A +(4}+( Enter the line number increment.6 A %6 @)P:,)!AA %S(S(HEnter the filename to s4}ave the sub- routine as. The 'D:' is optional.4A 5;;7@<@,4:*7@<@,0DA4} 5Q37@<@,0:*7@<@,0:96.B6.D:Q67@,."AR@"(>:A%,g5}-@@5(Insert a FORMATTED disketteG-@@g(press any key to write file $ A A%$(>5}:A%,8@+@@8(>:A%,&-@@&( writing filePH(@)IF 5}PEEK(1584)=104 AND PEEK(1585)=173 THEN%@$P6-% [S(@RESTORE%@$*:FOR A=0 TO 47:READ B:POKE5} 1536+A,B:NEXT A[6-%%E=(@*FOR A=0 TO 106:READ B:POKE 1584+A,B:NEXT AE6-%*6.(@A=USR(1584):C5}TRL=205:RETURN66-%/##(@DATAF:A6,4K-@@#4(@,F:A6%,8 C(@5}K6-%9##(@DATAF:A`,>K-@@#4(@,F:A`%,8 C(@K6-%C-5}@H--(@DATAF:A%@$,MY-@@>(@,F:A%@$%,B 5}M(@U6-%Y R(@ DATA 104,64W@$ ERROR HANDLER  A%@ (>:A5}%, /-@@/( I/O ERROR F:A, 5-@@5(press any key for main menu  A$ 65 }-@6( 6-@@6(|OPTION=Character Luminence| 6-@@5 }6(|SELECT=Line Luminence | 6-@@6(|START= Line Color | 6-@@6(|TRIGGER= Ma5 }in Menu | 6-@@6( $'INITIALIZATION'C-@#+A5 }6%?A`%@C ' #B'--A")A%- '66-A6-?:A5 },6;@ ,;@ ,$'$t'104,173,48,2,133,203,173y'49,2,133,204,160,3,177~'203,9,128,145,203,160,6' 15}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,5}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,5}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.BAS4}>?O !BRPLPPSPSSNLJDLLYYTSCCCDSMOV9} 9} ! VECTRONBY HEATH9} LAWRENCE (c) 1987, ANTIC PUBLISHING06-@$F:B2y,"@06- A` A A 9}MOVE PROJECTILE(s@w6-;6-@%@4$+"@,[6-@%@$+"@,s%%@@9}$@2%%@@$96-%+"@,&+"@,W6-%+"@,&+"@,l6-F:%%@@$,%9}%@@$@<>-@@ 1"@)"@; A@>$FuK+@*@*@*@9}*@*@ ,@P]A@gu%%@@$@Ps-@A@;2@@9}@? a2@sA@5Zk6-@$+"@,%@$+"@)"@,%@9}$+"@,%@$+"@)"@ ,}6-%+"@,6-%+"@, AdG6-&+@*@ ,39}"A = AG @PnMAIN ROUTINExi6-@( A%6-@16-@6; AG6-@9}S6-@Y6-c A`i6-i6- A%6-@16-@6; AG6-@ S6-@7Y6-c9} A`i6- A MOVE LAUNCHERS{56-T:,$+"@,%T:@,$+"@,I"@@{6-9}R:,$+"@,%R:@,$+"@,!@*@A`9%%@@$g6-%@$+"@9},&@$+"@,6-%@$+ @,&@$+!@,7%%@@$)-@@- 7 A`9 }SET UP A DEFLECTORk!%@%@@$@?%@7%@@$@ Q-@ k(Ҡž9!}>:,c56-T:,$+"@,%T:@,$+"@,A"U-@AY c APg56-R:,$+9"}"@,%R:@,$+"@,g@*@*@*@AaW6-@6$+"@,%@7$+"@9#},%@8$+"@,%@9$+"@,a AMOVE CURSORs-@ ,(,,,,,,,,,,,,,,,,,,86-@ 9$}D6-@Y6-F:%%@@$,s%%@@$%@556-T:,$+"@,%T:@,$+"@,"9%}*;2@@B@@O-@@PS u2@ A`Y"9&}*"-&(>:,:-@A> L6-%@V AY$"[56-R:,$+"@,%R:@,$+"9'}@,I"@A`[%%@@$,YY6-&@$+"@ )"@)"@,%@$+"@)"@)9(}"@,6YY6-&@$+"@)"@)"@,%@$+"@)"@ )"@,@16-%@$+ @9)},&@$+!@5,_6-&@$+!@,%@$+ @,t6-F:%%@@$,%%@@$%@ A`9*}JGUTTER BALLT"@Ap.-6@F%%@@$@j2@%@P@@9+}~-@@ ^-6@2%%@@$@V2@%@P@@j-@@9,}n %%@@$@hD%%@@$@ A2@D$r-@6@9-}2%%@@$@V2@%@P@@j-@@n %%@@$@ |(%2@9.}($UPDATE STATSL-@ @!(+-@7@!/(A-@%@!I( L$9/}GAME OVER/PLAY AGAIN? +@-@@6(@ H-@@_(@ =========q-@90}@(@ 1g-@@.(@ 24"F-@@](@ 91}!g APF6-@%+!,'-@@F(@  ]-@@0(@ 92} B-@@](@ Ϡ٠-@@!#AP5-@@9"="Y2@93}@@}2@%@@@-@ O%2@G2@94}K O * F:B2y,@A* @ PLAYFIELD +AR@3AV95}'AVEA@5g6-F:@,%AV$F:@,s6-6-6-@6-@=@w96}+@A=B7tAU @E,@1/@C,@8@U/@8@97}U @D,1/@8C,@ U/@9@ c6-!-@!K(98}%PLAYER 1: TARGETS LEFT: PLAYER 2:W6-@c6-@%6-P:H:,$@,%@G6-P:H:,$@399},%@i6-P:H:,$@,%@F:%%@@$,A0%%@@$D%%@@$#6-%9:}@- AA@PA0D$&REDEFINE0 AF:A@,&@*+@<-@@Q(@9;}c-@@x(@--------@@5=@w+@A=B7tA9<}:(@by:&-@@B(@T-@@r(@PRESS TRIGGER...6-+F:9=}A,%@,$AV?;;6-C:.hhhhhhh`,@00X=USR(MOVE,FROM_ADDRESS,TO_ADDRESS,A9>}MOUNT)D6-?:<BsD<<A$,Eee6-C:X  0``0<~ۙ~<<~~<<~~<9?},I 6-?:<<%@2<@,N%%+T:,*T:@,,AX$bMM-+"@(,$@(+"9@},$@(+@$+",&@,g222@+6@$%A!,@@lE-@"( ======== A2@9A}E v=@w+@A=B7tA{$TUNE DATA5562,29B}0,58,20,54,20,48,30,48,30,54,20,58,20,62,50D1:VECTRON.BASA=B7tA{$TUNE DATA5562,28BxyNBRDGDECPLBBPNUMBEROTOTPTTPYYRWORKBLANKDECPNNBRLTLHRLOUEMPBASRLINEFEEPLINEOROCO=D}SLINEGO =E}=F} ! WAGES AND HOURSBY HAL BOYER (c) 1987, ANTIC PUBLISHINGFFIMPORTANT: SEE PR=G}INTER CODES IN LINES 350 & 370 IF YOU DON'T OWN""AN EPSON-COMPATIBLE PRINTER! A@ AU2GOSUB ROUTIN=H}ESF?6-@6-@!6-+ A<6.7@<,?$P?6-@6-@!6-+ A<6.7@<,=I}?$Z?6-@6-@!6-+ A<6.7@<,?$d?6-@6-@!6-+ A<6.7@<=J},?$n 6.=:,x 6.6-B:,%@-@B:,7<,4.6-6-  6-%67&%@=K}<,.67&<&,..-&%@7<,4 67<,.0 $7-@@"7(=L}νŠýԠd@.@@K:;)@F@dAU*@'AE=M}%-@""(>:AV,%$_67@<@,.|.67@,.=:,?67@,.|P67@,.$_67@=N},.E67@(,.|%67@3,.$467@4,.E67@I,.|e67@T,.$#67@U,.467@g,.=O}|E67@p,.$T67@q,.e67@,.|"$,67@<@,.|.67@,.=:,?67@,.|N67=P}@,._67@,.|n67@,.67@",.|6C67@#,.#67@0,.|267@1,.C67@9,.|=Q}@$J_ -@6@<2@P@X2@@`@\ _$T7-@)=R}-@@ 0(4 7$^8 38PRINTER CODE FOR ONE LINE OF EXPANDED PRINTh##3 *WAGES & HOURS*r=S}33 333PRINTER CODE FOR CONDENSED PRINT3NAME: 3UU3 BASE RATE= $< =T} 52 WKSXX3P| HRS | BASE PAY | OVERTIME PAY | WEEKLY PAY | YEARLY PAY |$=U}MAIN PROGRAM INPUTC +A 1A@CAACAR(}--@=V}@C(ӠӠ+-@@+(=================: A-@@6(Enter Base Rate..=W}:_)!@ # A05-@@U( _ A`5 A-@=X}@1( Enter Name..54@_B:,!@ A0.-@@U("=Y}_ A`J A0-@@F(!Send Output to rinter or creen J B&4@0G=Z}37@<@,0P*7@<@,0S= A0G A0:4SANPRINT ROUTINEbDAR@=[}'-@@D(ǠΠӠl A@v AP-@@Q>"@$)"@H-=\}-@@034 > AP#6-%?P#@w 6. A33 VV3N-----=]}-------------------------------------------------------------------------)AR A0) @G-@=^}@!)(3 A@= BG @FORMULAS AND JUSTIFY <6-$@@26-P:$A%?P=_},'A< @p)6-&@@)6- >6-$$@P46-P:$A%?P,'A> @=`}*6 6-%,6-P:$A%?P,'A6 @4<6-$@R26-P:$A%?P,'A< A>07@=a}<@,4P& A`0 APH AR$fSCREEN DISPLAY ROUTINEz36-@6--AR@=b}3(}+-@@+(ӠӠ"-@@"(Name..+-@"@+( Base Rate..=c}$A-@A('|HRS BASE PAY OT PAY WEEKLY YEARLY |-@@Q6-%?P$6.7@=d}<@@,$ A -(6-%@<!@  A0# A@/"@'2'< @%!@ =e} A@%6-@ 4 -4(& -------------------------------------3 A0 A@)AR3 @=f}SETUP ROUTINE~~;@,;@ ,;@ ,;@ ,;@ ,;@,;@,;@ ,;@@=g},;@,;@,;@,;@ ,$+ 6.-67@,.-+67@,..67@<@,.|5=q}$B%DOS SYSB*)DUP SYSBSCONSOLE LSTBYCONSOLE M65BnDVORAK BASBDVORAK EXEB#DVORAK M65BJSTICK LSTB JSTICK M65B MULTIAUTBASBNEWOWN12BASBPUZZLE1 DATB PUZZLE2 DATB(SCREEN BASB2VECTRON BASB)CWAGES BASB7uWORD BAS67@<@,.|N67@(<@(,.|g67@I<@I,.|67@g<@g,.|67@<@,.|8=r}+ 6.-67@9,.-+67@,.B67@<@,.|567@<@,.|N67@<@,.|g67=s}@#<@#,.|67@1<@1,.|67@9<@9,.|L+ 6. 67@,. +67@,.V6-@9P=t}`@j$ D1:WAGES.BAS@9<@9,.|L+ 6. 67@,. +67@,.V6-@9P<2BRWORDGRIDLCLBYTEDWIDTDHEIGHESESGGEXEYSTARTROSTARTCOMISCFLACOUNFLASSFLNNSTMFNAv}LINPPPPMFOUN@ Aw} Ax} !"#$%&'()WORD FINDERAy}BY KEVIN PECK (c) 1987, ANTIC PUBLISHING06-@$F:B2y,"@06- X +A@Az}X;@%,;Av,;@,;@,9@,< @%"# A( @0<DO INITIALIZATION@A{}( ( ((4( I can't find any puzzle data!7(:(=(@$ Ap$LOOK FOR 1ST. LETTER(FIND REST OF WORDP//A|}%+$, )%+$,!%@A5Z//%+$, )%+$,!%@A5d/ 6-%6-%6-@'6-%A}}/6-%i 6-6-n# 16-%A(#,x777<,07+&@,$%<+&@,$%,A$6-%A~}@!'$ Ap- 6-%6-%6-%#6-%- A.-@@$( WORD. A5A}# 16-&A(#,%6-&@%"@A5 6-&6-& A$----------A}6-@"6-B:,"F @8-@&%P:+@&,'@,@<(F A ,a-@&@*(7@A}<@,<-@&@H @%W(7@<,a A 6(7@<@$,@)AJ&-@&A}@&( This word isT$-@&@$( too LONG^&-@&@&( for puzzle!!h A ruA}AF:A@,*B2w<AY@4P-@dB2H%h r+u6-A}@6-%&@6-@6-%&@# 16-%A(#,CC7@<@,07+&A}@,$%<+&@,$%,ANJ6-6@"@w&8@AJB7tAS6-A}6@X!!"*"A b @l' @6-%@' Aq' @6-%@' A}Av6-@# 16-&A(#,!  6-%@! A!  6-%@! AA}6-$-@'@$( Word could &-@&@&( NOT be found*$-@'@$( in puzzle!4A}1A@H'A@H1 AP>6-%@H3-@5@! @3-@6@R(\A}"@A f!  6-%@! ApS-@&@(+-@&@/(AAA}SA8-@(@"(FINISHED.6-8 A`"@A 0 A %-@'A}@%( STARTCont$1-@'@!%( OPTIONEnd16-. 6-&6-&0 +,1+%,,A}1$6-F:B2y, @$6-2' )6-%6-%' Ar3##+")!A(,Ap8'6-@A}"@'6-@BjS-@&@(+-@&@/(AA@SA@tE-@&A}@(+-@&@/(A-@&@E(~>-@&@(+-@&@!/(;6->$A} F:A,@Ap&-@&@&( Unexpectedly&-@&@&( out of wordsF-@(@A}"(in DATA!4A@HFA@H! A`!"@A  A $-@'@$(A} UnexpectedQ-@&@-(ERROR # F:A,?A@HQA@H @-@&@@(in LINEA} F:A,%AV$F:A,! A`!"@Ap A (Z$-@'@$( Word FOUNDd&-A}@&@&( at indicatedn"-@(@"(locationx'AA'AA6-%@A}3-@5@! @3-@6@(! AP!"@A  A Ap9AA}R@ A`) A /"9 Ap-@@ F:A,@A`NN(FFirst DATA statA}ement must contain WIDTH and HEIGHT of grid. One or-*("both of these numbers are missing!-GD(ERROR #F:AA}, in LINE F:A,%AV$F:A,G"P!@$) +-@@M(Improper WIDTH value in DATA!PA},Q!@$) +-@@N(Improper HEIGHT value in DATA!Q6/6-!-@$/6-%@A}@"6-B:,"A@J8-@@8(Width of GRID DATA element #T  ( is too short!^A}( is too long!h67<%&@,. r A`" AP|`-@@<("DATA statement following GA}RID DATA`(statements does not contain theKK(Cnumber of WORDS to search for. Please check number of GRID DATA and@=(A}5check for possible missing WORD COUNT DATA statement.@{6-F:A,&@&A0+BAR@A}TA@^ A`p-@@{(FINDERh A`-@@*(FINDER<-@@I(A}BY KEVIN[-@@h(PCK68,--68@,-A(B68@,-AW68@,-A$A}l68@,-A@68@,-AH68@,-AR68@,-AT68@,-AU2&6-P:+@$A}&,'@%?P,26-A(&&6-P:+@$&,'@%?P,! 6-!@!6-@)6-&@A}!@)6-@ 6-)6-&@ )6-&3BBy!AY@F3A}B2w@09B2V@'B2W@9B2X@:KAAE'AAE9AAEA}KA@D+6-$AV%A+A#@NW-%@%+$@,+?%A(A}S%AVW XN-%+$@,&@(8,9%A(8,J%AV8,N bK-%A'A}3%A(G%AVK l6-@H%+$@,v7B2H#B2I%@27B2PA}%@d (}@-"6-@"-@B:,&(7<%&@,# @$&(6-A}%@  '-@%'@@%6.  6.*(A}4( COMPUTER >( WORD FIND (H( # FOUND 0 R( # MISS 0 (\(SEARCH WORDfA}( (((((p( (((((z( (((7@@!6--6-A}7 A"6. "12 SPACES$ D1:WORD.BAS7@@!6--6-@M