@L|}6CD l0C)HCC WhL/h `CmCDiD`  R@W1  Y0@R !L` D  C D     )16CS S)  C)D1 p p 0 C9DI pCDL~CiCDiD` D  C D     )16CS S)  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙` d J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLL&0") $G% }H0 3S8`G ȱG ȱG   Gȭ Gȭ GG}GHiH8(()) G$H% `(0 })8` d)L ݆ & LGȘ ݆LL d  ! LL d)N>Q  HH) }  hyhyB q L> Lm JJ  Ln*` dB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 1 L   Ll  Lg E`L   !L)  q 1L}) `L0AM݊L݉ ML  N݆LLLNLMLHG!@}1F GȱGLLEEȩÑEȑEEȑE Ed E7EȩE  q} L !,0,0SGɛ L 1 !L EHEh W G gLLSROTCES EERF } G) *Gȩ GȽG GȌd q q G`  8   0G  `D}CEDC0X:Ȣ Y ȱC* ? 0.. , 0%n ?A[ 0 : L`L  `, 0`Y}`piH n0)բY? 08`0 }  0$L GGȽG L `8L`L}8`  05G)݁,G)ȱGȱGHh0})Hh` B! 8`8iiiLE`}E8FEh( l0`ɃLL L8^~jj8jHi hEEEiEȱEiE` dTE} H8EEȱEEȩEh J E8   . m  i`LI!)E1FR}1LJ舩9GIH`LJJ`HGHh l`} S gL   8 rii `дCDCG W  }C  Lq` X٨`DOS SYS IIIIIIIIIIIIIIIC`0 ߩ0}}} HE |||DDOS DOSDOS SYS }}}}CDOS SYS} 0`BDELV !B }`LVUQ   ]   TU J ]L!T  #      TU  } L ? .  t`GBJ V~DEHI B V0dV!}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh"}DEL8HI   0 HI,0 0  9 .G VLO#},0 L4*IJ`llD1:AUTORUN.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI$} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI%} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO &}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -'}LLu DEHILV 9 .l 9 .l  `` s$B VBH(}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL)}1u H232435; 1 ;  hh@2 e1i1LHҍ 00) 08 109hh@ Ҡ2e*}1i1232435ޥ<<8} 3E:}DISK OPERATING SYSTEM II VERSION 2.0SCOPYRIGHT 1980 ATARIA. DISK DIRECTORY I. FORMAT DISKB. RUN CARTRIDGE J. D,}UPLICATE DISKC. COPY FILE K. BINARY SAVED. DELETE FILE(S) L. BINARY LOADE. RENAME FILE M. RUN AT ADDRESSF. LOCK F-}ILE N. CREATE MEM.SAVG. UNLOCK FILE O. DUPLICATE FILEH. WRITE DOS FILES9!&x#!7&p))'&X*./)L''-؆莟.}R'S  vW DEHHI 1A#! @ ~0ɛ8A0.) ȅ 1 1i/}il ! 1L NO SUCH ITEMSELECT ITEM OR FOR MENU! 0 .{z:*{}.|~ 1 0 00}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILE1}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBH2}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L 3} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:4}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: B5} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#6}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%7} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C}//3Hu ξL/L DRIVE TO WRITE DOS FILES TO?WRITING NEW DOS FILESTYPE "Y" TO WRITE DOS TO DRIVE 1.?}D1:DOS.SYSERROR - NOT VERSION 2 FORMAT. , &* բ( 1L `[) 0NΞ 0 L1M) 1@} L BAD LOAD FILELOAD FROM WHAT FILE?) 0 0#B 1L WHAT FILE TO LOCK?) 0 0$B 1L WHAT FILE TO UNLOCK?DUA}P DISK-SOURCE,DEST DRIVES?TYPE "Y" IF OK TO USE PROGRAM AREACAUTION: A "Y" INVALIDATES MEM.SAV. h  ,B}  `)  <0 2 2 0  ,   ,,ޢ* 1L ,K* 1 ~0 0C}FINSERT BOTH DISKS, TYPE RETURNERROR - DRIVES INCOMPATIBLE., 1 ~038  , 1L D}, &*  Lz+, 0 , 1 ~0 + Y,0!,0 ,L+ ,mm  v,"ǭE}0Ξ, 05,Lt+L +,Hh` NOT ENOUGH ROOMINSERT SOURCE DISK,TYPE RETURNF}INSERT DESTINATION DISK,TYPE RETURN`    `L,8,0( rG}L1(`ߢ) 1* 1 ~0Y`hhL S SL1) 8`NAME OF FILE TO MOVE?- 0 0|DLtH}% A., 1 <0 0 .@L# .BJ 1  DEHIB V L1 ,5 1 <0,L. I} JB|,A#Pd#DE 1 HI BDEHHII 1 B 1 , 1 <0,0Lf- B VJ},A#P, 1 <0 0L#L ߢ) 1* 1 ~0Yj383}mm ݭK}}`8}``|* ? ɛ,`|:(|/ 1L `DESTINATION CANT L}BE DOS.SYS0 0H{ $22Δ $28/L /) $2 Π $2 0 ξM}hAΞB,0 J 1 BޝDEHI,HDE 1HIHIDELSAVE-N}GIVE FILE,START,END(,INIT,RUN)O X0 1`BDEPHI V` X0H 1 L O}0 0 1L0`PLEASE TYPE 1 LETTER,0`hhL <0 1L0LA1 ,;ɛ7,"ɛ:ݦ1ݥP}A"D|ݤD|ȩ:|ȩ|ɛ,,(/+.ީ1 1,ɛ`轤{Q}NAME TOO LONG B VL ` L1I H1EӝDL1|mDiE` V0`8d/8 i:"2!22 1R} L ERROR- 128ɛ+,' 20*.. өw2 1``2TOO MANY DIGITSINVALIDS} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4uT} HEXADECIMAL PARAMETER800 0 8 00`,0'D800H,ɛh`2L1NEED D1 THRU D4u8K8P?@     Y`  Y0 l `8LRS:H` B V`BDV}EhK)I JLVUVT`H 2` BHIhLV }}~ɛ  ;} 2 ` GR.0:RUN"D:MENU" W}  \`bb D:MENU" jJKs)ZNNNNNNNNN1N3CFFNCMDFNDROFZZAMLRIRDFZ Y}  Z} !"# [}$!!MENUPLUS BY PAUL MARENTETTEGGVERSION COMPILATIONS AND MODIFICATIONS BY MARK WEBER -@ \}A o6-6-@#6-%+6-%36-%;6-%C6-%K6-%S6-%[6-$g6-AUo6 ]}-%7';,;,;@,;@d$,-6-7 @`(\(>:A%,0@-0@T( ** MENUPLU ^}S ** ΠY(\$2*-&@-#(>:%,' *$<FH@!@@9-6.D:*.*8 _}B @@H6-PS A0B:, %'6-&I( 7<, FREE SECTORSS A0ZB6.7<,67, `}.7,267$%<$%,.7<,8 B( d5 > &'P:',+(5 A nQF:@,"@( a}C("PRESS FOR REST OF DIRECTORYGQ @@x 6-% @@( 6.6- b}U,($R - RUN K - LOCK (*) D - DELETEU($L - LOAD U - UNLOCK N - RENAMEV*("E - ENTER P - PRINTOUT Q - QUIT c}V(C - COPY B - BINARY ^ - FORMATB!(M - MAKE AUTORUN.SYS FILE?(PRESS TO RUN AGAINB(6-F:@ d},&L A( COMMAND? *K:1)6>(>:,L"@p"@gA3"@A5 e}"@fA5qq@*@u*@h*@v*@*@x*@i*@*@*@ f}wA"@+"@"@g A3"@w A -"@6 g}-#P:- @p/ @P A+(FILE NUMBER =>/( 6-A:, A ( )!AG6.7$ h}%<$%,&67B:,%,..G67B:,%,.7$%@<$%,7<,4 6.7<,, 6.D:-B:,,7<,4 A i}`67B:,%,.7<,& "@#4 D:DOS.SYS&."@%"@v""@iAP j},="@h6-@3)6.DELETE ,(=(? (Y/N)69"@h A@%@/ @P9 A@@ k}"@u6-@5J"@6-@6T\"@x6-@2(,(NEW NAME0@67B:,%,.,N67B:,%,. l}\6.RENAME ^$ A`$ @ph F:A,AgA r] @P;(>:AS,FILE IS LOCKE m}D; DO YOU WANT TOS(IT ANYWAY? (Y/N)] A@|#@ @P# A@6 A "@3,@6 n}6 API@6#,67,.?@5I @p2((>:AS, * INVALID COMMAND o} *2 A0; @P;(>:AS,* ERROR IN PROCESSING  *)-A  @P) A@  p}K:) $b @P(.( ...JUST PRESS RETURNQ(ENTER >:@4,>:@4,_-&@b q}5;@ ,;A ,/@5(}(NEED INSTRUCTIONS 4Y A0 4N A0 r}..@@ D:AUTORUN.SYS\Y Q}ŠŠàĠŠĠŠԠ s}\( ,-@@"(*@, *@AU *@AU*@ t} *@@*6-@a%B:,&@4*@>*@@H-@@aR u}"\)"@*@B:,) A!`f*@p z-B:,@6@*@@:7<,, v} *@AR*@@*@AT*@@*@AU*@ w}@*@AU*@A#@ @ ii255,255,0,56,75,56,169,80,141,0,3,169,1 x},141,1,3,169,63,141,2,3,169,64,141,3,3,169,5,141,6,3,141,5,3 ii169,0,141,4,3,141,9,3,141,10,3,141,11,3,169,12,141,8,3,32,8 y}9,228,16,1,96,162,11,189,0,5,157,0,3,202 ??16,247,32,89,228,48,6,32,6,5,108,12,0,96,226,2,227,2,0,56 $$169,18,141,33,3, z}169,6,141,34,3 ))169,10,141,128,6,76,105,243,251,243$ ''51,246,33,6,163,246,51,246,60,246. &&76,228,243,0,172,128,6,24 {}0,9,1858 $$60,6,206,128,6,160,1,96,140,33B &&3,169,228,141,34,3,169,155,160,1L 96 5 (}5('This program will crea |}te an ή //('disk file which will load automatically ..(&at power up. This version supports the $$(850 INT }}ERFACE when executed. --(%The AUTORUN.SYS file enters a command ((( line for ATARI BASIC to process. --(%This featur ~}e allows automatic loading (of BASIC programs. //('ŠƠàҠРź (( 1. LOAD DOS } ''( 2. LOAD AND EXECUTE AUTORUN ))(! 3. INITIALIZE BASIC CARTRIDGE (%( 4. EXEUCUTE BASIC COMMAND((  }(ŠĠź jj  GR.0:PRINT>:@4,PLEASE WAIT WHILE LOADING>:@4,:RUN>:@4,D:MENU>:@4 }, &&(ԠӠŠ ++(#DON'T FORGET YOU CAN PROGRAMS $ (PRESS TO CONTINUE$ }$ $ @P A3$ A3 p1;@0,;@,;@,;@,V6.hhEhDBHI V` }l(FILE TO BE COPIEDp L3( INSERT SOURCE DISK, PRESS >:AS,7@6-C:,L6- I 6-C:,#@ }@.6-?:<,:6-I6-F:AQ, #@*A6# A3 r@C(%INSERT DESTINATION D }ISK PRESS >:AS,G[%@@r%@F:AV, S%@"F:AW,1@@< }6-?:<,E(DONEP@S% L (FILE TO BE COPIED CANNOTF(BE LARGER THAN I:, RAMI(L$ )#(MULTIPLE }DRIVES MAY BE USED&()$ ;@,(} C.(&INSERT DISK TO BE FORMATTED IN DRIVE 1?( PRESS C ++A }T@D1 7(FORMATTING COMPLETE3(FORMAT ANOTHER DISK7  4Y A5  4N  }A5 > (}&(PRESS R TO RERUN PROGRAM:(PRESS Q TO QUIT>  4R%  4Q A5u  + , };@,(((ENTER D:FILENAME, D 67B:,%@,.>:AU,2AU4DAU5A P 6-C:,6-P: }'AV,)AS?AR&AV$P6-?:C:hL,, D:MENUPLUSFZ PQRe z BABUECSTARSIZLINSCRSECTOAMMBUFFEOPCOUNBUFHBUFLSECHSECLRESUL} } F;@ ,;@,46-+I:,&A,F;,;A ,?67,. '67@<@},. ?67@,.7@,oAdA'Ae@29Af@KAf@]AgA(o}Ah@2$$(THIS PROGRAM TRANSFERS FORTH<''(INTO TEXT FILES, AND VISA-VERSAF%%(USE TEXT FILES TO EDIT FORT}H!K(NAME OF TEXT FILEP""(WHAT IS THE FORMAT OF YOURZ''(FORTH,1-1K SCREEN 64 CHAR. LINE_=#(2-1/2K SCREE}N 32 CHAR. LINE'=01*02@d( START SCREENn;6-@6-@d#42/6-@;6-@2}x+'(1-FORTH TO DOS, 2-DOS TO FORTH+41A42A A FORTH TO TEXT FILE11(})INSERT DISK IN DRIVE # 1, TO READ SCREENS1( # OF SCREENS1$$A(!A$6-@%$6-$$6-C:},'6-@-@' A@6-%@6-%A( K(CREATING TEXT FILE -G($INSERT DISK} TO WRITE TO, HIT RETURN K"+@+@@,-@+$$A(,'66.7$&+&@},<$,@ 6-B:,J,7<,4 "6-&@, A0T)(@7@<,) APY(@^ }@TEXT TO FORTH-)(!INSERT TEXT-FILE DISK, HIT RETURN- @@6-} A@!@ 6-B:,6-$%@("66-%@@ A@&6 67<%&@,.},6-%@6 A@0. 6-.7%@<%@,4 A:,7<,0 "6-&@, ApD'"}6-'CANT FIND BLANKNL#67<%&@,.7@<,46.7%@,B6-%@L AEX6@6-'}@%P:,66-P:,%@bN(INSERT DISK IN DRIVE #1:( TO WRITE  SCREENSJ( HIT RETURNNl$ 6-$6}-C:,$6-@%$v'6-@-@' A@6-%@6-%A( 6-P:'AV,}6-&$AVArAs!Ai@!Ap6-P:'AV,6-&$AVA}xAy6-?:Ad,$ D:EDIT4TH.BASOUNBUFHBUFLSECHSECLRESULA SIOFIX AtariWriter/1027 "Sleeping Printer" Solution One of} the more annoying features of the Atari 1027 printer is its tendency to "go to sleep" for almost 5} minutes while printing a page. Most reports of this problem to come from AtariWriter users, but the "timeout}" condition can also occur while running other applications (ie. BASIC, AMAC, etc.) The cause of the problem actuall}y lies deep within the Atari OS. SIOFIX is a short (1 sector) AUTORUN.SYS file that prevents a "chain reaction" }of events that would otherwise cause the 1027 to pause for 5 minutes. (See Problem #1 below, if interested.) To install} the fix, download SIOFIX.BIN (for TSCOPE users or SIOFIX.XMO for HomeTerm), and copy the file to your AtariWriter bo}ot disk as AUTORUN.SYS. When you next boot Atar}iWriter (or whatever application) with this disk, the 1027 will rattle along merrily without snoozing on the job! } For the technically curious, here is a brief description of the OS bugs that cause the timeout: PROBLEM #}1: The OS, _very_ infrequently, will generate an incorrect checksum for an SIO data frame. This is caused when a VBLAN}K (NMI) happens at a single, vulnerable point in SIO subroutine "SEND". This is the pertinent code: (Addresses matc}h 400/800 "Rev B") EA6B SEND: LDA #SUCCESS ; Assume success ... EA7A LDA (B}UFRLO),Y ; Put first data byte EA7C STA SEROUT ; Into Serial Output reg. EA7F STA } CHKSUM ; Initialize checksum The bad checksum is generated when a VBLANK occurs immediately after the STA S}EROUT, allowing POKEY enough time to generate a Serial Output Ready IRQ causing the second output byte to be sent before }the checksum has been initialized. The simple fix (IF we could easily modify the OS) is to reverse the order of thos}e two instructions. Here is the correct code: EA7A LDA (BUFRLO),Y ; Load first output byte } EA7C STA CHKSUM ; Initialize checksum EA7F STA SEROUT ; Send first data byte } Since we can't easily change the OS ROMS ourselves, the essence of SIOFIX is to prevent the bad checksum from being }Z[[COMPNORMCOLATSFXNSECERWIDTHEIGHBORYNSECLOCPESSYDAMAFEEFMES} }. VE}RSILABEL 1.2!!. by Bill Cummings 2/83 HH. PRINTS DISKETTE MENU ON ANY SIZE LABEL IN ANY OF }. 128 DIFFERENT FORMATS  f;@,;@,$.-6.fCOMPRESSED AND NORMAL PRINTER FORMAT CODES }FOR OKIDATA )6-@)NUMBER OF PRINT COLUMNS88ALTER THE ABOVE TO SATISFY YOUR PRINTER4}6-@4NUMBER OF LINEFEEDS BETWEEN LABELSf<;@,;@,;@,;@r,;@,G@}f@@KP6-@! A0$@C@@PP(@!!(} } ̠""( by Bill Cummingsj-@@ @'=(WIDTH OF LABEL IN INCHESAR6-P:}$@,^!@j6-@a-@@ @(4(HEIGHT OF LABEL8I6-P:$@,U!@a6-@}6&(DRAW LINE AT TOP AND BOTTOM? 0 A@66-.6-.(SHOULD THE LABEL INDICATE: J(LENGTH OF EA}CH FILE? *6-@4 A@:6->J6-@#D!(WHETHER FILE IS LOCKED? + A@16-6(D6-&@&}A6-P:',56-P:+$@e&$%@,'@,A@@'%((LABEL TOO SMALL% @'('('.SYS' FILES? ! }A@'6-2'('.DAT' FILES? ! A@'-<56-%@%(FREE SECTORS? / A@56->E A`(}6( FILES DIDN'T FIT ON LABEL9(E6-AX+(#ENTER DISK TITLE OR FOR NONE/I6-%@&&@$X}4@gB<6-&@$ B:,(2(TITLE TOO LONG< @eC @@9Dj 6-$ @@(D(} A MAXIMUM OF  FILENAMES WILL FITj(!ON A LABEL USING THESE PARAMETERSE#(#(CENTER LABEL IN PRINTER,Fm!(INSERT} DISKETTE, AND HIT:9( TO PRINT,[( TO CHANGE PARAMETERS, ORm( TO QUITH$)@$"AU}@K"@:P,@%L("@:Q,(@% B(M @rP)6- A)6-@Z}N6-@ A0 B:,* APB(@TITLE: N6-@dj A @;@@}D:*.*E BR6-6@^6-j6-n1 A @1B:, @Aon#67@,.7}@<@,;67@,.7@,@(Y67@<@,. nKILL SPACE AFTER *p(-@@ $7<,0} ( sN6.7@<@,$0 /67,..@67%@,.N6-%@x(*4DATA(*4SYS}A -@67,.  067@,.7@,067@,. ! "6-%@! AA6}-%@P:',"')(@3 APA6-%@ 6.(6.7@,)(@6-%@) A},B@(@# AP'4(@B6-%@6@ 6-&!%-@16-A<(@}@ @6-A  AJ$-@ (@$ T @b? AP-@$-(@}_1 <(@?$+(!(CAN'T ACCESS DIRECTORY+ @p 9("(PRINTER NOT OPERATIONAL9(FIX AND HIT } $)@$AUA0 1@-@@P1 >AdAU")@>@}:Y,*@:N,A@%&@:N,6-@"(YES%$6-(NO$; A06-AP'-@7}(@ ; $p,-@@)(,$ D2:VERSILBLAFEEFMESXLM BDSHEXASTARAMMLOBUFFESECTOPTHLBYTBUFHBUFLSECHSECLRESUL} }DIETY BY WILLIAM VOLKCOURTESY OF S.P.A.C.E22SEACOAST PERSONAL ATARI COMPUTER ENTHUSIASTS,,}THIS MASTERPIECE MAKES A BASIC PROGRAM++THAT WILL 'RECREATE' SECTORS, ON DISK55THIS ALLOWS THE SECTORS TO BE SENT OV}ER A MODEM--IN THE FORM OF A 'LISTed' BASIC PROGRAMHHWHEN THE CREATED BASIC PROGRAM IS RUN, IT RECREATES THE SECTORS!}!! XXTHE PROGRAM WILL PROMPT YOU FOR THE STARTING SECTOR, AMT & NAME OF LISTed' PROGRAM R&;@ ,;@,;@},=6.0123456789ABCDEFR6.D: 0.ASCoAdA'Ae@29Af@KAf@]}AgA(oAh@2""(THIS PROGRAM LOADS SECTORS<""(INTO MEMORY, AND CREATES AF33(+ A BASIC PROGRAM} TO RE-CREATE THOSE SECTORSP( START SECTORZ6(HOW MANY SECTORS 1-80"6!@@_--6-F:AD,%}AV$F:AE,%Ad51()INSERT DISK IN DRIVE # 1, TO READ SECTORS5n 6-6-x-@ A@}6-%@6-%A( ::(2}A NAME, FOR THE 'LISTed' BASIC PROGRAM, THAT WILLa( BE CREATED, AND RUNB}(!IN ORDER TO RE-CREATE THE SECTORS[(YOU PREVIOUSLY NAMED^(a('#(THIS COULD BE D:MOONBSE.ASC'''(CREATING BA}SIC PROGRAM NAMED "?AA)"@?@@ , AP6 6-@))-A0$@}@%A)@J(@ DATA T_-@@2 6-F:,16-P:'@,C6-&+$@,Q6-%@}_6-%@^(@7<,7<,h6-%@ r(@| @X11THE PROGRAM TO} CREATE THE SECTORS ON A DISKb<<LINE TO BE REPLACED WITH CORRECT ASSIGNMENT STATEMENTSlL-6-F:AD,%AV$F:AE},%A36-96-?6-L;@d,qoAdA'Ae@29Af@KAf@]Ag}A(oAh@v-@$@"-@@25!6-@:7+$@,&@,,56-@:7$}@,,['6-+&@H,&+!@d,$@K6-+&@H,&+!@d,$@[6-%$@ 6-%@}    -@* A 46-%@>6-%A(H   6-P:'AV,6-&$AV}ArAs'Ai@'Ap@6-P:'AV,6-&$AV AxAy}6-?:Ad, $  6-6- -@ A  6-%@6-%A(   6-}P:'AV,6-&$AVArAs'Ai@'Ap@6-P:'AV,6-}sent by sensing if a VBLANK occured at this critical point. (See SIOFIX.ASM if you're interested in how it's done.)} PROBLEM #2: According to the Atari SIO protocol, when a peripheral device detects a bad checksum on the data f}rame it may either reply with a device NAK ($4E), or it may do nothing and wait for a retry. If the device does noth}ing (as is the case with most Atari peripherals), the OS will resend the request within 50 milliseconds. However, if the} device responds with a NAK (as does the 1027), the OS currently ignores it, sets up the device-specified timeout, an}d waits for a COMPLETE ($43) from the peripheral. The OS fix for this problem is to remove (NOP) the two bytes at $E}A61. This is the affected code: EA5C LDA #$FF EA5E STA ERRFLG ; Set some er}ror flag (EA61) BNE GOOD ; ** Remove this line ** EA63 BAD: LDY #0 ; Set WAIT }error flag EA65 GOOD: LDA STATUS By the way, both of these bugs have existed in ALL v}ersions of the Atari OS, not just in the 800XL OS.Submit file busy; please wait.Have submit file!Key to continue}: sions of the Atari OS, not just in the 800XL OS.Submit file busy; please wait.Have submit file!Key to continuex    (`12 h12e1iHlLIUNT+1:GOTO 540560 A=LINE:IF C$(A+1,A+1)=" " THEN 590570 IF A THEN IF C$(A,A)<>" " THEN A=A-1:GOTO 570580 IF A=0 THEN A=LIN}E:REM CANT FIND BLANK590 E$(X,X+A-1)=C$(1,A):C$=C$(A+1):COUNT=COUNT+1:GOTO 545600 CLOSE #1:SCRS=COUNT/16:IF INT(SCRS)<>SCRS} THEN SCRS=INT(SCRS)+1610 ? "INSERT DISK IN DRIVE #1":? "TO WRITE ";SCRS;" SCREENS":? "HIT RETURN";:INPUT A$620 AMMT=SCRS*S}IZE:BUFFER=ADR(E$):SECTOR=1+START*SIZE630 OPR=87:FOR I=1 TO AMMT:GOSUB 4000640 SECTOR=SECTOR+1:BUFFER=BUFFER+128650 NEXT I}670 END 4000 BUFHI=INT(BUFFER/256)4010 BUFLO=BUFFER-BUFHI*2564020 POKE 772,BUFLO:POKE 773,BUFHI4030 POKE 769,1:POKE 770,}OPR4040 SECHI=INT(SECTOR/256)4050 SECLO=SECTOR-SECHI*2564060 POKE 778,SECLO:POKE 779,SECHI4070 RESULT=USR(1664)4080 RETU}RN IM B$(20),A$(7):BUF=(FRE(0)-1000):DIM E$(BUF),C$(120)15 E$(BUF)=" ":E$(1,1)=" ":E$(2)=E$(1)20 POKE 1664,104:POKE 1665,3?jnRZ[bT@U V RJXYgT@U V R Vi) }L>@S:LB ś ś ś } ś ś ś ś !} ̛ ̛ ̛ ̛ !} ̛ ̛ ̛ BY BE!}LATHIEL WITH HELP FROM FRIAR JOHN INSERT DISK THEN PRESS Λxԭ)ө˩B̩ͩ!}؅΢ˁͥi˥i̥iͥil ۰9 Hڢ D ۰!H hم٦0hL`.Eh+!}-X ۰7H ۰H ehe ۥ Iihe+- ې08H*hj !}ۥiD ܰ  ` Qک0()?(E$8? p .L L٩` p 8逮0!}iE ܄ 8-+ ܢ8 i H h ܭ0 ii ܠ-`ԅՅ D&uԕ!}ةBLܩ0fCb8@?i ZڰS ZڰF ZڰAee2 ei$  iiԥ`8`!}Ԡ``&&`I))8Դ0 >E0uذLܩ :ܩLܢ8! }LܥI8ՕLܥE> 8@8e08 ܥ)0 LڥJJJJ0 L bץL D`8` 8i@0 ! }LNۢՕ 8ؐ ٠8ؐ е bL ۤȄ` `80 `! }H ې.+-h8` ې . ېh`ՠ66666&`ڢ.`)q` D! }`ʈe` ԕ` 8JJJJ ܵ) . ` 0` .0! }` ۥ)`8`E)F)`ԅ ( ۥ) 4 D`ߠߠyʈ`!}`` ݦ - ڰ(ii fڰ  0```!}`ԕ` ڰԅ)8@0&j ٥ԅX ݢ `ک M @ ڥ#j!}i@0 ڥ ݢ (`8`==W3>Tvb>2b'?h`06?2'A?%C4Vu?f'70P@U??CBH@ ݦ f!}ڢ ݢ ݦ `ڢ (`8`ԅ8@ ) (ۢf ޢ ک r @ݢ !}ڢl f ݩեIi $ԅ fڥ (`@"wf?P?IWQpIG?9 Wa9cU? 0d? 9`?BXGB?7?!}()q?D>DIh8E?hyx? )D?@ (1V?wD3331??xS442Phfffffff!}>`<|fl0fF68of;p88pf< 80 0 ~~`0 0```nf>ff~fff~~f<flxxlf`````~cwkccfv~~nf!}8pp8?ww!}<~~~<x`x`~<~~<0~0 ~ <~~<<>f!}>``|ff|<```<>ff>>ff>|``|fff8<<``lxlf8<fkc|ffff!}ff>|f```>`<|~ffff>fff<ck>6f< x~ 0~<~~<~x|nf8x83=!}3``nf>ff~<ө<ө2A`B`!'}L7 6(ҩmi:; < =:2i4354 ?6L 6 j u? !(},p? j ?0070Lt _B0`?>2i435< 0>A!CE000Ɋ?!)}0`0 1;:2 ҅1L: _`H232435; 1 ҩ;  hh@2 e1i1L; :)!*}h@1890 <ӥL9`0`Hҍ 00) 08 109hh@ Ҡ2e1i1232435ޥ!+}<<Щ82m43m 5`.̍ҩ  0 4ӭ j kL 0x 4ӭ j u !,}  0<L `-2 ` Ҡҍ2ҩ% L1-2 2ҍ ҩ% ҩ(ҢAҬ!-}`ҍ`%Ң`jj)?j)` k `    8 8 }i!.}mJJJ 8)i 8}}`|08|`i`Lx%) Ԥ   aXL )!/}0 Ԥ  ̭ҭҩҭ2ҩU2ȑ212i23i3X` _<Ӎө0XL &'x \!0}X`CT eu$F`1F!@WS   Y`S mF!!1} mȱȱ򈈌 ```}~S  Y0 ` ` ɛ` !2} Y` ޠ`@S@ ``W+N(DS  `Nݩ!3}`+>*) 9`? X0$4Ӡ@* \*=L` X0̍ҩҩ` h4ө \!4}**=`?03==`R 0= L?`==` =``0<`= !5} 0 L2@iЩР@ i  `%H$H` `#!6}@R>  Y`UW `P0C@ESK }ATARI COMPUTER - MEMO PADBOOT ERRORE:xDxآ ? w!7}(r s DR'S% X  <ర !8} 9BDE J VL%  ) D )l )ll 0L*!9}HH`lllI Ii`Нԝ`T67 !:}  , < L n e kbT@U V RJXYgT@U V R Vi) !;)J` ) ~`S S`    K`@BC  ii!<}A   KЮK l ~ `BiCill DE BH V`KLzR S` ) `!=}J>K } KJ  `l)j@`+)*)*W/Lҩd{!>}j`WiLQjeE( !o)?gjjj)g ! odXeY z udedhei A !?}fW -*)' j ` B  efffQQ W]j8  O Q Y X Q @ p !@}p d0e1p dehdie1 0 LH h`*) R" //L! 2 L4 Gd-FoJ!A}` } L!ɛ 0L! L!TZ****)) GFo L-PI1dPd` ]W I !B}LL` k4TlUm Lɛ cq LP lTmUkk L0 L 0 !LLld !C}  L de !L*JbX| ɀɁ ILɂɃ!D}@ЩɄОɅ L&|@a{ |L ML4`TʆTL\TTͿUU0RSUL!E}UUSRL deej cmTVl`cR!UR s UST   L UR 4 c !F}%LcLcL } cH hc }H }hLD λ0TL GdheicH hcTͿ hڠh h L!G}8 {RU Gdhi(feiigT N L QTT8 #ix(  RU G L ` L0+d!H}L0d8dee dL`THUHVH Tfgf &gQg &g &geQfgmgW0f&gL~U0 FVjnL!I}effg8nfedd^geee_ohVhUhT`}cUVUWݍ S`VW0cQ }& 0Lw 4T!J}ix %} L} VTW${T& }ɛ8 lΝ8ﭝTL8ptpquq`W !K}'SSWT*( VVU L` Lhh{ L4]^`H)nhJJJ`...` n` !L}nI=`Tix %n8`W****))`eGd'fPhfPdeidhfi(fg` "iy( 0T!M}Tix(LRU G'd` XdYe(djedddeejLcTQQ " ci(cQLceUc` cHlTmU!N}k{T USkL9 kcRT kcR USTkhc ` QlRm`cRT cR GS8RdL!O}`-`T`T` L4 THTh{I{`Ў `{WRU`XdYe`"!P}`获T`UaVbyz8`Zv yvIiv8a[wb\xzwIwxIxwxspZTw訥xu wvv!Q}~tHuJhjp~LBpevpqqupt TeyT zrewrsexsu'rt$zUUV VUV z / !R}TH hT  L  8~~0LL4 4d //__aaaa ''OOAAAA !S}((PP@PPP 00``0 @ (ʔFy}~02- m7@ ` @!T}`lj;k+*opui-=vcbxz436521, .nm/reytwq907~8<>fhdgsaLJ:K\^OPUI_|VCBXZ$#&%"![ ]NM?REYTWQ()'@}FHD!U}GSA {   ` }  ɟ IM0+h@!V}%? ~`S S`    K`@BC  ii  THE FIXXL BY BELATHIEL WITH HELP FROM FRIAR JOHN<-----------------------------------> I%X}NSTRUCTIONS FOR USE1> BOOT THE FIXXL DISK--> If you don't want BASIC, hold the OPTION key down as normal.--> If you w%Y}ant to use BASIC, don't touch the OPTION key on booting.--> Always go immediately to DOS if you are using BASIC. %Z} Anything you do would be lost anyway when you use the FIXXL.2> BINARY LOAD THE FIXXL (Just use plain old DOS opti%[}on L)3> SWITCH TO THE DISK TO BE FIXED4> PRESS THE RETURN KEY5> FOLLOW THE NORMAL PROCEDURE FOR THE PROGRAM YOU ARE %\}RUNNING<----------------------------------->The FIXXL is a free gift from oneAtari XL owner to another. Feelfree to co%]}py it and circulate itanywhere - just give the author hiscredit (this document, and the titlepage).If you EVER find ANY %^}software thatwon't run (regardless of whether ornot you use the FIXXL) on your AtariXL, you can either contact thepublish%_}er (who will probably say something to the effect of "Toughluck"), or you can contact me orFriar John (through whoever gav%`}e thisto you if you don't know us) and wewill do our best to fix that pieceof software.--> So far we have found NO softwa%a}rethat could not be fixed by using theFIXXL, a simple code change, or both.Enjoy your XL! Thank %b}You, Belathiel 6/11/84 JOHN<-----------------------------------> I$HFILEMANAGER TO DIF FILE CONVERSION DOCUMENTATION by David W FullerSYNFILE+ is the latest in filemanagement pr)d}ograms and in my opinion is the best. In the 3 years I have owned my ATARI, I have spent most ofAt the beginning of the prog)e}ram you will be asked if you want to convert a Filemanager file or other. If you select other, you will be asked quesThis pr)f}ogram will also be on the AARI BBS (401-521-4234). by David W FullerSYNFILE+ is the latest in filemanagement pr(3",<TTLDRIVEANSRTYLININFILFLNAMNUMFLDFLDNMAXLEFNLNUMIDXIDXIDXLINESCRSCRXFTCPPASSTAROUT-q}!B'DOS SYSB*+DUP SYSBUAUTORUN SYSB4XMENU BPRINTFIXDOCBVRSLABLE BDIETY BASBEDIT4TH BASBZFIXXL OBJB WFIXXL DOCBcDIFCVT DOCB2gDIFCVT BDSKCAT DOCB.WRITER B1DSKCAT BASBFORTHCON4TH5MENU B9HELP BnZMATTEDIT BSIOFIX FILQUTSEBYTSINPTERERLICHGFLDFNCTCHGXSTYPEFLD1FLD2-r} @ @@-s} !"#$%&-t}'()*+,-""**************************** DIF COVERSION FILE UTILITY-u}BY DAVID FULLER 9/6/84ATARI ANONYMOUS OF RIUSER'S GROUP72 CRYSTAL DRWARWICK, RI 02889""****-v}************************  A A@(}GET FILE NAME !!( by David Fuller(*(&( How m-w}any Drives (1 or 2) *2# @)!@# @@<(-@@((1. FilemanagerF(2. OtherP#((-x}Enter Type of File #Z01*02 @`d! 426-@! An6-@x(((( Insert Filem-y}anager Data Disk-)( in Drive 1 and press RETURN -- (}()( Files on the Disk-(-6.D1:*.*--z}@@4@47@<@,4FREEAM7@<@,4DATM(7@<@-{}, 7@<@, A`U@(.( Which File to Convert 9( =F6.D:U67@-|},.67B:,%@,..FMTGET AND DISPLAY FIELDS  (}AR @@-}}@@6-3-@@'68,--!36- 6-"L@-~}6-B:,/67&@<,..IDXL@@,@6-6B-@@$@( -}5@B@@D6-6-@868@<@,-@D6-J -@ 68,--}T08,!A!68,-@068,-@Y6-%8,^6-P:8,'@%,h&"8,'@%6-%& A-}r6-%@|f"@ (68<@,-&@66-%@B6-S68<@,-\6-8,f A\-}!AU(68<@,-&@66-%@B6-S68<@,-\6-8, 68<@,-S(S(File-} >:@4,7@:@4, has  records( Screens( Field names+(6--}6-@+6-@/!-@$@@/6-%@56-%@"@)6-@ 56-@-}"@6-@! -!(. 7<%@, -@@(,(( Is this the right File (Y/-}N) , 0Y%,(((How many records to convert ,!6-@ !6-@6-@67B:-},&@,.DAT&WRITE DIF FILE 0F(&( Enter name of output fileB( up to 8 characters F:V 6.D67@-},.=:,.67@,.:=67@,.V67B:,%@,..DIFD"@ AN#(#(Insert Desitnation di-}sk X-)( in Drive 2 and press RETURN -b% (}(%( Processing...l+-@@+(Total Records:-} vC-@@"(Field: 4-@@C( Record #:6.>:@4, @@#-}"@*!@# A:@+@@:@@6-(@-}TABLE'(@0,16(@K(@VECTORSj(@0,=:&%@,y(@(@TUPLES-}'(@0,=:,'(@5(@DATA&(@0,05(@-@/"@-}!-@@%(/ A`7-@@7(7$@&@<$@,&(@-1,0&(@BOT-}6-%8,  - -@@ (  6-6-@*@4S# 8<@,)!8-}<@,.6-%B:,;@I6-%@S A >K8,"$(@-1,0K(@7&&8,%@-}<&,HL8,"@=(@0,A:7&&8,%@<&,,L(@VR* -%@&@* -}f p "@z@ 1(@-1,0&(@EOD1@ " A -}i( (4(&Do you want to convert the rest of theD( records Hi7@<@,0YA @-}6-%@R"@(3(Insert new destination disk N( and press RETURN R (} A`$-@-}@!( DONE $GET OTHER FILE INFO % (}%( Convert Other File(($(How many Fields in File-} (,(%(How many Records in File ),(/(((How many records to convert ,/(  6-@-}-@$&(Length Field #&68,-.p'(Type of Field [String/Number] +[7@<@,0S*7@-}<@,0Nf(S OR Np Ap857@<@,4N+68,-@5 AB68,-L Qp6--}-@(6-%8,, 8!AU;(Y(Record length longer thanm( 255 characterspSC6-@,68@-}<@,-@C68@<@,-V) (}(%( # Length Type)(`/-@/(  8, -} j8,"(Stringt8,"@(Number~   (Q(*(Are all entries Correct (Y/N) .G7-}@<@,0YQ AK (}(,(Enter name of Source FileG( example: TEST.DAT K 6.D:67@-},.6-@ (} A`[6-F:A,46-F:A,%AV$F:A,7([( ERROR  A-}T LINE -()( Press RETURN to continue -%SET UP VARIABLES < (};@4,<6. CONVERT TO.} Documentation for DSKCAT For about a year I have been happily using the disk cataloging utilit1}y by Tom Hamel and Bert Williams, published in ANALOG #11. It's not blazing fast, but it's easy to use and has a nice1} presentation. After I began using DOS XL the question arose as to how to catalog my mix of single and double1} density disks. Shouldn't be too hard on a two drive system: just read the DD directories in one drive and th1}e SD directories in the other. So I added a subroutine to prompt for drive number in addition to disk number. 1} DSKCAT is on a DD disk, along with a STARTUP.EXC file to configure the system and run the program: 1} DO CONFIG 1D 2S;CAR;RUN "D:DSKCAT.BAS" This requires the DO.COM, CONFIG.COM, and DOS.SYS files on the disk 1} as well. See page 108 of the DOS XL manual, or use the appropriate procedure for your DOS. INSTRUCTIONS f1}or those unfamiliar with the program: Creating the data file: Number all the disks you wish to catalog.1} Run the program. From the first menu select "File Maker". Then, from the next menu, select "New File". You w1}ill be prompted to press Return when ready. Then, for each disk, enter the drive number it's in and the disk's 1} number. The directory will be read and turned into data statements which are appended to the program. When you're f1}inished with all your disks, enter a zero. You'll be prompted to put the data disk in D1. Usually, it's most 1}convenient to have the data file on the program disk. The data statements will be written to the data file, F1}ILENAME.LST. Updating the data file: The next time you wish to add new disk directories or update 1} existing one, run the program and select "File Maker" from the first menu and "Update" from the second. If the fil1}e is not in memory, there will be a pause while it is read in. Then, follow the same procedure as above. 1} Searching for files: At the first menu, select item one, "File Finder". If your data file is not al1}ready in memory, there will be a pause while it is read in. Then, you'll be presented with your searching options. 1} To find a particular file, use selection one. Note: wildcards will not work. You may also display an individual1} disk, or a list of all cataloged disks. Hand editing of data file: The data file consists of 1}data statements which are read in and merged with the program. You can edit them by hand if you wish by stopp1}ing the program and altering or deleting the appropriate data statements. Notice that the first item in each line is 1}the disk number. Tim Ekdom 72575,1473I have been happily using the disk cataloging utilit0AoE[AREPEAFLASDELAFVOLUM(@@x@( @ 5} ;@@,;@,' +@'0@@@C-7(@____________________C(5}@(2-@@2(@<>2_-@@4(@* *?(@_(5}@ CREATE AND READ <4-@@4(@ F7-@!7(@___________5}_________P7-@"7(@press start to beginZ"F:B2y,@" @d A`n' +@5}'0@@x7-@7(@____________________6-@6(@ WRITE OR 5}READ FILE7-@7(@____________________1-@@ 1(@ = write file5-@5}@5(@ = read or print 7-@7(@____________________3-@@ 3(@5}PRESS '' OR ''7-@"7(@____________________##@@K:%)@5}@% AP!"@ Ap!WRITE "@ A READ@ A@5} A' +@'0@@@0-@@0(@ instructions?(-@@((5}@(Y/N)";#@@K:0)@;@, AP6"@x A@"@5} APJ@x AT@ A^A +'0@A0@5}h$$( *** INSTRUCTIONS ***r-(-(" This program will allow you to |++(#write documentation files and als5}o 44(,read these and any other documentationfiles.-(-(" You may give the documentation **("files any filename5} you wish, e.g.,++(#'D:FILENAME.DOC'. You may use any $$(extender, e.g., DOC. or TXT.p(p(e The program will5} also allow you theoption of printing your DOC. file or viewing it on the screen..( ( (.( Ӡ٠٠Ϡ5}O#@@K:0)@;@E APO AC +A 1A5}@CAA+(NAME YOUR FILE+((ENTER AS D:*.*)@#@@E:@@@5}9A 'A@9AArP(H Press RETURN to end each line. ---- Press ST5}ART + RETURN to end file.o( ϠԠŠĠr(C-@@7$)@9F:B2y,"@C A5}"AU' A`&67,.>:, %67,.>:AU,B-@@@6@i2@ @P:5}'@,m 2 Ap0m -@@@6@G2@ @P:'@5},K m2:9 @$-@@8/67,. 9 A0D0(@@5}&@0 ANE( (( END OF FILE$@'(E(Write another file? (Y/N)XE#@@K:5}0)@;@E APb#"@)"A!# Apl"@x)"Av7-@x)@)5}A!)A7 AM +A 1A@CAAM Ap4 A*@5}@4 A^(>:A%,$-@@ 1@5 9 <(P( PRESS RETURN T^ A`5}E@!(WHAT DOC. FILE7((ENTER AS D:*.*) ;E APS( (( END OF FILE$@'(S('Do you wish 5}to read another file? (Y/N)D@!(WHAT DOC. FILE6((ENTER AS D:*.*):D APR( (( END OF FILE$5}@'(R(&Do you wish to read another file?(Y/N)E#@@K:0)@;@E AP5}"@ A@"@x#@x)@# AC -@6@<2@5}@@ C$-#@@P:- ApM +A 1A@CAA5}M A 4 A *@@4 A0'@ @' A E@!(WH5}AT DOC. FILE7((ENTER AS D:*.*) ;E A*/@(/(Print another file? (Y/N)4O@@,(5}WHAT DOC. FILEA((ENTER AS D:*.*)EO A>D( (( END OF FILE$@'(D(Print another file?(Y/N)HE#5}@@K:0)@;@E APR"@x@\"@ Apf#@5}x)@# APp' +@'0@@z7-@7(@____________________5-5}@5(@ PRINTER OF SCREEN7-@7(@____________________.-@@ .5}(@ = printer.-@@.(@ = screen 7-@7(@____________________5}3-@@ 3(@PRESS '' OR ''7-@"7(@____________________:"@@5}K/)@:@"@ A`"@ A@#@)@# A5}' +@'0@@7-@7(@____________________6-@6(@5} WRITE OR READ FILE7-@7(@____________________1-@@ 1(@ = write file5}5-@@5(@ = read or print  7-@7(@____________________3-@@ 5}3(@PRESS '' OR '' 7-@"7(@____________________D:READWRIT.BAS 4pyQQQQQQQQQQQ1Q1Q1Q1Q1Q1Q2Q2Q3Q3Q3Q4Q7Q8Q12Q25Q50Q53Q55Q55Q70Q71Q71Q75Q76Q84Q9}99Q100WAIFILECFADRIVELINQ1 9} 9} !"#$%&'(9})*+,-./0123456789}9: ;;""kk0,1,2,3,4,5,9}6,7,8,9,10,11,12,13,14,17,20,22,30,31,34,43,75,82,125,255,500,535,555,559,709,710,712,752764,842,999,1000. +%(9}(.( #( disk catalog (( -( 29}( 7( <( CLARKSVILLE,TN.A*( &-9}* F;,;,;,;@,KR  +%6-B2y-7(PROGRAM OPTIONS=-R( file makerL -9}(P: -( file finder$-:( exit programU3 -(-3(PRESS FOR Z9}C -#(PRESS FOR )-C(PRESS FOR _ 6-F:,F:,")" $dF:,")" &iF9}:,")"%n %s#"x  %} %%( &I --(type number for kind of li9}sting3-C( 1 file nameI-O( 2 disk number-1(3 cataloged disks9-%O(4 program options 6-F:,9}")" $ "%(>:,  "% $ %  " $I$(type in name of desired file9}(.-A(I'm looking...I $%4$(type in disk number desired(."4 $#%+%,$! "4 END 9}OF DATA! E*4 -=(SORRY I COULD NOT FIND DISK ''E $%8 "6-%"2( 7<,/9} USED8 %3 4* (>:,--(I'm looking...36.E "%-3(I'M GOING TO CLEAR THE SCREEN;-? 9}E6-4 46-%-4(  IS ON DISK # - !6-!%6-%'!%-6- -%" $9}& "( ' "* %(6-%'6-%? "*  %(6-%'6-%-"396-?-9}E ""(  %6-%-6-%3"9?6-E-I "6-6-!-I(#ŠӠŭϠ9}ԠӠ% "6-F:,"(>:,% $ " $ $ " $%C "*"-;(SORRY 9}I COULD NOT FIND DISK ''C $% = -1( Disk #  7=U "*0-0(I C9}OULD NOT FIND ''3(U( PLEASE RECHECK YOUR DATA+ -+(Another disk? Y/N' -%"'(an9}other file? Y/N"" 6-F:,"*" " $%' "*  $, "% 1 $&6 ;K +%-9}+( IF new file1-K( IF update@F -F(5IF UPDATE PLACE DISK WITH 'filename.lst' 9} IN DB% -%( FOR options E 6-F:," $&J "6- $L "% O %&:}T#"Y  $&^ %%(cB +%-B(% hC -!:}(put disk in D/'-C(@WHEN PROMPTED:jB -#(@ type drive )-B(@ type disk m:}5 -( #-5( WHEN READYr 6-F:,"  %%w %&|.  -!(if done enter 0:}'-.( -( change disk  A " &+%, "(>:,-5 ")-%+%,$%:}%+%,$%%-(1 5 2 A,6-%+%,$26-& (>:,-( DATA &-1 :}7<,4FREE)(,,01 $%/ (,-!7<,0 +(7<,/ 7<,0 (.& -7:}<,0 "(7<,& (,7%<, (,"(~ "  6-% &+%,  %= :} -!(a new file will'-=(be written to D1.9 -(be sure the disk$-9(has enough room.% -%(:}press RETURN when ready 6-F:, &+%,[ (>:A%,-[(LIST>:@4,D1:FILENAME.LST>:@4: },,,$   U -U(Aa file 'FILENAME.LST' has been Ġ on this disk. (: }-  ? +!%'3AF9?E'6-F:A`,%F:Aa,$AV%1&&: }9-A%E < - (disk directory&-9( <$? +!%'3: }AF9?E'6-F:A`,%F:Aa,$AV%1&&9-A%E  < - (disk directory&-: }9( <$B (>:,-B(ENTER>:,D1:FILENAME.LST>:,( ( ((CONT- :} &! &$+D (>:,6-6-6-"6-(6-.6-66. >6. D6-0,+%%#):},$: 6-6-&?  -%%% %D  $-%% %I-%%%N$X4 6-(>:, &:}-1( 4(] #%$$b" " %&eF:%,%((g ( 6-% $%l% -%:}%(Press RETURN for menuq 6-F:, %v %{E  -3(!Stand by while I load the file...;-? E :}&|$; - (enter drive number&-;(and disk number:I -&(Drive 1 = Double Density,-I(Drive 2 :}= Single Density1 -%( Drive ~~~~"."1$"@6.D1:*.*"@6.D2:*.*!:}! )!@A  -%%(Disk # $  }* -  Disk error!4 -% :}> B AUu999,END OF DATA,-1 D:DSKCAT.BINQ4Q7Q8Q12Q25Q50Q53Q55Q55Q70Q71Q71Q75Q76Q84Q8Cop(BLOCKBYTEDISKMAXLEBUFFILELINBUFLEBUFAPHYSOFSTRSCRENDSCRLENGTSTRSCSCTCNERRORESUBSTARSUBEN>} >}dFORTHCON V.2.0fCOPYRIGHT H.STRIEPEhjCONVERTS>} BETWEENlFORTH SCREENS ANDnDOS FILESpr 82SEP05tvSET UP FOR FIG-FORTH 1.4x##CHANGE THE FOLLOWI>}NG PARAMTRSzFOR YOUR FORTH VERSION|~ NOTE THAT TO BE COMPATIBLE""WITH AMIS TYPE BBS' CARRIAGE##RETURNS >}ARE ADDED FOR UPLOAD,##AND REMOVED DURING CONVERSION##TO FORTH SCREENS. THIS MIGHT!!INTERFERE WITH YOUR VERSION>}OF FORTH&6-@&YOUR # BLOCKS/SCREEN?6-A?YOUR #BYTES/BLOCK E.G SET TO 512 FOR VALFORTH>}J +AR@"(J(#FORTHCON V.2.0 Forth DOS CONVERTER"(by HARALD E. STRIEPE("(0-(%Th>}is program is in the public domain.0(K$( Further distributionH( must contain this message.K(6-A>}b'F:,@2)F:%@,@hJ( Loading ML subroutines...X(>:@(,b A6-I:,&AV> }88( BUFFER SIZE: P:''&@, SCREENS  ;,;@,;@d,##@@K:>!}@67@,.67,..67@,.76-B:,@6-C:,$($( A. Forth to DOS'($( B. D>"}OS to Forth'(2AR2( YOUR CHOICE >))@"AR@)(>:,!! @e)!@>#}fAv_(.(#NOTE: all SCREEN # must be decimal.@A@RAR_(>:A%,"(Your phys>$}ical OFFSET "*(Your STARTING SCREEN "*-% Ax&@dAA6END OF SETUP>%}FORTH TO DOS CONV2(Your ENDING SCREEN "2-%%@-+&,$$0  &(INSUFFICIENT >&}BUFFERSPACE0 A 6-A( (Your destination file7(DEVICE: FILENAME ;>(A(;+(#Insert Forth source di>'}sk and 8)@;(+6-$$'A(%@+6-'A(5!6-?:<@<@:R,<<<,5@A2>(}:*("Insert DOS destin. disk and 7)@:( @@!!-'@d&@>)}006.7$@d%@<+%@,$@d, @APHYSOFSTRSCRENDSCRLENGTSTRSCSCTCNERRORESUBSTARSUBEN>*: @#(#(Conversion successful...)@"-@AP& )%DOS TO>+} FORTH CONVERSION((Your DOS source file#(DEVICE: FILNAME  (#(:*("Insert DOS source disk and >,} 7)@:(* @@* Ab6--@@@>-}67$@d%@,.6-%@ @=-(%Insert Forth destin. disk and :)@>.}=( -+%@,$@d -+'',%!!-+&,$$'A(&@-$$'A(%@!!6-?:<@>/}<@:W,<<<,"@ A0%((*** IO ERROR ***% A2END OF MAIN ROUTINES >0}THIS SUBROUTINE ADDS DISK"HANDLER ROUTINE EXPECTING$DISK DEV#,DISK COMMAND&!!(ASC("w") OR ASC("R)),start(">1}"SECTOR,SECT COUNT,BUFFER ADD*AS USR CALL ARGUMENTS,. 6-6-%@0 -2"  4 32,68>2},218,104,201,5,208,746!!104,104,141,1,3,104,104,14182,3,104,141,11,3,104,141:""10,3,104,133,204,104,133,203<1>3}04,141,5,3,104,141,4,3>32,83,228,48,35,173,4,3@24,105,128,141,4,3,173,5B3,105,0,141,5,3,238,10D3,208,3,23>4}8,11,3,198,203F""208,222,198,204,16,218,160,1H132,212,96J$ D:FORTHCONP& )%DOS TO<Y'(p  QQVABASOFFSEVVDIM QQ$(1)B6}:GOSUB 30000 +d*** TITLE PAGE ***nAR@xQ0@@@70@@@B7}Q0@@@""(     ( | | | | |!!( | | | | | B8}""(     .-@@.( ATARI FREEWARE 0(0(%BG} GUAUd--- HELP !! ---nA +'0@@A0@@x( <<< F:}HELP >>>( ( ((((//(& The programs on this disk may consist))(!of several types of disk files or,,($F;}formats. All programs will run on an))(!Atari 800 48K, with DOS 2.0 disk.((( Other systems and configurations,,($F<}should also work with most programs.( ( (((, A6(} LOADING PROGRAMS:@/(/($ Programs on this diF=}sk may be one ofJ((( following types of files and areT--(%identified by the filename extension.^.(.(# .DOC or .TXF>}T - Documentation texth,,($file. Use the DOS (C)opy function tor++(#copy file to the screen or printer.S(S(H .OBF?}J - Machine language file. RemoveBASIC cartridge and use DOS Binary''((L)oad to load and run program.-(-(" .BAS oF@}r no extension - Use BASIC$$(cartridge and load normally. A(}-(-(" .PIL - Requires PILOT cartridgeFA}..(.(# .MUS - Requires Atari Music Cart.Q(Q(F .AUT - Move file to another disketteand change the .AUT extensionFB} to++(#.SYS extension using DOS (E) rename**("file then reboot computer with new (disk./(/($ Other extensFC}ions may be used. Check,,($your Atari DOS manual for more info..(.(# Some files may not have the proper''(exteFD}nsion. If you have problems--(%loading with BASIC, go to DOS and try&&(Binary Load or Copy functions. AFE}%D:MENU*##@@K:$($(Press to continue.)@@$FF}D:HELPGUAUd--- HELP !! ---nA +'0@@A0@@x( <<< D ,,($ This disk of public domain software++(#was put together by the industrious))(!members of the Jax Atari CoBH}mputer--(%Enthusiasts group. If you are PLEASED,,($with what you find and would like to//(&support us, as well asBI} learn what else--(%we have to offer, including a copy of))(!our latest catalog and listing of//(&updates availaBJ}ble, just send $5.00 to:/(/($ JACE, 1187 Dunbar Ct., Orange Pk,(Florida, 32073.2(2(&(Pass this disk aloBK}ng to your friends)"*(*( Press to Continue,;#@@K:0)@;@6 BL} +@% D:MENUPLUS0u%6-F:A4,%AV$F:A5,G6-F:A@,%AV$F:AA,V6-F:A,o'BM}@"P:'@,A&@:uK6-F:A,%@*6-AV$&;6-P:'AV,K6-&AV$Duo%@BN}%@3%@G%@@[%@o%@@u,,6."88BO}wwffffff>urr67B:,%@,.Z`<|fl0fF68of;888>x|f<>>``~ppppw``|l`cc>66wwcc<<<<<vBQ}rr67B:,%@,.Z<0 0 ~~`0 0`ccooo`?33sss~ffgggg`cc~ffwww``pp$wrr67B:,%BR}@,.Z``pppc`oggssssss n~fflggg000ppp~gwggggwogggccgggccpppcwrr67B:,%@,.ZcBS}ggg~ffwww`ssggggggggggo>gggogsss>ggggggfl7g@`0wrr67B:,%@,.Z xxBT}6c6>8pp8Pxrr67B:,%@,.Z?BU}wwxrr67B:,%@,.Z<~~~<BV}x`x`~<~~<yrr67B:,%@,.Z0~0 ~ <~~<<>f>``|ff|<```ff>>ff>|``|fff8|yrr67B:,%@,.Z<<``lxlf8<fkc|ffffff>|f```>`<|~yrr67B:,%@,.Zffff>fff<ck>6f< x~ 0~<~~<BY}8x8Dz +AV$D:MENU`DIM QQ$(1)@R@X6j6PROGPCCCCOLCCLNLSILCC2AWBLTBMAXLIXCURYCURLINECONSOKEMMCNLLDRLLLYBDJ[}SINECLSLPPLPDNHLL J\} J]} !"#$%&'()*J^}+,-./0123456789:J_};<99ANALOG NO.21 AUG 84 MATT*EDIT PAGE 51 u;A,;@U,$6-C:,-6-C:,9J`}6-E6-@Q6-@]6-Ai6-@u6-@K-A"#67<,.>:,' 5-@U9Ja}"G67<,.>:,K <<+6-I:,&AV$6-@706-@<6-@#F>;,;,;,;,;,%6.3Jb}K:>6-P:',P@6-@6-@!6-,67,. 767,. @67,.Z6-B2y6-Add4 (}@Jc}A-B7tA46.n%A(6-@% A0x ( ΠՒ ( DisJd}k DIR ( Edit Text ( Load File ( Merge File( Save Text ( Print Text( KilJe}l File ( Quit ( j 6-66-@ A&6-jAAA# A$PJf}A$A(pAPA5p3-@6',2@`@0 3$(Try Again Please--@%-Jg}2A@@02A@@@# -20$_ A @(@(G)S"AU_6-@I"#6-&@H# )!A ,&(@  (}&6-6$@Ji},(( Out of range." A`, AJ 6- APT 6-^ AhU(4( ( ONLJj}Y=) 8AB:,"G6-K(U Ar6-P:A:,,| *$@,( Out of range (- only).6 APJk}@ AP(Bad input char(s)$$( #'s only, - valid. AP APEA@d!AJl}>(}ԪԠA(E(!!($+B:,,##(󠽠&%+B:, ,!@Jm}AR(!$G AA@d+A@( G) "@(6- $ Jn}"@x(6- $#( AP# Ap 6.6-1(< To Abort>1(Type text & press Jo}:4 6-F:,@"*( }Р4 A- 6-F:,-(- %--(-&> AP) "Jp}@'#'&'46.> A0A&A:2 6-&  A`!6-(6.2 A0D (>:,6.Jq}7<, APN"AU(6-B:,$X7# @2)!A")"@- A`7 APb! (>:,6-%!67Jr}<,.>:,lA@v*(( Ϡǡ A`* A !& A@ AP 6-& 6- Js}A0)( Š 6-# A)6-((Š to ''AA A0A@<(Jt}Ġ2(< AP(Š AP (Š text TO AP(Š Ju} ((press only for )'6-@ A'!A 6- A Ap + 6.D67,.=:,"67Jv},.:+67,.- A(*( Working...-$ A6. ɯϠ 467B:,%,.=:F:A,,7'A AJw}* 6.AD46-@ A0>( ˠҒ H( List DIRR( PRINT DIR\( Load DIRJx}f( Merge DIRp( GoTo Mainz( R 6-66-@ A&6-RA A A Jy}A `A 6- A  A( 6-((Load Disk DIR into buffer.<(< will be >2( ArJz}e you < Ap (6. A $ 6-6. A $ A ) 6-)(Merge into text bJ{}uffer." A 6." A 4 6-6- A*6. Ԡ4 A  6-2( of ŠJ|} ?"6-, A26-% 6.D67,.=:,%67,.:*.*L +),(((Š for this DIR .6-8 A>6.J}}L"A@67B:,%,.7B:,%,I( A&@*>@P:I(A) 6. J~}A6-$()($- 6.6- A`#6.- A`.! A6-6!6-8;7<@,4J} F167@<@,. ; AB} 6.7,6.7@ ,467@ <@ ,..C67@,.]67@<@J},. c }67@<@,.| L( (V A0`( (j(Apt$  67<J}@,.$ Ap~.67@<,.6.$ A`. Ap 6-%!' A@#6-$+&,% 67<%&,J}.#$ A(( (, "F:A,A6, A( A05  6.+67@J}<,.7@<,5 A` 6. A`A A(4( ;)>(A$- 6-&*6J}.Incomp. Load, full-$6. Kill File6-@ 6- A`3( )( Are you J} 3 Ap(6. A =@36.367B:,%,. = A 6.A0J} 6- A0(/( Ġ/(Π>& Scroll Up 1 Pg2!!(Ԡ>& Scroll Dn 1 Pg<9$(Ԡ>& Exit to J}EDIT Menu6@@9(F( Ԡ P( GoTo StartZ( GoTo End d( GoTo LINE n( DeleteJ} Lnsx( Insert Lns( Empty BUFF( GoTo Main ( \ 6-66- A 6-\AJ}PA`AA0A0A"PA 6- A  6-  A0(6-$+&,%(7<%&J},0A 6-&!Ap A  6- A0*( Go To 堣6-$ A@*6- A J}' B:, 6. Ơ' AD 6- A0.( line to Š46-> A@D6-:( line tJ}o Š$6-*6-4 AP:6-C($( Lines >  - 9(Are you Š C Ap"A,J}6. A6% "67$+&,%,.% A@!!67$+&,%,.7$+&,%%,J6-&&+&,TR6. J}>'67B:,%,.=:,767B:,%,.-H67B:,%,.=:,R A^<(} LINE(S) B:, 26. < AJ}h3(Insert Line # #6-- A@36-rH 6-&&(# of to insert ?8((MAX=) B A@H6-J}|-( Are you  Ap-(A+( Working..-%%+6-$+&,%67<%&,. -6J}L6-$+&,%!6-$+%&,%967<%&,.7<%&,H67<%&,.L U 6-%6.=:,:67B:,%,. Lines J}before K67B:,%,.=:,U A)AR6-%@"#!)6- (} B:, 6- A 6-J}-6-$+&,% -(7<%&,6-% 1AR-+(LINE #  16-7-@J}+(EDIT MODE 7AR 1-"(>:,>:@0,6-"6-& "(0- A@F:J},AU#)- A:F:,"A@D*F:,@*  A`* A@N"F:,"@6-" A pXJ}"F:,"@6-" A pb F:,"6- A pl-"A%)"@'# A`- A@vAWA@J}! 6-F:,6-F:,!AR/-@"(>:AV,)AR/-B (>:,0+"@1)"@0,*F:,!J}@88(>:,B A@4"+"@()"@),*F:,"*(>:,4 A@F:,"*AVA ! 6-F:,6-F:J},!AR3"AV-@")(>:AW,3 A ;"*"AU6-@"%6-1@"; A pJ} - (LINE # % 0AR1-0(>:,>:@0, 6-F:, @8A `"@"J}6- A p/ @"6-%%(>:AU,/ A ` 1(>:,>:@0,  A@! 6-F:,6-FJ}:,!AR 4-@,(READING PAGE 41* , A@4 -6-$+&%,%> -J}H+AB@+AB@RB:,"A!P\67B:,%,.7B:,%,f67<%&,. p 6-%J}!6-z "6-& A A" 6-%!6-& A A"@ 6-& J}6- A 96.** Last line read >>/67B:,%,.=:,9 A&6.Empty Ơנ *& A0!!(J} text from BUFF ( Are you  ApA# A+ 6.6-!6. Ơ+ AJ} $ A6. Ġ 6- A`6- 6.$ A$.  B:,"A#p8 67B:,%,.J}7B:,%,B  6-%! A$@L 67$+&,%<$+&,%,.V A#P` j F:A,"A6A$0t J}A~ 6.ĭ A 7'6.Ơ쬠-6-7 A Ax 6. Š J} 6- A` A#@ B:,A% 6. Ơ A 6. 0@@2&6-@J}0 A0 (Šՠ  ( As Text File  (As PRINT Stmnts (As DATA Stmnts  ( MaJ}in Menu  ( 6-66- A 6-  " A( L*(" blank lines from bJ}uffer<( During SAVE F ApL6-2 A&A& A&P< <#(File # for PRINT statements<((i.e. 6 for '? J}#6;')F (P # 6- A06-# A&`Z (Write DATA Statementsd 7(Starting 堣 J}'6-B'g&1 A076-n =6-P:+B'g&,',-(Line 7 A@=6-x A 6-6. Š%6-@J}16-@; A`A6- - ,6-$+&,%"7<%&,4*, A(@ "A'  (6-% J}&A'@A'p ( ? (A'` (#; (>:@4, A' ( DATA  6.J}7<%&, 6-?::@4, (  " B6.!J}167B:,%,. 堣>B67B:,%,.=:,,  A%6  B:,  A$@  6.@2J 6-@J} A0T (ԠӒ ^ ( 40 Char Lines h (Newspaper ۲ Colr (Newspaper ۳ Col| (J} Return to Main  ( 6-66- A 6- "A X@()( foJ}r Printout56-@0? AE6.X67B:,%,. Pg  6&(} text as it is printed:0 Ap66-  "6-J} A0  =6-@ $-(Left (max=)7 A@=6- !(!(Vertical line spacing: ""( Single (J}screen format) ( Double ( 6- A ! "6-@!6-@ ! "6-@!6-@H J}(Get  (And Press key (< to abort>& ( A)("AUA100 -"@'J}#6. - A:  A$ D  6-6-&@N ,@P:,(A>:,OX J}!A2pb 6-@:K, A4`l -v 96-$+&,6.7%<%,$4/(@9 A2@ (+,A20 0J}6-?: A5H  J}R (6-&A4@\ 6-%+&,$!A4@f A5Pp  6-%!A2`z A2  6.=:,J}6-% Q(@ A5`!6-B:,+ A5@>6-?::@',>:,>:,>:,UJ}$ H-%+"@,( +(A;(A>:,E A4H$ & 6- A5@#6-?:6-J6-@V6-@ $D:DIFCVTSCRSCRXFTCPPASSTAROUT,]