@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&'w MAINFILEMODENAMETEMPFILPIWAIVVV == &B@@@V} A$$. 'MICROILLUSTRATOR' .PIC FILE. CONVERTER IN BASIC..$$. LEE C ZION [70155,656]. W} FT GORDON, GA. <<;AB,;A ,;@a,;@,;@, ##. PUT DISK I/O SUBROUTINES INX}. PAGE SIX.GG162,16,169,1,157,72,3,169,0,157,73,3,32,86,228,48,1,96,104,104,96-A6AV( " Y}2 7<##. MODE$ IS A MACHINE LANGUAGEA$$. ROUTINE TO CHANGE GRAPHICS 8F. TO GRAPHICS MODE EPdGG6Z}.=h01eeAO ݩ֩N`in##. MAIN$ IS A MACHINE LANGUAGEp"". ROUTINE TO [}DECOMPRESS .PICq!!. FILES MADE BY THE PROGRAMr"". 'MICRO ILLUSTRATOR' AND TOt##. DISPLAY THEM ON THE SCREEN.vx\}@@6.6hBDEHI  <OO67@U,.<   ]} ĩOO67A,.:AU,QQ67A),.>`RɥPee`/_}eeGG67A,.4(eeЕee##. NOW A DEMONSTRA`}TION PROGRAM. SLIDE SHOW. LEE C ZION.. FIRST SET UP SCREEN+@%@a}. CHANGE TO MODE E6-?:C:,,. READ DISK DIRECTORY . AND STORE .PIC FILENAMES((@b}@D:*.PIC@$$7@<@,0 A-67@<@,.D:-67@,.c}"6.7@,"67@,.-@B:,57<,4 67<,...67%@,.56. # B:,d}#67B:,%@,..PIC"*6-%@*67@$&@,., A06@78"". NOW DISPLAY ALL .e}PIC FILES:. FOUND ON THE DISK.<@6-%@J!AT6.7$@&@,^ @@f}h6-?:C:,,r@t . PAUSEw-@A z. AND NEXT PICTURE| A g}%%. TO USE THE ROUTINE IN A BASIC!!. PROGRAM USE THE FOLLOWING. SHORT PROGRAM.X;AB,;@ah},b"". SAME AS LINES 15-180 ABOVEl+@%@v6-?:C:,,//@@D:FILENAME.PICi}6-?:C:,,@$$. WE NOW HAVE A PICTURE ON THE$$. SCREEN AND MAY CONTINUE WITH$$. THE REST OF THEj} PROGRAM. IT . IS VERY USEFUL FOR FANCY##. TITLE PAGES AND EDUCATIONAL. PROGRAMS WITH PICTURES.D:KOALk}AROGRAM. IT . IS VERY USEFUL FOR FANCY##. TITLE PAGES AND EDUCATIONAL. PROGRAMS WITH PICTURES.D:KOAL!a"`  BBLhhhhhhHHg"ɛL[:g"LBg"LD: m}ɛLLs JKDEBLhhhHH` VCf")`LtH)0Ii H)HHLS: n}$`hhhHHHIDEB ɛL,Lȩ`hhhhHH FLH %ń`l"Dn": o}o"n" L Lo Lx"o"y"p"z"q".n"r"s"Lz"{"y"z"x"y".x"|"}"`m"H m"BXD p}YEHIL`l"  : 01NcNȱL9 L( ` _LG L: `@ l"""̓ q}"L "IH""H"H 2"hH"""h""La `l"X"͂"L=!""̓"L H""h >!"L H" r}h >!f"L7!"L!"L!"L&!"L7!"L `l"d"e""̈́"L!=H s}Lp!H I1Lr!)"LP!` P c" Ye"e"8 d"d"Yb"HHH!HL!*.MIC $ "b"͂"L!"Hn t} "L! n" б `HHH"Hn $ d"Yc"   MLG") G") S"L#"b"ib"L!) u} G"LS"a"`  BBLhhhhhhHHg"ɛL[:g"LBg"LD: V V`pVN iVkVN0VWAV!"#$%&)JJJJV`)V`0ot#",ine0oint0icture0oint"rushicturealettw}eH ԭ`ЩЩЩNWh@HH Խ` ԍнaнDbн`.Whh@D1: D1: D1: x} D1: D1: WX Welcome to Philip Price's Multi-Color Drawer. (C)1984 Philip PriceAvailable y}from ANTIC magazine.Please Enter the Picture name.D1: .PIC4`^ VlV B VB z}JKLXE:DXE V BXYDWEHI V`BJKLXK:DXE VBD`EH{}I V BD`EHI V``WWWWWɛ`  B V`.WWWWWPWWWWWIWCW|}WWWWW0W1W2W3W YZWWWW B VBJKDWE VBD EHI V}}BD0EHI VBtDXEHI V B V䢿tX`uX`vXawXDbBJKDW~}E VBD`EHI V B V䢻Z[BJKDWE VBĝD`EHI V B V}BJKDWE VBDaEHI V B VBJKDWE VBDDbEHI V} B Vԍ/ԩ0V1.Wԩ>/[\ЩPԩЍЍЍЍЍЩ0ЩȍЩЍ L\8S\`I}Э)D):)04)))) L[Lq]L]L]L]L\L^L^LZ\U)S\S\L\S\L\})S\8S\S\S\ VWS\ VWTUS\\]i%SSTTT T`TU`U UU\ 8}S\L[T\IT\B(WWV@ VjV@kV@R\V\Lg]"WWV VjV0kV)}L[8S\)Hi)hL]8S\)H8)h]^L]8S\)Hi)hL]8S\)H8})h VV VV))L[, ҍU\IU\ W WL^W WL^R\i)R\# DbL^}aL^`L^ą`8S\@R\V\^_R\VV)L[/ԩ@ԥ))}BJKDWE V BD`EHI V B VBJKDWE V BĝD`EHI} V B VBJKDWE V BDaEHI V_` B VBJKDWE V B}DDbEHI V B Vԩ>/L[xX{{{{{)V`0ot#",ine0oint0icture0oint"rushicturealett91sMAINFILEMODENAMETEMPOBFILPIWAIMEINDEMEMLMEMHDLISLOHIGRRRRRSSSSSZZZZZFFFFF}IIIIPAUSDIRPEEK5327 } } !"#$%&'()*}+,-./0123dàΛn##by RICHARD Q. FOX [72356,2}42]xIIModifications (menus,directory) by Tom McComb [72456,1042]OOThis program displays Micro Illustrator fil}es in a continuous slide show.MMIt loads one file in one part of memory, while it displays another fileQQin a second }area of memory. Then it fades the screen to black, switches thePPdisplay list to the newly loaded picture, and fades back} up. Requires 48k.ddA directory of .PIC files can be displayed. Pictures can be paused, skipped and disks changed.GG};A0,;A ,;@a,;@,;@,;@,7 +@6-%6-7@@Q0}@@@70@@@Q0@@@d!(@ MAGIC LANTERN3-@}d(@#insert picture disk PRESSV-@@ D(@!PRESS FOR DIRECTORYVAR}@1.(&ǠӠ1(-@A l&( To Pause Picture}I( PRESS To Change Disksl( To Skip Picture-@A6-F:B2y,"@} A %"@ Au%..PIC DIR  AY.à٪ @ @}((@@D:*.PIC[ +'0@@@A0@@[0@@}@00((ŠàΠǪ. A!-@@b.@(7@<@},4E S( A( K( ( (AR@K((Š٠Z/(' }Ӡ TO START THE SHOW!Z(& Ӡ FOR .PIC DIRECTORY++(# Ӡ FOR MENU SCREEN(6-F}:B2y,"@( A "@ Au"@ AT A A##. PUT DISK I}/O SUBROUTINES IN"". PAGE FOUR CASSETTE BUFFER.ee162,16,169,0,157,72,3,169,0,157,73,3,32,86,228,192,0,48,9,238,31,4,2}08,3,238,32,4,96,104,104,96-A$AT "  #$$. MODE$ IS A ROUTINE TO CHANGE. GR.8 }TO MODE E"GG6.=h01eeAO ݩ֩N`,6%%. MAIN$ IS ROUTINE TO DECOMPRESJ}!!. FILES MADE BY THE PROGRAMT"". 'MICRO ILLUSTRATOR' AND TOhrww67@,.dhBDE  } D     |ww67A,.d!  XY }X!  FD))   ww67A,.d ]GPe}e`/ee(e--67A,.eee`##67A<A,.>:}@4,##67AW<AW,.>:@4,HHTHE FOLLOWING PATCHES DIVERT THE COLOR INFORMATION TO MEMORY $5FC4HHTO $}5FC8, AND MAKE THE LOAD ADDRESS FOR THE SCREEN IMAGE VARIABLE.##67A"<A",.>:Ai,##67A#<A#,.>:}@,##67A(<A(,.>:Ai,##67A)<A),.>:A),##67@d<@d,.>:@,##67@r}<@r,.>:@,##67@<@,.>:@,##67@<@,.>:@,##67@<@,.>:@},. READ DISK DIRECTORY& . AND STORE .PIC FILENAMES+@0((@@D:*.PIC:@}D$$7@<@,0 ApN-67@<@,.D:-67@,.X"6.7@,"67@,.b}-@B:,lB7<,4 67<,...67%@,.56.8'B APv # B:,#67B:,%@,..PIC}*6-%@*67@$&@,. Ap@((START LOADING IN THE FIRST PICTURE##67A)<}A),.>:@, A @..NOW THAT ITS LOADED, SET UP GRAPHICS 7.5+@%@6-?:C:,,!6-F:@},!6-F:@,%%6-F:A`,%AV$F:Aa,6-%@6-%@,6-@6-@,SPEED }OF FADES "". NOW DISPLAY ALL .PIC FILES. FOUND ON THE DISK. DISPLAY LOW, LOAD HI* A FADE DOWN4+}%@@+%AA> ApFADE UPH##67A)<A),.>:A),R A @\DISPLAY HI,} LOAD LOWf A FADE DOWNp+%@A)+%AADz ApFADE UP##67A)<A),.}>:@, A @ A++SUBROUTINE TO PICK AND LOAD A PICTURE6-%@"@ A `0}+@w,0. DISABLE ATTRACT MODE-@A6-F:B2y,"@ AT"@} A `"@ A W  A ` . PAUSE-@A "F:B2y,@" A }Y!A06.7$@&@, @@6-?:C:,,@$KKTHA}T'S THE LAST PICTURE, PUT THE TITLE UP WHILE WE LOAD THE FIRST ONEj6-!+@%@3-@@N @} MAGIC LANTERNj(@ -@A  AT**SUBROUTINE TO SET UP THE F}ADE VALUES$N6-F:A,!6-F:A ,06-F:A,?6-F:A,N6-F:A,.I6-'@6-'@-6-}'@;6-'@I6-'@80 6-P:,6-P:,6-P:,'6-P:,06-P:,BI6-$@6-$@-6-$@};6-$@I6-$@L$VFADEOUT SUBROUTINE`% A`6-6-6-%6-j""__Begin fadeout_____}________t 6-& AP:,~ A 6-& A P:, A } 6-& AP:, A 6-& AP:, A99}F:A,)F:A ,)F:A,)F:A,A@""__End fadeout_____________$FADEIN SUBROUTINE##__Beg}in fadein after new pic_N6-F:BE,!6-F:BE,06-F:BE,?6-F:BE,N6-F:BE , Ap  -}AP:,  -A P:,  -AP:, ( -AP:, 2##_}_End fadein_______________<$D:MAGICLAN.BASINDEMEMLMEMHDLISLOHIGRRRRRSSSSSZZZZZFFFFF9@UC$$נ͠Ǡί <0@/AR@}<(>:A%, ;@$,-@@$"(67<,.>:,2 <6-?:C:,,Fd))162,0,173,11,21}2,201,32,208,249,141n++10,212,142,24,208,232,232,208,246,142x24,208,240,232 D:RAINBOW.BAS/AR@i#$ROSIZCCHOVEUOFLIGHTXY@A`@AA@4AY @}0 A6 AB!r A01p qqModification of ANALOG's Tom Hudson's SPHERE program. Each of 11 views of the spher}e is slightly different.kkEach sphere is rotated one degree counterclockwise. Designed for single-frame animation on vide}otape.nnAnyone wishing to modify this for real-time animation via ML routines and/or page flipping, let me know!%%2/1}2/84 Greg Leslie [71565,235]-@ i6-@6-A`'6-@*66-AB6-AQ6-F:}AY,]6-i6-AYK +@$'0@@A0@K@ ,%(} -@6@2-A`@<  /  F ,%P""-@&6@}Z-A@d%  / ,% %,&n""-@%6@x-AA`}@  / ,& P &-@6?L2@$%@ @P 4}F:B2y,"@*@w4 AP '6-&+$G:,$G:,,$6-%$E:,'$,)6-%+$E:,,&6-&+}$G:,$G:,,)$D:SPHEREUOFLIGHTXY@A`@AA@4AY @_`HDZABCDXSTICKYSTICKNAMEMOVEDLICCWORCVACUNDEINVWAICUNDERCHAXYREBRIGHCO }@@ @  }H +@((@ GRAPHIC }S 10/7H(@please stand by...AR@ A ӠҠ Ǡ̠ }Š Ю̠ ?1;AV,;AV,;AV,;AV,?THE BUFFERS119@, }9@,;@,;@,STICK DIRECTIONS? #@ !-@@%".68,-2";68,- }? 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 SET } AT 80 PIXELS ACROSS, 80 DOWN.WE USE PAGE 6/ #@&!-A6A%"+/ ##104,104,104,133,2 }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, }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,165 },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,2 }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, }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,208 },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,961 }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,157 },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, }32,23796,104,104,96,0,0,0,0:;66SET UP BUFFER ADDRESSES FOR ML ROUTINE ACCESS<=B6-P:C:,'AV,*6 }-C:,&$AV6ABA>B6-P:C:,'AV,*6-C:,&$AV6ABA?B6-P:C:,'AV },*6-C:,&$AV6ABA@B6-P:C:,'AV,*6-C:,&$AV6ABAAB }ӠРC;@2,D9@,%68,-:68@,-@O68@,-@d68@ },-@ y68@,-@68@,-@68@,-@E +@AR@FG"A# }A("GTIA GR.10H+@@+FOOL SCREEN HANDLERIJACOLOR 0KA@ }COLOR 2LA@8COLOR 3MAACOLOR 9N A AH COLOR 10O AA }COLOR 11PAARCOLOR 8QR4 #@!-@1%"0C:,%4 S33F:A`,%AV$F: }Aa,%@AAT?AP:C:,'AV,?AC:,&F:A,$AVU"BBA"ENABLE DLIVS }"( THIS IS GRAPHICS 10/7;( P. BUDGELL 1983O-@APS W##@@K:X }Šˠ٠YZ.6-F:@,&A(. @[@B7t\@@72,169,0,141,10,212,141, }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 #@!-@@ }%"367<,.>:,7 `104,162,16,76,86,228aO6-@@6-@@(8@,76-8@,C6-@O6- }b AINTRODUCTIONc(6-F:Ad, AU( Ad! Ap A! @eH 1, }06-+",$8@,D-@@H n% ,!-@@% x  ,"T:," }",$56-R:,6-%8,)"@56-@y"6@6-&6-%8,"@ }&6-@y"6@6- @1$")@"AdAU""@:D, A }" A""@:F, A " A""@:C, A0" A;"@:X, >:A%,1 @>:A }%,; A""@:L, A@" A""@:S, AP" A""@:R, A`" A11(>: }A%,ӠҠՠ--(% D=DRAWTO MODE F=FILL C=COLORCHANGE--(% X=NEW SCREEN L=LOAD S=SAVE }SCREEN--($ R=COLOR REG. SPACE=REGULAR MODE$**(" REGULAR DRAW MODE - PRESS TRIGGER( Ҡ  ( } (TO ERASE USE COLOR 0 ) .6-F:@,&A(. A0@B7t$77(>:A%,$ }Ϡ: PRESS TRIGGER TO DEFINEG-(%NEW STARTPOINT; PRESS AGAIN TO DRAWTOG(PRESS ANY KEY TO EXITJ A"T: },"4B2y:6-@6-J A!6-F:Ad, AU!$ Ap AK T: },"ALN Ap"T:,"&,,2/DB2yN AV$6-F:Ad, AU }!'$$W A A T:,"A?$- ,-$6-?:A6<,*6--$ )6-%@ }"@)6- & 8,6-8,&( Ҡ =  $0&(>:A%,ĠԠſ0 A@p( }(( GIVE NAME SUCH AS D1:XX.Y OR C:1( FILE NAME '4C:)4C1 AA @@tA }P@*ARF:@,?ASF:@,QAVA(cAW@tSET UP IOCB #16-?:C:,, }6-@$)@2A%6 -@ BBA* B-$[( ԠΠ8 }@@A)C:B A@@[SHORT IRG FOR CASSETTE4*(>:A%,ŠϠԠſ?4 APp$$( G }IVE NAME eg. D1:XX.Y or C:0( FILE NAME &4C:)4C0 AQ @@tAP@ }*ARF:@,?ASF:@,QAVA(cAW@tSET UP IOCB #156-?:C:,,5MULTIPLE O!}F 128 BYTES MUST BE MOVEDJ-@/*@F:A%,3 JCOLOR REGISTERS LAST-@ BB!}A* B-$//(&ԠΠҠǠŠŠ AQ 3INITIALIZE APp /#@@!}A(C:/SHORT IRG AP@p6,(>:A%,GIVE REGISTER # TO CHANGE6 A`z%%(BETWEEN 704 AND 712 !}INCLUSIVE( REGISTER !! A)!AA`%!( GIVE BRIGHTNESS 0 - 15 %!! )!@!}A`@!( GIVE COLOR 0 - 15 !!! )!@A``$@% B$D2:PA!}INTER.BASDZABCDXSTICKYSTICKNAMEMOVEDLICCWORCVACUNDEINVWAICUNDERCHAXYREBRIGHCO 0100 ; ̠ŠǠϠ0110 ;0120 ; CIO EQUATES USED0130 ;0140 CIO = $E4560150 ICCOM = $03420160 ICBLEN = $%}03480170 CGBINR = $07 ; GET BINARY RECORD0180 CPBINR = $0B ; PUT BINARY RECORD0190 ;0200 BUFA = $CB ; ADRESSES%} FOR IND,Y0210 BUFB = $CD ; ADDRESSING FOR0220 BUFC = $CF ; PIXEL COORDINATE0230 BUFD = $D4 ; STORAGE0240 % };0250 XPOS = $55 ; X COORDINATE see OS0260 YPOS = $54 ; Y COORDINATE " "0270 ;0280 COLOR = $D1 ; COLOR TO% } PLOT0290 ;0300 ; THE FOLLOWING LOCATIONS CAN ONLY0310 ; BE USED TEMPORARILY, BECAUSE THEY0320 ; ARE RESERVED FOR THE FLO% }ATING POINT0330 ; ROUTINES.0340 ;0350 COLOVER = $E6 ; COLOR TO COVER0360 COUNTNEW = $E7 ; # NEW PIXELS0370 COUNTOLD =% } $E8 ; # PIXELS TO TEST0380 ; AROUND0390 XPSTOR = $E9 ; STORE ORIGINAL XPOS0400 YPSTOR = $EA0410 XP % }= $D6 ; X COORDINATE0420 YP = $D7 ; Y COORDINATE0430 TEM = $EB ; TO STORE Y INDEX0440 ;0450 ; Š%}̠ŠӠŠ0460 ;0470 *= $06000480 ;0490 PLA 0500 PLA 0510 PLA ; THE COLOR TO PLOT%}0520 STA COLOR0530 LDA $06FE ; BUFD ADDRESS STORED0540 STA BUFD ; HERE BECAUSE OF THE0550 LDA $06FF %} ; LIMITED FREE SPACE0560 STA BUFD+1 ; IN PAGE 00570 ;0580 LDA #00590 STA COUNTNEW ; INITIALIZATION0600 %} LDY #1 ; ONE PIXEL FIRST TIME0610 LDA XPOS ; FROM O.S.0620 STA (BUFA),Y0630 STA XPSTOR0640 STA X%}P ; FOR THE FIRST LOCATE0650 LDA YPOS ; FROM O.S.0660 STA (BUFB),Y0670 STA YPSTOR0680 STA YP %} ; FOR THE FIRST LOCATE0690 STY COUNTOLD ; ONE PIXEL0700 JSR LOCATE ; GET COLOR TO COVER0710 STA COLOVER0720%} CMP COLOR ; ITSELF ?0730 BNE PRELOOP0740 RTS ; IF ITSELF QUIT OR GET0750 ; INFINITE%} LOOP !0760 ;0770 PRELOOP JSR PLOT0780 LOOP LDA (BUFA),Y0790 STA XP ; X FOR CURRENT PIXEL0800 LDA (BUFB),Y%}0810 STA YP ; Y FOR CURRENT PIXEL0820 ;0830 LOOP0 INC XP ; TEST TO RIGHT0840 LDA XP0850 CMP #80 ;%} RHS LIMIT TO SCREEN0860 BCS LOOP10870 JSR LOCATE ; IF WITHIN SCREEN0880 ; THEN SEE IF THE PIXEL%}0890 ; CONTAINS THE COLOR TO0900 ; BE OVERWRITTEN. THE0910 ; LOCATE ROUTINE%}0920 ; CONTAINS THE COMPARE.0930 ;0940 BNE LOOP10950 JSR KEEP ; PLOT IT AND MARK IT0960 ; %} FOR ITS OWN TEST0970 ; NEXT TIME THROUGH THE0980 ; LIST OF LOCATIONS.0990 ;1%}000 LOOP1 DEC XP1010 DEC XP1020 LDA XP1030 CMP #255 ; CHECK SCREEN LHS1040 BEQ LOOP21050 JSR LOCA%}TE1060 BNE LOOP21070 JSR KEEP1080 ;1090 LOOP2 INC XP1100 INC YP ; TEST BELOW1110 LDA YP1120 C%}MP #80 ; BOTTOM OF SCREEN1130 BCS LOOP31140 JSR LOCATE1150 BNE LOOP31160 JSR KEEP1170 ;1180 LOOP3 D%}EC YP1190 DEC YP1200 LDA YP1210 CMP #2551220 BEQ LOOP41230 JSR LOCATE1240 BNE LOOP41250 JS%}R KEEP1260 ;1270 LOOP4 DEC COUNTOLD1280 BEQ DONELOOP ; ALL POINTS DONE1290 INY ; ELSE DO NEXT POINT1300 % } JMP LOOP1310 ;1320 DONELOOP LDY COUNTNEW1330 BEQ RETURN0 ; IF NO NEW POINTS1340 ; IN THE COLOR TO%!}1350 ; COVER REMAIN1360 ;1370 STY COUNTOLD ; THIS BECOMES THE1380 ; NEW # PIXELS TO%"}1390 ; PLOT AND TEST1400 ;1410 TRANSFER LDA (BUFD),Y1420 STA (BUFB),Y1430 LDA (BUFC),Y1440 %#}STA (BUFA),Y1450 DEY 1460 BNE TRANSFER ; MOVE BUFFERS1470 LDY #11480 LDA #01490 STA COUNTNEW ; INITI%$}ALIZE1500 JMP LOOP ; BEGIN AGAIN1510 ;1520 ; ŠӠ1530 ;1540 KEEP JSR PLOT ; Y REG. IN TEM1550 %%} INC COUNTNEW1560 BEQ RETURN2 ; BUFFER OVERFLOWS1570 LDY COUNTNEW1580 LDA XP ; STORE THE COORD.1590 %&} STA (BUFC),Y ; OF THIS PIXEL1600 LDA YP ; FOR PLOTTING AND1610 STA (BUFD),Y ; TESTING.1620 LDY TEM %'}; RECOVER Y REG.1630 RTS 1640 ;1650 LOCATE JSR POS1660 LDA #CGBINR1670 STA ICCOM,X1680 JSR CIO ; C%(}IO LOCATE1690 LDY TEM1700 CMP COLOVER ; PIXEL IN A REG.1710 RTS 1720 ;1730 POS STY TEM1740 LDA XP1750 %)} STA XPOS ; POSITION X1760 LDA YP1770 STA YPOS ; AND Y1780 LDX #$60 ; TO USE IN LOCATE1790 LD%*}A #0 ; AND IN PLOT1800 STA ICBLEN,X ; ONE PIXEL AS1810 STA ICBLEN+1,X ; IN ACCUM.1820 RTS 1830 ;1840 PL%+}OT JSR POS1850 LDA #CPBINR1860 STA ICCOM,X1870 LDA COLOR ; THE ONE TO PLOT1880 JSR CIO1890 LDY TEM%,}1900 RTS 1910 ;1920 RETURN0 LDA YPSTOR1930 STA YPOS1940 LDA XPSTOR1950 STA XPOS1960 RTS 1970 ;19%-}80 RETURN2 JSR RETURN01990 PLA ; WE EXITED A SUBROUTINE2000 PLA ; SO POP RETURN ADDRESS2010 RT%.}S ; TO BASIC2020 ;2030 ; ϠŠҠ٠Ӡ2040 ; ŠҠΠؠ2050 ; ŠΠԠ%/}Ӯ̠ŠǠϠ0110 ;0120 ; CIO EQUATES USED0130 ;0140 CIO = $E4560150 ICCOM = $03420160 ICBLEN = $$0100 ; ŠҠ0110 ;0120 *= $06000130 ;0140 PLA ; TERMS0150 PLA 0160 STA $0355 ; )1}ICBADR+1+$100170 PLA 0180 STA $0354 ; ICBADR+$100190 LDA #00200 STA $03580210 LDA #$20 ; MAX PO)2}SSIBLE LENGTH0220 STA $03590230 LDA #7 ; C. GET BIN. REC.0240 STA $03520250 LDX #$100260 JSR $E)3}456 ; IGNORE ERRORS0270 RTS 0280 ;= $06000130 ;0140 PLA ; TERMS0150 PLA 0160 STA $0355 ; (+%&8&FNEORCAXFRCLEARBCAUESCCLFDNCCCCC10CPC25C55C1C6C75CHBAC25CC1DC56C56CC1C1-5}2ACONSOXYCC1CC1XCHACCSASAORIC2C12LI 2K k*A@-6}AA  % @ & '@@@AyA@-7}AV@AY@@dAVA6 AU!@"@#Bh$A`%Aa&@-8}'@(A()*+B2y,-.Ad/0@1@ 2@3456-9}789:;<=>@'?A'@A ""CREATE-A-FONT by Vince Erceg-:}PROGRAM WRITTEN: 8/2/83(2o Ao;@,;@,;@,;@%,;@2,;@B,9,-;}9,9,;,;,;,7n6.>:@0,!6.>:@),)6. 267,.;67,.L67@%,. U67,.n6.ERDICSLF-<}T-=+*UKQ:AFB6.>:@',+ A .-@2">67,.>:,B K%-@2"!67,.>:,% P' --=}#68&,-P:#%?P,' Z26-F:,&6-+%,$&A#2BBy_/B2w6-&/6-?:C:,<BsD<$,->}d1+ A8AU%1B7tnW 6-$'6-?:C:,<&$<$,9AAHEAWA-?}AHxQB2HAh'B2PAh9B2QAhEAQA}'AB2V'B2-@}XKAR-%-@1/-%%C(>:$@2%,G K =B2Y!-&A&'+ =-A}B2SA`36-F:,%F:,$%$%&@-&3S-%A%A%-3%@C%%-B}ApS%%ApQ%%A2@ ! +6-%$5 A;6-G@FQ A02 -(dit-C}(everse'(ata2(nvert9 (lear( ave Font)( oad Font9( rom (Copy)K@@!-@/(-D} o (Copy)K(>:AV, Scroll UPY(>:AW, Scroll DN=(>:AX, Scroll LeftY(>:AY, Scroll -E}RT\ (ndo( olor change&(uit2@>-@Y(ntic 4/5 Atari\$2 6-A!A-F}2F:,"A F:,"A/-%@0%()-%@0%/(  R:,"*T:,*F:,"A(-G}T:,A  6-R:,F:, A06-%+!* ,&+!* ,336-%+",%+",%+",&+",&+",&+"@,-H}  6-" !6-,  6-6 !6-@8 -%@0% (*-$. 8 AJF:,"@-I}9@fTFK:)96-$+!@A* @,F(A^--@7<,0>:,# - -J}AhA A@APAAA APAAA0APApAA0-K}A@A`AAPr^ A6-@&0-A`@@6<B2SD-%H(P6-&^ A-L}| *-A`B2S! '-*$(T:,A A A1 6-%$-#68,--M}F:%,' 1 A P6-%@1&F:,(2, 6 A p= ApA8!-/-@#%9(F-N}:%,=  - ( PRESS JOYSTICK ;(BUTTON TO CONTINUE'1%%1-%%;(>:, --5 -O}-%%(>:,!-%%-(>:%,1 5 T:,A3A8AU Ap) A3 AH --P}68,-F:%$, '-/-@%$%8&,D H  A p1-%@2#2' 1 A p-Q}H Ap((5(FILE (dev:filename.ext)9C A H -A#86-F:%,%-R}%**F:%,. 8 ApU (>:AS, SAVE COMPLETE.-A2 < ApAK AU A&H A-S}p((5(FILE (dev:filename.ext)9C ApH+-A#0( )%% ( -T}Ap52 (>:AS, LOAD COMPLETE.-A2 :& Ap A& A0Dj 6-6- Ap6(-U}LOCATE CHARACTER TO COPYT(AND PRESS JOYSTICK BUTTON^ Ad6-j6-N4 -%F:%$%, * Ap4 A-V}X: --(%$%F:%$%,, 0 : Abl 6-6- Ap2(LOCATE CHARACTER TO H(REPLACE A-W}ND PRESS\(JOYSTICK BUTTONf Al6-lF 6--$%$%F:%$,( 2 Ap< AF AvS --X}68,-F:%$, (6-8,0->68&,-8,B K68,-S-K-6%$%8,92A&$&@-Y}= A K A pN -68,-F:%$, (6-8,3-6A68,-8&,E N68,-C-6-%-Z}%$%8,12$5 9 C A p) -68,-F:%$,)68,-8,$$ 8,!68,-8,&$ AB -[}--&%$%8,024 8 B A pB -68,-F:%$,&6-8,'/"P:,868,-B A -\}68,-P:,%D --&%$%8,22&6 : D A p$ -%8, $ A P-]}W Ap A@+(COLOR REGISTER/2(=(COLORAD(S( LUMINANCEW?6-%A? A)!A)-^} )!) )!A@C $%"AF:A,, Ap6 AC(A  A`Y Ap+(PRESS-_} 'Y' TO EXIT PROGRAM0>K:E)Y"@A! Ap A! A ;-@1-%F:-`}BsD%&%P:',,1 ; A p6+@4B2w''3A86 1%%6-*9 6-6--a}1%%%-%%9(>:%&$+",,4' -R:,"*T:, ' A>(T:,A H -%%(>:,RV-b} 6-R:,&6-%+!* ,&+!* ,V6-%+",%+",%+",&+",&+",&+"@,\  6-@1f!@16--c}p  6-z !6- -  A !6-& A C++!* @,)+!@1* @e-d},96-&@2C A @!6* @26-% -%%(>:,$B 2-%@1'-:-e}%F:%+&,',> B  A> 2-%@(0%+&,'F:,4 > AG6-?:C:,:,@-%@ $+",@"&+",J(>:-u},N e A`jN -%-@!,(>:AV,0 : ApD AN At+ --@!$(>:-v}AV,( +$~D6-A6-@Q,F:%,"A86-@D6-ApK-%%A-'%1-w}%%;%%K%%A2E  -&&7$+"@,%$+"A,; E AJJ104,104,133,204,1-x}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,-y}212,145,214,200,208,249,230,213230,215,202,208,240,96ALMOST DONE!!- 6-F:,%F:,$%A-%-z}, - (>:AA,,AR#(>:AA,#%=-@8-%(>:AA,+-9(>:-{}AA,= ] -1(#'THE ULTIMATE CHARACTER SET EDITOR'4(7(](! Created 8/2/83 by Vince Erceg]-@@"-|}/(PRESS TO BEGIN=%@4Q%@!@P]BBw; #A0!-A6AT%"+/ ;-}}@4.6-?:A6,-@.( PLEASE WAITB-6BBw&BBv.-:2$> B  -~}2[ARA!AS';-ApA?"EI W-@B[" 67,.>:, #$-}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,-}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,-}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,203-},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,10-}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,-}198,204,160,0,145,203,96x- Ap A`-D:*.*?-@!6.7,?7<,4 FREE SECTO-}A`+'"P:',-+%,'!(+ A@-+%,'( ;( ('(PRESS ANY KEY TO CONTINUE1 Ap-}; A>( ( (END..PRESS ANY KEY* Ap4 A> A  F:,  Ap A-}K6-6-@#6-%+6-%36-%;6-%C6-%K6-%3 6-%6-%6-%#6-%+6-%36-%-}; 6-%6-%6-$'6-A36-A';6-%S6-AU6-%#6-AY+6-%36-%?6-AVG6-}-%S6-B2y$ D2:FONT.BASESCCLFDNCCCCC10CPC25C55C1C6C75CHBAC25CC1DC56C56CC1C1,*LRS:H` B V`BDEhK)I JLVUVT`H 2` BHIhLV }}~ɛ  ;} 21} ` RUN"D:MENU*.*"  \`b1}b B V`BDEhK)I JLVUVT`H 2` BHIhLV }}~ɛ  ;} 20 8 G JXLAPNBEGIJBLJ e} '@@'@@9O6-@ Be}OD1:MENU MODIFIED BY JERRY WHITE AND RUSSELL GROKETTAR @h -@6?=-@e}6? ]2%@&@a e h$ dG;@%,;@@,;@ ,;@@,;A,;@e},d@D:*.* >@'-@@4(Presents> @=-@@=(#e}-#6. - @0''7@<@,4FREE@c 6-e}%"6.7@<@,;67@ <@ ,..c67@<@,.7@<@,' 6.|67B:,%,.'67B:,%e},.A67@<@,.('-B:,47<,4 A67<,..E 6.=:, @867@<@,.7<,e}E67<,.0$ @ B //IF A$(3,5)="MEN" OR A$(3,5)="VAR" THEN 30(&&7@<@,4SYe}S@02" @ "(@) < @ B>//IF A$(3,5)="MEN" OR A$(3,5)="VAR" THEN 60F&&e}7@<@,4SYS@`P< @ 2(@7@<@,)|< @0W0!-@6+'@,%@e}0 @|X0!-@+'@,%@0(@|Y0!-@6+'@,%@0(@|Z44(@e}#| |[&&? #6;"| ";A$;" |"\F4(@#e}FAR@"-@@ "(@R-@@)-@@ @(@ SLCINN-e}@R B-@@ ,(@ EETO:-@> B E-@@ -(@ e}7 A0;E BP:,A0$ "6.7<@,$ AED A0:6.7+&,$@%<+&,$@e}%@,D B77@<@,4 -6.7<@,7 AEP7@<@,4OBJ)7@<@e},4AUT)7@<@,4DOCZ+}(--- REMOVE BASIC CARTRIDGE ---7<@,4DOS.* 6.-Be}:,*7<,4 AH67B:,%,.7<,   6. 6.D1:67B:,%,.0-@ 0(@ Le}OADING  A% B=-@ 3(@ CANNOT RUN = BM-APAP52e}@'@P9 C @M A0' +'--6-F:A`,%F:Aa,$AV%@$'&@@e}q.'%@@B'E%@$@e.%@%F:A`,E%@&F:Aa,L'Q0@@@e}70@@@Q0@@@V'0@@@`'5@@2(@e}堠5$D1:MENUPNBEGIJBLJ d  JXLAPNBEGIJBLJ@@ @ (AU(}  e} @ Br @%%>JAX ATARI COMPUTER ENTHUSIASTS'@@'@e}@9O6-@ BOD1:MENU MODIFIED BY JERRY WHITE AND RUSSELL GROKETTAR @h -e}@6?=-@6? ]2%@&@a e h$ dG;@%,;@@,e};@ ,;@@,;A,;@,d@D:*.* >@'-@@4(Presents>e} @=-@@=(#-#6. - @0''7@e}<@,4FREE@c 6-%"6.7@<@,;67@ <@ ,..c67@<@,.7@<@e},' 6.|67B:,%,.'67B:,%,.A67@<@,.('-B:,47<,4 A67<,..E 6.=:,e} @867@<@,.7<,E67<,.0$ @ B //IF A$(3,5)="MEN" OR A$(3,5)="VAR"e} THEN 30(&&7@<@,4SYS@02" @ "(@) < @ B>//IF A$(3,5e})="MEN" OR A$(3,5)="VAR" THEN 60F&&7@<@,4SYS@`P< @ 2(@7@<@,)|< @e}0W0!-@6+'@,%@0 @|X0!-@+'@,%@0(@|Y0!-@6+'@e},%@0(@|Z44(@#| |[&&? #6;"| ";A$;" |"\F4(@e}#FAR@d>(@(@>(@ ************f(e}((@ *Š*h(((@ ************"-@@ "(@R-@e}@)-@@ @(@ SLCINN-@R B-@@ ,(@ EETO:-@e}> B E-@@ -(@ 7 A0;E BP:,A0$ "6.7<@,$e} AED A0:6.7+&,$@%<+&,$@%@,D B77@<@,4 -6.7<@,7 e}AEP7@<@,4OBJ)7@<@,4AUT)7@<@,4DOCZ+}(--- REMOVE BASIC CARTRIDe}GE ---7<@,4DOS.* 6.-B:,*7<,4 AH67B:,%,.7<,   6. 6.D1e}:67B:,%,.0-@ 0(@ LOADING  A% B=-@ 3(@ e} CANNOT RUN = BM-APAP52@'@P9 C @M A0' +'--6-Fe}:A`,%F:Aa,$AV%@$'&@@q.'%@@B'E%@$@e.%@%F:A`e},E%@&F:Aa,L'Q0@@@70@@@Q0@@@V'0@@e}@`'5@@2(@5$ D:MENUPLUS (AU(}  dS GUAUd--- HELP !! ---nA +'0@@A0@@x( <<< 9}HELP >>>( ( ((((//(& The programs on this disk may consist))(!of several types of disk files or,,($9}formats. All programs will run on an))(!Atari 800 48K, with DOS 2.0 disk.((( Other systems and configurations,,($9}should also work with most programs.( ( (((, A6(} LOADING PROGRAMS:@/(/($ Programs on this di9}sk may be one ofJ((( following types of files and areT--(%identified by the filename extension.^.(.(# .DOC or .TX9}T - Documentation texth,,($file. Use the DOS (C)opy function tor++(#copy file to the screen or printer.S(S(H .OB9}J - Machine language file. RemoveBASIC cartridge and use DOS Binary''((L)oad to load and run program.-(-(" .BAS o9}r no extension - Use BASIC$$(cartridge and load normally. A(}-(-(" .PIL - Requires PILOT cartridge9}..(.(# .MUS - Requires Atari Music Cart.Q(Q(F .AUT - Move file to another disketteand change the .AUT extension9} to++(#.SYS extension using DOS (E) rename**("file then reboot computer with new (disk./(/($ Other extens9}ions may be used. Check,,($your Atari DOS manual for more info..(.(# Some files may not have the proper''(exte9}nsion. If you have problems--(%loading with BASIC, go to DOS and try&&(Binary Load or Copy functions. A9}%D:MENU*##@@K:$($(Press to continue.)@@$9}D:HELPGUAUd--- HELP !! ---nA +'0@@A0@@x( <<< 8 O`CCTHENLLTTS =}  6-AY6-@6-?P6- }0@=}d APn +@o0@p0@@q @x%-@@! =}A@%  A` A@ A@SQUARE ROOT OFX,Y 6-6-M:$%$,6-+6%,'@=} 6- 6-M:,6-+%,'@ 6- 6-M:, 6-6=}$FOUR OVER L6-$%$6-@$'6-6@$'$ X,Y TIMES L  6-6- 6-$=}&$ 6-$%$ $FUNCTION OF X,Y A06-@& A&H:@, ?P6-6&6-=}66-@&6-'@6-'@$GET VALUES?! WHAT IS LAMDA?(X,Y)! A =}  WHAT IS SCALE6-@$'$pPLOT X,Yq @z!!,P:$+&?P,%,P:&$,$ D=}:FRACTALO`CCTHENLLTTS < 1. Put your BASIC cartridge and the S.A.G.E. program into the computer.2. From BASIC, load the program as described in the A}manual3. Type: 410 X=INT(PADDLE(0)/1.603):Y= INT(PADDLE(1)/2.684):GOTO 450 4. Save this program, on another disA}k.The program will now use a Digitizing tablet instead of joysticks.NOTE: To run, first, load the program you just changeA}d, then put your original S.A.G.E. disk /cassette into the drive, then type RUN BASIC, load the program as described in the @P01LDRFMFILEDRIVSCREEKEGREYBUFFERPTE} dn| Digitized Picture E} |x|Loader and Printer Dump|| for MX-80 (Graftrax) || by || Ira Brickman E}|| 1/84 || Orig. Dump Subroutine |E}| by || Edward Schultz, Jr. || (M.A.C.E.) || Modified by: |E}| Pat Warnshuis, P.A.C. |11;@7,;@ ,;@,;@,//6.%hhhE}ihhBhEhDhIhHLVM +AAx1AR@CAdAUM Ap"?AAE}`?(%}ĠŠҠҠ,Z A-@@?(Enter Drive # with picturesV((=DrivE}e #1): Z6 @6-@@((Drive #JH A0@(D($Enter Picture Name (=DirectoryE}):HT4A`^ Ah3 6.D67@,.=:,367@,.:*.PICr--(%}ĠŠҠE}Ҡ|+(((Pictures on Drive # are:+(* A0*@@@B"7@ to load new pictureX2( (2($ PreE}ss space bar to re-load same picb)( ()( Press any other key to endlAdAUv&6-F:Ad,&"AUE}A0+"@!AdAU+ A+"@3!AdAU+ A A--(%}E}ŠҠҠ(( INSTRUCTIONS:O(/($ This program uses Graphics mode 9O(to load digitized pictuE}res.>(( Your pictures must have the file>(extender ' .PIC'."("(The following may help:,,($ (1) meaE}ns press RETURN keym,($ (2) If you have no printer, youR(! CAN load new pictures tom( screen onlE}y.B( Just press B(% after each picture is loadedn+(# (3) If you have a printer, youT($ E} can review pictures withoutn( printing by@( pressing @(% after each picture is loadedQ,(E}$ (4) To print, hit any other keyQ( after picture is loaded '('( Ԡ٠٠ϠΠAdE}AU &6-F:Ad,&"AUA*AdAU$4E A%;@2,;A,E@@E}P:>>-@@2")67<,.>:,- >Set grey scaleH%%255,255,251,223,251,222,206,183R!!219,7E}8,221,70,217,70,248,85\ 38,153,36,153,36,145,17,72f4,65,4,32,0,16,0,0py67@,.>:@',,67@,.KD6E}7@,.>:A(,\67@,.>:@,yTell Epson 384 dots comingzZ @ @> @>:@',AE}>:@,Zset Epson for 8 dots/line -@y6@,6-@@-AH1X6-%%@E}n67,.7<%@,|6-%@ ! @ ! $ +AA` ( ( (E},,($,,($| Replication & distribution of |,,($| this program is permissable E}only |,,($| if author credits in the program |$,,($| listing remain intact on copies. |.,,($| Program enhancements E}by others |8,,($| are encouraged. Please mail any |B,,($| changes or comments to: |L,,($| IraF} Brickman |V,,($| 1-F Valley Forge Ct. |`,,($| Ridge, N.Y. 11961 |j,,($F}t D:DIGPIX.BASRPTD6oLDFILECCCCA J}d##*****************************n##* *x##* MICRO-PAINTER* *##* PICTURE J}LOADER *##* *##* BY: TOM HUDSON *##* *##J}* * TM OF DATASOFT, INC. *##* *##******************************** READ LOADEJ}R DATA ***8;A,$-@A("467,.>:,8  *** INPUT FILENAME AND *** *** LOAD J}PICTURE FROM *** *** DISK ***";@,$$ + A`$;@ ,& #A6.J}D:("4XXX%*67@,.,5 A@5@@6 +@$6-?:C:,,@J }@AJr)@)@*)@7)@B@NAZAfA rAJ }O-@AT F:B2y,"@APY ^ Ah@@r*** PICTUJ }RE LOAD DATA ***|ZZ216,104,173,48,2,24,105,3,133,203,173,49,2,105,0,133,204,160,0,177,203,201,79,208,21]]169,78,J }145,203,165,203,24,105,2,133,203,165,204,105,0,133,204,169,0,240,14,201,15,208,6]]169,14,145,203,208,4,201,65,240,17,165,J }203,24,105,1,133,203,165,204,105,0,133,204,169,0VV240,198,162,16,169,7,157,66,3,169,0,157,72,3,169,30,157,73,3,165,88,157J},68,3,165==89,157,69,3,32,86,228,189,67,3,133,212,169,0,133,213,96##ŠҠӠ##ΠJ}Ӡ׺ NAME.PIC,NAME2.PIC, ETC...%%DRAGON.PIC,GATOR.PIC,SATURN.PICJK!!ŠŠנJ}ŠӠӠL XXX D:MICLOAD H%>?ININ1OUTOUT1HOLDQCOLREGNUTITYPTYPTYPCOUNTN}@ @==N}ANTIC SEPT 84 VOL.3/NO.5 EASY GRAPHIC CONVERTER PAGE 57 GRAPHICS CONVERTERBY CHARLES JACKSONANTIC MAGAZINE(N}h -@x@f6@,A8ALA Ah&`-@@d h 2RR;@,;@N},;@,;@,;@,;@,9@,<*'(} *** GRAPHICS CONVERTER ****(F9A@f'N}A@f9A AP((1) Micro IllustratorZ##( (Tech-Sketch, Koala, d( Chalkboard)N}(n((2) Micro Painterx( (Datasoft)(((3) Moviemaker( (Reston)(((4) Fun with ArtN}( (Epyx)(NUM = Number of types6-@6-@-(&(Type of source file (1-4) *-(N}!A( Filename (+6. +6. 467@<@,.D:467@N}<@,.+$(Type of desired file (1-4) (+(!A@AC!(}NEEDLESS CONVERSION5N}-@A9 C @`@A@"6-@P,uA @'AA9AAN}u(7}Micro Illustrator files must be named 'PICTURE'61(-("Press 'Y' to name the output file.1@0Y@N}`J]6.PICTURE6-@/A@fAA@fSA A] A`TF!( Destination fiN}lename6( (No ext.):C6-B:,F(^!!"@*!@A@h667@<@,.D:667@<%@N},.r@A|-#67%@<%@,..BKG- A 6-$% ( Please stand by . . ."(N }"((Approximate conversion( time:  minutes)##BRANCH TO CONVERSION ROUTINES+&+%@,,AA`N!}AA A AA`ApAA@A Ap( Still working . .N"} .%%+"@,)+"@,APDELETE TEMP. FILE''@@D:TEMP:/@3@N#}D:TEMP:@ AP((Micro Illustrator to Micro Painter= @@=@N$}@5-@Av$)@1*@5 O*@@)*@@@<*@N%}AO*@AP&@@$0&&Micro Illustrator to Movie Maker: 6.6.D:TEMP AN&}D 6.6. A N''Micro Illustrator to Fun With ArtX 6.6.D:TEMP Ab 6.6. AN'}l""Micro Painter to Movie Makerv= @@=@@!6-!A@fN(} A?-@@@$)@1*@?6-%@"A8DA 2-@N)}@@$)@( 2 APA-@@0**@. A*@A& B@#N*}@&$((Micro Painter to Micro Illustrator= @@=@@5-@N+}Av$)@1*@5 @@$""Movie Maker to Micro Painter = @@N,}=@@9@@, 6-*-@@4>-@@@$)@N-}1*@:68,-> >/-@@@'*@8,+ / H5-@@$)@1*@N.}5 R& B@#@&$\&&Movie Maker to Micro Illustratorf 6.6.D:TEMP App 6.N/}6. A z!!Movie Maker to Fun with Art 6.6.D:TEMP Ap 6.6. A##Fun With Art tN0}o Micro Painter= @@=@@)@)@1-@@N1}$)@-68,-1 (-@AV$)@( -@Av)@!!!A@*N2} A@A*@ +-@@'*@8,+ @@$''Fun with N3}Art to Micro Illustrator 6.6.D:TEMP A $ 6.6. A .!!Fun with Art to Movie Maker8 6.N4}6.D:TEMP A B 6.6. A L##Micro Painter to Fun with ArtV= @@=@N5}@`,-@Ab"(*@, j-@Avt6!A@* A@,*@N6}6 A`~)@*@ )*@)*@1-@@$)@N7}-68,-1 6@@6@@)*@AT)*@AT+-@N8}@'*@8,+ @$ 254,254QQ1,2,3,4,112,112,112,78,0,80,14,14,14,14,14,14,14,14,14,14,1N9}4,14,14,14,14,14SS14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14SS14,14,14,14,14,14,14N:},14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14SS14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14N;},14,14,14,14,14 RR14,14,14,14,14,14,14,78,0,96,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14SS14,14,14,14,14,14,14,1N<}4,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14SS14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,1N=}4,14,14,14,14(SS14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,65,0,6,104,1702TT104,141,1,2,232,208,3,2N>}38,1,2,142,0,2,104,170,104,64,169,0,141,0,2,169,0,141,1<FF2,169,192,141,14,212,76,95,228,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0N?}F#(#(} File: 7@/GHXE \ y@LE ) GLb䭄 XGLb+x FLGF  RM}FLGF FLGF  GLGF HLF lH )HLF HLGFL I H H ZF mF ~FLGFLELFRN}LE0HIB V`****))(I` WHi`0Х8`8RO}`eiȅ` G G` i G G`  Gi G`8 RP}G/ G`x G𩀅` G```8```8`+`RQ}```oo`o`HJJJJ 8Hh)ii:,@ @(( CREATING C$*-@@a."<67<,.>:,@ Za}< 6..67A `,..+67@,.<67A a,.3367A1<AT,. Windows by Jerry White 0067Aq<Zb}A,. and Dave Culbertson ==6.3************* Windows ** can show ** you ** II67@R<@,.. Want Zc} ** Š ** you want *************< 6.67A@,.+67@,.<67AA,.2267@5<@U,.Zd} All sizes / kinds 6667@<A,. Work in ANY graphics mode 1167AW<Ax,.ŠZe}))67A<A,.ɠ" +AR@"(6-?:C:, AA$|A46-?:C:, AA$1A@12F:A@,AZk}$!!104,104,133,206,104,133,205104,141,1,6,104,141,06,104,133,208,104,133,207104,104,133,209,104,141,3Zl}6,104,141,2,6,165,88133,203,165,89,133,204,24165,203,109,0,6,133,203165,204,109,1,6,133,204160,0Zm},177,203,170,177,205!!145,203,138,145,205,200,196209,208,241,169,0,198,207197,207,208,6,197,208,24030,1Zn}98,208,24,152,101,205&133,205,144,3,230,206,240165,203,109,2,6,133,203:165,204,109,3,6,133,204D24,144,197Zo},96N!!104,104,133,204,104,133,203X160,0,177,203,170,201,0b240,44,41,96,201,0,208l6,138,9,64,24,144,22vZp}201,96,240,20,138,41,64201,0,208,6,138,73,3224,144,5,138,9,32,73 64,145,203,200,208,210,230204,24,144,Zq}203,96 D:WINDOWS.BAS X,LMIROUTINRATCCOLOCURSO..ANTIC NOV 84 VOL.3/NO.7 PMCURS^s}OR PAGE 90dPMCURSORfBY JERRY WHITEhANTIC MAGAZINEn A x##MOVE MACHINE LANGUAGE ROUTINEINTO HI^t}GH RAM.#-A"#%2-@&@(% 2AR TELL THE HUMAN WHAT TO DO.^u}8-@@8(POKE 752,1 TURNS OUR CURSOR ON+(+( POKE 752,0 TURNS ATARI CURSOR ON8(*(ENTER CURSOR FLA^v}SH RATE (1-64)4 A8!! @)!@dA%@U>(&(ENTER CURSOR COLOR (0-255)0 A ^w}4> B!! )!AUA %@t.(.(#WARNING: THIS ROUTINE USES PAGE SIX!(!(AS^x} P/M RAM (PLAYER 2).!!TURN ON OUR VBLANK ROUTINE. 6-?:,"""RETURN CONTROL TO THE HUMAN.,-AR@("^y}(BASIC*(IS-6SETUP SUBROUTINE.@C +AR@1@@C@@9JROUTINE=SA^z}FELY UNDER THET""DISPLAY LIST OF ANY GR MODE.^$$6-+F:A,&@3,$AVh'('(PLAYER CURSOR BY JERRY WHITEr^{}.(.(!MACHINE LANGUAGE ROUTINE ADDRESS=|((%(STORING DATA AT LOCATION ($DATA FOR MACHINE LANGUAGEPLAY^|}ER CURSOR ROUTINE.##104,165,212,24,105,36,133,212!!165,213,105,0,133,213,162,7!!160,144,177,212,157,0,6,136$$^}}202,16,247,164,212,166,213,1697,76,92,228,173,240,2,240124,173,43,2,240,4,169,0240,6,173,8,6,24,105,8 ^~}141,8,6,48,104,160,255,1690,153,0,6,136,192,8,208!!248,169,10,141,194,2,141,20 208,169,1,141,111,2,141,27 ^}208,169,0,141,10,208,169,0 141,7,212,169,2,141,29,208169,58,141,47,2,141,0,212&!!166,85,164,84,165,87,13,1470^}2,240,12,173,191,2,201,4:""208,35,152,24,105,20,168,138D 10,10,105,48,141,2,208,152N10,10,10,105,39,168,162,7^}X189,0,6,153,0,6,136,202b 16,246,76,98,228,169,0,141l2,208,76,98,228v0,0,0,0,0,0,0,240DATA IN LINE 6^}30 IS THEPLAYER CURSOR SHAPE. D2:PMCURSOR..ANTIC NOV 84 VOL.3/NO.7 PMCURS\7##PLEDICCCCWIDTHCXC264NUROTPREC70C2COTEMORDJJCTBITCHFILLPMBASMLM1M2M3M4b}M5M6M7LT b}@@@b} !"#$%&'()*+,b}-./DDA.N.A.L.O.G. #23 OCTOBER 84 P/M CREATOR/ANIMATOR PAGE 33************************b}* P/M CREATOR/ANIMATOR ** BY SCOTT SHECK ** ANALOG COMPUTING ************************* Bb} A! ԛ6-+%,$+ ,8 -B2H% )-@8( C A&5@ ',b}@%$CB2R@%$@ A&B6-@'6-9B2H%A%@:7%,,"9B2H%Ab}$ ͭԛ?6-@ ?(' right - TO SELECT button - TO DISPLAY @),: 6-#T:,"b}&6-+&@,'0 AS: AR:,@A" @2,"@ "$ 6-% A b}ț6-+ ,$@:7%,,%67%<%,.>:,16-B2V%6-@' A1 A`$+ ̮, -b}68,-8, .#"@F B # A/ BP3-@@(6" -6-8,"-@b}";8,%F:%,%@   A&5X$] қ^ A&7_3 AV6-A%)6-@b}3 Ar$ ΛP6-A%6-@.6-F:,'@;P:,)"F6-F:,%P A6-F:,&@b}( -@%$%( ($Ҩ©) A&7 AV) A$Ψ©66-Fb}:,'@!P:,)",F:,%6 AF:,&@(-@@ %( F:,($&6-?:C:,,$b}INVERTX6-?:C:,,$RIGHT6-?:C:,,$LEFT6-?:C:,,$DOWN6-?:C:,,$UP 6-?:C:,,$b}INVERSER. A&@ A&E#6-?:C:,,&$.ERASE ě= ( PRESS play,# A&E' =( LOADING DATA..b}...˺ 905 OPEN#C1,C4,CZ,"D:FILENAME.EXT"#Ad@c#C:! )! A% -b}) AQ%6-8, -)% 6-@:7%,, AU  6- AR$ b} śB ( PRESS play & rec,) A&E- B( SAVING DATA...JJ˺ 955 OPEN#C1,8,CZ,"D:FILENAME.EXT":?#C1;WIb}DTH$:PUT#C1,PEEK(704):Ad@c)@C:0 :*F:,& -*F:A%,&6-8, -b}*F:%,   $Š -4 A &( data ?0 A&F4$6-8,%b} A&$-@'46-A(-@# *(.4 A (6-& 6-'  A&D b}$ٛN ( READY PRINTER% A&E*4 APN@P: !(!( BGRND COLOR=Fb}:,"( POKE 559,$J -(!(PLAYER J(POKE %,F:%, :REM COLOR)55(POKE B2V%b},@:7%,, :REM WIDTH+E(DATA !-8,8,%,(F:,78,%A(,E 3  (G$K b}śL2 2(&down-SLOW SEQ.-left up-FAST STOP-rt.Q 6-VB2H%8,AZ 6-R:,"@ 6-%b}\-"@ A&6# A&A- A 1^"@ A@`"@6-+&,$+!,d0 -  B2Hb}%8,06-+%,$+ ,o At -u3 !( frame % (0-2)%3!AAv1 68,--@%$b} ($ ''1 A˛# 6-6-1#6-A( 6-%(>:,6-6 F:B2y,@b}A `6-F:A,0A+",$@2HB2Q+,$A`B2U+,$A/ 6-T:,R:,"b}@*%6-#/ A  *+)",A H 6-R:,*6-%+"@,&+"@,H6-%+"@,&+"@,b}$3 ԛ4E!@4) @'6-%6-16-@C; A&DE A&> "6-C"@#6-H b} A M( A%R A! ŠΠě 6-@:7@5&,,6- 1 6."@:,"&A($+ b},*6..16-6 , (6-8,%"6-%F:,, A& !!T:,"*R:,"@A%0 A  $' b}Ԡқ( ) -@7( $- ӛ.  A T:,"A&/ Q6-@  A&Db}# A 1G")"@)!@* @Q A&A2 / $@P%!@* @/ A&B4 A&66 < b}#6-@'%@$+ ,/6-@C9 A&D<$8  "6-: "@#6-; A&F ӛK ; 6-b}8,P:'AV,8&AV$P:'AV,;$L # -@3 (PLYR #$M / ( COLOR(0-255)?( A&Fb},/$P > -5(' ;->$Q -@($R 6-?:A,6-8,Sb} O -)2@%@@46-F:%,> A&B L2O$T 5-@6$2@( 22b}5$U  -( PRESS any keyV AdAUW R:,@' A&X F:Ad,"AUA&GY $Nb} ś Nc6-6-@'6-@36-@?6-@K6-@"W6-Ac6-A&@!N= +@/6-b}F:A`,%F:Aa,$AV=%AR"NA#NjA@j(@ player creatorb} & animator  Ԡ$N ɛ%ND-A6AC"!% D72,165,208,141,27,208,104,64&Nb}3A#@!A3A@'N̠ś(NN-ARA682%AP@@ @b}%D N2)N̠қ*N'-@A"#A%' +NVV104,160,22,132,84,162,27,134,85,164,84,177b},0,133,2,162,8,134,4,38,2,176,4,169,46,N>>208,2,169,160,32,164,246,198,4,208,239,198,84,208,221,96-N9@,;@b},;@,9@,9@,;@,;@,;@9,;@,;@,;@,;@,;@,.b}N`;@,$-@@9("467,.>:,8 L-@@P"\67,.>:,` /NS-@@"'6b}7,.>:,+ ?-@@C"O67,.>:,S 0NS-@@"'67,.>:,+ ?-@@C"O67b},.>:,S 1NS-@@"'67,.>:,+ ?-@@C"O67,.>:,S 2N+-@@"'67b},.>:,+ 3N ԛ4N)+)6-F:A`,%AV$F:Aa,9NK%@p%%@@9%@A0KBb}BAN Я͛N46-F:A,&@&BBy46-AV$N BPB2wNL -68,-"Bb}2V%467%<%,.>:,HA%AL N-B2QA!A-B2YNM)6-?:C:,<%AF<@7b}<A,;B2UAMB2`AN))6-?:C:,<%A<@t<AU,N/6-?:C:,<%A<<,/B2Rb}@PΠԭЛPoA@$'AAD3A?ARQ@@c@@#b}o-@PVV(N P0 P1 P2 2 2 2 46 46 46 191 191 191P'@!@b}@ '-Pll(dӺEDIT M-EDIT WIDTH RESOL. COLOR LUMIN. COLOR[B]=LUMIN[B] INVERT SCROLL b}P[[(SSCROLL  SCROLL  SCROLL  INVERSE ERASE LOAD DATASAVE DATAPOKE DATAHARDCOPYP*@@9*(ANIMATE [0b}-1-2]P_ AI,@@1/@#@;@!M,@@ _/@$@ P A`,@%b}%/@%7,@@I/@@ [,@$@ m/@$@,@@/@@ Pb},@@ ',@#@1ASC,@#@U/@#@_A@q,@#@ { A A b}1AR A&6$RŠΛR^ 6-6-@b&68,-%Ad768,-%A H68,-%Avb}R B`^SINGLE 62R;6-+AU,$A;6-?:C:,<%A<@t<,R>/6-?:C:,<%A2<@<$+"Ab},,;AY>$Sd6-AU6-@F,68,-%A=68,-%AN68,-%A8X BAdDOUBLE-46 S&#b}6-?:C:,<%A X<@7<,&$*S̠Š4SVV104,216,169,1,133,2,169,22,133,3,164,3,177,0,170,164,2,177,0,133,b}4,138,145,0,164>SVV3,165,4,145,0,230,2,198,3,192,13,16,228,96,104,160,23,177,0,74,145,0,136,208,248HS[[96,104,160,23,177,b}0,10,145,0,136,208,248,96,104,160,21,177,0,200,145,0,136,136,16,247RSZZ96,104,160,2,177,0,136,145,0,200,200,192,24,208,245,b}96,104,160,22,169,255,81,0,145,0\S^^136,208,247,96,104,169,0,160,23,145,0,136,208,251,96,104,104,133,1,104,133,0,104,104,16b}8fS66104,104,145,0,136,16,251,96,1,2,4,8,16,32,64,128 D:ANIMATORBITCHFILLPMBASMLM1M2M3M4`Z