@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} HE |||DDOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:4}# 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`iwLINEAxx ;A ,;@,; (}@;@@ D:DOC.TXT X} A(@2lB:,!@-7@<@,4XXX0(3(E-@@"X( ӠΠ\b(} Y}l @@<( @@da@ B*-@@"R("ΠҠՠҠˠҠVa%D:MENU Z}D:HELPLINEAxx ;A ,;@,; (}@;@@ D:DOC.TXT @ST6 D AXLPB0NZ<( ((@ @d"( \} +AdAUuA@'A @9A@K@@]@@7c(]}}uAR@++(#++(#| ANTIC MONTHLY DISK AUG. 1985 |++(#^}(++(# @ -@A $ GG;@_}@,;@ ,;@@,;A,;@,;@@, "D1:MENU" &&@@D:*.* 6,6." `} 6 @0i6-%@(6.7@<@,A67@ <@ ,..i67@<@a},.7@<@,3 6.|67B:,%@,.367B:,%@,.G67@<@,.(--@B:,:7b}<,4 G67<,..] 6.=:, @D67@<@,.7@<@,]67@<@,.0$c}@(''7@<@,4FREE@- @ 2() <@F''7@<@,4FREEd}@K @ P(7@<@,)|U @0W'!-@6+'@,%@' |Z++(#| e} |[ ( |  |\++(#d**(" Select HELP.BAS forf} information.xAR[@@9'-@@#C( FILE NUMBERM A0Q[ Bg}P:,A00"@&6.7@<@,0 AELB6.7+&@,$@%@<+&@,$@h}%@,L B37@<@,4 36.7@<@,!7@<@,4DOS!.0 6.-@i}B:,07<,4 AH67B:,%@,.7<,   6.! 6.D1:!67B:,%@,.?AR@'-j}@@"?  LOADING ? A@@91@@5%? BK-@@"- k} CANNOT RUN 7 @A BK A0D:MENUDOC .TXTA0ENUGRAHPI|DOC......TXT(LP } WELCOME TO THE ANTIC MONTHLY DISK The programs Tm}MINI1030.BAS and AUTO1030.SYS, referred to in the article "Unleashing The 1030 Modem," require special handling. First, Tn}move both programs to another DOS 2 disk. Now, rename AUTO1030.SYS to AUTORUN.SYS.Be sure to read the article for complTo}ete instructions! XXXThe files PROTERM.BAS, PROHANDL.EXE and BBSMENU.ADM also require special handling. First, move Tp}all three files toanother DOS 2 disk. Now, rename PROHANDL.EXE to AUTORUN.SYS. Be sure to read the article for completeTq} instructions! XXX(If you don't know how to moveand rename files, see "Why You Want DOS 2," ANTIC, April 1985.) XXXT}lm\%r%CSMSTDXYXMSNLPICKUKELOSSEGKXD28FAAACOUNTESKKSCORs} t} !u}"#$%&'()*+ VALIANTBY J. SUTHERLAND (v}c) 1985, ANTIC PUBLISHING A ##6-?:A6"@d%-@%@%4(@> A%"A36-@% A|} AP @+@'6-ARAV'6-A6%%6-?:C:h`,,11;@q}},;A7,;@,;AP,4"!6@%*6-%@4 A@/-A"+$AV~}%/ $. A8k +@#6.5A @pGAA8YA@&kA}ABAV!-@@1(@(:C-@@S(@):e-@@u(@}': APL AV'6-%@ $'B%`.!6-@p$+%,%%%A.67<,.jb -A}@6?P<2@@@ b2t$~C-@@9(@}7@<$@,C A`0-@@0(@ (-@@((@k}-@@'(@ 9-@@F(@X-@@k(@ $6-&@}/B%%@ $K-@A?Pg2@@k 2}$k6-@6-@0'6-A36-@S6-?:A62A&+@$%@$O:,,@@}\-@@%@$` d h /%2/ AA(@}$-@@}A(@CONGRATULATIONS*-@@*(@YOU WONB6-%@$%-@@ B(@ }FINAL SCORE: -@@ +-@@ Q2%$@@@e-@@i 2}  -@A %MACHINE LANGUAGE DATA!!104,104,133,204,104,133,2}03162,0,160,0177,203,157,129,157,232200,192,9208,245,138,24,105,11,170224,180,240,20,2341}65,203,24,233,185,144,2230,204,165,203,24,105,70133,203,24,144,214,169,2$$141,213,157,169,0,133,77,96,-1}0,0,0,0,0,0,0,088251,251,251,0,191,191,191,0,24,0,60,90,0,24,36,1020,15,17,35,69,250,140,248 248,30,55,51,3,6},12 0,1,2,4,136,208,96,112,152219,90,66,60,24,24,36,102( 224,128,160,174,234,14,8,82224,128,224,46,228,4,}4,4<!!224,128,192,138,234,4,10,10FDATA 0,6,6,6,6,102,60,0G224,160,224,16,8,12,22,4H255,60,60,44,60,60,60,25}5I8,28,42,28,42,73,8,0PLLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAZLLAAAAAAAAAAAAAAAA}AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAdLLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA}AAAAAnLLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAxLLAAAAAAAAAAAAAAAAAAAAAAAAA}AA@AAAAAAAAAALLAAAAAAAAAAAAAAAAA AAAALLAAAAAAAA}AAAAAAAAAAAAAAAAAA@@@AAAAAAAAAAALLAAAAAAAAAAAAAAAA}AAAAALLAAAAAAAAAAAAAAAAAAAAA@AAAAAAAAAAALLAAAAAAAAAAAAAAAAAAAA}AAAAAAAAAAAAAAAAAAAAAAAAAAALLAAAAA@AAAAAAAAAAAAAAAAAALLAAAA}@AAA@@AAAAAAAAAAAAAAAAAAAAAALLAAAA@AAAAAAAAAAAAAAAAAAAAAAAAAAAA}AAAAAAAAAAAAALLAAAAAAAAAAAAAAAAAAAAALLAAAAAAAAAAAAAAAAAA}AAAAAAAAAAAAAAAAAAAAAAAAALLAAAA@@A@AAAAAAAAAAAAAAAAAAAAAAAAALLA}AAAA@@AAAAAA@AAAAAAAAAAAAAAAAAALLAAAA@@AAAAAAAAAAAAAAAAAA}AAAAAAAAALLAAAAA@AAAAAAAAAAAAAAAAAAAAAALLAAAAAAAAAAAAAAAAAAAA}AAAAAAAAAAAAAAAAAAAAAAALLAAAAAAAAAAAAAAAAAAAAAAAAA"}LLAAAA@@AAAAAAAAAAAAAAAAAAAAAAAAAA,LLAAAA@A@AAAAAAAA@A}AAAAAAAA6LLAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA@LLAAAAA@A}AAAAAAAAAAAAJLLAAAA@AA@A@AAAAAAAAA}AAATLLAAAAA@A@A@AAAAA^LLAAAAAAAAAA@}AAAAA@@AAAAhLLAAAAAAAAAAAAAAAAAAAAAAAAAAArLLAAAA}AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA|LLAAAA@AAAAAAAAAAAA}AAAALLAAAAAAAAAAAAAA@AA@AAAAAAAALLAAAAAAA}@AAAA@@AAAALLAAAA@AAAAAAAA@@AAAAAAAAALLAAAA}AAAAAAAAAAAAAAAAAALLAAAA@AAAAAAAAAA}AAAAALLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALLAAAA@AAAAAA}AAAAAAAALLAAAA@AAAA@@@AAAAAAAAAAAAALLAAA}A@A@AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALLAAAA@AAAAAA}AAAALLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALLAAAAAAAA}AAAAAA@AAAAALLAAAA@@A@AAAAAAAAAAAAAAAAAAAAAL}LAAAAAA@AAAAAAA@ AAAAALLAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA}AAAAAAAAAAAAAAAAAAAAAAALLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA&LLAAAAAAAAAAAAAAAAAAAA}AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA0LLAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA}A:cc̛Dcc}̛NLL}̛Xff10,9,4,21,12,14,11,9,5,2,19,29,5,19,21,32,16,7,18,19,22,2,6,3,5,7,4,2,1,4,7,4,12,16,12,21,30,6},3b559,3,1,4,8,12,16,12,7,2,15,20,22,25,28,34,19,8,4D1:VALIANT.BAS8,4 SKKSCOR^ ,-KKDCSCRSAVMCWIMSMEMSAPRC4CLLOCAMSTAOPCC10GCHISTRC12ROCOC3BMENSERDUPLEAMODCME}NC2C1PMENADCOXFLACCC5OC25TEMPCCLBUCAPTCDECFILFILEYXFABUFCCAUTC7CMADNTONLASCAMLXMBL}BXMASOSUADMESC6LDLB } } !"#$%&'()*}+,-./0123456789:};<=>?@ABCDEFGHI}JKLMNOPQRSTUVWXY}Z[\PRO*TERM v. 1.05BY MATTHEW ARRINGTON (c) 1985, ANTIC PUBLISHING SAA`}+%A1@=AYIAS B*@A'B7tA*$5%AI}#@AI5AAS<%@!AR+%@$AR3(96-<$5%AV#@A}V5AA`<%@!AY+%@$AY3(96-<$#wAR 67@#,. @6-?:<} Most of the programs on this disk arewritten in Atari BASIC. Some requirespecial hardware or specific instruc-tions. WeT} recommend you refer to thecorresponding issue of ANTIC forcomprehensive documentation. If youwish to order a back issue, T}or needsubscription information, contact usat (415) 957-0886 or, for credit cardorders, dial (800) 227-1617, Ex. 133.In CT}alifornia,(800) 722-3545, Ex. 133XXXThe menu that appeared on the screenwhen you booted the disk will onlyrun programsT} with a .BAS extender.If you try to run a program and the response is 'cannot run Filename',then check the file extender wT}iththe following list:XXX.BAS BASIC saved program, use menu RUN or LOAD and RUN..LST BASIC listed program, ET}NTER then RUN..EXE Assembly language 'Load and Go' file. Remove BASIC, boot DOS, type L then enter thT}e filename..M65 Same as .ASM only MAC/65.XXX.ADM Special PRO*TERM BBS menu file. (See the PRO*TERM T} article.).ACT ACTION! source code..SYS Reserved for system files..SHO Special Atari'toon data file. (SeT}e the ATARITOON article.) .LOG Logo language, requires Logo cartridge..TXT Text file. Usually accessed byT} another program.XXXAll programs from ANTIC issues datedprior to August 1984 were reproducedfrom ANTIC's Archive. We hT}ave up-dated them from our HELP columns and most are compatible with the XLmachines. We have worked to insurethat our proT}grams operate as pub-lished, but we consider all our software listings to be works in progress which we encourage you, tV}%@:F:A,,PAbAAHi(}o6-r$%\ (})6-?::,6-%67,.>:,'%!.(| A}O )(6-&$+!A'*}AU,L6-&@2$+!@*AU,O$!6-F:@,!6-F:@,C' ' @%@1A}RC@wGAf(6-! =AAD&A$G @" B`*F:,"" A}P*F:," AP(A"AU A %N @)(6-&$+!A',B6-&@2}$+!@,NA-*+"AU)"@',#6-- As1 @S*!@H'6-&@H1 A} "% AP Aq)6-&@d)!@%) Au Aq A%+$,%!F:A,%*F:A},!%  *" B ( A@%$%% A@%A$+"*",%+$,, F:," B "6}-, A` () %. 6. Xmodem Start"6-*6-%.  F:, A -  A}$ ( $; 6- A "6-;@TI &(JLF(# Waiting for c}allers carrier....I(/(Type a key to abort.(-$/7F:AF,!A''-6. ANSWER MODE7 Bp}'F:Ad, AU)'6-$  A@ A3$ AP9  @5.6-F:%,$}AV%F:,&C:,3(96-J(!(Save Capture buffer:$(. A046.9DJ6-(  S6}7%,.(}.( 6(;A6-E O AS  (Download File.(5 " (Close }upload file$ ,(1(5 ' A06- '  6-6.  T Ap  '( Eras}e file(s)*(4 A0:6.?JT AC)(!}Type 'Y' to delete, aborts0C@:,!%AJ} 6.7,6.7<%,$67,. ,-97<,4 D67,..J6- 7<,4 6.>67B:,%,.67,.}(&(?* >"@'A6-"@(A3( Deleting ->)@33 A" A}   ,^ ( Formatt Disk:(@(Which Drive? Press: or D Z!@R) @I^ .@ 6-}-(}Type 'Y' to Format Drive:>:,1 <>:,0Y@ 0? 6.D0:67<,.>:, $7AT; ? T} APW< BA@%%6-) - 1 6<6-X "6- AY( (*((( @(}( A0Z$|  Ap6-6-O( }Copy From:( A0.( }Copy To:1(76.A A0E JO}F7<,07<,)(}Copy  -->,(F(Type a Key to AbortS A6-B!6-%'6.36.SORCE= A}B(MS6-:67,. "6-?:<86-B AQ4AF 0/}6.6.!!(}Dialing: Any key aborts. B%AR  "6-%$L 6-%6("Rename File}, Enter: Old-FN,New-FN9(C A0G L@2  > 6-6-%6-"(6.Dialing:,:67},.TONE> 67,.PULSE 06-BF6-"!6-,6.HALF0  "6.HOST  6-6.FUL}L   $ <  Ap/(}Send Buffer (Non Xmodem)2(< A0 _(}Enter Delay Rate:(:(0-9 (0-NON To 9 }Slowest)A)_!@W) @HA" A6-&@H6-$ "-1 5 AAR >67,. }"6-?:< -B:,*@:7,,0 F:AG,)&(>:,0 A(}%F:Ad, &)% A4A-%$+@:7,,"AU,# ' 3A67 A A$    %@} $(Set timer, (00:00:00) (6( @ AE( !3( (>6- A-B:, )B:,!3} %#367<,.:67<,.:#6-/6-B3 &(6-400:00:00"A"( %0J  P }J('Printing screen, type any key to abort.10(l-@B'(-+ 0(28-@#67,. 86-}?:<B%$S 6-F:%,$AV%F:,&C:,,67%,.2(}K( ǠS(H-}  A AP *(-$\A%Af)AR16-%86.>6-D6-L6-%R6-\ }APP67@<@S,.5hhhˠԄՄͩ* b V *PP67@T<A,.5`bh}i V͑H BHI Vheԅ`. 6-F:AG,$). A[!6-++$%+&$,,'A(,%,6}.BLK:867,.=:,;(X( /[( *-$:F:AG,!)F:, : A %@}tu""CSCSTCSCCDLLDLHDLSCRSCRSCDLLDLHDLSCSCSABEDITFILELSBUFXXYYCCCC1FILBOTMNFILECC%}YECMCCFILSIZNUMBEFULIADDRESACMNCGECPUERSSC25DELSHOALFLAEDILCONSOCCCNIOCADRHADRLNUMHNUML%}KEN %}%} !"#$%&'()*+,-%}./0123456789:;<=%}>?@ABCDEFGHIJKL%}M ATARTOON, LISTING 1BY MATT RATCLIFF (c) 1985, ANTIC PUBLISHING(AF:A@,2&6-F:A%},&@&A<Z +;@ ,)6-F:AV,/6-66.H@@Z@@9Fc6-F:A%}`,!6-F:Aa,16-%AV$B6-F:%@,S6-F:%@,c6-%AV$P AF:A,&@ZI +% }AR@1A7(}IA@dc6-F:A`,!6-F:Aa,16-%AV$B6-F:%%!}@,S6-F:%@,c6-%AV$nV1;@@,;@@,;AV,;@ ,H6-I:,&A HO;,V6.%"}x A@ AL 6-F:,6-F:,%%%1@=@IAVL$G %%@%#}+@7AV=-G A` -6-?:<<<,*@A'B7tA*$G A%$}A@d+A@( G) "@(6- $ "@x(6- $%%}8 AF:,"@"& AP8( РǠ.K:$( Ġ٠. Ap A`((# 1-%&})* )(>:@',>:,*6-&@H )!Ap$( K:7 AF:,"@"%'}& AP7( KEEP TRYING!"(# ERROR, RETRY " A "B-@%!2A12A@5 ?2%(}B$,! A@ A`! A06K:@UAR!A@d-A7 AA A0%)}K ApU APJ- 26-#( ľ- A TOOAPApApAA@A 0A %*}A0A^( AP((ɧhB:,"Ar7 (Erase Cartoon in memory?* Ap7(%+}A | ( 6. A(AP AP06-B:,$6-*"06-5 %!%,}+(Can't fit file into memory!5 A`! 6-6-%6-! AP$67%,.>:F:%%&,,$ A (File %-} not there!/!(Press to continue%/ A 2 6-B:,"((Nothing to save.2 A`' AP%.}'(ɧ! A!()4C:A7 (Overwrite existing file?* Ap7(A  A`%/} (> 6-6-6-6-% AP*>!A'AP A &( I/O ERROR 0%0}((>:AS, File error.( A`:" 6-B:,"AP"śD2 AP&(ɧ2A@N%1}* 6-&*( Room for  characters.X Ab4 B:," (ǠϠ* A4 A`l AP( %2}ŭנv(Input speed, 1-256 # A# )!AU A *(Press for cursor on,U(& or %3} for cursor off during show ? 6- A 6-&AR= 6-&+(During Playback press =( st%4}op & start.(Press Ԡ to exit.""(Press to see show. A > A@!6-?:< A -A $- A#( Ҡ̠- A` A@ B:,"%6}6.}6-<AR((36-?::, 0 6-F:,0AA@A A *.-@6?@*2@`. 46 %8}F:,2A@,2AP6 A >4 2!6-?:<}(A $AF:A,%+!$( AP(((۱ Enable ATARI Set,&(%?}۲ Load & Enable a Custom Set,6-$) 0#(۳ Re-Enable Set )6-. A 8AAAB%%@} 6-( * ATARI SET *% A`L' 6-(* C-SET  *' A`V8 AP!(C-SET to load ?+ A26.86%A}-`(APjAVt9 6-$6-A$6-#6-- AP9AV~"Ap%B}; A1( IS Ԡ A VALID C-SET FILE!; A` 6-6. A !A@d!AI3(T%C}ype dev.filename.ext3(and press .%%(Press for a directory.''(Press to abort function. 6%D}-6.' A0 K:')"@'' A 1"AU*" A0' AP1 A%E}A&A 6-& A  (>:,6.7<, A0 "AU*A !! @2)!%F}@A0+ 6-%67<,.>:,!(>:,+ A0(5 A@6-(4C:+6-@5 A@2%G}6-<  $F6-@$P6-A2%%Z6-P:',6-&$d6-P:',6-&AV$n %H}%%x %%$6-?:C:hhhLV,<,$6-F:%,$. F:," A+(* NO DISK HERE *.$M %I}AP A0&( 7( Which Drive=6-G A M6-N AP6.D1:*.*(67<,.=:,-7 AP%J}BH6-N6-  7<,4 FA$ 6-(((|$ A`"(6-%" @A`%K}, A%(*MORE* Press ,) AP6- A`  ("(>:AR,>:AR,"% %L}A@!(Press Π%$_('(DISK I/O ERROR # F:A,R(At line F:A,%AV$F:A,U'_ %M}A`'@@!(}'-",,($ ɧ󠠒 ,--(%ʮ׮%N}栠 6--(%@--(%彠J--(%۱Load a Show %O} Save this Show T--(%۳Merge a Show ۴ Play back Show ^--(%۵Edit this Show۶ Make NEW Show h--(%۷Disk %P}Directory۸ Character Set r--(%۹ݠɧ󠠠|,,($ 򠱭16%Q}.=:B:,,6-@'6-@1 A6-&B:, 6.=:,6-@36- -B:,"A "-&B%R}:,(>:A`," .-B:,6-@:7,,*(>:%A(,. $6-6-@'6-@36-@%S}?6-@K6-@W6-@c6-@o6-@{6-@ 6-@6-B2y. 6-C:,6.6-B:,(%T}6-Ad.6-O6-AV6-@!6-,67,.=67AV,.F67,.O6-C:,K A'6.D:ATA%U}RTOON.SYS0F:,"96.C:KAd@E 6-6-AD!6-A6'6-1 APE!A'A%V}? 6-6-A 6-!6-+ AP?!A'A:6-A56-A))6-%A56-AY:%W} F:," A`&# A`# D:CHAR.SET0; 6-6-$6-A$#6-- AP;A`:$6. %X}D:CHAR.SET6-$ ApD 6.6-NP6-A( 6-A$&,6-86-@D6-@J6-P6-X%Y}$b6-F:A,lFAF:A,%+F(!CARTOON System File Load error # D1:ATARTOON.BASAPA%Z}``A`OUTLINE.FNTerror #15809REE SECTORS6le Load error # ATARTOON.BAS @P(ILECC$v7 "EFMINI-103066BY RUSS WETMORE, FOR STAR SYSTEMS SOFTWARE, INC.)\}ANTIC PUBLISHING @ F:A$,"@$)@!@1$(>:,2F:Ad, AU%)]})@2*@-@-F:AG,!A'@ @ P()(>:AS,MODEM DISCONNECTED!=)^}-@AA P6-?:B, #(ERROR-F:A,# @ 3)(!1030 HANDLER HAS NOT BEEN LOADED!3 @ )_}v;@,;@ ,%+16-ACA @O^6.>:@',l(MINI1030v @c@)`}@9@@K:Y@@T:c @'((PHONE # '4@)a}@@(@NIF PULSE(@OIF TONE1(>:@(, DIALING..1(@)b}K-@-F:AG, A(@ fAD(>:A%,+( CONNECTED!.(@@@Q(@)c}Yc@f$D1:MINI1030.BASBY RUSS WETMORE, FOR STAR SYSTEMS SOFTWARE, INC.(H$D (c)1983 Action Computer Services  B JKIHiDiELV`L=$-e} =$ BLV` L$$l L$ &` Fj`8冨凪` $EӅӥ-f} $`ʆǪƩ Ɛee` $ƦʆǢ &Ɛeǐ % %L$ $'&&&8儨児-g}祂*L$&&*ń8&&L$ [%`hihiHHȱȱL$c !#3`-q}0b'DOS SYSb*+DUP SYSbUAUTORUN SYSbWHELP BASb[MENU bPROTERM BASbKrVALIANT BASbPROHANDLEXEbBBSMENU ADMbEATARTOONBASb [MINI1030BASbDdDLMASTEREXEbBAUTO1030SYSCX CDIS bKNIGHT SHObPOKER SHObATARTOONSYSb;CDLMASTERACTb~STAR LOGbGRAPHIO BASblDOC TXTL$JJJJ`H $h`Hȩh r$L% {$L% %$L% -$L% 3$H8-r}`HhHh _&L% BHI V䅠L% L& =$L%Ԇ ؠPIPP`-s} &P -$L% &L& &L& 'L&H- &8塪墨hL' 'L& &'L& &ȹP`-t}텠8堨塪 &芨Oȩ-`PP &P棩 Ѥģ0-ģ6000:,80H -u}& &ehe&eģ0ʥ 8堅塅`$ &&*i0:0i &Ʀ`¢ 护-v}°ڱ%ȱ%E &L`(担CS R&L`(I 'L`(H (L`( &L`( &B V %NLMȑ-w}` MLN%B VL%S:)E:)H L& ) ) & L&h)0I))L&[\ZUVT` @)))-x}` G)L& :)L& @)L&) ` G)L& &%` 0d $ҥ `2)2-y}ҩ`p`0)9*`@0)ӈJJJJ)`Ѕ`ȱ`` 5*ȥ`Hh-z}ƣĢ`ƥĤ`Ѣ *`ȱѢĦ`膡`-{}`ťƤe8夰L* Ƥ8`ŦeѠe桊L* DO-|}p L[+ )0 %*ii %*K+J+8J+@L+K+M+8L+鐍T+M+U+8T+鐍V+U+-}}W+8V+,N+W+O+8N+,P+O+Q+8P+(R+Q+S+͂LV, mV+*(mW+i(-~}iL,8R+xS+))) ) )0NN)JJJJJJ -}  N+mO+iL-L-L|, %* %* %* %*`L7- )͂-}L- mT+*(mU+ mV+*(mW+LA-p 5*iip 5*iip 5*-}iìL8.N 5*ii mT+*(mU+ ?*iiL--}0 ?*ԩ ?*X ?*A 5*ii ?*`L.iìL/i-}i mT+*(mU+ ?*iiL.`L/͂LL/ mT+*(mU+ mV+*(mW+-}L /͔L/J+mK+mL+mM+mL/L/зLT/ .`L/ 5*-} 5* 5* 5*d͂Li0< )ei͔L0Lc0J+mK+mL+mM+m-}- ҅J+mK+mL`0Lc0L/L/ /`Lp0̓LS1i'i͂L<1J+mK-}+mJ+mK+mJ+mK+mN+mO+iJ+mK+mN+mO+i8-}L0iiL{0`LW1_͂L1 mT+*(mU+ mT+*(mU+8 mT-}+*(mU+ȱ8 mT+*(mU+ȑL\1 .`L1̓L2͂L2J+mK+m-}J+mK+miiJ+eK+eiiJ+eK+eL2ii-}L1`L2_͂L 3 mT+*(mU+ &% mT+*(mU+L2_͂LZ3i`.}`$+F:, ,  A'' )6-'")"%Ap1 )6-%)!6-%167A),.86}-?:C:,:,,6-%-67B:,%,. -RETRY1 CA@}gK6-%U A<67B:,%,.6-%6-267B:,%,. -OK86-< $#A@G# A.}%A8X ('6.Xmodem Aborted+ 7Af:(O(͠S XB= 6- (((Eras}e Partial file, 0 =(A0L @3 A0V?@w6-6-%+6.Save - 767,.=:,;} ? `: 6-B:,&!(7<,,6.7%,0 : Ae& 6-B:,6-@:7,,&!A@j,-&67<},4>:,(67,., tV ($6. File Recieved( .6-:Af=(A L(V A0[AAI}6-#6-%)6-/6-;ARGAfQ A![ A 8 6-(.6.Xmodem Complete8 A!} % BP67%,.%6-" @w"6-"$36-P:B:,',&6-B:,&+$A(,3(A %}- 6-&-B:,%B:,%)67,.>:,- 6.7<,6- A u! !F:, A!F:AG,} A 0 )Y"%)"%#A@g967B:,%,. -RETRY= E6-%Y A u%$+"%, UAA}I6-#6-%+6-%>67B:,%,. -OKB U$!B:,A 6.7$&A'<$,A(!( }/$(*6-56.BLK:A67,.=:,& **&*AU&@:>:,, 5 -6-@:7,,*&6-%.(>:,2 5}(*( F:AG,)( A 4*@:>:,, A 0><6. Xmodem Abort!($(9(}<(H5  6-6-(Af+(/ 5 % 6-@ (  - 6.D1: A&4* })'-  7"*4 A'!6-% ) 4(7$  4P:6. A0P B:, A0@ P*@:, @S}*@:,!@H*7<,4::67<,.7<,F67,.7,P A0P .7<,4D:*B:,!$67,.7,. A0P @07<,4}:*@:7,, @S*@:7,,!@H66.@ A0P E@:, @S*@:,!@H/67<,.7<,;67,.7,E A0P 6}7,. !6-B6-%6.!  PP6.Fhhhhhhhhhީ(eܥiݩ(ޥJ4ɀ& VV6}7@q,.C)  `8 e (ޥСЗ`0 q (View - File/Buffer:"(6(ile o}r uffer=)W6-&A($+!A',q6-&@2$+!@,: @f*@p = "@f  A1}?  ( ApD 5 A0 !% ) /(}56-N D67,. "6-?:<bort, }<>rint Screen, or RETURN X )$6-&A($+!A',>6-&@2$+!@,L6-&@dR"U'X$ V "%}P:.(7<%&,3L@KV A2   B:,(} A2 (} $ -AY}6-6-!6-'6--(} ?  (}-@5( ? @ h@()(L -L}oad a BBS Menu,(C(S -Save a BBS MenuF(h(A -Add # (or create NEW menu) (#(D -Long distance dialing&(2(X -Ex}itD@G(Q @T(c( OPTION:uAY@4 A 0LA35 ^ 6- '(}-}A(Enter filename or type RETURN.T((no extenders)W(^(> " 6- A4"6.* 2 6.D:67,.(6}7B:,%,..ADM2 B  4X(}$ 0SA3Q (A3 J((No extenders)(# A0' :67}B:,%,..ADM?J *(( * A3 0DA3` d (}-(B(%Enter}: [access number] [delay] [code]d(Each comma is a 2 sec. delay. N(%(Example: 555-5555,,221121,((/(>56-? A}N4A3  6. A3 0AA34 ! 6-(}-!A49 / 6. 67A,.#67,.}/AR> X'(Enter a Title: (40 char's max)*(.4(}:->(A(T( Above correctX C 3AR67<,.}&67%,.3(A3H @ 6-6.  67A,.)67,.@B:,!AyA3R g (}- ( EXITS#(}G(Enter BBS name: (16 Char's Max)J(Q(>]6-@g AW 4A3\ h67<@,.(} -H(#En}ter Telephone Num. (21 Chars Max)K(R(>^6-@!h Af ^67@<@8,. (}&-@(-ATASCII or -As}ciiD ^67@9<@9,.=:,p V (}-.( Name________>7<@,A( Number______>V(7@<@8,z &}( Translation_>&(ATASCII ((Ascii *(( Above Correct *(A4 &67B:,%,.7<,6-& }A4'B@'I  B !% +6-2)8"?)I B0$']  6-6.%6-}B)76. No BBS MenuC6-@G S6-@Y6-] )'B (}-%(  B( Hit select for me}nu.*'.$( & M to make a call.. A@.'U 67A,. 36-?:<:+&,%@d,7<%@, L'4%@9 B:,4(>:%@d,7%<%@V,V'2  ( (,(Type BBS Let}ter to Dial.26-X'7 @7F:Ad,!AT*F:,"BrY'''F:,"*F:Ad, AUA`Z', F:,"} B "6-, A`^'--F:Ad,!AT)F:, @Br`', 6-&@c,!B:,') Br'Z}  (}-.( re-dials number.T(! Any other key to ABORT dialing.Z6-'56-$&@9 /@}T56-'F 6."-%@%@8/7<,0 B67B:,%,.7<,F 'O6.7%<%@,36.7%@8<}%@8,=6-41E6-"O A'B-@/( 7%<%@,2(B( 'U-@AR}#()6-3 BU B&AP$+!*@','AU(O',(K,67B:,%+B:,,},.>:AU,'1 6-6-%%6. L.D.A. ) 1('dd6.ZhhhhhԄբ =* < B}HI V к`')6-?:C:, -$/F:Ad,AU6)>6-$ (F:AF,!Bp(  - $(86}.00:00:006-(6-B, 8A (  #(+'AR* *"+67<,. %("B:,!@"67@},.(( 6-6-@6. 2(' (}-6-!6-' % NI+"16}-76-=6-I6-B2y%N/ 6-%6-6-6-#6-/6-BW&N9 6-6-6-!6-B)-6-B96-A}%*NHH;%,;A),;A,;,;%,;$,;,;%,;%,4N^ 6-%6-%6-6-+6-A H76-}AB^;@,;,;@,;,;,>N==6.3P@0N(BBhB8B`N(BPN(A HN446-C:'hhh } BhEhDhIhH VԠ`,RNAA6-?:C:hhhhhhhנב`,<Bd<@@<@,\N%%6-C:hhrhr}vtr`,fN*6-?:6-B$B Nm"6.D1: | 00:00:00 |.6-B2 A6-?:B},G6-YAY@4c Am A@N6.D:*.ADM BN.AR#AY@4$' +.$}NV (} (*(  V('N[/('|Ժ Starts Xmodem Transfer } |[('|Ժ Displays this Menu |Nj/('[('|Π } |j(||N[/('| 1-4 Directories A -Answer Call |[('| B -BBS Menu Editor C -Capture Save |N}[/('| D -Download E -Erase File |[('| F -Format Disk H -Hangup Phone |N[/('| J -Copy File M -Make} a Call |[('| N -New Filename O -Tone/Pulse |N[/('| P -Duplex Q -Send Buffer |[('| R -Reset Timer } S -Print Screen |N[/('| T -Translation U -Upload |[('| V -View File X -Erase Buffer |NS/('}2(S( Š toggles Memsav.N++(# exits to terminal screen.N 6-}AY@4$0u881,2,3,4,5,6,7,8,9,10,20,30,40,50,60,70,100,128,256:u  LINE.6-}@46.FA@%I$u7 -AV#AW/AR7(u. 6- B-$! '6}-+ .$u(6.u$u9 67,. $6-?:<D}2982 } ||||=}~~ |||~~|||||| =}|||~|~||||||Z~~~=} ~~Knight Riderbumpy road=}rain, turn on the wipers kit! =}{{~~~~~~~~~rea~~adat ~~r reporst ~~~t=}s fair weather ahead~ =}I'm looking for cops kit.          =}Don't see any kit, check withyour radar.=}=}{{~~ =}~~~~~~~~~~~No cops michael, but bumpy=}road ahead!=}=}=}=}Oh no michael, radar reporst~~tslighteningstorm ag~headcrack=}=}=}  ~~ ~ +~~~ ~~~~~ zo=}wie, gee wix~zthat hurt! ~~~~~~~~~~~~~~~ =}  ~~~~~~~~~~=}KNIGHT~~~~~~~~~~~~~~~~~THAT'S ALL FFOLKES=}FOLKESԪԛ<p3264}ԧӠ٠қ||||||||||||||||A}||--.~|A[~||K{|^~||||~||Q`B}||||~||3|||||10||||||  B}__~~~~~~~~~~~~~~~~~~Dealer bets $10 !HummmmmmmmB}See your $10,And raise you $5.  CALL YOU BOY!B}Dealer takes two cards!  ~B}NAME YOUR POS~ISON SON"~!~~~~~~~~~~~~~~~~~~~ B}GIMMIE ONE CARD! Here's your card suckerB}4{B}Dealer bets $5.00CALL!AA{B}A`KKWhat 'ya got greenhorn?~~~~~~ B } ~~~~~  ~~~~~YOU LOSE BOY!PAY UP!B }BUT BLACK BART!I DON'T HAVE THE MONEYRIGHT NOW!B }~~~~~~~~~~~~~ YOU PLAYED THE GAME SONYOU PAY UP I~OR I'M GONNAB }PLUG YA! ~~~~~~~~~~~~~~~~~~~~~'LL PAY YOU REAL SOOB }N"~!~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~~~~~~~~ B} ~~~~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~  ~~~~~~~~~ ~~~~~~~ B}'RE IN A HEAP OFTROUBLE BOY!B}~~~~~  ~~~~~~~~__C'MERE SON!PLEASE DON'T  ~~~~~~~~~~~~~~~~~~~~~~B}~~ HURT ME MR. BART!~~~~~~~~~~~~~~~~~~~~~ ~~~~~~~~~~~~~~~|~BLAM.{ B}.  . .....~~~~~** ~~~~~~~~~~~~~~~~~~~~~~~~~~ xx B}|||NEVER bet on an inside straight,and never everB}ҠMESS WITH »~ˠԡyou gotta know when to hold 'emknow wB}hen to fold 'em....know when to walk away...know when to run!B}B}~~~~~~~~~~~ ~~~~~~~~~~~~~~~~~~B}~~~~~~~Ԫԛқ||||||||||||||||@  & H O 68` 6`@AB` BHILV@AB` `ʆҦ`h hh`hhhhhhF}M H &` ` Oм`h hh`hhhhhh֠ H O`h F}hh`hhhhhh8҅ҥӅӭ`BHI VC }xH(d, HD hQh ꭄF}C ?ҢȎҌҭк``Т```ʆҦ`h hh`hhhhhhDN mT+*(mU+ mT+*(mU+L3 .`La38 mT+*(mU+ mT.}+*(mU+8 mT+*(mU+ȱ8 mT+*(mU+ȑ8L 4L4̀L4L4Lu3 .}.IL*4L:4L74L:4Lf3`L>4 mT+*(mU+ mT+*(mU+i mT+*(mU+. }ȱi mT+*(mU+ȑ8̀L4L4LI4 .IL4L5L5L5LC4`L 5_͂.!}L7 mT+*(mU+^̀L5 mT+*(mU+ mT+*(mU+8 mT+."}*(mU+ȱ8 mT+*(mU+ȑ8LA5 mT+*(mU+ mT+*(mU+.#}T+U+ȱT+U+ȑ^̀L6 mT+*(mU+ mT+*(mU+i mT.$}+*(mU+ȱi mT+*(mU+ȑiL>6 mT+*(mU+ .L7L7.%}L5`L7`͔LA7L67LA7L7`LE7 4- 5* 5* 5* 5*АL}7L7Lp7.&} )i )i))͔L8` s) c)` s)? c)mi.'}L 8L8ЧL7?͔L8` s) c)_ s) c)miLt8L8ХL8.(}͔L8L+mM+mJ+mK+mL8L8зL8`L8 4- L&S+R+ &.)}͔L99 &L+mM+mL8 & & & & L& /`Lm9 )L9%PUT .*}DISK WITH PICTURE FILES IN DRIVE19u ?&L9PUSH KEY WHEN DONE!9 ?&S+R+ s& L&L9D:*.?IC9ة &S+R+.+} z&S+R+ ?&R+iS+iI L":L%:L9 L&L.::- ?&LO:ENTER 'D:FILENAME.EXT':8 ?&Lu:OR JUST HIT TO EXIT.,}.:Y ?&L:?: R&S+R+ s&`L: :)L:>: R& :)8͂L  &Ls<Display Master, by.0} Dave ObladP+Q+MIPLN>IMLN>ILLN>P+Q+M` ) 5*.4}L`>>_ ?&L~>1 = RESTORE DISPLAY>j ?&L>2 = INVERT DISPLAY> ?&L>3 = MIRROR DISPLAY> ?&L>4 = SHIFT DISPLAY> .5}?&L>5 = DOUBLE DISPLAY> ?&L ?6 = FOLD DISPLAY> ?&L)?7 = UNFOLD DISPLAY? ?&LH?8 = ROLL DISPLAY 50%?3 ?&Le?9 =.6} WAIT 2 SECONDS?R ?&L?0 = REPEAT FROM STEP 1?o ?&L?? ?&L?- = BACK 1 INSTRUCTION? ?&L?+ = SKIP TO NEXT INSTR.7}UCTION? ?&L?* = DELETE THIS INSTRUCTION? ?&L@= = BEGIN EXECUTION@ ?& : :)LJ@CHOOSE AN OPTION:@8 R.8}& & &I-L~@ͅL~@8I+L@L@/̀L A:L AP+mQ+i8P+e.9}Q+i8MLAP+mQ+iL AL@I*L]AP+mQ+iiP+eQ+i.:}ILZAL]ALAI=LjALmAL)@ L& ) 5*LAA ?&LA$ DOWN KEY WHEN TONE SOUNDSA ?&LAOR WHEN Y.;}OU WANT OPTIONS AGAIN.A ?&LAA ?&LB$ PUSH KEY NOW TO BEGIN TASKS!A ?&L+BL.BLB`L2B X+͂L`B.<}P+mQ+iL:BLxB88766777666878868740BcQ+P+ * }+iI2LQC T1P+mQ+iI3LoC m0P+mQ+iI4LC 1P+mQ+iI5LC 2P+mQ+i.?}I6LC ;4P+mQ+iI7LC ^3P+mQ+iI8LD 5P+mQ+iI9L#D 7P+mQ+i.@}L?DL[DLLDL[DM 5*LB %*JJJJJ)LD ( )ILD P )LDLDL[.A}D )LB``/BAction Computer Services  B JKIHiDiELV`L=$,  Y0 `X<@0  MAKEAUTO.BAS66BY RUSS WETMORE, FOR STAR 0+; DISPLAY MASTER; BY DAVE OBLAD; (c) 1985, ANTIC PUBLISHING ; (NOTE:COMPILE DIRECTLY FROM DISK!) BYTE A=$680,B=$681,JD}X=$682,Y=$683BYTE B0=$684,B1=$685,B2=$686,B3=$687BYTE C1=$688,C2=$689,C3=$68A,C4=$68BBYTE D1=$68C,D2=$68D,D3=$68E,D4=$68FJE}BYTE KEY=$D01F,MASK=$D20A,NOW=$685CARD SCREEN=$690,DLIST=$692CARD PNTR=$694,LINE=$696,HOLD=$698CARD R=$69A,L=$69CBYTE ARRJF}AY RAM,ORG,REV,STP,FILECARD ARRAY DL,SLPROC FIND() GRAPHICS(24) DLIST=PEEKC(560) SCREEN=PEEKC(DLIST+4) RAM=SCREEN ORGJG}=RAM-8000 DL=ORG-400 SL=DL-400 REV=SL-300 STP=REV-300 FILE=STP-40 LINE=SCREEN FOR X=0 TO 191 DO SL(X)=LINE:LINE=JH}=+40 OD DLIST=FILE-1400:DLIST=DLIST&$FC00 X=0 DO B3=X&$03:B3=B3 LSH 6 B2=X&$0C:B2=B2 LSH 2 B1=X&$30:B1=B1 RSH 2 JI}B0=X&$C0:B0=B0 RSH 6 B3=B3%B2:B3=B3%B1:B3=B3%B0 REV(X)=B3 X==+1:IF X=0 THEN EXIT:FI OD D1=PEEK(712) D2=PEEK(708) D3JJ}=PEEK(709) D4=PEEK(710)RETURNPROC MAKE() GRAPHICS(24) FOR X=0 TO 191 DO DL(X)=SL(X) OD POKE(DLIST,112) POKE(DLJK}IST+1,112) POKE(DLIST+2,112) LINE=DLIST+3 FOR A=0 TO 191 DO POKE(LINE,$4E) POKEC(LINE+1,DL(A)) LINE==+3 OD JL} POKEC(560,DLIST):POKEC(54274,DLIST) POKEC(88,SCREEN) POKE(LINE,$41) POKEC(LINE+1,DLIST)RETURNPROC SHOW() LINE=DLIST+JM}3 FOR A=0 TO 191 DO POKEC(LINE+1,DL(A)) LINE==+3 ODRETURNPROC RESTORE() FOR X=0 TO 191 DO DL(X)=SL(X) JN}OD FOR PNTR=0 TO 7679 DO RAM(PNTR)=ORG(PNTR) IF KEY<7 THEN EXIT:FI OD SHOW()RETURNPROC FADE() POKE(712,C1) PJO}OKE(708,C2) POKE(709,C3) POKE(710,C4) FOR X=0 TO 100 DO PNTR=0 DO PNTR==+RAND(60) IF PNTR>7679 THEN EXIT:JP}FI RAM(PNTR)=ORG(PNTR)&MASK%RAM(PNTR) IF KEY<7 THEN EXIT:FI OD OD RESTORE()RETURNPROC REVERSE() L=0 FOR Y=JQ}0 TO 191 DO R=L+39 FOR X=0 TO 19 DO A=RAM(L):B=RAM(R) RAM(L)=REV(B) RAM(R)=REV(A) L==+1:R==-1JR} OD L==+20 ODRETURNPROC MIRROR() FOR X=0 TO 95 DO HOLD=DL(X) DL(X)=DL(191-X) DL(191-X)=HOLD OD SHOJS}W()RETURNPROC SHIFT() PNTR=0 FOR Y=0 TO 191 DO FOR X=0 TO 19 DO A=RAM(PNTR) RAM(PNTR)=RAM(PNTR+20) JT} RAM(PNTR+20)=A PNTR==+1 OD PNTR==+20 ODRETURN PROC DOUBLE() FOR X=0 TO 95 DO DL(X)=DL(X*2) OD FORJU} X=0 TO 95 DO DL(X+96)=DL(X) OD SHOW()RETURN PROC UNFOLD() X=192 DO X==-1:A=X DO HOLD=DL(A) DL(A)=DL(AJV}-1) DL(A-1)=HOLD A==-2 IF A=0 THEN EXIT:FI IF A>250 THEN EXIT:FI OD SHOW() IF X=1 THEN EXIT:FI IF KEY<7 TJW}HEN EXIT:FI ODRETURNPROC FOLD() X=0 DO A=X DO HOLD=DL(A) DL(A)=DL(A+1) DL(A+1)=HOLD A==-2 IF JX}A>250 THEN EXIT:FI OD SHOW() X==+1 IF X=191 THEN EXIT:FI IF KEY<6 THEN EXIT:FI ODRETURNPROC ROLL() FOR X=0 TOJY} 95 DO LINE=DL(191):Y=191 FOR A=0 TO 94 DO HOLD=DL(Y) DL(Y)=DL(Y-2) DL(Y-2)=HOLD Y==-2 ODJZ} HOLD=DL(1) DL(1)=DL(0) DL(0)=HOLD Y=0 FOR A=0 TO 94 DO HOLD=DL(Y) DL(Y)=DL(Y+2) DL(Y+2)=HJ[}OLD Y==+2 OD DL(190)=LINE SHOW() IF KEY<7 THEN EXIT:FI ODRETURNPROC WAIT() FOR PNTR=0 TO 60000 DO J\} IF KEY<7 THEN EXIT:FI ODRETURNPROC MOIRE() MAKE() POKE(712,D1) POKE(708,D2) POKE(709,D3) POKE(710,D4) DO:IF KEY>J]}6 THEN EXIT:FI:OD COLOR=1 Y=RAND(9)+2:X=RAND(9)+2 Y=Y&$FE:X=X&$FE FOR PNTR=0 TO 191 DO PLOT(160,96):DRAWTO(0,PNTR) J^} PLOT(159,96):DRAWTO(319,PNTR) PNTR==+Y IF KEY<7 THEN EXIT:FI OD FOR PNTR=0 TO 319 DO PLOT(160,96):DRAWTO(PNTRJ_},0) PLOT(160,95):DRAWTO(PNTR,191) PNTR==+X IF KEY<7 THEN EXIT:FI OD FOR PNTR=0 TO 7679 DO ORG(PNTR)=RAM(PNTRJ`}) IF KEY<7 THEN EXIT:FI ODRETURNPROC FETCH() MAKE() CLOSE(1) OPEN(1,FILE,4,0) FOR PNTR=0 TO 7679 DO A=GETD(1Ja}):ORG(PNTR)=A OD C1=GETD(1) C2=GETD(1) C3=GETD(1) C4=GETD(1) CLOSE(1) FADE()RETURNPROC GETFILE() GRAPHICS(0) PRIJb}NTE("PUT DISK WITH PICTURE FILES IN DRIVE1") PRINTE("PUSH KEY WHEN DONE!") INPUTS(FILE) CLOSE(2) OPEN(2,"D:*.?IC"Jc},6,0) DO INPUTSD(2,FILE) PRINTE(FILE) IF FILE(2)#$20 THEN EXIT:FI OD CLOSE(2) PRINTE("") PRINTE("ENTER 'D:FILENAMEJd}.EXT'") PRINTE("OR JUST HIT TO EXIT.") PRINT("?"):INPUTS(FILE)RETURNPROC DISPLAY() POSITION(1,18):PRINT(">") POJe}SITION(2,17) NOW==-1 FOR X=1 TO 3 DO PRINT("STEP ") PRINTB(NOW) PRINT(" IS OPT ") POSITION(1Jf}8,16+X) IF STP(NOW)>47 AND STP(NOW)<58 THEN PRINTB(STP(NOW)-48):FI IF STP(NOW)=80 OR STP(NOW)=76 THEN PRINTJg}(FILE):FI IF STP(NOW)=77 THEN PRINT("MOIRE"):FI IF STP(NOW)=0 THEN PRINT("STOP"):FI PRINTE("") NOW==+Jh}1 OD NOW==-2RETURNPROC SETUP() GRAPHICS(0):POKE(752,1) POKE(763,255):POKE(764,255) CLOSE(1) OPEN(1,"K:",4,0) PRINTJi}E("Display Master, by Dave Oblad") PUTE() PRINTE ("Antic Magazine, 8/85") PUTE() PUTE() PUTE() PRINTE("TO MANIPJj}ULATE A ICTURE FILE PUSH 'P'") PRINTE("TO MANIPULATE A OADED PICT. PUSH 'L'") PRINTE("TO MANIPULATE A OIRE SCREEN PUSHJk} 'M'") PRINTE("TO SEE A EMO OF THIS PROGRAM PUSH 'D'") PRINT("PUSH 'P' OR 'L' OR 'M' OR 'D' !") POKE(702,64) A=GETD(1)Jl} IF A#76 THEN IF A=80 THEN STP(0)=A:GETFILE() ELSE FILE(1)=0 FI ELSE STP(0)=A FI IF FILE(1)#68 THEN STP(0)=77Jm}:FI IF A#80 AND A#77 AND A#76 THEN STP(0)=77 RETURN FI GRAPHICS(0):POKE(752,1) PRINTE("") PRINTE("1 = RESTORE DISPLAJn}Y") PRINTE("2 = INVERT DISPLAY") PRINTE("3 = MIRROR DISPLAY") PRINTE("4 = SHIFT DISPLAY") PRINTE("5 = DOUBLE DISPLAY") PJo}RINTE("6 = FOLD DISPLAY") PRINTE("7 = UNFOLD DISPLAY") PRINTE("8 = ROLL DISPLAY 50%") PRINTE("9 = WAIT 2 SECONDS") PRINTEJp}("0 = REPEAT FROM STEP 1") PRINTE("") PRINTE("- = BACK 1 INSTRUCTION") PRINTE("+ = SKIP TO NEXT INSTRUCTION") PRINTE("* =Jq} DELETE THIS INSTRUCTION") PRINTE("= = BEGIN EXECUTION") NOW=1 DO DISPLAY() POSITION(2,22) PRINT("CHOOSE AN Jr}OPTION:") A=GETD(1):PUT(A) IF A=45 AND NOW>1 THEN NOW==-1:FI IF A=43 AND NOW<250 THEN NOW==+1:FI IF A>47 AND A<58 THEJs}N X=253 DO STP(X)=STP(X-1):X==-1 IF X=NOW THEN STP(X)=A:EXIT:FI OD NOW==+1 FI IF A=42 THEN X=NOW Jt}DO STP(X)=STP(X+1):X==+1 IF X=254 THEN EXIT:FI OD FI IF A=61 THEN EXIT:FI OD CLOSE(1) GRAPHICS(0):POKE(752,Ju}1):PRINTE("") PRINTE(" DOWN KEY WHEN TONE SOUNDS") PRINTE("OR WHEN YOU WANT OPTIONS AGAIN.") PRINTE("") PRIJv}NTE(" PUSH KEY NOW TO BEGIN TASKS!") DO:IF KEY<7 THEN EXIT:FI:ODRETURNPROC MAIN() FIND() FOR X=0 TO 254 DO Jw} STP(X)=0 OD SCOPY(STP,"88766777666878868740") DO NOW=1:SETUP() IF STP(0)#76 THEN IF STP(0)=80 THEN FETCH() EJx}LSE MOIRE() FI ELSE MAKE() POKE(712,C1) POKE(708,C2) POKE(709,C3) POKE(710,C4) RESTORE() FIJy} NOW=1 DO IF STP(NOW)=48 THEN NOW=1:FI IF STP(NOW)=49 THEN RESTORE():FI IF STP(NOW)=50 THEN MIRROR():FI IF STPJz}(NOW)=51 THEN REVERSE():FI IF STP(NOW)=52 THEN SHIFT():FI IF STP(NOW)=53 THEN DOUBLE():FI IF STP(NOW)=54 THEN FOLD()J{}:FI IF STP(NOW)=55 THEN UNFOLD():FI IF STP(NOW)=56 THEN ROLL():FI IF STP(NOW)=57 THEN WAIT():FI IF STP(NOW)=0 THEJ|}N EXIT:FI IF KEY<7 THEN EXIT:FI NOW==+1 POKE(77,1) OD DO A=PEEK(20):B=A RSH 5:B=B&1 IF B=0 THEN SOUND(0,J}}40,10,8):FI IF B=1 THEN SOUND(0,80,10,4):FI IF KEY<7 THEN EXIT:FI OD SNDRST() ODRETURN BYTE A=$680,B=$681,HdTO STAR :LN :COLRSETPC 1 :COLRREPEAT 36 [RT 170 FD :LN]ENDTO MAIN :COLRHOMESETBG RANDOM 16CLEANFS HT PU FD 90 PDMAKN}E "LN 180STAR :LN :COLRMAKE "COLR :COLR + 1IF :COLR = 16 [MAKE "COLR 1]MAIN :COLRENDMAKE "LN 180S HT PU FD 90 PDMAKLi|zFGTCNN R} -@ @t+6-@ 6-6@,6-86-@yD6-AP6-\6-AR}h6-@yt6-3 -6-%@'!@36-@(#,@9@/# 23 -R}6-%@'!@36-@</,@9@/# /@Fz6-6@6-@(6-@yR}46-@6-L6-AX6-d6-p6-@z @0Pm-@@3-@AR}@?AS6-@#@W [ mAZ'6-@`6-AP'6-@d5 -A`R}--@@1 5 nW6-AP6-@`(6-6@66-%@W'@"P:'@,AxR} @@   %D:DEMO P+048 T6 D AXLPB0NZ<( ((@ @d"( L ؘHDID)D)DК E_dLAL!LK"L!L L LQ`QJiJK`)pRC) RCL L} )RC) RCL п` !D)E)E` "D)D` "D  "D "D)L! "D } "D)>L!D)L!D г "`D L#B B "L"P`B)`) Bx # ҅X g$ "ݭB B " #}B B`B B "B B #`!") Q k$`RSD)!  {# g$PR "SRL" $L"R }R  "D LAQRSD) OR "Lx" "SRD DL P O$)5ӍPxIR $IX O$}## 2$ +#P(NQP=ӭB) B)"#B8`M`=ӭB)B`<E)EM`,D`MQ`O`M}OQB)B=Ӡ`x #DQ% ҅X` ; U -2 p2ҍ ҩxҢ ҍ` {# #q#} #w# ӭ#$`x# #)ө%Ң}X`I&$'x \NX`N`x ]$X +#` ` 2$ +#N`JJ`R)R`Ș@`ҍҍҍҍҍ}TR$8)H) %X %YhJ)%Z%[$%x % %(@`  a'+0`^U,T }%JJJJ %]W,V %) %m]m\)<^0 _ JJ _` &آT}XTU}YU^I^0`Ж` & ԘJJJJ  ԍҘ) } ԍ`)%@%`I`!!222BCCSSTdd%&dtuu2}L     ɢ ?Jb&JJJJ)]%)]%%L"33DEUffww}&'}TE '` '[QUK F ɛL ~;$% !z *0:H 'ɀh L<'}ʽ,e,e` Jn- q ` Jt- q '(&'/(Sʍ01ȱ}p*p Gȩp44)?Ң794Lq44 4L \`).}(YZ@ ҩb \Lb`hKc!^zBJhHmjhe"U~^ 4    OKiiLI555-5555,,221121, Madrona Marsh 1-213-212-6414 1 Collector 1-213-42"}8-5971 1 Magic Castle 1-213-658-7378 1 A.B.A.C.U.S. 1-415-587-8062 1 CompuServe 1-415-956-428"}1 0 B.U.G. 1-208-383-9547 1 Atari Express 1-305-961-5221 1 The Asylum 1-305-937-1880 "} 1 -5555,,221121, Madrona Marsh 1-213-212-6414 1 Collector 1-213-42 hereader, to personalize and enhance.Good luck, and ENJOY! -ANTIC EDich we encourage you, tTf