@L}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%} DD˙`  }J)Lr J  ((  p L ()   J}L= ( L 0q A    IB JC;? D W } LL  ` W )LA!  ߰")-݆ p" } $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ` }$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H }p h  hyhy D L> L JJ    ! LA*` BF }7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!L }EE !E^ ^ E E7EȩEdE/EȩE  D } .L }  ;F d  ;?F7F? ( .   Z D LL d } . D  L    p  E` , d)  D L) 0BM݊L݉} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ G} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >G} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISK}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU  } L ? .  t`GBJ ~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI4 0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -'}LLu ÝDEHILV 9 .l 9 .l  `` s$B BH(}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝL 3u  } 3E:}DISK OPERATING SYSTEM II VERSION COPYRIGHT 1984 ATARI CORP.A. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDG*}E J. DUPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRES+}SF. LOCK FILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES P. FORMAT SINGLEL !N',}#"&))9(&*)/h)''-&؆莟R'S  vL/ˢ L }Insert DOS 2.0s, type Y Λx -}DEfHI 1莏#q! @ y0ɛ8A0,' ȅ 1 1ild! 1L!NO SUCH ITEMSELECT.} ITEM OR FOR MENU! 0 .z:*{}.|{ 1 0 0JB 18L%|DL/}%DIRECTORY--SEARCH SPEC,LIST FILE?[# 0 0 &|D3" 1L!NOT A DISK FILEN !B 1L!E# 1 !BD0}ED:}:1BJ|DE 1DEBHI 1 h0ߢ 0.1}  0?詛 1 y0YЛ 1 ;#L" ;#L! BL1TYPE "Y" TO DELETE...DELETE FILE SPEC2}COPY--FROM, TO?OPTION NOT ALLOWED697 FREE SECTORS COPYING---D8:COPY32.COMl# 0|D .L/%#3}##JB|DE 1BHID#E 1#0: B 1L!#͑### B 1#c$0SY4}S1}:## # # .#Ƚ# # 𩛙## 1,#PD#ELJ- <.BJD#E 5}1 1HH 0hh|DL%1}:̳# L% #D#EL% 1 0 . .0O% 1L!WILD CARDS NOT A6}LLOWED IN DESTINATION 0 <.|K}N 2 FORMAT. t* 5) 1L!`) 0NΞ 0 L1) 1 L!BAD LOAD FILELOAD FROM WHAT FILE?) 0 ?}0#B 1L!WHAT FILE TO LOCK?) 0 0$B 1L!WHAT FILE TO UNLOCK?DUP DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO US@}E PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV.FE! +L1   `*  70 2 2A} 0.* 1 y0 0)INSERT BOTH DISKS, TYPE RETURN^, 1 y038逍 N, 1L! ,B}C, t*  Lx+, 0 ^, 1 y0 , ,0,0 ,L+ ,I0 ,Vǭ0C}Ξ, 0 }, 1 y0C,ШC, 0K'!" H H 'h h Lx+!EF 5L1L!D,I,HhD}` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNINSERT DESTINATION DISK,TYPE RETURNE}`  `8 rL1`-* 1P* 1 y0Y`hhL!NAME OF FILE TO MOVE?- 0 0|DL% <.F},^ 1 70 0 .@L# .BJ 1  DEHIB V L1 ,} 1 70,L.  G}JB|,#P#DE 1 HI BDEHHII 1 B 1 ,^ 1 70,0La- B V,#PH},^ 1 70 0L#L!-* 1P* 1 y0Yj383}mm ݭI}}`8}``|* ? ɛ,`|:-)| / 1L!`DESTINATION CANT BE DOJ}S.SYS0 0H{ 24Δ 28/L!/) 2 Π 2 0 ξK}hAΞB,0 J 1 BDEHI,HÝDE 1HIHIDELSAVE-GIVE L}FILE,START,END(,INIT,RUN)O S0 1`BDEPHI V` S0H 1 L!M}0 0 1L~0`PLEASE TYPE 1 LETTER,0`hhL! 70 1L0L<1 ,;ɛ7,"ɛ:ݦ1ݥN}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{NAMEO} TOO LONG B VL!` L1I H1EΝDL1|mDiE` V0`8d/8 i:222 1 LP}!ERROR- 128ɛ+,' 20*.. өr2 1``2TOO MANY DIGITSINVALID HEXAQ}DECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8uR} ECIMAL PARAMETER800 0 8 00`,0'D800 H,ɛh`2L1NEED D1 THRU D8u!5 (c)1983 Action Computer Services  B JKIHiDiELV`LZT} Z BLV`Ll L &` Fj`8冨凪` EӅӥU} `ʆǪƩ Ɛee` ƦʆǢ &Ɛeǐ ! ! L '&&&8儨児V}祂*L&&*ń8&&L x `hihiHHȱȱLc !#3`W}LJJJJ`H h`Hȩh L! L! BL! JL! PH8X}`HhHh |!L! BHI V䅠L! L! ZL!Ԇ ؠPIPP`Y} !P JL! "L! !L" #"L!H- !8塪墨hL#" <"L! C"L! !ȹP`Z}텠8堨塪 !芨Oȩ-`PP !P棩 Ѥģ0-ģ6000:,80H [}& &ehe&eģ0ʥ 8堅塅`$ !&*i0:0i !Ʀ`¢ 护\}°ڱ%ȱ%E !L}#担CS o!L}#I <"L}#H 7#L}# "L}# &B V !NLMȑ]}` MLN%B VL!S:$E:$$H i! '$($ 2! i!h)0I"$#$L2![\ZUVT` ]$"$#$^}` d$L! W$L! ]$L!) ` d$L! C ` 0d ҥ `2)2_}ҩ`p`0)9%`@0)ӈJJJJ)`Ѕ`ȱ`` R%ȥ`Hh`}ƣĢ`ƥĤ`Ѣ %`ȱѢĦ`膡`a}`ťƤe8夰L% Ƥ8`ŦeѠe桊L%5 Lb}p&l& W$L& Error - %Bl&& `#l&g&`> L&| ! !L& &&&&&c} !&&&q W$&I LK'&8͠&L5'1& W$&i !&&IL'&I~Ld}'&IL'&IL'&&0L'9͟&L'&&i&&&q&i&& !| ! !LW(&I~L*(e}&&ѮL*(&&8 !& ! !| ! !LW(&IL:(LZ(LW(&ILW(&&LZ(L& Wf}$ !&& "&&&&` L( W$L( ESC to Exit!( o! W$1(L(ı( o! W$L([SPACE]g} for drive number( o! W$| ! !L0)"D1: )( ((( !(((h}q W$(I L)(8͇(L)1((i(i( W$(i !((IL)(I~Li})(IL)(IL)((aL*z͆(L*8(aiA((AL)*Z͆(E(0L:*9͆(4(I_-(I.&(I>(I<j}(I:(I? (I*L*((i(((q(i(( !| ! !L.+(I~L+((ѮL+k}((8 !( ! !| ! !L.+(IL+L1+L.+(IL.+((L1+LJ) W$ ! W$LX+ l} +K o! W$L+ +k o!((`L+ W$( C XeYe(m} C e%L+ + o!`riL+++++L=,h&m+i&m+HH !hh++L+`=255 THELI,n} W$Lj,Starting Line Number,U o! W$( C XeYe( e%L,, o! &?,>,o} W$L, , o!( C XeYe( e% W$L8-Line Increment-) o!p} W$LS--K o! &A,@, W$L- -s o! W$L-- o! (E,D,( C q}XeYe( e%D,E,IL-` i!E,D, 2!g&L.` + i! W$L2..* o! (r}E,D,( C XeYe( e%D,E,IL.` i!E,D, 2!g&L.`B,B,L/s}?,>, #">,m@,>,?,mA,?,L. DATA .۩ v! W$L/Char> %BB,. `#C,C,Li/B, C mC,t}ih&ei&e !", !C,L/B, C iih&ei&e !" !B,L. u}i!g&L/` W$L/Conversion Complete!/ o! !`15,4L/ W$L 00 o! (//( C v}XeYe( e%//ILa0` i!// 2!g&L0` + i! W$L00 o! (/w}/( C XeYe( e%//IL0` i!// 2!g&L1`[ !//Lx}1 W$LB1Char> %B/19 `#//L1/ C m/ih&ei&e !"  !/Ly}U1 !/L#1] ! ! i!g&L1` W$L1Conversion Complete!1 o! !`bL2o&n& )$ R%R R%z} R%LZ2(  21 o!L2( |  | Font | 2d o!L2( |ose{}tta tone | Conversion | 2 o!L2( |  | Utility | 2 o!L&3( |} 2 o!LY3( Copyright 1991 by The Bishop 30 o! !L3( Convert to Basic DATA Statements 3f o! !L3(}} Convert to an ACTION! code block 3 o! !L3 Exit to DOS3 o! i!L3K:3 2!11ICLy51I~}cLy5g& !11IA 1IaL4 F, + !Lu4( Convert to Basic DATA Statements 4L o! !L4( Convert to an }ACTION! code block 4 o! !L4 Exit to DOS4 o!Lv51IB 1IbLv5 / + !L5( Convert to Basic DATA Statem}ents 4 o! !LP5( Convert to an ACTION! code block 5' o! !Lo5 Exit to DOS5] o!L 4 i! i!R R% )$}l `1 o! !LP5( Convert to an ACTION! code block 5' o! !Lo5 Exit to DOS5] o!L 4 i! i!R R% )$ LFNFILENAMECCJJDATA TABLE TO STRING CONVERTER } PROGRAM BY DG AND AH. 30MAR93.$$------------------------------jjLOAD DATA STATMENTS FROM LINE 200 ONW }ARDS WITH THE DATA FOR THE FONT OF YOUR CHOICE.ooTHE DATA STATEMENTS ARE TO BE GENERATED BY USING THE } ROSETTA.COM PROGRAM PROVIDED.$$------------------------------;@,;@,%%(PLEASE WAIT.. }..CONVERTING.... (;A$,$-@A$("!6-%@67,.>:,!  6.6.9,($OUTPUT FILE }NAME (NO D: OR EXTENDER):9@_67@<@,.D:967@<@%B:,,._67@%B:,<@%B:, },..LST A @@JJ(@31000 CC$(1,80)=>:@4,7@<@,>:@4 },(LL(@31010 CC$(81,160)=>:@4,7@<A`,>:@4,2MM(@31020 CC$(161,240)=>:@4, }7Aa<A@,>:@4,<MM(@31030 CC$(241,320)=>:@4,7AA<A ,>:@4,FMM(@3 }1040 CC$(321,400)=>:@4,7A!<A,>:@4,PMM(@31050 CC$(401,480)=>:@4,7A<A, }>:@4,ZMM(@31060 CC$(481,560)=>:@4,7A<A`,>:@4,dMM(@31070 CC$(561,640)= }>:@4,7Aa<A@,>:@4,nMM(@31080 CC$(641,720)=>:@4,7AA<A ,>:@4,xMM( }@31090 CC$(721,800)=>:@4,7A!<A,>:@4,MM(@31100 CC$(801,880)=>:@4,7A }<A,>:@4,MM(@31110 CC$(881,960)=>:@4,7A<A `,>:@4,NN(@31120 CC$( }961,1024)=>:@4,7A a<A$,>:@4,'@$(DONE. CODE IN: 'Q@(,(DISK ERROR. T }RY AGAIN.@-@APD GQ @ҠԠ͠ D:CONVERT.BAS@(,(DISK ERROR. T aPCCMTONR%%ԠҠӠ}ȠggENTER IN THE .LST FILE PRODUCED BY THE STRING FONT GENERATOR PROGRAM 'CONVERT.BAS'nnYOU CAN THE}N LIST OUT THIS PROGRAM TO DISK, AND MERGE IT IN YOUR PROGRAMS FOR INSTANTCHARCATER SETS%%------}------------------------- ;A$, B(%%(THIS IS A TEST OF THE NEW SET""(ABCDEFGHIJKLMNOPQRSTUVW}XYZ""(abcdefghijklmnopqrstuvwxyz&Hq6-F:A,&@\qA&@+fqG%6-F:A@,%AV$F:}AA,G6-F:A4,%AV$F:A5,pq46-$AV&$6-P:'AV,46-&$AVzq%@%@}yAV$ D:DISPLAY.BAS,pq46-$AV&$6-P:'AV,46-&$AVzq%@%@(PR h CCMTONR%%ԠҠӠ}ȠggENTER IN THE .LST FILE PRODUCED BY THE STRING FONT GENERATOR PROGRAM 'CONVERT.BAS'nnYOU CAN THE}N LIST OUT THIS PROGRAM TO DISK, AND MERGE IT IN YOUR PROGRAMS FOR INSTANTCHARCATER SETS%%------}------------------------- ;A$, B(%%(THIS IS A TEST OF THE NEW SET""(ABCDEFGHIJKLMNOPQRSTUVW}XYZ""(abcdefghijklmnopqrstuvwxyz&Hq6-F:A,&@\qA&@+fqG%6-F:A@,%AV$F:}AA,G6-F:A4,%AV$F:A5,pq46-$AV&$6-P:'AV,46-&$AVzq%@%@}ykk67@<@,.P8888fffffff>`<|fl0fF68of;888>x|"ykk67@<A}`,.Pf<>>``~,ykk67Aa<A@,.Ppppww}``|l`cc>66wwcc0 0 ~~6ykk67AA<A ,.P`0 0`ccooo`?33}sss~ffgggg`cc~ffwww``pp``pppc`ogg@ykk67A!<A,.Pssssss <<< n~fflggg000ppp~gwg}gggwogggccgggccpppccgggJykk67A<A,.P~ffwww`ssggggggggggo>gggogsss>gggggg}fl7gTykk67A<A`,.P@`0 xx6c6>}^ykk67Aa<A@,.P8pp8?hykk67AA<A} ,.Pww<~~~<rykk67A!<A,.Px`}x`~<~~<0~0 ~ <~~<?g``ss```|ykk67A<A,.Pggcp~88c}c``sss  ~00v|vs888fkcykk67A<A `,.P?3sss?3ss?3sppcc?3ppp`}  33ssccc6ck>6y[[67A a<A$,.@f<~~ffnn~fnn>ck>6"31120 CC$(961,1024)="f>>n931000 CC$(1,80)="fffffff>`<|fl0fF68of;p88p"31010 CC$(81,160)="f< ~p=Ȍo=q=(}i q=r=ir=q=r=0Lc>r=Ȍq=l=m= p=o=8q= q=r=r=q=r=0L>r=q=l=m= FW4LOG;F(}84FF;FLOGOTUFi`X?FiYTULG( SPACEBAR (}Gg 7>FiX?FiYTULG( START G 7I I!LGI!L H(}5LH5`LH 85 @ @F5LH 7``HTART G 7I I!LGI!L H(58888888fffffff>`<|fl0fF68of;`p88p`f<z46>ffskk~kk=f|skkkkcf`x`cf|f`x``hp=ff<4,V|xmlxxll```af~x,}}|fnfm``}fnf|lff`<Ff\0hhblt8pp8?,}ww<~~~<x`x`~<~~<,}0~0 ~ <~~<@>fff;@0`b|ff|@ff:@@|x|`blvff0  8flxl0 f,}~~jc|fffc@F|v```@>p<|00~0006ffn; ff<k>6f<x~ ~0~<~~<-}~x|nf8x8~<f|b@;ff>F|v```@>p<|00~0006ffn; ff<k>6f<x~ ~0~<~~<,|||888lllllll8~|80n8l8pv0008ppx|<8><f<8|~~~~||||||> x1}|||v~x |||||||x0||8|||8p@`0 61}c6>8pp8?1}ww<~~~<x`x`~<~~<1}0~0 ~ <~~<|~~~|~~~|~0|8888~~|<|<<~~<<<<<~|8l8~|8p<~~<1 }8x8~~||~|8|888>~|8l8~|8p<~~<0fffffff>`<|fl0fF68of;p88pf< 80 0 ~~`0 0`<5 }f 8l||||~~f<5 }|||~|p|0000000l8|Tl88lx00000 0`@`0 xx65}c6>8pp8?5}ww<~~~<x`x`~<~~<5}0~0 ~ <~~<<>f>``|ff|<```<>ff>>ff>|``|fff8<<``lxlf8<f5}kc|ffffff>|f```>`<|~ffff>fff<ck>6f< x~ 0~<~~<5}~x|nf8x8ff|``>ff>|f```>`<|~ffff>fff<ck>6f< x~ 0~<~~<4xxxx~~xxUUUUUUUUU*~0 09}`@ 80~~@ @<9}f ``nf>ff~fff~~f<flxxlf`````~cwkccfv~~nf9}`<|fl0fF68of;880p88pf< 80 0 ~~`0 0`<=}f f``f<ffffbx`bbx``||f~ff~ZZ~ xlxxl```bv~nf=}b<F|<fffff<fff<<f<8pp8?=!}ww<~~~<x`x`~<~~<="}0~0 ~ <~~<<>f?`|fff>f`f< |v000|000`~`|fff8<f<`lxxl8<=#}fff`<|~fff;fff<|lf<|~L2~<~~<=$}8x8ff|`~| f``>`<|~fff;fff<|lf<|~L2~<~~<<fffffff>`<|fl0fF68of;p88pf<8pp8?A*}ww<~~~<x`x`~<~~f>``|ff|<```<>ff>>ff>|``|fff8<<``lxlf8<fA,}kc|ffffff>|f```>`<|~ffff>fff<ck>6f< x~ 0~<~~<A-}~x|nf8x8f|``>ff>|f```>`<|~ffff>fff<ck>6f< x~ 0~<~~<@888888fffffff>`<|fl0fF68of;`p88p`f<x<6>ffsccncc8pp8?E3}ww<~~~<x`x`~<~~fff;``|ff|ff:>|x|``lvff0 8flxl0 fE5}~~jc|fffc|v```>`<|0~0006ffn;ff<k>6f<x~ ~1~<~~<E6}~x|nf8x8ff|`;ff>|v```>`<|0~0006ffn;ff<k>6f<x~ ~1~<~~<D((($$~$$~$$>h> >bd&F PP1JD;   D(|(D|~ 0I8}`@8DLTdD808(D|BB|BB|8pp8?I<}ww<~~~<x`x`~<~~BBB>| <"""$ "$(0$"I>}xDDDDBB><" <@<<< DDDD<D(DD((DBB$ | |<~~<I?}8x8BB|@@>BB><" <@<<< DDDD<D(DD((DBB$ | |<~~<Hfffffff>`<|fl0fF68of;880  00f< 80 0 ~~`0 0`f``f<ffffbx`bbx``||ff~fff xlxxl```bv~nfMC}`<|<fffff<fff<<f<8pp8?ME}ww<~~~<x`x`~<~~f`f< |v000|000`~`|fff8<f<`lxxl8<MG}fff`<|~fff;bt8|lf<|~L2~<~~<MH}~x|nf8x8fff<ff|`~| f``>`<|~fff;bt8|lf<|~L2~<~~<Lfffffff>`<|fl0fF68of;p88pf< 80 0 ~~`0 0```nf>ff~fff~~f<flxxlf`````~cwkccfv~~nfQL}8pp8?QN}ww<~~~<x`x`~<~~f>``|ff|<```<>ff>>ff>|``|fff8<<``lxlf8<fQP}kc|ffffff>|f```>`<|~ffff>fff<ck>6f< x~ 0~<~~<QQ}~x|nf8x8ff|``>ff>|f```>`<|~ffff>fff<ck>6f< x~ 0~<~~<P$WwLA @33$H$2.2_$07/27/91e$Xwp$#US} # p$.#Ƚ# p$ 𩛙## 1,#PDp$ELJ- <.Bp$D#E 1 1Hp$0hhUT}|DL%1 (c)1983 Action Computer Services  B JKUU}IHiDiELV`L\% \% BLV`L%%l L% &` Fj`UV}8冨凪` %EӅӥ %`ʆǪƩ Ɛee` %ƦʆǢ &Ɛeǐ #UW}& #&L% %'&&&8儨児祂*L%&&*ń8&&L% z&`hihiHHUX}ȱL%c !#3`L%JJJJ`H %h`Hȩh %L' %LUY}' D%L' L%L' R%H8`HhHh ~'L' BHI V䅠L' L' \UZ}%L'Ԇ ؠPIPP` 'P L%L' (L' 'L( %(L'H- '8塪墨hL%( U[}>(L' E(L' 'ȹP`텠8堨塪 '芨Oȩ-`PP 'P棩 ѤU\}ģ0-ģ6000:,80H & &ehe&eģ0ʥ 8堅塅`$ '&*i0:0i 'U]}Ʀ`¢ 护°ڱ%ȱ%E 'L)担CS q'L)I >(L)H 9)L) (L)U^} &B V 'NLMȑ` MLN%B VL'S:!*E:&*H k' )*** 4' k'h)0I$*%*LU_}4'[\ZUVT` _*$*%*` f*L' Y*L' _*L') ` f*L' E&` U`}0d %ҥ `2)2ҩ`p`0)9 +`@0)ӈJJJJ)`Ѕ`ȱUa}`` T+ȥ`HhƣĢ`ƥĤ`Ѣ +Ub}`ȱѢĦ`膡``ťƤe8夰L+ Ƥ8`ŦUc}eѠe桊L+CE DISLr, &i,i, E&Beej, T+i, E&DeelUd},k, ^+i, E&Heen,m, ^+i, E& V`L#-H ԍ ԩh@`L<-H ԍ Ue}h@`LU-j D+%8%%%j T+ +*% E& +% E&i%Uf}i %%i!% %i"%d E&q$p$ g+Ȯ %% g+Ȯ"%!% g+t$$$L0.ROM FONT.'$ +:Ug}-) %!-i "-i % T+;-:- % %!-i"-i % T+!-) %:-i ;-i % T+"-!- % %Uq}b%DOS SYSb*)DUP SYSb/SROSETTA COMbCONVERT BASbDISPLAY BASbINSTCHARBASb FUTURE LSTb CURSIVE LSTb OUTLINE LSTbLOADER LSTb(DISPLAY COMb ARCHAIC2FNTb FANCY3B FNTb CHSET2 FNTb JIGSAW FNTb SERIF FNTb %TRAINS FNTb .FANCY1 FNTb 7SPECIAL FNTb @FANCY2B FNTb ISTANDARDFNTbRDSKLAB22COMb/DRIVER22COMb5COL80 OBJb OCOL80 DOCb^oCOL80 ASM:-i;-i % T+!-i"-i% T+`L. ( E&XeYe ( E& g+  Y*`LUr};/L[/Press any key to continue.../> ^' ' %`/Lq/ D+m/m/)m/m/ T+m/ҩ T+`L/ &/@/Us}//L/Ȍ////͟/L//m//i /L/L<0//i//00͟/L<0L/m//i Ut}/L0///LR0<0P q'// q'Lg0>0e q'//i00͟/L0 L00 q'/L|0L00 q' Uu}'//I}L1/͜/L0L00 q'//M/L0/m//i 8//L 1~1 q'/L0/I~LW1͞/LW1Uv}/m//i 8//LP1~1N q'/IL{1/͜/L{1/Lt11r q'/IL1͞/L18//L11 q'͝/Uw}L1/{L1/͜/L1//m//i// '/I /IL0] T+`p$) 1 L!ERROR- 170Ux}L62 &.2Xm12Yi(02 E&ee8.2( E&ee8/2Uy} E&e%e%22%m22%i D+ % %I %%m22%i % T+2222IL2`YSL3333Uz}232`ACSL13 &)3,3+322 32 ' %,3+322 32 %I=L32M)3L32L32 %I+L32IL3*32LU{}3822 %I*L32M*3L32L32 %I-L32IL3)32L3822,3+322 32 %IL#4-3,3+32U|}2 32Lj4 %ILg482)3 E&2e-3,3+322 32Lj4LH3-3`ing frL}4 &p4u42u4L4`2x4U}}2y4Xms4Yi(r4 E&ee8y4( E&ee8x4 E&U~}e%e%v4u48585v4L5i%mv4%i8 D+ % %)ŮLz5w4L5w4 %) % %@L5U} %i %L5 %`L58 %@ %w4IL5 %i % %v42v4L-5`9L55L5 5ޢ$ +L6D1:5$ +U}5$ % %2I L@6 %i %2$ %LC6LM6 %I L65 %i.$5 %im5 m52$5U}5ILe6 %i$`O roL6 &666 ^+66 ^+ T+ ^+橥Ŧ饩ŧ D+6U}6`L7 +*R T+ n//r T+r T+ T+0i1iF T+ % %L70m %1iiiU} T+ %L`7 Y*L7 DISK LABELER7 ^'L7 - by -7 ^'L7larry richardson7 ^'L8# U}7 ^'L>8# |Š͠|8 ^'Ll8# 8H ^'L8# This ProU}gram Written Using ACTION!8v ^'L8 ACTION! is Trademark of8 ^'L8 Action Computer Services8 ^'L9 PorU}tions of this program are8 ^'L;9 (c) 1984, A.C.S.9 ^' 'Le9 Press a key to begin.9H ^' ' 'L9PrinU}ter driver= 9u q'^$]$ ^' ' 'L9 Version 9 q'd$c$ q'L9 9 q'o$n$ ^'"/ ' %`L9 U} Y*%L!:L:Not on label : q'L:%ILJ:L@:Left corner only :. q'L:%ILs:Li:Right corner only:W q'L:U}%IL:L:Both corners : q'`L: Y*$t q'L: : q'`L: Y*$ q'L: : q'`L:U} Y*$ q' Y* % %L`;Xm %Yii!%i%%% D+%%)%E%%%% T+ %L ;`Ld;  Y*U}% (Ly; ;v q'`U} 6iewa$irectoryont,oadirectory,oad3rt$irectory03con,oaU}diew03)conet)con,ocationnter4itlerint,abellear%it0rogramU};L=XiYi== +`L>= +* n//0i1iFU} T+0i1i T+"-!- ^+0i1i T+0i1i T+ԩ T+L= DISK LABELER =U} q'd$c$ ^'L=Font = = ^'L&>$ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789> ^' 'L>> PS Icon = >3 ^'LS> Location: >H ^' U}'Lh>Title :>` ^' 'L>Directory : Entries>u ^' ' =Ѣ T+Ѣ T+  T+ T+ 9 : : : a;"/`L> U}.L> 򠪪> ^' ' %`L ?L?}? q'%%%%>%>% % k'$ 4' %L? U}' 'Ly? ?] ^'% E& o, %L?$$ +L?% E&U} + k' %L? 8/%%%%`p$ YTE d,Sp$ G s)[$4p$ A9$A385p$ PROC Ip$ MD=*(BYp$ ,STRINGLL@Lo@U}ERROR - Can't open the printer@O ^' %`RL@|@%%%%K@%J@% %|@ k'L@P:@|@ 4' %L@@(|@U} x'@|@ x'%%%%`A$AAL@ &@@ E&@@@@ x'@)@) %@@)@@U}@ '@@ '@@@@ E&8AAA@A@LWB4C@@@@ z&@e@U}@e@@@L!B@@ D+ % %-@ŮLB@m@@N@@m@@@i@@LA!%m@"%m@@ T+N@@U}LLB@@@LA"%@@!% @ o,`riD :*.*tBLBsBrB{Bi|BirBsBILB .LB +* n/ T+ѢU} T+Ѣ T+  T+ T+LBĢB q'rBi 'LCC ^'%%%%>%>% % k'U}|B{B 4' % %LFsBILD%LYDLC dd entries to list or rase oldCs ^'LCentriesC ^' 'LCPress U} or ->C q' ' % %IA %Ia %IE %Ie %ILC %ILD%%%%` %IA %IaL;DL1D Add entriesD% ^'U}LYDLMDErase old listD> ^'% ' 'LD Db ^'$ ' %ILDLFsBLD$ ^' %$U}$ ,LD FREE SECTORSDƢ$ +LFEͻ$LFEsBILFE%dLFE% E&p$eq$e$U} +% a; %ILE 8/ % %ILeELFLjE}Eh q'LEĢEt q'rBi 'LEE ^'%IdU}LFsBILF .LE Warning - Number of entries=100E ^'LF젪E ^' ' %LFLD k' % %U}L4F 8/%%%% a;`LGF .%LG +* n/ T+Ѣ T+Ѣ T+  T+ T+$%LF"U}F ^' %%FF %L{GN8 % E&p$eq$e$ +$ ^'%%ILuU}G% 8/ %ILK=K7K7KILIL7K`55LPLKLJLKLcMLMGǮ>K=K CK:KIL}M`U}~1M E&IeHeG~Ǧ +HE D+>K=K1MLGM=K>KLN 'LN#Error - Bad sector link inU} PS IconM ^' 8/`GǮ>K=K CK:KIL)N`~1M E&IeHeGDǦ +`LdNLiN}Ng ^' L8K U}:KILN L`2 ML:KILN`8KLN ' '2 q'LN - Not on this diskN ^' ' 8/L"O ' 'LO" >>>Icon found - LoadiU}ng data<<VB q' ' % %I0 %I1 %I2 %I3 %IL]V %ILV8 %0% 9`LV .LV堼VU} ^' 'LVType a title for the labelV ^'L W(Up to 24 characters)V ^'$ /$$ +VVȌ % %LrWVU}LYW %$I LYW %V %$I LlW %V %L4WͤV ͥVLX%8VVi z&8 宅i %$VU}V$ ,%%LW %$%LW$ % %mV8VϢ$ +,LX%%ILX 'LIX!Print the title ormaU}l or X' ^'LmXPress or to choose.->XS q' ' % %IN %In %II %Ii %ILtX %II %IiLX%U}LX% :`LXXXLX8X逍XX LXXi@`LYX`L Y8X `LYX`iLYYY XY$ g+U}% E&Y E&ee$ + % %LZYYm %$i D+%%-U}YŮLYYLY %$mY %$LY %i$mY$YYYYL ZYYLY %LY`LZ%IL.ZZL3ZU}Z%%L[%$ Y % %LZm %$i D+%%M%%8% E&%e %eU}9 % E&eeiimZi% T+ %LTZ % %L[m %$i D+%%M%%U}8% E&%e %eii9 % E&eemZi% T+ %LZ%L8U}Z` L[[ % %L]%%L]8[X E&IeHe % E&eem %iU} D+%%)IL\9% E&%e %em %i% T+%)IL\9% E&U}%e %em %ii!i% E&ee% T+%L[ %L[`L ] ]] % %U}L]^ %i] E&eep$eq$e X%% E&% E&eU}%e%%%LW^%m%%i D+% %IL]%IL]% %9% E&%e %em %U}i m% ] E&ee% T+%L] %L]`p$Lf^Ll^ ^i^^ +  Y*^^ / %IL^`U} % %L^ %^^0 9 %^^L^ %^^I L^` %L^^^ (b^b^L^b^%`%L^^^L_m% Y*LI_^U}IL._m% Y*LI_^ILI_8% Y*LN_ _L q'`LZ_V_V_Ly_m% Y*L_V_IL_m%U} Y*L_V_IL_  Y*% L_L_0_ q'% (L_>_ q'L_V_IL_8% Y*V_IL`L_آ_ q'`LL `U}``L:` Y*L0` Print Quality`" q'L``ILe` Y*L[` Label Size`P q'L``IL`  Y*L`Number of CopiU}es`{ q'L``IL` Y*L`Spacing After Title` q'`L```L` Y*L` ` q'La`IL&aU} Y*La a q'La`ILWa  Y*LMaa< q'La`ILa Y*LaaU}m q'`La +* n// T+ T+բ T+ Y*Laa ^'L b&U}a q'L:b&| |b q'Lkb&| Draft |bD q'Lb&| NLU}Q |bu q'Lb&b q'Lb&| Label Size U} |b q'L/c&| 1 inch high by 3 1/2 inch wide |c q'L`c&| 1 1/2 inch high by 4 inch wide |c9 q'Lc&| 2 inch U}high by 4 inch wide |cj q'Lc&| No height limit by 4 inch wide |c q'Lc&cU} q'L$d&| Number of Copies < > |c q'%ILdL_d&d8 q'Ld&| SpacinU}g After Title |di q'Ld&| ON |d q'Ld&| OFF U} |d q'L#e&d q' Y*LOe  = Switch Fielde6 ^'L{e! SPACE = Change VU}alue of a FieldeY ^'Le# P = Print using above optionse ^'Le ESC = Return to Main Menue q'm% Y*U}Leآe q'm% Y*L fآf q'  Y*% L1fL*f0f( q'% (%IL^f8% Y*LWfآfU q'"/`U}Llf agf%Lf% ' % %I=Lfgf `gfgfgfLf%Lfgfgf ` %I-Lfgf `8gfgfgfILfU}%LfgfLfgfgf ` %I Lhggf ^gfL!g%I%LbggfIL@g%%L=g%LbggfILPg c^LbggfILbg%IU}%gf W_ %ILsg` %Ip %IPLf%ILg %%L_h%ILg %%L_h%ILg%%L_h%%LgU}% z&i%LRh%L)h% z&i%% L&h %LRh% z&i%% LRh %%ILU}_h%%ILrh8%% ;= .Lh"h{ ^' ' % %ILh`Lh$ 砪U} h ^'L i (Press to abort...)h ^'@ԩ T+hf%6i6ihfLzk }@ %ILJi 8/`efȌdf8U}%gigidfL\k̮ %% g+% dfLjdfLidf Lidf [% dfLiffffLief%Liffef U}]efffLiL|j%ILjffffLjef%Ljffef ]efffLiL|j%ILPjffffLMjef%LGjffef ]efffL&jLU}|jffffL|jef%Lvjffef ]efffLUjLj Zˮ %% 6 % %Lk%Lj9 %% @@ x'@ x'LU}k9 %% @@3 x'@ x'9 %% @@> x'@ x'L#k@ x'@ x'IL0kL\k%ILVkdfILVk@U} x'@ x'dfL\i%ILok@ x' k'hfL+i`L~k .Lk 򠼼k ^' 'Lk) Revert to ROM fontk ^'Lk) ErU}ase titlek ^'Lk) Clear directory in memoryk ^' 'L!lPress , , or ( to exit)l q' ' % %I1 %I2 U}%I3 %IL(l %IL\l` %I1Ll% E& +LlROM FONTl$ + :Ll %I2Ll %U} %Ll %$ %$ %Ll%% :Ll% a;`p$dLm 'p$p$m l p$mDrive - U}L?m%LJm` .Lhm󠼼mP ^'Lmmr ^'l mm,m%lll8lU}mmlLo 8l E&p$eq$el +l E&p$eq$em U} +lm +m m- +m,m +Š0Ln8l E&p$eq$emU} +l E&p$eq$el +llLm8lllI lILm`AD :*.*oL+ooU} 3$oi%oio .Lco䠭ĢoQ q'oi 'Looz ^'%%%%>%>% % k'U}%o$o 4'&o %L)r +* n/ T+Ѣ T+Ѣ T+  T+ T+Lp䠭Ģp q'oi 'L0pU}p* ^' 3$ ' %ILTpL&r$$ ,Lyp FREE SECTORSpl$ +Lpͻ$Lp$ ^'&o&oIU}Lr$ '$$ ,Lp FREE SECTORSp΢$ +LpL&r&oLq ** List More ** p ^'L@q&=MU}ove =Load =Quitq q' .3'o'oILdq`'o  z4Lq ** List Mor2q} +LqLU}qLqo 5 ? %&oLqLGq %ILqL&rLq}q q'Lq䠭Ģq q'oi 'L rr ^' 3$ ^'U}L>pL,r 8/ k'&oLr %Lr Y*Lvr&=Move =Load =QuitrO q' .3'o'oILr`U}'o  z4Lr 2r +Lro 5 ? %LrL}r%%%%`Lr k'LsK:s 4' U}7 R- ;=G$BF$@ + = 'rr1Lks8rLks@ԩ T+r }B ;=rIM rImLs DF ;=rIF rIfL7t@U}ԩ T+ .Ls䠼s ^' 'LsDrive - ( to exit) >s q' 'rr1Lt8r rILsU}r1L7t8rL7t@ԩ T+r (o ;=rID rIdLt .Ljt䠼tS ^' 'LtDrive - ( to exit)V} >tw q' 'rr1Lt8r rILtr1Lt8rLt@ԩ T+r }BrII rIiLu@ԩ T+ &O ;=rIVV} rIvLu S ;=rIS rIsL2u UrIE rIeLFu VrIP rIpL]u if ;=rIC rIcLqu {krIO rIoLu /P &..ir/r/͊.L/gLx//v &.Lg/L// & ,'..I}L0.͇.L/Z}L// &..M.L/.m..i 8..L/~/ &.L/.I~LB0͉.LB0.m..i 8.Z}.L;0~09 &.ILf0.͇.Lf0.L_00] &.IL0͉.L08..L00 &͈.L0.{L0.͇.L0Z }..m..i.. M'.I .IL/] *`L0@L 1 0$F d+L'1 Filename --> 1 Z!}&$F .H$I:L1I$I:L1$F$Z d+L_1D1:1[$F d+$Z$F +`L1 K' K'L1 򠪪Z"}1 & K'$`L111111L1`$1122͓$L`2)1m$1iI LZ21m$Z#}1i01m$1i9ѮLU2`LZ21$L11ILr2`Lw2` a L2 I&w2L2}2 &L2 Z$}򠼼2 & K'L22 &x2w2 & K'L3!How many numbers (bytes) in this 2 &L)Z%}3code -3" & o$ p$$n . K'$n 1{2{2L3$n ?(z2z2 z2L3L3#Must be between 1 and 10 inclusive.Z&}3z &L33 &L3L33 &{2L3z2 L3z2L3 K'L4All codes are made up of 1 byte3 &L/4!numbers (fromZ'} 0 to 255 inclusive)4 & K'8y2 %z2$|2z2s4s4|2L,5sL4 Enter code #4w &|2 'L4 4Z(} &L4 4$q d+$q . K'$q 1{2{2L4$q ?(}2L4L44 &{2Lt48y2 %m|Z)}2i}2$|2Lh4`$Ww/5L:5 &LE5K:5B & , , ) + *L5 򠼼5pZ*} & K'L5 This program updates the5 &L5!printer control codes used by the5 &L6"ˠ program, version 2Z+}.2.5 &L>6!You may use this program to enter6 &Lm6$codes specific to your printer type.6H & K'L6"Enter the name ofZ,} the file that is6z &L6the ˠ program.6 & K'$ 0H$I:L6I$I I$I:L17J$I L17 K'L7Please enZ-}ter a filename!6 &L%77" &$$L60%$/%$10%1/%$ & $F &$L~:.5$͓$L7Z.} ,'-5$IL7l 55m$65i-5QL7Ȍ.5$L|7.5IL$8 K' K'L7SORRY, This is not Version 2.27 &L8thZ/}e ˠ program.8 &L~:LC8960 Dots/line graphics mode8' ~2Lf8Set 1/9 inch line feed8O ~2L|8 Line feed8Z0}r ~2L8 Reset printer8 ~2L8Set 2/216 inch line feed8 ~2L8Set 22/216 inch line feed8 ~2L8}8 &L9 Z1} 򠼼8 & K'LG9"Enter the name of the printer that9$ &Lr9 you have just entered codes for.9Q &LZ2}9"This name will appear on the intro9| &L9screen of the ˠ.9 & K'L9 9Ң$u d+Z3}$u . K'L!:Updating executable file...: &$A͓$LL:$$ P'$L-: P'$ P'$͓$L~:$u$Z4} P'$L_:$0%$/% & K'L:! PRESS ANY KEY TO GO TO DOS...: & ,'$l ``75 P'$͓$L~:$u$X_'*J)1pp0B_)pppppAJ)츰젭 ? - Help ^6}- Line down - Page down Q - Quit yyz^7}_)ɀ88f` i`8 e_)֥ * * * H / 1 O1 ."/hɀ:0 ^8}0 L.L*/ O1yyz ."/ O1 L./ O110ip0Oȥi@^9}ȥiȑȑȑȑȑȑȑi iоAȩȩp0 ."/ 1^:}+++L+mh1mig+,+接揥Ő őL) -惥PЩ报Œ愥мƄ -L+^;}iPL, , L,ɛƊL,qHL,? 1L8,*#  ,ɛ ? 1Lu,qHL, -1u V1 ^<},? 1L,qH`  V`,鍤  VhLq*SЬy`%H$H` e ii^=}iȱJei)ɀ 8Hh` i@Lq-8 & &i=-=-qHh]-L-h^>}i'i` O1HHi -hh`憑@` -i `0.L^?}000 0U T0 0* * l 0| 0"/ -ɀ8`8 QA 0+L.S؍0 +0 0L.0 00^@} 00 01B1EDHI V01ɛL/L. R V0 0 - 11 0 1ɛ /81 ʢR^A}T/U 1ɛ T/UZ[ VRT1UXY V0&1 BD1EHI VLB/H R V䩛^B}1hɈ1 00 0L.D(:*.*D:*.*1:#1:11D1:11 b V b1edjk V0`L.E^C}D BHILV}~츰 v1.5by Itay Chamiel - September 1992bruck@brachot.jct.ac.iltari EOL or Acii?^D} (or Q for DOS)? Input DEV:filename:Error - try again!Exiting to DOS, please wait...Directory: drive #? (1-9)"f^E}f"̈ b;hfi1e1ōdą V0`hhHL,`ċH -hċ` 堭Ѡ^F}J0)1 ,01`DDDDDDfD"D"D"DDD"DDD"DDDD"DDDDDDDDDD^G}DDDD""DDDDDDDDD"D"""f""""D̪D"DDDDDDf"DDDDD^H}"DD"D"DD"DDDfD̪̪ff̪ffDDDDf"""D̪^I}"̪̈"̪̪fD""DDDDDDDDDDDD"Df^J}DDDDfDD""DDDDDDDDDDwwDDDDDDDDDDDDDDD""DDDD""33ww3333^K}3333DDwwDDDDDDDDDDDDDDDDDDDDw^L}wDfDDDDDDDDDDDDD""DDDDD"̪ff""ffDffff"̪DDDDD^M}"""""̪DDDD̪DD̪̈ff""ffD"DDDDfDDDf^N}""DDDDDDDDDDD̪""TTTTTT̈ff""ffD"DDDDfDDDf\2Col80 - An 80-column file reader - ver 1.5 By Itay ChamielBug reports to me at: bruck@brachot.jct.ac.il (IbP}nterNet)Following a discussion in comp.sys.atari.8bit, I decided to write my own 80-column file reader, as a demonstrationbQ} of just how fast an 80-col screen cango. This program will ask for a filename, will read it, and will output it tothe screbR}en, in an 80x25 character matrix.Download the file COL80.OBJ from the Archive. Load using option 'L' of DOS.This program sbS}hould work with all DOSes, but has only been tested againstMyDOS and Atari DOS 2.0 and 2.5.Once loaded, it will display thbT}e title screen, and prompt:[A]tascii EOL of A[s]cii? (or Q for DOS) _At this point, you may either [Q]uit to DOS, or type:bU}A - reckognize $9B (155 - Atari EOL) as the EOLS - reckognize $0A (10, ^J - Ascii) as EOLAfter that, it will ask you forbV} the filename to read. You may input just thefilename for use with D:, of input the full device name (even C: if youwant), bW}and press to confirm.You may also press just for a directory listing. Upon pressing without a fibX}lename, it will ask you for the drive number. Just hit1 to 9 to use Dn:*.* , or again to use D:*.* .. The directorybY} willdisplay, and you will be back at the filename prompt.After typing a filename, the program will attempt to open the fibZ}le. Upon any error, it will notify you with a "Error - try again!" and let you re-enter the name. You can use any type of db[}evice or density, RAMdisks, Hard-disks etc., since it uses CIO and depends only on the DOS you are using.If the file openeb\}d successfully, the 320x200 display list will be set up, andthe file will be read. If there is any error (including )b]}, you will beput back at the prompts for another try.When the buffer fills, or the end-of-file is reached, the file will sb^}tartoutputting the first page. The program will use the EOL you specified, and willalso use 127 as a TAB. Note that TAB onlb_}y skips 5 spaces, it's not a real one..After the page has been printed, you can use: - Dump another page (bottob`}m line goes to the top) - Dump one line - Help, display some info. Any key to go back to file. ba} - Quit, go back to the prompts. (Not to DOS) - Restart program. Inits Disk handler and returns to prompts.bb}If the file was larger than the buffer, the buffer will refill when it finishesdumping to the screen. This means that you'lbc}l see the printing suddenly stopand see the disk-drive grind away. As soon as the buffer refills, the printingwill continuebd} from exactly where it left off, i.e. it'll finish the page/lineit was in the middle of. This means that you'll hardly noticbe}e it if you'reusing a RAMdisk.When the end of file is reached, you will be told. The only thing to do hereis to hit 'Q' tbf}o get back to the prompts. Technical notesThe speedy scrolling is achieved by using a simplbg}e trick. Each text-line (every8 mode F lines) are controlled by an LMS instruction in the Display list. Whenscrolling, eachbh} LMS gets the address of the LMS after it, and thus all linesappear to move up. The top line is then assigned to the LMS in bi}the bottom, andit's 320 bytes (40*8=320) are then physically erased. How it was doneCol80 wbj}as written from scratch using the T:EDIT text editor and assembled usingA65. The character set was created using a characterbk} editor (duh) and appendedto the assembled object file. The final object file was optimized (removed allthe binary-file heabl}ders which A65 loves adding for some stupid reason) using ahome-brewed program of mine in Turbo BASIC (actually Frost Basic)bm}. I then sentit to the Atari Archive for all the world to use and enjoy!!Oh well, I guess that's it.. Happy reading!! :-)bn}Itay ChamielSeptember 12, 1992ve for all the world to use and enjoy!!Oh well, I guess that's it.. Happy reading!! :-)`#;; Col80 - an 80-column FAST file; reader... v1.5 ;; (c) July 1992 Itay Chamiel;; For everybody:;; This program was fp}written using; T:Edit, and assembled using A65.; I take no responsibility for; incompatibilities with other; assemblers (fq}Who'd want one??);; This program is not commented,; exept for a few minimal blurbs; scattered around it.;; I take no refr}sponsibility for the; cleanliness of the code, but I; CAN say that this one compiled; without errors and had no; unexpectfs}ed bugs - with A65.;; If you modify it, do NOT change; the credits... I'll do that, if; you have made any important; addft}itions.. and deserve credit..; *I* will increment the version; number and add your credit..; Just send me the modified codfu}e; (your part commented a bit..); and I'll change the title screen.;; If you'll want to make it be able; to go up when rfv}eading, I warn you; that you'll have to flush out the; entire mess of a main loop that I; wrote.. :) ;; I guess enjoy thfw}e hack... it's; not THAT bad!!;; -Itay Chamiel; September 3 1992;;;; Zero-page equfx}ates;DLDOER=$80POS=$82X=$83Y=$84CNTRL=$85CNTRH=$86PRCHAR=$87TEMP=$89MORCNTR=$8APRLEN=$8BPRCNTR=$8CBUFPLC=$8EBUFfy}LIM=$90MORSIZE=$92PRFROM=$94STAT=$96;; Equates;DLIST=$9C00CHARSET=$9800SCREEN=$A000-80ICCOM=$342ICBAL=$344ICBAH=$fz}345ICPTL=$346ICPTH=$347ICBLL=$348ICBLH=$349ICAX1=$34AICAX2=$34BCIOV=$E456;; Main program; ORG $2E0 DW INIT ORG $f{}294A ; Overwrite Mydos's DUPHDLIST DB $70,$70,$30,$42 DW HLINES DB $70,$70,$70,$70,$70 DB 2,0,2,0,2,0,2,65 DW HDLISTHLf|}INES DB '츰' DB '젭' DB ' ? - Help ' DB ' ' DB ' - Line d' DB 'own ' DB ' - Page d' DB 'own ' DB ' Q - Quit ' Df~}B ' 'INIT LDA $79 BNE NOFEFE LDA #$FE STA $79 STA $7ANOFEFE LDX #0CHLINES LDA #0 STA TEMP LDA f}HLINES,X CMP #128 BCC CHNOIN SEC SBC #128 SEC ROR TEMPCHNOIN CMP #96 BCS CHLOK CMP #32 BCS CHL1 CLC ADC #64+32Cf}HL1 SEC SBC #32CHLOK CLC ADC TEMP STA HLINES,X INX CPX #INIT-HLINES BNE CHLINES LDA 12 STA J+1 LDA 13 STA J+2 Lf}DA #RESET&255 STA 12 LDA #RESET/256 STA 13 LDY #1RESTART TYA PHA LDA #10 STA 709 LDA #0 STA 710 STA 712 STA 752f} STA 559 TAXERCHSET LDA #0 STA CHARSET,X INX CPX #8 BNE ERCHSET LDX #0TABCHDO LDA XCHARS,X STA DLIST-16,X INX CPf}X #16 BNE TABCHDO JSR VDELAY JSR PRTITLE LDA #34 STA 559 PLA TAY CMP #128 BCC NORST LDA #ERROR/256 LDY #ERROR&255f} JSR CIOPRINT JSR GETFILE JMP NORST2RESET LDA #0 STA 710 STA 559 LDA #1 STA 752 JSR VDELAY LDA $79 BNE RSNOFEFE Lf}DA #$FE STA $79 STA $7ARSNOFEFE JSR PRTITLE LDA #0 STA 752 LDA #34 STA 559 JSR VDELAYJ JSR $FFFFNORST JSR GETFILEf}NORST2 LDA #255 STA MORCNTR LDA #24 STA MORSIZE LDA #0 STA 559 JSR VDELAY LDA #DLIST/256 STA 561 STA DLDOER+1 LDAf} #DLIST&255 STA 560 CLC ADC #3 STA DLDOER LDA #$70 STA DLIST STA DLIST+1 LDA #$30 STA DLIST+2 LDA #SCREEN&255 STA f}CNTRL LDA #SCREEN/256 STA CNTRH LDX #0DODL LDY #0 LDA #$4F STA (DLDOER),Y INY LDA CNTRL STA (DLDOER),Y CLC ADC #Lf}O[40*8] STA CNTRL INY LDA CNTRH STA (DLDOER),Y ADC #HI[40*8] STA CNTRH LDA #$F INY STA (DLDOER),Y INY STA (DLDOER)f},Y INY STA (DLDOER),Y INY STA (DLDOER),Y INY STA (DLDOER),Y INY STA (DLDOER),Y INY STA (DLDOER),Y LDA DLDOER CLCf} ADC #10 STA DLDOER LDA DLDOER+1 ADC #0 STA DLDOER+1 INX CPX #25 BNE DODL LDY #0 LDA #65 STA (DLDOER),Y INY LDA #f}DLIST&255 STA (DLDOER),Y INY LDA #DLIST/256 STA (DLDOER),Y LDA #LO[SCREEN-320] STA DLIST+4 LDA #HI[SCREEN-320] STA DLf}IST+5 LDA #LO[SCREEN-640] STA DLIST+134 LDA #HI[SCREEN-640] STA DLIST+135 LDA #15 STA 709 LDA #0 STA 710 JSR CLRSCRNf}; LDA #0 STA STAT STA X STA Y LDA #2 STA 712 LDA #34 STA 559GOGETDS JSR GETBYTE CPY #136 BEQ ENDOF LDA #LO[CHARf}SET] STA BUFLIM LDA #HI[CHARSET] STA BUFLIM+1 LDA #LO[GOGETDS] STA JMPCHN+1 LDA #HI[GOGETDS] STA JMPCHN+2 JMP LOOPPEf}NDOF LDA #BUFFER&255 CLC ADC ICBLL+$20 STA BUFLIM LDA #BUFFER/256 ADC ICBLH+$20 STA BUFLIM+1 LDA #LO[ENDOFILE] STA Jf}MPCHN+1 LDA #HI[ENDOFILE] STA JMPCHN+2LOOPP INC BUFPLC LDA BUFPLC BNE GETCH INC BUFPLC+1GETCH LDA BUFPLC CMP BUFLIMf} BNE PRNTCH LDA BUFPLC+1 CMP BUFLIM+1 BNE PRNTCHJMPCHN JMP $FFFFPRNTCH LDY #0 LDA (BUFPLC),YATACHN CMP #1 BEQ RET f}CMP #127 BEQ TAB STA PRCHAR JSR PRINT INC X LDA X CMP #80 BNE LOOPPRET LDA #0 STA X INC MORCNTR LDA MORCNTR CMP f}MORSIZE BEQ DOMOREBKMOR INC Y LDA Y CMP #25 BNE LOOPP DEC Y JSR SCRLDOWN JMP LOOPPTAB LDA X CLC ADC #5 STA X Cf}MP #80 BCC LOOPP JMP RETDOMORE JSR GETKEY CMP #32 ; Spacebar? BNE MNOSPC STA STAT LDA #0 STA MORCNTR JMP BKMORMf}NOSPC CMP #155 ; ? BNE MORCHKQ STA STAT DEC MORCNTR JMP BKMORMORCHKQ CMP #113 ; 'Q'? BNE CHKHLP LDA #0 PHAf} JMP ADSKERRCHKHLP CMP #63 ; Qmark? BNE DOMORE JSR DOHELP JMP DOMOREENDOFILE LDA Y CMP #24 BNE ENOSCRL LDA STAT Bf}EQ EYSSCRL CMP #32 BEQ EYSSCRLEOFBLP JSR GETKEY CMP #155 BEQ EYSSCRL CMP #32 BEQ EYSSCRL CMP #63 BNE EOFBLP1 JSR Df}OHELP JMP EOFBLPEOFBLP1 CMP #113 BNE EOFBLP LDA #0 PHA JMP ADSKERREYSSCRL JSR SCRLDOWNENOSCRL LDA #0 STA X LDA #f}24 STA Y LDA #26 LDX #EOFPRN/256 LDY #EOFPRN&255 JSR PRMESGEOFLP JSR GETKEY CMP #63 ; Qmark? BNE EOFLP1 JSR DOHEf}LP JMP EOFLPEOFLP1 CMP #113 ; 'Q'? BNE EOFLP LDA #0 PHA;ADSKERR LDX #$60 LDA #12 STA ICCOM+$60 JSR CIOV; LDXf} #$60 LDA #3 STA ICCOM+$60 LDA #SOPEN/256 STA ICBAH+$60 LDA #SOPEN&255 STA ICBAL+$60 LDA #0 STA ICAX2+$60 LDA #12 Sf}TA ICAX1+$60 JSR CIOV; PLA TAY JMP RESTARTSOPEN DB 'S';GETKEY LDA 764 CMP #255 BEQ GETKEY LDA #1 STA 53279 LDY f}764 LDA #255 STA 764 LDA ($79),Y RTS;GETKEY2 LDA $E425 PHA LDA $E424 PHA RTS;PRINT LDA #0 STA 767 LDA Y ASL f}A ASL A ADC Y ASL A STA CNTRL LDA #0 ADC #0 STA CNTRH LDA CNTRL CLC ADC #4 ; LO byte of DL +4 STA CNTRL LDA f}CNTRH ADC #DLIST/256 STA CNTRH LDY #0 LDA (CNTRL),Y TAX INY LDA (CNTRL),Y STX CNTRL STA CNTRH LDA X LSR A CLC ADf}C CNTRL STA CNTRL LDA CNTRH ADC #0 STA CNTRH LDA X AND #1 STA POS LDY #0 STY PRCHAR+1 STY TEMP LDA PRCHAR CMP #12f}8 BCC PRCHRDO2 SEC SBC #128 PHA LDA #1 STA TEMP PLAPRCHRDO2 CMP #96 BCS PRCHAROK CMP #32 BCS PRCHRDO1 CLC ADC #f}64 JMP PRCHAROKPRCHRDO1 SEC SBC #32PRCHAROK ASL A ASL A ROL PRCHAR+1 ASL A ROL PRCHAR+1 STA PRCHAR LDA PRCHAR+1 f}CLC ADC #HI[CHARSET] STA PRCHAR+1 LDX POSWRTCHAR LDA (CNTRL),Y AND POSTBL1,X STA (CNTRL),Y LDA (PRCHAR),Y AND POSTBLf}2,X ADC (CNTRL),Y PHA LDA TEMP BEQ NOINV PLA EOR POSTBL2,X JMP NOPLANOINV PLANOPLA STA (CNTRL),Y LDA CNTRL CLC f}ADC #39 STA CNTRL LDA CNTRH ADC #0 STA CNTRH INY CPY #8 BNE WRTCHAR RTSPOSTBL1 DB $0FPOSTBL2 DB $F0,$0FSCRLDOWN Lf}DA #0 STA 767 JSR VDELAY LDA DLIST+4 STA CNTRL PHA LDA DLIST+5 STA CNTRH PHA LDX #0SCRLDLP LDA DLIST+14,X STA DLIf}ST+4,X LDA DLIST+15,X STA DLIST+5,X TXA CLC ADC #10 TAX CPX #240 BNE SCRLDLP JSR ERSLINE PLA STA DLIST+245 PLA Sf}TA DLIST+244 RTSERSLINE LDA #0 TAYERS1 STA (CNTRL),Y INY CPY #0 BNE ERS1 INC CNTRHERS2 STA (CNTRL),Y INY CPY #3f}20-256 BNE ERS2 RTSCLRSCRN LDX #0CLRSCRNL LDA DLIST+4,X STA CNTRL LDA DLIST+5,X STA CNTRH JSR ERSLINE TXA CLC ADf}C #10 TAX CPX #250 BNE CLRSCRNL RTSPRTITLE LDA #TITLE/256 LDY #TITLE&255 JMP CIOPRINT;QUIT STA ASCII2 LDA #ASCII2f}/256 LDY #ASCII2&255 JSR CIOPRINT LDA #5 STA 85 LDA #11 STA 84 LDA #1 STA 752 LDA #EDOS/256 LDY #EDOS&255 JSR CIOPf}RINT LDA J+1 STA 12 LDA J+2 STA 13 JMP ($A);GETFILE LDA #ASCII/256 LDY #ASCII&255 JSR CIOPRINT LDA #34 STA 559GEf}TATA JSR GETKEY2 CMP #128 BCC GETN128 SEC SBC #128GETN128 CMP #96 BCC GETN96 SEC SBC #32GETN96 CMP #81 BEQ QUITf} CMP #65 BNE NOATA STA ASCII2 LDA #155 STA ATACHN+1 JMP GOPROMPTNOATA CMP #83 BNE GETATA STA ASCII2 LDA #10 STA ATf}ACHN+1GOPROMPT LDA #ASCII2/256 LDY #ASCII2&255 JSR CIOPRINT JMP NOERRPRPRPROMPT LDA #ERROR/256 LDY #ERROR&255 JSR CIf}OPRINTNOERRPR LDA #PROMPT1/256 LDY #PROMPT1&255 JSR CIOPRINT LDA #PROMPT/256 LDY #PROMPT&255 JSR CIOPRINT LDA #155 Lf}DX #0ERFNAME STA FNAME,X INX CPX #20 BNE ERFNAME; LDX #0 LDA #5 STA ICCOM LDA #FNAME/256 STA ICBAH LDA #FNAME&255f} STA ICBAL LDA #20 STA ICBLL LDA #0 STA ICBLH JSR CIOV BMI PRPROMPT; LDA FNAME CMP #155 BEQ DIRDO JMP NODIRDOGOBf}ACK JMP NOERRPRDIRDO LDX #$10 LDA #12 STA ICCOM+$10 JSR CIOV; LDA #DIRPR/256 LDY #DIRPR&255 JSR CIOPRINT JSR GETKEf}Y2 CMP #27 BEQ GOBACK STA DIRPR2+1 LDA #DIRPR2/256 LDY #DIRPR2&255 JSR CIOPRINT LDA DIRPR2+1 CMP #155 BEQ NOGOBACK f}STA DIRNM+1 SEC SBC #49 CMP #10 BCS GOBACKNOGOBACK; LDX #$10 LDA #3 STA ICCOM+$10 LDA #DIRNM&255 STA ICBAL+$10 LDf}A #DIRNM/256 STA ICBAH+$10 LDA DIRPR2+1 CMP #155 BNE NODOPATH LDA #DIRNM1&255 STA ICBAL+$10 LDA #DIRNM1/256 STA ICBAHf}+$10NODOPATH LDA #6 STA ICAX1+$10 LDA #0 STA ICAX2+$10 JSR CIOV;DIRLOOP; LDX #$10 LDA #5 STA ICCOM+$10 LDA #FNAMf}E&255 STA ICBAL+$10 LDA #FNAME/256 STA ICBAH+$10 LDA #30 STA ICBLL+$10 LDA #0 STA ICBLH+$10 JSR CIOV BMI DIREND; Lf}DA #155 STA FNAME+29 LDX #0 LDA #9 STA ICCOM LDA #FNAME&255 STA ICBAL LDA #FNAME/256 STA ICBAH LDA #30 STA ICBLL Lf}DA #0 STA ICBLH JSR CIOV JMP DIRLOOPDIREND TYA PHA LDX #$10 LDA #12 STA ICCOM+$10 JSR CIOV; LDA #155 STA FNAME f}PLA CMP #136 BEQ DIRENDOK LDA #FNAME/256 LDY #FNAME&255 JSR CIOPRINT LDA #ERROR/256 LDY #ERROR&255 JSR CIOPRINTDIRENf}DOK JMP NOERRPRDIRNM DB 'D(:*.*'DIRNM1 DB 'D:*.*'NODIRDO LDA FNAME+1 CMP #58 BEQ OKCOLON LDA FNAME+2 CMP #58 BEQ f}OKCOLON LDX #17COLONLP LDA FNAME,X STA FNAME+2,X DEX CPX #255 BNE COLONLP LDA #68 STA FNAME LDA #58 STA FNAME+1 Lf}DA #155 STA FNAME+19OKCOLON; LDX #$20 LDA #12 STA ICCOM+$20 JSR CIOV; LDX #$20 LDA #3 STA ICCOM+$20 LDA #FNAME/25f}6 STA ICBAH+$20 LDA #FNAME&255 STA ICBAL+$20 LDA #4 STA ICAX1+$20 LDA #0 STA ICAX2+$20 JSR CIOV BMI GPRPRMPT RTSGPf}RPRMPT JMP PRPROMPTCIOPRINT STA ICBAH STY ICBAL LDA #9 STA ICCOM LDA #255 STA ICBLL STA ICBLH LDA #0 STA 767 TAXf} JMP CIOVTITLE DB 125,127,127,126 DB '츰 v1.5' DB 29,29,156 DB 'by Itay Chamiel - September 1992' DB 29,156 DB 'bf}ruck@brachot.jct.ac.il',29,155ASCII DB 29,156,'tari EOL or Acii? (or Q for DOS)',29,156,'?',28,155ASCII2 DB 0PROMPT1 DBf} 155PROMPT DB ' Input DEV:filename:',155ERROR DB 'Error - try again!',155EDOS DB 'Exiting to DOS, please wait...',155Df}IRPR DB 'Directory: drive #? (1-9)',155DIRPR2 DB 27,0,155XCHARS DB 0,34,102,238,238,102,34,0 DB 0,136,204,238,238,204,1f}36,0;GETBYTE LDX #$20 LDA #7 STA ICCOM+$20 LDA #LO[CHARSET-BUFFER] STA ICBLL+$20 LDA #HI[CHARSET-BUFFER] STA ICBLH+$f}20 LDA #BUFFER/256 STA ICBAH+$20 LDA #HI[BUFFER-1] STA BUFPLC+1 LDA #BUFFER&255 STA ICBAL+$20 LDA #LO[BUFFER-1] STA Bf}UFPLC JSR CIOV BMI DSKERRDSKERROK RTSDSKERR CPY #136 BEQ DSKERROK PLA PLA TYA PHA JMP ADSKERRVDELAY LDA $14VDELf}W CMP $14 BEQ VDELW RTSPRMESG STA PRLEN STY PRFROM STX PRFROM+1 LDY #0 CPY PRLEN BEQ PRMESGENPRMESGLP LDA (PRFROM)f},Y STA PRCHAR TYA PHA JSR PRINT INC X PLA TAY INY CPY PRLEN BNE PRMESGLPPRMESGEN RTSEOFPRN DB ' 堭f}'DOHELP LDA #HDLIST&255 STA 560 LDA #HDLIST/256 STA 561 JSR GETKEY LDA #DLIST&256 STA 560 LDA #DLIST/256 Sf}TA 561 RTSFNAMEBUFFER=FNAME+30;; (c) 1992 Itay Chamiel;1 JSR GETKEY LDA #DLIST&256 STA 560 LDA #DLIST/256 SdD