@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`@HHe8ɢ,  +:+:0h\ 0 H轿hL< /) H轧heeL 0ԩ@1Li3%!44,%05'%43/5.$ !4!2) #/-054%2%.4(53)!343 present $)3+54),)4)%3.ov.keFSP]d+d+ddnP!nnnnndnnoo.nnkpoooooojc fY fYfY fY fYfYqfYrfYrfYfYfYfYfYfYfYfYfY kAhiC=li]fY 4PWEV(TQJ"fY 4PWE<XP$fY 4PiE"Zh1]fY =PWE<`R"fY 0[WEVTVR"fY ]YIhiC.>=,?fY@ C4&$"m44fY@ C4s$"b4140fY@ U9_a*MT;,;0fY@ _UP -"0acY_UP 27P&6\@_UP 2%"0:H_UP .,3"1gNR!_UP 1>"0"4@_UP 1"0&4@_UP (, lh_T_UPU_PU_PU_PU_PU_P o5oU_PU_PU_PU_P kbk>B!@*OU_P 4V4TaAK@U_P 4V0P4$@U_P 4V<=_! !U_P 4V001E U_P 4V5RHU_P k>?X`ccdfflpqsvwx|~6  (*  (@AEPQTUUUUUUUUUUUUUUUUUUUW__}t 2[Z[[[\,\b\pB[O`]A@L 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}}0+}000 |||DDOS DOSDOS SYS },}},66-}BLOGO SYSCDOS SYSb*;DUP SYS.} 0`BDELV !B /}`LVUQ   ]   TU J ]L!T  #      TU 0} L ? .  t`GBJ V~DEHI B V0dV1}QDEHI VF9 ,0 ,0 s0hhL  L` H hDHEh2}DEL8HI   0 HI,0 0  9 .G VLO3},0 L4*IJ`llD1:A*.SYSNEED MEM.SAV TO LOAD THIS FILE.D1:MEM.SAV J y08 B|DEHI4} V0 0`B;DELV䌚 !B y`@ʆ v s? F0Ξ05: [ BDEHI5} VY8 B V  @  /DE `E:D1:DUP.SYSERROR-SAVING USER MEMORY ON DISKTYPE Y TO 6}STILL RUN DOS B;DE J V (` 9 V⪍ ઍ  -7}LLu DEHILV 9 .l 9 .l  `` s$B VBH8}I|DE V BLV nB,DE J V* \*` B V BLVDEHI BLVL9}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 0@}JB 18L^%|DLl%DIRECTORY--SEARCH SPEC,LIST FILE? # 0 0 n&|D! 1L NOT A DISK FILEA}N !B 1L " 1 !BDED:}:1BJ|DE 1DEBHB}I 1 h0ߢ 0.  0?詛 1 ~0YЛ 1 "L<" "L C} BL1TYPE "Y" TO DELETE...DELETE FILE SPECCOPY--FROM, TO?OPTION NOT ALLOWED COPYING---DN:D}# 0|D .L$A#B#C#JB|DE 1BHIDD#E 1D#0: BE} 1L B#C#C#B# B 1N#$0SYS1}:e#D# d# D# .d#ȽD# d# 𩛙d#X# 1,A#F}PdD#ELO- A.BJdD#E 1 1HH 0hh|DL^%1}:e# Lt% e#dD#EL%G} 1 0 . .0% 1L WILD CARDS NOT ALLOWED IN DESTINATION 0 A.|K@C6.K6.7$&,<66-?:C:,:@4,MAB%S-V&, 6-6-!A@6z}3A@6?ARP6. Can't run Y67,.c @@q-Au  A0@cA6-F:%,,{}%%A`26-c(,} Enter description (max 25 characters)J2 ( 2( -------------------------T7|}AR( (AR74A0^' %B:, '67B:,%,.7%,h B:,!6.7<,r 06-}}|67$&<$,.5 6-%Aa+A%5 @P9(%6.Descriptions unchanged/ @E9 ~}A Y A6-0!%--@7(7%,T%@)&B:,'%?PY( AŠ}ӛ_ (} &( (Current Disk Title)*(06-_(* Enter new title (max 18 characters)1 6.&(}1(------------------>AR()AR84A>6.0 %0( Ү}ҧ&Y 6- A6.$6.+6.16-; AIA%S AY6.0P 6.6.>:,6-B:},%)67,.>:,;6-$%%@F6-P:',P6-&$:M67,.>:,67,.>:,$67,./67%,.86-B:,C6-P:',M6}-&$D! A6-6.(!$NR*6. Can't save 'DESCR.DIR' - ERROR #E67@3,.=:F:A,,H'R AXM} A0 @%*67,. DESCR.DIR06-5D%$J6-M$ůĠϠˠқ 6-6-AH6}-C:,46-P:',6-&$$%%$,%4%5 %%%&/6-?:C:hhhLV,<%,56- B}$Ԡ٠ H AP"%P:, @5H( 0WEVWF*- --(}7<, 7$&<$, 418, A#-%+8, ,-( 1 >;(8, ;ԠӠҠ}̠қH?(7$&<$, +(E @0(5(? AR-6.Unable to PRINT# @@- A }ΛR%"R1,2,3,4,5,6,7,10,11,13,24,25,64,84,256,764XX;@A,;%,;&},;$,;@e$@6,;%,;,;$,;$@6,Q;,;,;@6,9,%6-/%&5(}=6.H6}7&,.Q67,.c67@A,.C6.(h hh`hhhh͠ `K6. Z67@6,.c67,.O &}+AY'ARE6-F:A`,%F:Aa,$%O&%I %%!%@#&(16-F:%,?A}&I A0mAAD'AAF3A AA%OA$Z6-F:%,m6-F:A,!%}$BA6.$67A#@,./67%,.B6. NO DISK NAME.. 6.6.6.6-"6-(6-.6-8cAY},( } drive # directory[((Ԡc%BU3((۱ݽ򣬠ݯ}ŽAAY%EK6-U AKԠˠٛL= A- @%"-36-= }A V:0(Can't read directory. Error #F:A,: A``a !B:, @A@)6-%767,.7<,L68},-A:7@,,[7<,4DIRa6-jH67B:,%,.7<,>67B:,%,.no description H A t; B6}.%67B:,%,.1A; A~( Empty Disk - 6 -.( INSERT NEW DISK - PRESS٠6&_ } @ "&*ApU6-$+@0*@1,%+"@1,%+"@0,$_ A0ĠҮҧO 6-6}- A#6-,6-B:,96.7<&,E67,.7,O AU A6-@:,"6-@:7,,>6-@:7,,%AV$@:7},,I6.7<,U6-%$&)6.7<,6.7%<,)4A00ĠΠ٠Үҧ* -}*(PLEASE WAIT - COMPARING DATA -6.7$&<$,(, -6.7$&,0" , A@267$&<$,.7}$&<$,<  6.6-w!!ԠӠҠϠΛx' 6-6-!@'6-@4 %A%}0-%&B:,'%?P4([ --% 6.7$&,P(7<@, 7@ , 7$&<$,T X[$ }@0 @PD:MENU )h n# J KI  & a&$E˩̩˙iȱi5)}` >ɛ(`HHH7ͩЍ&ud˩ [)ـȄαHȱH`"1ȱ}iL="Щ.Ȅ̈́Ω" U˩L ܩeͅ$%"h0hh(` @ '`XXFIND/@&%/%DI6.!cDEL DELET q.}!eLOC u.!eUN UNLOC y.!cRE RENAM }KIL .!eE ENTE .!eLO LOA .!eRUN!Z.!cS SAV .!cLI LIST!ZL LIS}%.!eBL BLOA&HEL&FORMA%.!cM MOV#WDO$D1:*.* R110HH %L# g"ѩ}}HH( % V |" i) ƅ˩څ˩̥HH % L Зȑˈȱ}ȑˠ) JJJJi0ȥ)i0JƩ L - L $hhL΢ ͙8ΨeHiH %hhL#}`!б#Э$Щ V%0L ЖL&J K Lt Έ)0 ȱHȱH`͈ͤ ` $L&} 3!ـȩ:ـ/ 1%  D  :` ͌ `Ω ЀХ}d00]:Y8 8 0  HH8X˥Y̠( =" =" hhL&爭)} ѩ ,0 3! =" -". G" ;" -"hh˩L  T" G"`e˅ː`H h`H****)h)c"` @}`XiYi` # `( #( ~# #( =" ~# # #L# ="8} #$( # /# #( ~# # # # ="$( #( # /#'X+X` D#` # D#` ~# ݀}0 ( #`( # ;"`˝``˭`˭`H# h,A0L@L4h} L - HHB8名呍 %|ɈЩIH Ω1ف.I&&  > H$}Ω1iHH %0HH B %0Т&  LE: $H$H %0D1:DOS.SYS`HHͩ?}ȩ % H%H %H%H %ЩϢ&  YФͩ `K:&˩&̠ #Р $ ~#Р $L' }L͠,oـHDH:HH hHiHDiHE % B Vۢ&  hhh,}`BJ IHhhhEhDHHLV eΝDiE͹~/͹NΞͩ L} L#&  Lˆ̥˦ ȱ(ɛ(`?' a&L DISK DRIVE 1ARE YOU SURE??INSERT DISK2;HIT ANY KEY (S=TO SC}REEN)OUT OF RAM ALREADY EXISTSBAD LOAD FILEDISKIO 4.31 --Oppenheim & Dell'EraAntic 1/85Type HELP for commands}COMMAND}S: DIR Directory DIRn Dir. Drive n FORMAT Format disk WDOS Write DOS.SYS.X->LI.-}>LISTD List to disk.S->S. ->SAVE Save to disk.E->E. ->ENTER Enter to mem..L->LO.->LOAD Load to mem..R-> RUND }Run disk file.K-> LOCK Lock file.U->UN.->UNLOCK Unlock file.N->RE.->RENAME Rename file.D->DEL.>DELETE Delete file.}B->BL.->BLOAD Binary load.M->M. ->MOVE Move file.R9 runs #9 etc. To use DOS type KILL.Reboot to restore DISKIO. }.H k)йl)ѠhH hHhO&\&L 5$$%%Y&j&8## $$$%%%5)XDocumentation file for D8TOD4.OBJWritten by Mike Collins, 4/29/85. While HOMETERM will transfer files and support certa}in disk functions on the130XE ramdisk (D8), it will not allow you to get a disk directory. The updatedversion - due for re}lease in July - is supposed to support this device. To holdme over util then, I wrote the file D4TOD8.OBJ, which will redefi}ne the ramdiskas "D4:" for a limited number of functions. This file, when installed on yourHOMETERM disk, will allow you} to get a disk directory, upload, download, andcopy files to and from the ramdisk, now defined as "D4:". The follo}wingfunctions will work if you use "D8:" as the device number.DELETERENAMELOCKUNLOCKNotice the D8 and D4 are just two} ways of accessing the same device. The FORMAToption will not be supported here but is not needed, as DELETE will do the sam}ething.INSTALLATION INSTRUCTIONS1. Format a blank disk using DOS 2.5 and write DOS files to it using the "H"option. }This will be your new HOMETERM disk.2. Copy the following files to the disk. a) RAMDISK.COM b) All files from the HOM}ETERM or HOMEPAK disk. c) D8TOD4.OBJ3. Now select the C.(COPY) option and respond to the prompt with this line.AUTORUN.}SYS,D8TOD4.OBJ/A4. Delete the AUTORUN.SYS file.5. Rename the file D8TOD4.OBJ to AUTORUN.SYS. This completes the ins}tallation procedure. You can now use the diskfunctions of HOMETERM (directory, copy files, etc.) with the 130XE RAMDI}SK. Youcan save a lot of connect time by downloading large files to "D4:" and thencopying them to a real disk after you} log off. By the way, D8TOD4.OBJ should also work with other programs that use "D4:".As yet I have only tried it with }HOMETERM. If you find any other use for itplease let me know.Mike [74005,475]V@(@ --@@ D:D8TOD4.OBJ-@@'"*@( }  2RR255,255,0,4,14,4,72,165,33,201,4,208,4,169,8,133,33,104,76,101,8,203,7,204,7< 255,3 D:D8TOD4.XMOwH!!hLe DOS 2.5 patch for HomePak-------------------------HTPATCH.OBJ will patch a copy of your master HomePak disk to fullysupp$}ort DOS 2.5 and its Ramdisk software. Note that the programs as supplied will read and write files to drive 8. The only th$}ing youcan't do is get directories, and that is what these patches entail.The programs that need to be patched are HOMETER$}M and HOMETEXT. (There are no directories in HOMEFIND so it's okay as is.) Firstthing you need to do is to make a "J" cop$}y of your master HomePakdisk. If you've previously made changes to any of the files (such asvia the HomeTerm Customizer, o$}r by copying any of the HomePak filesto another disk) this patch utility might not work. In that case,see the appendix for$} an alternate patching method.HTPATCH.OBJ is a binary load file. (Portions of HTPATCH.OBJ use theAction! run-time package$}, copyright ACS.) Load the program by usingthe "L" option from the DUP.SYS menu.Once the program has loaded, you'll be pr$}ompted to put a ofyour master HomePak disk in drive 1. Once you've done so, press the [RETURN] key, and when it$} says "Done!" you're all finished. Boot thenew disk as normal and you now have directories for drives 1-8.If you get the $}error message:Expected byte incorrect-nothing done.then HTPATCH.OBJ didn't find the bytes it was looking to patch. Inth$}at case:APPENDIX--------If PATCH.OBJ gives you errors, or you've modified the HomePakprograms as described above, then y$}ou'll be reduced to patching thefiles directly using a sector editor, such as SHERLOCK or DISKEY.DOS 2.5 patch for HomePa$}k-------------------------HomeTerm--------Search for: 70 4C C9 70 15 B1 2D B4 ^^ $} change to $B8----||Search for: 4C 78 79 AD E1 71 C9 35 ^^ change to $$}39----||Search for: 4C 73 82 AD EF 7B C9 35 ^^ change to $39----||HomeText$}--------Search for: BB 45 60 FF 15 B1 2D B4 ^^ change to $B8----||Search fo$}r: 4C 23 93 AD 50 8D C9 35 ^^ change to $39----||$a@bG (c)1983 Action Computer Services  B JKIHiDiELV`L9@(} 9@ BLV`EL@@l L@ &` Fj`8冨凪` @EӅӥ(} @`ʆǪƩ Ɛee` @ƦʆǢ &Ɛeǐ A AL@ @'&&&8儨児(}祂*L@&&*ń8&&L@ WA`hihiHHȱȱL@c !#3`(}L@JJJJ`H @h`Hȩh n@LA w@LA !@LA )@LA /@H8(}`HhHh [BLA BHI V䅠LA LB 9@LAԆ ؠPIPP`(} BP )@LA BLB BLB CLBH- B8塪墨hLC CLB "CLB BȹP`(}텠8堨塪 B芨Oȩ-`PP BP棩 Ѥģ0-ģ6000:,80H (}& &ehe&eģ0ʥ 8堅塅`$ B&*i0:0i BƦ`¢ 护(}°ڱ%ȱ%E BL\D担CS NBL\DI CL\DH DL\D BL\D &B V ANLMȑ(}` MLN%B VLAD3E?(Y9955oL%E AE!EEAEAE!ELF!E mE*(mE(}Em!EEi D B E E!E]ELELE&Expected byte incorrect-Nothing done.E ;BLF!E mE(}*(mEEm!EEi D!EE B!EL6E`LFLMF*}Insert of HomePak master disk inF" ;(}BLsF drive 1 and press RETURN.FW ;BI LzFLFF ;B HBLFD:HOMETERM.OBJ F(} BEEE "ELGF ;B HBL!GD:HOMETEXT.OBJ G BE E E "E HB B(} BLZGDone!GS ;B``F( ,} ,}BBA.N.A.L.O.G. #23 OCTOBER 84 MINICOMP LISTING 1 PAGE 29G +!-AA%"+4(968 G6-,}?:A,55169,96,141,232,2,169,0,141,231,2,133,8,76,0,160 D:MINILIS1,R!l 0˭1̩021`2;2pppppppppG2ppF(2A2,).%bymikenagel@@ W X0}V  LDIR n --- FORMAT Dn: UNP Dn:fname --- PRO Dn:fname ERA Dn:fname --- REN Dn:old,0}newDEC nn =hex --- HEX hh =dec DEL from,to --- KEY stop/start - slow/normal s0}uperslow/slow)# \䩠!@ BDEHI V䩷 ]ȍ%` S `E0}"`ȩȩii`33 PROC UNPH RENM DEC_ HEX DEL!FORMATHh@D :*.*0123456789ABC0}DEF0000Ok@FORMAT DRIVE#0 (Y/N)D L. "0P B VPBJԝDE VLA!0}PBDDEEHH V0IUTU B VLeP B VL.PB "I8̝He̝D iE VLA!0}L. "":GD8 BDEHI V+LL.!L#L$L LW X0} Lt "ϩ $ը)JJJJ)Ԩ)JJJJ) BDEHI VL. F !"80}800 08 ե  ؠȱɀL!)ȩ BDEHI VL.HP B Vh0}L@ IIԭ)I)!"0} !I!+   Lb "ϩ $ԍՍȌ˥ "˅ͥ̅ΥHHHHϩ $hh0}hh˥Սi "8ˍ̍8͍΍ˑˑ8L.0}"#ˍˈɀe˅ː`˩`O BDEHI V`S#S#`1#0i#10}#֍0#18名#呍##i$#$ h$%i##i###i$# ##i$#$ h$%i####0}i$##$$ h$%i#LU!``B#хԅձ00R:N80ѥԅ˥Յ̩ͅ΅ԅե0}eԅԥeՅեiͥiΥ ڥeԅԩeՅL$`)%(%%)JJJJ8%H%m%%X%i%)8%h%m%%x%%m1}%i%)JJ$%JJ8%%m%%%%m%%%i%%)%%)JJJJ%)%%)JJJJ%)%` 1}0@` @`p @P` 0@`p @ 0000pp```PP@1}@@@ `@ `P0p%%%%ˍ0̍1L@%0=""****************************""* * * * * CUSTOM25 * * * * *""****************************5}"".....LOWER THE DISPLAY......$OPTIONS 128,144,160,176.OPTIONS 192,208,224,2408""------------------------5}----B#AtA(#DEFAULT=128L""----------------------------V`""......CHANGE SUPERSLOW......jt!!5}OPTIONS 4,12,28,44,60,76,92~!!OPTIONS 108,124,140,156,172!!OPTIONS 188,204,220,236,252""--------------------------5}--"Ap@("DEFAULT=28""----------------------------""....CHANGE SCREEN COLOR.....""OPT5}IONS (virtually anything)""----------------------------#At(A`#DEFAULT=160""-------------------------5 }--- D:CUSTM25.BAS4 LINE25..........by Mike Nagel LINE25 is a BASIC aid & miniDOS program whichoccupies less than 2.5K9 } of RAM. It boots only if there is aBASIC cartridge present and must be used with ATARI DOS II.LINE25 supports both single 9 }and 2-drive systems. To use LINE25 you must transfer the LINE25.ARSfile to a DOS II diskette and rename it AUTORUN9 }.SYS.After booting, you will see a menu of the functionsavailable with LINE25. Most of these functions areself-explanatory9}, so only the oddities will becovered here. KEY - allows for direct use of the cursor keys,no need to simultaneou9}sly press the CONTROL key.Use SYSTEM RESET to restore normal functioning of thecursor keys. FORMAT - requires tha9}t you enter 'FORMAT D1:fn' toactivate the command. Typing only 'FORMAT' or 'FORMAT 1'will result in the command being ignor9}ed. This is foryour safety. START - the CONTROL-1 key sequence has been movedto the START key. Pressing START onc9}e stops the LISTing,and a second press restarts it. SELECT - toggles the slow mode. This will slowdown the LISTin9}g AND RUNning of the program. OPTION - toggles the superslow mode. Itbrings things to an absolute crawl. Like SELE9}CT, it affectsboth listing and running speed. The inverse video line at the top of the screen isa 25th line (thus9} the name of the program), which displaysinformation about the amount of FREe memory remaining,the current line number bein9}g listed or TRAced, and thenumber of the most recently read DATa statement. Bycombining the effects of the console keys wit9}h theinformation displayed in the 25th line, you can smash thelittle bugs that creep into your masterpiece. Press9}ing SYSTEM RESET will redisplay the LINE25menu seen when the program first boots. If you want to escape from LINE29}5, type 'DOS' andRETURN twice. The first time will kill the program, andthe second will get you to DOS. Some of t9}he default parameters of LINE25 may beadjusted by use of the LINE25.CUS file. LOAD LINE25.CUSand then LIST it for REMarks i9}nstructions. Caveat!! LINE25 hogs the "interrupts", leavinglittle room for another program. Therefore, if you need9}to use interrupts, DON'T USE LINE25! LINE25 was downloaded from CompuServe. Thisdocumentation was written by Al S9}hrock [72155,654] whoalso helped to write LINE25. Direct all technical questionsto CompuServe Sysop*Richard Brudzynski.8z0 REM A.N.A.L.O.G. #23 OCTOBER 84 MINICOMP LISTING 2 PAGE 291000 CLR :GRAPHICS 0:K1300=1300:K1400=1400:K7500=7500:K145=}0=1450:K8310=8310:K8315=8315:K8320=8320:B=122881010 A=PEEK(136)+256*PEEK(137):C=0:D=1640:L1=PEEK(88)+256*PEEK(89)+40:DIM R(3= }):R(0)=L1:POKE 752,11100 K=PEEK(A):K1=PEEK(A+1):POKE L1+C,K:POKE L1+C+1,K1:IF PEEK(L1+C-1)<>K1 THEN R(K1)=L1+C1102 LN=K+K1*=!}256:IF LN>999 THEN 15001105 POKE 85,0:? " ";B;": ";LN;"/";INT(C/2)+1;" *";1110 POKE L1+C+460,B-INT(B/256)*256:POKE ="}L1+C+461,INT(B/256):C=C+2:A=A+31200 GOSUB K1300:IF E=20 THEN A=A+1:GOTO 12001210 IF E=22 THEN A=A+1:GOTO 11001220 IF E=54 =#}THEN GOSUB 30001230 IF E=21 OR E=36 THEN P=96:GOSUB K14001240 IF E=7 THEN GOSUB 40001250 IF E=10 THEN GOSUB K1300:GOSUB K1=$}300:GOSUB 8500:GOSUB 83601260 IF E=12 THEN GOSUB K1300:GOSUB K1300:GOSUB 8500:P=32:GOSUB K1400:GOSUB 83651270 IF E=31 THEN =%}GOSUB 60001290 GOTO 12001300 A=A+1:E=PEEK(A):RETURN 1400 POKE B,P:B=B+1:RETURN 1450 W=F+F+D:Y=INT(W/256):X=W-Y*256:RETURN=&} 1500 POKE 77,0:POKE 85,32:? "Ӡ";:FOR J=12288 TO B:Z=PEEK(J):IF Z<>76 AND Z<>32 THEN NEXT J:GOTO 16101540 K1=PEEK(J+2='}):IF K1>3 THEN NEXT J:GOTO 16101550 K=PEEK(J+1):FOR I=R(K1) TO C+L1-1 STEP 2:IF PEEK(I)<>K THEN NEXT I:NEXT J:GOTO 16101560=(} IF PEEK(I+1)<>K1 THEN NEXT I:NEXT J:GOTO 16101570 POKE 85,26:? J;:POKE J+1,PEEK(I+460):POKE J+2,PEEK(I+461):J=J+2:NEXT J16=)}10 POKE 752,0:POKE 85,32:? "";1620 IF PEEK(764)<>12 THEN 16202120 POKE 12287,104:X=USR(12287):END 3000 GOSUB K1300:=*}GOSUB K7500:GOSUB K1300:IF E<>45 THEN 80203020 GOSUB K1300:IF E=14 THEN 32003030 IF E=70 THEN 34003050 G=F:GOSUB K7500:H=P=+}EEK(A+1):IF H=22 OR H=20 THEN 33003070 GOTO 36003200 GOSUB K1300:GOSUB 8500:GOSUB K1450:Z=L:GOSUB 8300:GOSUB K83103230 Z=M=,}:GOSUB 8300:X=X+1:GOTO K83103300 H=F:GOSUB K1450:GOSUB K8320:F=G:GOSUB K1450:GOSUB K83103330 F=H:GOSUB K1450:X=X+1:GOSUB K8=-}320:F=G:GOSUB K1450:X=X+1:GOTO K83103400 G=F:A=A+1:GOSUB K1300:GOSUB K7500:H=F:A=A+13410 P=162:GOSUB K1400:P=0:GOSUB K1400:=.}F=H:GOSUB 86003420 P=161:GOSUB K1400:P=203:GOSUB K14003440 F=G:GOSUB K1450:GOSUB K8310:Z=0:GOSUB 8300:X=X+1:GOTO K83103600=/} H=F:GOSUB K1300:Z=E:GOSUB K1300:GOSUB K7500:I=F:IF Z=38 THEN 37003608 IF Z<>37 THEN 80203610 P=24:GOSUB K1400:F=I:GOSUB K1=0}450:GOSUB K8320:F=H:GOSUB K1450:P=109:GOSUB K83153630 F=G:GOSUB K1450:GOSUB K8310:F=I:GOSUB K1450:X=X+1:GOSUB K83203640 F=H=1}:GOSUB K1450:X=X+1:P=109:GOSUB K8315:F=G:GOSUB K1450:X=X+1:GOTO K83103700 P=56:GOSUB K1400:F=H:GOSUB K1450:GOSUB K8320:F=I:G=2}OSUB K1450:P=237:GOSUB K83153720 F=G:GOSUB K1450:GOSUB K8310:F=H:GOSUB K1450:X=X+1:GOSUB K83203730 F=I:GOSUB K1450:X=X+1:P==3}237:GOSUB K8315:F=G:GOSUB K1450:X=X+1:GOTO K83104000 GOSUB K1300:GOSUB K7500:G=F:GOSUB K1300:T=E4010 GOSUB K1300:GOSUB K750=4}0:H=F:GOSUB K1300:IF E<>27 THEN 80204030 GOSUB K1300:GOSUB K1300:GOSUB 8500:IF T=32 THEN 42004042 IF T<>34 THEN 80204050 J=5}=208:K=J4100 F=G:GOSUB K1450:X=X+1:GOSUB K8320:F=H:GOSUB K1450:X=X+1:P=205:GOSUB K8315:IF J=208 THEN 41204115 P=240:GOSUB K=6}1400:P=5:GOSUB K1400:P=144:GOSUB K1400:P=11:GOSUB K1400:P=24:GOSUB K14004120 P=K:GOSUB K1400:P=11:GOSUB K1400:F=G:GOSUB K145=7}0:GOSUB K83204140 F=H:GOSUB K1450:P=205:GOSUB K8315:P=J:GOSUB K1400:P=3:GOSUB K1400:GOTO 83604200 J=176:K=144:GOTO 4100600=8}0 GOSUB K1300:GOSUB K7500:G=F:A=A+1:GOSUB K1300:GOSUB K7500:H=F6010 P=162:GOSUB K1400:P=0:GOSUB K1400:F=H:GOSUB K1450:GOSUB =9}K83206030 P=168:GOSUB K1400:F=G:GOSUB 8600:P=152:GOSUB K1400:P=129:GOSUB K1400:P=203:GOTO K14007500 IF E>127 AND E<201 THEN=:} F=E-127:RETURN 8020 POKE 85,28:? "Ҡ ";PEEK(L1+C-2)+PEEK(L1+C-1)*256:END 8300 P=169:GOSUB K1400:P=Z:GOTO K14008310 P=;}=1418315 GOSUB K1400:P=X:GOSUB K1400:P=Y:GOTO K14008320 P=173:GOTO K83158360 P=76:GOSUB K14008365 P=L:GOSUB K1400:P=M:GOT=<}O K14008500 A=A+1:GOSUB 8590:U=Z:A=A+1:GOSUB 8590:V=Z:A=A+1:GOSUB 8590:W=Z:Z=U:IF E=65 THEN Z=U*100+V8520 IF E=66 THEN Z=U*==}10000+V*100+W8540 M=INT(Z/256):L=Z-M*256:RETURN 8590 X=INT(PEEK(A)/16):Y=PEEK(A)-X*16:Z=X*10+Y:RETURN 8600 GOSUB K1450:GOS=>}UB K8320:P=133:GOSUB K1400:P=203:GOSUB K14008610 X=X+1:GOSUB K8320:P=133:GOSUB K1400:P=204:GOTO K1400<g0 REM A.N.A.L.O.G. #23 OCTOBER 84 MINICOMP LISTING 3 PAGE 295 Z=0:W=110 C=89:B=PEEK(C):A=256:GOSUB 90020 DS=C:C=88:BA@}=PEEK(C):DS=DS+B100 P=W:Q=255:E=960:E=E+DS110 A=DS120 POKE A,P:A=A+W:IF A X=USR(ADR(TXTLONG$) ,MOVCD,COLOR,WDTH,HTEO},Y,X,C##-----------------------------jj IS A CODE WHICH DETERMINES HOW MUCH OF THE CHEP}ARACTER IS DISPLAYED.mmIF 0 THEN ALL OF IT IS SHOWN. IF IT IS 1 3 5 OR 7 THEN THE LEFTMOST COLUMN IS DEEQ}LETED.ZZIF IT IS 2 3 6 OR 7 THEN THE TOP ROW OF EACH CHARACTER IS DELETED.BBIF IT IS 4 5 6 OR 7 THEER}N THE BOTTOM ROW IS DELETED.ppTHIS IS USEFULL FOR LABELLING GRAPHS AND FOR PUTTING MORE TEXT OES}N THE SCREEN THAN NORMALeeA PARTICULAR USE IS FOR LARGE CHARACTERS DESIRED NEAR THE EDGE OF THE SCREEN.ET}XX THIS VARIABLE REFERS TO THE COLOR REGISTER IN 4 COLOR MODES.==THE NUMBER IS THE SAME ASEU} THE SETCOLOR COMMAND.@@THE VALUES ARE NOT THE SAME AS THE COLOR STATEMENT.??FOR GR. MODES 4 AND 6 THEEV} VALUE IS IMMATERIALnnFOR GR. MODE 8 A VALUE OF 3 PRODUCES WHITE LETTERING.1 OR 2 PRODUCE CEW}OLOR ARTIFACTING.&llTHE ARTIFACTED COLOR WILL DEPEND ON WHETHER THE X COORDINATE IS ODD OR EVEN.EX}0@@HIGHER COLOR NUMBERS WILL PRODUCE ODD RESULTS.:ccFOR GTIA MODE 9 THE COLOR VALUE SELECTS THEEY} LUMINANCE OF THE CHARACTER.D\\FOR GTIA MODE 11 THE COLOR VALUE SELECTS THE HUE OF THE CHARAEZ}CTER.NiiFOR GTIA MODE 10 THE COLOR VALUE MAY HAVE VALUES OF 4 5 6 7 12 13 14 AND 15 ONLY.XWWTHIS IS BE[}ECAUSE ONLY 9 TOTAL COLORS ARE AVAILABLE IN THIS MODE.bl^^ THIS VARIABLE DETERMINES THEE\} WIDTH OF THE CHARACTER AS MULTIPLE ...v99OF THE NORMAL WIDTH PRODUCED IN THAT MODE.eeIN GR. MODE 8 TE]}HE NORMAL SIZE IS THE SAME AS GR. MODE 0 IF YOU CHOOSE COLOR 3.<<IT IS THE SAME AS GR.1 IF CE^}OLOR IS 1 OR 2.ii IS THE HEIGHT OF THE CHARACTER IN MULTIPLES OF THE STANDARD FOR THAT MODEE_}.ii IS THE ROW NUMBER. IT CORESPONDS TO THE VERTICAL PLOT POSITION IN BASIC.ppE`} REFERS TO THE COLUMN NUMBER. IT CORRESPONDS DIRECTLY TO THE BASIC 'POSITION' FOR THAT MODEdd AND TOGETHEa}ER SPECIFY THE UPPER LEFT CORNER OF THE CHARACTER CREATED.FF IS THE ASCII VALUE FOR THE Eb} CHARACTER. EXMPLE: "A"=65;A, cc67@,.PW(JJhhhhh  Eԅ Ec}hhhh֥X˥Y̭hhͪecc67@,.P˥ihh  &  &ՅޠۥEd} cc67Aa,.Pi ۥ 8ۅe˅˥i̠߄8f߈8ޅޠ۩E߅hhɀ8*cc67AA,.PEe}υх i@ͥ `8 ͥͅѢͥeхͥi ۊ4cc67A!,.PEϤ   ՄEf}ք٠Ȅr &WH%ԅ∱%ߑ˄ &>cc67A,.PHEh%E˩HehEg}hք٠(НՄH2267A,.e˥ï`R;;(3TYPE OF PRINTER.1=CENTRONICS 2=EPSON Eq}BŠb'DOS SYSb*;DUP SYSbeAMENU SYSb5fMENU bDISKIO2 ARSbD8TOD4 DOCbD8TOD4 BASbD8TOD4 OBJbHTPATCH DOCbHTPATCH OBJbINIT96 bLINE25 ARSbLINE25 CUSb LINE25 DOCb!MINICOMPLISb?MINIDEMOLISbABTRANS4 bGPMCREATERV1bPMCURSOR bESCRIPTORCNVbY SPACELIB b-ySPACELIBDOCbSPACSORT bCURSOR BDESCR DIR 3=C.ITOH\f[ +@$'0@A0@[0@@p @zEr}K,@@'/A@&9/AAuK/@@FF6-?:C:,<<@<@<@<@Es}<@<@:I,,FF6-?:C:,<<@<@<@<@<@<@:T,,FF6-?:C:,<<@<@Et}<@<@<@1<@: ,,FF6-?:C:,<@<@<@<@<@<@9<@:G,,FF6-?:C:,<Eu}<@<@<@<@<@V<@:E,,FF6-?:C:,<<@<@<@<@<@<@:T,,FF6Ev}-?:C:,<@<@<@<@<@<A<@:S,,FF6-?:C:,<<@<@<@<@<APEw}<@: ,,FF6-?:C:,<@<@<@<@<@<AV<@:B,,FF6-?:C:,<<@<@<@:,+E} 6. 67A,. +67@,.HHABLANK$ SIMPLY PLACES THE DUMP IN THE MIDDLE OF THE PAGE7@E}6.(67A,.767@,./@/67@r<@r,.>:,CCTHIS LINE ALTERS THE PROGRAM FOE}R NON CENTRONICS TYPE PRINTERS/"@/67@7<@7,.>:@B,/"@/67@d<@d,.>:@,E}EETHE PRECEDING 2 LINES ALTER THE PROGRAM FOR EPSON TYPE PRINTERS A%%6-F:@,%AV$F:@,&&FF}}~.#D#PLEDICCCCWIDTHCXC264NUROTPREC70C2COTEMORDJJCTBITCHFILLPMBASMLM1M2M3M4I}M5M6M7LT@@BtF@@@? @ A&@ @ I}A-A@FA@"(@#A@@@I}A@C !"B#Bhd$%&U'''| ( ) *+ , I}-./@rrЯ͠ҠҠ뮠ǠǠ𳳩̠I}𷷩qqӪЪêŠì 堲Я͠ᮠ 堲̠I}qq󠲰 䮠 󮠠qqI} 報 󠹰宛LLžI}ϠŠЯ͠ˠԬ庢Ϡ B A! ԛ6-+%,$+ ,9 -I}B2H% )-@9( C A&5@ ',@%$CB2R@%$@ A&BI}6-@'6-9B2H%A%@:7%,,"9B2H%A$ ͭԛ?6-@ ?(' righI}t - TO SELECT button - TO DISPLAY @),: 6-#T:,"&6-+&@,'0 AS: AR:,@I}A" @2,"@ "$ 6-% A ț6-+ ,$@:7%,,%67%<%,.>:,I}16-B2V%6-@' A1 A`$+ ̮, -68,-8, .#"@F B # AI}/ BP3-@@(6" -6-8,"-@";8,%F:%,%@   A&5I}X$] қ^ A&7_3 AV6-A%)6-@3 Ar$ ΛP6-A%6-@I}.6-F:,'@;P:,)"F6-F:,%P A6-F:,&@( -@%$%( ($I}Ҩ©) A&7 AV) A$Ψ©66-F:,'@!P:,)",F:,%6 AI}F:,&@(-@@ %( F:,($&6-?:C:,,$INVERTX6-?:C:,,$RIGHT6-?:C:,,$I}LEFT6-?:C:,,$DOWN6-?:C:,,$UP 6-?:C:,,$INVERSER. A&@ A&E#6-?:C:,,&$.EI}RASE ěZ ( D:PMDATA,( A&E, B( LOADING DATA...Z?" PRESS play,"CD:PMDAI}TAC 905 POKE 764,63:OPEN #C1,C4,CZ,"C:"! )! A% -) AQ%6-8, -I})% 6-@:7%,, AU  6- AR$ ś_ ( D:PMDATA,I}( A&E, A( SAVING DATA..._?" PRESS play & rec,"RR 955 POKE 764,63:OPEN #C1,8,CZ,"C:":PRINT #C1;WIDI}TH$:PUT #C1,PEEK(C707)4@D:PMDATA$(4*F:A,& -*F:A%,&6-8, -I}*F:%,   $Š -4 A &( data ?0 A&F4$6-8,% I}A&$-@'46-A(-@# *(.4 A (6-& 6-'  A&D $I}ٛN ( READY PRINTER% A&E*4 APN@P: !(!( BGRND COLOR=F:,"I}( POKE 559,$J -(!(PLAYER J(POKE %,F:%, :REM COLOR)55(POKE B2V%,I}@:7%,, :REM WIDTH+E(DATA !-8,8,%,(F:,78,%A(,E 3  (G$K I}śL2 2(&down-SLOW SEQ.-left up-FAST STOP-rt.Q 6-VB2H%8,AZ 6-R:,"@ 6-%\-I}"@ A&6# A&A- A 1^"@ A@`"@6-+&,$+!,d0 -  B2H%8,I}06-+%,$+ ,o At -u3 !( frame % (0-2)%3!AAv1 68,--@%$ (I}$ ''1 A˛# 6-6-1#6-A( 6-%(>:,6-6 F:B2y,@A I}`6-F:A,0A+",$@2HB2Q+,$A`B2U+,$A/ 6-T:,R:,"@I}*%6-#/ A  *+)",A H 6-R:,*6-%+"@,&+"@,H6-%+"@,&+"@,$I}3 ԛ4E!@4) @'6-%6-16-@C; A&DE A&> "6-C"@#6-H A I}M( A%R A! ŠΠě 6-@:7@5&,,6- 1 6."@:,"&A($+ ,*6I}..16-6 , (6-8,%"6-%F:,, A& !!T:,"*R:,"@A%0 A  $' ŠI}Ԡқ( ) -@7( $- ӛ.  A T:,"A&/ Q6-@  A&D# A I}1G")"@)!@* @Q A&A2 / $@P%!@* @/ A&B4 A&66 < #6-I}@'%@$+ ,/6-@C9 A&D<$8  "6-: "@#6-; A&F ӛK ; 6-8,I}P:'AV,8&AV$P:'AV,;$L # -@3 (PLYR #$M / ( COLOR(0-255)?( A&F,I}/$P > -5(' ;->$Q -@($R 6-?:A,6-8,S O I}-)2@%@@46-F:%,> A&B L2O$T 5-@6$2@( 225$I}U  -( PRESS any keyV AdAUW R:,@' A&X F:Ad,"AUA&GY $N I}ś Nc6-6-@'6-@36-@?6-@K6-@"W6-Ac6-A&@!N` @F:AI},&@&(}0+@R6-F:A`,%F:Aa,$AV`%AR"NA#NmA@m(@I} player creator  animator  Ԡ$N ɛ%ND-A6AC"!% I}D72,165,208,141,27,208,104,64&N3A#@!A3A@'N̠ś(NN-ARA6I}82%AP@@ @%D N2)N̠қ*N'-@A"#A%' +NVV104,160,2I}2,132,84,162,27,134,85,164,84,177,0,133,2,162,8,134,4,38,2,176,4,169,46,N>>208,2,169,160,32,164,246,198,4,208,239,198,84,20I}8,221,96-NEF:BG(,Ab*A0Av<A1ABE̠؛.NRR9@,;@,;@,9@I},9@,;@,;@,/NRR;@9,;@,;@,;@,;@,;@,;@,0N""̠I}Š1ND16.'hة `D6. hJ`2N*6. h `*6. hI}ȑ`3N-6.h`-6. hQ`4N=6. h`.6.hhhhhhh`=6. @7N I}ԛ8N)+)6-F:A`,%AV$F:Aa,9NK%@p%%@@9%@A0KBBAN I}͛N46-F:A,&@&BBy46-AV$N BPB2wNL -68,-"B2V%467%<%I},.>:,HA%AL N-B2QA!A-B2YNM)6-?:C:,<%AF<@7<A,;B2UI}AMB2`AN))6-?:C:,<%A<@t<AU,N/6-?:C:,<%A<<,/B2R@PI}ΠԭЛPoA@$'AAD3A?ARQ@@c@@#o-@PVVI}(N P0 P1 P2 2 2 2 46 46 46 191 191 191P'@!@@ '-PllI}(dӺEDIT M-EDIT WIDTH RESOL. COLOR LUMIN. COLOR[B]=LUMIN[B] INVERT SCROLL P[[(SSCROLL  SCROI}LL  SCROLL  INVERSE ERASE LOAD DATASAVE DATAPOKE DATAHARDCOPYP*@@9*(ANIMATE [0-1-2]P_ AII},@@1/@#@;@!M,@@ _/@$@ P A`,@%%/@%7,@I}@I/@@ [,@$@ m/@$@,@@/@@ P,@@ ',I}@#@1ASC,@#@U/@#@_A@q,@#@ { A A 1ARI} A&6$RŠΛR^ 6-6-@b&68,-%Ad768,-%A H68,-%AvR B`^SINGLI}E 62R;6-+AU,$A;6-?:C:,<%A<@t<,R>/6-?:C:,<%A2<@<$+"A,,;AY>$I}Sd6-AU6-@F,68,-%A=68,-%AN68,-%A8X BAdDOUBLE-46 S-?:C:,<%A X(&(ENTER CURSOR COLOR (0-255)0 A M}4> B!! )!AUA %@t.(.(#WARNING: THIS ROUTINE USES PAGE SIX!(!(ASM} P/M RAM (PLAYER 2).!!TURN ON OUR VBLANK ROUTINE. 6-?:,"""RETURN CONTROL TO THE HUMAN.,-AR@("M}(BASIC*(IS-6SETUP SUBROUTINE.@C +AR@1@@C@@9JROUTINE=SAM}FELY UNDER THET""DISPLAY LIST OF ANY GR MODE.^$$6-+F:A,&@3,$AVh'('(PLAYER CURSOR BY JERRY WHITErM}.(.(!MACHINE LANGUAGE ROUTINE ADDRESS=|((%(STORING DATA AT LOCATION ($DATA FOR MACHINE LANGUAGEPLAYM}ER CURSOR ROUTINE.##104,165,212,24,105,36,133,212!!165,213,105,0,133,213,162,7!!160,144,177,212,157,0,6,136$$M}202,16,247,164,212,166,213,1697,76,92,228,173,240,2,240124,173,43,2,240,4,169,0240,6,173,8,6,24,105,8 M}141,8,6,48,104,160,255,1690,153,0,6,136,192,8,208!!248,169,10,141,194,2,141,20 208,169,1,141,111,2,141,27 M}208,169,0,141,10,208,169,0 141,7,212,169,2,141,29,208169,58,141,47,2,141,0,212&!!166,85,164,84,165,87,13,1470M}2,240,12,173,191,2,201,4:""208,35,152,24,105,20,168,138D 10,10,105,48,141,2,208,152N10,10,10,105,39,168,162,7M}X189,0,6,153,0,6,136,202b 16,246,76,98,228,169,0,141l2,208,76,98,228v0,0,0,0,0,0,0,240DATA IN LINE 6M}30 IS THEPLAYER CURSOR SHAPE. D1:PMCURSORL71"G"SCRTOATINTMPINFILEEADBADTEXLTEXTIENLTEXTMTEXTTATASKIITINTERNALOUTTMPOUTFILENEXTRULINEANSBURSQ}TIOIGOOIBALTEXTTIGUESOGUESSHLINEBLANKTJENSLINEADSJSTARLJSJSAVBLANK2TMPITIMQ} Q} !"Q}#$%&'( SAVE "D:SCRIPTOR.CNViiCONVERTS TEXT TYPE FILES BETWEEN ATASKII (USQ}ED BY ATARIWRITER) AND INTERNAL CODE (USED BY SCRIPTOR)QQThis is a Bellevue Redmond Atari Computer Enthusiasts public domQ}ain program(11Written by Bill Frisinger 12/04/842""TEXT$ CONTAINS THE TEXT FILE<eeTATASKII$(226)CONVERTS INQ}TERNAL TO ATASKII, THE I'TH+1 VALUE IS THE ATASKII CODE FOR INTERNAL IF((TINTERNAL$(256) GOES THE OTHER WAYP} +@Q}AAP*(@H(@ ҮS(@r(@ a brace program}(@Z$(@Q} by bill frisinger/(@G(@ convertsa(@ text files(@ between scriptordJ"(@Q} and atariwriter-(@8(@B AJSETUPnu-@3(@ T(@Q} for instructions_(@u(@ x\(@ to exit&(@;(@ \(@Q} to start program3 F:B2y,"@A 03FOR ENSTRUCTIONS/F:B2y,"@"+, B/3 Q}F:B2y,"@Ap3TO START PROGRAM A0-@+(@ L(@ atariwQ}riter h(@ to scriptor(@ }$(@ @(@ scQ}riptor to\(@ atariwriter}(@ //6-@#@#@#@#@^F:Q}B2y,"@$6-. A0^ATARIWRITER TO SCRIPTOR (ATASKII TO INTERNAL)^F:B2y,"@$6-@. Q}A@^SCRIPTOR TO ATARIWRITER (INTERNAL TO ATASKII) A +(2!( Name of file to convert.(( Q},26.47@<@,0:%6.D:467@,.> Ap A4@@> BQ},(!( Name of output file.(( ,47@<@,0:%6.D:467@,."#6-?:%@<<,#@Q},_@*A6(R( # at line 270 using BURSTIO reading U(_ A@6/(/($ Program now fQ}inding string length.@ 6-6-%&@J? 6-P:+%%?P,'@,/F:,"A"56-? A0T! 6-!+&Q},!@A0^e6-&%@(,( Length is .H( Now doing conversion.K(e( It will take about hF&6Q}-+$'A,%+(,$+'A ,76-P:%?P,F( minutesr(A0|@6-@6-@@CONVERTING SCRIPQ}TOR TO ATARIWRITERG-@)6-+@:7<,,%@,G"@*"@A'67<,.7<,!6-%@'6Q}- 6-&@ A`f Ap A4@@> BfCONVERTION OF ATARIWRITQ}ER TO SCRIPTOR'6-?:%@<%&<,'@t+"@)"@)"A6Apt3 OR 136 SHOULD NOT ACCUREQ} HERE BUT THEY DO AND SEEM TO CAUSE NO PROB.I(<( # at line 440 using BURSTIO reading ?(I A@6-Q}@6-@7 6-&%%6-%+@8&@,+6.1!76- -;6-+@:7<,,%@,+6-&%@Q};67<,.7<,+6-%@%"AU%@+6- ?-@@8;67%&@<%&@,.7Q}<,? 6-%@8 A& 6-0L A *@@4 BA6-?:<<,L@:Q}U@(H( # at line 560 using BURSTIO writing K(U A`Ds +@AAP*(@Q}.K(@ V(@s(@ NL($(@ /(@L(Q}@ Xr(@!(@ ,(@J(@ converted to U(@h(@ Q} r Ab SETUPlA`v=-@!-@=(@ RR;@,;@Q},;@,;@,;@@,;@,;@8,I;@A,6-C:,I6.) 0BhhEhDhIhH VCQ}`TTBURSTIO IS AN INPUT/OUTPUT ROUTINE WRITTEN BY MIKE PELLETIER, AUTHER OF BASIC8A;AV,!67@,. 26R}7AV,. A67@,.O;AV,(67@,.>:,@67AV,.>:,O67@,.O;@8,R}(67@,.>:,@67@8,.>:,O67@,.A;@,!67@,. 267@,. A67@,R}.*6-I:,&A!;,*6-C:,o-@c=67%@<%@,.>:%@2,k67%@2%@R}<%@2%@,.>:,o W-@A'567%@<%@,.>:,S67%@<%@,.>:,W v-R}@*(@ J(@ maintain inversek(@ and graphics sym.v(@e#(@R} D(@ blank out inversee(@ and graphics sym.9 F:B2y,"@A9INV.R} VID. TO INV. VID.5 F:B2y,"@A@5INV. VID. TO BLANK  A`o-@d@=67%@<%R}@,.>:&@d,k67&@d%@<&@d%@,.>:,o  u A!-A(AUL6.7&A(%@R}<&A(%@,u67%@<%@,.>:@:,%A(,*[.6.7&A(%@<&A(%@,W67%@<%R }@,.>:@:,%A(,[ 48-AVAY467%@<%@,. 8 >8-ASAU467%@<%R }@,. 8 Hf A=67@%@<@%@,.>:AU,fWHAT SCRIPTOR USES FOR CARRIAGE RETURNRZ367R }AU%@<AU%@,.>:@,ZSCRIPTOR USES 94 FOR CARRIAGE RETURN\ Af?67@,.>:A",-6R }7,.>:A",<67@,.?$p=-@)-@@6(@: =$zb(G( F:A,R } at line F:A,%F:A,$AVb( when tried to open "@ B" A@p(O( F:AR}, at line F:A,%F:A,$AV whenp( tried to open or write to &(@ B& A`R}3 #A 0+3COMMENTS ON PROGRAM USAGEK'( Do you want the informationK( listed to the printer (Y/NR})0Y A  A@3 A0"03 A p A0:TRAP 2086K-@R}@"" # &()(G( Hit to continueK1$( '(1 AS@R} B((E(! Hit to exit to main menuIS @,"(Please turn on printer!, A @..,,A BR}RIEF DISCUSSION OF SCRIPTOR.CNV, ,$ffScriptor files are incompatible,with Atariwriter and probably most,other word procesR}sors because.aait uses the internal character,code rather than ATASKII.,(See App. 10 of MAPPING THE ATARI)8ccLower caseR} letters are the same,but upper case letters and most,everything else is different.B\\Blanks written with Scriptor,look liR}ke hearts to Atariwriter,while blanks written withLIIAtariwriter look like an "at" sign,(@) to Scriptor. This is becauseVR}OOScriptor uses a zero for a blank,and Atariwriter uses a 32 (Hex 22)., ,,`QQ,,,Scriptor also uses a 94 (Hex 5E) for,a R}carriage return while Atariwriterj%%uses the standard 155 (Hex 9B).t%%Another peculiarity of SCRIPTOR~ddis that it dR}rops everything beyond,the carriage return within the,line displayed on the screenddwill be dropped. This program,fixes tR}he problem by filling in,blanks after the carriage returnaawhen converting to Scriptor.,When converting to Atariwriter,itR} deletes all blanks after theSScarriage return., ,,,This program converts files,from one type to the other.""A few iR}ncompatibilities will__remain due to the different way,the programs put in formating,commands but that should beTTeasR}ily fixed with whichever,word processor you will be,using the program with.``To facilitate converting this,program gives R}you the option of,converting inverse video andYYgraphics symbols to blanks,since these are often related to,the incompatiR}bilities.,D:SCRIPTOR.CNVP!\(,;,N8SBNSPNNNCNNVOLDSNDESTYPSRCDATSECN55RTDLNDHDLDHRTSLN3KEBLN1N1NSNINSV!}SSEARCN2NSVSEBYRN6OFEON1DRDEIPDMENDEWRCOULIDRXCFPCSNDRRAPDRDMAV"} V#} !"V$}#$%&'()*+,-./01V%}23456789:;<=>?@AV&}BCDEFGHIJKLMNOPV'}q Bq嬠š𱱲ӪЪêŠì砲E %V(}%%!AR((}.6%<6-B6-E$Q("6-@%@$+ ,, @<&%$+ ,K(7<@V)},Q6-G &%-%%$+ ,!(%()(-(1(5(9(A&D(G$)6-$@A)AV*}Q A#%+&7AR>(}F%N%Q$D %%%A-%V+}3;&AD$ 0 &&(󠣠ݠ ,0  8 &4(٠ݠ 7,8 V,} /,(#ݠ٠ݠ /$ (ġ$ $!(Ů$$"(V-}š"$: &%'(SELECT INDEX FIELD:2(7<$,:&3-%&+", #6-&@H- )!V.}3 %( "$76.'.5;>6-@:7,,.6-@:7%,,&4"7$V 6-6-$6. ENTER VALUE . A"46V/}->*%I6.7<,S6-%&V$ 6-&6-  % ")"# % 7,4D# V0}  " %07<, X 6-%6.6.7,%6.7%,06.7%,?6.7@F,J6.7&,U6.7&,X$ 9!<$] ]6-?:C:EhhhS S0'R  A SV2}A0 ԩ`,<,$"| 6.67,.!67@,.067@9,.?67@F,.N67@S,.]67@Y,.yV3}67,.>:@B%@&$,|$#.6-@5 A .%$%   $(QAdV4}AU)8+"AU)"A&,%@"&F6-I'Q &&-l!@*+(,)!A',A$8AR6V5}-&A($+!A',l6-&@2$+!@,2$7K:$<K %6-F:&,(( 7<,0&V6}<ARD(=>K6.A2 6-B:,$"AU@2"@uFE%+!%* A#,$)!&* &367%V7},.>:,;(>:,E @eKBA&)"@e$( 56.7<&+!,,;"B6.P @eU@"V8}6.0Z 6-A:,_  67%,.7%<,`-AR($A$*6--$a")"% %(b0 !V9}0(!堦ՠc/ A 6-& !/%d>' AAH(AV:}.6-:A> n? 6- % !6-&@H3 )!A9"?6-x 6-% !AA V;}"7( 堃>:%AD, DIRECTORYA AeK6.A DRIVE #1 Insert Disk and press٠V<}e67%<%,.>:@H%,I "67<%,.non dosI67,.! Press٠to begin or.!(6. !V=}"A I A`6.6- (, 3@7<,4:I6.7,/7<,47,6-%67<,.7,/ V>}A( ҭ Ap/6-A0/ApA L 6-6-5( ˠV?}ԩ (DNNN)? @`F(L6.] A 6-A!&A( Creating ' ' file...LX(7,]V@}"F A 6-A(%F(,L 6.67,.*.*6- ,6-A6 A VA};FL6-65 A'B:, %A5A@@F(6-%F:&,!& ($ ,6-$0 8VB}-&C(cont F(J AT% 6.7,-!7<,0 % ^G'67,."7%<%,0 /67<,..G67%VC}<%,.7%<%,hOO7%<%,4SYS)7<,4MEM.SAV)7<,4DISK.CAT)7<,4MENUAr467%,."67%%,.7:%Av,U+(#Install pVG}roper disk & press key orU($reate a new DB file orto menu.R 6-6-6- 6-*(4%R( CVH}reating ' ' file...Y A 6-6- "-36-;6-%Y67B:,%,.PROGLIB.DB 002  %VI} L6(ˠˠ ERROR-F:A,L%A 0A - -(ˠ ERVJ}ROR-, %6-6- 6-((,  -%A$+!,  $ŭǠC 6-% @5VK}6.%6-+6-16-76-=6-C % "Ap& -&7$&<$&,4AP= 67,.D3VL}(  deleted on Disk #= A`667&<&,.7$&<$,.67$<$,.*66-%$ ( A VM}.3 "#(Ǡԡ)6-- 3 &!!Ϡ̠Ǡ'  6- %!"A 0' %VN}( -("*7$<$,4*A 16.7$&<$&,'6.7$&<$,-"1 4 %&#(}ĠĠ)VO}4( fn:$$(Enter data ( to abort):# -# *+ )",A p I 6-$&6.7&<,( (* A"VP}2"%9(? %I A   6-  c'(Pressif OK orto abort+ ;%A 0B(Y(VQ}Ġġc A *   4 &!!įŠԠҠO(6. "6-@:7,,,6-+ VR},26-< @`B6-L"%)O$ A"% 6. $ 6. $ 6. $ 6. $ 6. $ 6. $VS} 6. $ ׯԠ &(6-# &( q*(" OUTPUT: REVIEW....all fieldsM(VT}SCAN......#, ID, descripq(PRINTOUT..to Epson types D 6-&@H' )!A0 ,(26-86-> %VU}D6- 1 "6-A00 A -P:1  6-A0P%@P$  6-%!A3    VV} A1pN :%(}   id description-6-%:(A0PO '(  ' &A0Pb - 6- % VW}!"A0P)6-&-  ҠŠ R!A20"@(#Ǡ Press٠to abort.RAdVX}AU L2(@7,GS*P*A*C*E PROGRAM LIBRARY :6.-C67,.L67,. h\(>M D.M]m|DISK# PROG/FILE VY}ID DESCRIPTION TYPE SOURCE DATE7%, SECTORSHh(7, ..(       (F:AdVZ},AU %( A3  !&6-(  A0P  " &ŠŠ!( V[}6-! # (6-% @5#6-  ! & 4 -4(&TYPE Ġ to Update,V\}to DeleteA %-% !6-+"%,/6-&@HA )!A@6.7$&<$&,S-(ENTER REVISED FIEV]}LD # or 5( ? A"S A@0%$+"%,! (! A@ ԠŠ!( V^}6-! 6&( TYPETO SORT ON FIELD #* 2%6 ) @5A&)A&a A V_}6-AP0+6. D1:SPACSORT967<,.=:,]( Loading 'SORT' program....a%oΠ͠pR( V`}+(Ġ16-96-%?I @`N(R z?6.7<,6-6-%&!(' %-6-3 %96-?Va}6-A %(忠ٯ ) 1%7 %A A` $6.7<,"6-$6.D1:2 67,.2(Vb}Ԡˠ  in Drive #-(( TYPETO RUN: ! )%- 0(Ǡ & A``,6.0%Vc}L'(B( Recheck ID or Update Catalog!F L &WԠŠŠX`(Vd}=(WORK DISK in.......Drive `(LIBRARY/SORT in....Drive bI&(DATABASE in........Drive I(RAMVe}Disk is.........Drive lK+(#Press,,orto RESETE( or٠to EXITKv: 16-+"&,%$+"Vf}%,%$+"%,%$+"&,6(: 7 ""Ap0'6-+%,$+ ,-6-7 Ap`F6-A%6-F:,46-$+ ,Vg}%%$+"*",:F Api%#-&@&$(# Ap0 6-67<,.=:,$ 6- $: 6-67<,.=Vh}:,7%AV$%Av%A:$?Ġ͠Š@? A6.#67,.MENU.*+&7AVi};+?%J'# ӠŠ(#& A@ ( &2#?6.D1:SPACELIB.DOC'67<,.=:,-6Vj}-1 <?(<#- A0(-F:&, &A F#?( % #F:A,!&+6-&/ 2(5(? AVk} P#G -7("Can't load INSTRUCTIONS on Drive #.A A G &NΠ N//"Vl}*N@@1,2,3,4,5,6,7,8,9,10,14,15,22,34,62,88,559,30,40,100,400004NAA;%,;,;A,;,;,;Vm}%,;,;,;,;,>NJ0;,;,;%,;,;,;,;A,86. A67,.J67,.GNHH堨äVn}ŠӠؤHNqq6.ghhhhhԩх֢ׅͥ؅ͅi>ͥ΅iΤϱː аȐѠ>Vo}HˑhмжRNc67A,.Р`c6.Bhhhhhhhؠ^^ޑ80 Vp}`\NF67%,.>:,%67%,.>:AU,F6-?:C:, -6-A%"6-F:,2 )+!*,86->ND Apq% +%.6-F:A,96-FVt}:%,D6-F:%,N@ 6-F:,6-& A$+*56-F:%,@6-F:%,NQ 6-F:,6-F:%,)6-%AV$%1Vu}%9%C%$QB7t$NH 1(  ͠7-C(menuH(N[( AUVv}TO CATALOG6( NON-DOS CATALOG[( DIRECTORY >:%AD,NO( REVIEW/PRINTOUT7( UPDATE REVw}CORDO( SORT LIBRARYN\( RUN PROGRAM4( RESET DRIVE(S)D( QUIT\( INSTRUCTIONSNB Vx}-% ( select number&-,8AB A D1:SPACELIBTQ The Program Library is designed tomaintain a record of your disk filesin a convenient and easy to modify'database' whicZz}h will allow you toeasily locate any program that hasbeen cataloged. The S*P*A*C*E ProgramLibrary was rewritten by Jim ChaZ{}pmanfrom the original program by Ron & LynnMarcuse which appeared in the October1981 issue of COMPUTE! (pg 112). Most Z|}Program Library functionsshould be self explanatory. Thefollowing is designed to provide addedclarification for those who Z}}are notfamiliar with this type program.SET-UP. The Program Library consistsof three disk files: SPACELIB,SPACSORT,Z~} and SPACELIB.DOC. An addeddatabase file, PROGLIB.DB, is createdautomatically (with appropriate priorprompts) when you begZ}in to 'catalog'your disks. If you have, or intend to catalog,a very large number of programs; it isa good idea to keepZ} the database fileon a separate disk. This will insureadequate disk space for additions andany temporary file which may beZ}required during the 'sort' process.Disk & Drive Configuration. The Program Library supports alldisk densities (DOS 2Z}.0 only)! It isset up for single drive operation. Ifmultiple drives are to be used, selectthe 'RESET DRIVE(S)' option on tZ}he mainmenu. Up to 4 drives plus the 130XE'sRAMDisk may be used. Any drive may beselected as: WORK......contains the diZ}sk to be cataloged. LIBRARY...contains the Program Library & SPACSORT files. DATABASE..contains (Z}or will contain) the PROGLIB.DB file. RAMDisk...sets RAMdisk Dr# (if any).CONSTRUCTING YOUR LIBRARY. SeleZ}ct the 'AUTO CATALOG' optionon the menu to or a normal'file' disk (such as this one) to thelibrary. When promptZ}ed insert the diskto be cataloged in the WORK drive andpress RETURN. The Library will check if the diskhad been previoZ}usly cataloged. If notyou will be asked to specify a catalognumber for this disk (Any 1-4 digitletter/number combination iZ}s OK). A 1sector long DISK.CAT file will then becreated to identify this as acataloged disk. Next, the disk directoryZ} is loadedinto memory. If you are 'updating' apreviously cataloged disk, itscontents will be compared with thecatalog. IfZ} no changes you will bereturned to the main menu. The Library checks for a Databasefile at this time. If not found in tZ}hespecified drive, you'll be promptedto create one or change disks. Forthose just beginning this is the timeto create youZ}r PROGLIB.DB file. Now you'll be prompted to inputinformation about each file. Type inappropriate Description, TypZ}e, Source,and Date or just hit RETURN to leavea blank for that item. Date entriesmust be numbers only. You may abortby prZ}essing ESCape at any time. Non-DOS disks (i.e., commercialauto-boot disks) can be cataloged byusing the NON-DOS CATALOGZ} option. Inthis mode you'll not be required toinsert the disk. Otherwise, it worksabout the same as AUTO-CATALOGing.Z}SORTING YOUR LIBRARY. To sort your cataloged programsselect the SORT LIBRARY option on themain menu. Specify the field Z}(i.e.,Disk #, Prog ID, Type, Source, etc.)to sort on; then wait while thecomputer performs the task. All sortsare done inZ} ascending order (i.e.,1-9999, A-Z, or combination thereof). Sorting times vary with the sizeof the database file and mZ}ay takeseveral minutes to complete. Themaximum size of the database forsorting is approximately 950 recordswith a 48/64K Z}computer. The SORT function also compressesthe database by removing previouslydeleted entries and by filling(instead Z}of partially filling) eachsector with data. Therefore, it iswise to re-SORT any time you've madea large number of additionZ}s ordeletions to the library.REVIEWING YOUR LIBRARY. To view the contents of yourlibrary database select the REVIEW/Z}PRINTOUT option on the menu. Specifywhich field to index on. If you'veselected any choice except 'ALLRECORDS' a search vaZ}lue will berequested. Input any appropriatecharacter(s) - from 1 to the maximumallowable number. The more charactersenteZ}red, the more specific(restrictive) the search.Now select the type of output: REVIEW....all fields SCAN......#,Z} ID, descrip PRINTOUT..to Epson typesAs always, you can press ESCape toreturn to the main menu. If PRINTOUTwas selecZ}ted, pressing any key willstop the printer.PRINTER DEFAULTS. The PRINTOUT option is setup forEpson/Gemini/compatibZ}le printers. Ifyou wish to modify this for anothertype printer: LOAD (not RUN) SPACELIB;LIST lines 3210 to 3250; insert thZ}eappropriate printer control codes;& SAVE the corrected program to disk.UPDATING INDIVIDUAL RECORDS. This can be easZ}ily accomplished byselecting the UPDATE RECORD option fromthe main menu. Use the same procedureas with REVIEW/PRINTOUT to Z}retrievethe desired record, then follow theprompts.USING THE LIBRARY TO RUN ACATALOGED FILE. Menu option 7, RUN PROGRZ}AM, isuseful to locate a desired program.After inputting a full or partial (ifyou can't remember how to spell aparticularZ} filename) program ID, theLibrary will search the database fora matching name. When found the diskvolume number will be diZ}splayed. Ifthe program is in BASIC, you may RUNit by simply inserting that disk, andpressing 'Y'.OTHER FEATURES. Z} The DIRECTORY menu option willdisplay the disk directory of theWORK drive. Option #9, QUIT, will take you tothe MENU Z}of the LIBRARY drive. If noMENU exists, you'll return to BASIC.HAPPY CATALOGING!! J.C.Xg)*N6NNNRECXDB2MADBRMORSS^} M6-@b6-@'6-@- ^}&MӪЪêŠ٠ by JC. 6-%6-%$# $6-%#%- 6-- !(7<,^}% *-$A/(& First Sort Finished, Saving File...56.; %A6-7!( Loading More DATA....-@w36^}-7 :K6-P:+I:,&A,',7;$,;,;$,;$,K6. D1:PROGLIB.DB;667%<%,.=:F:A,,$6.667,.^}TEMP.DAT=> $6-&3( LOADing 'DATA BASE'....>>2 %B:,&7,4D.6-%2 ?^}, 6-%6-% "67<,.( , @9 6-%A/6.9 @iBM6-F:A,A6^},6.ERROR #C67%,.=:F:A,,M @iCP 6-@(  Records loaded.  Deleted.P A%^}+ ,D6. E(( ġ( APtC%( Sorting - Please Wait....;6-?:A6:@',>:@7,>:@H,((INITIALIZE CENTRONICS FOR GRAPHICS 2F}"@23>:@',>:@e,>:@, SET EPSON TO 6 PIN SPACING""@"3>:@',T12(!!SET C.IF}TOH TO 6 PIN SPACING2-@@2<6-?:C:,:@',S0420n..INITIALIZE AND PRINT GRAPHICS FORF} C.ITOHxA"@A3>:@',>:@u,>:Ad,>:@,--INITIALIZE AND PRINT GRAPHICS FOR EPSON6-F}%A@))INCREMENT POINTER TO DISPLAY MEMORY 2"@23>:@',>:@,>:AU, RESET CENTROF}NICS TO NORMAL2"@23>:@',>:@P,>:AU,RESET EPSON TO NORMALW"@W3>:@',>:@bF},>:@,>:@I,>:@T,>:AU,RESET C.ITOH TO NORMAL AD:TRANS4F}"2AA$$******************************$$* *$$* NO-FRILLS ALTb}ERNATE CURSOR *$$* BY TOM HUDSON *$$* ANALOG COMPUTING *$$* *b}$$****************************** s-AVAd"!% :AF:@,OAF:@,a@b}s@@)&(}PRESS TO INSTALL CURSOR)TT169,1,133,13,169,0,133,12,169,0,141,7,22,169,1,141,111b},2,162,1,160,40,169,7,32VV92,228,169,58,141,47,2,169,2,141,29,208,76,0,0,216,169,1,141,240,2,169,58,141,47VV2,169,0,1b}70,157,0,6,202,208,250,165,85,10,10,24,105,48,141,2,208,165,84,10,10,10VV24,105,39,168,169,240,153,0,6,238,109,1,173,109,b}1,74,74,74,41,1,208,4,169,15,208!!2,169,0,141,194,2,76,98,228D:CURSOR *$$* NO-FRILLS ALT`RS*P*A*C*E DISK #19 ............. DOS II - ALTERDOS mods DOS II - Burst I/O fixed AUTORUN.SYS for MENU RUNf},>:@,>:@I,>:@T,>:AU,RESET C.ITOH TO NORMAL AD:TRANS4D/ENTER BAS & ML files MiniDOS-rename AUTORUNSYSInstructions for D8TOD4.*130XE RAMdisk patches for for HomeTerm HTPf}ATCH.OBJ Instructions HomePac 130XE RAMdisk fixRUN before using MINICOMPML miniDOS/BASIC aid LINE25.ARS customizer LINf}E25.ARS instructions MiniBASIC Compiler Demo of MINICOMP program Graphics text & printout Player/missile editor Cref}ates a custom cursor Converts text to AtariWrtDisk program library SPACELIB instructions SPACELIB Sort program Makf}e a AtariWriter cursorDisk file descriptions ŠDOS SYSDUP SYSAMENU SYSMENU DISKIO2 ARSD8TOD4 DOCDf}8TOD4 BASD8TOD4 OBJHTPATCH DOCHTPATCH OBJINIT96 LINE25 ARSLINE25 CUSLINE25 DOCMINICOMPLISMINIDEMOLISTRANS4 PMCREf}ATERV1PMCURSOR SCRIPTORCNVSPACELIB SPACELIBDOCSPACSORT CURSOR DESCR DIRrst I/O fixed AUTORUN.SYS for MENU RUNdSSEATTLE-PUGET SOUND ATARI COMPUTERENTHUS- IASTS Disk #19Utilit- iesUpdated:Nov18,85Librarian - Jim Chapman