@L@}5 _$% l0$)$$Hȱ$ UhL" `e$$%`$%`  R@P!( L(1   Y I`  d  Ld M * @  $ % CC$$)%1 Udߥ$9%: !0 S$% DD˙`  }J)Lr This is the second in a series of sixdisks containing public domainutilities specifically for SpartaDOS.No two disks conta}in the same file.Disks 1 through 4 contain genericutilities, with each disk having agood assortment. Disk 5 containsspec}ific 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 (th }eAUTORUN.SYS file) to becomeacquainted with the files beforeusing them. Any Share-Wa }re 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. Br }ewer 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 `i}DiE`HhG`Hh`Hh` GIHiDiE B GHI B G` GLH GLEH GLH GLQH}ȱ - ƥĤ180* &H& & &eehe8ȥ 8堅塅` GiDiE}HIB 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%$A}1$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䍌Jt}J "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 ru}nning 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 exec}uting 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 pr}essed 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. Thom3$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 fi %}leF - 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 buffersDis (}k 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]`cmps ,}v8sLw),&Lb)1&Lb)A&Lb)U&Lb)e&Lb)|&Lb)&Lb)&Lb)&Lb)͢&Lb)&Lb)&Lb)&Lb)'Lb)'Lb)6'L -}b)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 M 0}L,L)* '$L*Copy from? , e.L-+ '$L +Copy to? . $`DEIB VL(8aa( u+L) }) 1}' $? $ $* $L(Y2y.` $a(#D(( '$* $L(p0DEJB VL(80 2}Ӎx18yҍt8ur0 VL(`0a(ga(#`DaK(1( '$* $L(`: `DEJB V 3}`DEI B V䤿 (`xhyi bҍd8e V (L,ɈLG+L. . $DEIB VL 4}(D: 1`, '$L-Multiple copy from? ,- '$L-Device to?@DEIB VL(@ 5}Q@DA: A:B8Aa((PDEJB VL(ʩ҅ȩ0ɢP`DEIB V0a` 6}0L.:`  .Ȣ ` Ƞ'L-iȐL- . z0 ' '$L)҅ȩ0ɠ 7}ș`@` G+iȐL)ɛ * ?``BHILV .f' '$* $L(@dD'EJ 8}B V0`DEI B V`i0 B VL.`ԩթ/ '$L /Error #L$ $_(`GHFH` $' '$ [' 9}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.Loa>}d DCOPY.COM from the commandline thusly: D1:DCOPYBy following the prompts, shortand long directories are viewa?}ble,along with a printout of saiddirectories. Several COPY fileoptions are available, along withthe usual file protectio@}n commands. PPإ H HL'x X` 2350 4 FMJJJJ$)I $ Ⱦ>B}ȹ%%&%& &&L @ Documentation for DECPAD.COMDECPAD.COM is a small handler whichallows joystick port #2 to be usedwith the Atari CX85 kD}eypad.This handler does not work withall programs, but it comes in handywith the programs it does work with.Keypad confE}iguration is as follows: Keypress Action -------- ------ Number Said KeysF} Numbers Escape Cursor up No Cursor down Delete Cursor left G}Yes Cursor right - Cursor left Enter RETURNJust load the program from thecommaH}nd line: D1:DECPAD!ﻩ01`pppB0ANNNNNNNNNNNNNNNJ}NNNHGHBFGHBFBHBHGHBHGHGNFBHJBHHJBFHƀJJFBHƀFƀJK}FƀBJGF6erƀBBƀJʀGƀBBʀJGGL}HBNJGJFGFJHJJFHHJBƀHƀƀƀȀƀƀƀƀHƀƀM}ƀƀƀƀ4he$isk#ataloging5tilityN}0rogramand$ocumentationc &red4hompson3alO}uki$rive.orth-arion )llinois0roducedusingP}copyrightedsoftwareproductsof-onarch$ata3ystems#ochituate -!Q}V5.Vz>5WXYZ L" ,Vb c© s) $LS!R}V˜ $ ;,0 s) a"LS!Ņ  s) $ԅ  s) $ n$ !`RUNTIME ERROR AT LINE S}L!B# Q#L` $ LPROGRAM STOPPEDŃł ȱ`iL.HT}H !L& ! $&  }% s) }%8ȱ hhL}%ʥ`i88冕8冕U}憘 Ɔ`Ɔ`u`Huh` L!L L!LV}   k% + k%  ! }%L!   k%  w# + k%  "  !  " s) w# }% !L!   W}  w# + k%  "  !  " s) w# k% C }% !L!  ! %L&`  ! k%Lk%  $& k%X} "  k%  w#L    w#  k% " L % 4& s)bi bcicL}%WXY}Y ! s) s),YeWiX`Y8Ld k% %Y`ʔȱȱȱ !ȘZ}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!a}` $H $h 0 $`LQ#8 0ƅ`66&L$HH` B VhH)Kh)0 IJ'D%EB .,hL!S:D#L!b}TUVL! 1%`B#D#LQ# |$Z8ɰɅ Q#`ʱȱȱ`ȵȵL!L! % }% }%ʥc} }% k% % }%L+ % k% $& $& !uȱuȱu ! ! k%0 #L+ ȱL! #L&ʵd}`eeLdHHhh`ؐHH !L& !HH $& $&6 " hh e}}% }% hh }%`HH !% !HH )L& ! % Ld $&6 " k% "` ! %ޠ k% ) "L&f} L'HB# B Vh`ҩ2ҵ ҵ  !L!HB#BHI .,C#hC#Ls)B#DuEug} !B#IHKJBH VCLdh !L! 1%D#H`B .,h`!(!(Ls)h}L!L! #`H !hLs)(HH eHHƆeiH %lꦆ s)Օ`0  L$i}`8`(ԍ$($ $ s)'(Ls)('(`q) ! %p)r) s)9 Ɔ채+K-p)L]j})80r) .9q)2q)Ld r)C# ) $& ) ) "C# s) "Ɔеp) #`ʕ`66`HHHk}66666uuuhhhL! #愵  # I s) '*8l}0/66&&&`uuu` '* 4*Ј 4* ! #`/+h*i* 4&g*h*g*h*m}i* Ldȥi*ig*h*/+`La"+h* +`Ldi*8g*ƅ+ ȱi*g*h*`n} +L*+L*H/+ m*h`1+ %  88L0+ ! !` ! !`o}  ! !` 0+$' 0+"0 0+0 +L# +L# +L#Ls)Ls)7, s) % 4&6,7,:,:,`HB#? Q#B#Hp}I6,D8,7,E9,B .,H:,h` VLd:,` +8, s)9,:,:, s)L;, +:,Ld8,9,, :,:,q}8, s)9,8e8,9,:, s)q)L(  L!hh iL! ,Lj* ,La"7,h*ȱ0r} =-L- =-I-J- L-`i`WXY` p"ȱ%s}8e慱HȱhױYiWiXL!B# BH Vh s)L!B#&BH .,hN s) !L s)ML!B#%Bt}NLMH .,hL!/!!!!!!))"w#)##########!a"##6#E# $5$n$N%$$)%1%@%%%m&&& 'j**( ("(%(2( u}D'$'4':(i''++++++'Y[, D q A,[,;,J(,,((,+K-Y----(5 5 5 5 66^6`6 q6!6"6#6$v}6263374;7<@7F]7Px7S7T7U7V7W7X7d7e7f,8g/8n68oT8p\8xb8{88888889+949w}K9`9r99999$:.:9:?:b:e:r:::::::::::; ;;6;@;A=;Jd;Kvx};L;M;N;O;P;Q<^/<_T<0U<1n<2<3<4<5<<=0=Y=h=w=$=.=== >%>->7>L>Y>n>y}q>w>>>> ? 1? 5? V? o? ? ? ? ? ? @ @& 0@ 4@ ~@ @AABAPA{AAAA"A#A$z}A6B@BJ1BTLBUaB]xB^BhBrB|BBC3C=CJCLC]C~C|CCCCDpADuNDzdDDDDD{}DDEE4E88EBVELqEVE`EjEXE@EJEhF(#-F'WF'F'F$'F.'F'F'G'$G',G'4G'+DJ}}H+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,y}P.yP0yEQ2yQy#RDzRzRz)SzeS {S {S{LT{Tp{T|U}'U }LU}qU2}UF}UP}UZ} V};V}YV,~aVV}}}}O {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 :A314DB33DC143DAg?414D73?+3?14E} =T8141414D/FA3?+3+3 A3 B33DB+14A3A""?3@468}8~8 3 883 |   9+9493}-C3-143 FA3+1414D/.INDB+R4U4 FA*3000A14WA314D/ 14DB3R4FB3R4}FB3R4FB+R4g4FAR4g4FBR4g4FBU4 R4DC+14D/6$314F59A Z $:6%3+14}D/9:P3+3?3Db:3D?+*"+*"+:"Ҡ١P*+44}4*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/14DC1}43FA+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/ "3}D3*:0@3-A* ~@D    ,  ,,RETURN,,@@bADD ENTRI}ES,DELETE ENTRIES,UPDATE ENTRIES,SCAN INDEX,SHOW INDEX,SORT INDEX,CHANGE NAME,SET PRINTER@A+EXIT TO DOS,DISK MENU,LOAD IND}EX,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=xBR43FCR4}3FCR4 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*g4R4DAX4qE}j*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"g4}14DA3H+*3>+*333*R31A14DY=$G4ֿ,G4G*314DA*LM ENTER NEW INDEX NAM}E , , ,MWMnF*gM 5DxF3 zM**3R**M314DUP.SYSA*M N* 3hl} .JM,6,EXIT TO DOS ,{,]O3*314*.*A*M*3DISK DIRECTORYC33DC"*"V?14GAI*3}14D/14DC*V**3_*333**tN]*3*N]8^?36g4GAI3g4FA33D/E =N}333D/ 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,4}1,41,41,C41,41,(41,41,m41,41,=41,41,41,41,741,441,41,41, 41,41,41,31,L}41,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 5}BMA31A3AASG0,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!,CDISKINDX 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 circum }stances may these files be sold, either together or individualy, nor may they be placed on public domain collection disks whi }ch are then sold. However, if you would like to make a contribution to the author (that's me) than please send it to the add }ress 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 Wi }zard and the Princess" into eleven letters). DISKINDX is the culmination of three years of work and I believe it to be the b }est disk index program available.DISKINDX allows you to create more than one index of programs. This is so you can seperat }e the different types of programs you have. I have indexes for action games, adventure games, programming utilities, graphic }s utilities, etc.Entries:NUM DISK SECSDP FILENAMEEXT COMMENTS001 011A 0118D DISKINDXOBJ002 012A 0058D DISKINDXOBJ }003 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 uni }que and two of them are combinations of other fields. They are described below.1) This field is for the disk identificati }on 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 wil }l probably confuse your printer.2) This field is for the length of the file. It can contain any four character combinatio }n. 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 docu }mentation.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 c }opied with a sector copier as being protected.5) This field is for the DOS filename6) This field is for the DOS extensi }on7) This field is for comments. It can be up to thirteen letters long and begins immediately after field 7.8) This fi }eld 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 com }bination of fields 6, 7, and 8. It is twenty-four letters long and can be used as a single field.Sample entries:Entrie }s 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 entr }y 002 after field 0 has been changed. Notice that it is a more descriptive entry and also that field 8 is right next to fiel }d 7.Entry 005 is for a fictional one-sided game. While this is a boot disk you may also enter DOS files in this formatfict }ional single-sided game. The game may or may not be in DOS format.Entries 006 and 007 illustrate how to catalog multiple-s }ided 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 n }otes:DISKINDX has some special modes. These are enabled by holding down a console key ([OPTION],[SELECT],[START]) when sel }ecting an option.1) DELETE: DISKINDX will disable the screen and delete any duplicate entries in the index. The index wi }ll be scrambled and you will need to resort it.2) PRINTR: DISKINDX will send the printer configuration codes to the print }er. (See discussion later)4) SCAN: This selects the SCAN AND DELETE option. It works like the normal SCAN but deletes e }ntries instead of displaying them.5) ADD: If you are in the MYDOS or SPARTADOS mode DISKINDX will allow the entry of subd }irectories. See the section on INDXFIX for more information.You can change the number of the drive the DISKINDX uses by en }tering the number while using the main menu.The DOS type that DISKINDX expects is shown in the upper left-hand corner of th }e screen. You can change this while using the main menu. If you are using a version of MYDOS which shows four digit file le }ngths then press "M". DISKINDX supports ATARI DOS and equivalents ("A"), MYDOS ("M"), and SPARTADOS ("S").The screen blank }s 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, S }HOW, and MENU will assume you wish a hardcopy and will print it out.SCAN allows the use of "?" as a wildcard character. Th }e "?" can occupy any place(s) in the field to scan.SHOW expects your printer to print a line that is 82 characters long. D }ISKINDX is set up to use a STAR SG-10 but you can use other printers. (See the section about INDXFIX for more information ab }out 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 choosin }g 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 en!}try (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) C!}opy 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 properly if it doesn't. DISKINDX is configured for a STAR SG-10 or e!}quivalent 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 wi! }ll 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 D! }ISKINDX 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 i!}n 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 SUBD!}IR.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 i!}s the drive number.)EXAMPLE:Enter subdirectory to read from (*.* for main directory) (STOP! to quit)?D1:>MENU1>MENU!}2>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 subdirector!}y 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 t!}hen 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 SUBDIREC!}TORIES.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.F!}red 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 g!}ame into the public domain as well. $ﻩ01P`pppB0ANNNNNNNNNNNNNNN%}NNNHBHGHBHGHGNFBHBHBHGNFBHƀJJHBJFƀJFƀBƀJ% }F6erƀBMMVBʀBƀBBƀBGBG%!}JFʀVBNGJFHHJBVBHHJBHƀƀƀHƀHƀƀƀ%"}ƀƀƀ3upport0rogramfor$)3+).$8%#}0rogramand$ocumentationc &red4hompson3al%$}uki$rive.orth-arion )llinois0roducedusing%%}copyrightedsoftwareproductsof-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.H%)}H !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}%WX%.}Y ! s) s),YeWiX`Y8Ld k% %Y`ʔȱȱȱ !Ș%/}e惠 惨.r!.s! LS!jemI-mJ- k%вHHhh``%0}`L!ʱ` L"" JLJ !HHl JLw TO BOOT FOR DOS TO%1} RERUNp B V8B#` p"ȱL!8I-J-8凅刐SJj)ee`ф%2}фiiL"8L" LduuuL!8` Q#L!iL!豂Hȱh%3}`p B#L!C#HB# BHIC# ., |$Zh`8` w#L# w##` w#0 w#0L# w#0` %4}w#0L$L#`޵` `Ȕ`ʔ惥u`B#%5} BHI DEH ., |$HyZZhL! Q# |$Z`B#JJJJ`Q$#$ #- $0 $L! $L!%6}` $H $h 0 $`LQ#8 0ƅ`66&L$HH` B VhH)Kh)0 IJ'D%EB .,hL!S:D#L!%7}TUVL! 1%`B#D#LQ# |$Z8ɰɅ Q#`ʱȱȱ`ȵȵL!L! % }% }%ʥ%8} }% k% % }%L+ % k% $& $& !uȱuȱu ! ! k%0 #L+ ȱL! #L&ʵ%9}`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`HHH%@}66666uuuhhhL! #愵  # I s) '*8%A}0/66&&&`uuu` '* 4*Ј 4* ! #`/+h*i* 4&g*h*g*h*%B}i* Ldȥi*ig*h*/+`La"+h* +`Ldi*8g*ƅ+ ȱi*g*h*`%C} +L*+L*H/+ m*h`1+ %  88L0+ ! !` ! !`%D}  ! !` 0+$' 0+"0 0+0 +L# +L# +L#Ls)Ls)7, s) % 4&6,7,:,:,`HB#? Q#B#H%E}I6,D8,7,E9,B .,H:,h` VLd:,` +8, s)9,:,:, s)L;, +:,Ld8,9,, :,:,%F}8, s)9,8e8,9,:, s)q)L(  L!hh iL! ,Lj* ,La"7,h*ȱ0%G} =-L- =-I-J- L-`i`WXY` p"ȱ%%H}8e慱HȱhױYiWiXL!B# BH Vh s)L!B#&BH .,hN s) !L s)ML!B#%B%I}NLMH .,hL!/!!!!!!))"w#)##########!a"##6#E# $5$n$N%$$)%1%@%%%m&&& 'j**( ("(%(2( %J}D'$'4':(i''++++++'Y[, D q A,[,;,J(,,((,+K-Y----(/ / //00;0(B0f0001%K}%161A1L1d112272F222 2'2'3'~3'3'3'3'3'4'4 N%4}Y44%L}@@R}} ?Z/]/D,`/@?+`/+Enter output drive numbe%M}r]/GAI *  0c/WC+4?c/D7`/+`/+ERROR - P44%N}Do you want to1) Create a default file 2) Read SPARTADOS subdirectories3) Read MYDOS subdirectories%O}4) EXIT TO DOS]/GAI *1%1f/'61f/'A1 NL1c/DN:DISKINDX.DATA*%P}XEnter printer codes, up to 15 chars long (If using an EPSON or compatible, type 'EPSON'i/ Enter code #%Q}]/GAI]/DEPSON=2l/BMA *2l/-Ci/72*(?l/DEnter DOS type%R}A) ATARI DOS or equivalent"M) MYDOS (4 character file lengths S) SpartaDOS]/GAI]/DA9]/DM9]/DS9%S}2]/D4c/ DN:SUBDIR.DATA**3'Enter subdirectory to read from (*.* for main di%T}rectory) (STOP! to quit)(?l/GAIl/DSTOP!=34o/l/FC4l/l/D/ l/D/F*.*=3''%U}l/D7'o/D7]/GAI]/F =4]/D'4'c/ D1:DOS.SYSA'?c/D74Z/hl .%V}JOc/@xl/@o/@]/@o/D1:*.*A$37zH`L7`L77777`L777` (c)1983 Action Computer Services  B)X} JKIHiDiELV`L8 8 BLV`L^8Z8l L[8 &` Fj)Y}`8冨凪` 8EӅӥ 8`ʆǪƩ Ɛee` 8ƦʆǢ &Ɛeǐ)Z} 8 8L8 8'&&&8儨児祂*L8&&*ń8&&L8 9`hih)[}iHHȱȱLh8c !#3`L[8JJJJ`H h8h`Hȩh 78)\}L9 @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>)e}=L>=譣=L>=L>=='L>Ȍ==<ͤ=L>.===L>=<ͤ=L?== :==L>A==L>)f}F===M8 =M8L ?==L?===L? v9 ?1? ?IRL@?@LE???? ? ?)g}? ??Ls?`? ?  Y`=8=L? v9???????R ???`L?} z:L? FATPRI)q})B README 1STB BRANCH COMB BRANCH DOCB"DCOPY COMB=DCOPY DOCBADECPAD COMBCDECPAD DOCBIDISKINDXCOMBVDISKINDXDOCB9DISKINFXCOMB#WFATPRINTCOMBFATPRINTDOCB.FD COMBFD DOCBQUIET COMBQUIET DOCB RDNEWELLCOMBRDNEWELLDOCB!RENUMBERBASB RENUMBERDOCB9UPGRADE DOCB%@DOS SYSBBeAUTORUN SYSNT v1.1? :L@# By J. Williams? : x:`L$@L7@Enter drive #: @' : Z;??LW@? L$@)r}`bitmap@ Ll@\@[@[@ \@L@^@]@L@\@[@ 9]@^@^@]@ 88[@宍_@=m]@>m^@)s}_@=a@`@`@`L@>@@@Ȍ@>@@@@@@@@@@ ?@@@@L9C)t}@i @@i@@@ ? ? ? ?LBLA%Maniac eh ? Well only the first 65000A :LA"sectors will be print)u}ed. Make sureA :L B$you have a big stack of paper ready.A : ? ?@i@@i@@@@@@@?)v}@@@@ȱ??@i@@i@@@@@@@LBȌ??LB?? ? ? 9@@@)w}@@?? 8@@@@@@LB@?@@M?L6CL%CBitmap length error.C :@@LgCLVCError readi)x}ng boot sectorC< :@@@`===<0----+----|----+----)y}|----+----|----+----|----+----|----+----CLCCCLD CCCLCCCD FATPRINT v1.0D&)z} : :#LVD`L_D DY :CC :C)~}F=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 dev)}iceH :F 8:F 9#L[H FLqHLeHError=H^ :# : : 7``G(W Documentation for FATPRINT.COMFATPRINT.COM is a printer utilitywhich will print a SpartaDOS diskdirectory map from eit-}her 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.,&f][fname[.ext]] [C/R]TYPE and RESTRICITIOSExternal under CP versions 3.2xREMARKS5}FD.COM may be renamed using any namenot already in use on your disk orin use as an internal SpartaDOScommand.FD.COM disp5}lays SpartaDOS-formatdirectories ONLY.FD.COM may be used WITH or WITHOUT anarguement. It displays files on theuser's sc5}reen in increments of 16until it finishes a directory orsubdirectory. After displaying eachincrement, the program asks th5}euser to press the ESCape key to QUITor any other key to continue. Using FD.COM without arguement: Example: FD [Carr5}iage Return]DIR used -without- an arguement willdisplay only the directory of Drive 1.FD, on the other hand, when used-w5}ithout- an arguement, displays thedirectory of the drive from which itwas called, thus making the drive atrue default driv5}e as with OSS DOS,MS-DOS, etc..With an arguement, FD searches forfiles in the same manner as the normalDIR command. 5}Example: FD D3:DAT>DATABASE.*LICENSE and ACKNOWLEDGEMENTS This program is provided as SHAREWARE.Users may not modify the5} programwithout the expressed permission ofthe author.USE THIS COMMAND AT YOUR OWN RISK!The author provides no warrantie5}s,either expressed or implied,and assumesabsolutely no liablity for theperformance, fitness, or suitabilityof the program5} or lack thereof.This command has NOT been sanctionedor approved by ICD and was developedindependently and without any co5}nnec-tion with ICD except for documentationthey provide in the SpartaDOS Con-struction Set Manual (pp 108-11).SpartaDOS 5}and SpartaDOS Construction Set are registered trademarks of ICD, Inc.FD.COM was produced using copyrightedsoftware product5}s of Monarch DataSystems, Cochituate, MA 01778.Special Thanks to Ron Mullens for hisadvice on how to avoid the need topr5}ess a CONSOLE key to end a programcompiled with the ABC Compiler.[FD returns to the default drive'sprompt immediately upon5} completion.]PAUL FIELDSSAN ANTONIO, TXCIS: 72465,1260GEnie: SAAE*BBS4MPPHHHA OPL9P[[8P8P=; P XPL9PXͥY`͉Pi˥ii9}i`hhhl [˩Piͥi`)˩P̥iͥi`8G Documentation for QUIET.COMThis program turns off, via software,both the keyclick and input/outputnoise.Just load th=}e program from thecommand line: D1:QUIETA screen prompt will show both areashave been silenced.<r8=H=M)|MӍӭp>=pp">=Jp֩00=M)|MӍӽ=p=Jp<=M)|MӍӽ>A}p">ph r;Computer is: <J r;128K - 130XE (64K)LF9 r;800XL unmodified-- No RAM Disk Installed` < r;A}192K - 130XE (128K)LF9 r;256K - 800/1200XL (192K)LF9 r;320K - 130XE (256K) i? ɛ& r;-- No Drive Number SpecifiA}ed`L iw9 ix9 v92" )= v9<$ /ȱ ɛ-E q> ; 8 2 32;A}2ȱ2;;2 ;,y90` r; H<]=)|MӍөBA@*G;@<8<"; @@ A} @@N@,<8< @ @iA6;Ah`MAIN L0 RAM-DISKA}"h;h;;; ;Lz;;H;H`HI BLV >`1=Lxԭ45SA}4?g:q:x:;<<<<;;<<< <8<= &? m6?L> &? ?m6?m7?L>5?>>?A}?>?5?i 5?Lv>??` ? ?`2>;;j@U Documentation for RDNEWELL.COMThis file will create a RAMdisk whenusing an 800XL with the 256K Newellupgrade.Simply E}load the program from thecommand line along with the RAMdiskdrive designation: D1:RDNEWELL D8:This tells RDNEWE}ELL in D1: to makea RAMdisk with the drive number of D8:D;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 BI}(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 II}31040 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=ASCI}(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 FOUNI}D":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 3I}111031100 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)I}=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 I}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 311I}60 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}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 I}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 TI}HEN 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 I}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:? "LOGI}. 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 313I}0031330 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 THI}EN 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(TI}+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=I}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:GOI}SUB 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 I}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:I}GOTO 3152031510 ? "ŠΠŠӠϠؠҠ ͠ĠΠŠ٧ϠԠԠ"31520 IF PEEK(764)<>43 THENI} 3152031524 LIST 31530 ? :? "נĠԠҠ͠":? "ŠǠԠϠˠ"31532 ? " TYPE":I}? "ԢĺŮԢ"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))I}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 INI}PUT 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 3I}1700: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:PI}=P+PEEK(P+2):GOTO 3160031620 IF T+S*J>30999 THEN GOSUB 31690:? "INCREMENT TOO BIG"31630 IF PEEK(540) THEN 3163031640 DIM CI}$(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*2I}56: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):NEI}XT I:? CHR$(125);"àǠ͠"31670 ? "OLD LINE","NEW LINE","NOTES":? "---------","-------","-----":P=R:GOTOI} 3141031680 POKE 559,0:RETURN 31690 POKE 559,34:RETURN 31700 GOSUB 31690:? "ERROR ";PEEK(195);" LINE # ";PEEK(186)+PEEK(18I}7)*256:END 31710 IF PEEK(84)<20 THEN RETURN 31720 GOSUB 31690:? "ŠΠŠŠӠ":? "THEN TYPE 'G'TO CONTINUE"I}:POKE 764,25531730 IF PEEK(764)=61 THEN ? CHR$(125):GOSUB 31680:RETURN 31740 GOTO 31730HZ Documentation for RENUMBER.BASRENUMBER.BAS is a LISTed BASICprogram which will renumber andreincrement Atari BASIC proM}gramswhich have line numbers less than30000.Just ENTER RENUMBER.BAS from BASICafter loading the BASIC program to berenuN}mbered. After this has takenplace (slow, eh?), type GOTO 31000at the READY prompt. RENUMBER.BASasks for starting line nuN}mber andline increments. The program willmake all the changes to your programexcept for references to specificline numbeN}rs inside a line--thesechanges must be done by you--makesure to have a separate working copyto compare the renumbered progN}ram to.To reSAVE your program, do thefollowing from the READY prompt: LIST "D1:TEST.BAS",0,30000 (press RETURN}N) NEW (press RETURN) ENTER "D1:TEST.BAS" (press RETURN) SAVE "D1:TEST.BAS" N} (press RETURN)The "LIST" command gets rid of theRENUMBER.BAS program. The "NEWcommand clears the computer memory.ThN}e "ENTER" and "SAVE" commands bring the program back into memory and thenback onto disk in a RUNnable form.Lm A 130XE-COMPATIBLE 256K UPGRADE FOR THE ATARI 800XL R} by Claus Buchholz I designed the 256K upgrade described in my article, "The Quarter-Meg Atari" (BYTE, SeR }ptember, 1985), in December, 1984. Since this predated the 130XE, there was no precedent for extended memory on the XLs.R } I felt free to implement a system of eight 32K banks. The major reason was to keep the add-on circuit as simple aR }s possible. The 130XE, introduced in early 1985, set a different standard for bank-select memory. It uses 16K R }banks and makes them separately available to both the CPU and the video controller (ANTIC). The XE has 128K total memoryR }. The 64K extended RAM is split into four 16K banks. A 256K 800XL has 192K extended RAM, which requires 12 16K banks. R} I have designed a new upgrade for the 800XL that implements such a scheme. Its similarity to the 130XE's scheme alR}lows use of software for the XE on a 256K 800XL. To select one of four banks, the XE uses two bits, #2 and #3, iR}n the memory control register (port B of the 6520 PIA, addressed at $D301 or 54017 decimal). Zeroing bit #4 makes tR}he selected bank appear at addresses $4000-$7FFF (16384 to 32767 decimal), as seen by the CPU. Zeroing bit #5 maR}kes it appear there as seen by ANTIC. In my upgrade, bits #2, #3, #5 and #6 select one of the twelve banks. ZeroinR}g bit #4 makes the selected bank appear at $4000-$7FFF to both the CPU and ANTIC. So, any program for the XE that uses tR}he extended RAM for CPU storage will work on an 800XL with this mod. Those programs won't use the additional 128K,R} though. Programs that use the video banking feature of the XE might run on the modified XL, but the screen display will R}be wrong. The procedure for this upgrade is basically the same as in the article, except for the following points. IR}f your ANTIC (U7) part number is CO21697, use the circuit described by the first connection list below. If it isR} CO12296, include the circuit in the second list. The circuit requires five connections to the PIA (U23). So, pins 12 thR}rough 16 must be bent up and connected to the circuit. The rest of the procedure is the same. Notice that this circR}uit has one more chip than the article's circuit. This is the price of compatibility. With the 256K dynamic RAMs in R}your XL, be sure to wait at least ten seconds after turning the computer off. Otherwise it may not coldstart R}properly when you turn it back on. My original RAMdisk software doesn't work with this new mod, so I have written aR} new version. It is used in the same way, except that it offers a choice of either two single-density RAMdisks or one R}double-density. If you wish a disk copy of the source and object code, send me a blank disk and return mailer with R}full postage, and I will promptly send it back with the software. Alternately, you may download the software from the R } Capitol Hill Atari Owners' Society BBS at 517-371-1106 or from the Castle Communications board at 517-371-4234. The soR!}urce file is called QMEGXLD.SRC for Quater-MEG XL Double. Also available is a RAMdisk program that sets up oneR"} single-density RAMdisk and leaves the XE-equivalent banks free for XE software. This is quite useful with BASIC XE,R#} DOS 2.5, or the new Synapse software. Its name is QMEGXLS.SRC. I ask one thing in return for this information: PR$}lease pass it around to all your interested friends. Put it in your club's library or on your favorite BBS. EncourR%}aging software support of 256K will result in many interesting uses for it. Thank you and enjoy! R&} DEFINITION OF MEMORY CONTROL REGISTER AT $D301 (54017 DECIMAL) XL MOD R'} 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 R(} D V C x y B R D=0 enables diagnostic ROM D=0 enables diagnostic ROM B=0 enables BASIC ROM R)} B=0 enables BASIC ROM R=1 enables OS ROM R=1 enables OS ROM E=0 enables extendedR*} RAM V=0 enables extended RAM for video abcd is 4-bit extended RAM bank # C=0 enables extended RAM foR+}r CPU - ranges from 4 to 15 xy is 2-bit extended RAM bank # - banks 12 to 15 are equivalent R,} - ranges from 0 to 3 to XE's banks 0 to 3 PARTS LIST 8 41256 256R-}K-bit dynamic RAM (200ns or less) 1 74LS153 Dual 4-to-1 multiplexer (IC2) 1 74LS139 Dual 2-to-4 decoder (IC3) R.} 1 - 33 ohm, 1/4 watt resistor ADDITIONAL PARTS FOR ANTIC #CO12296 1 74LS158 Quad invR/}erting 2-to-1 multiplexer (IC4) 1 74LS393 Dual 4-bit counter (IC5) LIST OF CONNECTIONS FOR THE R0}UPGRADE CIRCUIT Instead of a drawing of the upgrade circuit, below is a list of connections. Each entry inR1} the list begins with the name of the signal followed by all the IC pins that connect together and share the R2}signal. IC3-13 means pin 13 of IC3. The IC numbers appear in the parts list above. IC1 is the 74LS158 chip from socket R3}U27 on the XL motherboard. DIP is the DIP header to be plugged into socket U27. U23-xx refers to the pins you bend uR4}p 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,R5} 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-R6}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, IC1R7}-3 RA4 : IC1-4, DIP-4 A5 : DIP-5, IC1-5 A13 : DIP-6, IC1-6 RA5 : IC1-7, DIP-7 -ER8} : DIP-15, IC1-15 RA7 : IC2-9, DIP-9 RA6 : IC2-7, DIP-12 PB2 : U23-12, IC2-4 PB3 : U23-13, IC2-R9}12 PB4 : U23-14, IC3-1 PB5 : U23-15, IC1-10 PB6 : U23-16, IC1-11 -Zd : IC1-9, IC3-14 -O1a :R:} IC3-5, IC3-15, IC2-14 -O2b : IC3-10, One side of resistor RA8 : Other side of resistor, Pin 1 of all RAMs R;} If your U7 part number is CO12296, do not connect signal A7 above, and make the following additional connections. TheR<} connection to U7 is to a trace on the motherboard that runs from pin 8 of U7. Vcc : DIP-16, IC4-16, IC5-14, R=}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 R>} REF : IC4-4, IC5-1 A7' : IC4-7, IC2-10, IC2-11 Q7 : IC5-8, IC4-5 Q3 : IC5-6, IC5-13JJJJJJJJJJJJJR?}JJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJJP(d M * @  $ % CC$$)%1 Udߥ$9%: !0 S$%VA} DD˙`  }J)Lr J  ((  p L ()   JVB}L= ( L 0q A    IB JC;? D W VC} LL  ` W )LA!  ߰")-݆ p" VD} $G@LL 08`Q")<2Q0 -G$Ș݆ UL# ; p8(()(0ʥ)NQ`VE}$GȘ݆LU )L ݆ L GȘ ݆LL )W>Z   HH)H VF}p h  hyhy D L> L JJ    ! LA*` BFVG}7'8  M HN H` 8 Z  \LdJJ!"! GFE@F (!LVH}EE !E^ ^ E E7EȩEdE/EȩE  DVI} .L }  ;F d  ;?F7F? ( .   Z D LL d VJ} . D  L    p  E` , d)  D L) 0BM݊L݉VK} ML  N݆ L NLML [ TEqEHȱEqEh 0Gȹ GVL} HLL GɛL  LFREE SECTORS G) *Gȩ GȽG GȌ*jj >GVM} C8jJ3j2CD( C202C ԠBX` N 1? l LlD:RAMDISKV[}.COMLu L1 L ;LHL  T`  `1  ɐ     `TU V\} L ? .  t`GBJ ~DEHI B V0dVV]}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEhV^}DEL8HI4 0 HI,0 0  9 .G VLOV_},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHIV`} V0 0`B;DEL`?<0LV`@ʆ v s? F0Ξ05: [ BDEHIVa} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO Vb}STILL RUN DOS B;DE J  (` 9 V⪍ ઍ  -Vc}LLu ÝDEHILV 9 .l 9 .l  `` s$B BHVd}I|DE V BLV nB,DE JLV B V BLVDEIʩ BꭝLu T}$d0L 2L>%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.LkZf}.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(LZg}.L(L/L9/L6/L/L/L/L/L0L0L+0LC0L/L^(Lj(L)'L@'Lo/Lr/LO/L%L'L%L% -膚 ɩҍD҅ 2 22Zh}2 a(2222 ` -Lq -l ԤՄԅ`ȱ`ȱ`ȥ`Zi}ԑȥՑ`ԤՄ`ԤԅդՅ` '0=D '04.5 '0.( '0 ' ' 8`ԅ`Zj} & & & &ѐ & &ʥ %аЪ %Зьɛ &0 &0 `Zk}ԥ`Ɠƒ` % &LS* %LS* %օ0֥0 S*` %eԥe` %La* % % o*L% %Lo* % &L|* %L|* %Zl}L% % Ʌ` BLV䅆L' %ԅ`TU HH 'hhL, B VԩL%p v'PZm}KJBDEL, &fL=) %ԅ`Ę eĘ +L4( % & %` %Ԅԅ`Zn} -``&eԅԥeՅ`L% o(ԨL%Ԅ & %eԥe` Ԅ &ɛ +0` d) ذIZo} ( 8ԅԩՅL%L,ȹɛ꩛` d)f & 8fԆՅɛ摥0LZp}?)$0`2 2L,(,ɛM(M( )ɛ )򩀅` %ԍ`ԄL%Zq}ԄL%ɛԆL% &󅐩f =) ؐL(L4,ԅԥՅL%82ԭ 2L%ԤՄԅե`Zr}8ե`eեe` B* K+fL% B* +fL%8ԨՄԅL% & B*ԥՄԩՅօפԥFf G+Zs}ԥ K+ԅՅԥզЦ`ԅՅʩ0B+=+ B+ 08f$˹ `' d Zt}+1ԦԄզՄFԐ eਊe&Lh+Ԇ`hh L, +Ff&֐ݥ ԆՅԠ&&&8થZu}օԈ`քע +Ե 8`晄 ,L,`GHFH` U,0ɛȄ ؐL,HI h 8Zv}ԅԩՅL%?S, ,򦅩DEBHIL,ɛ +` +` %HI BL,Zw}՝HIB VL,L%B Vú.hh -l. -0dd-8/ i - 0-- ,Zx}@ . ,... + x' $(.Ԏ.8ե ".LO-- , `,ɛD(C` ذ -L- -L 2 -- ,Zy}L- - -L-l lp '8`ERROR- ?Run address> BASIC exitTrace:P8Յթԅ` ,.L, .-Zz}ȘH *h00,)` & ҅ԭ ) |*օեׅ` L,0թԅթᨊઐZ{}```Յ`8Յթԅ`0 ԩ`ԅ`` ' %`BԝK)I JD/ELVS:)H)h yZ|}` & % & %TԅUՅV`&B ,NLսM` & %ԝL՝MN%BL, & /` BHIL, & /`Z}}B JKL, %ԅUՅV & %ԅT`)ҩҊ H) hҘ` %)xԩL% %))Lc&LZ& %Z~})pԩL% %)|LZ&Lc& V0L-$2~2'@'@DDhDDL 2 $ppҠD Z$1@ H$ ?$ $ <Z}G@vD $K@D $5@ !$PD '$5@ !$R22D '$N@hD $Z@D $a@Z} !$ $D $ h9 Z$ ?$ Z$c@ H$ Z$ -$ᢐD <$2}3թ@D $L*3LZ}3ԩթ@D $LY3L3ԩթ@D $~33L3@wD $L3 h9Z}L2 h9 Z$ ?$ Z$@ H$ Z$ -$ᢐD <$ԩթ@D $L43{4L%6ԩթ@Z}D $L/4L%6ԩթ@D $Ls4@D $Ly4 h9L3 h9|44 Z$ ?$ Z$@ Z}H$ Z$ -$ᢐD <$ԩթڅ@D $L4LV5ppҠDԩթ@4z5D Z}$L5LV5ԩթ܅@D $LP5/@ !$PD '$LV5 h9Ly4 h9 Z$ ?$ Z$ޠ@ H$ Z$ -${55Z}ᢐD <$ԩթڅ@D $L5L%6ԩթ@D $L5L%6ԩթ@Z}5y6D $L6/@ !$RD '$L%6 h9LV5 h9 Z$ ?$ Z$A H$ Z$ -$ hD <$ԩթ @hZ}D $z66L6N@hD $L> h9 Z$ ?$ Z$A H$ ?$ Z$ ?$ Z$5A H$ ?$Щ r$LD '$LD !$C@Z} $L6L7LD6x7 !$?@ $L7L 2L6 Z$1@ H$ ?$8 %vD{D $hD~D $ Z$Z}{D f$ Q$ Z$y77ᢌD f$ Q$ppҠD =ԩթ@D $L8 Z$1@ Z}H$ ?$ Z$ ?$ Z$ ?$ Z$ ?$ Z$Q7x8A H$ ?$ Z$ `$FD '$ԩթjAD $L?8 ~; Z$FD !$ Z}$ᢀ K$FD !$a@ $L8 Z$y88ᢧD K$ ?$L8é r$HD '$RHD !$pA $L8 Z$ ?$ ZZ}$rA H$ ?$ Z$ ?$L9 Z$ ?$ Z$A H$HD !$ E$8x9A H$ ?$ Z$ T$ Z$ T$0 Z$ T$ppҠD Z$A H$ ?$ЩZ} r$LD '$LD !$C@ $L_9Lb9L69L 2L$5@ !$OA $$ $y99 Z$ؠA H$ ?$A !$B $$ $ Z$wD K$ ?$Z}ԩթjAD $L9A !$A@ $$ $ Z$B H$9x: ?$ԩթ@D $LH:Z}A !$A@ $$ $ Z$ B H$ ?$PD !$5@ $L:A !$B $$ $ Z$By:: H$ ?$PD !$/@ $L:A !$Z}B $$ $ Z$B H$ ?$RD !$5@ $L:A !$'B $$ $ Z$)B H$ ?$RD !$/@:v; $L$;A !$'B $$ $Z} Z$,B H$ ?$A !$'@ $$ $ Z$0B H$ ?$A !$'@ $$ $ Z$ hD K$ ?$5@ !$E@w;; $$ $`T r$JD '$Z}^D !$3@ $L; Z$ ?$ Z$ $L> Z$A@ !$ $ᢀ K$RD !$/@ $L> Z$)D !$ $ᢀ K$-D !$ $Z}ᢀ K$/D !$n>> $ᢀ K$` Z$1@ H$ ?$/@ !$^D '$8 %vDD $0 Z$ T$ R Z$1@Z} H$ ?$0 Z$ᢓD f$>l? Q$ppҠD Z$3D H$vD K$7D H$ ?$ Z$ ?$? %/@ !$ND '$0 Z$ Z}`$`D '$ Z$`D !$ $ᢀm?? K$`D !$a@ $L? Z$ᢧD K$ ?$ ~;ND $BD $LE?é r$HD Z}'$pA $L?L83@ !$^D '$ ~;R?b@ Z$ ?$0 Z$ T$5@ !$^D '$ Z$1@ H$ ?$