@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% } DD˙`  }J)Lr J  ((  p L ()   J }L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉ } ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G } HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G } C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK }.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`񣩀GBJ ~DEHI B V0dV !}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh "}DEL8HI4 0 HI,0 0  9 .G VLO #},0 L4*IJ`llD1:*.RUNN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI $} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI %} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  - '}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH (}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu  } )h n# J KI  & a&$E˩̩˙iȱi5)$*}` >ɛ(`HHH7ͩЍ&ud˩ [)ـȄαHȱH`"1ȱ$+}iL="Щ.Ȅ̈́Ω" U˩L ܩeͅ$%"h0hh(` @ '`XXFIND/@&%/%DI6.!cDEL DELET q.$,}!eLOC u.!eUN UNLOC y.!cRE RENAM }KIL .!eE ENTE .!eLO LOA .!eRUN!Z.!cS SAV .!cLI LIST!ZL LIS$-}%.!eBL BLOA&HEL&FORMA%.!cM MOV#WDO$D1:*.* R110HH %L# g"ѩ}$.}HH( % V |" i) ƅ˩څ˩̥HH % L Зȑˈȱ$/}ȑˠ) JJJJi0ȥ)i0JƩ L - L $hhL΢ ͙8ΨeHiH %hhL#$0}`!б#Э$Щ V%0L ЖL&J K Lt Έ)0 ȱHȱH`͈ͤ ` $L&$1} 3!ـȩ:ـ/ 1%  D  :` ͌ `Ω ЀХ$2}d00]:Y8 8 0  HH8X˥Y̠( =" =" hhL&爭)$3} ѩ ,0 3! =" -". G" ;" -"hh˩L  T" G"`e˅ː`H h`H****)h)c"` @$4}`XiYi` # `( #( ~# #( =" ~# # #L# ="8$5} #$( # /# #( ~# # # # ="$( #( # /#'X+X` D#` # D#` ~# ݀$6}0 ( #`( # ;"`˝``˭`˭`H# h,A0L@L4h$7} L - HHB8名呍 %|ɈЩIH Ω1ف.I&&  > H$$8}Ω1iHH %0HH B %0Т&  LE: $H$H %0D1:DOS.SYS`HHͩ?$9}ȩ % H%H %H%H %ЩϢ&  YФͩ `K:&˩&̠ #Р $ ~#Р $L' $:}L͠,oـHDH:HH hHiHDiHE % B Vۢ&  hhh,$;}`BJ IHhhhEhDHHLV eΝDiE͹~/͹NΞͩ L$<} L#&  Lˆ̥˦ ȱ(ɛ(`?' a&L DISK DRIVE 1ARE YOU SURE??INSERT DISK2;HIT ANY KEY (S=TO SC$=}REEN)OUT OF RAM ALREADY EXISTSBAD LOAD FILEDOS 2.5MBASIC CDISKIOFUNCTION KEYSloadedType HELP } $>} click rate w/verif boot DIR(n) Directory FORMAT Format disk WDOS Write DOS.SYS .X LI. $?} LISTD List to disk.S S. SAVE Save to disk.E E. ENTER Enter to mem..L LO. LOAD Load to mem..R RUND $@}Run disk file.K LOCK Lock file.U UN. UNLOCK Unlock file.N RE. RENAME Rename file.D DEL. DELETE Delete file.$A}B BL. BLOAD Binary load.M M. MOVE Move file.R9 runs #9 etc. To use DOS type KILL.Reboot to restore DISKIO. $B}.H k)йl)ѠhH hHhO&\&L 5$$%%Y&j&8## $$$%%%5)`ة٠)$C}ӱH h٥ܢ ڠ___  `ߨ)L)l$D} 2lllllll3l5l0ll [  `  L^$E}q5))Ih@0 ܮyWyWЩPyɩ0LwL5)$&LD)+-La)Lt)pz$F})`p@{ ܮyWyWЩPyɩ0LwL5)$&LD)+-La)Lt)pz$34k+{+DFNLEFRIGHTOBOTTOOLDLLOWOLDHHIGHOLDLLOWOLDHHIGHFRAMGRICONECZLINXINYINXRANGXWIDTXFACXOFYR(H}ANGYWIDTYFACYOFYLINXLINCOUNMISMISCTGOLDWINDOERROSCNDMBLINWRSCMAMITEMRDSCGIOFNDMPSCNTGRSCCORG(I}BUFBFSGTIROCSESCHADSCREOFNFIERECODEEMENECODEZASMSELEC% @EA@ A@(J}@ @  @0 @0 @@@@@@ AE@'""""(K}@E@P @@AD@A@@`@ @%!X ("B#@6P$B%B(L}&'Bp(B)B *A+@,@v-B.@/SS0S 1o((23004B5@6(M}P6789:;A`@%?BuD@BtPABBCD(N}EFGHIPLOTIT 1.1$ B$(c) 1986 Bob DuHamel ;@(,6-@Q6(O}-A6-@ 6-A@( A- 6-6-2 6-6-<36-@6-'6-@36-@(P}c36-6-!6-'6--6-36-dŠӛn% 6-&6-&6-'%6-&$x-(Q}" A# A- A% 6-&6-&6-'%6-&$-" A# A- A(R}נěe +@$@10@@K0@@e0@@-"@(S},/!/'/-/"@6-6-+"6-%@+6-&@ -6-$%(T},/ !!!) AQ")"',&@5/&@C,%(U}@Q/%@Q"@)"@',&@5/&@C,%@Q/%@ -6-+$(V}%,,/ "!!!) A'Q")"',%@5/%@C(W},&@Q/&@)Q"@)"@',%@5/%@C,&@Q/&@, A(X}Ԡ65@+@@5 Ap@+@@+,$%$%J@@(Y}LG1+" )" ,*+"@)"@,=6-@G A0N%+" )" ,% A0T"@(Z}/$%$%^@,$%$%`"@6-@h A0r@ AԠ([}Û26-O:@$+@',,2 @AP6-@6-$(6-$@!%6-$@P($((\}6-$@P!%6-$@($(6-$@!%6-$@($ A"&6-?P #6-$@(]}&$(6-'@P %6-$@($(6-'@ %6-$@($(6-'@ %6-$@($(^} ARԠÛ26-O:@$+@',,2 @AP6-@6-$ (6-$@(_}!%6-$@P($ (6-$@P!%6-$@($(6-$@!%6-$@($ A"&&6-?P(`} #6-$@&$((6-'@P %6-$@($*(6-'@ %6-$@($,(6-'@(a} %6-$@($0 ARXԠ؛]"Ab#6-#!APl 6-&!(b}A v 6- A 6-%AP 6-&Ԡ؛#6-# AP"(c}$ 6-% A  6- $ 6-&AP 6-%$ Ԡٛ%"A (d}*#6-#!AP4 6-&!A > 6- A R 6-%AP\ 6-&(e}Ԡٛ#6-# A P"$ 6-% A  6- $ 6-&A P(f} 6-%$Ҡ/!(ENTER FILE NAME TO PLOT %) /6.5 A@5@@(g}L@@#6-)6-/6-56-8(C(XYF(L(@@ ( !(h}6-   6-  !6-  6- A0B* F:A,"A6'@*$K@ (i}L̠ěV( -6-$%(6-P:'@,` 6.=:,jA)6-P:+$%,'@,&+B:,%@,5 @A6(j}-@o F:Ad,AUAt   y6-~0 -6-$%&@06-P:'@, 6.=:(k},2 6-@%&+B:,'@,. %@2 %B:,!@8$:"6-@%P:+$%,'@,.!@#:6-(l}@#"*!@!  F:Ad,AUA  6-  $ ӛ.@.@(m}@K: U.(&}RINT AVE EW DATAU("FULL SCREEN INDOW RID ORDER**("(n}HANGE SIZE INES ERO8 A@d+AdAU8)@#"@+# @@(o}"@  A0"@g A"@p  A@#"@(} # A (p}"@ A A"@q6-@)6-%@5!@A6-A"@f6-@)6-%@(q}5!@A6-A"@v6-@)6-%@5!@A6-A"@6-@)6-%@(r}5!@A6-"@@ A@ŠΛ( }6-RAR(s}@'-@@ R(&OP OTTOM EFT IGHT"3-@@!3(    $(t}(A&A&&-(-(" MOVE  X10 LOT(8 A@d+AdAU8)@(u}2f"@!-@@"6(   <6-J6-&@V6-@\6-f A 4f"@f!-@(v}@"6(   <6-H6-AV6-%@\6-f A 6f"@v!-@@"6(  (w} <6-J6-&@V6-@\6-f A 8]"@!-@@"5(   ;6-G6-A(x}M6-S6-] A 9Q"@!AR/6-%@;!@G6-Q @:+"@!(y}AR+ @<#"@v)"@# AP>-+"@E)"@B,*!-6-&@@-+"@a)"(z}@C,* -6-%@B5'+"@()"@1,*!%@56-&@D5'+"@))"@0,* &@56-%({}@E A`FH-+"@E)"@B,* -6-%@J-+"@a)"@C,*!-6-&@L5'+"(|}@()"@1,* &@56-%@N5'+"@))"@0,*!%@56-&@P"@6-R"(}}@f6-T"@v6-V"@6-wY-@@!5(    O(A&A(~}&Y A 0uΛ4u6-B 6u6-Bp>u6-BFu6-B6-BHu6-B(}u'6-B6-B '6-@uàŠӛu##@@K:u;@,u(};@(,u+;@@,;A,+67A,.u;@@,u;A ",;A,umm6.c0000000010210330(}52072084110132142157191206228242268281289314331355366000000000000000366382387406417upp67A,.]43345747348349551252753(}8549569594626638669694711000000000000000000000000000000000711731751761u..67A,.789810826850862878893908922u;(}@H,uŠӛu]]6.ShpBhEhDhhJK Vhhhhhh`phhBhEhDhIhH V B VHԽI`u;(};67@,.(hhhhh͢ˑ8(˥`vpp6.fINSUFFICIENT MEMORY VALUE ERROR TOO MANY VARIABLES STRING LE(}GNTH ERROR OUT OF DATA NUMBER GREATER THANvtt67A,.a 32767 INPUT STATEMENT ERROR DIM ERROR STACK OVERFLOW FLOATING P(}OINT OVERFLOW/UNDERFLOW LINE NOT vll67A,.YFOUND MISSING FOR STATEMENT LINE TOO LONG GOSUB OR FOR LINE DELETED RETUR(}N ERROR GARBAGE vtt67A,.aINVALID STRING CHARACTOR PROGRAM TOO LONG DEVICE NUMBER TOO LARGE FILE ERROR BREAK KEY ABO(}RT IOCBvtt67A,.a NONEXISTANT DEVICE WRITE ONLY INVALID COMMAND DEVICE OR FILE NOT OPEN BAD IOCB NUMBER READ ONLY (}vii67A,.VEND OF FILE TRUNCATED RECORD DEVICE TIMEOUT DEVICE NAK SERIAL BUS CURSOR OUT OF RANGE vXX67Ai,.ESER(}IAL BUS FRAME OVERRUN SERIAL BUS FRAME CHECKSUM ERROR DEVICE DONE  vpp67A8,.]READ AFTER WRITE COMPARE ERROR FUNCTION (}NOT IMPLEMENTED INSUFFICIENT RAM DEVICE NUMBER ERROR  vrr67A1,._TOO MANY OPEN FILES DISK FULL FATAL SYSTEM DATA I/O E(}RROR FILE NUMBER MISMATCH FILE NAME ERROR  vtt67A&,.aPOINT DATA LEGNTH ERROR FILE LOCKED COMMAND INVALID DIRECTORY FU(}LL FILE NOT FOUND POINT INVALID vCC67@,.0hhhhhhhϢAˁi(ː`[v$\v8 6-F:A(},"!A06-&A8қ^vU6-@%$@?6-A:7%@<%@,,&@U6-A:7<%@,,`v(}'( ( ((7<,'( PRESS ANY KEYbv*6-A:7@<@,,*)@dv&67@<@,.0& Afv*A(}F:A G,&( I/O ERROR* w=#@@P:4(@A=Лw--6-F:@,%AV$F:@(},%Av@ w-%@9 w6-?:C:,<A%F:%@%,B ,w6(6..( FILE NAME26 -wC(}4 D:PICTURE!6-%@/6-&@CҠϠԮ.w6-?:C:,:F:A(}%,,4 w"@"@S:w4-@@ -A%@:7<,,1 4$w#6-@D %@#(}ěw 4 $؛wB:,"@ %@w7@<@,4:$w$ 6.D:67@,.!6.$$(}D:PLOTIT $؛wB:,"@ %@w7@<@,4:$w$ 6.D:67@,.!6.$$(1 REM PLOTIT 1.1 PLUS BARGRAPH AND2 REM THREE COLOR BARS5 GOSUB 30000:REM --- 1986 Bob DuHamel12 THIN=1:WIDE=2:HOLLOW=3:CO,}LOUR=4:RANGE=-1:BOX=-1:MODE=-116 OPTIONS=1200:BARS=2000:THINBARS=2100:WIDEBARS=2200:COLUMN=2300:COLOURBARS=240018 NUWIDTH=1,}0000:FIXBORDER=1010035 GOSUB SELECT36 WIDTH=6:IF BAR>THIN AND RIGHT+WIDTH>318 THEN RIGHT=318-WIDTH60 FRAME=0:GRID=0:CONECT,}=1:ZLINE=0215 IF BAR>THIN THEN GOSUB FIXBORDER300 GOSUB 1100:IF BAR<>0 THEN GOTO BARS:REM Ԡ1130 X=LEFT/8-((LEN(MIS,}C$)+1))-1:IF X<1 THEN X=11222 IF MODE=1 THEN GOSUB GR15:POKE 708,40:POKE 709,202:POKE 710,148:POKE 711,70:POKE 712,01224 IF,} MODE=-1 AND PEEK(709)<>2 THEN POKE 709,2:POKE 710,6:POKE 712,61230 ? "}RINT AVE ODE EW DATA":? "FULL SCREE,}N INDOW RID ORDER"1235 ? "HANGE SIZE YPE INES ERO"1243 IF K=84 THEN GOSUB SELECT:GOTO OPTIONS1245 IF K=7,}7 THEN MODE=MODE*(-1):GOTO OPTIONS2000 REM ӛ2010 IF BAR>THIN THEN LEFT=SAVL:RIGHT=SAVR:TOP=SAVT2020 IF BAR<>THIN THEN G,}OTO WIDEBARS2100 REM ӛ2110 CLOSE #1:OPEN #1,4,0,DFN$:TRAP THINBARS+992120 Y1=0:INPUT #1,X:INPUT #1,Y:IF RANGE=1 THE,}N Y1=Y:INPUT #1,Y:INPUT #1,Y2130 PLOT X*XFACT+XOFF,Y1*YFACT+YOFF:DRAWTO X*XFACT+XOFF,Y*YFACT+YOFF2140 GOTO THINBARS+202199,} CLOSE #1:GOTO OPTIONS2200 REM ӛ2210 IF BAR<>WIDE AND BAR<>HOLLOW THEN GOTO COLOURBARS2220 CLOSE #1:OPEN #1,4,0,DFN,}$:Y1=0*YFACT+YOFF:TRAP WIDEBARS+992230 INPUT #1,X:INPUT #1,Y:IF RANGE=1 THEN Y1=Y*YFACT+YOFF:INPUT #1,Y:INPUT #1,Y2235 H=IN,}T(X*XFACT+XOFF):V=Y*YFACT+YOFF:IF BOX=1 THEN GOSUB COLUMN2240 PLOT H+WIDTH,Y1-1:DRAWTO H+WIDTH,V2242 DRAWTO H-WIDTH,V2244 ,}POSITION H-WIDTH,Y1-12246 MISC=1:IF BAR=HOLLOW THEN MISC=02248 POKE 765,1:XIO 17+MISC,#6,0,0,"S:":DRAWTO H+WIDTH,Y1-12250 ,}GOTO WIDEBARS+302299 CLOSE #1:GOTO OPTIONS2300 REM Λ2310 PLOT H+WIDTH,Y1-1:DRAWTO H+WIDTH+4,Y1-4:DRAWTO H+WIDTH+4,V-4,}2312 DRAWTO H+WIDTH,V:DRAWTO H-WIDTH,V2320 IF Y>0 OR Y1>=V THEN PLOT H+WIDTH+4,V-4:DRAWTO H-WIDTH+4,V-4:DRAWTO H-WIDTH,V23,}30 IF Y<=0 AND Y12 THEN NUM=02425 H=INT(X*XFACT+XOFF):V=Y*YFA,}CT+YOFF2427 IF H/2-INT(H/2)<>0 THEN H=H+12428 H=H+NUM:IF NUM=2 THEN H=H-2:MISC=12430 FOR COUNT=-WIDTH TO WIDTH STEP 22432,} PLOT H+COUNT,Y1-12434 DRAWTO H+COUNT,V2436 NEXT COUNT:IF MISC=1 THEN MISC=0:H=H+1:GOTO COLOURBARS+302440 IF BOX=1 THE,}N GOSUB COLUMN2450 GOTO COLOURBARS+202499 CLOSE #1:GOTO OPTIONS10000 REM ț10010 ? "}CURRENT WIDTH: ";WIDTH*2:? "EN,}TER NEW WIDTH";:INPUT MISC$10020 IF MISC$="" THEN RETURN 10030 MISC=VAL(MISC$)10040 IF MISC<1 THEN MISC=110050 WIDTH=MISC,}/210099 RETURN 10100 REM қ10110 SAVL=LEFT:LEFT=LEFT-(WIDTH+4):IF LEFT<1 THEN LEFT=110120 SAVR=RIGHT:RIGHT=RIGHT+(,}WIDTH+8):IF RIGHT>319 THEN RIGHT=31910130 SAVT=TOP:TOP=TOP-8:IF TOP<1 THEN TOP=110199 RETURN 30000 REM Λ3001,}7 GR15=30640:GR31=3064630018 GR8=30650:GR24=3065830019 SELECT=3038230020 BUTTON=3066030100 REM àŠӛ3020,}0 REM Šӛ30299 RETURN 30382 ? "}":? " FOR NEXT ITEM OR ":? 30384 ? "NORMAL ":,}GOSUB BUTTON:IF MISC=2 THEN BAR=0:RETURN 30386 ? "THIN BARS ":GOSUB BUTTON:IF MISC=2 THEN BAR=THIN:RETURN ,}30388 ? "WIDE BAR ":GOSUB BUTTON:IF MISC=2 THEN BAR=WIDE:RETURN 30389 ? "HOLLOW BARS ":G,}OSUB BUTTON:IF MISC=2 THEN BAR=HOLLOW:RETURN 30391 ? "RANGE BARS Status: ";RANGE=1:GOSUB BUTTON:IF MISC=2 THEN RANGE,}=RANGE*(-1):RETURN 30392 ? "THREE COLORS OF BARS ":GOSUB BUTTON:IF MISC=2 THEN BAR=COLOUR:RETURN 30394 ? "COLUMN ,} Status: ";BOX=1:GOSUB BUTTON:IF MISC=2 THEN BOX=BOX*(-1):RETURN 30396 ? "CHANGE WIDTH OF BARS ":GOSUB BUTTON,}:IF MISC=2 THEN GOSUB NUWIDTH:RETURN 30399 GOTO SELECT+230640 TEMP=167:IF PEEK(87)<8 THEN GRAPHICS 8+32:REM ұ30642 MISC,}=USR(ADR("hhhϭ0˭1̠ ))@ϐ`"),TEMP)30644 RETURN 30646 TEMP=199:IF PEEK(87)<8 THEN GRAPHICS 8+16+32:REM ,}ҳ30648 GOTO GR15+230650 TEMP=167:IF PEEK(87)<8 THEN GRAPHICS 8+32:REM Ҹ30652 MISC=USR(ADR("hhhϭ0˭1̠ )),}@ϐ`"),TEMP)30654 RETURN 30656 TEMP=199:IF PEEK(87)<8 THEN GRAPHICS 8+16+32:REM Ҳ30658 GOTO GR8+230660 IF PEEK(,}53279)=7 THEN GOTO BUTTON:REM Λ30662 IF PEEK(53279)=3 THEN MISC=330664 IF PEEK(53279)=5 THEN MISC=230666 IF PEEK(5327,}9)=6 THEN MISC=130668 IF PEEK(53279)<>7 THEN GOTO BUTTON+830669 RETURN 664 IF PEEK(53279)=5 THEN MISC=230666 IF PEEK(5327,JCOUNBUFFINUMBEWRFILERORDFILIOFNLNBURGBUFBFSMISFIELDNUMBERFIELFNUMWRFIEMAXMAXMENFILEN0}EMFILENAMFILEOUFILEIFNFIMISCPCOLUMZ@ BpBB`SSS  A% 0}@ @ B A%@@ @AY@Y@B0}AAB o (!A "A!$ B$--- 1986 Bob DuHamel ##9A<0}@,;@ ,6-@26-A6-A46-A 6-A!c dn  A0})@"@G Au"AU*"@%6-368<,-A:,:6.K68<,-Q6-]0}6-k6-%@u AF!@D* @X%6-@<67B:,%@,.>:,F Ao%+ @E)!@0}W,*"@16-?68<,-A:,P68<,-W6.e6-%@o A A"0 A"0}6-068<,-$@68<,-A:,+ 6- B ,נٛ6-@-0}T(8<, ^   (h & ԛ+#(}ENTER FILENAME FOR OUTPUT'+  @@0}$ Λ*"(}ENTER FILENAME FOR INPUT&*  @@W$ LV0} -`6-@b-(@8<,-(@8<, @  -6-@0}-(@8<,-(@8<,5(@8<,5(@8<%@, @ 0} -(6-@*.(@8<,.(@,-(@8<,-(@8<,.-0}(@8<,-(@8<,05(@8<,5(@8<%@,25(@8<,5(0}@8<%@,45(@8<,5(@8<%@,P w@ x -6-0}@-(@8<,-(@8<,5(@8<,5(@8<%@,5(@8<0},5(@8<%@,5(@8<,5(@8<%@,5(@8<,5(@0}8<%@,5(@8<,5(@8<%@, @  -6-@0}.(@8<,.(@-(@8<,-(@8<,.(@8<,.(@0}5(@8<,5(@8<%@,.(@8<,.(@5(@0}8<,5(@8<%@,  3@ 4 Λ>6- A! @!(OUTPUT FILE N0}AME! B @@H@R(@(@\6-%@f A! 0}@@ 0uΛ2u6-B4u6-B Hu6-Bu6-B`6-Bpu0}àŠӛu##@@K:u;@,u;@(,u;@@,u6-A%;0},uŠӛu]]6.ShpBhEhDhhJK Vhhhhhh`phhBhEhDhIhH V B VHԽI`[v$\vM0} J( ERROR- F:A, AT LINE F:A,%AV$F:A,Mfv1AF:A G,#@-(I/O 1 v0}$6-@6-@$śv66.(( INPUT FN:,346$v6-C:,%B:,6-&B:,vO6-?:0}C:,:,I A B(>:,67<,.>:,+6-%@BB:, @@A &L$(}ENTER HORIZONTAL POSIE:}TION (H(ENTER VERTICAL POSITION L0+6-@6-6- %6-+6-XŠԛbBAdAUE;}B((}  PRESS NlY.(&RASE SOLID MORE MOVE TIMES THENY(&UIT ULL SCREEN INDOWE<} v2F:B2y,@$6-( 2 A@xSF:Ad,AU*A<A@dI)E=}@S AF{ A0"@  AM"@6-!6-'6-+ 16-76-C6-@E>}M A05"@6-6- %6-+6-5 A05"@E6-&@) 56-E?}"@6. 6.5"@a6-%@)!@#56-@#"@p6. 6.5"@CE@}6-&@) 56-5"@B6-%@)!@956-@9"@ APAEA}U A0-  6-6- 6-#6-- A0  ԛ*+(} +(TARI LOAD/$F:BEB}2y,@$ %@4* "@'6-A$$AV*$>GAdAU-(}FILE NAME OF CSET1G67B:EC},%@,.HI6-@6-@$6-C:,06-A$I6-?:C:,u6-BAu6-B@6-BFBEG}u6-BP6-BUCu6-BDu6-B`Fu6-B6-BHu6-Bu'6-B6-B EH}'6-@uàŠӛu##@@K:u;@,u;@,6.00:00:00uEI};@(,u+;@F,;A,+67A,.u;@@,u;A ",;A,umm6.c000000001021033052EJ}072084110132142157191206228242268281289314331355366000000000000000366382387406417upp67A,.]4334574734834955125275385EK}49569594626638669694711000000000000000000000000000000000711731751761u..67A,.789810826850862878893908922u;@XEL},uŠӛu]]6.ShpBhEhDhhJK Vhhhhhh`phhBhEhDhIhH V B VHԽI`u886EM}..hhhhhhhϢEϑ8(˥`vpp6.fINSUFFICIENT MEMORY VALUE ERROR TOO MANY VARIABLES STRING LEGNTH EN}ERROR OUT OF DATA NUMBER GREATER THANvtt67A,.a 32767 INPUT STATEMENT ERROR DIM ERROR STACK OVERFLOW FLOATING POINT EO}OVERFLOW/UNDERFLOW LINE NOT vll67A,.YFOUND MISSING FOR STATEMENT LINE TOO LONG GOSUB OR FOR LINE DELETED RETURN ERREP}OR GARBAGE vtt67A,.aINVALID STRING CHARACTOR PROGRAM TOO LONG DEVICE NUMBER TOO LARGE FILE ERROR BREAK KEY ABORT IOEQ}CBvtt67A,.a NONEXISTANT DEVICE WRITE ONLY INVALID COMMAND DEVICE OR FILE NOT OPEN BAD IOCB NUMBER READ ONLY vii6ER}7A,.VEND OF FILE TRUNCATED RECORD DEVICE TIMEOUT DEVICE NAK SERIAL BUS CURSOR OUT OF RANGE vXX67Ai,.ESERIAL BES}US FRAME OVERRUN SERIAL BUS FRAME CHECKSUM ERROR DEVICE DONE  vpp67A8,.]READ AFTER WRITE COMPARE ERROR FUNCTION NOT IET}MPLEMENTED INSUFFICIENT RAM DEVICE NUMBER ERROR  vrr67A1,._TOO MANY OPEN FILES DISK FULL FATAL SYSTEM DATA I/O ERROR EU}FILE NUMBER MISMATCH FILE NAME ERROR  vtt67A&,.aPOINT DATA LEGNTH ERROR FILE LOCKED COMMAND INVALID DIRECTORY FULL FIEV}LE NOT FOUND POINT INVALID vMM67@,.:hhhhhhhhhТIAˁi(ː`[v$\v8 6-F:EW}A,"!A06-&A8қ^vU6-@%$@?6-A:7%@<%@,,&@U6-A:7<%@EX},,`v$ (}(7<,$( PRESS ANY KEYav6-A:7@<@,,bv)@cv67@<@,.0dv fv'EY}AF:A G,#@' v/ (},( FOR NEXT ITEM OR /(v;(LOAD SCREEN ! -"@EZ}1 ; Av;(SAVE SCREEN ! -"@1 ; Av"@ %@v=(GRAPHICS 8 E[} ! -"@96-@= v"@ %@v=(GRAPHICS 15 ! -"@96-@= E\}v7(CHANGE COLORS ! -"@7 AvA(ADD TEXT ! -"@7 AA Av;(E]}DUMP TO PRINTER ! -"@1 ; Av1(DIRECTORY ! -"@1 v7(FULL SCREEN E^} ! -"@7 Av %@w=#@@P:4(@A=ЛwT6-$(E_}}inverse8( normal< H"@T6-AUw--6-F:@,%AV$F:@,%Av@ w-%@E`}9 w6-?:C:,<A%F:%@%,B +w"@ @,wFA# (.6.D:>( FILEEd} NAMEBF -wC4 D:PICTURE!6-%@/6-&@CҠϠԮ.wO6-?:C:,OCEAN SCRBmp2scrio B ANTIC4 FNTB>TUBES SCR<@,.C(}N@k@@Cw# %@#-@@DwH@6.(67@Er},. 5@D67@ ,.H(Ew ( MORE, FwN AR@8( MENU < Es}NARHw$"@@$ APJw B1wȠҩw9%6-F:@,%AV$F:@,+Et}6-96-$A w-@B:,wC6-@:7<,,6-)!A(76-&A(C6-@w) @26-Eu}%@d) %@w'!@1* @'6-&@2w6-%$@6-%%w6-?:C:,<<<<,wW6-%@Ev}6-&!F:@,56-F:@,;6-I6-%A W6-'A w'!As`6-'6-w   $Ew}w=6-Ag$F:@, @6+@%@2=ұw776-?:C:%hhhϭ0˭1̠ ))@ϐ`,<,w   $Ex}wE6-A$F:@, @>+@%@%@2Eҳw %@w<6-Ag$F:@, @6+@Ey}%@2<Ҹw776-?:C:%hhhϭ0˭1̠ ))@ϐ`,<,w   $wE6-A$F:@, @>+@Ez}%@%@2EҲw %@w%F:B2y,"@ %Λw$F:B2y,"@$6-@w$F:BE{}2y,"@$6-@w$F:B2y,"@$6-@w$F:B2y,@$ %@w$w6-@`E|}כw4-@@ 067<,.>:F:A%,,4 w"@"@S:w/A#"@` +"E}}@/ wK-@@ -A%@:7<,,1 G"@D*"@K w   $w#6-@D %@#E~}ěw 4 $؛wB:,"@ %@w7@<@,4:$w.B:,!@+7@<@E},4:.$w$ 6.D:67@,.!6.$$ D1:PICFIX7@<@,4:$w.B:,!@+7@<@D?330 ? "OLORUIT PRAYHUELUMGTIA"355 IF K=83 THEN GOTO 20002000 REM * PAINT *2010 GOSUB BLIND2012 MISI}C$="":IF COLR=1 THEN MISC$=""2014 IF COLR=2 THEN MISC$=""2016 IF COLR=4 THEN MISC$=""2020 IF PEEK(53279)<>7 THEN GI}OSUB WINDOW:GOTO 3002025 IF PADDLE(0)>220 OR PTRIG(0)=1 AND PTRIG(1)=1 AND STICK(0)=15 THEN 20202030 X=INT((PADDLE(0)-19)*1I}.636):IF X>314 THEN X=3142035 IF X<5 THEN X=52040 Y=INT(191-(PADDLE(1)-19)*0.9631):IF Y<5 THEN Y=52050 IF Y>186 THEN Y=186I}2060 IF ABS(H-X)>20 OR ABS(V-Y)>20 THEN H=X:V=Y:GOTO 20202070 FOR COUNT=1 TO 4:MISC=RND(0)*10:H=X-5+MISC:V=Y-5+RND(0)*10:H=I}INT(H/2)*2:POSITION H,V2080 ? #6;MISC$;:NEXT COUNT:H=X:V=Y2090 GOTO 2020 TO 4:MISC=RND(0)*10:H=X-5+MISC:V=Y-5+RND(0)*10:H=HK12 4 1 5 1 10 70 2 12 132@PICFIXgraphics utilityVersion 1.1(c) 1985 by Bob DuhamelThis program is intendM}ed to be self explanatory. It's main purposes are to:1. Add color data to uncompressed Micro-Illustrator files so they mayM} be loaded by the Atari BASIC Power Pack screen I/O routine called SCRIO.2. Add text to Micro-Illustrator files.3. Add a M}"spray paint" effect to Micro-Illustrator files.4. Dump Micro-Illustrator files to a graphics printer.5. Remove color datM}a from SCRIO files so they may be loaded by Micro-Illustrator.The program will also work with any graphics screen created M}in mode 8 or it's relatives (9,10,11, and 15). If you have a split screen picture in one of these modes on the screen, pressM} [BREAK] and run PICFIX in the normal manner. PICFIX will start without affecting the screen. Once PICFIX starts you may maM}nipulate the picture and save it in a format compatible with SCRIO or Micro-Illustrator.In the SCRIO format the first byte M}of each graphics file is the graphics mode the picture was created in. The next byte is information for the GTIA chip. The M}next 9 bytes are the color data and the remaining bytes are the graphics data. In the Micro-Illustrator format, always namedM} D:PICTURE, there are only graphics data.If you use Micro-Painter instead of Micro-Illustrator it should be an easy matter M}to modify PICFIX to save the color data at the end of the file. Micro Painter saves color 4 (address 712) as the first byte M}beyond the graphics data. The last three bytes are colors 0-2 (708-710).The program is menu driven for easy use. The firsM}t thing you see when you run the program is "PRESS [START] FOR MENU". This is to remind you that you can usually call up theM} menu from full screen by pressing [START]. From the menu, Press [OPTION] (or [START]) to rotate through the options. When M}you see the option you want press [SELECT].LOADING AND SAVINGType in the file name to load or save; D: is optional. To sM}ave the file in a format compatible with Micro-Illustrator always use the file name PICTURE.CHANGING GRAPHICS MODESThe opM}tions of GRAPHICS 15 and GRAPHICS 8 alternate depending on which mode you are in at the time. GRAPHICS 15 is used by Micro-IM}llustrator. This mode is only accessible with the ATARI 400/800 by changing the display list while in GRAPHICS 8.CHANGING M}COLORSTo change colors simply type the number key for the proper register and use the arrow keys (without the [CTRL] key) tM}o change the color and luminance. Colors 5-8 are only used in GRAPHICS 10 where the color registers are different from any oM}ther mode. For GRAPHICS 10 only (GTIA=128) colors 5-8 are really colors 0-3 and colors 0-4 are really colors 4-8.To activaM}te and change the GTIA chip press [G]. In BASIC the GTIA chip is active in graphics modes 9, 10 and 11. To rotate through mM}odes 8 through 11 put the computer in graphics 8 and press [G] from the color menu. The number in the GTIA register will chaM}nge as you rotate through the modes. 0 is mode 8, 64 is mode 9, 128 is mode 10 and 192 is mode 11.SPRAY PAINTThe spray pM}aint feature is a separate file on the disk called SPRAY. To use this feature press [BREAK] with the menu on the screen. TyM}pe ENTER "D:SPRAY to merge the spray paint file with PICFIX then re-run the program. Once SPRAY has been merged the spray opM}tion will appear in the color menu. Use a touch tablet to spray in the current color. The spray paint routine is written foM}r the ATARI Touch Tablet. The multiplication factors in lines 2030 and 2040 may need to be changed from 1.636 and 0.9631 to M}work with other tablets.ADDING TEXTTo add text simply type in up to 40 characters of text and press [RETURN]. next give M}the position when asked and the text will appear on the screen. The text is "blended" (Exclusive ORed) with the graphics so M}it can be easily moved without wrecking the picture. To make the text more readable press [SELECT] when you have it where yoM}u want it. Move the text by pressing the arrow keys repeatedly for the number of spaces to move, then press [RETURN]. If yoM}u want to see the full screen while moving text, press [F] first. Press [W] to get the text window back. To have readable tM}ext in any mode other than mode 8 you must first load a custom character set. Custom C-sets for this purpose are too complicM}ated to discuss here. A C-set for graphics 15 named ANTIC4.FNT is provided on the disk. To get different colors with this CM}-set use upper-case letters for one color, lower-case letters for the next and control characters for the third.DUMP TO PRIM}NTERThe graphics dump uses the simple Epson sideways format. It should work with any Epson compatible printer.DISK DIRECM}TORYThis option will display all of the files on the disk, six at a time.FULL SCREENThis option removes the text windowM} from the bottom of the screen. To get the window back press [START].BREAK KEY RECOVERYShould you have to press the breaM}k key (to stop a printer dump, Etc.) type GOTO SELECT [RETURN] to return to the menu.VERYShould you have to press the breaLVF0@@@@@A@@Q}@@@@@Q}D@DP@@AEQ}@@@P@@@PPP@AQ}@@@@P@@@@Q}@P@@@@@@D@@@Q}@@A@@Q}@D@@@@@E@Q}@@@U@@@Q}@@@P@@@D@@@Q}@@P@T@@A@@P@Q}P@@PD@P@@@A@DQ}@PPPA@@P@@@@Q}@D@D@PD@T@Q}@@@P@@@@@TQ}@PP@D@@P@A@@Q}@@@@@P@@D@Q}D@@T@P@@UQ}@TPU@P@@TPP@@@U@QUDQ}@@P@UTPQDP@PUUUTUU@@@UQ@DUUQ}E@PUP@PTTPEU@@PUQUPPEP@@@@QUUU@P@Q}@UUU@PPQQ@DPPP@@@AAUE@P@AAQ}UE@EUUTAUU@@@TUQDUAU@@P@U@TUUPUP@@Q}PPPUUDP@@@@@@@@Q}P@@PD@P@@@DDQ}U@@@@@@A@P@@Q}@E@@P@P@@@@P@@@@Q}@@@@@@@@@@P@@@Q}@@DP@@D@@@@PQ}@@@@AQ} @DD@@0$Q}@@ԚZQ}*Z(*PZ (*IZQ}*aZ**"(Ij*%jQ}*j***( jj**U**(Q}(Uj* ( j** "Zj**Q}** * ***(**Q} *"*******(Q}* ** **Q} **( ***  Q}*  * **Q} *  Q}* *(*Q}**(** ** *Q} *** *Q}* * * *Q}** *** Q}* *****Q}*****Q} *Q}* * *Q}****   *Q} * * ** Q}* *** Q}(******Q}  Q}  * **Q}***Q}**( Q}***Q} Q} PR67uERRORDFILWRFILIOFNLNBUBUFFRGBUFBFSMISMENBB`BtSSSAo@U} @ B%%SCRIO  MICROPAINTER CONVERTER$ B$--- 1985 BOU}B DUHAMEL  dҠϠϛn6.  x"6.7Av,"67Av,.++67@<@U},.7@<@,++67@<@ ,.7@<@,  ϠϠқ )6.7@U}<@,)6.7@,67Av,.##67Av,.7@<@,##67Av,.7@<@, U} 0uΛ2u6-B4u6-B u6-B`6-BtuàŠӛu##@U}@K:u;@,u;@(,u6-A;,uŠӛu]]6.ShpBhEhDhU}hJK Vhhhhhh`phhBhEhDhIhH V B VHԽI`[v$\vM J( ERROR- F:A, AT LINE F:AU},%AV$F:A,Mfv (I/O  v96-@6-@06.9śv'(INPUT: FILE NAMEU}$4'$v6-C:,%B:,6-&B:,v6-?:C:,}4Vx˩eC˩eC4Vx˩eC˩e@4Vx˩eC˩e@^?}4Vx˩eC˩e4Vx˩eC˩`4Vx˩eC˩^@}4Vx˩eC4Vx˩eC4Vx˩eC^A}4Vx˩eC4Vx˩eC4Vx˩e@^B}4Vx˩e@4Vx˩e4Vx˩`Vx^C}˩^D}\R