G@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@WG1  Y0@R !L` D  C D     G)16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD`G D  C D     )16CS S)  C)D1 p p }G0 C9DI pCDL~CiCDiD` DD˙` d J)L !}GD L(( LL()  L| L( S LH 0p n  }G CY?  q  L L  ` )}G `A! d߰")-݆ "  $G@LLL&0") $G% } GH0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 } G)8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) } G  hyhyB q L> Lm JJ  Ln*` dB%' } G8  H H` 1 { LL   !L     Hh SY?  q  1L } G  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}G) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}G1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q}G L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF }G G) *Gȩ GȽG GȌd q q G`  8   0G  `D}GCEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}G`piH n0)բY? 08`0 }G  0$L GGȽG L `8L`L}G8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}GE8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE}G H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}G1LJ舩9GIH`LJJ`HGHh l`}G S gL   8 rii `дCDCG W  }C#C  Lq` X٨`DOS( ySYS IIIIIIIIIIIIIIIC`0 ߩ0}}~}C HE %|+-3G||DDOS PVDOSDOS[ `SYS sx}~}C}~}C CDOS SYS~}CV 0`BDELV !B }G`LVUQ   ]   TU J ]L!T  #      TU  } G L ? .  t`GBJ V~DEHI B V0dV!}!GQDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}"GDEL8HI   0 HI,0 0  9 .G VLO#}#G,0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$}$G V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%}%G VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}&GSTILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}'GLLu DEHILV 9 .l 9 .l  `` s$B VBH(}(GI|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)})G1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}*C(1i1232435ޥ<<823Z\}}+G 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,},CUPLICATE DISKC. COPY FILE ^K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILEb M. RUN AT ADDRESSF. LOCK F-}-CILE )N. CREATE MEM.SAVG. UNLOCK FILE- RO. DUPLICATE FILEH. WRITE DOS FILESW9!&x#!7&p))'&X*./)L''-؆莟.}.GR'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}/Gil ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}0GJB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}1GN !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}2GI 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3}3CS BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWEDjy COPYING---DN:}4}4C # 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5}5G 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}6GPdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7}7G 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}>G//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}?GD1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@}@G L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}AGP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}BG  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}CGFINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}DG, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}EG0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}FGINSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}GGL1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}HG% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I}IG JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ}JG,A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}KG}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}LGBE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}MGhAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}NGGIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}OG0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}PGA"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}QC?NAME TOO LONG B VL ` L1I H1EӝDL1DEI|mDiE` V0`8d/8 i:"2!22 1R}RG L ERROR- 165ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS}SG HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4;uT}TG HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4;uUCm5 REM Ӡ̠͠ԠΠΠήԧӠԠƠҭԠӠĠΧΠ֮ՠ®r10 REM ***V}VC*"20 REM *< F*30 REM *M XODD MAN OUT` j*40 REM *v xBY} W}WC 5*50 REM * JOHN AND MARY HARRISON *60 REM *O Y*70 REM *e hFORs *80 REM *X}XC ANTIC MAGAZINE $*90 REM *> G*95 REM c*140 DIM ANM$(104),NAME$(2Y}YG0),PMPY$(48),FRAME$(12),ERASE$(12),DISP$(20)180 AF=77320 FRAMES=4:FRMSZE=10:POKE AF,0560 FOR I=1 TO 104:READ X:ANM$(I,I)=CZ}ZGHR$(X):NEXT I880 GRAPHICS 17:SETCOLOR 4,2,8:SETCOLOR 0,0,14900 ? #6:? #6;"EVERYDAY OBJECTS":? #6920 ? #6;"SIMPLE SHAPES":?[}[G #6940 ? #6;"E AND [":? #6960 ? #6;"CAPITAL LETTERS":? #6980 ? #6;"SMALL LETTERS":? #61000 ? #6;"DIGITS":? #61020 ? #6;"\}\GTHREE DIGITS":? #61040 ? #6;"EXIT"1060 POSITION 18,1:? #6;"<"1080 CHOICE=11100 POKE AF,0:JOY=STICK(0):POS=01120 POS=(JOY]}]G=9 OR JOY=13 OR JOY=5)+2*(JOY=10 OR JOY=14 OR JOY=6)+11140 ON POS GOTO 1300,1160,12201160 POSITION 18,CHOICE*2-1:? #6;" "1^}^G180 CHOICE=(CHOICE=8)*1+(CHOICE<8)*(CHOICE+1)1200 POSITION 18,CHOICE*2-1:? #6;"<":SETCOLOR 4,CHOICE*2,8:GOTO 12801220 POSIT_}_GION 18,CHOICE*2-1:? #6;" "1240 CHOICE=(CHOICE=1)*8+(CHOICE>1)*(CHOICE-1)1260 POSITION 18,CHOICE*2-1:? #6;"<":SETCOLOR 4,CHO`}`GICE*2,81280 FOR DEL=1 TO 100:NEXT DEL1300 IF STRIG(0)<>0 THEN 11001320 RAM$=ROM$:RAM$(25,128)=ANM$(1,104)1340 RAM$(473,48a}aG8)=BOX$1380 PMPY$="#$%&'()*%+,-"1400 PMPY$(21)="#$%&'(#./+,-"1420 ERASE$="   "1440 ON CHOICE GOTO 148b}bG0,1500,1520,1960,1940,2240,2240,41401500 RAM$(145,208)=GEO$(1,64):RAM$(257,448)=GEO$(65,256):GOTO 15401520 RAM$(145,208)=E$c}cG(1,64):RAM$(257,448)=E$(65,256)1640 WRONG=01660 FOR LOOP=1 TO 101680 SAME=INT(8*RND(0))1700 DIFF=INT(8*RND(0)):IF DIFF=SAd}dGME THEN 17001720 ODD=INT(4*RND(0))1740 FOR I=0 TO 3:P=(I=ODD)*DIFF+(I<>ODD)*SAME1760 P=INDEX(P)+321780 POSITION I*4+3,5:?e}eG #6;CHR$(P);CHR$(P+1)1800 POSITION I*4+3,6:? #6;CHR$(P+2);CHR$(P+3):POSITION I*4+3,8:? #6;"[":NEXT I1820 GOSUB 2500:REM JUMf}fGP TO INPUT ROUTINE1840 NEXT LOOP1860 GOTO 31001880 REM SET UP FOR LEVELS IV, V1940 RAM$(265,472)=RAM$(777,984)1960 GRAPHg}gGICS 2:POKE 756,GRTOP1980 FOR I=0 TO 3:SETCOLOR I,0,14:NEXT I:SETCOLOR 4,CHOICE*2,82000 SETCOLOR 2,CHOICE*2,82020 REM POKE h}hG16,112:POKE 53774,1122040 WRONG=02060 FOR LOOP=1 TO 10:SAME=INT(26*RND(0))2080 DIFF=INT(26*RND(0)):IF SAME=DIFF THEN 2080i}iG2100 ODD=INT(4*RND(0))2120 FOR I=0 TO 3:P=(I=ODD)*DIFF+(I<>ODD)*SAME+652140 POSITION I*4+3,6:? #6;CHR$(P):POSITION I*4+3,8:j}jG? #6;"[":NEXT I2160 GOSUB 2500:REM JUMP TO INPUT ROUTINE2180 NEXT LOOP2200 GOTO 31002220 REM SET UP FOR LEVELS VI, VII22k}kG40 GRAPHICS 2:POKE 756,GRTOP:GOTO 22602260 FOR I=0 TO 3:SETCOLOR I,0,14:NEXT I:SETCOLOR 4,CHOICE*2,82280 SETCOLOR 2,CHOICE*l}lG2,82300 REM POKE 16,112:POKE 53774,1122320 WRONG=0:M=10:N=0:IF CHOICE=7 THEN M=900:N=1002340 FOR LOOP=1 TO 10:SAME=INT(M*Rm}mGND(0))+N2360 DIFF=INT(M*RND(0))+N:IF SAME=DIFF THEN 23602380 ODD=INT(4*RND(0))2400 FOR I=0 TO 3:P=(I=ODD)*DIFF+(I<>ODD)*SAn}nGME2420 POSITION I*4+3,6:? #6;P:POSITION I*4+3+(CHOICE=7),8:? #6;"[":NEXT I2440 GOSUB 2500:REM JUMP TO INPUT ROUTINE2460 NEo}oGXT LOOP2480 GOTO 31002500 REM JOYSTICK MOVE AND INPUT ROUTINE2520 POKE 752,1:FLAG=02540 POS=3:POKE 656,0:POKE 657,POS+12p}pG560 ? PMPY$(1,10)2580 JOY=STICK(0):POKE AF,02600 IF JOY>7 THEN 2660:REM JOYSTICK RIGHT ROUTINE2620 POS=POS+1:IF POS>34 THEq}qGN ? "}":POS=32640 GOTO 27002660 IF JOY>11 THEN 2800:REM JOYSTICK LEFT ROUTINE2680 POS=POS-1:IF POS<4 THEN ? "}":POS=34270r}rG0 FOR I=1 TO FRAMES:FRAME$=PMPY$(I*FRMSZE-(FRMSZE-1),I*FRMSZE)2720 POKE 656,2:POKE 657,POS:? ERASE$;FRAME$;ERASE$;2740 IF Is}sG/2<>INT(I/2) THEN SOUND 1,4,0,142760 IF I/2=INT(I/2) THEN SOUND 1,4,16,142780 SOUND 1,0,0,0:NEXT I2800 IF STRIG(0)=1 THEN t}tG25802820 RE=(POS-5-(CHOICE=7)*2)/8:LE=(POS-4-(CHOICE=7)*2)/82840 IF RE<>INT(RE) AND LE<>INT(LE) THEN 25802860 RETURN 4180u}uG DATA 0,8,24,124,252,255,31,314200 DATA 0,0,0,0,0,129,255,2554220 DATA 0,16,24,62,63,255,248,2484240 DATA 31,15,7,3,3,3,3,v}vG34260 DATA 255,255,129,0,0,0,0,04280 DATA 248,240,224,192,192,192,192,1924300 DATA 8,60,124,252,28,28,31,314320 DATA 0,0,w}wG0,0,0,0,255,2554340 DATA 31,15,7,7,13,24,48,484360 DATA 255,255,129,0,129,195,102,1024380 DATA 248,240,224,224,176,24,12,1x}xG24400 DATA 0,0,0,0,0,128,255,2554420 DATA 16,60,62,63,56,56,248,2480,129,195,102,1024380 DATA 248,240,224,224,176,24,12,1FyC#l  AXLPB0NZ*,24;<CDKLRTZ\bdkl st |70@BDJN@RXQ0@\^dh@lrc@v@<{}{Cu@ @7'{(}AR@+4++(#U++(#| ANTIC MONTHLY DISK JAN. 198<|}|C 4 |++(#.8++(#Yc @ gr-@vA<}}}C $ GG;@@,;@ "),;@@-4,;A8?,;@CJ,;@@Nh, "D1:MENU" &&@lp@tv|>}~C3#$ RWORDSENTANSNAMEBLSENDL8^dedd-@cf@jvF((@{ @ }C @f @$ *;@#,,;A09,*;A=I,;AMV,;@%Zd,6-jp6-v(S + }C '0@@@ &A0@*,24:HSAR@LU2P-@Y]@a6(TYPE THE USER'S NAME PL }C?EASE.M(THEN PRESS RETURN.P(<F(>:A%,P-@CG@KX(Z3-@\`@d3(NUMBER OF QUESTIONS }C d3-@@-3(NUMBER CORRECT6 An0-@EI@Ma0(PERCENT CORRECTh qx4-@uw} }C4(_(4-@,0@494(S_^;@@bv,) 6. 67@@z,. }C)67@ 9,.FOR DLY=1 TO 200:NEXT DLY-@=A@EN%-@RV@Z%( QUESTION   " }CL('('(NOW TYPE THE CORRECT ANSWER. ( 4AP=%2RV@)Z^@bf@jr9-@v@ }C = =%2@E@"&@*29-@6:@>I= %%2OQWY_agp.-@tx@ | }C#.(THAT IS NOT CORRECT."-@'IAP , Ap6'-@MQ@U'( THE ANSWER TO@ ( ( (J (I }CS ((T A^=%2"&@5*.@26@:B9-@FJ@NY= h=%2_c@1gk@os@w9- }C@ @= r=%2#@)'+@/3@7?9-@CG@KV= |%%2\^dflnt*-@ }C@ .*(THAT IS CORRECT.'6-%@28#-@%<@@DU'(6-%@Yb-@%fj@n(6-P:+ }C',$A ,"-@%@"8"( ?-@<@@"Di?(PRESS RETURN FOR QUESTION %@m A }Cp -@@!,-"A0Y-(FANTASTIC! YOU DID GREAT!= A]c*!@g=(VERY GOOD! THAT'S }C A GOOD SCORE!6 @#*!@y'O6(PRETTY GOOD. YOU DID OK!@ @SY*!@i]@("THAT'S A FAIR SCORE. STUDY }CHARDER!2 @p_2(YOU COULD DO BETTER THAN THAT!&((GOODBY! 0:-@cg@#krD-xN }C(7@ <@9^,X b$ 4+2,6 1+1,2 3+4,7 D2:TRIVIA@cf@jvF((@{ @ VCm]^ BT1BDLDAYMPBASEYEASTARTOFLEAPFLACUROFMYEAOFFSETEMPOFLMONTDITEMPYEALLLLtv|}C @ !()0189 @A HI PQ XY `ahipqxy}}C #$*/_4*E,;@6IP,9@BT[,;@_f,;@jv,n..6.$|z | }C | | | | | &|x..6.$J-_36-AP6-ek'6-q36-AP}C +  AP""'+/ curoff 9+J*AR@Nw$*turn cursor off  "*2&"@{*}C'@"P:'@,26-@!>> 6-H  6-+%@BP,&M@T^6-&@bR$<8(/CALENDAR FOR }CJWHAT MONTH(INPUT NUMBER, NOT NAME)<)(( FOR WHAT YEAR)6-P   ( AP 6-&6-6-}C -@6-%@",6-%@0;*'@?G"P:'@KV,*6-%@Ze@is6-&@w }C ('@"P:'@%,(6-@)47"@8B6-&@FL) R\76-%@`k-@o A}EG ( 6-- 6..V (DO YOU WANT THIS ON THE:.( CREEN=( RINTER@(R( (TYPE S OR P)V/0S*}C0P( AQf0=67@ $<@(4,.:9@8<@@BHX= 2."(@\_n w.(@{}C <33(@ " S M T" #W' (T, -F1 A@FI @ NQ @VY @@^b A(fj AVnrA vA%}C@9 <APBA4B@@B$BsDBALB@!QUAYeBsDA2imAVqt@y@}C p!BY*ROTATING FONTS** BY SOL GUBER **ANTIC MAGAZINE**JANUARY, 1984 *}*}C *** 6-6-@&'6-@*236-@6>?6-@BJK6-@NVW6-@Zbc6-@fno6-@r{6-@ }C 6-@ 6-@@T6-A(6-AV?6-A 6-A%'6-@9Xl36-AP?6-@@p;A}C?,6-C:,*67,.>:,!67A0,.>:,*67,._ AC^d;A ,i467@b,.%67A ,.467}C@:,.n# 6-C:,#6-F:AV,$AVx%%6-F:@>M,%AV$F:@Q[,A_cA g,J 6-^: }CF-6-F:%,667$%<$%,.7$%<$%,: 3S0320J  %A6-% &<6-F:AV}C,$AV,AY<-A'V 6-6-`6-F:%%,6-e 6-%%j'P:',F:,%t }CN6-P:',6-&! ~ 6-$6-%   AY@4Ry$ D2:ROTFONTOLDFONAKS}hC<dBNCTRECCTINDEMARKE(CDKN@SV@([^@cf@kn@r11SUPER }CRDISK LABEL PROGRAM by Richard Kushner""ANTIC MAGAZINE, JANUARY 1984 ;@V],;@@a,* (}'(LOAD PRINTER }GWITH LABELS.*(.+(#TURN ON PRINTER/850 INTERFACE UNIT..()&(INSERT DISKETTE INTO DRIVE #1.)(# (PRESS WH}CEN READY.#( A *##@.2@68>MP:!<*@QU@'Y`)*@dh@Qls<*@w@}C %<(@>:@#,<(@'->:@'18,>:@<H,(;@L7($ENTER DISKETTE NAME ( FOR END);*#}C 4@ @(#-?6-.46-:@'6-FL36-RZ?6-@^h2(@l DISK = <}C 6-%@ d&&@@#%+GD:*.*x A@KWT(@[m $6-%@q26-%@}C T7@<@/,4 FA&"@3: @>D&6-JU1"@@Y` @dk% @ou16-{}C A 6"3 A 86-P:'@7C,:@GQ6-%@U`<"-@do& @s" @ }C@@* B-*F:A,"A8@ 1GD(ERROR #F:A, AT LINE F:A,%AV$F:A,G&}C< D2:DISKLABLNCTRECCTINDEMARKE(CDKN@SV@([^@cf@kn@r11SUPER Cl^__i|PSLPPUZZLEWORDLTRFILEQWSVTTLPLLTWCNFLDINCOTYCHEALTESXYXYIERLINvw} }C  "(*029: AB IJ QR YZ abijqry }C $%,-45<=DELMTU\]delms &&ATARI }Cb WORD FIND PUZZLE GENERATOR BY MATTHEW RATCLIFF ANTIC MAGAZINE JANUARY, 19844 +h*(* WORD FIND BY M }CAT RAT *4 AB$( (PUZZLE SIZE (10-30) $(9+ @FL)!@0Pk,/( SIZE ERROR !9 @0o23 6-$3 }C ;,;@,;@ ,;@$0,<L0;@4;,;@?E$$@IP,;@PT],<6-@raLPRINTER WIDTHF$$6.AB }GCDEFGHIJKLMNOPQRSTUVWXYZP0 6-B:,0YOU CAN ADD SPECIAL CHARACTERS TOZ55THE RANDOM LETTER FILL ARRAY, LTR$ TO ALLOW FOR }Cld88HYPHENATED WORDS & SHORT PHRASES IN THE LIST. ONLYn++THE '*' & "," ARE NOT ALLOWED IN LTR$x*6-r*MAX WORD }GS ALLOWED, 3*PSZ((INPUT WORD FILENAME,**("(C: FOR CASSETTE), 'NEW' TO CREATE(A NEW WORD FILE  }C =B:,"^(3(NO FILE NAME ? NO GOOD -= A@ 4NEW A0D6-@bj(7@nr<@v,4C4 }C6- DCASSETTE FLAGA@,(,(!REWIND CASSETTE WITH WORD FILE ON++(#IT. PRESS AND PRESS }C5KEY((( WHEN CONSOLE SPEAKER BEEPS ONCE. @9=@ACIeA(-@ixA($)@| }G( ''GET DUMMY RECORD TO STOP CASSETTE&("(INPUT TITLE OF PUZZLE &"E(*((D)IFFICULT OR (E)ASY PUZZLES  }C .EB:,"%A,AA6-@)0$+7@48<@<I,4D,%+7@MQ<@Ud,4E,6+"j!( * WHAT ? * }CB+ A@.(*(INPUT NUMBER OF PUZZLE COPIES .J( @Fj( HOW MANY ?( A T"@nrAv^2( }C6.("(I)DENTICAL OR (D)IFFERENT COPIES 2hAA6-@:A$+7@EI<@MZ,4I,%+7@^b<@fu,4D,r0"{& }G('I' OR 'D', NOT 0 AP|--PRINTER SET-UP CODE. REPLACE WITH YOUR&&PRINTER'S SPECIFIC REQUIREMENTS.##@ }C@ P:* ASK FOR CHEAT SHEETS *-(-("WOULD YOU LIKE CHEAT SHEETS (EXTRA))(!PRINTOUT OF PUZZLE }C> BEFORE FILLING="(WITH RANDOM LETTERS), Y/N&=B:,"DWA@AA6-@[b$+7@fj<@n,4N,%+7@ }C<@ ,4Y,*"j ( 'Y' OR 'N' ?* A@%%* FILL PUZZLE WITH '*'S FIRST *867@nr<@v,.*) }C67<,.*867@L,.((* GET A WORD AND CHECK FOR 'END' *@P( 4END A 6-B:,&) }C[)*PAD WITH BLANKS TO 15 CHARACTERS *0))* TO FORMAT OUTPUT,& SAVE IN WSV$ *:*-%@_c@g&67<,. * D }C6-%@ $WORD COUNTN<!@(`$( * ERROR *9(WORD FILE TOO LONG...<XBB67@dk$+&@ot,%@x<@ }C $+&@,%@s,.bl,,* PICK RANDOM COORDINATES AND VECTOR *v,,* VECTOR IS 0,+45, OR -45 DEGREESw *,, }C* FOR EASY PUZZLES& 0*06-60TEST COUNTER FOR # OF TIMES WE!!TRY TO FIT WORD$ IN PUZZLE$; }C 6-P:$H:,,%@&;6-P:$H:,2,,%@6C6-%@GU-# +%@Y^,$@bf%@j- A@//TRY }C3 MORE TIMES WHEN PUZZLE IS NEARLY FULL86-&@7? @CK)6-@O8THROW IT OUT(( * WONT FIT * }C, A APA`/%6-P:H:27,$@;@,%@D[/ A%%6-P:H:af,$@jo,%@s$$SET }C>X1,Y1 - X,Y INCREMENTS FOR CHOSEN DIRECTIONGG6-+"@BH)"@LR)"@V^,&+"@bh)"@lr)"@v, GG6 }C-+"@ )"@)"@ (,&+"@,2)"@6<)"@@p,*$$* SEE IF WORD WILL FIT THERE *4-@t> 6 }C-%$H 6-%$R%+ @#)) @-a,% Ap\+!)!, Apf6-$+&@e,%p7<,4* A }G z7<,47<, A . Ap.SPACE ALREADY TAKEN, TRY AGAIN * OK, INSERT WORD HERE *- }C@-+ 6-%$6-%$+6-$+&@1,%67<,.7<, ) A )GET NEXT WORD UNTIL 'END' }GEND OF FILE REACHEDA A`7 A@7PRINT PUZZLE WITHOUT RANDOM LETTER FILL**NOW }C1FILL PUZZLE$ WITH RANDOM LETTERS$-@5M.7<,0* AQ^8;6-P:H:dl,$,%@p;SELECT A R }CtANDOM CHARACTERB67<,.7<,FROM LTR$L V,,* NOW PRINT OUT PUZZLE AND WORD LIST *` A@6-zj }C-@ tJJ(@"7@&-$+&@16,%@:><@BI$+&@MR,%@Ve,~46-%@iq"@u)6- }C 4(@3 (@!((@,3((@7>3(@Bk00* PRINT MULTIPLE IDENTICAL COPIES ?q *1!@ }C *"@'6-&@O1 A 77* PRINT MULTIPLE DIFFERENT COPIES ?\ h*<!@lr*"@v'6-& }C@2@&< AP@*1@5]((PUZZLES COMPLETE.( BYE c.A' }Cq('(REWIND CASSETTE AGAIN PLEASE%%(PRESS AND THE KEY RESTORE CASSETTE WORD FILE 3 @uy@} }C,6-736.A (-@;JA($)@N( ( A2* PRINT OUT PUZZLE$ * }C <&-@@"(@!& F**THIS IS MY FORM FEED FOR A TELETYPE,P$$FOR FANFOLD PRINTER PAPER USE:Z1340 }C ? #3;CHR$(12)d9(@#(@'496-P:+&@8B&B:,,'@F,n22CENTER TITLE PLUS 'WORD FIND ' ON 72 COL TTYx% }C-@ !(@+ % 3(@/E WORD FIND ((@IP3(@T_-@cpL(-@tP:+&@ }C $,'@,8(@? < LCENTER PUZZLE-@CU6-$+&@Yf,%(@j7<,  }C (@ (@#*(@.$,,* CREATE NEW WORD FILE FOR WORD FIND *(FILE NAME TO PUT NEW }C%( WORD LIST ON 9B:,"+]/(NO FILE NAME ? NO GOOD -9 A046-@ai(7@mq<@u,4C46 }C- "A ,'('(REWIND BLANK CASSETTE, PRESS6!!(ٯ AND PRESS THE@''( KEY WHEN CONSO }C*LE SPEAKERJ(BEEPS TWICE...T @.2@68>Z^APh+-@^mA('(@q0+ r }C6-@ 4|(( WORD = ,B:,!@8^"( TOO LONG, A`;B:,"d1(NO WORD?? 'END' IF D }CONE...; A`(@-)6-%@19!@=h$) A@0ENDA`@l$(((( }CGMAXIMUM WORDS ALLOWED REACHED (FINISHING UP THE FILE...(@KcEND(END@g( CONTINUE... }G$46-F:A,46-F:A,%AV$F:A,*(*( * ERROR #  AT LINE  *.( (.( CHECK YOUR ERR }ClOR CODE AND FIX IT& D2:WORDFINDSVTTLPLLTWCNFLDINCOTYCHEALTESXYXYIERLINvw} ,CA34+;PRPR1PRPR2PICSCSTHDFNCIOVDLMIPAMASJLSTZ\cdklst{$}C    &' ./ 67>?FGM`^***SCREEN DUMPd*_*BY JERRY WHITE &*$}CM`*FERNANDO HERREA *a* ANTIC MAGAZINE *b* JANUARY, 1984 *c_*ydРn_ +}$}C@ @"1AR@&FCAA`UA@$J_ A`s РҠҠӛxp@$}C .@@ ,P:p(@06>:@':A,>:@dEL,>:@'PW,>:@Q[b,>:@$f,}GGΠŠ$}C ŠҤ kϠҤҠɧӠ 6-C:,6-C:,ΠϠҠЛb-qu@9y/6%}C -A$@@0%%D6-?:A6<<<,Q(@4=^(@AQb 0@UY+_(%(BASIC-(IS0%}C2РӛGG;A d,;A d,;@6=,;@AH,;@BLS,;@3W,'( ((SDUMP CREATING:'Au%}C Ԡӛ--@$(@,^")67<,.>:,- 27,76,192,3?6.>:dv,*67A d,.>:|,%}C967@ ,.?6.167@$(<@,7,.167@;?<@C,.ˠϠΠś7 A !-@%}C@B %"367<,.>:,7 LL104,104,104,10,10,10,10,170,104,104,157,66,3,104,157,69,3,104,157,68,3KK104,157,73,3%}Ck,104,157,72,3,32,86,228,169,0,133,213,189,67,3,133,212,96٠Ԡś7 A`!-@os@3w%"3%}G67<,.>:,7 ==104,173,48,2,133,203,173,49,2,133,204,160,1,200,177,203"@@201,15,240,4,201,79,208,4,233,1,145,203,19%}C62,200,208,237,96,ҠҠӛ6/ A:!-A1AF%"+/ @ĽśJ 0,0,0%}G,0TҠǮˠٛ^10,5,10,5hҠǮԠٛr10,0,5,0|ҠǮ˛15,15,15,1% } C&5ΠРś/ A*!-A6A0%"+/ 33104,104,133,204,104,133,203,104,141,192,6,1% } G04//141,191,6,104,141,194,6,104,141,193,6,169111,133,207,169,191,133,208,160,0,177,203,14100190,6,165,207,240,28,% } G169,0,133,207,173,193,,6,24,105,4,141,193,6,133,205,173,194,6++105,0,141,194,6,133,206,76,95,6,169,1..133,207,173% } G,191,6,24,105,4,141,191,6,133..205,173,192,6,105,0,141,192,6,133,206,32))137,6,32,146,6,32,160,6,32,137,6,32//169% } G,6,32,160,6,165,207,240,177,56,165,20322233,40,176,2,198,204,133,203,198,208,165,208--201,255,208,151,96,173,190,6,41%}G,3,10,1000170,96,160,0,189,195,6,145,205,232,200,192&,,4,208,245,96,173,190,6,74,74,141,190,60++96,160,0,189,195,6,%}CM10,10,10,10,24,113:44205,145,205,232,200,192,4,208,238,96,0,0,0,0,0NE +SsAA1A@$w4(E(%}G ΠX+(+( MICROPAINTER TO EPSON GRAFTRAX+b,(,(!by Jerry White & Fernando Herreral*(*(Print intensi%}C_ty patterns may bev''(altered by swapping data in the*(following lines:*A AcrJARx'@%}C @ Z*(F(ENTER DEV:FILENAME.EXTJ!!Рà٠ԛ; +@$^h/6-F:@ls,%F:@w,$AV%}C;6-?:C:,,Q@$+@(,@028IQ6-?:C:,<@MQ<@U<<Av,""ԠҠҠ%}Cӛ)@+A)@/GA)@KcA )@gA%}C@A$D2:SDUMP2PICSCSTHDFNCIOVDLMIPAMASJLSTZ\cdklst{$C"x1YZ@P'*@.@xxxGJ@OPWX_`gj @Hor @pw @`)}C @ v+u***TYPER'S TOOLBOX**,u*BY STEVEN BOBULSKY*-u* ANTIC MAGAZINE *.u* JANUARY, 1984 */u}*)}C *0u] B5( }Enter the starting line number.9<(Y(Increment between lines]:u;;A ,;)}CA ,'6-$;!B&B(Due B .(}Enter '1' for regular linesJ(OR '-1' for DATA lines.NeO:,)}C@B Nu%6-'"@+@% BXuw6-@DJ6-P$6-O:,4( }DATA MODE:7(w(;Enter your i)}CZtems, or none,& hit twice when finished.bud(( Item #(267B:,%@^n,.H67B:,%@r,.,V6-)}C%@d6-%@&lu 06-,W BPvuU 467B:,,.%6-&@[e36-&@isA6-%@wU")}C@Bu"@XBPu4B u 6-%67B:,,.u[6-^(}(%(DATA((+(4()}C CONTF-&XAB@*[&uV B(3(Proposed next line is %6(<%?(S(=conti)}C)nueV(uy(Any other key = MENU'@-4G@8<@@BHTK:T)@Xa_@ey"@:>:AU,,B) } Cu] B(!"6@#&(9( item count=W(Items in current block=Z(](uh(( Current line'( )!}!C =D(Proposed next line =%J%M(]( 1=next lineh(2=editue(3=change increment,( 4=shift modesJ(5=)"}"CKrestart (no lines lost)e(6=Delete a line range.uL((:"@Ow0(Regular lines.3(L( Free RAM=I:})#}#C ,u;"6@5( DATA lines"(;( Free RAM=I:;E,uhI:KP, AT,( P(LIST or SAVE you)$}$C1r program linese(to tape or disk.huW@5<.@@D@HJP\K:;)@`W @:1,)!@:6,B)%}%Cdv@"@:2,9(&}:When done, hit over CONT.=@( v5"@:2,(( '"6@h5(DATA v6)&}&C"@:2,(((!(CONT3-$&,6& v,"@:2,(}6."(, BP*vW"@:3,2(}Enter the new )'}'Cbline increment.6<(}?(CJ6.M(W BP4vB"@:4,(}((%6.16-@f86-6B BP>v)(}(C"@:5, BBHv"@:6, BRv7 6.(}6-@Fr$6-%-6-O:,7 B0\vAB@v(}))})Cp$fvd( } 8(Type in the line or just pressX( to skip to the MENU.[(d( pvR@t.@)*}*C@ K:;)@"1R67B:,%@5,.>:,zv"@:>:AU,, BPv >:, B vB4>:AU)+}+Ci,/(}No new entry on line 86-O:,B BPv"@:>:AU,, Bpv9( ((CONT$-os@w6A),},CB@ 9&v. B6-O:,%!($(. B vj%(}ŠŠ:CAUTIONj(@ANY line range may be )-}-Gspecified, even this program, if you wish.v^ B(,( LOWEST line to delete0L(HIGHEST line to deleteP^).}.G!Bvd($(Enter the line increment.L(#(If unsure, use '1' for this value)Pd!B'Bvp(}Lowes)/}/C^t line =.(Highest line =@( ARE YOU SURE?C(^(Press 'Y' to continue,pA@dbvu"(or any other key to)0}0C abort.-@M@!@%'-9K:Z)@=e@:Y,k(}u BPvU(,(!If you want to watch the)1}E1G process,U($press '1'. If you would like speed,vi+(#any other key will blank the screenM(during the delete to initia)2}2C(tei('direct memory access.'vi@,3.@7;@?AGSK:;)@WvA(}L@:1,^AY|)3}3Ci@ wj-@@F6(POKE 842,12:POKE 559,34:CONTH-@JN@Rj(POSITION 2,6:? Q:POSITION 2,4w`-@)4}4C@ 69(Q=Q+S:IF Q<=U THEN POSITION 2,1K-@:<BP]AB@Tf`&w/ (} Bjx%AY@4|)5}5C"/ BP D2:TOOLBOX@P'*@.@xxxGJ@OPWX_`gj @Hor @pw @`(6G"5PRAMTOCHBAADDPAGSHAPSBIRSLOOENBIRNPOPPMBASPMPWRDMSEMOUSCATCSCORFILHOLCHSECHO-7}7C/RSTARMOVEXPP71HARTOTALEVEHIRARAT7;AR?CARGHOPW[A_`gkAhopwx }-8}8C Br BF @# AR*;B`gBFBFA6JVBHA&Z[bcjm@rsz-9}9C %&-0A56 =@!@EF"MN#U^$B%en&B'uv(}-:}:C) *@ +,@ #-@(1.B1/7< A*K SNOWBIRD P** BY JOHN WEBER ** JANUARY, 1-;};C'983 *(* ANTIC MAGAZINE *2;*Dd AHN ARiFLY BIRD&@wmou&6-F:-<}<C&@ ,"@c)AP/5)&@ 9G $9MU+&@ Y]@Xae%@dis96-&@ w -=}=CT: ,"A)$i/7+&@ ;?@XCG%@dKSG&@@W[@X_c%@dgo[&@ sw@c{i->}>C6-&@@ $&6-R:#,,&@X04%@d8ElF:%@ IL,"RX&^h46-%@ ltH@Xx%@d-?}?CZB7`@P#lB7a@'6'B7`<H'B7aNW"T:]`,"fl" Ap!!6-%+"-@}@C@,&+"@-, )!%AyA1=&$F:,"CIOd$6-'6-F:%@ ht,("@bx A-A}ACP+"@c e0AA5BB7aAh2-APA6@i>B7`B :O-B}BC 6-%@ )6-%/76-%A3=E6-%@AO ADA#AFAB7aAp1--C}CCAPAP@/=B7`A IE5?6-%@ CI)6-OY76-%A]gE6-%@ktN$H:z,$-D}DC@!$ AS1 @!)"@-3'9?1 ACNU%"@ RX^d% AhqV"-@ uw}-E}EC"(@ W1B7`".'B7a4:1 A>XXMOVE RATS]"@\sA b>'6-%P:H:y,$A-F}FC 9,%@ >F:,UAd%% %AA)!%AxAgE6-@Ya#@Yeu%A(7%@y@c-G}GCE6-%@j!@P!*' A@.9l;&@=M %A!%SY16-_x; AqN6-F:&@|,-H}HC " ,":6-&@&.N@Y2E%A(v4"@cIOU['6-aw1 AP4$4 H:}-I}IC,$@ !@ P4@Y!%@d%H$hB7aA61-@&LXA@\x=B7`A SB7`}-J}JC eB7aYh$ !!MOVE TRACTOR AND FILL HOLES*-%A %Ay/G%2_cAgk@os@wG2@-K}KCAP@@'4Z@W+;%A(+-@?C@%GQ/ ;W^O(@bek Z6 SPACES9D--L}LC@ "(@!4-@ %'-78 D6-=J>)6-&@NV @Zb)6-@fmQV%2su{-M}MCG2@ "(*06S6-<fV$RLOSE BIRD AND START OVERWlt+-@uxA-N}NC@ G2@#@'/[-@37@ ;G_ c 2MOUW]_et\)B2Hz -O}OC A P) A)ENTER LEVELc +/=A@hAO1A@hSaCAR@ekU-@os@wc( S-P}PCNOW BIRD;-@@\;(!WHICH LEVEL DO YOU WANT TO START?G AARbh1-@lp@tC( ENTE-Q}QCR 1 - 6 G!! @")!@&9A6-@=F&D +LZAR@^d1-@hl@pD(PLEASE W-R}RCAIT...:6-F:A,&@ I&A,6-:6-$AV.-OyA#*%F:BsD%,. )-@W}-S}SC@c)6-%+$@#,--)-@1P"%+%,) - {+@TX%@\v!AV3A@zE-T}TC A/WA AUiA@43R{AA23%6-F:@Ve,%AV$F:@it,36-%@Ex '-U}UC6- 6-'6-"+% A0/)0,0,24,24,24,126,36,126*0,195,36,24,24,36,0,0+144,112,113,190,-V}VG0,0,0,0,%%100,255,100,255,100,255,100,255-255,255,255,255,0,0,0,0. 192,240,252,255,76,24,1,75/##13,8,42,168,42-W}WG,170,170,168,403ee126,126,255,127,127,254,254,255,255,126,126,254,255,254,126,126,255,255,255,255,126,127,127,126 3--X}XC%A`%Ay/@`7%A3  c-%@a;A%@eEM/@aQ%A3 K-%A%A_@a-Y}YC%Ac  +-%A!3%AY'@b7J+  [-%@NV'@`Zp%A+ C-%@t%@-Z}ZC W@` <%A[  c-%A%A/@`@l%A3 K-%A%A_@`p%Ac -[}[C' P/M GRAPHICS X6-F:A,&@+S&BBy46-$AVFB2w@WXAAD 5-%A$%-\}\C Ay'6+ 5#A  Y+-%A$%@P:H%AG%@PLl/"59 Y-%AH%@Pp%AP -]}]C!AU  9B2H@r%3'A#@7E9AY@bIv $DRAW WATER$$-%A%@%z6-^}^C@  %%2@@#'@+;F4-6P:H:@?D,$@HQ,P:H:@UZ,$@^i,B%@bmF k-@-_}_C@  =2!#)+1OA SAA4g-@SWA[k AAH)-@-`}`CA - ?B2H!QAA4cAA4uA A4AA4-AA4-a}aC )-@ A,-  A P A0 D2:SNOWBIRDPPMBASPMPWRDMSEMOUSCATCSCORFILHOLCHSECHO,DbG|}##ATPBLTLDXYBCCURSORNULINBEGICENCOUNTIMLIMITSTARTTRACETRACTRACETRACETRACELINENUTRA1c}cCCELLDELA &(.068>@FHNPVX _` gh op wx }1d}dC "#*+23:;BCJKRSZ[bcjkrsz1e}eC  !%&"-.#4F***TAPE INDEXJ**BY JAMES LUCZAK**ANTIC MAGAZINE *1f}fC* JANUARY, 1984 *)*H (}11;A@,;@8LS,;@8W^,;@bn,3;@r,6.DAT1g}gC A3;@ ,;@0$,&&;@@(/,;@3:,;@>R,) 6. 67@8Va,.)67@e,. S(>:A%,"@1q}hCMQ>ddiCb'DOS SYSb*+DUP SYSb$UODDMAN3 LSTb~TRIVIA BASbCALENDERBASb SERVO BASb ROTFONT BASb DISKLABLBASjCyb7WORDFINDBASbSDUMP BASb TOOLBOX BASb,6SNOWBIRDBASbHbTAPEINDXBASb ROADASM ASMbOROADRACEBASbyMENU kCbAUTORUN SYSb!DOC )TXTb2HELP- 0BASqC @ %(7@@"TO(ENTER TAPE NUMBER S r(>:A%,"@X\@`?(DO YOU WANT TO NAME TAPE1r}rCQ@ @<r(EX.(UTILITIES, BACK-UP) ECT. q@@D@HQ(*@UY@]s9( (Y OR N) Y@w@1s}sC K:f)@#q@'2 "@6IA' "@xMxA) A#D(>:A%,"@|1t}tC@7%(:(ENTER TAPE NAME =(@(DB:,!@ ;?A$CTA @X^ A%by (}A @}1u}uC!6-A 0+@ %@$5:A @H9=%@AjX--6-F:A`,%F:Aa,$AV%@nyb&@}1v}vC@ql%@@*v%@.2@6A%@EI@HMX%@\`@do%@sA1w}wC E%@$ @e.%@%!4F:A`,E%@&8LF:Aa,9@PT@X\'-bdj9AAP1x}xC+-@'(@!3+ ,-@7;@?F,(@J_TAPE +-ei@mt'(@x1y}yC + '-@9'AAR!!6-P:+@ =G&B:,,'@KU,&"[b(@f& A@2-@1z}zC !(@! % 2(@%06@48@<C6(@Gd5-jn@ry5(@}1{}{CV5-"&@*15(@5Q 3-W[@_f3(@j 1|}|C 7- @7(@ >U3-DH@LS3(@Wt堿 ;#@x@1}}}C K:0)@$;@(3>"@7JA5H"@NxApR A`fQ (}A }1~}~C3-AAF?AAFQAR@7@p-FJ@Nh"z$4DONE6-@l$ A (1}C 2(@@E2( V = VIEW NEXT PAGE2(@IM@Qw2( U = UPDATE PROGRAM/(@{1}C@b/( E = END PROGRAM:"A (:(#DATA BUFFER FULL.CAN'T ADD NEW DATA6"@fl6-r(6(NO 1}CDATA TO EDIT YET;#@"@&(.:K:0)@>G;@KV"@Z^Abm)"@iq(>:A%1}C,&+ )"@PA5(>:A%, A 5 (}"@TZ!6-`+#A 5 Ap"1}C.Ap( DONE75(>:A%,"-@24:V5(DATA EDIT MODE<2-@Z^@b2((1) = ADD TITLES TO TA1}C PEF?-@@J?(%(2) = CHANGE OR DELETE TITLES ON TAPEP.-@NR@ V.((3) = EXIT EDIT MODEU?"A 1}C (('@@L?(DATA BUFFER IS FULLWK"A (('@PT@XK(NO NEW DATA ENTRIES CAN BE MADE1}C Z;#@ @)K:0)@-6;@:Ed"@II\An"@P`sAs&"@Qw(>:1}CXA%,& A x Apz"A A5| As(>:A%,"-@\`@ds(LTO DELETE AN ENTIRE 1}CDLINE,TYPE SPACES OVER EVERYTHING EXCEPT THE LINE NUMBER-(@HL@P*( ** CHANGES **-([[(SUSE CURSOR CONTR1}GOL ARROWS TO POSITION CURSOR.THEN TYPE OVER THE ENTRY TO BE CHANGEDq(q(fIF NO CHANGES ARE TO BE MADE JUST HIT RETURN AN1}GD THE REST OF THE PAGE YOU ARE WORKING ON WILL APPEARW(W(LDO NOT HIT RETURN UNTIL ALL CHANGES ARE MADE..REGARDLESS 1}C;OF LINE NUMBERS..[(#(HIT ANY KEY TO CONTINUE C@?C@GIO[K:P)@_h[@l8AR1}C"(>:A%,.6-=8 Ae(>:A%,"-@AE@I[(( .@-@_c@"ge( HIT ξ AF1}CTER ALL CHANGES"-@ @#$:"(ARE MADE-@>B@FQW-WY_m'AB@qw9-@{1}C@ B(CONTT-@!5W&AB@9AAA (>:A%, A ! A1}CE6-A !6-3A6-A '6-A36-@I`%"A 6-@d% A $- 1}CA`6-A!6--6-$S3A`6-A'6-A`36-@W AP- A06-Ap1}C!6--6-C3A06-Ap'6-A036-@Go AP+6-A@6-!6-u+ AP1}C6l(>:A%,6-@,.A @0>@AR@BJL6-@NVX6-@Zwl"A A @@{1}C@ '@@3$-(|?@(,@06Q@:>@Bhi(ENTER PROGRAM NAME {A@PlA@P1}C B?-@@#@"*5@.2@36I;(|? D-@MQ@Ux-(PROGRAM NAME LIMITF(-@|1}C@!(" ((J6-@%)@-Y6(ENTER ž WHEN FINISHEDS?"@]c6-iw-A@h{?1}C A@hT-@!@%U^4DONEAh 6-B:,6-%@Ydr-!@(hn A"r# A"`1}C- A w=@:,@H$*@:,@W(.) A"2B3 A"= AFQ|  @(U_ 67%@ct,.##6-+&@x,$@(1}C%@ % 67,.B6-%@)c(>:A%,0AABAA8-@gk@o8(ENTER PRO1}C(GRAM Ծ COUNT , AY-@,0@4e#,6.=:,!A  AY9"@io6-u9A:1}C7<%@' !,,A"@%>$ A 1 A"BPA@fTb1A@ff_(>:A%,"-@1}C@ DS(,PROGRAM COUNT MUST BE NO MORE THEN 3 DIGITS_6-@HS"@WhA Alw("@{1}C6- (((>:A%,1A@f,:'A@f>D1 A"H^p(>:A%,"-@bf@j%(d(:PROGRAM END1}C7 COUNT MUST BE LARGER THEN PROGRAM START COUNT p6-@;`4(*( START COUNT = 7<%@'d,4 A 6-B:,&1}C   @(  67%@,,.0##6-+&@05,$@(9=%@AZ: 67,.DB6-%@^(>:A%,0AA1}CBAAI="@!'6--7)6-%@;C="@GKA#OZN%"@^d6-jp% AtXB-@1}C@ 56(ENTER PROGRAM ľ COUNT B6-@9Lb, AY-@PT@Xp#,6.=:,l/6-@t6-@1}C"% A / A v%"@&.6-@2S% A `{ 6-A @Wm((>:A%,"-@qu@y((1}C  -@&@)##6-+&@-2,$@(6:%@>OM9@:7<%@'SY,,@H]i*@:7<%@'ms,,@WwC A 1}C pM A /(  (7<%@'3B,6-%@FA A  6- E-A% 1}C A%$@>#(' E(2005 ? 945:? 1505 :? 2005,-@BF@"Jh,(545  NULINE = ]-npv( 1}C -AB@?-@@##2H(CONTZ-@68>R]&AB@Va"@eA P(>:A%,1}C "A Q4AAFFAAFP A 6.7<%@'Ua, -"@ek6-q#()- 1}CA!*((-6-@"34$ -@7;@?D6?PHS-@PW[@u_c@ gn!!2tx@u|&1}C@ 5  $d(>:A%,"-@9=@A\X(PROGRAM NAME IS &@(` CHARACTERS TOO LONGd6-1}C@'A@h)'A@h-I$V(>:A%,"-@MQ@UuV(/PROGRAM NAME MUST NOT START{ WI1}CTH A NUMERALP@@!C)( PROGRAM NAME ;A@hGUMA@hYmP$'A@Pq'A1}C@P(>:A%,"@ $@(1%(7@59@=[I( LOADING DATA.L(O(a@_c@g(WILL CONTINUE IN 1}CA MINUITE '6-6-$*'6-0; %-@?kAP % A` J(>:A%,"@os@wJ(N1}CAME IS +B:,&@ +, TOO LONGj 7@/3@7g(-(ENTER TAPE NAME 0(3(7t B:,!@ koA$s~ A)1}C h(>:A%,"-@!@%O(( <-A!A)@(D `-A$S_A$0@cd(h  ))( 535 Y$ = 1}C>:@4 ,>:@4., ))( 530 X$ = >:@42;,>:@4?G, W-MOUc'AB@gm9-@qu@#yB(1}C CONTT-@+W& AB@/: -@>B@PF`  p(>:A%,"-@dh@l(( D-A%1}C A%@H(L ^-#%+9pAB@=F 3-@JN@#Ra(CONT0-@egm3& AB1}C@ AB@ A@ D2:TAPEINDXNTIMLIMITSTARTTRACETRACTRACETRACETRACELINENUTRA0>C50 1CDTMV2=$021A;THE COUNTDOWN FOR TIMER #2606 WCDTMA2=0228;VECTOR FOR TIME #270\ oINDEX=$0630;158480v PTR=$065}C 31;158590 .DLBYTE=$0666;DUMMY0100 *=$06003 J;START PAGE 60110 PLAS ;POP THE NUMBER OF ARGS. OFF THE STACK0125}C 0 LDA #$0B c;LO BYTE OF TIMER ROUTINE0130 STA CDTMA2 ;PUT IN LO BYTE OF VECTOR0140 LDA #$06g ;HI BYTE OF TIMER ROUT5}C9INE0150 STA CDTMA2+1;PUT IN HI BYTE OF VECTOR0160 CLDB e;DO THIS OR BASIC WILL FOUL UP0165s ;YOUR ARIT5}CTHMETIC0170 LDA INDEX ;KEEPS TRACK OF WHICH SCREEN YOUR ON0180 CLC0190 ADC #4Z ;POINT TO NEXT SCREEN (EACH SCREEN 5}CIS0200 1;4 PAGES LONG)0210 CMP #126 ;TIME TO DISPLAY FIRST SCREEN AGAIN?0220 BNE RESET ;NO, GO DISPLAY 5}C2ND OR 3RD SCREEN0230 LDA #0$ e;YES, ZERO OUT INDEX0240 RESET STA INDEX ;STORE IT0250 LDA PTRj ;PTR CONTAINS HI BY5}C`TE OF FIRST SCREEN ADDRESS0260 CLC0270 ADC INDEX ;ACC NOW CONTAINS HI BYTE OF ADDRESS0275n ;OF NEXT SCREEN5}C>0280 STA DLBYTE ;DLBYTE WAS SET TO$0666 IN THE EQUATES0290L x;BUT THE BASIC PROGRAM REPLACES THE TWO0300} 5}C 4;NUMBERS HERE WITH THE LO AND HI BYTES0310B o;OF THE DISPLAY LIST HI LMS BYTE ADDRESS0320} 5}C0;SO WE ARE STORING THE HI BYTE OF THE NEXT0330> `;SCREEN INTO THE LMS HI BYTE,0335n ;THUS DISPLAYIN5}CG IT!0340 LDA #$02 N;RELOAD THE COUNTDOWN TIMER0350 STA CDTMV20360 RTSW o;ALL DONE=$0630;158480v PTR=$064aG*'='CARCARDIFLAGFLAGTIMDASPSPEEDISSCCOLC1C1JUMPPMMXCOLC2C2MXLOORAMTOSCRBASPMBASDDHIBYT9}C(LOBYTHLPTINDEDLBYTPICDA@-058@=@@EH@MP@UV]`@eiAtmp @uy A@}9}C @ ?Bu A@ CBRBhdAP@HLAPS@vX[A`dAhlA`ptAHxAD9}C' BVBVBVA9+/ A3G!BiH"BW5#AKO$ASW%Aq[n&B%'B6(@rw{* R9}C OAD RACE *b* BY DAVID PLOTKIN ** JANUARY, 1983 ** ANTIC MAGAZINE *v* s 9}CAP 6-%6-&16-@*0=6-6<I6-BHU6-NTg@XZ`fs6-lyd[6-%@}9}C$+R: ,"@,$+ @ %,&@).$+R:49,"@=E,$+!@PIR,q@V\&'@`d2jxA@&@|9}C@n\AV*'AW@2.>,(D6-+&@PBG,'@KSP!AW_\6-@clx$rAp$9}CMOVE CAR 17"H: ,$!@$(A,N7SKIP DOWN TO CAR 2d6-P:H:TY,$@]n,9A$@rv%@zH69}C-H: ,d6-+?P#,&+ ?P';,/#6-A%@?F$+"@JS,/6-@0Ww;%6-?:C:,<%Ah%<%@${,9}C1B2P; A(e 6-%!@,2#6-8WG6-?:C:,<%Ah%&<%@d[j,O6-%[6-pve Az9}C7$+H: , ?*!@5 0,+6-676-@4=5"CR+6-%$+&@0V[,'@_v5 AW6-%@z$9}C?+"@ *A%+&@0!&,'@*1,K6-7PW6-AJ2+"6@Tg*A%$+&@0kp,'@t,>6-9}C0J6-AYM6-?:C:,<%Ah%<%@$48%@<C$+!@PGL,%@PW$+!@f[r,,YB2PxA`9}C ""H:,$!@2Ad6-P:H:8=,$@AR,9A$@VZ%@^fH6-H:lx,d6-+?P|,9}C&+ ?P ,/#6-A%@#*$+"@.7,/6-@0;[;%6-?:C:,<%A%<%@$_,1B2Q; Ae 69}C -%!@#6-;G6-?:C:,<%A%&<%@d?N,O6-%[6-The A 7$+H:ns, ?w*!@59}C,+6-676-@!5"'6+6-%$+&@0:?,'@CZ5 AW6-%@^i$?+"@m*A%+&@9}C0 ,'@,K6-4W6-AJ2+"6@8K*A%$+&@0OT,'@X_,>6-eJ6-AYM6-?:C:9}EC,<%A%<%@$%@ '$+!@P+0,%@4;$+!@f?X,,YB2Q$F:@\c,"%@gm$ Aq"IAV9}C 'AW@"1,(IF:B2`,"@59A=],S%6-?:C:,<%Ah%<%@da,G6-?:C:,<%A%<%9}C@d ,S6I-@"&A*.@2g4AF:B7p,IAF:B7p,@]0%Akq%P:H:w,$@9}C!,F:B7p,]%A(%P:H:',,$@0C,F:B7p,J2IO@SW@[aC2@eiAms&@w@9}C`B2WH:,$@-}B2VH:38,$@<G T%2MOUW]_ekG2@oqwy}9}C YAV@(kAW.P(GAME OVER-PRESS ^ T:V[,"@_xAPhAV@|9}C 'AWP(#9 B\6-@`FLh6-RZ~@^d&'@hvA@Pzi9}C*LINE 360 HAS 35 SPACESmaB2V@.<'B2W@@k9AAHa6-?:C:,<%A%@ou<%@dy,r9}C]A@p+56-?:C:,<%A%@/K<,]6-?:C:,<%A@%@OU<%@Yi,|AVo'AW9}C>(  'speedPAV-;bAW@"?Fr(N ]AW@2a(6-?:A6,629}CA@&@@%B6-+1N6-7?Z6-@COlB2xU[x6-ag6-ms@wy}9}C6- A%<6-F:@)3,*+"@7=)"@"A`,<AAFU+"@dj)"@ n,-AA9}CDU6-?:C:,<%A%@!'<%@d+7,I"@;G!AMfI6-?:C:,<%A%@jp<%@vt,!"9}C@$*!AAH2AV@.:'AW@V2 :00@%Zm Au6-sy!@}9}C3AV@&EAW,BQ 0:00 _6-%@FNu!APR$A`%6-?:C:,<%Ah%<%@d9}C!,G6-?:C:,<%A%<%@d%,,S2aV'` A@$.6-F:A, 6-&@eo.6-&@sI+@9}C%@ '@#3@'0I(@4T>:A%,1A+@X`1;A dk,;@%o,A%6-F:A9}C"`,%AV$F:Aa,36-%@&0A6-%@4&6-P:'AV,&6-&+$AV,/ #AP`!-A6Ax%9}G"+/ 104,169,11,141,40,2,169@@6,141,41,2,216,173,48,6,24,105,4,201,12,208,2,169,0,141,48886,173,49,6,24,9}G109,48,6,141,102,6,169,2,141,26,2,9636-A6-A'6-At36-AqKK6-C:>hhhhhhhhhhhФ9}C.͑ˈeЅːeυ͐`,C B2S6-$AVC6-?:<:,- :BLOCK MOVEd??104,104,133,204,104,133,203,104,133,207,104,133,206,160,0n++177,206,149}C85,203,200,192,12,208,247,96x96-$AV!-%@<%"+/ 9PM DATA((0,0,0,0,24,60,24,219,24,255,24,1959}G$$0,0,0,0,36,0,24,0,195,24,195,0 0,0,0,0,0,0,0,0,0,24,36,36$$0,0,0,0,0,0,24,60,24,90,126,90**0,0,0,0,24,60,249}Cg,219,219,255,219,195??0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,60,90,255,189,90,36,249F:AG,@k'6-?:AI,99}C A(A0]A@P$2'A@p6h9AApKAA]B2V@liB2W@9}C'B2X@$9B2Y@(BEBByWB2w@FTiAY@FXtg#6-?:C:,<%A%@x<,K9}C6-?:C:,<%A@%@!<%@%5,gA#+@39=%@AO,6-%@ES[@q_g1%@ko@sE%@9}C@ Y%@@e&r%@*2F:%@6?,%@CKF:%@OX,6-@`\b6-hw~AV}9}C 'AW>( # 5speedPAV;IbAW@"M`g(yAW@2dp~(''2vA@9}C&@ @"9"- %@=G-@KQ&'@U^,ld$6-?:A6,89}C- @ VB2R%@d$(&@,@$Z lA@DU|$ Nww67@Y],.dsvW_}9}CU_ UWUU"UU_)/U_@WUUW!Nuu67A,.bfjUiUzUU9}CU U TU]U"eq5e(U)u2U6e e}C .i67@ <@,.7@ $<@(A,3 6.|67B:,%@EU,.367B:,%@Yg,.G67@ko<@s,.(-->}C@>B:,:7<,4 G67<,..] 6.=:, @BJD67@NR<@V],.7@ae<@ir,]67@v<@>}C,.0$@'(''7@+/<@3?,4FREE@CL- @ Pi2() <@mF''7@>}C<@ ,4FREE@"K @ &1P(7@59<@=N,)|U @0R[W'!-@6_f+'@jo,%@s' |Z+>}C+(#|& 0|[ ( |8 = F P|\++(#qd-(-(">}C1 Select HELP.BAS for information.xAR7@[@DH@9LR'-@VZ@"^dC(p SELECTIONM >}CA0Q[ B4P:,A00"@8B&6.7@FJ<@Ni,0 AELB6.7+&@mr,$@v%@>}C<+&@ ,$@%@$,L B(337@7;<@?N,4 36.7@RV<@Zf,!7@jn<@r,4DOS!.>}C0 6.-@?B:,07<,4 AH67B:,%@Cr,.7<,   6.! 6.D1:!67B:,%@v,.?>}C AR@'-@@"#)? 1 DLOADING ? AHN@RV@9Z`1@dh@lv5%? Bz>}CK-@ @"-  0CANNOT RUN 7 @4:A B>\K A0D1:MENU.bdkl st |<YCA0Q[ B4P:,A00"@8B&6.7@FJ<@Ni,0 AELB6.7+&@mr,$@v%@>}C<+&@ ,$@%@$,L B(337@7;<@?N,4 36.7@RV<@Zf,!7@jn<@r,4DOS!.>}C0 6.-@?B:,07<,4 AH67B:,%@Cr,.7<,   6.! 6.D1:!67B:,%@v,.?>}C AR@'-@@"#)? 1 DLOADING ? AHN@RV@9Z`1@dh@lv5%? Bz>}CK-@ @"-  0CANNOT RUN 7 @4:A B>lK A0D:MENU"( st |<WCoEiͩkΩ͙kCop j`j {j`Hi͝Νh`}B } CoL"UNEM:D"NURͩkΩ͙kCop j`j {j`Hi͝Νh`}@!C%J WELCOME TO THE ANTIC MONTHLY DISK n Most of the F"}"Gprograms on this disk arewritten in Atari BASIC. Some requirespecial hardware or specific instruc-tions. We recommend you F#}#Grefer to thecorresponding issue of ANTIC forcomprehensive documentation. If youwish to order a back issue, or needsubscriF$}$Gption information, contact usat (415) 957-0886 or, for credit cardorders, dial (800) 227-1617, Ex. 133.In California,(800)F%}%C 722-3545, Ex. 133XXXThe menu that appeared on the screenwhen you booted the disk will onlyrun programs with a .BAS exF&}&Gtender.If you try to run a program and the response is 'cannot run Filename',then check the file extender withthe followiF'}'C4ng list:XXX.BAS BASIC saved program, use menu; sRUN or LOAD and RUN..LST BASIC listed program, ENTERz theF(}(C*n RUN..EXE Assembly language 'Load and1 NGo' file. Remove BASIC, bootU pDOS, type L then enter thew filenaF)})C)me..ASM Assembly language source code0 Mfrom Atari Assembler Editor.T Must be assembled..M65 Same as .ASM onF*}*CRly MAC/65..SYN Same as .ASM only Synassembler.AMC Same as .ASM only AMACXXXV.OBJ Machine language object file. F+}+C $Same as .EXE but not 'Load and+ GGo'. Refer to correspondingN article..ACT ACTION! source code..SYS ResF,},CBerved for DOS system files..PLT Pilot language, requires PilotI xcartridge..LGO Logo language, requires Logo} F-}-C0 cartridge..TXT Text file. Usually accessed7 Nby another program.XXXRAll programs from ANTIC issues datedprior F.}.Gto August 1984 were reproducedfrom ANTIC's Archive. We have up-dated them from our HELP columns and most are compatible wiF/}/Gth the XLmachines. We have worked to insurethat our programs operate as pub-lished, but we consider all our software lisF0}0Cytings to be works in progress which we encourage you, thereader, to personalize and enhance.Good luck, and ENJOY! } F1}1C J-ANTIC ED WELCOME TO THE ANTIC MONTHLY DISK n Most of the D"2CiwLINEA;xx ;A ,;@?P,; (}@T[;@_c@gio D:DOC.TXTJ3}3C A (@)2lB:,!@-5-7@9=<@AT,4XXX0(3(E-@X\@"`X( ӠΠ\b(}J4}4Cl @@ <( @@%da@)/ B39*-@=A@"ER("ΠҠՠҠˠҠVa%D:MENUJ5}5CD:HELPLINEA;xx ;A ,;@?P,; (}@T[;@_c@gio D:DOC.TXTHE