@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 D8uTSP1P2BYTBYTAsrAApAU@A COLOR DEMO CANON PJ-10T}80A&&9@,;A@,;A@,""SET BITS: NONE,ODD,EVEN,ALL:(68,-E68@,-@%@U}%@%@dr68@,-@%@%@2%A(68@,-AU2##@@P:<V}-@A@@F 6-8P:@$H:,,,P 6-8P:@$H:,,,Z-@6-%dW}67,.>:,n67,.>:,x  -@@++(@>:@',X>:@,++(@>:@X}',X>:@,  @` D1:CANON.DMO++(@>:@',X>:@,++(@>:@A K&`&BRTPCOLANSINVFRMINFTRUFALSNONXYXYXXYYCHOICTEXSOLDSDNUMSHAPECORRECSHAPCOLNUMWRON Z}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 a}LP ] xMM67@<@P,.2 W * L S^2 B * H PI * R^2 RR67@Q<A,.7 1/2 *H*(B+T b}) 1/2 *PI*R^2 1/2 * B * H [ HELP ] MM67@<@P,.2ŠŠ͠ŠRR6 c}7@Q<A,.7ĠɭŠŠ۠РݠMM67@<@P,.2נ̠޲ d} Ƞɠ޲RR67@Q<A,.7Ȫ«ԩɪ޲ Ƞ۠РݠW68@ e},--68@,-@B68@,-@&W68@,-W68@,-@-68@,-@&B68@ f},-W68@,-@+6-@6-!6-++! A !DRAW INTRO SCREENDRAW THE g}CASTLEs +@A@V1A ACAA0UAAP_ @pi@s#A pA h}-@@!"+ A0/ ADRAW RECTANGLES@-@@%"/ A3 @TRAPEZOIDS i}C-@@%"/ AP3 CPARALLELOGRAM%-@@%" ,// j}" // ,K,@A@'/@A9/@I@K/@A@6;-@@!" k}+ A / ;TRIANGLES@=-@@%"/ Ap3 =CIRCLESJA@AT%%6-F:A l}`,%F:Aa,$AV^W68@,-)68@,-%@@68@,-%@&W68@,-%@@h_68@ m},-%@S168@,-%@fH68@,-%@_68@,-%@r.6-@6- A`.MAIN PROGR n}AM|-@&@6-" A@GGAPA A@AA A!A" o}A"  AERASE SHAPE!"6-!@! A  A!" ,/ p})6-%@)+%@,A`F(>:A%,"F($ YOU ANSWERED EVERY ONE CORRECTLY!!!%! q}"( YOU MISSED %(''(Press TRIGGER to play again...T:,A! + @p! A r}& ,//&DRAW RECTANGLE //$&* ,//*DRAW PARALLELOGRAM0 //$:2 , s}-2CIRCLES & SEMI-CIRCLESD,6-@$E:,%,6-+6@,$G:,%N / $X& ,//&DRA t}W TRAPEDOIDb //$l ,// TRIANGLEv / $8@(,AR@8DO SH u}APESB(7@<@9,-(7@@<@x,B(7@y<A,,(,( Use joystick to select SHAPE.$: v}@(,AR@:DO FORMULASB(7@<@9,-(7@@<@x,B(7@y<A,. w}(.( Use joystick to select FORMULA.$P6-@2(>:A%,.AAF@AR@PINTRO. SCREE x}N@-@@(%ŠŠŠ2-@@2( 5-@ y}@5(W * L = RECTANGLE2-@@2(S^2 = SQUARE9-@@9(B * H z} = 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.BAS@$$ ! 6-%@! A#` 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.BASXL OR XE.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.BAS SHORT FOR alXXpha numeric telivision integrated circuit -- ONE OF THE 8-BIT ATARI SPECIAL CHIPS.D100NKETFSTXETSTYNPOSCBYTENHEADTRACKBODTAIFONNNCHCHSETMATMIBVBTFTFINITHUNDEBLWEA}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:},A' %6-@&' ANEW GAME & TITLE ROUTINEX'"6-F:@,%$F:@,.6-}:6-F6-APR6-X_ 6. dd6-A%6-@-6-&?-G%S}_U%@$A4)@@d;B7t@dAI%O!U6-O (}-}6(hi score bytes=(G-%%O(I-AaAW"@:e,0,F:&,F:,9@:,I,F:&,F:}&,\!AF@:j,4,F:&A,F:&A,B6-%A(HN\%@c!AH5,F:}&A,F:&A,G,U%@ [c%DF:,%  A*-@ %D(Ԡ}پ 1 2 3U #AQ-A$6-F:,*-'96-K-@ U A eR 6-%!6-6*-}@ F(choose entry stageJ"R%U")"%-@ A(Š٠M}U%   A u%(@ 9-@ %[(@ i-}@ %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-}%R( BYTES   Q-A6+68,-%@!3%9= CK6-%Q z }8@,*6-66-<6-H6-@T6-A`6-A3p%@d$z @0ONE-TIME }INITIALIZATIONS6-@6-@'6-@36-@?6-@K6-@W6-@c6-@o6-@"}{6-@P6-A6-AU6-AV{6-@H6-AP'6-A36-A?6-AFK6-@}W6-Aqc6-Aro6-@`{6-@P6-A6-2;@ ,9,9A,G68@,-@\68@},-@q68@,-@68@,-A68@,-Ac68@ ,-A-68@,-A<6}8,-AK68,-AW6-A3c6-A 9,68@,-468@,-D68@ ,-6N68},-6^68@,-6m68@,-v68,-68@,-68@,- 9,68@,-468@,-}D68@,-6N68,-6^68@,-6m68@,-v68,-68@ ,-68@,-6-Ad6-AV}'6-A36-A ?6-AK6-AW6-Ac6-B7po6-B7`{6-B7a6-Ap6-A6- }A8''SET UP DLI & REDEFINED CHARACTERS? AF:A@,&@*+@?6-+F:A,%,$8-@# }( 偁8INVERS >CNTRL< "A"\-@(%-@9( chet waltersE-@V( FOR ANTIC }\+-A6AQ"!% +>-AWAX"!'42F:,:>  #AQ }W"6-$ 'C2M+@W APuV-@"+2 }82F:,B%%HL V AP@Q6-F:A`,%$F:Aa,3%@'A4EAQA}'BBA6-'' A DL SERVICE ROUTINE==72,169,224,141,10,212,141,9,212,169,0,141,26,208,104,}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,}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}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}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}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}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,}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,}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}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&}&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.BAS,36,90,90,36,24,0''3,102,102,255,102,102,255,102,102((67,102,102,255,102,102,255,102,102;STRETCH;BY LLOYD BURCHILL;(c) 1986, ANTIC PUBLISHINGModulebyte key=764,IR card scr=88,dlist=560define dlspace="}14592"define dlsend= "14592 +575" ;a 580 byte long space is needed ;that includes no addresses on ;a 1K boundary ;(excep }ting first byte)card array memline(192)Proc Stretch(card lines,card vstart);Parameters:;'lines' is number of scan line!}s the image should occupy on the screen;'vstart' is scan line of original image that will appear at top of screenByte poin"}ter pcard pointer qcard bigline,addr,inc,tempinc=24576/linesbigline=(inc rsh 1)+(vstart lsh 7)p=dlspace+3q=dlspace+4#}do temp=bigline rsh 7 addr=memline(temp) p^=IR+64 p==+3 q^=addr q==+3 bigline==+inc if bigline>24576 or p>dlsen$}d then exit fiodp^=65ReturnProc Sinit() ;initializecard asetblock(dlspace,3,112)for a=0 to 191 domemline%}(a)=scr+a*40 od;change to 'a*20' to use mode 14stretch(192,0)dlist =dlspaceReturnProc Load() ;load disk pictu&}rebyte 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=708'} to 710do p^=GetD(5)odClose(5)Return Proc Drawing() ;example picturebyte t,u,v,w,x,y,zfor w=0 to 30do col(}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 )}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)*} 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(v+}-10+u,y) Drawto(v+x,y+z) ododReturnProc Rubber_Band() ;main procedurebyte pad1=624,pad2=625,modecard hdo IR=1,}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) G-}raphics(0) Poke (752,1) PrintE ("oad your own picture") PrintE ("emo mode") do until key=0 OR key=58 od .}mode=key Poke(764,255) if mode=58 then Graphics(9) Poke(712,128) Drawing() elseif mode=0 then Grap/}hics(8) Poke(712,128) IR=14 Load() fi ;Use either Load() or Drawing() ;and adjust graphics call ;accordi0}ng to preference Sinit() do h=pad1 if pad2<192 then Stretch(h lsh 1 ,pad2) fi until key<>255 od 1}until 0=1odReturnit() do h=pad1 if pad2<192 then Stretch(h lsh 1 ,pad2) fi until key<>255 od $1 (c)1983 Action Computer Services  B JKIHiDiELV`L=$!3} =$ BLV`iL$$l L$ &` Fj`8冨凪` $EӅӥ!4} $`ʆǪƩ Ɛee` $ƦʆǢ &Ɛeǐ % %L$ $'&&&8儨児!5}祂*L$&&*ń8&&L$ [%`hihiHHȱȱL$c !#3`!6}L$JJJJ`H $h`Hȩh r$L% {$L% %$L% -$L% 3$H8!7}`HhHh _&L% BHI V䅠L% L& =$L%Ԇ ؠPIPP`!8} &P -$L% &L& &L& 'L&H- &8塪墨hL' 'L& &'L& &ȹP`!9}텠8堨塪 &芨Oȩ-`PP &P棩 Ѥģ0-ģ6000:,80H !:}& &ehe&eģ0ʥ 8堅塅`$ &&*i0:0i &Ʀ`¢ 护!;}°ڱ%ȱ%E &L`(担CS R&L`(I 'L`(H (L`( &L`( &B V %NLMȑ!<}` MLN%B VL%S:)E:)H L& ) ) & L&h)0I))L&[\ZUVT` @)))!=}` G)L& :)L& @)L&) ` G)L& &%` 0d $ҥ `2)2!>}ҩ`p`0)9*`@0)ӈJJJJ)`Ѕ`ȱ`` 5*ȥ`Hh!?}ƣĢ`ƥĤ`Ѣ *`ȱѢĦ`膡`!@}`ťƤe8夰L* Ƥ8`ŦeѠe桊L*61!A} x=rand(76)(Lb+ %O+P+O+` [%[+\+\+[+ $R+Q+ $eW+eX+9T+S+9V+U+!B}X+W+ $]+^+]+ mK+^+*(mL+Z+Y+S+T+J+i@S+iS+T+iT+U+V+Z+ȑY+U+iU+V+iV+!C}W+m[+W+X+m\+X+W+`X+?S+;T+L|,L,L+S+T+A`(2L,p9 N*,,͐,,L-, mK+!D},*(mL+(,, &%XeYe,Ь,L, _+910`2L%- L&L8- D1:PICTURE--!E} &Y!-X -Xis-Yit-s- -t-!-L-aw -!-HH &hh -!-Lb-!-ȍ - -!-HH &h!F}h!-č - -!-L. -!-HH &hh -!-L- L&`doRL!...L. )L )!G}. )...L..m.. s).m..i c).LS..L&...L#/.i.!H} s)8O._ c)8. c)8. s)4m._ c)m. c).L...L$0F )!I} e.8. ). ).82. )i. ) e...L08.. &%!J} [%8...m. s)8. m.. c).m..m. c).L/.L(/`e eL+0J+ !K} ) 5*LW0oad your own picture0A ?&Lk0 emo mode0a ?& I:Lr0%0 5*%0I:L0 ) 5* .L0%!L}0L0 ) 5*J+ "- ,'0p&0qL1'0&0 $q _+IL0IL+0``(0 5* .L0% p  =CODELA@T@S@  VISIONSBY MICHAEL METZ ! +@ !%N}-@@y)6-%@!@)6-@#0@#'@P( ,/@y&2',A%O}&'/@y&A&<,@y&/A&F,@y&A&/P)6-%@!A)6-%P}Z d%-@A % @D1:VISIONS.BASA&/P)6-%@!A)6-$JvB%DOS SYSB*)DUP SYSBSCANON BASBMYCASTLE BASBRAINBOW BASBSIDEWINDBASBcSNAKE BASBSTRETCH ACTB2STRETCH EXEBMVISIONS BAS