@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 D4u  *HZAFILE'@2@;@ ,;B,##@@K: AV} ##(}Š٠ƠŠ(&&@@D:*.*@#'6-%@"@W}' A(1 ( 17@<@,4FREE@`2 @0<$( ( (ȠŠϠ$A!!(}PLEX}ASE HOLD, LOADING F,(@@@,%)( ERROR - (F:A,) A 1$(Ӡ٠Y}٠Ϡź1)@#@@# @7F:A,"Ap4(ΧԠĠԠš7$<}# +@%@-(@-(@ 箮$(@(@$(@8A [}A48(@ scat PUBLIC DOMAIN !+(@+(@ ˠ#+(@+(@ }G) !"`3!3""(ŠŠƠŠŠH)@R) @In})!@W(}) A\a A3pa&@HAAPA AApA@AA@o}##@@K:%"(ծӮĠϠà%($($(1. INCHES TO CENTIMETERS(2. FEET TOp} METERS(3. MILES TO KILOMETERS(4. POUNDS TO KILOGRAMS(5. OUNCES TO GRAMS(6. QUARTS TO LITERSq}(7. GALLONS TO LITERS))(!8. DEGREES FAHRENHEIT TO CELCIUS$%((9. [RETURN TO MENU]"(%(.""(Šr}ŠƠŠŠ8)@B) @I)!@W(}) A La A3pa&@HAPA AAs}`A 0A!A"AA!@& (ӠϠӠ#(&(!(HOW MANY CENTIMETERS!0(0(t} CENTIMETERS = $?9 INCHES A3 A(ӠϠԠ(((HOW MANY METERS(u}&&( METERS = $@( FEET A3 A($(ӠϠӠ!($(P (HOW MANY KILOMETERS v}d.(.( KILOMETERS = $?b MILESn A3 A`x$(ӠϠ !($((HOW MANY Kw}ILOGRAMS.(.( KILOGRAMS = $@  POUNDS A3 A0 (ӠϠӠ( ((HOWx} MANY GRAMS(''( GRAMS = $?P OUNCES A3 A!(ӠϠӠ(!("(HOWy} MANY LITERS(6((( LITERS = $@g QUARTS@ A3 ApJ-'(ӠӠϠԠ*(z}-(h(DEGREES CELCIUS(|55( CELCIUS = $@%@2 FAHRENHEIT A3 A@"({}ӠϠӠ("((HOW MANY LITERS())( LITERS = $?&Au GALLONS A3 A# (|}ӠϠӠ#(((HOW MANY INCHES0(0( INCHES = $@T CENTIMETERS A3 A}}(ԠϠӠ((:( HOW MANY FEET(N&&( FEET = $?0H METERSX A3 APb~}$(ӠϠӠ!($((HOW MANY MILES(++( MILES = $@` KILOMETERS A3 A} $(ӠϠӠ!($((HOW MANY POUNDS(++( POUNDS = $?E KILOGRAMS A3} A (ӠϠӠ( ( (HOW MANY OUNCES( ''( OUNCES = $@(5 GRAMS* A3} A `4!(ӠϠӠ(!(\(HOW MANY QUARTS(p((( QUARTS = $?` LITERSz A3} A!@& (ԠϠӠ#(&("(DEGREES FAHRENHEIT"(??( FAHRENHEIT = @'@ }$+&@2, CELCIUS A3 A""(ӠϠӠ("( (HOW MANY GALLONS ())( G}ALLONS = $@xP LITERS A3 A"C(ӠϠԠ(((HOW MANY INCHES(&&( }INCHES = '@ FEET  A3 A" (ԠϠӠ((. ( HOW MANY FEET(B %%( FEET }= '@ YARDSL  A3 A#PV -'(ŠӠϠŠԠ*(-(t &(HOW MANY SQUARE INCHES#}&( 44( SQUARE INCHES = 'AD SQUARE FEET  A3 A$  ,&(ŠԠϠŠӠ)(,( $}(HOW MANY SQUARE FEET!$( 33( SQUARE FEET = '@  SQUARE YARDS  A3 A$ (ԠϠ}Ӡ(( ( HOW MANY FEET( %%( FEET = 'AR MILES  A3 A%`( %(ŠԠϠ}Ӡ"(%(F $(HOW MANY SQUARE FEET!$(Z ,,( SQUARE FEET = 'B5` ACRESd  A3 A&0n %(}ӠϠŠԠ"(%( (HOW MANY ACRES( ,,( ACRES = $B5` SQUARE FEET  A3 A'} )#(ӠϠӠ&()( "(HOW MANY TEASPOONS"( 00( TEASPOONS = '@ TABLESPOONS } A3 A'p $(ӠϠӠ!($( $(HOW MANY TABLESPOONS!$(, ++( TABLESPOONS = '@} CUPS6  A3 A(@@ %(ӠϠĠӠ"(%(^ ( HOW MANY CUPS(r ,,( CUPS = $@} FLUID OUNCES|  A3 A) (ӠϠӠ(( ( HOW MANY CUPS( %%( CUPS = '@} PINTS  A3 A) (ӠϠӠ(( ( HOW MANY CUPS( &&( CUPS = '@} QUARTS  A3 A0P (ӠϠӠ( (0 (HOW MANY PINTS(D ''( PINTS = '@} QUARTSN  A3 A1 X !(ӠϠӠ(!(v (HOW MANY PINTS( ((( PINTS = '@} GALLONS  A3 A1 "(ӠϠӠ("( (HOW MANY QUARTS( ))( QUARTS = '@} GALLONS  A3 A2` @ ##@@K: -( (-(ŠΠӠĠ}ݠ )@ !!@x*@A3  *"@x@ (}* @ "@($* @}(}$##@@K:$(àؠԠ!($($!(PREFIXSYMBOLMEANING$(}$$(teraT1,000,000,000,000$$(gigaG 1,000,000,000$$(megaM 1,000,000(kilok} 1,000(hectoh 100(dekada 10(decid .1(centic .01(}millim .001%%(microu .000 001$$(nanon .000 000 001$$(picop .000 000 00}0 001++(femtof .000 000 000 000 001**(attoa .000 000 000 000 000 001$( ( ($(PRESS 0 FOR })@@HAQ A3p @P' +@'0@Z--@@-}(@ CONVERSIONd+-@@+(@PROGRAMSn-@AP xZ-@@5(@}BY ARTHUR A.NEVOLAI-@AM W+Z$ D:COVERT.BAS A Nk5JQQQQQQQQQQQ1Q1Q1Q1Q1Q1Q2Q2Q3Q3Q3Q4Q7Q8Q12Q25Q50Q53Q55Q55Q70Q71Q71Q75Q76Q84Q}99Q100WAIFILECFALINQ1@@@@@@@@ @ } @ @ @ @@@@ @"@0@1@4@C@u@A%AU}AA5AUAYA A A!AR"Ad#AB$A %A&A '()"}*B2y+AU,-./@0@12@3@45678}9 ;;""kk0,1,2,3,4,5,6,7,8,9,10,11,}12,13,14,17,20,22,30,31,34,43,75,82,125,255,500,535,555,559,709,710,712,752764,842,999,1000. +%((.( } #( disk catalog (( -( 2( } 7( <( CLARKSVILLE,TN.A,( (-$, F;},;,;,KR  +%6-B2y-7(PROGRAM OPTIONS=-R( file makerLN -(-!(}'-0(6-?(E-N(P: -( file finder$-:( exit programU3 -(}-3(PRESS FOR ZC -#(PRESS FOR )-C(PRESS FOR _ 6-F:,F:,")"} $dF:,")" &iF:,")"%n %s#"x  %} %%( &I -}-(type number for kind of listing3-C( 1 file nameI-O( 2 disk number-1(3 cataloged disks9-%O}(4 program options 6-F:,")" $ "%(>:,  "% $ %  " $I}$(type in name of desired file(.-A(I'm looking...I $%4$(type in disk number desired(."4 $}#%+%,$! "4 END OF DATA! E*4 -=(SORRY I COULD NOT FIND DISK ''E $%8 "6}-%"2( 7<,/ USED8 %3 4* (>:,--(I'm looking...36.E "%-3(I'M GOIN}G TO CLEAR THE SCREEN;-? E6-4 46-%-4(  IS ON DISK # - !6-!%6-%'}!%-6- -%" $& "( ' "* %(6-%'6-%? "*  %(6-%}'6-%-"396-?-E ""(  %6-%-6-%3"9?6-E-I "6-}6-!-I(#ŠӠŭϠԠӠ% "6-F:,"(>:,% $ " $ $ " $}%C "*"-;(SORRY I COULD NOT FIND DISK ''C $% = -1( Disk #  7}=U "*0-0(I COULD NOT FIND ''3(U( PLEASE RECHECK YOUR DATA+ -+(Another }disk? Y/N' -%"'(another file? Y/N"" 6-F:,"*" " $%' "*  $, "% 1 } $&6 ;K +%-+( IF new file1-K( IF update@F -F(5IF UPDATE PL}ACE DISK WITH 'filename.lst' IN DB% -%( FOR options E 6-F:," $&J "6- $}L "% O %&T#"Y  $&^ %%(cB +%-B(% } hS -(put disk in %-:( when prompted@-S( type disk m5 -( } #-5( WHEN READYr 6-F:,"  %%w %&|H  - (if done type 0&-;(and pres}s RETURNA-H( -( change disk B -!(type number of disk'-<(and press RETURNB- }" &+%, "(>:,-5 ")-%+%,$%%+%,$%%-(1 5 / 6-%+%,$6-/}D1:*.*& (>:,-( DATA &-1 7<,4FREE)(,,01 $%/ (,-!}7<,0 +(7<,/ 7<,0 (.& -7<,0 "(7<,& (,7%<,# (,"(}~#ESC DELETE "  6-% &+%,  %=  -!(a new file will'-=(be written }to D1.[ -(be sure the disk$-9(has enough room.?-[(press RETURN when ready 6-F:, &+%,}I (>:,-I(LIST>:,D1:FILENAME.LST>:,,,$   U -U(Aa file 'FILENAME.LST'} has been Ġ on this disk. (-  9  +%!-AF39}E'6-F:A`,%F:Aa,$AV%1&&9-A%E < - (disk directory&-9( }<$9  +%!-AF39E'6-F:A`,%F:Aa,$AV%1&&9-A%}E  < - (disk directory&-9( <$B (>:,-B(ENTER>:,D1:FILENAME.L}ST>:,( ( ((CONT-  &! &$+D (>:,6-6-6-"6-(6-.6-66. >6. D}6-0,+%%#),$: 6-6-&?  -%%% %D  $-%% %}I-%%%N$X4 6-(>:, &-1( 4(] #%$$b" " %&eF:%,%}((g ( 6-% $%l% -%%(Press RETURN for menuq 6-F:, %v %{H  -3(!Stand} by while I load the file...;-? E &H$u999,END OF DATA,-1 D:DISKCAT.BASQ55Q70Q71Q71Q75Q76Q84Q_F:A,"A09(Š٠Šš<$0F:A,"A8-(ΠŠΡ0$5F:A,"AD }-.uOUPIDIVOPLPLPLDLDLDLVLVLVLTIM@IA@@@2} A@2?#@@K:5AR@? B} @ B M@(8}Do you want listings to the screen (1)or printer (2)?M)@A"@P/@}@P:AAR@A"@I/@@E:AAR@H( }What pit}ch/(What distortion3D( What volumeH2C"(}Do you want any loops?/)@C@AF?}(}Want a pitch loop?+)@?@A Z0( ( (Pitch loop - from$,(to0nS (step}" (F(!0 CANNOT BE USED AS A STEP VALUE!I(S AxD#(}Want a distortion loop?0)@D@}Ap5( (%(Distortion loop - from)1(to5S (step" (F(!0 CANNOT BE USED AS A STEP V}ALUE!I(S A`@(}Want a volume loop?,)@@@A01( (!(Volume loop - from%-(t}o1S (step" (F(!0 CANNOT BE USED AS A STEP VALUE!I(S A*(*(A0*(*(}A*(*(A0**(A**(A**(A " A0,a2'-}@A+ .(1(W(!This was for sound with no loops.a A1"@A6G@(:(#Do you }want to see the values used?G)@7@Ap8V(@$(@Pitch=?(@ Distortion=}V(@Volume=@ A ApJE (}-#2' 1 AE"@A0h A} Ap|E (}-#2' 1 AE"@A A ApE (}-}#2' 1 AE"@A0 Af%2@(}Want another sou}nd?M)@Y"@\f @ @,($}The pitch loop is the inner loop.6-@-92}  % A9"@A A&E1()}The distortion loop is the inner loop.;-E-}092  % A9"@A@N A Apb@,($}The pitch loop is the inner loop.}6-@-l92  % A9"@A AA-(%}The volume loop is the in}ner loop.7-A-92  % A9"@A` A ApE1()}The d}istortion loop is the inner loop.;-E-92  % A9"@A  A}A-(%}The volume loop is the inner loop.7-A- 92  % A9"@Ap* } A Ap>OO(G}The pitch loop is the innermost loop, the volume loop the outermost.H! --!-}R=2   ) A="@A0p AzTT(L}The volume loop is the innermost lo}op, the distortion loop the outermost.! --!-=2   ) A="@}A ATT(L}The distortion loop is the innermost loop, the pitch loop the outermost.! --}!-=2   ) A="@A P AUU(M}The distortion loop is the i}nnermost loop, the volume loop the outermost.! --!-=2   ) A="}@A$ A.NN(F}The volume loop is the innermost loop,the pitch loop the outermost.8! --}!-B=2   ) A="@Ap` AjSS(K}The pitch loop is the inne}rmost loop, the distortion loop the outermost.t! --!-~=2   ) A="}@A0 A Ap_%2((+(O(Do you want to hear that again?\)@}_$P(.(#Do you want to see the values used?;)@>(A(M@P$;1(@Pitch= to } step ; AP(@Pitch=@6(@ Distortion= to  step @ Ap(@} Distortion=<2(@Volume= to  step < A(@Volume= C-@@ 3}(Ӡ٠٠Ϡ@)@C$'. (}-@.(Ġ'nn(eThis program allows you t}o set up complicated sounds using loops in the pitch, distortion, 'gg(^and/or volume of a sound. Each loop will} be set up in every possible combination so that you'dd([ can pick the sound you like best for your application. After a}ll var- iations have been 'bb(Yplayed, you will be given a listing of how the sounds were achieved, to your printer }$'dd(\if you so specify. You can then use the sounds you have built in your own programs.)'D-@@"4(}Ӡ٠٠ϠA)@D$*Q:(ERROR #F:A,--PRESS ANY KEY TO TRY AGAING)@Q @ }D:SOUNDEFF.BASVOPLPLPLDLDLDLVLVLVLTIM@IA@@@212 MLDUMMYWORKHNEHOLTESTPMPAGPMBASDRIV,HL  }@E H @@ B@ @ d,+"A @, AnV6-?:C:,&6-P:A6'+'@2,,&Aq2 @>6-@! }@56-@586-@%6-$@%@R+ 86-6@=AA+ @)!@=A }@pJ -B2H-B2I%@1 76-C-@J(w"-&@6@.- }@<(>:@,@ ^-%@@5@j-@s( w  A* INITIALIZATIONi1;@r },;@,;A(,;@2,]6-P:+F:AE,%@,'@,$@iBByoAY@F'B2w }@56-$AVI-@@rM"Y67,.>:,] oA;-%Ap%At"%) ;!}B2H@$;-%A%A"%) ;B2I@2u-@@"'67,.>:,+ =AR!}@O-@@u(!̠=-@@=(#!};-@@;(!275 280 285 290 295 300 305s Ap-@@K:?-@@\!}(Which drive (1-4)? i)@s B:@6-&@H: @)!@Ap"uAi!!}Ap@3ArEAsAUWAx@iAyu6-@$,W6-?:C:,,$F:Aq!},@6-@@M(W Ap6i-@@-( Testing Drive # ?-@@!}_(Press START to change drivei A@* M/L ROUTINEJ]]104,104,141,5,3,104,141,4,3,104,133,204,104,133,203,216,16!}9,0,133,212,133,213,32,83,228T__169,31,133,205,169,0,133,20,32,83,228,165,20,164,205,145,203,136,48,10,132,205,173,31,208!}^TT201,6,208,231,96,160,31,24,177,203,101,212,133,212,144,2,230,213,136,16,242,96h * SHELLr12,30,63,127,255| *! } HEAD160,64,64,64,192,192,192* TEST ROUTINE104,76,83,228 D:SNAIL.BAS  ^  ,kSTARBYTBC6BGA@d************************n* STARS 3D DEMO *x* % } BY CRAIG PATCHETT ** ANALOG COMPUTING #16 *************************6-BC6* $3800 HEX-% }%Aw"   6-?:,VV32,49,56,32,145,56,169,0,141,200,2,169,7,162,56,160,38,32,92,228,169,253,141,0,% }2XX169,56,141,1,2,169,192,141,14,212,76,35,56,32,13,57,169,0,141,173,63,76,98,228,169__189,141,189,62,169,59,141,205,%}62,162,0,142,221,62,232,189,188,62,24,105,48,157,189,62,189``204,62,105,0,157,205,62,169,0,157,221,62,232,224,16,208,229,%}169,189,133,204,169,59,133,205__160,255,162,3,169,0,145,204,136,192,255,208,249,202,240,5,230,205,76,106,56,162,0,189,189%}bb62,133,204,189,205,62,133,205,169,64,160,0,145,204,232,224,16,208,235,96,169,119,133,204,169\\57,133,205,169,0,141,%}173,63,160,3,169,206,145,204,200,208,2,230,205,173,10,210,41,7,72``170,189,111,57,174,173,63,157,237,62,104,238,173,63,10%},170,173,10,210,41,63,201,48,176,247__24,125,189,62,145,204,200,208,2,230,205,189,205,62,105,0,145,204,200,208,2,230,205,%}192,67"``208,189,169,65,145,204,200,169,119,145,204,141,48,2,200,169,57,145,204,141,49,2,169,35,141,ZZ47,2,96,174,173,6%}3,189,237,62,141,10,212,141,22,208,238,173,63,64,162,13,32,50,57,326WW50,57,162,12,32,50,57,32,50,57,202,48,17,222,87,57,2%}08,248,32,50,57,189,99,57,157@^^87,57,76,29,57,96,189,189,62,133,204,189,205,62,133,205,188,221,62,177,204,10,10,145,204J%}SS144,15,169,1,136,192,255,208,2,160,47,145,204,152,157,221,62,96,8,8,6,6,4,4,3TKK3,2,2,1,1,8,8,6,6,4,4,3,3,2,2,1,1,34,3%}6,38,40,42,44,46,34,112,112,240 D:STATS3D.BASd************************n* STARS 3D DEMO *x* $5GrTEXTADDLOBYTNVAHd## by Charles Bachandn)};@ ,6-Ad }DEFAULT RESETTER  A"     6-F:,   )}   庠  A6-: )!AU 0 ԠƠš: APA)}i%@(%@AA(6-P:'AV,%@&$AV)%@6-%@) A@)},&@v&%@F:@,@%@F:@,J6F:@ ,"*@ @6@T*)}@A('@@* ^1. &PRESS ͠Ԡ TO ENACT CHANGES1address label------- -----)}82,Left Margin83,Right Margin708,Setcolor 0709,Setcolor 1710,Setcolor 2&711,Setcolor 30)}712,Background color D:DEFAULT.BASd## by Charles Bachandn(*23C*CTIMEWNTYPENAMEZTFLAWHICDMYMMTHETLONLLALPHDELTSTSSTSTRSTTTGSLSJCON-!}TGMTEOMEGEANMLVRPHLRRRSSLAEAMMAALLPNLALBALPHADELTADLDLALPHADELTAPPPDELTADHALPH-"}A1DELTA1ALPHA2DELTA2ST1ST1ST2ST2DHMDDMMYYDDMMYYBB   -#}A% @ @ @ @ @@@C@B@&A)@W-$}@C333@5@"@"6 @!"@(6Y#$@!(0G%-%}&'%E(@6Y)@(6Y*CDVP+?X",A "Yv-@@$.@#e/@"6012345-&}6789:;<=>?@@A@YB@"C@WDE-'}FGHIJKLMNOPQRST-(}UVWXYZ[\]^_`abcd-)}ef@5Hghijklmnopq%%OBSERVATIONA-*}L ASTRONOMY PROGRAMBY JOHN GODBEYBASED ON FORMULAS INPRACTICAL ASTRONOMYBY PETER DUFFETT-SMITH `<-+};@,;@,;@,;@,;@,H6-T6-`6- L+@%@ @1-@-,}@L @ OBSERVATIONAL ,-@@, @ ASTRONOMY w-@@*(@PROGRA--}M<-@ @L(@BY^-@@w(@ JOHN GODBEY/-@A% %+/ @-.}[0@@@70@@Q0@@@[ @7(}ҠҠҠ3-/}-@A 7  @'!(} WHAT DO YOU WANT TO DO?$('(A;(31. GET INFORMATION ON OBJECTS IN THE SOLAR -0}SYSTEM?>(A(<6(.2. GET INFORMATION ON DEEP SKY OBJECTS?9(<(E?(73. GET INFORMATION ON ONE OBJECT OVER A PERI-1}OD OF TIME?B(E(7( Ҡ7 @)!@@ApAA @(9 @@-2}(}6(ENTER THE DAY, MONTH, AND YEAR9 )<+ "FOR WHICH YOU WANT DATA (DD,MM,YY)36(<-*y7!@1)-3} @) @)!@) W(}ԠԮ٠k-@Ao y @@+ , --0 -4}@E- WHAT WILL BE THE OBSERVER'S0 .% GEOGRAPHICAL LATITUDE"% /n 6@)!@L(-}ŠԠ-5}ŠΠĠ`-@Ad n @E0 @H1) & WHAT WILL BE THE OBSERVER'S) 2-- -6}%LONGITUDE? (IF THE LONGITUDE IS EAST,3. * ENTER IT AS A NEGATIVE NUMBER).4l 6A)!AJ(+}-7}ԠŠΠĠ ^-@Ab l @I5/ @S , IN WHAT TIME SHOULD THE/ 6,, $DAT-8}A BE EXPRESSED (GMT,EST,CDT,etc.)78$ZDISABLE BRK KEY[G6-F:@,!A',6-&A(8@D-9}B7tG$bdGGSUBROUTINE DETERMINES NUMBER OF DAYS IN YEAR TO THE SELECTED DATEn4+'@,"P:'@,*6--:}@b4 A p6-@cx!@ AP$$6-P:++&@,$,'@,% A`""6-P:+%@-;},$@0`,&%$77SUBROUTINE DETERMINES ECLIPTIC COORDINATES OF SUNK @A6-6Ae$+@&,&P:+@-<}&,'@,%K A0<<6-Ae$+&@,%P:+&@,'@,%%@6-+A`'Ae$",$ -=} AA` A!A` Ar A6-&A`A` A ->}Ar6-%A`" A, A66-%Ax5@&AYd@ 6-%A`AJ&-?}&6-+A`'@p,$?g$G:,T6-%%Ax5@6-Y!A`6-&A`^$RRSUBROUTINE CHANGES -@}ECLIPTICAL COORDINATES TO RIGHT ASCENSION AND DECLINATION6-@#D 6-E:,""6-G:,$E:,&+G:,'E:,$G:,,-A}6-D:', 6-G:,$E:,%E:,$G:,$G:,6-D:'M:6$%@,,#*# Au#*-B} # A# *# A'!* @'6-%A) 6Ap*!6A`)6--C}&A A) 6@*!6A)6-%A'!A* Ap'6-&A A'!@-D}* A'6-&A) 6A*!6Ap)6-%A A( *!6@(6-%A-E}'!Ap* A`'6-&A 6-%A`6-'@$22CONVERTS DECIMALS TO HOURS, MIN-F}UTES, SECONDS 6-P:,6-P:+&P:,,$@`,666-@`$++&P:,,$@`&P:+&P:,,$@`,, 6-P:,$-G}X::SUBROUTINE CALCULATES RISING AND SETTING TIME OF SUNY6-@b Al 6-6-v6-%?VG A-H} A+!@$6-&@$+6-&@$+!@$6-&@$+6-&@$!!6-+@$$,'+@$-I}%&,!!6-+@$$,'+@$%&,!@$6-&@$!@$6-&@$6-$3-J}3SUBROUTINE CALCULATES RISING AND SETTING TIME Ae 6-+6G:,'E:,,$+G:,'E:,,2@(+!@-K}) 6@,2 Ae2!@%  DOESN'T RISE.('2 A4 6@'( IS CIRCUMPOLAR*'4 A-L}//6-+6D:'M:6$%@,,%@,'@6-@$%& 6-%"@$!@$6-&@$-M}!@$6-&@$$I'(ŠҠԠ͠I(ӠȠŠL)(!ԠӠ-N}Πή٠ΠL(ŠҠŠҮ(-@A '( @ GGSUBROUTINE CONVERTS L-O}ST TO GST, GST TO GMT, AND GMT TO LOCAL TIME*6-'@%4 6-%@$>!@$6-&@$H-P}6-@&P:+A%,'A,%P:+P:+A%,'A,'@,,%P:Ae%$+A%,,%P:@0`$+@%@,,%C-Q}r PR6-+&CAP ,'Be%\))6-@d`e`%+A$`$,%+=%$$,f6-@$&%+@$$,p6-?W $&z-R} 6-@$% 6-& 6-@$%6-?rp$ 4EST6-6@ 4CST6-S}-6@ 4MST6-6@ 4PST6-6@ 4EDT6-6@ 4CDT6-6@ 4MD-T}T6-6@ 4PDT6-6@ 4GMT6-% -% %6-%@$ A$LQ-U}QSUBROUTINE CALCULATES RISING AND SETTING TIMES OF PLANETS, AND THEIR PHASESMV"4END' Ar`" "-V}"""""j6-+A`'Ae$",$'t'!A`6-&A`' A@~ 6-%&$$6-%+A`'@-W}p,$$G:,%'!A`6-&A`' Ap' 6-%A`' A 6-&**6-+,$+@&$,-X}'+@%$E:,,%%6-+A`'Ae$",$+'@@,6-%@5@&AYd006-%+A`'@p,$?g$G:,%@5-Y}@!A`6-&A` 6-%A`6-&AYd886-+@&?g$?g,'+@%?g-Z}$E:,,6-G:&,$G:,6-D:'M:6$%@,, 6-+G:&,,$E:,6-E:&,6-D:',F#*-[}# AuG#* # AH# *# AK'!* @'6-%AL-\}) 6Ap*!6A`)6-&AN A_) 6@*!6A)6-%A`'!A* Ap'6-&-]}Ab Ai'!@* A'6-&Aj) 6A*!6Ap)6-%Al Aq( -^}*!6@(6-%Ar'!Ap* A`'6-&At 6-%A`u 6-%6-$E:,v%-_}4MERCURY)4VENUS% Aw,"6-D:$G:&,'+&$E:&,,,%, A x6-$G:&,'+&$E:&,,} 6-D:,6-A-`}%%' 6-%A`' A '!A`6-&A`' A%++6-P:A$+@%E:&,,'@-a},,,6-D:++$G:,'E:,,$G:&,,'+$G:&,,, A A%"@6-% Ar - -b}A -- - A --$!! HMHM APPMERCURY,0.24-c}085,231.2973,77.1442128,.2056306,.3870986,7.0043579,48.0941733NNVENUS,.61521,355.73352,131.2895792,.0067826,.7233316,3.39-d}4435,76.4997524PPMARS,1.88089,126.30783,335.6908166,.0933865,1.5236883,1.8498011,49.4032001TTJUPITER,11.86224,146.966-e}365,14.0095493,.0484658,5.202561,1.3041819,100.2520175SSSATURN,29.45771,165.322242,92.6653974,.0556155,9.554747,2.4893741-f},113.4888341RRURANUS,84.01247,228.0708551,1727363288,.0463232,19.21814,.7729895,73.8768642XXNEPTUNE, 164.79558,260.35-g}78998,47.8672148,0.0090021,30.10957,1.7716017,131.5606494@@PLUTO,250.9,209.439,222.972,.25387,39.78459,17.137,109.941 -q}B'DOS SYSB*+DUP SYSBUMENU SYSBZINTRO B\AUTORUN SYSBA]CONVERT BASB.DISKCAT BASB+SOUNDEFFBASBSNAIL BASB STARS3D BASBDEFAULT BASB ASTRON BASB/DISASM BASBMFONT BASB-SPOOLER BASBBSDUMP BASB6]ACCUPRNTBASB7PAINTER BAS END MOON6-@ Ae -6-@c`$%@dTd'!A`6-&A`' A ' -r}6-%A`' A 6-&?$&AI80c'!A`6-&A`' A %' 6-%A`-s}' A 06-AQ)&?)S$((6-@'9$G:@$&@$&, 6-?X$G:,6-%&& 6-@(-t}$G:,*6-?!@$G:@$,46-%%&%> 6-?e$G:@$+&,,H 6-%I++6-P:A$+@&E:&-u},,'@,R6-&?$G:,\6-G:&,$E:@S,a6-E:&,f6-D:',g#*# A!uh#-v}* # A!i# *# A!k'!* @'6-%Al) 6Ap*!6-w}A`)6-&An A!) 6@*!6A)6-%A'!A* Ap'6-&A A!-x}'!@* A'6-&A) 6A*!6Ap)6-%A A!( *!6@(6-y}-%A'!Ap* A`'6-&A 6-%6-G:&,$G:@S,6-D:'M:6$%@,, --z}- A --6-?$E:&,6-?U%?$E:,6-%$@6-%$@ A-{} --6-D:?fG$G:,'E:,,6-?fG$G:, 6-E:,::6-+@&?I$?I,'+@%?-|}I$E:%,, 6-@`&"$ 6-+%,'@ 6-6+G:,'E:,,$+G:,'E:,, %%6-6D:'M:6$%@,,%@$ ##6-}}-D:+$G:,,'+$E:,&$E:,,,) 6-%. 6-'@8 6-&: 6-$G:,&; 6-'+$E:,$E:,&,< 6-$E:,=-~} 6-D:,L 6-&M 6-$G:,&N 6-'+$E:,$E:,&,O 6-$E:,P 6-D:,V  -- A[  --}-`  -- Ae  --f +!@$6-&@$+6-&@$g +!@$6-&@$+6-&@$-}j !!6-+@$,'+@%&,o !!6-+@$,'+@%&,p !@$6-&@$q !@$6-&@$-}r 6-t  - Ay  --~  - A  -- $EECALCULATES RISING AND SETTI-}NG TIME OF SELECTED DEEP SKY OBJECTS 6-"4END AY" ""''6-P:,%+A,$+&P:,,'@`-}''6-P:,%+A,$+&P:,,'@` A - A -- - A ---}$RM31,SP. GAL.,0.40,41.00T!!NGC253,SP. GAL.,0.45,-25.34VM33,SP. GAL.,1.31,30.24XM76,PLAN NEB,1.39,51.19Y-}NGC752,OP CLUS,1.35,37.25ZM34,OP CLUS,2.39,42.34\M45,OP CLUS,3.44,23.58^HYADES,OP CLUS,4.17,15.31_M38,-}OP CLUS,5.26,35.48`IC434,DIF NEB,5.39,-2.26bM1,NOVA,5.32,21.59dM42/43,DIF NEB,5.33,-5.22fM37,OP CLUS,5.49-},32.33hM35,OP CLUS,6.06,24.20jNGC2237,DIF NEB,6.30,4.54kM50,OP CLUS,7.01,-8.16l!!NGC 2392,PLN NEB,7.26,21.0-}1mM46,OP CLUS,7.40,-14.42nM47,OP CLUS,7.34,-14.21p!!NGC2438,PLN NEB,7.40,-14.36r!!NGC2440,PLN NEB,7.40,-18.05-}tM44,OP CLUS,8.38,19.52vM81,SP GAL,9.52,69.18xM82,GAL,9.52,69.56z NGC3227,SP GAL,10.21,20.07|""NGC3242,-}PLN NEB,10.22,-18.23~M97,PLN NEB,11.12,55.18M106,SP GAL,12.17,47.35 NGC4565,SP GAL,12.34,26.16M104,SP G-}AL,12.37,-11.21M64,SP GAL,12.54,21.57""NGC5139,GL CLUS,13.24,-47.13M51,SP GAL,13.28,47.27M3,GL CLUS,13.-}40,28.38M5,GL CLUS, 15.16,2.16 NGC5907,SP GAL,15.15,56.31M4,GL CLUS,16.21,-26.24M13,GL CLUS,16.40,36.3-}3M12,GL CLUS,16.45,-1.52M10,GL CLUS,16.55,-4.02M92,GL CLUS,43.12,6.1M8,DIF NEB,18.02,-24.20M9,G-}L CLUS,17.16,-18.28 NGC6543,PL NEB,17.59,66.38M20,NEB,17.59,-23.02NGC6572,PL NEB,18.10,6.50M17,DIF NEB-},18.18,-16.12M25,OP CLUS,18.29,-19.17M22,GL CLUS,18.34,-23.57M11,OP CLUS,18.48,-6.20M57,PL NEB,18.51,-}32.58 COL399,OP CLUS,19.23,20.05M55,GL CLUS,19.37,-31.03!!NGC6818,PL NEB,19.41,-14.17 !!NGC6822,IR GAL,19.4-}2,-14.53"M27,PL NEB,19.57,22.35$NGC6960,NOVA,20.49,31.00&!!NGC7009,PL NEB,21.01,-11.34(M15,GL CLUS,21.28,11-}.57*M2,GL CLUS,21.31,-1.03  END,("(HIT WHEN THROUGH&,(}p4 A`(4(DO YOU WANT THE LOCA-}TION OF ANYqA(((OF THE DEEP SKY OBJECTS(Y/N),44N7'A Az& A`("( WHICH OBJECT& #AR-}": 4END0(THAT OBJECT IS NOT IN THE LIST: A`" "" 0 A`0 P:,  6--}%@KK(P:,HA$+&P:,,MP:,DEGA$+O:,&P:O:,,,' A`XPRINTS SOLAR SYSTEM INF-}Ob THE SUNl5 @@ A! A+ A5 Av - A --- A --}- (}##( //(   RISESET% ILLUM,, $_________-}___________________________F:B2y,"@$)) SUNHMHM---THE MOON A -}F:B2y,"@$&& MOONHMHM 6-THE PLANETS #A AF:B-}2y,"@$ !! HMHM Aqp 4 Ar(4(DO YOU WANT THE LOCATION OF ANY*.((-}OF THE PLANETS(Y/N)#+4N.$4& Ar ("( WHICH PLANET&> #AH>"4END4(THAT OBJECT IS NO-}T ON THE LIST> ArR"\ 0 Ar@f6-@ A0p 6- A6-6-z 6--} A((//"("(HMDEG' Ar$@PRINT DEEP SKY INFOE6--}J #ART @@ A^) (})( //h  r NAMETYPE-}RISESET| APF:B2y,"@$!! HMHMc6-%@"@ I $THE-}RE'S MORE. HIT TO CONTINUEMY6-c A` A` @&(#11PRINTS DATA ON ONE OBJECT OVER SEV-}ERAL DAYS-#2#: A6(#} FOR WHICH OBJECT DO YOU WANT DATA:<#U A (M(7ENTER THE FIRST DATE FOR WHICH -}YOU WANT DATA (DD,MM,YY)U=#o7!@1) @) @)!@) M(}ԠԮa-@A-}e o A F#U A0(M(7ENTER THE LAST DATE FOR WHICH YOU WANTH DATA (DD,MM,YY)UG#o7!@1) @-}) @)!@) M(}ԠԮa-@Ae o A0H# " A@I#lJ(B}Ƞ-}ӠԠŠΠŠŠҠҮŠҠ^-@Ab l A P#( @EZ# 6-6--}6- Ad# 6-n# 6-6-6- Ax# 6-y#b !@(2}ŠԠŠԠŠҠΠŠԠ-}T-@AX b A #6-@#K @A6-6Ae$+@&,&P:+@&,'@,%K A-}#<<6-Ae$+&@,%P:+&@,'@,%%@# 4SUN A#4MOON A# A#.-} (}.(//TO//#(DAY #RISESET# -#! A A! A# - -}A# --- A# --#F:B2y,"@$# HMHM#6-%@-}# #' (HIT WHEN THROUGH$'$#. (}.(//TO//#$$(DAY #RISESET% -}ILLUM# -# A# A #F:B2y,"@$$!! HMHM$6-%@$ -}$ 6-"$' (HIT WHEN THROUGH$'$T$^$. (}.(//TO//h$'('(DAY #RISE-}SET% ILLUMn$ #Ar$P"4END(.( IS NOT IN THE LISTB-@APF P A|$"-}$ 0 A0$ - A$ A0$F:B2y,"@$$!!(HMHM$6-%-}@$ $*(#(HIT WHEN THROUGH'*$ D:ASTRON.BASALPHDELTSTSSTSTRSTTTGSLSJCON,MghOPCODESOPTABLEOPNHEXDIGITHEXPCSETOPRNDEC2HEPFINADOPCODOPOPNUADMODDECIMAILEOPRNDED1}A AVB  B" A# A  1}nx!!***************************!!* *!!* 1} DIS-ASSEMBLER *!!* *!!* BY: MAURICE ELLIOTT *!!* 126 PARKVIEW PL. SE *1}!!* CALGARY, ALBERTA *!!* T2J 4W5 CANADA *!!* TEL: (403) 278-9564 *!!* 1} *!!***************************0u-1:uGG;Ah,9AU,;@,;@,;@,;@,Du1} #B#Nu%%SET UP ASSEMBLER MNEMONIC TABLEXu-@@Vbu " 67@$&@,.lu vu<<SET UP TAB1}LE TO DECIPHER OP CODES AND ADDRESSING MODESu-AUu"68,-u uHEXADECIMAL DIGITSu6.01}123456789ABCDEFu))SET UP LINE NUMBERS FOR SUBROUTINESu76-B 7ROUTINE TO SET UP INSTRUCTION OPERANDuD6-B"1}DROUTINE TO CONVERT A DECIMAL NUMBER TO HEXADECIMALu6. u9 (START ADDRESS (DECIMAL)$9PC=PROGRAM C1}OUNTERu%!(FINISH ADDRESS (DECIMAL)%u Bpu+#+TO START OF USER'S DATA STATEMENTSv+A@1}+SET TAB WIDTH TO 6. v))(!ADDR DEC OPN OPERAND DECvΠЛ v4"4READ OP CODE (WE HOPE) OF NEXT INSTRUC1}TION*v!! )!AUB 4v< 6-8,"2(INVALID OP CODE AT < B >v$6-P:'A,$6-&1}A$Hv. 6- 67@,..67@,.=:,Rv''(7@$&@<@$,\vooBBB1}BBB BBBBBBBfv 6-%B0pv2A@1}2RESTORE DEFAULT TAB WIDTH.zvwHHTHE FOLLOWING ROUTINES PRINT THE OPERAND FOR EACH ADDRESSING MODE.$w//IMPLIED (MOD1}E 1) AND ACCUMULATOR (MODE 2).w$6-@$INSTRUCTION LENGTH8w(Bw$wIMMEDIATE (MODE 3)w6-@ w1}(#$w$wRELATIVE (MODE 4)w6-@ x%!6-%%&AV$+!A',%  xBBCONVERT RELATIVE ADDRE1}SS (DECIMAL) TO ABSOLUTE ADDRESS (HEX)x ($x$PxZERO-PAGE (MODE 5)Zx6-@ dx($nx$xZ1}ERO-PAGE,X (MODE 6)x6-@ x($,Xx$yZERO-PAGE,Y (MODE 7)"y6-@ ,y($,Y1}6y$|yABSOLUTE (MODE 8)y6-@ y ($y$yABSOLUTE,X (MODE 9)y6-@ y($1},Xy$DzABSOLUTE,Y (MODE 10)Nz6-@ Xz($,Ybz$zINDIRECT (MODE 11)z6-@ z1}(($)z$ { INDEXED INDIRECT (MODE 12){6-@  {(($,X)*{$p{ INDIRECT INDEXED (MOD1}E 13)z{6-@ {(($),Y{$}FFROUTINE TO SET UP INSTRUCTION OPERAND IN DECIMAL AND HEXADECIMAL }81}"@$81-BYTE INSTRUCTIONS HAVE NO OPERAND}&"&OPERAND FIRST (OR ONLY) BYTE}D )!AU:(UNEXPE1}CTED END AT %@D B (}!@B p2}$ 6- $6.7@<@,<}$F}"OPERAND SECOND BYT1}EP}D )!AU:(UNEXPECTED END AT %@D B Z}6-%AV$6- d}$}DDROUTINE TO CONV1}ERT A DECIMAL NUMBER TO 4-BYTE HEXADECIMAL FORM} 6.00006-@ 6-}"$}$6-P:'@,$6-&1}@$}##67<,.7%@<%@,}+ 6-6-&@+!B" ~$,~OP CODE MNEMONICS6~==ADC,1}AND,ASL,BCC,BCS,BEQ,BIT,BMI,BNE,BPL,BRK,BVC,BVS,CLC@~==CLD,CLI,CLV,CMP,CPX,CPY,DEC,DEX,DEY,EOR,INC,INX,INY,JMPJ~==JSR,LDA1},LDX,LDY,LSR,NOP,ORA,PHA,PHP,PLA,PLP,ROL,ROR,RTIT~==RTS,SBC,SEC,SED,SEI,STA,STX,STY,TAX,TAY,TSX,TXA,TXS,TYA~;;THE FOLLOW1}ING 16 DATA STATEMENTS DEFINE A 256-ELEMENT~==TABLE TO INTERPRET EVERY POSSIBLE BYTE VALUE (0-255) AS~==AN OP CODE AND 1}AN ADDRESSING MODE. WHERE THE ENTRY IS~>>ZERO, THE BYTE VALUE DOES NOT REPRESENT A VALID OP CODE.~AANON-ZERO ENTRIES 1}ARE IN THE FORMAT 'OPAD', WHERE OP=OP CODE~<<NUMBER (=POSITION IN ABOVE LIST OF MNEMONICS), AND AD=~11ADDRESSING MODE. 1} THE ADDRESSING MODES ARE:~@@01=IMPLIED 02=ACCUMULATOR 03=IMMEDIATE 04=RELATIVE~@@05=ZERO PAGE 06=ZERO PAGE,X 1} 07=ZERO PAGE,Y 08=ABSOLUTE~HH09=ABSOLUTE,X 10=ABSOLUTE,Y 11=INDIRECT 12=INDEXED INDIRECT~13=INDIRECT INDEXE1}D~BBFOR EXAMPLE, A BYTE VALUE OF $21 IS INTERPRETED BY THE THIRDCCDATA STATEMENT ($2-), SECOND ENTRY ($-1). THE NUMBER1} THERE IS@@212. THUS, $21 (DECIMAL 33) IS AN INDEXED INDIRECT 'AND'::OP CODE (THE 2ND MNEMONIC, WITH ADDRESSING MOD1}E 12).X==1101,3512,0,0,0,3505,305,0,3701,3503,302,0,0,3508,308,0b;;1004,3513,0,0,0,3506,306,0,1401,3510,0,0,0,3509,309,1}0l@@2908,212,0,0,705,205,4005,0,3901,203,4002,0,708,208,4008,0v88804,213,0,0,0,206,4006,0,4501,210,0,0,0,209,4009,0C1}C4201,2412,0,0,0,2405,3305,0,3601,2403,3302,0,2808,2408,3308,0==1204,2413,0,0,0,2406,3306,0,1601,2410,0,0,0,2409,3309,01}??4301,112,0,0,0,105,4105,0,3801,103,4102,0,2811,108,4108,0991304,113,0,0,0,106,4106,0,4701,110,0,0,0,109,4109,0@@1}0,4812,0,0,5005,4805,4905,0,2301,0,5401,0,5008,4808,4908,0??404,4813,0,0,5006,4806,4907,0,5601,4810,5501,0,0,4809,0,0I1}I3203,3012,3103,0,3205,3005,3105,0,5201,3003,5101,0,3208,3008,3108,0EE504,3013,0,0,3206,3006,3107,0,1701,3010,5301,0,3201}9,3009,3110,0FF2003,1812,0,0,2005,1805,2105,0,2701,1803,2201,0,2008,1808,2108,0<<904,1813,0,0,0,1806,2106,0,1501,18101},0,0,0,1809,2109,0FF1903,4412,0,0,1905,4405,2505,0,2601,4403,3401,0,1908,4408,2508,0<<604,4413,0,0,0,4406,2506,0,46011},4410,0,0,0,4409,2509,0 D:DISASM.BASEXPCSETOPRNDEC2HEPFINADOPCODOPOPNUADMODDECIMAILEOPRNDED0,%&7&FNEORCAXFRCLEARBCAUESCCLFDNCCCCC10CPC25C55C1C6C75CHBAC25CC1DC56C56CC1C15}2ACONSOXYCC1CC1XCHACCSASAORIC2C12LI 2K k**A@5}AA  % @ & '@@@B@@A@B5}IAVBhAY@@dAVBhdBs AU!@"@#B$A`%Aa&@5}'@(A()@d*+B2y,-.Ad/0@1@ 2@34Bsv565}789:;<=>@'?A'@A ""CREATE-A-FONT by Vince Erceg5}PROGRAM WRITTEN: 8/2/83(2o Ao;@,;@,;@,;@%,;@2,;@B,9,5}9,9,;,;,;,7n6.>:@0,!6.>:@),)6. 267,.;67,.L67@%,. U67,.n6.ERDICSLF5}T-=+*UKQ:AFB6.>:@',+ A .-@2">67,.>:,B K%-@2"!67,.>:,% P' -5}#68&,-P:#%?P,' Z26-F:,&6-+%,$&A#2BBy_/B2w6-&/6-?:C:,<BsD<$,5}d1+ A8AU%1B7tnW 6-$'6-?:C:,<&$<$,9AAHEAWA5}AHxQB2HAh'B2PAh9B2QAhEAQA}'AB2V'B25}XKAR-%-@1/-%%C(>:$@2%,G K =B2Y!-&A&'+ =5}B2SA`36-F:,%F:,$%$%&@-&3S-%A%A%-3%@C%%5}ApS%%ApQ%%A2@ ! +6-%$5 A;6-G@FQ A02 -(dit5}(everse'(ata2(nvert9 (lear( ave Font)( oad Font9( rom (Copy)K@@!-@/(5} o (Copy)K(>:AV, Scroll UPY(>:AW, Scroll DN=(>:AX, Scroll LeftY(>:AY, Scroll 5}RT\ (ndo( olor change&(uit2@>-@Y(ntic 4/5 Atari\$2 6-A!A5}2F:,"A F:,"A/-%@0%()-%@0%/(  R:,"*T:,*F:,"A(5}T:,A  6-R:,F:, A06-%+!* ,&+!* ,336-%+",%+",%+",&+",&+",&+"@,5}  6-" !6-,  6-6 !6-@8 -%@0% (*-$. 8 AJF:,"@5}9@fTFK:)96-$+!@A* @,F(A^--@7<,0>:,# - 5}AhA A@APAAA APAAA0APApAA05}A@A`AAPr^ A6-@&0-A`@@6<B2SD-%H(P6-&^ A5}| *-A`B2S! '-*$(T:,A A A1 6-%$-#68,-5}F:%,' 1 A P6-%@1&F:,(2, 6 A p= ApA8!-/-@#%9(F5}:%,=  - ( PRESS JOYSTICK ;(BUTTON TO CONTINUE'1%%1-%%;(>:, --5 5}-%%(>:,!-%%-(>:%,1 5 T:,A3A8AU Ap) A3 AH -5}68,-F:%$, '-/-@%$%8&,D H  A p1-%@2#2' 1 A p5}H Ap((5(FILE (dev:filename.ext)9C A H -A#86-F:%,%5}%**F:%,. 8 ApU (>:AS, SAVE COMPLETE.-A2 < ApAK AU A&H A5}p((5(FILE (dev:filename.ext)9C ApH+-A#0( )%% ( 6}Ap52 (>:AS, LOAD COMPLETE.-A2 :& Ap A& A0Dj 6-6- Ap6(6}LOCATE CHARACTER TO COPYT(AND PRESS JOYSTICK BUTTON^ Ad6-j6-N4 -%F:%$%, * Ap4 A6}X: --(%$%F:%$%,, 0 : Abl 6-6- Ap2(LOCATE CHARACTER TO H(REPLACE A6}ND PRESS\(JOYSTICK BUTTONf Al6-lF 6--$%$%F:%$,( 2 Ap< AF AvS -6}68,-F:%$, (6-8,0->68&,-8,B K68,-S-K-6%$%8,92A&$&@6}= A K A pN -68,-F:%$, (6-8,3-6A68,-8&,E N68,-C-6-%6}%$%8,12$5 9 C A p) -68,-F:%$,)68,-8,$$ 8,!68,-8,&$ AB 6}--&%$%8,024 8 B A pB -68,-F:%$,&6-8,'/"P:,868,-B A 6}68,-P:,%D --&%$%8,22&6 : D A p$ -%8, $ A P6 }W Ap A@+(COLOR REGISTER/2(=(COLORAD(S( LUMINANCEW?6-%A? A)!A)6 } )!) )!A@C $%"AF:A,, Ap6 AC(A  A`Y Ap+(PRESS6 } 'Y' TO EXIT PROGRAM0>K:E)Y"@A! Ap A! A ;-@1-%F:6 }BsD%&%P:',,1 ; A p6+@4B2w''3A86 1%%6-*9 6-6-6 }1%%%-%%9(>:%&$+",,4' -R:,"*T:, ' A>(T:,A H -%%(>:,RV6} 6-R:,&6-%+!* ,&+!* ,V6-%+",%+",%+",&+",&+",&+"@,\  6-@1f!@16-6}p  6-z !6- -  A !6-& A C++!* @,)+!@1* @e6},96-&@2C A @!6* @26-% -%%(>:,$B 2-%@1'-:6}%F:%+&,',> B  A> 2-%@(0%+&,'F:,4 > AG6-?:C:,:,@-%@ $+",@"&+",J(>:6},N e A`jN -%-@!,(>:AV,0 : ApD AN At+ --@!$(>:6}AV,( +$~D6-A6-@Q,F:%,"A86-@D6-ApK-%%A-'%16}%%;%%K%%A2E  -&&7$+"@,%$+"A,; E AJJ104,104,133,204,16}04,133,205,104,69,204,133,213,104,69,205,133,212,96ii104,104,133,213,104,133,212,104,133,215,104,133,214,162,4,160,0,177,6}212,145,214,200,208,249,230,213230,215,202,208,240,96ALMOST DONE!!- 6-F:,%F:,$%A-%6}, - (>:AA,,AR#(>:AA,#%=-@8-%(>:AA,+-9(>:6}AA,= ] -1(#'THE ULTIMATE CHARACTER SET EDITOR'4(7(](! Created 8/2/83 by Vince Erceg]-@@"6}/(PRESS TO BEGIN=%@4Q%@!@P]BBw; #A0!-A6AT%"+/ ;6 }@4.6-?:A6,-@.( PLEASE WAITB-6BBw&BBv.-:2$> B  6!}2[ARA!AS';-ApA?"EI W-@B[" 67,.>:, #$6"}EE104,173,31,208,201,6,240,10,232,142,10,212,142,25,208,76,1,6,96]]0,0,0,48,50,37,51,51,0,179,180,161,178,180,0,52,47,6#}0,35,40,33,46,39,37,0,36,41,51,48,44([[33,57,0,44,41,51,52,0,0,0,0,0,0,0,48,50,37,51,51,0,175,176,180,169,175,174,0,38,47,6$}502bb0,36,41,51,43,0,36,41,50,37,35,52,47,50,57,0,0,165,88,133,203,165,89,133,204,160,0,166,0,240<jj13,185,34,6,145,2036%},200,192,38,208,246,76,148,6,185,73,6,145,203,200,192,38,208,246,169,155,141,26,2FEE165,0,73,1,133,0,96,104,104,133,204,106&}4,133,203,104,133,206,104ZRR133,205,166,206,160,0,169,0,145,203,136,208,251,230,204,202,48,6,208,244,164n**205,208,240,6'}198,204,160,0,145,203,96x- Ap A`-D:*.*?-@!6.7,?7<,4 FREE SECTO6(}A`+'"P:',-+%,'!(+ A@-+%,'( ;( ('(PRESS ANY KEY TO CONTINUE1 Ap6)}; A>( ( (END..PRESS ANY KEY* Ap4 A> A  F:,  Ap A6*}K6-6-@#6-%+6-%36-%;6-%C6-%K6-%3 6-%6-%6-%#6-%+6-%36-%6+}; 6-%6-%6-$'6-A36-A';6-%S6-AU6-%#6-AY+6-%36-%?6-AVG66,}-%S6-B2y$ D:FONT.BASUESCCLFDNCCCCC10CPC25C55C1C6C75CHBAC25CC1DC56C56CC1C14)|}} NAMEFILELINECHARASCIINTCODLOCHBASBYTBINARYFACTOBIIOCADDRHADDRESADDRLSIZEHSIZELCILHSI:.}ZCIOBUFF %`$ BsD :/}BXBQ:0}A@ AI&3>:@',>:@f,>:@,I3>:@',>:@x,>:@,T +'0@:1}@@*(-(Q( *** Printer Spooler 2.0 ***T(( by(, ( H. R. Roferos:2}#(&()(,(.( FILENAME 6.D:.67@,.(4 A*@@4 B2#6-@:3} Ap# A<I&3>:@',>:@,>:@,-6.I6-@$&P:B:,'@,F:-@67<,. ":4} 367%@,.63:3P<&3>:@',>:@,>:,26-@< ApZ<-@@(-@B::5},36.7<,<6-@:,d.6-&@2#6-%+@$,.6-F:%,n6. 6-A(x"-@@"6-:6}P:',""@67<,."6-&6-P:'@, YB67+&@,$@%@<+&@,$@%@:7},.F J3N3U6.Y 86-@ Ap53SPOOLED BY: H. ROFEROS83 A3>:@, Ap:8}+6-A2%@2+%@@6-P:'AV,6-&$AV%@%@6-AU:9}6-AU%@%@ 6-?:<@2,%6-F:%@,%6-F:%@ ,@6-$A::}V%6-?:A6<<,"##@@P:, A6+6-A2%@+%@@@6:;}-P:'AV,J6-&$AVT%@%@^ 6-6-h%@%@ r6-?:<@:<},|@ ( (3>:@, @ GG;@,;@,;@,;@,;@,;@,:=}0;@,6-C:,06-AV$F:AV,X 6.hhh%67@,.>:Ap,767@,.LVO67@,.>:A(,:>}X6-C:,%-A6A"!% ^^104,104,141,58,6,238,58,6,104,141,59,6,104,133,213,104,133,212,160,0,177,2:?}12,201,155,240ZZ14,41,127,201,96,144,2,233,32,201,31,176,2,105,96,145,212,200,208,2,230,213,206,59,6!!208,224,206,58,:@}6,208,219,96$# 3>:@',>:@,>:,#$+ 6.*67@,.*+67@,.3 33$-@:A}*( I/O ERROR - F:A,- D:SPOOLER.BASBASBYTBINARYFACTOBIIOCADDRHADDRESADDRLSIZEHSIZELCILHSI8734 PRPR1PRPR2PICSCSTHDFNCIOVDLMIPAMAS>C}  ** !! A1 @@^***SCREEN DUMP****_*BY JERRY WHITE &*>D}`*FERNANDO HERREA *a* ANTIC MAGAZINE *b* JANUARY, 1984 *c******************dРn_ +>E}@@1AR@CAA`UA@$_ A`s РҠҠӛxp@>F}.@@P:p(@>:@',>:@d,>:@',>:@Q,>:@$, 6-C:,6-C:,>G}ΠϠҠЛb-@9/6-A$@@%%D6-?:A6<<<,Q(@^(@b >H}0@+(%(BASIC-(IS0РӛGG;A d,;A d,;@,;@,;@>I}B,;@3,'( ((SDUMP CREATING:'AuԠӛ--@@")67<,.>:,- >J}27,76,192,3?6.>:,*67A d,.>:,967@,.?6.167@<@,.167@<@,.>K}ˠϠΠś7 A !-@@B%"367<,.>:,7 LL104,104,104,10,10,10,10,170,104,10>L}4,157,66,3,104,157,69,3,104,157,68,3KK104,157,73,3,104,157,72,3,32,86,228,169,0,133,213,189,67,3,133,212,96٠>M}Ԡś7 A`!-@@3%"367<,.>:,7 ==104,173,48,2,133,203,173,49,2,133,204,160,1,200,1>N}77,203"@@201,15,240,4,201,79,208,4,233,1,145,203,192,200,208,237,96,ҠҠӛ6/ A!-A1>O}AF%"+/ @ĽśJ 0,0,0,0TҠǮˠٛ^10,5,10,5hҠǮԠ>P}ٛr10,0,5,0|ҠǮ˛15,15,15,15ΠРś/ A!-A6A0%"+>Q}/ 33104,104,133,204,104,133,203,104,141,192,6,104//141,191,6,104,141,194,6,104,141,193,6,169111,133,207,169,19>R}1,133,208,160,0,177,203,14100190,6,165,207,240,28,169,0,133,207,173,193,,6,24,105,4,141,193,6,133,205,173,194,6++>S}105,0,141,194,6,133,206,76,95,6,169,1..133,207,173,191,6,24,105,4,141,191,6,133..205,173,192,6,105,0,141,192,6,133,20>T}6,32))137,6,32,146,6,32,160,6,32,137,6,32//169,6,32,160,6,165,207,240,177,56,165,20322233,40,176,2,198,204,133,20>U}3,198,208,165,208--201,255,208,151,96,173,190,6,41,3,10,1000170,96,160,0,189,195,6,145,205,232,200,192&,,4,208,245>V},96,173,190,6,74,74,141,190,60++96,160,0,189,195,6,10,10,10,10,24,113:44205,145,205,232,200,192,4,208,238,96,0,0,0,0,0>W}NE +AA1A@$4(E( ΠX+(+( MICROPAINTER TO EPSON GRAFTRAX+b,(,(!by >X}Jerry White & Fernando Herreral*(*(Print intensity patterns may bev''(altered by swapping data in the*(follow>Y}ing lines:*A AJAR'@@*(F(ENTER DEV:FILENAME.EXTJ!!Рà>Z}٠ԛ; +@$/6-F:@,%F:@,$AV;6-?:C:,,Q@+@@Q6-?:C:,<>[}@<@<<Av,""ԠҠҠӛ)@A)@A)@>\}A )@A@$ D:SDUMP.BAS<S +,dRCAF@WAU@ACCU-PRINT CUSTOMIZER . +B^}-@@.( ACCU-PRINT$-@@$( CUSTOMIZER(8-@@8(ŠԠҠB_}2PUT ACCU-PRINT IN STRING<;AD,#A F6-@AD"267B:,%@,.>:,6 P. +B`}-@.( ACCU-PRINTZ(-@@((TYPESTYLE MENUd!-@@!( 1 PICAn!-@@Ba}!( 2 ITALx&-@@&( 3 PICA EMPH&-@@&( 4 ITAL EMPH$-@@$( 5 PICA DBb}S$-@@$( 6 ITAL DS)-@@ )( 7 PICA EMPH DS)-@@)( 8 ITAL EMPH DS&-Bc}@@&( 9 COND PICA&-@@&( 10 COND ITAL)-@@)(11 COND PICA DS)-@Bd}@)(12 COND ITAL DS*-@ @*(13 COND-EXP PICA*-@ @*(14 COND-EXP ITAL.-@ Be}@.(15 COND-EXP PICA DS.-@ @.(16 COND-EXP ITAL DS%-@ @%( 17 EXP PICA%-@ Bf}@%( 18 EXP ITAL*-@ @ *(19 EXP PICA EMPH"*-@ @*(20 EXP ITAL EMPH,(-@ Bg}@((21 EXP PICA DS6(-@ @((22 EXP ITAL DS@.-@ @.(23 EXP PICA EMPH DSJ.-@ Bh}@.(24 EXP ITAL EMPH DST&-@@&( YOUR CHOICE^hAAAAA Bi}AA0A5A@AEAPAUA`AeApAuAAAAABj}AAAr >:AS, A@ #A A 255 #A A27,52,255Bk} #A A27,69,255 #A A27,52,27,69,255 #A! A27,71,255 #Bl}A& A27,52,27,71,255 #A1 A27,69,27,71,255 #A6 A27,52,27,69,27Bm},71,255 #AA A@27,80,255 #AF A@27,80,27,52,255 #AQ A@27,80,2Bn}7,71,255 #AV A@27,80,27,52,27,71,255 #Aa A`15,14,255 #Af A`Bo}15,14,27,52,255 #Aq A`15,14,27,71,255 #Av A`15,14,27,52,27,71,255 #A Bp}A 14,255 #A A14,17,52,255 #A A14,27,69,255 #A ABq}14,27,52,27,69,255 #A A14,27,71,255 #A A14,27,52,27,71,255 #ABr} A14,27,69,27,71,255 #A A14,27,52,27,69,27,71,255-#67@F<@F,.>:A3,- Bs}A0M#67@F<@F,.>:@g,C67@C<@C,.>:@,M ADC#67@F<@F,.>:@A,C67@Bt}C<@C,.>:@,X6-@Hb""AU Al)67<,.>:,6-%@) A. +Bu}-@.( ACCU-PRINTS-@@5(CONTROL CHARACTER SELECTIONG-@@S6-@W(( ANYBv} CONTROL CHARACTERS TO ALLOW7;@,-7@<@,0Y7 A%% CONTROL CHARACTER TO ALLOW: 9Bw}67<,.>:,#6-%@/!A9 A ANY MORE* 7@<@,4Y* A@ . +Bx}-@.( ACCU-PRINT*,-@@,(DISK FILE CREATION4&-@@&( FILE NAME; >;@By},H @@R*-@@*(נǠWu*@AU)*@AUBz}<*@ARO*@@(b*@A'u*@@1\0-@AD,*@@:7<,,0 B{}au*@A$)*@@<*@A%O*@@b*@ARu*@@(f@B|}k.-@@.(CREATE ANOTHER FILEp- 7@<@,4Y#- @z +**173,B}}31,208,41,4,240,19,169,23,141,273,169,29,141,28,3,238..232,2,238,232,2,238,232,2,96,158,238,219++238,157,238,18B~}3,29,128,238,157,238,7600120,238,0,0,1,81,0,0,0,0,0,0,0,0,0,0,0,0,0++0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0//0,0,0B},0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0++0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0//0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,B}0++0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0//0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,,0,0,0,0,0,0,0,0,0,133,31,32,B}26,239,160//0,140,181,29,140,182,29,140,183,29,204,42))29,208,19,238,42,29,185,43,29,201,0..240,9,166,29,32,207,3B}0,200,76,208,29,165//31,32,10,31,192,1,240,3,76,188,30,238,181--29,24,173,40,29,109,39,29,141,39,29,205++41,29,20B}8,13,169,155,166,29,32,207,30**173,40,29,141,39,29,169,27,166,29,3200207,30,169,76,172,38,29,192,0,240,2,169,7511B}166,29,32,207,30,169,8,166,29,32,207,30,169**0,166,29,32,207,30,172,182,29,165,31++32,72,31,138,201,155,208,5,238,183B},29--169,144,166,29,238,182,29,32,207,30,169++8,205,182,29,208,223,169,0,205,183,2911240,97,141,182,29,172,40,29,B}169,8,166,29,32,,207,30,172,38,29,192,0,240,7,169,8,166..29,32,207,30,169,27,166,29,32,207,30,169//76,172,38,29,1B}92,0,240,2,169,75,166,29,32))207,30,169,8,166,29,32,207,30,169,0++166,29,32,207,30,172,182,29,165,31,322272,31,13B}8,162,0,201,155,208,2,162,11,138,1662229,238,182,29,32,207,30,169,8,205,182,29,208&&223,160,1,96,173,39,29,109,40,29B}11141,39,29,165,31,166,29,32,207,30,76,185,30((157,192,3,232,228,30,240,22,134,2911201,155,240,1,96,169,32,160,0,1B}40,39,29,157++192,3,232,228,30,208,248,169,0,133,2922174,127,238,172,128,238,32,230,238,32,89,228((173,38,29,201,B}0,240,5,169,0,141,422229,96,56,201,156,176,39,201,155,240,32,160,0))190,52,29,224,0,240,9,217,52,29,2401118,200,7B}6,21,31,56,201,123,176,12,56,201,32''144,7,201,96,240,3,160,0,96,160,12296,0,0,0,0,0,0,0,128,64,32,16,8,4,2,1,141,58B}))31,140,60,31,160,0,140,57,31,56,20133128,144,11,173,58,31,56,233,128,141,58,31,160%%1,140,61,31,173,244,2,141,63B},3133173,58,31,56,201,96,144,4,76,137,31,56,201,64))144,6,56,233,32,76,137,31,56,201,3222176,245,105,64,141,59,31B},170,169,0,224,0,240''14,24,105,8,202,144,246,238,63,3144169,0,76,143,31,141,62,31,141,182,31,173,63,31''141,183,B}31,160,0,174,60,31,189,645531,57,62,31,201,0,240,10,173,57,31,24,121,64,31%%141,57,31,200,192,8,208,231,1742261,3B}1,224,1,208,8,169,255,77,57,31,141,57,31&&173,58,31,172,60,31,174,57,31,96D:ACCUPRNT.BAS)B}`dRCAF@WAU@ACCU-PRINT CUSTOMIZER . +@_`HDYABCDXSTICKYSTICKNAMEMOVEDLICCWORCVACUNDEINVWAICUNDERCHAXYREBRIGHCOF}@@ @ F}H +@((@ GRAPHICF}S 10/7H(@please stand by...AR@ A ӠҠ Ǡ̠F}Š Ю̠ ?1;AV,;AV,;AV,;AV,?THE BUFFERS119@,F}9@,;@,;@,STICK DIRECTIONS? #@ !-@@%".68,-2";68,-F}? GG0,0,0,0,0,0,0,0,1,1,1,-1,1,0,0,0,-1,1,-1,-1,-1,0,0,0,0,1,0,-1,0,0IITHE FILL SUBROUTINE. LIMITS SETF} AT 80 PIXELS ACROSS, 80 DOWN.WE USE PAGE 6/ #@&!-A6A%"+/ ##104,104,104,133,2F}09,173,254,6##133,212,173,255,6,133,213,169 0,133,231,160,1,165,85,145$$203,133,233,133,214,165,84,145$$205,F}133,234,133,215,132,232,32!!184,6,133,230,197,209,208,1 !!96,32,221,6,177,203,133,214!%%177,205,133,215,230,214,165F},214"201,80,176,8,32,184,6,208# 3,32,164,6,198,214,198,214$""165,214,201,255,240,8,32,184%6,208,3,32,164,6,2F}30,214&""230,215,165,215,201,80,176,8'32,184,6,208,3,32,164,6(%%198,215,198,215,165,215,201,255)240,8,32,184,F}6,208,3,32* 164,6,198,232,240,4,200,76+!!52,6,164,231,240,95,132,232,%%177,212,145,205,177,207,145,203-!!136,208F},245,160,1,169,0,133.231,76,52,6,32,221,6,230/$$231,240,75,164,231,165,214,1450$$207,165,215,145,212,164,235,961F}32,200,6,169,7,157,66,32""32,86,228,164,235,197,230,963$$132,235,165,214,133,85,165,2154 133,84,162,96,169,0,157F},7253,157,73,3,96,32,200,66 169,11,157,66,3,165,209,327##86,228,164,235,96,165,234,1338!!84,165,233,133,85,96,F}32,23796,104,104,96,0,0,0,0:;66SET UP BUFFER ADDRESSES FOR ML ROUTINE ACCESS<=B6-P:C:,'AV,*6F}-C:,&$AV6ABA>B6-P:C:,'AV,*6-C:,&$AV6ABA?B6-P:C:,'AVF},*6-C:,&$AV6ABA@B6-P:C:,'AV,*6-C:,&$AV6ABAABF}ӠРC;@2,D9@,%68,-:68@,-@O68@,-@d68@F},-@ y68@,-@68@,-@68@,-@E +@AR@FG"A#F}A("GTIA GR.10H+@@+FOOL SCREEN HANDLERIJACOLOR 0KA@F}COLOR 2LA@8COLOR 3MAACOLOR 9N A AH COLOR 10O AA F}COLOR 11PAARCOLOR 8QR4 #@!-@1%"0C:,%4 S33F:A`,%AV$F:F}Aa,%@AAT?AP:C:,'AV,?AC:,&F:A,$AVU"BBA"ENABLE DLIVSF}"( THIS IS GRAPHICS 10/7;( P. BUDGELL 1983O-@APS W##@@K:XF}Šˠ٠YZ.6-F:@,&A(. @[@B7t\@@72,169,0,141,10,212,141,F}27,208,141,26,208,169,144,69,79,37]8878,141,24,208,169,10,69,79,37,78,141,23,208,104,64^_7 #@!-@@F}%"367<,.>:,7 `104,162,16,76,86,228aO6-@@6-@@(8@,76-8@,C6-@O6-F}b AINTRODUCTIONc(6-F:Ad, AU( Ad! Ap A! @eH 1,F}06-+",$8@,D-@@H n% ,!-@@% x  ,"T:,"F}",$56-R:,6-%8,)"@56-@y"6@6-&6-%8,"@F}&6-@y"6@6- @1$")@"AdAU""@:D, AF}" A""@:F, A " A""@:C, A0" A;"@:X, >:A%,1 @>:AF}%,; A""@:L, A@" A""@:S, AP" A""@:R, A`" A11(>:F}A%,ӠҠՠ--(% D=DRAWTO MODE F=FILL C=COLORCHANGE--(% X=NEW SCREEN L=LOAD S=SAVE F}SCREEN--($ R=COLOR REG. SPACE=REGULAR MODE$**(" REGULAR DRAW MODE - PRESS TRIGGER( Ҡ  (F} (TO ERASE USE COLOR 0 ) .6-F:@,&A(. A0@B7t$77(>:A%,$F}Ϡ: PRESS TRIGGER TO DEFINEG-(%NEW STARTPOINT; PRESS AGAIN TO DRAWTOG(PRESS ANY KEY TO EXITJ A"T:F},"4B2y:6-@6-J A!6-F:Ad, AU!$ Ap AK T:F},"ALN Ap"T:,"&,,2/DB2yN AV$6-F:Ad, AUF}!'$$W A A T:,"A?$- ,-$6-?:A6<,*6--$ )6-%@F}"@)6- & 8,6-8,&( Ҡ =  $0&(>:A%,ĠԠſ0 A@p(F}(( GIVE NAME SUCH AS D1:XX.Y OR C:1( FILE NAME '4C:)4C1 AA @@tAF}P@*ARF:@,?ASF:@,QAVA(cAW@tSET UP IOCB #16-?:C:,,F}6-@$)@2A%6 -@ BBA* B-$[( ԠΠ8F}@@A)C:B A@@[SHORT IRG FOR CASSETTE4*(>:A%,ŠϠԠſ?4 APp$$( GF}IVE NAME eg. D1:XX.Y or C:0( FILE NAME &4C:)4C0 AQ @@tAP@F}*ARF:@,?ASF:@,QAVA(cAW@tSET UP IOCB #156-?:C:,,5MULTIPLE OF}F 128 BYTES MUST BE MOVEDJ-@/*@F:A%,3 JCOLOR REGISTERS LAST-@ BBF}A* B-$//(&ԠΠҠǠŠŠ AQ 3INITIALIZE APp /#@@F}A(C:/SHORT IRG AP@p6,(>:A%,GIVE REGISTER # TO CHANGE6 A`z%%(BETWEEN 704 AND 712 F}INCLUSIVE( REGISTER !! A)!AA`%!( GIVE BRIGHTNESS 0 - 15 %!! )!@F}A`@!( GIVE COLOR 0 - 15 !!! )!@A``$@% B$ D:PAIF}NTER.BASDYABCDXSTICKYSTICKNAMEMOVEDLICCWORCVACUNDEINVWAICUNDERCHAXYREBRIGHCOD 2(ĠҠΠˡ5$:F:A,"@!7(ԧӠŠš:$ $(# ( $ D:MENU.SYS AzF(F&% D:DEFAULT.BAS%>:,4G(G%% D:ASTRON.BAS%>:,4H(H%% D:DISASM.BAS#>:,4I(I#% }D:FONT.BAS&>:,4J(J&% D:SPOOLER.BAS$>:,4K(K$% D:SDUMP.BAS'>:,4L(L'%D:ACCUPRNT.BAS }(% D:MENU.SYSd AD:INTRO 箮$(@(@$(@8A 7&>:,4M(M&% D:PAINTER.BAS>:,4N. ( @ D:MENU.SYS@B7t@@72,16[