0L0AUTILITY2( /Y  Error: No DOS(0 )0 / 0/(0/)00ֹ/ / Ȅ`lL*0  1 1%7x0 1 1 18H 1(哅h k1 y0L0l00DEH B VL0@   Y0`0.` a000. 08&.` 0mm 8 L1ƕƔ 1擥` (Main  Z2X32F DOS];zREADME 1ST]"yBRANCH COM]" BRANCH DOC]"" DCOPY COM]"$DCOPY DOC]"(DECPAD COM]"*DECPAD DOC]",=DISKINDXCOM]".N)DISKINDXDOC]#DISKINFXCOM]#FATPRINTCOM]#|FATPRINTDOC]#sFD COM]# 2 FD DOC]#(GQUIET COM]#+JQUIET DOC]#-M1RDNEWELLCOM]#/[5RDNEWELLDOC]#2_RENUMBERBAS]#4URENUMBERDOC]#:UPGRADE DOC]$DIRC COM] * AUTORUN SYS]$RDXL COMV 1RD320 COMV,RD576 COM U64RD_PSI COM U o6RD_PSI DOC U RDF COM UDIRC DOC] 06RM DOC ]!RMF COM ]!PW`S iS iS S S SSSSR SSi8R SS S! Sɛ$ /ɛ$*S.S*S詛S$ /#LQ$ȱ ɛ ><LPȘ8!L_P S$ ɛ /LQLQ S8S SLPX pWSLURTSUZ VSɖL=V1SMRTi SSTmSTS/TSUXY VSS SгS TSS BS Ti S1DSE SHI1Sɛ VSSLP R VS SR`LRȱ ɛȱ NT'S+ɛLP#L R SRةR SLQSLQSLQȱ ɛS Sȱ ɛS Sȱ ɛ S Sȱ ɛX S SS80 SS80S***ySySm S SLPS80S** S***S*m SmSm S SLQSTE" RSEi0ɀS SRLQH BSDI V` `&D1:DIRT*.SRC DIRT60 SRC 0421 FREE SECTORS SECTRS Valid Parameters are: N-No sector Count T-Tree of all following directories and files S-Suppress printing pathnames #VAL-Columns on output device (THE '#' IS REQUIRED) The # parameter must be lastDirectory not fo΅̍XYͅϢSYɛ >LU̽Y>YiXLVS@Y@YX WYɛ>Y詛YLV*X.XXXXX /WSɖUEPS0 R SRLQ IWX>XɛXX ,轀X LzV>ȩȘe̩̅eͅLTV $WUSXɛXLVȘe΅ΩeυϭXLVXSXɛ hW /W/T PLVX SR`XYϩLV R V`XUTZR V`XUTYXR V`S` BDXE@HI V`0RPTYUXYY V`_!"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^~S28$HHH өH*HHllhhh@HHLH|)ӝtI)MӍ|hh`HH||)thh(`44DEPH BLV `)`` '4 4 4Ȣ4 4LI4 4 w4 4x '4 44X 4) ~`8 '4 4 4L4L4Error: Not an XL/XE Computer.4.4t5} SpartaDOS Ver 3.2f 25-Feb-94 Copyright (C) 1994 by FTe 4.4 4 4G)@}҅  EEF E x4 d5 d5" #   c5  M c5 , W5 4LL4 L LLHEi ȱEi `|40 `` 7 YL\ 2BHG H-G H ةHhJ \hBL\`@B 442@3Y45245324 `L1( (ҩmi:; < =x:23454 Μ ,  w ,P lνе X0`234 5` P21 ,350 2 9 4 2 9 LD1 9)ҢL1,350 &2 4 2 1`08` S< ACE,0ɋ8` `ύ&'0`e1i1`,07 ,ߍҩҭҍ )  `_ҩҩ,,,8`H)ҩh `#,ҍ ҩ(ҥA,ҩҩ`jj)?j)`Ң`H?ʎ @  0h ``@@B,~-32@3452453c24` ɔ FNot SpartaDOS disketteLɢ FDisk fullLɪ FFile not foundLɣ FIllegal wildcard in nameLɘ FNot binary fileLɤ FFile erase protectedLɕ FNot version II disketteLɩ FDisk write lockedLɖ FDirectory not foundLɀ FBreak AbortLɐ% FWrite protected or bad sectorLɥ FFile name errorLɨ FFunction not supportedLɧ FCan't delete fileLɗ FFile existsL` w  w(0   0a Y©ÍYh   N Y©  NΟ`L 8L`@D , ̍̍)̝BJJJJJ ̝D̝E0 KJ)̝JJJ)̝H̝I D@   Ϭ,0),~  FError -- L`(),! *+  -"#$./0_@ @CA똩)*K HJJJJ 9h) 0:iLhWhXWXͭ LNͭXHWH`, Nnn ͠H͎͌͢ͽ `Mܩ,0 N ͭO` P..*N  . 0PH0  ʩ `$%` Π vAG) ..ܭ` 7`  7`L @ ύ  ύ 乀` Ω* #* Z 0DLϠ ̠ ̭0L0f 0  LϮ Lϭ  /A ̠ LL~υCυD. yϠC  y 婛蝀`ȹ  ` ̢0 8̽ H̽I̠0 (ʢ 0L *)L* *M @ L ( `L(= # , 魗  筙`( L#() LLL I0   䍠 e , ʎi 0L CL] 0G   KQ;`) x뭤B L  ,  ,)ߍ "LLL  ,] 0 # K ح)  "L  밻) 멀 "L` ,L  Ld͙Lj魗  Lj$H0Ld88A e , s eECFD8  8  9L H ,C]Dah LꭖCD L譔  魙8L LL$H0 s ,LxECFD  鬙 9L謓CCC)` L_CC C`C`C`  EFL뭔 K`8mi` /L9 Z"C X `L ꭔ C8 CDC}TCȱC}UC`  eCCD`  _C``Ipi ͟? x0,)C) `II  08` CL # , 魗 `1@R H0>h0   * HH 0hh`hh,L L { P*)0 0*`*)& K9:*$+0;QG` {!*B sﭟͻͼ/ P {0*)((a,,,L ) *)  I0 , *)  I  0 I  K 䍝 ,) *I *c 0L U*) 0 @`L,0 K) MﭝI $ 0 zz  G L  Z v #(> sL L,0`H hɛ ,'L0,L P*H * {0h*L04*  0 )L Lq * { M {0Y) *LJ, -* { M {0 ,  ,) LkL, LLLL: * {, (] 0 # K M {0 LL8*  * 0I LL,H ) ") čɍҍ)*LB 0 ͠E 0)  0  63# ͌;QL   ͩ: ͭ ͩ: ͭ ͩa p ͩmLͭ ͩ- ͭ ͩ- ͭ L͢$ ` 6(ȭ(Ȣ(((ȭ(ȭ(` ȱCL,~LL # wL ʈ`1N@ 1!@1S@@8` v P  > Ȣ L >(ȩ(` (H(h `*$/ȱ$Aȩ *$$ `2Kd}j #H 0K 08}  )L ,08J mHh 8Jm , 3m L  8 L iL?EF,L譞)  #T 0N 0   Q 0` >$H s L)L  CȭC _ 1 /͓ hL\ s)H   EF 묓 hL\ KL\FА֐#eCCD$H0CELW `abcdefghijklmnopqrstuvwxyz{|}~EC$H _8m䍖L ``H譞=L `   hC̓ _`LK8EmEF8m䍚 W 0`8`8`CȱC`CȱC`  hCD ` / ?䭒,06/O)͒/?}` &O`)8O,0, } ,0} 8,0 8JHjmChmD`H)h)/ ?  &CD8 ` ` i͓ L?CC, CȭC CȭC _L 3 `),)   C&̓ͬ L,L   X,}T}U` .C   I1CC`   CC,0  L4L@ٯ` N j  ,0 z` _)8j`m K`, HJjhj`, H**hJ`_/]^/` 0 `y"U a ې;ݒ- ;m ; - ;  ]!K`Z6<` 2 @ ɛ  `  8)ɀɛ ȹ`COPLOASAVAPPENCWERASRENAMCREDIDELDICARUPRINTYPDIDIRMEPAUSVERIFBOOCHKDSPROTECUNPROTECLOCUNLOCXDIAINI?DIBASITIMDATTKE,,,,L̩` FFormat: Are you sure? )_H hY L W,P` 7l FNo cartridge` ̭8 F Volume:  ͭ   0ͩ   0 F͛Bytes/sector: 0 F͛ Total bytes:  l F͛ Bytes free:  lͭ ( F͛ Write lock: ,!0 FOFFL FONL  , ̠ 0  BLL `LX  ΍ 7 PL\l FPress any key to continue L FMemlo: $ 0ͭ 0 F Memhi: $ 0ͭ 0ͩL ̠ ̠L M)MӍӌj E L ̭O NF FParameter ErrorL` *L *L  FCurrent date is   F͛Enter new date: - 3_ɛX KJLL  FCurrent time is  F͛Enter new time: : 3 ɛ F`ɛ )_PAϩ, mJ  J JLO WMJ`:8`M {)pM mM iM {`ȹ 0:`8`L ` 7 VL\ 7 L\%H$H`LPLI L2 X  UD1:autorun.sysstartup.batQ*.*.COM.BATD1:Volume: Directory: FREE SECTORS LI z)͒}`This is the second in a series of sixdisks containing public domainutilities specifically for SpartaDOS.No two disks contain the same file.Disks 1 through 4 contain genericutilities, with each disk having agood assortment. Disk 5 containsspecific files for MIOs andhard drives. Disk 6 is my version ofthe SpartaDOS Tool Kit--only usingpublic domain files. This disk was formatted with, andhas the DOS.SYS of, DOS 2.5 to enableall users to view its contents, notjust those lucky enough to haveSpartaDOS. Please use the text reader (theAUTORUN.SYS file) to becomeacquainted with the files beforeusing them. Any Share-Ware files that may be onthese public domain disks are agratuity--the disk space they takewould be blank if not for them. If you would like more public domainutility disks for SpartaDOS write to: H. Brewer 4010 Ridgedale Granite City, IL 62040-5741As of Summer 1988, disks are $5 eachor $12/set of 3, with two sets available.jGKhihiHHȱȱ`p B V8l G VhhlGHHJJJJhh`hhlG `iDiE`HhG`Hh`Hh` GIHiDiE B GHI B G` GLH GLEH GLH GLQHȱ - ƥĤ180* &H& & &eehe8ȥ 8堅塅` GiDiEHIB GH8L]H`HhLHHhLI GHIB G` G GJKB GJJJJ` G B G`A$20 _GOCIOR$60]RPROC SetColor=*(BYTE r, h, l)RA$C9$05$B0$13$85$A0$8A$0A$0A$0A$0A$85SR%$A1$98$29$0F$05$A1$A6$A0$9D$LI0LI WILJK:I /I III`L%JISL:J$L:J`L]JBRANCH.COM v2.0 only works withJ= WHLJSpartaDOS 2.5 or higherJg WH I`LJ2LJLJJ WHI IIIȱIIIIII䍌JtJ "J8IIIIIIIL KLKNo batch file is activeJ WH ILGK#Branch v2.0 by Craig S. Thom 9/7/87K# WHJIIIc IIc WHLKes, o, or uitKx KH IIIIY IIyLKLKIIQ IIqLK JLKI IJ I``JBRANCH2.COM Documentation. I fixed it this time, I think...BRANCH.COM allows simple branching within a batch file when running SpartaDOS 2.5 or higher. The formatis like this:previous batch stuff (optional)BRANCHMessage to printCommand to skip or notRest of batch file (optional)First, it will print the next line in the batch file to the screen without executing it.Second, it will wait for a key to be pressed.Third, it will SKIP the NEXT line in the batch file if the key pressed is NOT Y or y, or will warm start if Q ispressed (I tried to use the ZXDVIO tostop the batch process, but it wouldn'twork).THERE MUST BE AT LEAST TWO LINES IN THEBATCH FILE AFTER THE CALL TO BRANCH.COMOR NASTY THINGS MIGHT HAPPEN.Here is an example batch file.;This is a testBRANCH Disable BASIC?BASIC OFFThis batch file will print "Disable BASIC?" to the screen, then wait for a keystroke. If Y is pressed, the BASIC OFF is executed. If some other key is, the BASIC OFF command will be skipped.If you have any questions, please feel free to ask on GEnie (C.S.THOM) or any of the Atari BBS's in Atlanta. Craig S. Thom$0L=$LLLL ؠ0 $)L$ $`Fi$Gi$i$i$i $i$$i $%i $`($ '$L$}DCOPY.COM Sparta Version 1.03$ '$L$(1986) by Ralph E. Walden $ T'['񩛍"% '$ /@L)B - Sparta directoryC - Copy a single fileD - Short DirectoryE - Erase a fileF - Format a diskL - Lock a fileM - Multiple file copyP - Print directoryQ - Quit (exit to DOS)R - Rename a fileS - Show subdirectoriesU - Unlock a fileW - Working directoryMENUBreak key abortNon-existant deviceInvalid commandDevice doesn't respondDevice not availableWrite protected diskDirectory not foundDrive number errorNot enough file buffersDisk is fullSystem errorErase protectedFilename errorCannot delete directoryDisk is lockedFile not foundD1:*.*D1:*.қP:}Put printer on-line and press a key.Press break key to abort.D1:DOS.SYSˠˠŠŠԠ٠No files were found!Put source in drive #1 and press a key.Put destination in drive #1 and press a key.H ,0tuhB VL(L) (`(L$( '$L(***EHKNQTWZ]`cmpsv8sLw),&Lb)1&Lb)A&Lb)U&Lb)e&Lb)|&Lb)&Lb)&Lb)&Lb)͢&Lb)&Lb)&Lb)&Lb)'Lb)'Lb)6'Lb)E'Lb) '$o) '$Lt)***L. .Le)Φνɛ $U $L)) '$L) >>> Φν`ɛ $`0 B Vآ) '$L)Command?* $ } $L( $0L $' '$#Lb(U $' '$$Lb(R $΢' '$ Lb(E $Ţ' '$!Lb(F $آ' '$Lb(Q $`(`D_(L9/B _({L9/S_(L /P .@_(L9/W $' '$,Lb(C ML,L)* '$L*Copy from? , e.L-+ '$L +Copy to? . $`DEIB VL(8aa( u+L) })' $? $ $* $L(Y2y.` $a(#D(( '$* $L(p0DEJB VL(80Ӎx18yҍt8ur0 VL(`0a(ga(#`DaK(1( '$* $L(`: `DEJB V`DEI B V䤿 (`xhyi bҍd8e V (L,ɈLG+L. . $DEIB VL(D: 1`, '$L-Multiple copy from? ,- '$L-Device to?@DEIB VL(@ɛQ@DA: A:B8Aa((PDEJB VL(ʩ҅ȩ0ɢP`DEIB V0a`0L.:`  .Ȣ ` Ƞ'L-iȐL- . z0 ' '$L)҅ȩ0ɠș`@` G+iȐL)ɛ * ?``BHILV .f' '$* $L(@dD'EJB V0`DEI B V`i0 B VL.`ԩթ/ '$L /Error #L$ $_(`GHFH` $' '$ ['0#C/ '$LQ/٠T' ,0DEJB VL(0 .Hɛ /<_()U+ $թ* $L(L/ /L/Uа /{ .L) q0- $ q0- $ q0 $ $ $ $ 8 q0: $ H q0h q0 S0 '$L\0 A.M.`g0 '$Lp0 P.M.`ԩL$҅©0iĥiL0iiĐťɐ Ȑ`°ӠªđŠ Documentation for DCOPY.COMDCOPY.COM is a handy mini-menu fordealing with SpartaDOS directoriesand copying files.Load DCOPY.COM from the commandline thusly: D1:DCOPYBy following the prompts, shortand long directories are viewable,along with a printout of saiddirectories. Several COPY fileoptions are available, along withthe usual file protection commands.PPإ H HL'x X` 2350 4 FMJJJJ$)I $ Ⱦ>ȹ%%&%& &&L Documentation for DECPAD.COMDECPAD.COM is a small handler whichallows joystick port #2 to be usedwith the Atari CX85 keypad.This handler does not work withall programs, but it comes in handywith the programs it does work with.Keypad configuration is as follows: Keypress Action -------- ------ Number Said Keys Numbers Escape Cursor up No Cursor down Delete Cursor left Yes Cursor right - Cursor left Enter RETURNJust load the program from thecommand line: D1:DECPAD     ﻩ01`pppB0ANNNNNNNNNNNNNNNNNNHGHBFGHBFBHBHGHBHGHGNFBHJBHHJBFHƀJJFBHƀFƀJFƀBJGF6erƀBBƀJʀGƀBBʀJGGHBNJGJFGFJHJJFHHJBƀHƀƀƀȀƀƀƀƀHƀƀƀƀƀƀƀ4he$isk#ataloging5tility0rogramand$ocumentationc &red4hompson3aluki$rive.orth-arion )llinois0roducedusingcopyrightedsoftwareproductsof-onarch$ata3ystems#ochituate -!V5.Vz>5WXYZ L" ,Vb c© s) $LS!V˜ $ ;,0 s) a"LS!Ņ  s) $ԅ  s) $ n$ !`RUNTIME ERROR AT LINE L!B# Q#L` $ LPROGRAM STOPPEDŃł ȱ`iL.HH !L& ! $&  }% s) }%8ȱ hhL}%ʥ`i88冕8冕憘 Ɔ`Ɔ`u`Huh` L!L L!L   k% + k%  ! }%L!   k%  w# + k%  "  !  " s) w# }% !L!     w# + k%  "  !  " s) w# k% C }% !L!  ! %L&`  ! k%Lk%  $& k% "  k%  w#L    w#  k% " L % 4& s)bi bcicL}%WXY ! s) s),YeWiX`Y8Ld k% %Y`ʔȱȱȱ !Șe惠 惨.r!.s! LS!jemI-mJ- k%вHHhh```L!ʱ` L"" JLJ !HHl JLw TO BOOT FOR DOS TO RERUNp B V8B#` p"ȱL!8I-J-8凅刐SJj)ee`ффiiL"8L" LduuuL!8` Q#L!iL!豂Hȱh`p B#L!C#HB# BHIC# ., |$Zh`8` w#L# w##` w#0 w#0L# w#0` w#0L$L#`޵` `Ȕ`ʔ惥u`B# BHI DEH ., |$HyZZhL! Q# |$Z`B#JJJJ`Q$#$ #- $0 $L! $L!` $H $h 0 $`LQ#8 0ƅ`66&L$HH` B VhH)Kh)0 IJ'D%EB .,hL!S:D#L!TUVL! 1%`B#D#LQ# |$Z8ɰɅ Q#`ʱȱȱ`ȵȵL!L! % }% }%ʥ }% k% % }%L+ % k% $& $& !uȱuȱu ! ! k%0 #L+ ȱL! #L&ʵ`eeLdHHhh`ؐHH !L& !HH $& $&6 " hh }% }% hh }%`HH !% !HH )L& ! % Ld $&6 " k% "` ! %ޠ k% ) "L& L'HB# B Vh`ҩ2ҵ ҵ  !L!HB#BHI .,C#hC#Ls)B#DuEu !B#IHKJBH VCLdh !L! 1%D#H`B .,h`!(!(Ls)L!L! #`H !hLs)(HH eHHƆeiH %lꦆ s)Օ`0  L$`8`(ԍ$($ $ s)'(Ls)('(`q) ! %p)r) s)9 Ɔ채+K-p)L])80r) .9q)2q)Ld r)C# ) $& ) ) "C# s) "Ɔеp) #`ʕ`66`HHH66666uuuhhhL! #愵  # I s) '*80/66&&&`uuu` '* 4*Ј 4* ! #`/+h*i* 4&g*h*g*h*i* Ldȥi*ig*h*/+`La"+h* +`Ldi*8g*ƅ+ ȱi*g*h*` +L*+L*H/+ m*h`1+ %  88L0+ ! !` ! !`  ! !` 0+$' 0+"0 0+0 +L# +L# +L#Ls)Ls)7, s) % 4&6,7,:,:,`HB#? Q#B#HI6,D8,7,E9,B .,H:,h` VLd:,` +8, s)9,:,:, s)L;, +:,Ld8,9,, :,:,8, s)9,8e8,9,:, s)q)L(  L!hh iL! ,Lj* ,La"7,h*ȱ0 =-L- =-I-J- L-`i`WXY` p"ȱ%8e慱HȱhױYiWiXL!B# BH Vh s)L!B#&BH .,hN s) !L s)ML!B#%BNLMH .,hL!/!!!!!!))"w#)##########!a"##6#E# $5$n$N%$$)%1%@%%%m&&& 'j**( ("(%(2( D'$'4':(i''++++++'Y[, D q A,[,;,J(,,((,+K-Y----(5 5 5 5 66^6`6 q6!6"6#6$6263374;7<@7F]7Px7S7T7U7V7W7X7d7e7f,8g/8n68oT8p\8xb8{88888889+949K9`9r99999$:.:9:?:b:e:r:::::::::::; ;;6;@;A=;Jd;Kv;L;M;N;O;P;Q<^/<_T<0U<1n<2<3<4<5<<=0=Y=h=w=$=.=== >%>->7>L>Y>n>q>w>>>> ? 1? 5? V? o? ? ? ? ? ? @ @& 0@ 4@ ~@ @AABAPA{AAAA"A#A$A6B@BJ1BTLBUaB]xB^BhBrB|BBC3C=CJCLC]C~C|CCCCDpADuNDzdDDDDDDDEE4E88EBVELqEVE`EjEXE@EJEhF(#-F'WF'F'F$'F.'F'F'G'$G',G'4G'+DJH+OJ.rJ.|J.J.J/J/J/J&/J0/J:/KD/#KN/0KX/TKb/WKl/hKv/K/K/K/K/K6K6K6K6L6L7SL:rL:L>L>L>Mt@&MPFLMZFWMdFgMnFkMxFzM N~M*NM4NMRMUMVMV$N"VHN]NN]WN]tN]N^N^N^N$^O8^$O_ZOeOeOeOeOeOgP,yP.yP0yEQ2yQy#RDzRzRz)SzeS {S {S{LT{Tp{T|U}'U }LU}qU2}UF}UP}UZ} V};V}YV,~aVVO {R,y"3D" "3D"3D"000W/ "$"OFF6$" "000W/ "+*636$"363"-6%+R31A3D=q6+3D=631,*33D/33F533 F533 FA"3D{=63(Y/N)?A3D=63A3D43%hhhBJhEhD VսC`.P:.J3734?*+"3h`.J+7"ҠU7V" ġ"PRESS TO CONTINUE367W+*7g*3D :A3 !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLM14DB33DC143DAg?414D73?+3?14E =T8141414D/FA3?+3+3 A3 B33DB+14A3A""?3@4688~8 3 883 |   9+9493-C3-143 FA3+1414D/.INDB+R4U4 FA*3000A14WA314D/ 14DB3R4FB3R4FB3R4FB+R4g4FAR4g4FBR4g4FBU4 R4DC+14D/6$314F59A Z $:6%3+14D/9:P3+3?3Db:3D?+*"+*"+:"Ҡ١P*+444*P**""*6$"6%+?314D,?3+3+36;P+4*3INDEX:A33D/3DC3ENTRIES:C14WA314D/14DC+3*ÿv;*À;**+R31,31,3I4*I4ƅ;PÖ14D 914DD9;á14D 914DP9;Ɓ;+3?A3?B33DB*+R31,31,314D/14DC143FA+T->7>U4 U4FB3 *3**n>*I4+>@,11,ENTER FIELD # TO UPDATE ,D TO DELETE ,OR S TO SAVE ,>>,14,ENTER NEW FIELD VALUE ,>>,16,DELETE,{,>?,14,SAVE,{,7@3*3 *33**36-V?3  V?3=o?3o?3+?3  ?3*?3?3*+ - = ? AM S ?3-A*? 4 R<$31A<%3D/ "3D3*:0@3-A* ~@D    ,  ,,RETURN,,@@bADD ENTRIES,DELETE ENTRIES,UPDATE ENTRIES,SCAN INDEX,SHOW INDEX,SORT INDEX,CHANGE NAME,SET PRINTER@A+EXIT TO DOS,DISK MENU,LOAD INDEX,SAVE INDEXC*43|**BA43*43*4*€"NO{A4€"3**4YA43*333*414DA3*؁A614*.*A3ֿ3DA9A14 SUBDIR.DATA3*BX4*R4 AR4 BR4R4DB؁1B^?3GAI?3F 9LBR40CR43FC3DM=xBR43FCR43FCR4 CR44D/ 4DCU4 R4DC*"3D*3؁BځBR4F DUP SYS=R4F DOS SYS= C3 JR4F AUTORUN SYS=3C3 Jم=CJC****"؅]C6**"4D/ "4D"END OF DIRECTORYCADD DOS FILES ,{,CCADD NON-DOS,CC)ADD DOS ENTRIES,AUTOMATIC ENTRY ,{ ,CD,10,ENTER DISK ID , , ,!DADBYPASS SYSTEM ENTRIES ,{ ,E*ND83X*",333**3D14F,=D314D/D314DA?314 FA141414D/FA?33D,314D,?  DEE3 U4 U4EB3  *@44D.U4D.JX4*g4R4DAX4qEj*g4DR4D9EBE3 jU4 U4FB3 B*E!ENTER START( END) NUM , , ,0F*3(#*333*J?314D,? FJX43**@WF$,10,ENTER NUM TO UPDATE , , ,H4*ֿF"SCAN AND DELETE4643**4J*4R31A333D/ E5"14D*ÿÀ F"g414DA3H+*3>+*333*R31A14DY=$G4ֿ,G4G*314DA*LM ENTER NEW INDEX NAME , , ,MWMnF*gM 5DxF3 zM**3R**M314DUP.SYSA*M N* 3hl .JM,6,EXIT TO DOS ,{,]O3*314*.*A*M*3DISK DIRECTORYC33DC"*"V?14GAI*314D/14DC*V**3_*333**tN]*3*N]8^?36g4GAI3g4FA33D/E =N333D/ FA^g4g4g4D/FA3g4D,36g4GAI*"000J$g4GAI*W/ "J%*"'ERROR LOADING INDEX - MUST REINITIALIZE**O1ENTER THE NAME OF ,THE INDEX TO LOAD , , ,P*3g**O143DA*3*Oee?*3D4DJ$*3DJ%4**?PSAVE THIS INDEX ,{,S31,31,41,41,%41,a41,s41,41,31,31,31,31,41,j41,41,41,41,41,41,31,41,v41,41,41,41,41,"41,41,41,^41,[41,51,41,41,:41,51,51,51,41,41,p41, 41,41,31,41,41,+41,d41,41,.41,F41,51,51,O41, 51,y41,41,51,|41,51,41,41,41,31,41,41,41,C41,41,(41,41,m41,41,=41,41,41,41,741,441,41,41, 41,41,41,31,L41,31,31,31,31,31,31,31,41,41,41,41,41,@41,X41,41,I41,41,41,3@%4@3@14@3g4@R4@4@ 5@3@3@4@4ZhhhhhhhhhhhhhЩڅϢ؅֥مօe֥ׅͅiפ˥ Ԑ, Ԑ A4[4ߩڤ͈HԑhЬЦА`B4%NUM DISK SECSDP FILENAMEEXT COMMENTSA 5BMA31A3AASG0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,18,19,20,21,22,23,25,26,68,710SLTO332,30,33,34,35,255,764,40,41,64,256,559,1000,3000,40000,50,60,70,100,110,17,48OTTN120,130,150,320,160,180,190,210,220,230,240,250,260,270,128,560,89,280,131,350TTL155,6010,86,561,752,4300,11050,32220,112,310,10290,2000,52,53279,11010,27,28TU'0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,10160dV33 B  ԌɌ"  INDEX :"000-000 PRINTEROFF3,~*"4D3M U4@14 DISKINDX.DATA3*;V 5GA3GAI43INDEXA34K:7R*VYADD,DELETE,UPDATE,SCAN ,SHOW ,SORT ,NAME,PRINTR,DOS,MENU!,LOAD!,SAVE!,OPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~DISKINDX VERSION 3.03INDXFIX VERSION 1.0309 JUL 1987Program and documentation(c) 1987 by Fred Thompson600 Saluki Drive NorthMarion, IL 62959This software is freeware. That means that it is copyrighted . Permission to copy and distribute this software and associated documentation file is proveded as long as the files are not altered in anyway. Under NO circumstances may these files be sold, either together or individualy, nor may they be placed on public domain collection disks which are then sold. However, if you would like to make a contribution to the author (that's me) than please send it to the address given at the end of this file.WHAT?!?! ANOTHER disk cataloging program? I've already got ten of the stupid things!! Well, yes...but this one is different. I've had many different disk cataloging programs. They all had good and bad points but none of them really fit my needs. So I wrote my own.Most of my programs have names that are more than eleven letters long. I wanted to be able to have as long a name as possible so my list of programs would be readable. (Try fitting "The Wizard and the Princess" into eleven letters). DISKINDX is the culmination of three years of work and I believe it to be the best disk index program available.DISKINDX allows you to create more than one index of programs. This is so you can seperate the different types of programs you have. I have indexes for action games, adventure games, programming utilities, graphics utilities, etc.Entries:NUM DISK SECSDP FILENAMEEXT COMMENTS001 011A 0118D DISKINDXOBJ002 012A 0058D DISKINDXOBJ003 013B 0058D DISKINDXOBJ UTILITY004 014B 0058D DISKINDX 2 VER. 1.00005 015A ALL D SUPER-DUPER SHOOT-EM-UP006 016A SD 1DP ULTRA HARD TEXT ADVNTUR007 017A SD 2DP ULTRA HARD TEXT ADVNTUR +-1+ +-2+34 +---5--++6++-----7-----+ +----8----+ +-----------9------------+Each entry has nine fields of information. Seven of these are unique and two of them are combinations of other fields. They are described below.1) This field is for the disk identification code. DISKINDX allows any four character combination. Most people will number note their disks with a three digit number and either "A" or "B" to distinguish between sides. (Example: 104B) Don't us inverse or control characters because this will probably confuse your printer.2) This field is for the length of the file. It can contain any four character combination. I suggest using values of "0001" to "9999", "ALL ", or "SD n". "SD n" is used to catalog the different disks of multiple disk programs. n can be any character but is usually a number or letter.3) This field is for documentation. A "D" means you have the documentation and a " " means you don't. You should also set this field to "D" for programs with built-in documentation.4) This field is for protection. A "P" means the program is copy-protected and a " " means it isn't. DISKINDX has no way of detecting copy-protection so you have to enter this yourself. I personally consider a program which can't be copied with a sector copier as being protected.5) This field is for the DOS filename6) This field is for the DOS extension7) This field is for comments. It can be up to thirteen letters long and begins immediately after field 7.8) This field is a combination of fields 5 and 6. It is eleven letters long as can be used as a single field.9) This field is a combination of fields 6, 7, and 8. It is twenty-four letters long and can be used as a single field.Sample entries:Entries 001 and 002 illustrate how DOS files look when they are read from the disk. These entries can then be modified for clarity.Entry 003 shows entry 002 after field 8 has been added. Field 8 was actually entered as " UTILITY".Entry 004 shows entry 002 after field 0 has been changed. Notice that it is a more descriptive entry and also that field 8 is right next to field 7.Entry 005 is for a fictional one-sided game. While this is a boot disk you may also enter DOS files in this formatfictional single-sided game. The game may or may not be in DOS format.Entries 006 and 007 illustrate how to catalog multiple-sided programs. The only signifigant difference between them and entry 005 is in field 2.NOTES:DISKINDX is a very easy to use program and you will be able to use most of the features from the start. However, you should look at the following notes:DISKINDX has some special modes. These are enabled by holding down a console key ([OPTION],[SELECT],[START]) when selecting an option.1) DELETE: DISKINDX will disable the screen and delete any duplicate entries in the index. The index will be scrambled and you will need to resort it.2) PRINTR: DISKINDX will send the printer configuration codes to the printer. (See discussion later)4) SCAN: This selects the SCAN AND DELETE option. It works like the normal SCAN but deletes entries instead of displaying them.5) ADD: If you are in the MYDOS or SPARTADOS mode DISKINDX will allow the entry of subdirectories. See the section on INDXFIX for more information.You can change the number of the drive the DISKINDX uses by entering the number while using the main menu.The DOS type that DISKINDX expects is shown in the upper left-hand corner of the screen. You can change this while using the main menu. If you are using a version of MYDOS which shows four digit file lengths then press "M". DISKINDX supports ATARI DOS and equivalents ("A"), MYDOS ("M"), and SPARTADOS ("S").The screen blanks during sorts. I had to use a bubble sort to get the maximum amount of free memory for the index itself. The sort routine was written in machine language but still bogs down noticeably when sorting a large index.If the printer is enabled SCAN, SHOW, and MENU will assume you wish a hardcopy and will print it out.SCAN allows the use of "?" as a wildcard character. The "?" can occupy any place(s) in the field to scan.SHOW expects your printer to print a line that is 82 characters long. DISKINDX is set up to use a STAR SG-10 but you can use other printers. (See the section about INDXFIX for more information about that.) If your printer is incapable of printing 82 character lines then you should not attempt to use the SHOW option. Instead you can use DOS to copy the index file directly to your printer.Pseudo-fields can be created at the end of field 8. If you noted your BASIC programs by putting a "B" at the end of field 8 you could then scan for all such entries by choosing field 8 and using "???????????B" as your scan key. I don't do this but it is possible.SAVE stores your index on disk in an uncompacted form. It occupies less space when loaded by DISKINDX because it is compacted when in memory. Thus you could save a file which is too large to load into a word processor even though it can be loaded by DISKINDX. This may seem a silly thing to have done but each index is saved in such a manner that it can be printed out without DISKINDX.DELETE also allows the deletion of a single entry. To do this just type the entry number (without a comma) and press [RETURN].The [ESC] key will abort you back to the main menu most of the time. You can't abort once a sort has started, when you are modifying an entry (you can only enter a field number, "S", or "D" then) and when you are entering a field value.DOS will attempt to load a file called DUP.SYS. If you are using SPARTADOS you will need to prepare a DISKINDX disk as follows:1) Format a disk (or use a blank one)2) Copy the SPARTADOS files onto it3) RENAME the file ending in .DOS to DUP.SYS4) Type "BOOT DUP.SYS"5) Copy the DISKINDX files onto the dskINDXFIXPRINTER CODES:DISKINDX expects your printer to print 82 column lines. The SHOW option (when the printer is enabled) will not work propeNrly if it doesn't. DISKINDX is configured for a STAR SG-10 or equivalent printer.If you have a different printer you can create a file called DISKINDX.DAT which will contain the control codes necessary to configure your printer for 82 columns. DISKINDX will automatically load this file when it is run. You will need to find the correct control codes for your printer. They should be in your printer manual. Enter them one at a time in decimal as INDXFIX asks for them. (If you are using an Epson or compatible printer type "EPSON" when you are prompted to enter the first control code.) After you have entered the codes INDXFIX will ask you to select the DOS type that you wish DISKINDX to configure to. You can choose between ATARI DOS, MYDOS and SPARTADOS.SUB-DIRECTORIES:INDXFIX will create a file called SUBDIR.DAT which DISKINDX will interpret as a normal directory when you select the special entry ADD option and are in the MYDOS or SPARTADOS mode.INDXFIX will ask you the input drive (the one from which you will be reading subdirectories.) SUBDIR.DAT will ALWAYS be written to the main directory of the output drive. An empty single-density disk will hold a SUBDIR.DAT file wit about 4650 entries and a double-density disk will hold about 9410 entries.You will be asked the name of the diectory from which to start creating SUBDIR.DAT. If you wish to use the main directory then just enter "Dn:*.*" (where n is the drive number.)EXAMPLE:Enter subdirectory to read from (*.* for main directory) (STOP! to quit)?D1:>MENU1>MENU2>MENU3>GAMES (SPARTADOS)?D1:MENU1:MENU2:MENU3:GAMES (MYDOS)This will start the scan at the 5th level directory called GAMES. The directory must be properly nested within the previous directories. NOTE: In this example MENU1 is a subdirectory within the main directory. (If this confuses you read the part of your DOS manual which discusses subdirectories.)After entering the directory name, DISKINDX will scan it and simultaneously create SUBDIR.DAT on the output drive. DISKINDX will then ask you to enter another subdirectory name. It will then scan this directory and add its files to SUBDIR.DAT. When you wish to stop scanning subdirectories type "STOP!". NOTE: INDXFIX WILL CREATE SUBDIR.DAT SIMULTANEOUSLY AS IT READS SUBDIRECTORIES.I think you will find DISKINDX useful. I enjoyed writing it and hope it will be as useful to you as it is to me.Fred Thompson600 Saluki Drive NorthMarion, IL 62959NOTE:As I write this file I am currently writting a modular adventure game whih will be similar to ULTIMA and MIGHT AND MAGIC (Apple). If I get enough response for DISKINDX I will release the game into the public domain as well.ﻩ01P`pppB0ANNNNNNNNNNNNNNNNNNHBHGHBHGHGNFBHBHBHGNFBHƀJJHBJFƀJFƀBƀJF6erƀBMMVBʀBƀBBƀBGBGJFʀVBNGJFHHJBVBHHJBHƀƀƀHƀHƀƀƀƀƀƀ3upport0rogramfor$)3+).$80rogramand$ocumentationc &red4hompson3aluki$rive.orth-arion )llinois0roducedusingcopyrightedsoftwareproductsof-onarch$ata3ystems#ochituate -!4/.4r/WXYZ L" ,Vb c© s) $LS!V˜ $ ;,0 s) a"LS!Ņ  s) $ԅ  s) $ n$ !`RUNTIME ERROR AT LINE L!B# Q#L` $ LPROGRAM STOPPEDŃł ȱ`iL.HH !L& ! $&  }% s) }%8ȱ hhL}%ʥ`i88冕8冕憘 Ɔ`Ɔ`u`Huh` L!L L!L   k% + k%  ! }%L!   k%  w# + k%  "  !  " s) w# }% !L!     w# + k%  "  !  " s) w# k% C }% !L!  ! %L&`  ! k%Lk%  $& k% "  k%  w#L    w#  k% " L % 4& s)bi bcicL}%WXY ! s) s),YeWiX`Y8Ld k% %Y`ʔȱȱȱ !Șe惠 惨.r!.s! LS!jemI-mJ- k%вHHhh```L!ʱ` L"" JLJ !HHl JLw TO BOOT FOR DOS TO RERUNp B V8B#` p"ȱL!8I-J-8凅刐SJj)ee`ффiiL"8L" LduuuL!8` Q#L!iL!豂Hȱh`p B#L!C#HB# BHIC# ., |$Zh`8` w#L# w##` w#0 w#0L# w#0` w#0L$L#`޵` `Ȕ`ʔ惥u`B# BHI DEH ., |$HyZZhL! Q# |$Z`B#JJJJ`Q$#$ #- $0 $L! $L!` $H $h 0 $`LQ#8 0ƅ`66&L$HH` B VhH)Kh)0 IJ'D%EB .,hL!S:D#L!TUVL! 1%`B#D#LQ# |$Z8ɰɅ Q#`ʱȱȱ`ȵȵL!L! % }% }%ʥ }% k% % }%L+ % k% $& $& !uȱuȱu ! ! k%0 #L+ ȱL! #L&ʵ`eeLdHHhh`ؐHH !L& !HH $& $&6 " hh }% }% hh }%`HH !% !HH )L& ! % Ld $&6 " k% "` ! %ޠ k% ) "L& L'HB# B Vh`ҩ2ҵ ҵ  !L!HB#BHI .,C#hC#Ls)B#DuEu !B#IHKJBH VCLdh !L! 1%D#H`B .,h`!(!(Ls)L!L! #`H !hLs)(HH eHHƆeiH %lꦆ s)Օ`0  L$`8`(ԍ$($ $ s)'(Ls)('(`q) ! %p)r) s)9 Ɔ채+K-p)L])80r) .9q)2q)Ld r)C# ) $& ) ) "C# s) "Ɔеp) #`ʕ`66`HHH66666uuuhhhL! #愵  # I s) '*80/66&&&`uuu` '* 4*Ј 4* ! #`/+h*i* 4&g*h*g*h*i* Ldȥi*ig*h*/+`La"+h* +`Ldi*8g*ƅ+ ȱi*g*h*` +L*+L*H/+ m*h`1+ %  88L0+ ! !` ! !`  ! !` 0+$' 0+"0 0+0 +L# +L# +L#Ls)Ls)7, s) % 4&6,7,:,:,`HB#? Q#B#HI6,D8,7,E9,B .,H:,h` VLd:,` +8, s)9,:,:, s)L;, +:,Ld8,9,, :,:,8, s)9,8e8,9,:, s)q)L(  L!hh iL! ,Lj* ,La"7,h*ȱ0 =-L- =-I-J- L-`i`WXY` p"ȱ%8e慱HȱhױYiWiXL!B# BH Vh s)L!B#&BH .,hN s) !L s)ML!B#%BNLMH .,hL!/!!!!!!))"w#)##########!a"##6#E# $5$n$N%$$)%1%@%%%m&&& 'j**( ("(%(2( D'$'4':(i''++++++'Y[, D q A,[,;,J(,,((,+K-Y----(/ / //00;0(B0f0001%161A1L1d112272F222 2'2'3'~3'3'3'3'3'4'4 N%4}Y44@@R}} ?Z/]/D,`/@?+`/+Enter output drive number]/GAI *  0c/WC+4?c/D7`/+`/+ERROR - P44Do you want to1) Create a default file 2) Read SPARTADOS subdirectories3) Read MYDOS subdirectories4) EXIT TO DOS]/GAI *1%1f/'61f/'A1 NL1c/DN:DISKINDX.DATA*XEnter printer codes, up to 15 chars long (If using an EPSON or compatible, type 'EPSON'i/ Enter code #]/GAI]/DEPSON=2l/BMA *2l/-Ci/72*(?l/DEnter DOS typeA) ATARI DOS or equivalent"M) MYDOS (4 character file lengths S) SpartaDOS]/GAI]/DA9]/DM9]/DS92]/D4c/ DN:SUBDIR.DATA**3'Enter subdirectory to read from (*.* for main directory) (STOP! to quit)(?l/GAIl/DSTOP!=34o/l/FC4l/l/D/ l/D/F*.*=3''l/D7'o/D7]/GAI]/F =4]/D'4'c/ D1:DOS.SYSA'?c/D74Z/hl .JOc/@xl/@o/@]/@o/D1:*.*A7zH`L7`L77777`L777` (c)1983 Action Computer Services  B JKIHiDiELV`L8 8 BLV`L^8Z8l L[8 &` Fj`8冨凪` 8EӅӥ 8`ʆǪƩ Ɛee` 8ƦʆǢ &Ɛeǐ 8 8L8 8'&&&8儨児祂*L8&&*ń8&&L8 9`hihiHHȱȱLh8c !#3`L[8JJJJ`H h8h`Hȩh 78L9 @8L9 7L9 7L9 7H8`HhHh $:L9 BHI V䅠L9 L[: 8L9Ԇ ؠPIPP` :P 7L9 :Lx: :L: :L:H- :8塪墨hL: :Lx: :L: :ȹP`텠8堨塪 :芨Oȩ-`PP S:P棩 Ѥģ0-ģ6000:,80H & &ehe&eģ0ʥ 8堅塅`$ z:&*i0:0i z:Ʀ`¢ 护°ڱ%ȱ%E z:L%<担CS :L% >  == s=<=== == =LU>=L>=d=Ll>=L>=譣=L>=L>=='L>Ȍ==<ͤ=L>.===L>=<ͤ=L?== :==L>A==L>F===M8 =M8L ?==L?===L? v9 ?1? ?IRL@?@LE???? ? ?? ??Ls?`? ?  Y`=8=L? v9???????R ???`L?} z:L? FATPRINT v1.1? :L@# By J. Williams? : x:`L$@L7@Enter drive #: @' : Z;??LW@? L$@`bitmap@ Ll@\@[@[@ \@L@^@]@L@\@[@ 9]@^@^@]@ 88[@宍_@=m]@>m^@_@=a@`@`@`L@>@@@Ȍ@>@@@@@@@@@@ ?@@@@L9C@i @@i@@@ ? ? ? ?LBLA%Maniac eh ? Well only the first 65000A :LA"sectors will be printed. Make sureA :L B$you have a big stack of paper ready.A : ? ?@i@@i@@@@@@@?@@@@ȱ??@i@@i@@@@@@@LBȌ??LB?? ? ? 9@@@@@?? 8@@@@@@LB@?@@M?L6CL%CBitmap length error.C :@@LgCLVCError reading boot sectorC< :@@@`===<0----+----|----+----|----+----|----+----|----+----|----+----CLCCCLD CCCLCCCD FATPRINT v1.0D& : :#LVD`L_D DY :CC :CF=F?F?F?m??i8zF{FzFF{FFLF?FF?FF ?FFLFLFI/O error reading bitmapF :`Fm?FFm?FFЇFLiF C`=LG ? ? 7 ?? !@?LqH :L-HEnter output deviceH :F 8:F 9#L[H FLqHLeHError=H^ :# : : 7``G Documentation for FATPRINT.COMFATPRINT.COM is a printer utilitywhich will print a SpartaDOS diskdirectory map from either floppyor hard drive.Just load the program from thecommand line, remembering to havethe printer turned on: D1:FATPRINTThis utility could be of helpwhen dealing with a less thanadequately running disk, to findwhere the problem lay.      !"#$%&'()*+,-./01&f?@ABCDEFFD[A Formatted Directory for SpartaDOS]PURPOSEThis command displays files from anydirectory/subdirectory in incrementsof 16 per screen followed by a promptto quit or continue. Such a displayallows the user to perform a moreaccurate search for a file(s) thanthe standard DIR command and alleviatesthe need to use CONTROL-1 to slow downthe display.SYNTAXFD [Carriage Return]orFD [D[n]:][path>][fname[.ext]] [C/R]TYPE and RESTRICITIOSExternal under CP versions 3.2xREMARKSFD.COM may be renamed using any namenot already in use on your disk orin use as an internal SpartaDOScommand.FD.COM displays SpartaDOS-formatdirectories ONLY.FD.COM may be used WITH or WITHOUT anarguement. It displays files on theuser's screen in increments of 16until it finishes a directory orsubdirectory. After displaying eachincrement, the program asks theuser to press the ESCape key to QUITor any other key to continue. Using FD.COM without arguement: Example: FD [Carriage Return]DIR used -without- an arguement willdisplay only the directory of Drive 1.FD, on the other hand, when used-without- an arguement, displays thedirectory of the drive from which itwas called, thus making the drive atrue default drive as with OSS DOS,MS-DOS, etc..With an arguement, FD searches forfiles in the same manner as the normalDIR command. Example: FD D3:DAT>DATABASE.*LICENSE and ACKNOWLEDGEMENTS This program is provided as SHAREWARE.Users may not modify the programwithout the expressed permission ofthe author.USE THIS COMMAND AT YOUR OWN RISK!The author provides no warranties,either expressed or implied,and assumesabsolutely no liablity for theperformance, fitness, or suitabilityof the program or lack thereof.This command has NOT been sanctionedor approved by ICD and was developedindependently and without any connec-tion with ICD except for documentationthey provide in the SpartaDOS Con-struction Set Manual (pp 108-11).SpartaDOS and SpartaDOS Construction Set are registered trademarks of ICD, Inc.FD.COM was produced using copyrightedsoftware products of Monarch DataSystems, Cochituate, MA 01778.Special Thanks to Ron Mullens for hisadvice on how to avoid the need topress a CONSOLE key to end a programcompiled with the ABC Compiler.[FD returns to the default drive'sprompt immediately upon completion.]PAUL FIELDSSAN ANTONIO, TXCIS: 72465,1260GEnie: SAAE*BBSHIPPHHHA OPL9P[[8P8P=; P XPL9PXͥY`͉Pi˥iiͥi`hhhl [˩Piͥi`)˩P̥iͥi`KL Documentation for QUIET.COMThis program turns off, via software,both the keyclick and input/outputnoise.Just load the program from thecommand line: D1:QUIETA screen prompt will show both areashave been silenced.NOPQRSTUVWXYZ8=H=M)|MӍӭp>=pp">=Jp֩00=M)|MӍӽ=p=Jp<=M)|MӍӽ>p">ph r;Computer is: <J r;128K - 130XE (64K)LF9 r;800XL unmodified-- No RAM Disk Installed` < r;192K - 130XE (128K)LF9 r;256K - 800/1200XL (192K)LF9 r;320K - 130XE (256K) i? ɛ& r;-- No Drive Number Specified`L iw9 ix9 v92" )= v9<$ /ȱ ɛ-E q> ; 8 2 32;2ȱ2;;2 ;,y90` r; H<]=)|MӍөBA@*G;@<8<"; @@ @@N@,<8< @ @iA6;Ah`MAIN L0 RAM-DISK"h;h;;; ;Lz;;H;H`HI BLV >`1=Lxԭ45S4?g:q:x:;<<<<;;<<< <8<= &? m6?L> &? ?m6?m7?L>5?>>??>?5?i 5?Lv>??` ? ?`2>;;j\]^ Documentation for RDNEWELL.COMThis file will create a RAMdisk whenusing an 800XL with the 256K Newellupgrade.Simply load the program from thecommand line along with the RAMdiskdrive designation: D1:RDNEWELL D8:This tells RDNEWELL in D1: to makea RAMdisk with the drive number of D8:`abcdefghijklmnopqrstuvwxyz{|}~31000 REM RENUMBERING UTILITY31002 REM 31004 REM 31006 REM 31010 GOTO 3156031020 FOR I=0 TO 5:B(I)=PEEK(A+I):NEXT I:IF B(0)=0 THEN D=0:GOTO 3105031030 FOR I=1 TO 5:C$(I*2-1,I*2-1)=STR$(INT(B(I)/16)):C$(I*2,I*2)=STR$(B(I)-INT(B(I)/16)*16):NEXT I31040 D=INT(VAL(C$)/INT(100^(68-B(0))))31050 H=INT(D/256):L=D-H*256:FOR I=1 TO J*2 STEP 231060 IF L=ASC(A$(I,I)) AND H=ASC(A$(I+1,I+1)) THEN L=ASC(B$(I,I)):H=ASC(B$(I+1,I+1)):POP :GOTO 3108031070 NEXT I:GOSUB 31710:GOSUB 31540:? "L.";D;" NOT FOUND":RETURN 31080 D=L+H*256:IF D=0 THEN 3112031090 C$="0000000000":L=LEN(STR$(D)):IF L/2=INT(L/2) THEN C$(1,L)=STR$(D):GOTO 3111031100 C$(2,L+1)=STR$(D)31110 FOR I=1 TO 9 STEP 2:K=VAL(C$(I,I+1)):B(INT(I/2+1))=INT(K/10)*16+K-INT(K/10)*10:NEXT I:B(0)=63+INT((L+1)/2)31120 FOR I=0 TO 5:POKE (A+I),B(I):NEXT I:RETURN 31130 FOR I=1 TO 128:IF V$(I,I)=CHR$(X) THEN POP :RETURN 31140 NEXT I:V$(X-127,X-127)=CHR$(X):Y=R:L=031150 L=L+1:IF L>J THEN GOSUB 31710:GOSUB 31540:? "VAR. NOT DEFINED":RETURN 31160 I=Y+331170 IF (PEEK(I+1)=54 OR PEEK(I+1)=6) AND PEEK(I+2)=X AND PEEK(I+4)=14 THEN 3120031180 IF PEEK(Y+2)<>PEEK(I) THEN I=Y+PEEK(I):GOTO 3117031190 Y=Y+PEEK(Y+2):GOTO 3115031200 IF PEEK(I+11)=20 OR PEEK(I+11)=22 THEN A=I+5:GOSUB 31020:RETURN 31210 GOTO 3118031220 IF M<>Z THEN RETURN 31230 A=P+M-7:GOSUB 31020:RETURN 31240 T=S+331250 IF PEEK(T)=23 OR PEEK(T)=24 THEN T=T+1:GOTO 3127031260 T=T+1:GOTO 3125031270 IF PEEK(T)=14 AND (PEEK(T+7)=18 OR PEEK(T+7)=22 OR PEEK(T+7)=20) THEN GOTO 3133031280 IF PEEK(T)>127 AND (PEEK(T+1)=18 OR PEEK(T+1)=22 OR PEEK(T+1)=20) THEN 3135031290 GOSUB 31710:GOSUB 31540:? "LOG. OR ARIT. EXP"31300 T=T+1:IF PEEK(T)=18 THEN T=T+1:GOTO 3127031310 IF PEEK(T)=22 OR PEEK(T)=20 THEN RETURN 31320 GOTO 3130031330 A=T+1:GOSUB 31020:IF PEEK(T+7)=18 THEN T=T+8:GOTO 3127031340 RETURN 31350 X=PEEK(T):GOSUB 31130:IF PEEK(T+1)=18 THEN T=T+2:GOTO 3127031360 RETURN 31370 T=S+2:IF PEEK(T)=22 OR PEEK(T)=20 THEN RETURN 31380 IF PEEK(T)=15 AND (PEEK(T+PEEK(T+1)+2)=22 OR PEEK(T+PEEK(T+1)+2)=20) THEN RETURN 31390 IF PEEK(T)=15 THEN T=T+PEEK(T+1)+331400 GOSUB 31270:RETURN 31410 Q=Q+1:IF Q>J THEN 3150031420 M=PEEK(P+2):S=P+331430 Z=PEEK(S):N=PEEK(S+1)31440 IF N=10 OR N=11 OR N=12 OR N=13 THEN T=S+2:GOSUB 31270:GOTO 3148031450 IF N=7 THEN GOSUB 31220:GOTO 3148031460 IF N=30 THEN GOSUB 31240:GOTO 3148031470 IF N=4 OR N=35 THEN GOSUB 3137031480 IF M<>Z THEN S=P+Z:GOTO 3143031490 P=P+M:GOTO 3141031500 GOSUB 31690:IF PEEK(84)<5 THEN POKE 764,43:GOTO 3152031510 ? "ŠΠŠӠϠؠҠ ͠ĠΠŠ٧ϠԠԠ"31520 IF PEEK(764)<>43 THEN 3152031524 LIST 31530 ? :? "נĠԠҠ͠":? "ŠǠԠϠˠ"31532 ? " TYPE":? "ԢĺŮԢ"31536 POKE 764,255:END 31540 H=ASC(A$(Q*2,Q*2)):L=ASC(A$(Q*2-1,Q*2-1)):K=ASC(B$(Q*2,Q*2))31550 I=ASC(B$(Q*2-1,Q*2-1)):? L+H*256,I+K*256,:RETURN 31560 CLR :TRAP 31560:? CHR$(125):? :? "NEW STARTING LINE";31570 INPUT T:IF T<0 OR T>30999 OR T<>INT(T) THEN 3156031580 ? "LINE INCREMENT";:INPUT S:IF S<1 OR S<>INT(S) THEN 3156031590 TRAP 31700:GOSUB 31680:R=PEEK(136)+PEEK(137)*256:P=R:J=0:Q=J31600 D=PEEK(P)+PEEK(P+1)*256:IF D=31000 THEN GOTO 3162031610 J=J+1:P=P+PEEK(P+2):GOTO 3160031620 IF T+S*J>30999 THEN GOSUB 31690:? "INCREMENT TOO BIG"31630 IF PEEK(540) THEN 3163031640 DIM C$(10),B(6),V$(128),A$(J*2),B$(J*2):FOR I=1 TO 128:V$(I,I)=CHR$(0):NEXT I:P=R:FOR I=1 TO J*2 STEP 231650 H=INT(T/256):L=T-H*256:A$(I)=CHR$(PEEK(P)):POKE P,L:B$(I)=CHR$(L):A$(I+1)=CHR$(PEEK(P+1)):POKE P+1,H31660 B$(I+1)=CHR$(H):T=T+S:P=P+PEEK(P+2):NEXT I:? CHR$(125);"àǠ͠"31670 ? "OLD LINE","NEW LINE","NOTES":? "---------","-------","-----":P=R:GOTO 3141031680 POKE 559,0:RETURN 31690 POKE 559,34:RETURN 31700 GOSUB 31690:? "ERROR ";PEEK(195);" LINE # ";PEEK(186)+PEEK(187)*256:END 31710 IF PEEK(84)<20 THEN RETURN 31720 GOSUB 31690:? "ŠΠŠŠӠ":? "THEN TYPE 'G'TO CONTINUE":POKE 764,25531730 IF PEEK(764)=61 THEN ? CHR$(125):GOSUB 31680:RETURN 31740 GOTO 31730 Documentation for RENUMBER.BASRENUMBER.BAS is a LISTed BASICprogram which will renumber andreincrement Atari BASIC programswhich have line numbers less than30000.Just ENTER RENUMBER.BAS from BASICafter loading the BASIC program to berenumbered. After this has takenplace (slow, eh?), type GOTO 31000at the READY prompt. RENUMBER.BASasks for starting line number andline increments. The program willmake all the changes to your programexcept for references to specificline numbers inside a line--thesechanges must be done by you--makesure to have a separate working copyto compare the renumbered program to.To reSAVE your program, do thefollowing from the READY prompt: LIST "D1:TEST.BAS",0,30000 (press RETURN) NEW (press RETURN) ENTER "D1:TEST.BAS" (press RETURN) SAVE "D1:TEST.BAS" (press RETURN)The "LIST" command gets rid of theRENUMBER.BAS program. The "NEWcommand clears the computer memory.The "ENTER" and "SAVE" commands bring the program back into memory and thenback onto disk in a RUNnable form. A 130XE-COMPATIBLE 256K UPGRADE FOR THE ATARI 800XL by Claus Buchholz I designed the 256K upgrade described in my article, "The Quarter-Meg Atari" (BYTE, September, 1985), in December, 1984. Since this predated the 130XE, there was no precedent for extended memory on the XLs. I felt free to implement a system of eight 32K banks. The major reason was to keep the add-on circuit as simple as possible. The 130XE, introduced in early 1985, set a different standard for bank-select memory. It uses 16K banks and makes them separately available to both the CPU and the video controller (ANTIC). The XE has 128K total memory. The 64K extended RAM is split into four 16K banks. A 256K 800XL has 192K extended RAM, which requires 12 16K banks. I have designed a new upgrade for the 800XL that implements such a scheme. Its similarity to the 130XE's scheme allows use of software for the XE on a 256K 800XL. To select one of four banks, the XE uses two bits, #2 and #3, in the memory control register (port B of the 6520 PIA, addressed at $D301 or 54017 decimal). Zeroing bit #4 makes the selected bank appear at addresses $4000-$7FFF (16384 to 32767 decimal), as seen by the CPU. Zeroing bit #5 makes it appear there as seen by ANTIC. In my upgrade, bits #2, #3, #5 and #6 select one of the twelve banks. Zeroing bit #4 makes the selected bank appear at $4000-$7FFF to both the CPU and ANTIC. So, any program for the XE that uses the extended RAM for CPU storage will work on an 800XL with this mod. Those programs won't use the additional 128K, though. Programs that use the video banking feature of the XE might run on the modified XL, but the screen display will be wrong. The procedure for this upgrade is basically the same as in the article, except for the following points. If your ANTIC (U7) part number is CO21697, use the circuit described by the first connection list below. If it is CO12296, include the circuit in the second list. The circuit requires five connections to the PIA (U23). So, pins 12 through 16 must be bent up and connected to the circuit. The rest of the procedure is the same. Notice that this circuit has one more chip than the article's circuit. This is the price of compatibility. With the 256K dynamic RAMs in your XL, be sure to wait at least ten seconds after turning the computer off. Otherwise it may not coldstart properly when you turn it back on. My original RAMdisk software doesn't work with this new mod, so I have written a new version. It is used in the same way, except that it offers a choice of either two single-density RAMdisks or one double-density. If you wish a disk copy of the source and object code, send me a blank disk and return mailer with full postage, and I will promptly send it back with the software. Alternately, you may download the software from the Capitol Hill Atari Owners' Society BBS at 517-371-1106 or from the Castle Communications board at 517-371-4234. The source file is called QMEGXLD.SRC for Quater-MEG XL Double. Also available is a RAMdisk program that sets up one single-density RAMdisk and leaves the XE-equivalent banks free for XE software. This is quite useful with BASIC XE, DOS 2.5, or the new Synapse software. Its name is QMEGXLS.SRC. I ask one thing in return for this information: Please pass it around to all your interested friends. Put it in your club's library or on your favorite BBS. Encouraging software support of 256K will result in many interesting uses for it. Thank you and enjoy! DEFINITION OF MEMORY CONTROL REGISTER AT $D301 (54017 DECIMAL) XL MOD 130XE bit: 7 6 5 4 3 2 1 0 bit: 7 6 5 4 3 2 1 0 D a b E c d B R D V C x y B R D=0 enables diagnostic ROM D=0 enables diagnostic ROM B=0 enables BASIC ROM B=0 enables BASIC ROM R=1 enables OS ROM R=1 enables OS ROM E=0 enables extended RAM V=0 enables extended RAM for video abcd is 4-bit extended RAM bank # C=0 enables extended RAM for CPU - ranges from 4 to 15 xy is 2-bit extended RAM bank # - banks 12 to 15 are equivalent - ranges from 0 to 3 to XE's banks 0 to 3 PARTS LIST 8 41256 256K-bit dynamic RAM (200ns or less) 1 74LS153 Dual 4-to-1 multiplexer (IC2) 1 74LS139 Dual 2-to-4 decoder (IC3) 1 - 33 ohm, 1/4 watt resistor ADDITIONAL PARTS FOR ANTIC #CO12296 1 74LS158 Quad inverting 2-to-1 multiplexer (IC4) 1 74LS393 Dual 4-bit counter (IC5) LIST OF CONNECTIONS FOR THE UPGRADE CIRCUIT Instead of a drawing of the upgrade circuit, below is a list of connections. Each entry in the list begins with the name of the signal followed by all the IC pins that connect together and share the signal. IC3-13 means pin 13 of IC3. The IC numbers appear in the parts list above. IC1 is the 74LS158 chip from socket U27 on the XL motherboard. DIP is the DIP header to be plugged into socket U27. U23-xx refers to the pins you bend up on the PIA chip at U23 on the motherboard. Vcc : DIP-16, IC1-16, IC2-16, IC3-16, IC3-13 Vss : DIP-8, IC1-8, IC2-8, IC2-1, IC2-15, IC3-8 A7 : DIP-11, IC2-10, IC2-11 A15 : DIP-10, IC2-13, IC3-3 A6 : DIP-14, IC2-6, IC2-5 A14 : DIP-13, IC2-3, IC3-2 MUX : DIP-1, IC1-1, IC2-2 A4 : DIP-2, IC1-2 A12 : DIP-3, IC1-3 RA4 : IC1-4, DIP-4 A5 : DIP-5, IC1-5 A13 : DIP-6, IC1-6 RA5 : IC1-7, DIP-7 -E : DIP-15, IC1-15 RA7 : IC2-9, DIP-9 RA6 : IC2-7, DIP-12 PB2 : U23-12, IC2-4 PB3 : U23-13, IC2-12 PB4 : U23-14, IC3-1 PB5 : U23-15, IC1-10 PB6 : U23-16, IC1-11 -Zd : IC1-9, IC3-14 -O1a : IC3-5, IC3-15, IC2-14 -O2b : IC3-10, One side of resistor RA8 : Other side of resistor, Pin 1 of all RAMs If your U7 part number is CO12296, do not connect signal A7 above, and make the following additional connections. The connection to U7 is to a trace on the motherboard that runs from pin 8 of U7. Vcc : DIP-16, IC4-16, IC5-14, IC4-3 Vss : DIP-8, IC4-8, IC4-2, IC4-15, IC5-7, IC5-2, IC5-12 A7 : DIP-11, IC4-6 -REF : U7-8, IC4-1 REF : IC4-4, IC5-1 A7' : IC4-7, IC2-10, IC2-11 Q7 : IC5-8, IC4-5 Q3 : IC5-6, IC5-13JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJ  FF                                              11H/ 36M)MӍӭp76pp86 p֩006M)MӍӽ6p6 p66M)MӍӽ7p8p hө"/ 3 45RD Ver 2.3+ 7-14-86 (C) 1986 ICD Inc.For 512K XL/XE computersWithout losing BASIC!12 45Computer is: 6 0N 45Unmodified XL/XE- No RAM Disk Installed` 45256K - 800/1200XL (192K)L26 6 45512K - 800/1200XL (448K)L2 45576K - 130XE (512K) i? ɛ' 45-- No Drive Number Specified`L i2 i2 22" )236 2<$ /ȱ ɛ-E6N2L3 45-- Parameter Error` k5 l56Q6' 45Error -- No Extra RAM For RAMDISK` 45 g8j 5 8 2 325x2ȱ2552 m5,20`` 45 H6)]6-6MӍөBA@C* 5@68624 @2JJ 44i@44i424@i @4@4243 @i242h`@@`  AAAABB45BBMAIN L0 RAM-DISK"hE5hF5E5F5 Z5L<5F5HE5H`HI BLV 7`16Lxԭ45S6JJI06 4ȩ40"N 640O4646L6! 564ȑ4" 66R WPL62 83 3*,063*H3JJf2 @3)ӭR 46hm6Ͷ6I)Y6-6MӍӠR 26)Ӡ64 62,өX`(`dhl $(,@DHL젤̀ |&8!93335N6~66655555555,6\6g66Y6j633n53j3xs5+9+999 9`8,9-9 9m,9ȱm-9L8 9 m,9L8 9 9m,9m-9L8+9888888+9i +9Ll899` 9 "9*99`&8j5j5|8=H=M)|MӍӭp>=pp">=Jp֩00=M)|MӍӽ=p=Jp<=M)|MӍӽ>p">ph r;Computer is: <J r;128K - 130XE (64K)LF9 r;800XL unmodified-- No RAM Disk Installed` < r;192K - 130XE (128K)LF9 r;256K - 800/1200XL (192K)LF9 r;320K - 130XE (256K) i? ɛ& r;-- No Drive Number Specified`L iw9 ix9 v92" )= v9<$ /ȱ ɛ-E q> ; 8 2 32;2ȱ2;;2 ;,y90` r; H<]=)|MӍөBA@*G;@<8<"; @@ @@N@,<8< @ @iA6;Ah`MAIN L0 RAM-DISK"h;h;;; ;Lz;;H;H`HI BLV >`1=Lxԭ45S4?g:q:x:;<<<<;;<<< <8<= &? m6?L> &? ?m6?m7?L>5?>>??>?5?i 5?Lv>??` ? ?`2>;;j*+,-./01238=H/ :=M)~MӍӭp>=pp?= p֩00=M)~MӍӽ=p= p莲==M)~MӍӽ>p?p hө"/ : 2%L-Lx%Lo(L(L(L(L4)L2)L%L%L%L%L%LU,L`,L(L)L,L(L+L$(L".L,L(L'L'L'Lm'Lv'L,L,L'L(L'L'L.L.Lk.L.L.L.L.L.L.L#*L.*L&L&L.&L=&LF&LQ&Lk&Lr&L{&L&L&L&L)L)L)L)L,.L)L:'L'L&LL'L['LR'L*L*L.L&L&L&La'LB(LR(L.L(L/L9/L6/L/L/L/L/L0L0L+0LC0L/L^(Lj(L)'L@'Lo/Lr/LO/L%L'L%L% -膚 ɩҍD҅ 2 222 a(2222 ` -Lq -l ԤՄԅ`ȱ`ȱ`ȥ`ԑȥՑ`ԤՄ`ԤԅդՅ` '0=D '04.5 '0.( '0 ' ' 8`ԅ` & & & &ѐ & &ʥ %аЪ %Зьɛ &0 &0 `ԥ`Ɠƒ` % &LS* %LS* %օ0֥0 S*` %eԥe` %La* % % o*L% %Lo* % &L|* %L|* %L% % Ʌ` BLV䅆L' %ԅ`TU HH 'hhL, B VԩL%p v'PKJBDEL, &fL=) %ԅ`Ę eĘ +L4( % & %` %Ԅԅ` -``&eԅԥeՅ`L% o(ԨL%Ԅ & %eԥe` Ԅ &ɛ +0` d) ذI ( 8ԅԩՅL%L,ȹɛ꩛` d)f & 8fԆՅɛ摥0L?)$0`2 2L,(,ɛM(M( )ɛ )򩀅` %ԍ`ԄL%ԄL%ɛԆL% &󅐩f =) ؐL(L4,ԅԥՅL%82ԭ 2L%ԤՄԅե`8ե`eեe` B* K+fL% B* +fL%8ԨՄԅL% & B*ԥՄԩՅօפԥFf G+ԥ K+ԅՅԥզЦ`ԅՅʩ0B+=+ B+ 08f$˹ `' d +1ԦԄզՄFԐ eਊe&Lh+Ԇ`hh L, +Ff&֐ݥ ԆՅԠ&&&8થօԈ`քע +Ե 8`晄 ,L,`GHFH` U,0ɛȄ ؐL,HI h 8ԅԩՅL%?S, ,򦅩DEBHIL,ɛ +` +` %HI BL,՝HIB VL,L%B Vú.hh -l. -0dd-8/ i - 0-- ,@ . ,... + x' $(.Ԏ.8ե ".LO-- , `,ɛD(C` ذ -L- -L 2 -- ,L- - -L-l lp '8`ERROR- ?Run address> BASIC exitTrace:P8Յթԅ` ,.L, .-ȘH *h00,)` & ҅ԭ ) |*օեׅ` L,0թԅթᨊઐ```Յ`8Յթԅ`0 ԩ`ԅ`` ' %`BԝK)I JD/ELVS:)H)h y` & % & %TԅUՅV`&B ,NLսM` & %ԝL՝MN%BL, & /` BHIL, & /`B JKL, %ԅUՅV & %ԅT`)ҩҊ H) hҘ` %)xԩL% %))Lc&LZ& %)pԩL% %)|LZ&Lc& V0L-$2~2'@'@DDhDDL 2 $ppҠD Z$1@ H$ ?$ $ <G@vD $K@D $5@ !$PD '$5@ !$R22D '$N@hD $Z@D $a@ !$ $D $ h9 Z$ ?$ Z$c@ H$ Z$ -$ᢐD <$2}3թ@D $L*3L3ԩթ@D $LY3L3ԩթ@D $~33L3@wD $L3 h9L2 h9 Z$ ?$ Z$@ H$ Z$ -$ᢐD <$ԩթ@D $L43{4L%6ԩթ@D $L/4L%6ԩթ@D $Ls4@D $Ly4 h9L3 h9|44 Z$ ?$ Z$@ H$ Z$ -$ᢐD <$ԩթڅ@D $L4LV5ppҠDԩթ@4z5D $L5LV5ԩթ܅@D $LP5/@ !$PD '$LV5 h9Ly4 h9 Z$ ?$ Z$ޠ@ H$ Z$ -${55ᢐD <$ԩթڅ@D $L5L%6ԩթ@D $L5L%6ԩթ@5y6D $L6/@ !$RD '$L%6 h9LV5 h9 Z$ ?$ Z$A H$ Z$ -$ hD <$ԩթ @hD $z66L6N@hD $L> h9 Z$ ?$ Z$A H$ ?$ Z$ ?$ Z$5A H$ ?$Щ r$LD '$LD !$C@ $L6L7LD6x7 !$?@ $L7L 2L6 Z$1@ H$ ?$8 %vD{D $hD~D $ Z${D f$ Q$ Z$y77ᢌD f$ Q$ppҠD =ԩթ@D $L8 Z$1@ H$ ?$ Z$ ?$ Z$ ?$ Z$ ?$ Z$Q7x8A H$ ?$ Z$ `$FD '$ԩթjAD $L?8 ~; Z$FD !$ $ᢀ K$FD !$a@ $L8 Z$y88ᢧD K$ ?$L8é r$HD '$RHD !$pA $L8 Z$ ?$ Z$rA H$ ?$ Z$ ?$L9 Z$ ?$ Z$A H$HD !$ E$8x9A H$ ?$ Z$ T$ Z$ T$0 Z$ T$ppҠD Z$A H$ ?$Щ r$LD '$LD !$C@ $L_9Lb9L69L 2L$5@ !$OA $$ $y99 Z$ؠA H$ ?$A !$B $$ $ Z$wD K$ ?$ԩթjAD $L9A !$A@ $$ $ Z$B H$9x: ?$ԩթ@D $LH:A !$A@ $$ $ Z$ B H$ ?$PD !$5@ $L:A !$B $$ $ Z$By:: H$ ?$PD !$/@ $L:A !$B $$ $ Z$B H$ ?$RD !$5@ $L:A !$'B $$ $ Z$)B H$ ?$RD !$/@:v; $L$;A !$'B $$ $ Z$,B H$ ?$A !$'@ $$ $ Z$0B H$ ?$A !$'@ $$ $ Z$ hD K$ ?$5@ !$E@w;; $$ $`T r$JD '$^D !$3@ $L; Z$ ?$ Z$ $L> Z$A@ !$ $ᢀ K$RD !$/@ $L> Z$)D !$ $ᢀ K$-D !$ $ᢀ K$/D !$n>> $ᢀ K$` Z$1@ H$ ?$/@ !$^D '$8 %vDD $0 Z$ T$ R Z$1@ H$ ?$0 Z$ᢓD f$>l? Q$ppҠD Z$3D H$vD K$7D H$ ?$ Z$ ?$? %/@ !$ND '$0 Z$ `$`D '$ Z$`D !$ $ᢀm?? K$`D !$a@ $L? Z$ᢧD K$ ?$ ~;ND $BD $LE?é r$HD '$pA $L?L83@ !$^D '$ ~;R?b@ Z$ ?$0 Z$ T$5@ !$^D '$ Z$1@ H$ ?$  c?h < 8 2 32H=]=-=MӍөBA@C*<@=8=9; @9JJ ;;i@;;i;9;@i @;@;2;3 @i2;2h`@@`  AAAABBBBMAIN L0 RAM-DISK"hC`1=Lxԭ45S=JJI0= 4ȩ40"N =40O4=4=L=! 4ȑ4" ==R WPL=2 83 3*,0=3*H3JJf2 @3)ӭR 4=hm=Ͳ=G=M-=MӍӠR 2=)Ӡ=4 =2,өX`(`dhl $(,@DHL bfjn"&*.BFJN |"?&@:::?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmn@`hihiHHȱȱ`8Hh` .&E…¦ .&`L.&` ?&"Ff ee&8L`& ?&_Wń児0 &&86.ń児8儅充FfFf8L`&p B V8l ' Vhhl/'HHJJJJhh`hhl/' `Hh1'`Hh`Hh`Hh` R'IHiDiE B 2'HI B 2'`ԆՄ ؠ0ȑ8)ȑ`0L'II襢 'iȑȩ-`H z' 'hL' l'L( c'L-( l'L' c'L9( s'L' c'LE(ȩ$&*i0:iȑ`1' LFĆ>%>Ć5%/E)ԵH膇hCI4H")l RETURN l FIlk sb=0 eb=size-1 fmt=0k _getparm(1, txt)k rdnum=txt(2)-48 varptr=$3FF0k var=varptr^ var^=rdnumk FOR n1=2 TO n0-1 DOik _getparm(n1,txt)PkxԌҭHӭ@.@/ʎӆ@ӭ@@/Q./$ӹ.@hөԥX`U.AˠL^1 0Q.` Nj eb=ValB(txt+6)j$ ELSEIF txt(5)='f OR txt(5)='F THENpj fmt=10`j$ ELSEIF txt(5)='x OR txt(5)='X THEN5j @ 1`0L0 -Disk Portal Systems Inc. (c) 19901i L222̈́2L222q12L2`ui L2228222222 &222)22)21m21m222I21m21m2222I21m21m22`size THLV3M3L38L3L3M3M3M3L3 &N3O3L3)P3M3)Q31mN31mO3R31mP31mQ3R3R31mN31mO3R3`Ƣƣ8`E(" L444 4 44 l&4444 &4 4` 34 l& 4 4 4 4` 3 4 4 &44 l&8 4宍 4 4寍 4 4 4L44}2i ~2i4i444}2i ~2i4444}2i ~2i444i84宍44 4444}2i ~2i4444}2i~2i44}2i~2i4}2i~2i4iҍ4 4}2i'~2i44~2}22 + 44 4Ȍ44iB6B64 4LW6^ 44 24 4L26 4Ȍ44v6v64 4L70 4 4 4 4L684 4 l&m 4m 41e1e 4q1 4Р 4L64i 4i1q2 + 4 44 4Lf6 24iu14i1q2 + 4 4 2(q1t1Mw1ax1sy1tz1e{1r|1 }1 ~1 1 1 14i1q2 + 4 4`n1) var+178L7 [177 l&i@7i7} j) q)L<8-Disk v2.03 (c) 1990 PSI8 K(La864k-2048k RAM-Disk Handler8F K(L8Written by Nathan Hartwell8k K(L8"(Bank finding routine by Bob Puff)8 K(L8Found: 8 ?(77 3(k j) q) q) +L 9L9Must use SpartaDOS!!8 K(` ,77ILE9L=9%Syntax: PSI_RD Dn: 9 K(`787771g h-8i102?777777772787997L:_1g7 h-k1I/L9L:l1Is l1ISL91m v)7L:l1Ie l1IEL :1m v)7L:l1If l1IFL": 7L:l1Ix l1IXL:77 7L:7g1I1L:87877e7i77L:8777L=:7L9877777L:7L:77L:777L:877L:77L:877?77777787722772822L[;;> K(L; ;e K(L; ; K(L; ; K(L; ; K(L< < K(LE<<( K(LV<7iU.7q177U.M7L=877L>7U.M7L=877L>7U.M7L=877L>7U.M7L>8777L|=72>>7LJ>777m7q1777L>7I L>2 4Lx>: -Disk D%C:%E2i0>] (@7777```7pqrstuvwxyz{|}~| ||   |     |||| | | | | | | | | ||  | |  |<  |||| | | | | | | | | ||   | |   || |Leading the 8-Bit to a better tomorrow!PSI RAMdisk 2.03(C) 1990 Portal Systems Inc.PSI RDFormat 1.35(C) 1990 Portal Systems Inc.SDOS.ACT(C) 1989 Bill AycockBANK_FIND routinesSupplied by Robert Puff (Thanks Bob!) ***Shareware*** As you probably already know, PSI Labsis not a huge software corporation. Assuch, that means we don't really makeany money off of quarterly sales oranything like that. We do, however,exist mainly to the generosity of you,the user, and as such, you dictateweather or not new versions arereleased through your donations. If youDO find this product useful (And boy,will you!), then a small donation of$25 would be appreciated. If you shouldhappen to donate more, I might be ableto persuade Nate(The Mage) to releasesource code. Now for the... ***DISCLAIMER*** (and Datclaimer, too!) This product is released on an AS-ISbasis, with no warranties.What you have before you is about ayear's worth of Nate's best work. Itis VERY simple to use and, in somecases, a lot better than either theOrion Microsystems RD.COM or ICD'sRD.COM! This RAMdisk handler is afully sectored RAMdisk, meaning youcan even use a sector editor on it!As far as we know, it will work on thefollowing memory types: Stock 130XEPeterson 320K, 576K and 1088K upgrades.RAMbo 256k.RAMbo 512k upgrade.We're kinda sure on the following:Newell upgrades.If you find that it works on these two,let us know.Well, now that thats out of the way, Iguess you're wondering, "Hey! How doesit work?!" Well, thats simplicityitself! Command:RD Dn: [/S=nn] [/E=nn] [/X=nnnn] [/F]Whereas:Dn: n stands for the RAMdisk drive number. THIS PARAMETER IS NECESSARY FOR OPERATION!/S=nn ::is for the starting BANK (a 16k section of memory) where you would like your RAMdisk to start. Example: RD D2: /S=47 /F Means "Load RAMdisk handler, using bank #47 for the STARTING bank and use memory all the way to the last bank. Also, format the RAMdisk."/E=nn ::is for the ending bank where you would like your RAMdisk to end. Examples: RD D2: /S=2 /E=13 /F Means "Load RAMdisk handler, using bank #2 as the start, and using ALL the memory all the way up to bank #13, the ENDING bank, and then, format the RAMdisk."ǡ /S and /E should only be used by users with a REAL grasp of Atari Extended Memory!!/X=nnnn ::is for logically reserving the banks of memory that would be considered part of the ORIGINAL 130XE extended RAM. Each of the four switches in this parameter can be one of two values as follows: 0 = Place bank in RAMdisk. 1 = Place bank BACK in XE extended RAM. EXAMPLE: If you own, say, BASIC XE and use our fine RAMdisk handler, you must pass the /X=1111 to the RAMdisk so as to allow that stingy BASIC XE cart to have ALL the memory it requires! /F FORMAT RAMdisk! If you do not include this parameter, the RAMdisk will not be formatted, just installed. Which means: A) If you have just turned on the computer, use the /F to format the RAMdisk for use. B) If you HAD a RAMdisk installed and you cold-started the computer, don't pass a /F if you wish to have your RAMdisk restored to its former setup, but DO include its starting and ending banks parameter, if necessary.Starting the RAMdisk without ANYparameters, (except of course, Dn:,which is necessary for operation)creates the largest RAMdisk supportedby your system.By the way, I have just been informedthat our handler is NEITHER ICD OROrion Microsystems compatible in thatbank selection structure is different.Thats NOT to say, however, that itwon't work with SpartaDOS (Fact is, itwon't work with anything BUT!) Also included in this ARC is a filecalled RDF.COM, this is for those ofyou, who, like me have either forgottento format the RAMdisk or would like to"wipe the slate clean", so to speak.Its format (no pun intended) is:RDF Dn: /B=nnWhereas:Dn: Of course, the Drive number is n./B=nn nn is the max bank # given to you by the RAMdisk program when you ran it.YOU MUST INCLUDE BOTH OF THESEPARAMETERS FOR THE PROGRAM TO OPERATE!ALSO, THIS PROGRAM IS FOR PSI-RAMdiskONLY! UNFORSEEN THINGS WILL HAPPEN IFYOU TRY TO USE IT ON A PHYSICAL DRIVE!!Thanx and enjoy!PLEASE! PLEASE! PLEASE! If you find ANYbugs in this program PLEASE report themto: CompuServe address: 71451,300Mail address: PSI Labs 1507 Hickory Valley Rd. APT.# C21 Chattanooga, TN 37421All bug reports that are verified arerewarded with one (1) free update ofthe users choice of our programs!Thanx Again!Before I go, I would like to thankBob Puff for his excellent technicalassistance and Don LeBow for hisintestinal fortitude as we used himas the RAMbo guinea pig!! :)(8`hihiHHȱȱ`8Hh` .(E…¦ .(`L.(` ?("Ff ee&8L`( ?(_Wń児0 &&86.ń児8儅充FfFf8L`(p B V8l ) Vhhl/)HHJJJJhh`hhl/) `Hh1)`Hh`Hh`Hh` R)IHiDiE B 2)HI B 2)`ԆՄ ؠ0ȑ8)ȑ`0L)II襢 )iȑȩ-`H z) )hL) l)L* c)L-* l)L) c)L9* s)L) c)LE*ȩ$&*i0:iȑ`1) LFĆ>%>Ć5%/E)ԵH膇hCI4H][fname[.ext]][ /[T[S]][N][#val]] If no file spec is specified, all files will be listed(i.e. the filespec becomes *.*). If no pathname is specified the current directory is used. Without specifying parameters DIRC returns a DIRS style listing in as many columns as will fit on the monitor screen with the current margins. The N parameter provides the same style listing without the sector counts("N"o sector count). This allows listing three columns wide on a 40 column monitor. The default 38 column screen is one space shy of allowing a three column listing so DIRC will, if the left margin is two, move the margin one space left when the "N" parameter is specified. The original margin is restored at the end of the listing. The T parameter gives a "tree" style listing showing the current (or specified) directory path and a listing of the files in that directory which meet the filespec. This is repeated for each directory downward in the hierarchy of subdirectories. The S parameter Supresses the printing of pathnames in the "T" listing, thus showing only the filenames which match the filespec. This parameter is ignored if the "T" parameter is not specified. The #val parameter permits the user to override the default line width. This would be useful when the output is directed to a printer. The "#" MUST precede the decimal width and this parameter MUST BE THE LAST ONE SPECIFIED. Any additional parameters after the "#" will cause the value specified to be improperly read and the additional parameters will be ignored. Values over 255 will produce improper responses. V 8^WIBLceXfXLcfXȌeXWeX mmXfX*(mnXȱYXmeXZXmfX V 8^WIEL|dgX hXLd WLdƠd IUL|deXMgX fXMhXL|dhXfXgXeXeX mmXfX*(mnXYXmeXZXmfX V 8^WIWLdhXgXjXȌiXWIWfXȌeXeX mmXfX*(mnXYXmeXZXmfX V 8^WIDLLehXgXjXȌiXWIWfXȌeXeX mmXfX*(mnXYXmeXZXmfX V 8^WIALehXgXjXȌiXXIXfXȌeXeX mmXfX*(mnXYXmeXZXmfX V 8^WILLgS^XS]X9]S8]SWWXW"XWWILeWX dW( TXeYe( dW WLJf Filename:f@ IUX XWILf 8\ CUX UWILfLff IUW WILe^XS]XS CUWILfWW"XWXWWILf @] WLg CUX UWWWXhXgXjXiXfXȌeXjXȌiXWrXqXXtX_sXrXqXtXsX VeX mmXfX*(mnX`X_XYXmeXZXmfXW 8^WI|L9hfXlXeXkXeXi fXiiXŮjX寐LgjXfXiXeXLgeXi eXfXifXkXMeX lXMfXL9hWeX mmXfX*(mnXȱYXmeXZXmfX V 8^WI_LhfXlXeXkX8eX fXPŮ寐8eX fXLhfXȌeXLh8eX eXfXfXkXMeX lXMfXLhWeX mmXfX*(mnXȱYXmeXZXmfX V 8^WIFLfiXL^i( TXeYe( dW WLHiFile =iA IUX IUXLfi @]XWISLjWLj( TXeYe( dW WLi Enter string i IUX@ XWȌXXX@XI LiLj8XXXLiWILj WX @]XLjeXfXWrXqXXtX_sXrXqXtXsX VeX mmXfX*(mnX`X_XYXmeXZXmfXW 8^iXeXjXfXLjfXjXeXiXWI WIL$jXWILj CU CUW QWl Ldb``ia      VTEX - The Text Viewing Utility Version 1.0 8/4/91 Program and Documentation by: Larry Richardson P.O. Box 472 Aurora, Co. 80010 This program is distributed as SHAREWARE. I have spent a great deal of time designing, coding, debugging, and modifying this program. Any donations I receive for my time and effort will encourage me to continue supporting this program, as well as writing new software for the Atari 8-bit computer. Thank you. I. What does it do? VTEX is a utility that allows you to view any file on the screen. If you have used DOS to view a file (copy from the file to E:), you already know how unfriendly it is. VTEX is an attempt to give the Atari 8-bit users an easier and more powerful method to view a file. II. Features VTEX can page through a file, both forward and backward. It has the ability to skip to the last page and back to the first page, or to skip in increments of ten pages. Since VTEX doesn't go through CIO to display on the screen, special characters (such as the clear screen command) will not interfere with the display. VTEX has a pseudo-word wrap (I'll explain later), and can delete the leading spaces from the left margin (good for viewing files that have been PRINTed to disk). VTEX also has string search capabilities and ASCII CR/LF handling. It has been tested under both Atari DOS 2.5 (2.0) and SpartaDOS. III. Running VTEX From any Atari type DOS, use the binary load command and load the VTEX executable file (VTEX.COM). The program will prompt for a filename. Enter the filename to view and press RETURN. After VTEX opens the file, the VTEX view screen will appear. At the bottom of the screen is the VTEX status line. It displays the version number of the program, the current page number of the file being viewed, and has an end-of-file indicator. It also indicates if word-wrap or the delete leading spaces options are active or not. From SpartaDOS, you may specify the filename to view on the command line. Simply type - VTEX filename . Under SpartaDOS, VTEX will look for the filename on the command line. If it doesn't find the filename there, it will prompt you to enter the filename (as it always does under Atari DOS). With either DOS, if VTEX encounters an error while trying to open the file, it will re-prompt you for a new filename. If you wish to exit VTEX at this prompt, press ESC. The program will then exit to DOS. IV. Commands Once VTEX is running, you have a number of commands to choose from. The commands are explained below. PAGE FORWARD Press the down arrow key (without holding down the CONTROL key). VTEX will display the next page in the file. As VTEX moves forward through a file, it notes the position of the beginning of each page so that it can move backward (or jump forward) directly to that page. PAGE BACKWARD Press the up arrow key (without holding down the CONTROL key). VTEX will display the previous page in the file. FORWARD 10 PAGES Press down arrow (without the CONTROL key). Note that because of the way Atari 8-bit DOS's handle random access files, VTEX cannot just jump to a page that it has not yet read in a sequential manner (see the explanation in PAGE FORWARD). It doesn't know at what point in the file the 10th page occurs, for example, until it has read pages 1-10. Therefore, when you press down arrow, VTEX will either: 1) Move forward 10 pages (if it has already read that far in the file) - or - 2) Move to the highest page it has read (if less than 10 pages from the current page) BACKWARD 10 PAGES Press up arrow (without the CONTROL key). VTEX will either: 1) Move backward 10 pages (if the current page being displayed is greater than 10) - or - 2) Go to the beginning of the file GO TO THE BEGINNING OF THE FILE Press B to return to the first page of the file. GO TO THE END OF THE FILE Press E to ATTEMPT to go to the end of the file. VTEX can only go directly to the end of the file if it has already read the last page. Once the last page has been read (using the down arrow to page forward), VTEX notes the position of this page so it can access it directly. If the end of the file hasn't been read yet, the message NO EOF is displayed in the status line. DISPLAY THE CURRENT FILENAME Press F to display the name of the file that is currently being viewed. Press F again to see the normal VTEX status line. WORD WRAP THE DISPLAY Press W to turn on the pseudo-word wrap. A 'W' will appear on the left side of the status line to let you know that word wrap is active. This is not a true word wrap, so long words will hang over onto the next page. VTEX will simply start looking for a space after column 31. If it finds a space, it will break the line here and wrap the text at this point. Pressing W again will turn the word wrap off. Note that because selecting word wrap (or the delete leading spaces option) will change the size of the displayed pages, VTEX resets the file to start back at page 1 when either of these options are selected. This allows the program to re-build its pointers to the beginning of the pages (which will now be in different positions). DELET