@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}}} UUU |||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` WELCOME TO THE ANTIC MONTHLY DISK Most of the pr X}ograms on this disk arewritten in Atari BASIC. Some requirespecial hardware or specific instruc-tions. Please read the cor Y}respondingissue of ANTIC for completeIf you wish to order a back issue,or need subscription information,call us at (415) Z}957-0886. For creditcard orders, dial (800) 227-1617, Ex.133. In California, call(800) 722-3545, Ex. 133XXX *** BONUS [}FILES * BONUS FILES ***Whenever there is sufficient room,we will be including TYPO II andLINKLINE on the monthly disks. \}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 th ]}eback of this disk for LINKLINEinstructions.XXXThis month, we've included two moreDEGAS microscreens (BEGOOD.PI2 ^} andRESCUE.PI2 from Darrel Anderson,winner of Antic's DEGAS CONTEST. Both files must be ported toan ST disk. Both fi _}les are (c) 1986, Darrel Anderson. You'll need an ST with acolor monitor and the Degas program(from Batteries Includ `}ed) to viewthese pictures.XXXThe menu that appeared on the screenwhen you booted the disk will onlyRUN programs with a a} .BAS extender.If you try to run a program and theresponse is 'cannot run Filename',check the file extender with thislist b}:XXX.BAS BASIC saved program, use menu RUN or LOAD and RUN..LST BASIC listed program, ENTER then RUN. c}.EXE Assembly language 'Load and Go' file. Remove BASIC, boot DOS, type L then enter the filename..AS d}M Assembly language source code (Atari Assembler Editor) Must be compiled..M65 "SAVEd" MAC/65 assembly e} language source code. Must be compiled.XXX.OBJ Machine language object file. Same as .EXE but not 'L f}oad and Go'. See corresponding article..SYS Reserved for DOS system files..TXT Text file. Usually accessed g} by another program..ACT ACTION! language source code. Must be compiled..PI2 Medium-resolution Degas pic h}ture for the ST.XXXAll programs from ANTIC issues datedprior to August 1984 were reproducedfrom ANTIC's Archive. We've}0wppwU33ss@j}A}8K8P?@     Y`  Y0 l `8''xXL( LinkLine/80l}0V.041486 (C)1986 Antic Publishing Written by Patrick Bass Receiving Working Transmitting READY>m}(|)PBJKL(E:D(E VP B D'EWHI V &B JKL)R1:D(E V $n}B JKL()R1:$D)E VP BD'E HI V G,P BlD'E HI V ,L5)D1:)*~):)):"`o}BJKzD)E V 0#`BJK}D)E V0`P BD'EHI V`08~):p}H):A`BJKzD)E VAP BD'EHI VL*`BJK}D)E V0A*+(` Bq}D(EHI Vii8` B JKL*R1:D*E V (BJKL+R1:D+E Vr}0((( BD(EHI V( BD(EHI Vii8++s}( BD(EHI V B V`G,B- B JKL_,R1:[D,E V (BJKL,R1:D,E Vt}+ BD'EHI V ,+'+ ΢ B V`' P BD'EHI V`+LL-SL- `u}+})0 )0 b-` B VPC->. BvD'EHI V *``BD'EHI V0$'v}iiiiLb-`+}) - *` B V0`0P B`D'E HIw} V B JKL!.R1:D.E V (BJK?./LF.R1:BD.E V BD'EHI V䭜'ۢ Bx}םD-EHI V B؝D-EHI V BD'EHI V'iiii8--y}--- -Ш B V`'     Y`  Y0 l `8''xXL( LinkLine/80!Pcd} AXLPB0NZ {} +AdAUuA@'A @9A@K@@]@@7c(|}}uAR@++(#++(#| ANTIC MONTHLY DISK OCT. 1986 |++(#}}( | 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@<@,]67@<@,}.0$@(''7@<@,4FREE@- @ 2() <@F''7@<}@,4FREE@K @ P(7@<@,)|U @0W'!-@6+'@,%@' |Z++(}#| |[ ( |  |\++(#d**(" Sel}ect HELP.BAS for information.xAR[@@9'-@@#C( FILE NUMBERM A0}Q[ BP:,A00"@&6.7@<@,0 AELB6.7+&@,$@%@<+&}@,$@%@,L B37@<@,4 36.7@<@,!7@<@,4DOS!.0 6}.-@B:,07<,4 AH67B:,%@,.7<,   6.! 6.D1:!67B:,%@,.?A}R@'-@@"?  LOADING ? A@@91@@5%? B[-@}@"-  CANNOT RUN 7 @LF:A,"@![% D:HELP.BAS B A0D1:MENU.C } .TXTMENU.DOC.TXT .TXTC |A|DOC......TXT(A006585 FREE SECTORS7N^ N32000 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 320500,16:? CHR$(HCODE);CHR$(LCODE)32220 POSITION 2,13:? "If CODE does not match press Π !TSP1P2BYTBYTAsrAApAU@A COLOR DEMO CANON PJ-10}80A&&9@,;A@,;A@,""SET BITS: NONE,ODD,EVEN,ALL:(68,-E68@,-@%@}%@%@dr68@,-@%@%@2%A(68@,-AU2##@@P:<}-@A@@F 6-8P:@$H:,,,P 6-8P:@$H:,,,Z-@6-%d}67,.>:,n67,.>:,x  -@@++(@>:@',X>:@,++(@>:@}',X>:@,  @` D1:CANON.DMOApAU@A COLOR DEMO CANON PJ-10A K&`&BRTPCOLANSINVFRMINFTRUFALSNONXYXYXXYYCHOICTEXSOLDSDNUMSHAPECORRECSHAPCOLNUMWRON }HELROOLDROTSANPXYBUZ@@ }  } !"#$%&'()* }+,-. CASTLEBY TRACY AND LORI HERSHEY''(ATARI VERSION BY BILL MARQUARDT)( ( }c) 1986, ANTIC PUBLISHING206-@$F:B2y,"@06-< @F=@w+@@d }=B7t@dP$ZGG9@,9@,;A,;A,;A,;A,dMM67@<@P,. }2 RECTANGLE SQUARE PARALLELOGRAM CIRCLE nRR67@Q<A,.7 TRAPEZOID SEMI-CIRCLE TRIANGLE [ HE }LP ] xMM67@<@P,.2 W * L S^2 B * H PI * R^2 RR67@Q<A,.7 1/2 *H*(B+T }) 1/2 *PI*R^2 1/2 * B * H [ HELP ] MM67@<@P,.2ŠŠ͠ŠRR6 }7@Q<A,.7ĠɭŠŠ۠РݠMM67@<@P,.2נ̠޲ } Ƞɠ޲RR67@Q<A,.7Ȫ«ԩɪ޲ Ƞ۠РݠW68@ },--68@,-@B68@,-@&W68@,-W68@,-@-68@,-@&B68@ },-W68@,-@+6-@6-!6-++! A !DRAW INTRO SCREENDRAW THE }CASTLEs +@A@V1A ACAA0UAAP_ @pi@s#A pA }-@@!"+ A0/ ADRAW RECTANGLES@-@@%"/ A3 @TRAPEZOIDS }C-@@%"/ AP3 CPARALLELOGRAM%-@@%" ,// }" // ,K,@A@'/@A9/@I@K/@A@6;-@@!" }+ A / ;TRIANGLES@=-@@%"/ Ap3 =CIRCLESJA@AT%%6-F:A }`,%F:Aa,$AV^W68@,-)68@,-%@@68@,-%@&W68@,-%@@h_68@ },-%@S168@,-%@fH68@,-%@_68@,-%@r.6-@6- A`.MAIN PROGR }AM|-@&@6-" A@GGAPA A@AA A!A" }A"  AERASE SHAPE!"6-!@! A  A!" ,/ })6-%@)+%@,A`F(>:A%,"F($ YOU ANSWERED EVERY ONE CORRECTLY!!!%! }"( YOU MISSED %(''(Press TRIGGER to play again...T:,A! + @p! A }& ,//&DRAW RECTANGLE //$&* ,//*DRAW PARALLELOGRAM0 //$:2 , }-2CIRCLES & SEMI-CIRCLESD,6-@$E:,%,6-+6@,$G:,%N / $X& ,//&DRA }W TRAPEDOIDb //$l ,// TRIANGLEv / $8@(,AR@8DO SH }APESB(7@<@9,-(7@@<@x,B(7@y<A,,(,( Use joystick to select SHAPE.$: }@(,AR@:DO FORMULASB(7@<@9,-(7@@<@x,B(7@y<A,. }(.( Use joystick to select FORMULA.$P6-@2(>:A%,.AAF@AR@PINTRO. SCREE }N@-@@(%ŠŠŠ2-@@2( 5-@ }@5(W * L = RECTANGLE2-@@2(S^2 = SQUARE9-@@9(B * H } = PARALLELOGRAM 2-@@2(PI * R^2 = CIRCLE5-@@ 5(1/2 * H * (B+T) = TRAPEZ }OID 7-@@7(1/2 * PI * R^2 = SEMI-CIRCLE*4-@@4(1/2 * H * B = TRIANGLE4T-@ }@8(Press joystick button to play.B @pTAdAU>T:,A0H 6-@U Ap BEEP }R(T:,AP\)+@%@!6-@)STARTf;-@@1 @WOULD YOU LIKE; @p }p+-@@+ @TO TRY:z*(T:,6-@%' Ap*$"@A 0*-@@ }* @,-@@ , @FORMULASDR:,"@$6-@06-@u: Ap }D ADR:,"@$6-@. A@:6-@UD Ap ACASTLE DATA335,37,77,7 }6,39,60,46,76,7,15,17,32,65,15,75,323310,6,14,10,70,10,80,15,60,10,70,15,68,6,72,10442,10,12,15,12,10,22,15,41,22,57, }37,25,22,41,37''5,32,7,37,17,20,62,32,65,37,75,77((46,70,52,76,71,77,5,70,11,76,33,39))10,20,15,17,30,27,67,17,72 },20,27,30##18,6,20,10,22,24,2,6,0,10,7,4''60,6,57,10,64,62,75,6,78,10,80,8241,10,57,22,41,10,25,22$28,47,2 }2,47,6.6,0.2.39,30,33,30,6.6,0.2855,30,49,30,6.6,0.2B68,47,62,47,6.6,0.2L16,65,22,65,3.15,0.2V56,65, }62,65,3.15,0.2`37,48,42,48,3.15,0.2jt""1,3,100,67,120,75,5,38,77,75~--4,2,112,65,106,65,6.6,0.2,44,96,6.6,0.1 }115,2,100,65,105,75,120,125,48,70,53,75,72,78##1,1,100,65,120,75,39,60,46,75116,1,100,65,106,65,3.15,0.1,124,130, }3.15,0.1005,2,100,60,110,75,120,130,5,70,10,75,32,38..4,2,112,65,106,65,6.6,0.2,124,96,6.6,0.1006,1,105,65,111,65 },3.15,0.1,44,130,3.15,0.1""1,1,100,62,110,75,7,15,17,32//3,3,100,65,105,75,55,65,10,20,15,17,30,27!!2,1,100,65,10 }5,70,10,6,15,9""1,2,100,62,102,75,2,10,12,15))3,1,100,65,105,75,55,65,1,6,0,9,6,7//5,2,100,65,110,75,120,130,4,32 },7,37,18,20##1,2,100,65,122,75,12,10,22,15 --3,1,100,65,110,75,60,70,18,6,20,9,26,23##2,2,105,65,115,75,25,22,41,3 }7##7,1,100,65,120,75,40,10,25,22(##2,2,100,65,110,75,41,22,57,372--4,3,112,65,106,65,6.6,0.2,66,60,6.6,0.1<##1,1 },100,60,105,75,65,16,75,32F##1,2,100,62,102,72,60,10,70,15P--3,1,100,65,110,75,60,70,59,6,56,9,63,68Z115,2,110,75,10 }0,65,130,120,62,32,64,37,75,79d##1,2,100,67,122,72,70,10,80,15n##7,1,100,62,110,75,41,10,41,22x//3,3,100,65,110,75,6 }0,70,68,17,73,20,28,32!!2,1,100,70,105,75,68,6,72,9--3,1,100,65,105,75,55,65,76,6,78,9,84,80..4,3,112,65,106,65,6 }.6,0.2,100,60,6.6,0.1//6,1,100,65,106,65,3.15,0.1,84,96,3.15,0.1!!7,1,102,65,115,75,42,0,50,3G6-P:+&@,'@ },96-P:+&@,'@,GINVERT TEXT0AVAW8,0AXM"@M(7+&@ },$@%@<+&@,$@%@,M"@M(7+&@,$@%@<+&@,$@%@, }0AVAW8,0AXM"@M(7+&@,$@%@<+&@,$@%@, }M"@M(7+&@,$@%@<+&@,$@%@,$:-@@) @SHAPES: }INVERT CHOICES+-@@ + @$"&2@@&BEEP,-@@ } 6(%2($@] @p6-T:,+6-R:,16-O"@*"@A] }CHECK STICKJGB2y@!"-6-@57 Ap=6-G A# T"@ A"^  $hX }"@6-%@J+&@,'@"P:+&@,'@,X6-&@r"@ 6-@|\"@ }6-&@6'@"P:'@,D6-%@P"@ \6-@O"@6-%@)!@76-&@ } C"O6-@O"@6-&@) @76-@ %C"@ O6-@ A`  }A3 6-@%6-AP3ERASE SHAPEE-@U@E2AU&+@$,@@ } ,/) )2$"RECTANGLE A0 A " } - ,/ $ APSQUARE&$0#"#PARALLELOGRAM:6-%@ }D AP AN!!"@)"@A0X"b ,/l6-%@6-%@v }A$" ,/6-%@6-%@A@$" }CIRCLE Ap A "6-'@6-'@-6-@$E:,% }6-+6@,$G:,% ,/  $ "TRAPEZOID* A4 A>" }HR ,/\6-%@6-%@fA!0p ,/z6-%@A!`$ } ASEMI-CIRCLE$"TRIANGLE A  A "6- ,/6 }-%@%@A"P$* 6-(>:A%,*AAP--@A !6--6- }$(>:A%,$APA 6-$  "6- "@$$ ! 6-%@! A#` }. $8 -6-AP#-@@- ApB   $ D1:CASTLE.BASSOLDSDNUMSHAPECORRECSHAPCOLNUMWRON R%?UA`@"A2 RAINBOWACE OF SALT LAKE+@%@@(-$}AY@2!,!/@< F -@6@P!,!/AY$}Z d--@!")A6%- n6-?:A6,xII173,11,212,201,32,208,249,141,10,212,142,24,208$},232,232,208,246,14224,208,240,232JJCHANGE LINES 30, 50 AND 70 TO THE FOLLOWING IF YOU HAVE AN XL OR XE.$}30 GRAPHICS 15+16:COLOR 350 PLOT 0,0:DRAWTO X, 19170 FOR Y=191 TO 0 STEP -8D1:RAINBOW.BAS(-$o<SMODTIMAUUVVWWYYZZL (} TEXT SIDEWINDERBY JESS ENGELHART (c) 1986, ANTIC PUBLISHINGR +#(MODE (0, 1 OR 2)(}'R(+")"@)"@,@  A A2 F:Ad,@3@`7)6-&@ (}@)6-AP<.(AdAU'-+ .$Xe+AR@(}1-@@e(@(}&PRESS Š TO ALTER BANNER b4A@4CREATE A TEXT WINDOW IN GR.0l_G;A%,;A ,;A(} ,;A ,;A ,;A ,Q#A@_"qg67B:,%@,.+67B:,%@,.?67B:,%@,.(}S67B:,%@,.g67B:,%@,.vJ6-AP6-@--@@J(@ BACK then9F:@(},"$6-@89IF GR.0 THEN LL=38 @P$''BANNER PRINT ROUTINE 1000 TO 1500_--&(}@?(@7@<%@,I @PM _@wL-%@+B:,,*-@>(@(}7&<,H @PL  67B:,%@,.>:@2,I-&+%@,)-@;(@7<,E @P(}I  AiiFOR IT ALL STARTED ON A kitchen table IN jim capparell's POTRERO HILL APARTMENT IN Πɛe(}e. "WHEN JIM SAID 'HEY! LET'S START A MAGAZINE!' I SAID 'SURE. WHY NOT?' RECALLS gg(antic's CO-FOUNDER(} AND ART DIRECTOR. "I WOULD NEVER HAVE IMAGINED THEN THAT TODAY -- FOUR YEAddRS LATER -- I'D BE MAKING A REAL salary." "(}marni SUGGESTED A COMPUTER NAME SUCH AS ." SAYffS capparell. "SO THAT GOT ME THINKING ABOUT COMPUTER STUFF AND OUT P(}OPPED -- SHORT FOR alXXpha numeric telivision integrated circuit -- ONE OF THE 8-BIT ATARI SPECIAL CHIPS.D1(}:SIDEWIND.BASMODTIMAUUVVWWYYZZL (00NKETFSTXETSTYNPOSCBYTENHEADTRACKBODTAIFONNNCHCHSETMATMIBVBTFTFINITHUNDEBLWEA,}FNVVDISNPUFTBUBTBYTEGDRODRTRBLDLGRSHFREDIFTCLEAWRERASNOVEFSFSPRESBODBDSKBADISDLRO,}THSTFH@@ @-}@-} !"#$%&'()*+,--}./0123456789:;<-}=>?@ABCDEFGHIJKL-}MNOPQR SSSNAKEBY CHET WALTERS (c) 1986, ANTIC PUBLISHING A@-}F:B2y,"A +6-R:,F:,!+ A$6-%8,!6-$ A#  6--} A(06-%8,!@ &6-@ 0 A-  6- A226-%%@ $6-F:,2-}@p< AFF 8,8&, 8,18&,:68,-F6-AK16-%&@$+",)"-})"1%P% 6-%!6-%68&,-8,U+ 6-%6-!6-+68&,-8,Z6-- } _6-@ dR:," AnF:,!@ xG 6-&&+@&,) AG- } A0%@$+"@6,}KAP6-A!5-@u;? EK  6-$- }7-@#!( -7 @ SCORING ROUTINE1 "&@d! Ap'1 A`- }")"Ae6 " A@ Ap' A-36-6$< "@ !6-.6-&+!6,66- }-%<6-: "6-&"#- Ap0': A! "!+ 6-%%-@-}@#+( + !6-%A! Ap+ A $> -A#)- 86-P:',-}> @  A%6-%+ ,16-%+ ,76-=@$ 8,8&,$,MAKE IT 3001N@w-} A%7-%&N0@F:@ ,6< 6-F:,-6-%A$H:,%<F:,A-}; "@96-%! %90@@E8 6-&@F:,,-%8(-} PUT IN SOME HAZARDSH@006-%A$H:,%@HF:,")F:,"A@#$H:,-}A0A APA@ApA0A A`A0A@A@A0ApA@A`A@-}ApAApA A@A`  $  $  $6-%A$  $-}&@d$ 6-$HIT FENCE AND END CHECKE)!%A&# %/6-;-}E AE"$)R:,"$ 7A) A7 A0%$O -@)-}5@p9 C AO 6-%6-6-!B 6-F:, 0@0"@ *"86-%-}B A`&$05!@B&6-%6-%+5 Ap5$:96-&$+!,"+-}-A19%;   A ?167B:,%,.(*"'6-@&1 AD" (*"6-@0" -}AE$(+),*$ AI A0N=6-%$+%+@$&,,%6-%16-A=6-O$P-}$S=%@$A2)-3(}= A eXATE ALL RAINDROPS BONUS]# !A6-# A-}pb: 6-6-&-60 A4 :gE6-A %+76-AE@ -}$l--%A9F:,%-F:@ ,q'6-%%+P:F:,',,$-'(v# F:,#$H:,%@-}; 6-%+-%@ %;( 1 6-&$+!,+A%16-B-A0-}6%$%*. 8 A@B @0.-A06%$%*. Y-%.( do- }uble bonusd4@6-AH-L Y>CNTRL<"A"2-AP6"%(.2   A-!}PAUSE ROUTINE86-F:,$8%@&A4)-)( press trigger ;-"}T:,-1(@ Ӡ; A Y -( %3%@&E@wQ--#}Y(  $  ĠҬŠҠ*R  AP6-@01%@&A4=-R(-$}LIVES &%/=( BONUS O:,1( BYTES  =AP4Q @ !/-@0-%}8F:,GF:@ ,K Q9[-AuA0@U$H:,%C2F:@ ,U2%@P[-&}>T F:, ".@ E-A6?PTF:@ ,CV  '--'}C2RF:@ ,V H @0Rj@@3-%AH%AYM-(}@u$+ %AW,[-jF:@ ,WG @ F:, &-@ 7(bonus :$G>CNTRL<"K"-)}FREE SNAKE ROUTINE! 6-%!6-! A P:- ( 4%AX:I-@-*}@a6 )6-F:,2F:,:-IF:@ ,8 F:,F:,"F:,(, 8Q67-+}B:,%,.d-&(*6-Q( free snake$>CNTRL<"A""-6" -,}<-9(@maximum  lives<$K-'-@d=%AH@6%C--}G K $COMPLETED LEVELS BONUSD6-%$+ @ ,%6-$AP-6-%;%A4D(}= -&(-.}@2@=(youiF:@ ,@3(@made it?-@ F(K(-/}i(@ >-@@%(bonus >%H:,$A@0F:@ ,F:,0T:-0},A' %6-@&' ANEW GAME & TITLE ROUTINEX'"6-F:@,%$F:@,.6--1}:6-F6-APR6-X_ 6. dd6-A%6-@-6-&?-G%S-2}_U%@$A4)@@d;B7t@dAI%O!U6-O (}--3}6(hi score bytes=(G-%%O(I-AaAW"@:e,0,F:&,F:,9@:,I,F:&,F:-4}&,\!AF@:j,4,F:&A,F:&A,B6-%A(HN\%@c!AH5,F:-5}&A,F:&A,G,U%@ [c%DF:,%  A*-@ %D(Ԡ-6}پ 1 2 3U #AQ-A$6-F:,*-'96-K-@ U A eR 6-%!6-6*--7}@ F(choose entry stageJ"R%U")"%-@ A(Š٠M-8}U%   A u%(@ 9-@ %[(@ i--9}@ %u@ "@16-6( Ӡ @ A :"@06-0( -:}Ǡš : A  @"@&6-6(Šġ@ A %\(hit only 1 2 or 3 %3-;}-@ BF:@ ,F R\ A E*I-6)F:@ ,/3 A%@$I6-&-<} DRAW FENCE AND GO 6-@ 6-@'6-36-?6-K6-W6-Ae6-%Ak-=}w@(@} @5,3/@ &G/@ &@ ],@->} &@ %q/@ %}/ e%@&-*(@:@+!,e(@-?} ž& ̾& P@ /-%%A@$7-FF:@ ,J P Y  -@}-&' A+ Y6-AP%@$+@&,%$+@&, R-&F:,& A* 8--A}%R( BYTES   Q-A6+68,-%@!3%9= CK6-%Q z -B}8@,*6-66-<6-H6-@T6-A`6-A3p%@d$z @0ONE-TIME -C}INITIALIZATIONS6-@6-@'6-@36-@?6-@K6-@W6-@c6-@o6-@"-D}{6-@P6-A6-AU6-AV{6-@H6-AP'6-A36-A?6-AFK6-@-E}W6-Aqc6-Aro6-@`{6-@P6-A6-2;@ ,9,9A,G68@,-@\68@-F},-@q68@,-@68@,-A68@,-Ac68@ ,-A-68@,-A<6-G}8,-AK68,-AW6-A3c6-A 9,68@,-468@,-D68@ ,-6N68-H},-6^68@,-6m68@,-v68,-68@,-68@,- 9,68@,-468@,--I}D68@,-6N68,-6^68@,-6m68@,-v68,-68@ ,-68@,-6-Ad6-AV-J}'6-A36-A ?6-AK6-AW6-Ac6-B7po6-B7`{6-B7a6-Ap6-A6--K}A8''SET UP DLI & REDEFINED CHARACTERS? AF:A@,&@*+@?6-+F:A,%,$8-@#-L}( 偁8INVERS >CNTRL< "A"\-@(%-@9( chet waltersE-@V( FOR ANTIC-M}\+-A6AQ"!% +>-AWAX"!'42F:,:>  #AQ-N}W"6-$ 'C2M+@W APuV-@"+2-O}82F:,B%%HL V AP@Q6-F:A`,%$F:Aa,3%@'A4EAQA-P}'BBA6-'' A DL SERVICE ROUTINE==72,169,224,141,10,212,141,9,212,169,0,141,26,208,104,-Q}64 START DISPLAY & TRACK DATAkk0,0,0,0,1,1,2,2,3,3,4,4,4,4,3,3,2,2,2,1,3,1,4,1,5,1,6,1,7,2,8,3,8,4,9,4,10,4,11,4,12,-R}4,13,4,14,4,15,3ll16,2,16,1,15,1,14,1,15,5,12,6,13,6,14,6,15,6,16,6,15,6,14,6,13,6,12,7,11,8,12,8,13,8,14,8,15,8,16,9,16-S}kk10,15,10,14,10,13,11,12,12,12,13,13,13,14,13,15,12,16,11,16,10,15,11,16,12,16,13,15,13,16,14,14,14,13RR14,12,14,11,1-T}4,10,14,9,14,8,14,7,14,6,14,7,14,8,14,9,14,10,14,11,14,12,14,13;;14,14,14,15,14,16,15,12,16,12,17,13,17,14,16,14,15,14-U}kk16,15,16,16,17,16,18,16,19,15,19,14,19,13,19,12,18,12,18,12,18,13,18,14,18,15,18,16,18,17,18,18,18,19CHARACTER SET D-V}ATA0,0,0,0,0,0,0,0,064,0,0,0,0,0,0,0,060,0,0,4,142,122,49,0,0124,0,0,33,58,76,140,0,0!!43,60,110,-W}118,255,24,24,0,0""107,60,110,118,255,24,24,0,0 50,0,0,16,56,124,246,56,56!!114,0,0,16,56,124,246,56,5612,-X}0,0,0,0,32,48,48,076,0,0,0,0,32,48,48,0!!44,34,34,54,93,42,62,127,62""108,28,20,20,93,42,62,127,62##97,36,2-Y}4,24,60,90,255,255,126!!33,0,0,24,60,90,255,255,126!!98,0,60,110,126,122,62,28,0!!34,2,63,110,126,122,62,28,0&-Z}&99,96,240,233,254,254,233,240,96&&35,96,240,232,252,252,232,240,96""100,0,28,62,122,126,110,63,2 !!36,0,28,62,12-[}2,126,110,60,0 $$101,126,255,255,90,60,24,24,36 !!37,126,255,255,90,60,24,0,0 ""102,0,56,124,94,126,118,60,0 ##38-\},0,56,124,94,126,118,252,64##103,6,15,151,127,127,151,15,639,6,15,23,63,63,23,15,6##40,64,252,118,126,94,124,56-]},0""104,0,60,118,126,94,124,56,0""41,24,60,90,231,231,90,60,24##105,24,60,90,231,231,90,60,24""42,24,60,90,23-^}1,231,90,60,24106,0,24,36,90,90,36,24,0''3,102,102,255,102,102,255,102,102((67,102,102,255,102,102,255,102,102-_}O-1 D1:SNAKE.BASETSTYNPOSCBYTENHEADTRACKBODTAIFONNNCHCHSETMATMIBVBTFTFINITHUNDEBLWEA,;STRETCH;BY LLOYD BURCHILL;(c) 1986, ANTIC PUBLISHINGModulebyte key=764,IR card scr=88,dlist=560define dlspace="1a}14592"define dlsend= "14592 +575" ;a 580 byte long space is needed ;that includes no addresses on ;a 1K boundary ;(excep1b}ting first byte)card array memline(192)Proc Stretch(card lines,card vstart);Parameters:;'lines' is number of scan line1c}s the image should occupy on the screen;'vstart' is scan line of original image that will appear at top of screenByte poin1d}ter pcard pointer qcard bigline,addr,inc,tempinc=24576/linesbigline=(inc rsh 1)+(vstart lsh 7)p=dlspace+3q=dlspace+41e}do temp=bigline rsh 7 addr=memline(temp) p^=IR+64 p==+3 q^=addr q==+3 bigline==+inc if bigline>24576 or p>dlsen1f}d then exit fiodp^=65ReturnProc Sinit() ;initializecard asetblock(dlspace,3,112)for a=0 to 191 domemline1g}(a)=scr+a*40 od;change to 'a*20' to use mode 14stretch(192,0)dlist =dlspaceReturnProc Load() ;load disk pictu1q}.?b'DOS SYSb*+DUP SYSbUAUTORUN SYSbWDOC TXTbkLINKLINEEXEbzMENU b TYPOII LSTbCANON BASbMCASTLE BASbRAINBOW BASbSIDEWINDBASbcSNAKE BASb`STRETCH ACTb}STRETCH EXEbVISIONS BASbHELP BASbiBEGOOD PI2rebyte pointer pClose(5)Open(5,"D1:PICTURE",4,0)for p=scr to scr+7679do p^=GetD(5)od p=712 p^=GetD(5)for p=7081r} to 710do p^=GetD(5)odClose(5)Return Proc Drawing() ;example picturebyte t,u,v,w,x,y,zfor w=0 to 30do col1s}or=rand(16) x=rand(76) y=rand(180) for z=0 to 3 do Plot(x+z,y) Drawto(x+z,y+12) ododfor x=0 to 14do color=x+1 1t}Plot(0,x) Drawto(79-x,95) Drawto(0,191-x) Plot(0,29-x) Drawto(52+x,95) Drawto(0,163+x)odfor w=0 to 15do z=10+ rand(70)1u} y=rand(192-z) u=rand(20) v=rand(50-u)+15 t=10+rand(21) for x=0 to 14 do color=(15-x)*t/30 Plot(v-x,y+z) Drawto(v1v}-10+u,y) Drawto(v+x,y+z) ododReturnProc Rubber_Band() ;main procedurebyte pad1=624,pad2=625,modecard hdo IR=11w}5 ;use 15 for modes 8,9,10,11 ;use 14 for mode 15, "graphics 7 1/2" ;use 12 for mode 14 (160 x 192 x 2 colors) G1x}raphics(0) Poke (752,1) PrintE ("oad your own picture") PrintE ("emo mode") do until key=0 OR key=58 od 1y}mode=key Poke(764,255) if mode=58 then Graphics(9) Poke(712,128) Drawing() elseif mode=0 then Grap1z}hics(8) Poke(712,128) IR=14 Load() fi ;Use either Load() or Drawing() ;and adjust graphics call ;accordi1{}ng to preference Sinit() do h=pad1 if pad2<192 then Stretch(h lsh 1 ,pad2) fi until key<>255 od 1|}until 0=1odReturnILL;(c) 1986, ANTIC PUBLISHINGModulebyte key=764,IR card scr=88,dlist=560define dlspace="0$1 (c)1983 Action Computer Services  B JKIHiDiELV`L=$5~} =$ BLV`iL$$l L$ &` Fj`8冨凪` $EӅӥ5} $`ʆǪƩ Ɛee` $ƦʆǢ &Ɛeǐ % %L$ $'&&&8儨児5}祂*L$&&*ń8&&L$ [%`hihiHHȱȱL$c !#3`5}L$JJJJ`H $h`Hȩh r$L% {$L% %$L% -$L% 3$H85}`HhHh _&L% BHI V䅠L% L& =$L%Ԇ ؠPIPP`5} &P -$L% &L& &L& 'L&H- &8塪墨hL' 'L& &'L& &ȹP`5}텠8堨塪 &芨Oȩ-`PP &P棩 Ѥģ0-ģ6000:,80H 5}& &ehe&eģ0ʥ 8堅塅`$ &&*i0:0i &Ʀ`¢ 护5}°ڱ%ȱ%E &L`(担CS R&L`(I 'L`(H (L`( &L`( &B V %NLMȑ5}` MLN%B VL%S:)E:)H L& ) ) & L&h)0I))L&[\ZUVT` @)))5}` G)L& :)L& @)L&) ` G)L& &%` 0d $ҥ `2)25}ҩ`p`0)9*`@0)ӈJJJJ)`Ѕ`ȱ`` 5*ȥ`Hh5}ƣĢ`ƥĤ`Ѣ *`ȱѢĦ`膡`5}`ťƤe8夰L* Ƥ8`ŦeѠe桊L*615} x=rand(76)(Lb+ %O+P+O+` [%[+\+\+[+ $R+Q+ $eW+eX+9T+S+9V+U+5}X+W+ $]+^+]+ mK+^+*(mL+Z+Y+S+T+J+i@S+iS+T+iT+U+V+Z+ȑY+U+iU+V+iV+5}W+m[+W+X+m\+X+W+`X+?S+;T+L|,L,L+S+T+A`(2L,p9 N*,,͐,,L-, mK+5},*(mL+(,, &%XeYe,Ь,L, _+910`2L%- L&L8- D1:PICTURE--5} &Y!-X -Xis-Yit-s- -t-!-L-aw -!-HH &hh -!-Lb-!-ȍ - -!-HH &h5}h!-č - -!-L. -!-HH &hh -!-L- L&`doRL!...L. )L )5}. )...L..m.. s).m..i c).LS..L&...L#/.i.5} s)8O._ c)8. c)8. s)4m._ c)m. c).L...L$0F )5} e.8. ). ).82. )i. ) e...L08.. &%5} [%8...m. s)8. m.. c).m..m. c).L/.L(/`e eL+0J+ 5} ) 5*LW0oad your own picture0A ?&Lk0 emo mode0a ?& I:Lr0%0 5*%0I:L0 ) 5* .L0%5}0L0 ) 5*J+ "- ,'0p&0qL1'0&0 $q _+IL0IL+0``(0LV`L=$4p  =CODELA@T@S@  VISIONSBY MICHAEL METZ ! +@ !9}-@@y)6-%@!@)6-@#0@#'@P( ,/@y&2',A9}&'/@y&A&<,@y&/A&F,@y&A&/P)6-%@!A)6-9}Z d%-@A % @D1:VISIONS.BAS VISIONSBY MICHAEL METZ ! +@ !8J|LINEA ;A ,;@,; (}@;@@ D:DOC.TXT=} A(@2vB:,!@-7@<@,4XXX0(3(E-@@"Y(ӠΠf@=}l(}v @@<( @@dj@ B*-@@"R("ΠҠՠҠˠҠ_@=}j%D:MENU D:HELP.BAS ;A ,;@,; (}@;@@ D:DOC.TXT<%A}A}A}?A}?A}?A}A}?A}?A}?A}A}?A}?_A}?A}Wu]V}/}U?A}}G_WWW>wA}?MuoR2x^_գ_A}v?tϿ?A}Ew2x~]_ v{sUuQ?A}xUWW>*~?WUt9¨UR__A}?UUSU{**T?u]W`(SӨSuUSWA}U?QUSUUU*2A}T;nPWURrSS]JAS5?A}UUUTT>**T?`mCYQrSUQTTWU?A}UUUEUT* ]U/W_ǘ2R U5]_A}?UTPUUQ:E(UU?kb_sA}IU/PE?UUA}PDT*Qu(UB?Y7A'CήPS?A}T]P@*h=`(U;O_;ITSOA}?QWTU.][(U?Ow:ŨS$U/?A}?UE;AĺE:uU(U?A}}[.mH% Eq?A}T UtTU_d???Γ:EP G ?A}ծQPXAϛ7*U?>S?%\SA}?UEUVU]'s+T??΃>A}@Ww?UTUA*UA}]/Q=>u{_&Õh/?A}TQE@D53޽q u=>}g ^A ^?A}QqAQ 7翉ݺjĕ/R=Wܺ]B#Bp7_A}?NDP-5;DQ]]UA}UUU@ t??A}U DEU+%+%TժUUUU@UUU]F;ďw?A}Q=EDX0g`'BPUUUUUQAU;īWA}?E@EXEPPAUUTuET;A}?֪UUT TQEcDA}SSUEQTUUEUTSD?UA}U@?TAU@@PtQTEUTUUPPPF?A}TT@@'?xA@GsUqAPUETUURA}?eQ<'qA` @AL/5TzrEGA}AT@UET ??WUT]Ϳw@Sa?տA}@@ꏕ}r~U9jQ@@TTE@W?A}W\ED׭*Jյ{T+ChEWRwwEUUA}?_ERN( IT !_?{t@A@U@UA}?_Q0_<>RQA%E A}}܎{(U@U?]׻DuqٹA}]AUTW?o=A@}@>APU?A}տ@%WUAu bQDAG_]Ph~UWA}?տ}ЫE ɛ ȯE=WoT}A}:>DG@U?GqU9yPA}<_4O+_?SDA}侪AUP W/-OW}>WWA}?WUPUP俛I/]W?e@ UUA}?WGr9aDH?_=ogA}8}w;_P;U?WAA}Q/33l`_>J}?U_?A}uE`TI+6/70Wwb/Pzޫ!WA}?'iU@g?seW|A}/>%?EQCc m KA}9e9aOFT}u}5xEU_?UUA}AGEU ?OJp _z4W?A}UA_B -#Q<8^xx?<ڝ k`uWA}?WuEUUUQ@_PTY G?VOOA}* [ΤqU?UQUU&UUUQA?A}PQ,=k`s770P@mQ®.yѺE?UA}UUU_ĪUT!AU@V g_YWk*QJA}?UUUUWUeT@8U@{O%&'׻WA}