L}6CD l0C)HCC WhL/h `CmCDiD`  R@P1  Y0,0'@R !L` ` C D     )16CS )  C)D1 p p 0 C9DI pCDL~CiCDiD` ` C D     )16CS )  C)D1 p p }0 C9DI pCDL~CiCDiD` DD˙`  J)L !}D L(( LL()  L| L( S LH 0p n  } CY?  q  L L  ` )} `A! d߰")-݆ "  $G@LLLI $j") $G% }H 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*` sB%' }8  H H` 1 { LL   !L     Hh SY?  q  1L }  !? S   q 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 ?L[ 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 B%LLd}}}CDOS SYS} 0`BDELV !B }`LVH! hLd` l`0 ` T0΀LN@Ԡ  Ȍ Y }`EڅکEۅۥI٩LY 0 ) `SLSAL=L? n L  ɐ   B!}jbi  a0^^^4WTU@i kL QLcba ac`D1:*.AR4h"}֍BJ V`06 2N- 2Gfgde,h0 h 0! H# ``֍ *`,#}i0  ,ip L,i0 LllfDEHIBLV `8`fg`dDeEf8dHgeIH$}Igefd`  b @iLjL:L:DELkE:D1:DUP.SYSc`B` nBDE%} J V 0 ` BLV  ;HLL}A˺ٺǠD2:*.*1AH h/ e) > 23Li: 6i) Q8 :8Li:.DE 2 1l,)1'}A) DE 18DDAEEHHIIB O30?9A 1A BJ ,1AP IA m3̭1A >8A8(}~8A 1L Ls31A 8A 1  6Li: 2J!U!!=! e)&A 6 !i) ?!!2!! 4Y] 23BI)}D!E 2 i)8TD!E000A0,0"10k0H:L/Li:MAKE SYS FILES:DISK#?(OPTION=NO DUP)WRITING*} NEW DOS & DUP:DISK 2PUSH "Y" TO WRITE DOS & DUP:DISK 2& DUPONLY D2:DOS.SYSD2:DUP.SYSԠΠuB:)&+}A&A LAh :Ls3LA _! 23Li:`"Y" TO COPY?COPY:SOURCE,DEST?٠ŠŠΠԠ F,}ILE NAME DN:! 64A3A %Lo$tBD %Lm# A6A7A 2BHI8DAE m38A0 -}: Li:6A7A7A6A7A AjBAٿ01uB: "8A  " 8A . "8A  " 𩛝 "! 23 .}AjL'!AQ! 4YLW"آ! 23  a%, APL$0A 2 \3 %3AtBDL#1uB: "4 " D"EL# \3 |23/}A %3A %% 23Li:!tBCKSE0A 23AtBCKE2AiADгȘ 2A 20A2AB B0}DDEE0A"AH#AI O3  |3LL$A2A0AHHIIH O3 |3LL$A0A 2A 2A 6, ALO"Li:t1}BDL# u% %@LG" % 21A+A/A+A DE"AH#AIB O3  |3LP%/A>b 6 S9 +A+A2}JB ", AptBDE V0= IH BDEHHII V0  l%/A u%L$ |3 , AP u%LO"Li: D"E3}`1AL4>C 6LS9tB?* = ,ɛ`tB,ɛ`4AH5AH |2h5Ah4A`tB:L!tB% 23Li:`Ġ4}κӮĠĺΠԠԠK& t23A f2 u! %3A %b&Г L&NEW FILE NAME:OLD,NEW?5}ŠӠĠ& t2#PROTECT:FILE NAME?& t2$B m3Li:UNPROTECT:FILE NAME?ˠӠŠġX'6} 4 t2 u!tBD E' 23Li:i!ALG"!AN7' 4XLW"j' 23 !B a% m36ALO""X" TO DELETEԠŠˠDELETE:7}FILE NAME?ŠŠŠ3A&A 6 'A 6 3,+A8 6,A-A S+ 8 4 (&A+A C> 23 S9 (8} :H 5hɀLk( ( 84A0 (L' 8 4 ('A+A b> 23 S9 )64A0 (8 :0U 8)A(A 84A09} (L' 6> 23 4,3A @ 23Li:(A)A S)L 7HɐhH a6 6hL-( 9 )9 R6 ;,mm %A$A`:}``)A(A`+AȢ> 23 8? e)&A 6> 232A*٢> 23 8? e)'A 6? 23&A'A+A S)L:`;} 6> 4E 6(`910`3> s- ) 6 (L~' SECTORS 1-720) 23,A-AЍ(A)A2A.A/A5A6A0A7A` 6? <}23 4 爹8Aɛ߈8Aɛ ).A5A0.A5A 4 s*,A-A ,A/? 23 4 ,A(A-A)A` ݈8Aɛ=} 4 s*ˎ(A)A-A)A (A,AL)``6 s- )2A (L~'.!@ 6 )2A3A (&A'A 6 ,A>}-A S+ |+ |+4A : ɀR4A 8L.+ 8 :0 3A4A 54A (?} 8L* 5Ld( 6.A͈p s+ s+ s+Ԣ͈`*͈`+ 4 8/, , e)8 6+ 4X* 1l,',, 23@}B.DE m3Li:FORMAT:DISK NUMBER?PUSH "X" TO FORMAT DISK 2DISK 2 BEING FORMATTED, DENSITY:Ǜ S)9 6 R6L T TA} @@` a6ѩݢ@ 23(Li:OFFN/A 3AA4A1A*A1Ai1Ai*A*Aiy:`#n4An3AB}( h l,;1A0NEW DRIVE OR DENSITY:PRESS DRIVE #?, 8ɛ. e) J- T 0 C} J- R-L:Aj` 3A.3A .A` -b#A- 4XLi: V.Ls-`ҠԺآϠ̠D}B $A8"A#A%A 48A ;0 򩠝;`PRESS "X" TO CANCEL RESIDUP=bE} b. aLS.. 4X V.L: b.Lb.;ʈ`/ 6 0. 6â. 23 8ɛL:Y W .L|.N P .LF}|.800 эL|. RETRY X TIME(S); WRITE VERIFY:ƛy.;.ʈ` Select # error retries; verify (Y/N)f/ t2iG}@R N i k U/ 23Li:Lv3Ԡ٠LOAD:FILE NAME?0M0k0 t2iH4AsB 300 30080,00H}Li:10& 3 M0 3 k0ihAi ,i0 2 BD0EHI,iHD0E m3I}H"IHI0D0E O3M000⪍0 0k000ઍ0 0 Li:0莵00D0EJ}HILm3ASAVE:FILE NAME,START,END(,INIT,RUN)=D1EHI H3 W2 3*A 1 Li:lGO TO HEX ADDREK}SS= 8 6Z9 23 6{9 23 6@ 23 8ɛL: e) r7 5LJ1=U 1 4X& QL}b  1 Li:aalŠԠĺآϠԠ/)`` BHLm3tDBEJBM}Lm3 8Ўi`'LB ]2BLDBEHILO3 /2L64A5A`*A4A5AL2 /2 \34A5A *ALBɛ;,7MBɛ"N},:NB1MB*ALBA"DtB*A*ALB*ADtBȩ:tBȩiLBtBɛ6,2/ .*A*=*A֩#3 23Li:LBiLO}BsB5A4A`ŠϠDEHI B B VLi:`tm4ADBiE` V0` |3 86Li:HHH, AP  l% P}hhR S 9 9h`*A(A)A5ALB5Aɛ*,& -4).)A.(A )A)A*Aө3 23Li:)A(A`4Ϡ٠Q}Ġ̠80 8 8``5ALBD800HLB,ɛ5Ah`w4 23Li:ĠŠ 23L8 R}4H 6h`Ԅ ؠȱ8A)8Aȩ8A`8A ذ ٦Ԥ`8DAEHIB O3H`ʠ̠BʠĩS}ЌЍ`'A,A-A )6 8 :0)Aۥ(A`La6?͈` :0*A` lT}5'A Ȍ*A v50B*A v502Ԅ ݢԄ (۰ ؠ)͈`iˊi` 5U}4A 8` 8ˍ4AL8 5ˍ4A` 48A a?U?L23H h` Q?A? 23 86 S)Li:L6CV}OPY SECTORS 8 6i? 23 6? 23 6? 23L6=L23 6=L23 8ɛ`  L=9( )L79(` 4Lt2 23L4 23L4 6 s-W} t2i!A` 8 4YD9EHI H3'ALi7 8C 5L,7L (8LJ7P 08 C9L 7Z 6 5L 7EL: e) r7 l5L,7'A X}` 61AƝD?E3A,A-A )64A[W 48A?0  ?4A0Lu8ɀi 8鈍4A m4A m4A??1Y}A 10(3A)A(A L73A@ 23`1AL~7 Q80 ~7 6}@ 23PC 86PLP1A BDAEJNKLVZ}4A4A m4A m4A@?L7;5A5A͈`i͐`p栅3A٠ 6P DAE 2B[}HILO3}8 23@`  )` &¢&L23 9 S)Li:L6 )9L6 a6L6 6> 23 S9L6 6L6 Disk Drive Speed\}:___ RPM~~~Drive # X PRESS:=check drive speed=list error sectors=print error sectors=zero error sect]}ors=exit to main menuةj R- 'SR 4ح$Aiͭiʎ%Ab b. x, -D:E͍HI H3 ^}@ Aʚ 4 6> 23 2H 6hɛ=L5== 23iil  _}  (Lr}---***Ӡ***--- (C)1984 John Chenoweth & Ron Bieber distributed by Rana Systems Ġ`}|DENSITY D1: D2: D3:OFF D4:OFF||RESIDUP: BUFFER: VERIFY:|a} Š=FILE LIST <+OPTION=PRINT>  AKE SYS FILES b}ORMAT DISK  OPY FILE ECONFIGURE/ON  EW FILE NAME BVERT RESIDUP  ROTECT FILE ERIFY/RETRc}Y  NPROTECT FILE OAD FILE  ELETE FILE INARY SAVE  HOLE DISK COPY O TO ADDRESS  OPd}Y SECTORS PEED CHECK  EST SECTORS XIT SMARTDOS MWCNPUDKTFROVLBe}GSE6s#| .r&v'b )"&&&&**+-..//011ԠΠՠPRESS CHOICE OR FOR MENUCOPY WHOLE DISK Insert source f}disk and Λ Insert DESTINATION disk and Λ DONE!"E" TO EXIT;ANY OTHER KEY TO CONTINUE TO CONTINUESource g}drive # ?DESTINATION drive # ?Source drive is # XDestination drive is # XEnter first sectorEnter last sectorˠh}ŠXҾ Currently on SECTOR:SECTORS READ: SECTORS WRITTEN:ERROR SECTORS: EMPTY SECTORS:Seci}tor XXX:xxxxxxxxxxxxxxxxxxxBREAK KEY ABORT-128DEVICE TIMEOUT-138 DOESN'T RESPOND-139INPUT FRAMING-140 UNKNOWN ERROR-141 FRj}AME OVERRUN-142 DATA CHECKSUM-143 DEVICE DONE-144 ˠҠTEST SECTORS ϠӠDOUBLE-SECTORED Pressk} drive or for menu٠ŠŠXŠŠ٠K:P::E 2 1l,)1aDDLD/D*EDrive #N has a bufferNN [128-byte] buffers for file I/O*.AR1 through *.ARN will load and run OLD SMARTDOS Dm}efault Configurator ě BDDE$HI VLD (C)1984 J R Chenoweth BٝDDEHI V B V OLn}DEWhen this cop+E&Fy of SMARTDOS is booted: BDEE&HI V O P OLEDo you wish to change these ? (Y/N)o} BnDEE$HI V OYLOLE} BDEEHI V OLENOW...your changes: BDEEHIp} V O+D OLHF'F"GԠˠŠΠ B#DFE%HI V OLF In order to be used, in most q}file operations, a disk drive must already BlDFELHI VL#Ghave set aside by SMARTDOS a buffer space to r}use for that drive's data.#GH BٝDFEJHI VLG In this section you choose drives for which buffers will s}be set up by BDDGEJHI VLGthis particular copy of SMARTDOS. BDGE"HI V OLHPress numt}ber of each drive to be used HIBDGE&HI VL_H then press to end input B:@4, D:MENU.BAS>:@4,~++(# File name ? D1:RUNMENU.A}R2( (( Command  A (( File name  AP @@} B)6-AU*@)*@$6-P:'AV,$6-&AV$*@*@}6-%B:,$6-P:'AV,$6-&AV$*@*@,-A"(*@,} L 6-B:,*@<-B:,@6@+6-@:7<,,8*@< %6-A8%THIS IS INITAD=$2E2}6-%@$6-P:'AV,$6-&AV$$6-P:'AV,$6-&AV$Q*@*@**@}7*@D*@Q*@(#@''99173,31,208,41,4,240,14,162,33,189,26,3,201,69,240,6'=}=202,202,202,16,244,96,189,27,3,133,203,189,28,3,133,204'??134,205,160,11,177,203,153,65,78,136,16,248,169,76,141,69'99}78,169,78,141,70,78,169,65,157,27,3,169,78,157,28,3'7796,141,3,14,18,14,18,0,255,140,3,71,46,172,109,78'==136,48,9,140},109,78,185,110,78,160,1,96,166,205,165,203'::157,27,3,165,204,157,28,3,169,155,160,1,96,18,14,194D2:ARCREATE.BAS}RCREATE.BASHDNSTARTHSTARTLTOPHTOPLBYTINIINITINITHINITLINITXHINITXL #$TFILEFILE1SELDPAGFLGF@@Q#&@@@ } Zo +@+10@K0@oCLEAR PM AR}EA & KEEP SCREEN BLACKd//** ATARI DISK MENU SYSTEM ** VERSION 2.4"iKK***FROM COLUMBUS ACE. MODS FOR CHILLICOTHE ACE BY }SCOTT LYTLE*******"n Axp-@"D ٠ΠŠ V-@ @ p(NE}W DRIVE # |-@$@  ( * A0<-@$@ NAdAURh @)!@r} A| A0 B$e +@-@@< @DISK # NOTN-@@e(@} ON SYSTEM8 A A`#6-@- Ap8@ B Ab-@"C((}͠ӠˠM BX@b A`m A-@@P:?-@"}m (ҠΠŠ6@ Ap" A`, B6 A l-@"C }(ҠԠΠŠM AW A`b@l Bn A@.@@}R1:@-@"n((ӭ̠ӠΠŠ,@ Ap" A`, APW-}@"C((ӭ̠ӠԠΠŠM AW A`" B@" A-@}A $b%2@@@9-@@P= _2b$b%2}@U@@9-@@P= _2b$"z1;@,;@,;@,;}@,C@U@ea6-@m6-@z6.D :*.*, +AR@90@}S0@] Bw67@<@,.=:, AP@@6]1()}}ŠŠƠӠŠC-@G(Y-@8](@A@!6-5-@}@4? A`L@V Bb @v-@%(0J7 @*!@ --}@%7(T1!@+-@ @%&@1(^ h F:A,A6ArM @-}"( .-@A( FREE SECTORS M6-@|m!@+-@ @%&@2( N-@%@}%&@a( FREE SECTORS m6-@M B-@"M((ةӯίԯůůӠ>}-@@ $( SELECTION >0@@ @X Ap-@%@ &( 8-@&@ JAd}AUT AX7@<@,4E&+@0@@@Z0@@@t0@@}@@@S27@<@,4P*+"@)"@,=@I6-@S AL7@}<@,4P(6-@B0@L A7@<@,4X.G7@<@,4D}(6-@2 A =@G A$$7@<@,4SA: 6-A:,& @)!&@&0 A}: A_ B(}@;@@G6-S"@_6-@4$-@%} @$ +67@<@,.7@<@,S67@<@,.7@<@,l67@<@,.}.67@<@,.7@<@,Y 6.-@@,6-@:7<,,B"@F)"@XY67B:,%@,}.>:,H1+!@G* @X,)+!@d* @,H67B:,%@,.>:,G @@+@e@=A}RG Apr +@-@@4(@LOADINGF-@@d(@7@<@,n} AUr%a A(@4(@FILE NOT FOUNDT(@OR NOT A LOAD FILE^ A`a%33MACHINE LA}NG LOADER FROM COMPUTE SEPT 83 PAGE;@,@[67@<@,.767B:,%@,.>:AU,IAU4}[AU5AP 6-C:,6-P:'AV,)AS?AR&AV$P6-?:C:hL,, A@}D:DIRECTTFILEFILE1SELDPAGFLGF@@Q#&@@@  0Y95 -.*"#$%(,+-/ީ߭^ ^}9  O H I B V BJKDXE V䩔3 *T B VB JKDXE V Q1}4 *Tr5 *T LL1O,3 *T13 *TLI14 *TLI1܅3 *T Q4 *TMx^}X9H6OM J <) 84 *T <) 9< G L JL24 *T Q L66}4 *T QL1 JL1  6: BT6L16L~2:6R DK4 *T6:HK DKh N N4 *T66:} Q4 *TL2L DKR DKDž4 *T85 *T GS0M DKS DKU5 *TL1S DKh9x G} I5 *T QLA IS DKM DK慺5 *TL1 [L J0 B V0BJNKDXE V0 N 0 N 0 N}0 NiA *T+0 B V J G` Welcome to TSCOPE! Version: 25 Dec 83 Modem:} 835 @ 300Modem: 850 @ 3001200 ______________________________ Please apply power to your 835 modem an}d/or 850 Interface Module, then Telephone Number: Dialing ....  ^ Dialing completed. Thank you for dialin}g, Please hang up the phone. Please establish carrier, or Press any key to continue. Waiting for connection .... No C}onnection! Press [RESET] to try again.Connection established. Please login ... ________________________}____________ _______________________________ Your line has been dropped ... Please press [RESET] to redial. ______}_________________________ ________________________________ CON-1: Printer On/Off CON-2: Word Wrap On/Off CON-3: Modem A}udio On/Off (835) CON-4: Change Screen Color CON-5: Change Screen Brightness CON-6: Change Text Brightness CON-7: 37 }Character Screen Width CON-8: 40 Character Screen Width CON-9: 32 Character Screen Width CON->: Toggle Baud Rate (850}) CON-.: Toggle UPLoad Delay CON-CTRL-ESC: Exit TSCOPE to DOS ________________________________  `T /8`} /8`O0Z ]= L=Q6mQkHk 8iQ`*) LT: )Ql ]=O0 L= ->Ym <` =Q`A 901B 9}0 [  @X 90xsҭcҢ[ [9  ҅2kXS`:::iO0 >Qm} < =Q`kx[ X2QW  PLY于iml\ɛ-l`Ck;)}mOk;0lT T`k;gl;hllgVxXm] :>XVO0k #>kX`iXxZY]}m :>ZUXm``ؘHYUɀU ҙ] :>YU :>Uҍ hh@V2kؘHV %L:W] :>WV)}ؘHkkS)>SL:ؘHSIS)S)SЏ/`m0:)m m <ߩl L)< sQ Q <L0=k`OL,9`x t= ҅X -> )5ӍkxXm] :>XVX >F=G= =k(jlk=ӭQ) Q})Q8`i`=ӭQ)Q`<x t=% ҅X`S`: ; ;8;R;-2 p2ҍ ҩxҢ ҍҢ [j=} ap= `x[ a)ө%ҢX`&>'x \jX`j`x #>XV`} ` =j`Șɀ`D$KR!"J `L>L?L?Lh?L @ 0@@BJKD`E V0&Ӆ@ *T Q@}BHI VL?ꅺ@ *TL?ɛ BT BTL> 0@@!BJKD`EޝHI V0A *T@ B V J` }0@ A *T@BJKD`EޝHI V QL?2A *TL? 0@ A *T@B"JKD`EޝHI} V QL? 0@@ BJKD`EޝHI V0IA *TL? J@ B V J*@ *T QLABxI}J+@ G LGNRLDU Q @G*Тɛ )` 穛`LJ^@BHI V0 9```} ``D:AUTODIAL.SYS {Disk Request NOT Completed!} --- Directory --- --- Completed --- {DELETE Request} Completed!} {Formatting...} Completed!} {RENAME Request Completed!} {Printer Not Ready!} {UPLoad de}lay: ON} OFF} {File Transfer Aborted!} {TSCOPE created by: Joe Miller} L)( K J\%&9)} @ 5 cKLUB KLUB&ɛ ) BT,&) KLA Q' G @GGX <3&)Ѽ} 1SBHHȱHȱH` QLUB  B G +, GH GC G G`#AT835,CC,CW,G4,GM,GH,PL,OS:ATARI DOS,PA:D4 C}LBT4 $C/HH` G G G G G4/.)()`1  P F @``DL}DULF`DLFਜ਼` J@BJKD`E VLFީ J. BT G vG @G^.LF J@BD`}EޝHߝI VHI0$ J >E)8nI ?%ޅީLCLF J >E J@ B V䩀 J F4 G  G} G G G4 G @G BT/.L5E`DLFਜ਼` J@BJKD`E VLF J*+ F J} #@ BD`EHI VLF@ B V J. BT G Q` F4ܩ G  G J/%&)} @G )p`A ɛ G GI G G1Ѝ G4 G* @G%&)}LF BT. /LAE` F P. BT G F Pɩ/4  vG G F  G F,   F) G F}ئ`LJF vG GD4М  5LF vG @G*&`  :0 `A ` 8` J@ B V J G*}A *T QLA GH4m4i4h` @G @G)&` G J 8 %&H}h(` @G)` % \䩢&G'L\` G H Gh @)(LK* M J` @G0L}K23 4LgQLcK5 {R) ĪXXƶƷ8崅嵅 OLH/ĩ0}1pXXXXXAȩȩ)>A)O}~pOe}fpgX/)LI J؅/Wȑȑȑ J,ĽXHX½XýXȅҽXɅӽXʽX˽XؽXٽXڽ}X۩ąŅЅ J `OXX8…֥Å׭) &&&ץօƥׅƥ WS !S) {Rh/JZY^Y}^Y)  `,WޢW8-W/W/W/X/ }X/٩,Wȑȑȑ@`3`H~Э h` J`LJY DK`Z DK`$"^$}"LKS0 3U)BHI V&) 99M%`(#(M)' ' N`H Nh }N0` J`+ !3+,- H Kh K`- K K,`HHH0( ! K KLK  K-) Kh}hh`-_-LZL-p [L J0BJNKDXE V0 BD_E-H.I ViA *T+,0 B V} J- G` Gi J##&^#$٭$v`*$ *5 OLZMH DKL}SM9)]^[Y )L>M9LXM MLPM !Xɦ PM~. BHI V*X}+X J 8`,lHҥҭ)*h@)?' )m6 *T7 *T7 *TLN<,p}LN@LNЭ`+, KLN cKLN ILN/I/*RS DKLN i LN }) ) Ș) L.NLN3 OLN5 ;OLN0 QOLN,LY7O M11L0 J8`"2A *T}A *T A *TLN,0`A *T Q8` BHILV ) 5`3,` `OL$}O3#` jOL$O)`HH& HHXhh3х`3` Q ʅ̥˅LtP̥LtP Q}8ʅ˅ ̅LtPLtP Q8Ѕх0 ΥLtP8ąŅ ʅ̥˅L%P̥ͥ҅ΥӅLtP Q8}҅Ӆ LtP8ʅ˅̅ͥЅΥх8΅υ҅ΥӅ8̅ͅʅ̥˅ S U} !` Q̅ͅ΅LtP Q) pG8 ̩ pG8 ΩLtP Q̥ QΥLtPhh` @G8 ee`}eeLQ& pGRY` !)SY`# pGN )LQW `LC>`` !S}H QI Qh` !S`e…eÅ` !SN)Rffjjjjjj8j(LR(e…eÅ} `I I`e…eÅ`> !S9̅ͅ SԥLR5 P !S`օԥׅթ !}) SLR) QLRFfFfFfFfFfFfԭ) S `8 QLS`8}`HHH H Hhhhh(` Q S̥ͥΥ8Υ0`ЅΥхLS؅م}&&&8嶨巐沅`̅ͅ΅υ S`HH؅مFf eeJfffhh }ee` BT Q`HHHLU Q 1S)bYcYl (8 ! QLyT!I !  }WSLU)D1)pJJJXX)lXLTXLTX %ULU{ 8 +8 XXUHHl %ULU } Qhhh(` ` U   /V8΅υLU8ʅ˅ Qօׅ WS` U NS8Ѕ }х0`H  NShLU`…Åe؅eمeօeׅ8崅嵅8岅峅  }LUʅ̥˅ S U`O UHH̥ͥ҅ΥӅ ShhHH WSeehe…heÅ <}ƲƳ豲 #HLV hȩ LVee WS`hLJ8`8Ѕх ULV̥ͥ҅Υ}ӅLWΥ S tP LQ Ui)8H BTh8`8 S)LtP ULU LW`L{R ЅΥ}хLS WLOPUPUPPPPPUUUUPUU  00 00`008  8}v`PXXhT:K:P:V:SF{`}{`} ~  AOBOCP/DOGQ;IBPGHPYPKRNJRjRzlQfmQfeQfQQgAC^LB}xCVV(WLWmW{W~WTTTTTTTT    {|}~! Bac"'(Bad! B}ac"'(Bad!_`K af"_`K ah!Oax"?@Oa~N4MHTTlTlT 7 8 Y} 1O@BJKD@E V0 X@@ B VL>8l7 >8 Y 0 `DD L0 B V0 B V7 8 Lt}jYY95 -.*"#$%(,+-/ީ߭^ ^ 1 This file (TSCOPE.AID) is intended to assist SIG members with 835 and1030 modems in obtaining the TSCOPEand DISKLINK p}rograms. The software provided with thesemodems will not allow downloading todisk; therefore, these two programs(which }DO allow these modem owners todownload to disk) are inaccessiblethrough normal CIS channels. TSCOPE's main advantage is }its useof the CIS file transfer protocol.With TSCOPE, owners of 835 and 1030modems (as well as any modem whichuses the 85}0 interface) can use theUPL and DOW commands in the SIG XAdatabases and PUBlic Access. DISKLINK(which also works with all }modemsmentioned above) features a capturebuffer to allow downloading of anytext material to disk. It also allowsdirect At}ari-to-Atari transfer. Bothprograms require a disk drive.Following is a list of "SIGSamaritans" who have graciouslyoffer}ed to copy these programs (andassociated documentation files) todisks supplied by SIG members. To obtain these programs}, send twoblank, formatted disks in a prepaid(60 cents should do it), self-ddressed disk mailer (available atRadio Shack }or most computer stores)to one of the samaritans below. BE SURE TO INCLUDE YOUR NAME ANDPPN, so the samaritan can notif }y youwhen the disks have been returned. Inaddition, it would help if you leavea SIG message or EMAIL to thesamaritan to l!}et him know to expectthe disks. In return for this service, we askthat you consider adding your name tothe samaritan l"}ist, to assist othersin this same predicament. A SIGmessage or EMAIL (containing youraddress) left to SYSOP*Greg Leslie7#}1565,235 will help return the favor. On behalf of the SIG*ATARI staff,THANKS to all the SIG-Samaritanslisted below:$}Leon O. Greenwalt 73725,116Rt. 242 SouthWayne City, IL 62895Bernie Bildman 70045,665449 Huffaman RoadBirmingham, AL 3%}5215Dan Hamilton 70625,123747 Clear Brook RoadWest Yarmouth, MA 02673Francis L. Weber 73315,3772109 Greengarden Rd.Er&}ie, PA 16502William J. Cochrane 73645,1612707 Wyndmoor Ave.Philadelphia, PA 19118(compiled 3/26/84 by SYSOP*Greg Les'}lie)Press ENTER to continue: [71565,235]TSCOPE.AID 26-Mar-84 2215 Accesses: 175Disposition:1 R R(}ead this file2 D Download this file3 T Top Access menuKey digit or ENTER for next: [76703,254]TSCOPE.DOC 0)}8-Jan-84 6140 Accesses: 927 Keywords: TSCOPE TERMINAL MODEM DOC Introductory DOC for the terminal progr*}am TSCOPE. This pgm will allow 835, 850, and 1030 owners to upload and download ASCII and binary files to disk using +}the CIS A-Protocol error-free file transfer protocol. This pgm will also support many of the CIS online color graphic,}s. See also TSCOPE.INF. Disposition:1 R Read this file2 D Download this file3 T Top Access menuKey -}digit or ENTER for next: 1 The TSCOPE Terminal Program Preliminary Documentation The TSCOPE terminal prog.}ram waswritten by Joe Miller [70007,546], forthe members of SIG*ATARI, as a LIMITEDfeatured program, to bridge the gapunt/}il a more COMPLETE terminal programis available. Specifically, it will allow usersof the 835 or 1030 ATARI modems tot0}ransfer (UPLOAD and DOWNLOAD) bothASCII and BINARY files to SIG*ATARI andsave them to disk. It can also be usedwith the 851}0 Interface and othermodems. ***Note*** As TSCOPE supports theCompuserve B-Protocol for transferringfiles, it will NO2}T work on an ATARIBBS. TSCOPE does not support filetransfers to cassette. SETTING UP TSCOPE If you are ge3}tting your copy ofTSCOPE from SIG*ATARI, it will be inthe form of 3 CRE files. If your copyis already in the form of an 874} sectorbinary file, skip to the next section. To reCREate your copy of TSCOPE,first prepare a DESTINATION disk withju5}st DOS.SYS and DUP.SYS. Next, withBASIC in, ENTER"D:TSCOPA.CRE". When thefile is loaded into memory, place yourDESTINATION6} diskette in drive 1, andtype RUN. When this part is finished,type NEW and then ENTER and RUN part B.Type NEW and ENTER an7}d RUN part C. Ifyou've followed these instructionscorrectly, you should have an 87 sectorfile. Booting TSCOPE8} Whether you've reCREated TSCOPEfrom the CRE files or gotten your copyalready in binary form from a friend,it should 9}be renamed to AUTORUN.SYS.Remove the BASIC cartridge, turn on thedisk drive and any other peripheralsfirst, then powerup y:}our ATARI withthis disk in drive 1. (Note- If you areusing the 850 interface, you do NOTneed the usual 1 sector AUTORUN.SY;}S toboot the 850. This is included in yourcopy of TSCOPE) TSCOPE commands To see a menu of availablecom<}mands, hit the HELP key on XL modelsor the ATARI key on the 400/800computers. When you see the key-combo:CON-6 that means=} to hold down any ofthe CONsole keys and hit the number 6.The commands are self explainatory. Toquit TSCOPE and go to the >}DOS menu, youmust have a disk with DUP.SYS in D1:and simultaneously depress a CONsolekey, the CTRL key, and the ESC key. T?}heBREAK key sends a CTRL-C to Compuservewhen online. Be careful not to hit theBREAK key when you mean to hit theBACKSPACE@}. The CTRL-C will abort MOSTCompuserve operations. Setting CIS to VIDTEX defaults While TSCOPE is not a full versA}ionof a Compuserve VIDTEX terminalprogram, it will support some of theVIDTEX functions, including the UPL andDOW commandsB} for file transfers, andthe ONLINE color graphics available onvarious parts of the system. However,you must ALSO configureC} your CISterminal parameters to the VIDTEXstandards. To do this, go to page CIS-9and follow the menus. When asked for ateD}rminal type, pick VIDTEX. If TSCOPEwill be the ONLY terminal program youwill use on CIS, exit DEFAULT (item 6),and when prE}ompted, choose to make thisconfiguration PERMANENT FOR ALL FUTURESESSIONS. If, however, you are like manyATARI users,F} and will be using otherterminal programs in addition toTSCOPE, you should do the following: 1-Follow the same procedureG} asabove, but when exiting, select to makethese terminal defaults for the CURRENTSESSION ONLY. 2-Immediately upon exitiH}ng theDEFAULT program, from any page ofDISPLA, type 'PRO' to get to the OKprompt. Then to define the currentterminal settI}ings as a unique file thatcan be invoked by a single name use thecommand: TER DEF VIDTEX. 3-Then, whenever you log on toJ}Compuserve in the future using TSCOPE,when prompted for your USER ID:, enteryour PPN with an '*' and the name ofthe termiK}nal settings you wish toinvoke. In our example, it might looklike this: User ID:76703,254*VIDTEX If you need assistL}ance in definingalternate terminal configurations as inthe example above, leave a message tothe SYSOPs. FILE M}TRANSFERS TSCOPE will support file transfersONLY on CIS using their ERROR-FREEB-Protocol. When you wish to UPLoad TON}or DOWnload FROM Compuserve, thefollowing conventions apply: 1-Use the (S)can or (BRO)wse commandsin the XA's to determinO}e the exact nameof the file on CIS you wish to DOWnloadto your ATARI and save to disk. 2-To initiate the file transfer, uP}sethe command: DOW filename (wherefilename is the name of the pgm onCompuserve). 3-After the system determines you areuQ}sing TSCOPE or any VIDTEX compatibleterminal program, it will ask you for afilename to be used by the ATARI whenit saves tR}he program. Enter a full,valid ATARI filespec (it does not needto be the same name as the file on CIS)in the form: D:FILENS}AM.EXT 4-The system will then take over andwrite the program directly to yourdisk. You will be notified uponcompletion, T}or if it aborted for anyreason. To UPLoad a file from your ATARIto Compuserve, you must: 1-Have the file available U}on yourdisk. 2-Use the command: UPL filename(where filename is a valid Compuservefilename up to 6 letters with a 3 char.V}extender) **Note** CIS places specialimportance upon the 3 letter extenderwhen you select a filename. If you areuploadiW}ng a binary file, you MUST usethe extender BIN. 3-The system will ask you for thefilespec of the program as it is namedoX}n your disk. 4-When you UPLoad a file to our XA's,you will be expected to provide a fewmeaningful KEYWORDS. Enter 2-4 sinY}glekeys, separated by a space. End KEYWORDinput with . 5-You will be asked to provide aSHORT description explainZ}ing yourprogram. Don't try to cram all the DOCinto this space. Please UPLoad aseparate DOC file.************************[}************* Additional DOCumentation and inforelating to future versions will be ina supplemental file available so\}on.Address any questions to Joe Miller70007,546.This DOC written by Ron Luks 76703,254.1-7-84Press ENTER to continue]}: [76703,254]TSCOPE.DOC 08-Jan-84 6140 Accesses: 927Disposition:1 R Read this file2 D Download th^}is file3 T Top Access menuKey digit or ENTER for next: with 835 and1030 modems in obtaining the TSCOPEand DISKLINK p=89G88_8]f r] $f21T<]000A"YΠ 88`kHp,801h8o!`}ɛU,80 HK8Dh8L 2.8Hȹ8h 0*H80H)H 880h`h` 8!a}88H8H8`899*9$9%H$y9$hޠ!P$%99$8!b}$i%i8$ 9%`88 88K8N8m8w888888888899 98989p,801h8o b AWPRO An AtariWriter Printer Driver for the C.%d}Itoh 8510A Prowriter (and NEC 8023)GETTING STARTED: AWPRO.BIN is a binary object file. Once it is DOWnloaded (using T%e}SCOPE orsome other binary-compatible means), it can be Copied and rEnamed using DOS toAUTORUN.SYS on disk(s) used to boot A%f}tariWriter. (It can also be combined withAWDISK; see AWDSK2.DOC.) Then just choose the Atari 825 ("2" on the AtariWriterpri%g}nter selection menu) to get the proper codes for the Prowriter, includingunderlining, elongated (double width) characters, s%q}b"DOS SYSbF&DUP SYSblDEFAULT bRX232 ARXbARCREATEBASb#DIRECT bWTSCOPE BINbITSCOPE DOCb_AWDRIVERBINbDcAWDRIVERDOCb3PAINT BINb'PAINT DOCb MAILIST1BASb MAILIST2BASbXMAILIST3BASbtGRAPHIT BASbPOLARGRFBASb6TRENDS BASbGREYHOLEBASubscripts, superscripts,half-line spacing, and proportional font, even with both margins justified andtwo-column printing! %r}The only things that may require some adjustment are yourmargin settings. AWPRO.SRC is the assembler source code. It c%s}an be modified and assembledwith the Atari Assembler Editor Cartridge. If you have a different assembler,you may have to co%t}nvert the source statements before you can use it.THEORY OF OPERATION: AWPRO installs itself as if it were a standard%u} printer handler, "upstream"of whatever printer handler is actually driving the printer. It isself-relocating, so it places%v} itself at MEMLO and resets MEMLO to the firstavailable location above itself, as per standard Atari conventions. This shoul%w}dmake it compatible with most DOS programs while leaving AtariWriter as muchmemory as possible for your file. Note that it %x}does NOT trap the DOSINI vector,so it will be removed if SYSTEM RESET is pressed. AWPRO monitors characters being sent%y} from AtariWriter to the printer(incoming characters). Normally these incoming characters are simply sent alongto the the r%z}eal "downstream" printer handler (outgoing characters). However, ifthe incoming characters are a control sequence for the At%{}ari 825 printer (notethe test in AWPRO.SRC lines 241-243), the equivalent control characters for theProwriter are substitut%|}ed as outgoing characters: FUNCTION ATARI 825 PROWRITER COMMENTS Start Underline SI %}} ESC X Stop Underline SO ESC Y Start Elongated ESC SO SO Stop Elongated %~} ESC SI SI Proportional ESC DC1 ESC P 10 c.p.i. ESC DC3 ESC N 16/%}17 c.p.i.* ESC DC4 ESC E Incremental Dot Space ESC 1-6 ESC 1-6 Binary/ASCII** 1/2 Line Reve%}rse Feed ESC RS ESC [ Incremental Printing ESC r Reverse Line Fee%}ding LF Line Feed ESC f Forw%}ard Line Feeding ESC ] Logic Seek Printing 1/2 Line Forward Feed ESC FS%} ESC [ Incremental Printing LF Line Feed %} ESC ] Logic Seek Printing * Since I prefer 12 c.p.i. to 16/17 c.p.i., I used the 12 c.p.i. Prow%}ritercontrol code "ESC E". This means you will have to play around with your marginAWPRO, page 2Theory of Operati%}on (cont.)settings to get proper formatting at 12 c.p.i. (If you prefer 17 c.p.i. to 12c.p.i., use PROBJ [available in XA%}5] to zap location $3819 from $C5 to $D1. Forthose modifying AWPRO.SRC, the 16/17 c.p.i. Prowriter code "ESC Q" can besubst%}ituted by changing line 204.) ** For the Atari 825, "1-6" is a BINARY number giving the number of "dotspaces" to move %}the printhead in proportional font mode; for the Prowriter, thecorresponding "1-6" is an ASCII number. (Dot spacing is used %}to justify bothmargins. Even though the Prowriter has different proportional character widthsthan the Atari 825, the result%}s come out almost perfect, although you will needto adjust the margins to accomodate the differences.) In addition, a %}setup sequence is performed during OPEN (note the test forthe Atari 825 in AWPRO.SRC lines 229-231) and a restore sequence i%}s performedduring CLOSE (note lines 337-339): OPEN: FUNCTION PROWRITER CODE Reset Left %}Margin ESC L 0 0 0 Clear Print Buffer CAN Clear VFU* GS RS Logic %}Seek Printing ESC ] Bi-directional ESC < 12 Lines Per Inch** ESC T 1 2 F%}orward Feed ESC f ASCII Char. Set ESC $ CLOSE: FUNCTION PROWRITER CODE %} 10 c.p.i ESC N Stop Underline ESC Y Stop Elongated SI %} Stop Boldface ESC " Clear Print Buffer CAN Clear VFU* GS RS %} 6 Lines Per Inch ESC A * Vertical Forms control Unit. ** 1/2 line spacingMODIFICATIONS: The %}following steps should get you started on modifying AWPRO.SRC for usewith printers other than the Prowriter: 1. If you%} want to convert codes from an Atari printer other than the Atari825, change lines 230, 242 and 338 to reflect your choice f%}rom the AtariWriterprinter selection menu. Note that you must use the BINARY NUMBER of yourchoice, NOT the ASCII character!%} 2. AWPRO expects most incoming printer control codes to be ESC followed bya single character (see exceptions below). %}AWPRO is set up so that the incomingAWPRO, page 3Modifications (cont.)character following the ESC can be looked%} up in a conversion table. The firstESC sequence entry in the table follows the label CVES (line 200); CVEN (line211) marks%} the end of the table. 3. Each entry in the table consists of the incoming character to be lookedup (such as lines 203%} and 205) followed by one or more outgoing Prowritercontrol characters, WHICH APPEAR IN REVERSE ORDER (i.e., the FIRST chara%}cterwill be sent LAST). The last outgoing character in the entry (actually thefirst to be sent) has bit 7 "on" (e.g., note %}the "+128" in line 204). AWPROusually sends an initial ESC before it sends the first outgoing character fromthe table entry%} (see exception below), so the last Prowriter character in thetable entry (the one with the "+128", the first to be sent) MU%}ST be a valid ESCsequence character. 4. The Atari 825 codes for start and stop underlining (SI and SO) are notESC seq%}uence codes. Hence, there is special logic for these codes at lines255-258 and 277-278, and an initial special section of th%}e conversion tablestarting with label CVTB (line 195) and ending with label CVES (line 200). 5. The Prowriter codes fo%}r start and stop elongated (double width)printing are not ESC sequences; in fact, they are the same as the Atari 825codes W%}ITHOUT the ESC! Hence, this conversion is not performed through thetable but simply with special logic at lines 282-285. %} 6. Incremental "dot space" commands for the Atari 825 and the Prowriterare quite similar: the 825 uses ESC followed by a %}binary number and theProwriter uses ESC followed by an ASCII number. The logic at lines 300-303makes this conversion. %} 7. Since the Prowriter is set up during OPEN initialization for 1/2-linefeeding (12 lines per inch), each incoming EOL must%} be converted into TWOoutgoing CR characters (note line 266). 8. "ESC LF" identifies a control line for the Atari 825 %}which must bedeleted for the Prowriter. Note the tests at lines 280-281 and 262-264, and thelogic in lines 268-275. 9%}. The OPEN initialization sequence at label OSTR (lines 212-214) and theCLOSE restore sequence at label BUTT (lines 215-216)%} are in conversion tableformat, EXCEPT that there is NO INCOMING LOOKUP CHARACTER in the entry. 10. The relocating loa%}der uses a table of address pointers (lines 453-455)to relocate addresses in AWPRO. If addresses which need relocation are a%}dded toor deleted from AWPRO, this table must be adjusted accordingly. Note that thetable entry points to the FIRST byte of%} the ADDRESS to be relocated (stored instandard 6502 low-high format), which is the SECOND byte of an instructioncontaining%} such an address.GOOD LUCK! (Send me a SIG message or EMAIL if you need some help!) -John Navas [72645,1070]%}such an address.GOOD LUCK! (Send me a SIG message or EMAIL if you need some help!) -John Navas [72645,1070]$@D)})}@D@DUUUEUUTQUUTZ)}EffQwwT[feEwwQ{UUUEUUTQUUTZEQ]^feEwwQ{PDQUUTZEffQwwT[feEwwQ{PD@QUUTZE)}Q]^feEwwQ{QDPQUUTZEffQwwT[feEwwQ{Q@QDTQUUTZEQ]^feEwwQ{QQQDUQUUTZEffQww)}T[feEwwQ{QUQDQQDQUUTZEQ]^feEwwQ{QUQDAPDQUUTZEffQwwT[feEwwQ{QUQDQUUTZEQ]^)}feEwwQ{QUQDQUUTZEffQwwT[feEwwQ{QQQDAPDQUUTZEQ]^feEwwQ{QQQDQQDQUUTZEffQwwT[feEww)}Q{QQQDUQUUTZEQ]^feEwwQ{QQQDTQUUTZEffQwwT[feEwwQ{QQQDPQUUTZEQ]^feEwwQ{P)}D@UUQUUTUUUUUEUUQUUTUUUUUEUUQUUTPDUUQUUTUUUUUEUUQUUTUUUUUEUUQUUTUUUEUUTQ@PEQ@PEQ@TUUUEUU)}TP)}P P P P LP bP˩!̩ԩ>/Щo ] ] \O"#p ` `)} `'*$i_%i_ ЩЩЩ 01b |_ |_ `ɛL`SL |_)} |PQ_ (`HLQS |_ |_ (`HLQD !F GLoQR FGLoQ+ #FGLoQ- $FGLoQCLRLP )} |_G |_ (`HLPpFBhDdE VLDRLPFG QP?bQ?bR?bS?bL`SbP?bQ?bR?bS?F G)} QLPQRBhDdEFJ V02GBPD!EHI V0 B V0`j B V |_ aRhh `LPk)}lmjxkmkklmllXkHJJJJ Rh) R`m` 0mHc BHIh Vc`pBXDSEJ V R)} |_pBDRSEHI V! BDEHI VLRp B V BVDbEHI VR `LPD:*.*)}bN KZLS01* O_4eō uU ^ ] X X` @V6'LSLSLTLTLS)}*5?"# RVLSST7L(T87 _"8:#9;*5 RV v_LS 7 v_LS<>=8[9Z:)}U;T "W=":U#;T8[9Z*5 "W>LSLS _? ZLSg'e `LS$#ɽ#"ɝ")} LS* bbTUcpo"mo#mp ;Xccop֩˩@̭* O_ōcpocmoi)} mp?*5 RVopҩP˩! v_LT _4`D _ `'`E `'7` LAZ0:80 **)}N`hhLS}P!O?LUV`UL_F _ `'`W IL]CL\P 'gne* ' ``)}`Э`hhLP()5 bb)) O_()eŨ ?+()NN8n+n+LV+I,)( O_eŅ)}eƅ(JJMKŸLŹ?hcVWMKL?-LWLW M-,-+ `T`Ua?IL)}vywz`Z 8ZvyL\WZ8`vya[ 8[wzL{W[8awzprZT[Uwvv~twJpLWJr~L:Xpevp)}tp8tpTeyTrewrtr8trUezUWX=JT( O_iPi!UJJJH IL5XJHI?hc?)}L5XUT RV~LW`()+() n+n+LLX)( O_PeŅ!eƅ(JJ-+() nnLX`N`U#( )}O_iPi!8阅QRQi(SRiTXY"JJe湥8VIV …DLYH)"))}L'YWLY & & & &U7Ui汭VHɂL+ZL BL6Z澥ji)}i!LPD? - Clear the screen. CLEARSPACE - Enlarge current workingBA-}R area for detailed drawing. Push SPACE BAR again to return to normal mode.C - Change color. Press C -}and then 1, 2, 3, or 4 to change the respective color. Move the joystick up and down to change luminance (br-}ightness), left and right to change hue (color). Press the fire button when finished.D - Draw mode. The cursor-} will resemble an "X". Draw by pushing the fire button while moving the the joystick.E - Elastic (draw-to) mod-}e. The Cursor will resemble an "O". Push the fire button once to define the starting point. Move the cursor -}to place the line as desired and push the fire button again.F - Fill mode. The cursor will resemble a "+". M-}ove the cursor within the boundries to be filled and press the fire button.H - Halt fill mode. Use to halt -} filling of an area, or if fill mode hangs up.p - Change pattern. The cursor will resemble a "[]". Select from -} paint cans 5 through 10. Position the cursor over the area with the desired pattern and push the fire button. -}The pattern will be transferred to the selected paint can. All four colors should not be in the selected pat-}tern.U - Undo. Removes the last command from the picture.W - Paint can window select. Turns display of paint ca-}ns off and on.0-9 - Choose paint color to use. The color chosen is shown by a line covering the can. You can a-}lso chose a color by moving the cursor to the paint can and pressing the fire button.To move the paint can window:-} 1. Move cursor to the arrow box in the window. Push the fire button and move up or down with the joystick, o-}r; 2. Hold the button on a paddle controller plugged into Port 2 and turn the paddle.The picture save format is-} asfollows. This format is the sameas Micro-Painter.Screen Memory = 7680 bytes.Color bytes:Color 1 - memory location 7-}12.Color 2 - Memory location 708.Color 3 - Memory location 709.Color 4 - Memory location 710.Use the following guideline-}s forloading pictures from BASIC. Thesame principles apply when usingother programming languages.* Graphics 8 no window.}. (Change 24 to a 8 if you want the window.)10 GR.24* Find Display list20 S=PEEK(560)+256*PEEK(561)* Change Graphics m.}ode to the same one paint uses.30 FOR I=1 TO 21040 IF PEEK(S+I)=15 THEN POKE S+I,1450 IF PEEK(S+I)=79 THEN POKE S+I,786.}0 NEXT I* Open the picture file for reading70 OPEN #1,4,0,"D:NAME.PIC"* Tell the operating system you want to read.80 I.}OCB=848:POKE IOCB+2,7* Tell it you want it to store the information in the screen memory.90 POKE IOCB+4,PEEK(88):POKE I.}OCB+5, PEEK(89)* And you want it to store 7680 bytes there (0 + 256 * 30 = 7680)100 POKE IOCB+8,0:POKE IOCB+9,30* Mak.}e it do it.110 USER=USR(ADR("hhh*LVd"),16) The characters between the quotes are small h, small h, small h, inverse as.}terisk, capital L, capital V, inverse small d* Read colors and store them in their proper places.120 GET #1,X:POKE 712,.}X130 GET #1,X:POKE 708,X140 GET #1,X:POKE 709,X150 GET #1,X:POKE 710,X160 CLOSE #1200 GOTO 200Let your creativity fl.}ow and draw upsome breathtaking pictures!Press ENTER to continue: [76703,254]PAINT.DOC 03-Apr-84 4865 . }Accesses: 20Disposition:1 R Read this file2 D Download this file3 T Top Access menued by Atari Computer Ass,d .TITLENAME@A $$***** INTRO TO MAIL/LIST *****;@%,;@,2 }##6.MAIL-LABEL & LIST PROGRAM'+@%@'-@@#6. BY kent herbert (K0@@ 2 }'@A0@@K@2-@AP@7!"A!-@@<B22 }@@B(@7'@<'@,F-@@@ P Z'0@@@'@2}d -A@6@n:-'@@:(@7'@<'@,x-@@@ }2}2@@ .-@@.(@ PUSH option4-@@ 4(@FOR INSTRUC2}TIONS U-@@-(@ PUSH start?-@@U(@TO BEGIN%%22}+F:B2y,"@+%D:MAILIST2.BAS+F:B2y,"@+%D:MAILIST3.BAS ApD:MAILIST1.BAS0}E~TITLENAMELINEA@#$$ + \\***** INSTR TO MAIL/LIST6} ***** UPLOADED BY KENT HERBERT TO ATARI LIBRARY BBS;@6,;@,3-@ 3(6}ӠϠ̯(-@@"2-@7!"A!-@@<"F(P Z+F:B2y,"6}@+%D:MAILIST3.BAS_ @d!!NO OF RECORDS VARIESn!!MAX RECORD LENGTH 90 CHRxMAX NO OF FIELD6}S 6}2@@!!MAX FIELD LENGTH 30 CHR!!***************************Ҡנ6}:U-@@-(@ PUSH start?-@@U(@TO BEGIN""1. SET-UP FIELDS & NAME THEM6}2. ADD RECORDS((3. SORT TO PUT IN ORDER YOU CHOOSE$$4. SAVE FILE(ENTER D:FILENAME)ϠĠĠ:""1. S6}ET-UP FIELDS & NAME THEM$$2. LOAD FILE(ENTER D:FILENAME)ϠԠ:$$THE FIRST THREE FIELDS WILL BEO6}N A LABEL.TO OR ԛTHE PROGRAM WILL SELECTON TWO KEYS.""ALL OTHER SECTIONS ARE SELF-"EXPLAN6}ATORY., PUSH TO LOAD PROGRAMD:MAILIST2.BAS$$ + \\***** INSTR TO MAIL/LIST4=+++AMSFTEMPBB1B2NAMENAME1NAME2NAME3NAME4NAME5NAME6NAMEDIVBASE1BASE2LABELCITYCOUNMARKERECOR:}MANNRECLERECLENBSPACEPTPTDONBASITIMSBSBSSLSL:} @@:} !"#$%&: }'()*+,-.nn***** DATA-BASE SYSTEM ****** BY KENT HERBERT UPL:!}OADED TO: ATARI LIBRARY BBS BY KENT HERBERT RR;@,;Bp,;@,;@,;@,;@,:"};@,]];@ ,;@ ,;@ ,;@ ,;@ ,;@ ,;@ ,9@,<<9@,;@0:#},;@0,;@,;@0,2'6-6-'6-<9-@&68,-568,-:$}9 F- 6.6.6.6.&6.-6.PT +'0@@@1@C-@@T(:%} FIELD SET-UPUARZ%-@A % A1 +'0@@@1@2:&}-@@2(Ԡ͠ -@@ (ՠ .-@@.(RECORDS IN MEMORY :'}.-@@.(RECORD CAPACITY = _%2@P@@9-@@P= _2:(}( ((DD NEW RECORDS&((DIT OLD RECORDS0 ( (RINT/DISPLAY RECORDS:((RT THE REC:)}ORDSD(( VE THE FILEI(( OAD A FILEN!(!(IELD SET-UP(NEW FILE)X(( ENTER LETTER b4A:*}Al4EA v4PA04SOA@4SAAP4LA`4F@P:+}9 (( ٠+-@A/ 9 A""**** SET UP FIELDS ******* At /-@@/(:,}ԠĠ$($(HOW MANY FIELDS (LIMIT 6) A-@ ((NAME # FIELD $:-}L+(#GIVE ITS LENGTH IN NO OF CHARACTERS5 A`9B68,-L Ap)68,-8&@,%. 36-P:B',:.}8 AL At Q%&@ AsP% AV8-@@8(ҠĠ %@` :/}Auj6-&@6-%@,(,(!PUSH TO ADD ANOTHER RECORD))(!PUSH TO RETURN TO MAIN MENU:0} F:B2y,"@A F:B2y,"@A A!!****** EDIT ************* At@6:1}-%-@@%( ԠC(?(3DO YOU WANT TO REVIEW LL OR OME OF THE RECORDS C4S:2}Av A @ A At@  4A-@&5-@@5( Ԡ P:',%@:3} L-@@( 0-@@L(7<8@,%&@,*E ( -@@E(7%8@,<8:4}@,%&@,4TB:,!( --@@T(7%8@,<8@,%&@,>TB:,!(:5} --@@T(7%8@,<8@,%&@,HTB:,!( --@@ T(7%8@,<:6}8@,%&@,RTB:,!( --@@T(7%8@,<8@,%&@,W9-@@ :7}9(ENTER TO DELETE ENTIRE RECORDX(ENTER FOR NO CHANGESY&&(ENTER TO RETURN TO MAIN MENU\7-@@:8}0(WHICH FIELD TO CHANGE47(^4A"_4DA`4RAa4NA"fG 4 Aq:9}%-@@)G67<8@,%&@,.kR 4 Aq %-@@)R67%8@,<8@,::}%&@,.pR 4 Aq0%-@@)R67%8@,<8@,%&@,.uR 4 Aq@%-@:;}@)R67%8@,<8@,%&@,.zR 4 AqP%-@@)R67%8@,<8@,%&:<}@,.R 4 Aq`%-@@)R67%8@,<8@,%&@,.4-@@)-@:=}@00( 4 4-@%@)-@@0( 4  A p 4S$"&A :>} A !!******* PRINT ***********  At`6-@ -@@( /(+( WILL YOU BE PRINT:?}ING LABELS, Y/N/  4Y As ;7(.DO YOU WANT LL OR OME OF THE RECORDS PRINTED; 4YA1 3:@}NO OF FIELDS  BB3 8@,  8@,  8@, BB3 8@,  8@:A},  8@,  4S Av 4YA8  4A-@& [-@@.(:B}ǠΠ@-@@[(RECORD P:',%@ ""37<8@,%&@, ,,37%8@,<8@:C},%&@, <B:,!<37%8@,<8@,%&@, ;B:,!;37%8@,<8@,%&:D}@, <B:,!<37%8@,<8@,%&@, ;B:,!;37%8@,<8@,%&@:E},34S$   A 4A-@&37<%8@,&@,**37%8@,<%8:F}@,&@,3-@3  4S$  T At`-@@2(PRINTING ENDEDF-@:G}AJ T A!!**** RE-ORDER SORT ******** AtP&-@@&( Ҡ&(&(REO:H}RDER SORT ON WHAT BASIS?( (((((((( ENTER FIELD$ 46-$6-8@,' 4:I}6-8@,'6-8@,' 46-8@,'6-8@,' 46-8@,'6-8@,' 46-8:J}@,'6-8@,' 46-8@,'6-8@,K AtP-@@/( SORT STATUSAAR@:K}K Aph-@&m6-@r2-@@(6-P:',%@2(:|-@&&//:L}7%<%&@,/7%%<%%,AC6-(6.7<%,(67<%,.7%<%%,67%<%%,. :M}( ((7%<%&@,AC0@w L AtP-@@4(SORTING COMPLETE:N}H-@AL  A!!**** SAVE A FILE ********** At0 ApO-@@%( SAVING :O}FILE7-@@K(GIVE FILE NAMEO @@*@*@1-@@:P} 6-8,-*@1 6-&@6- At0AR@*-@@*(SAVING R:Q}ECORD -@&6-%@6.7<%,-@$@( @   At:R}[-@@.(SAVING FILE COMPLETE9@M-@AQ [ Ap!!**** LOAD A FILE **********u:S} 6. z At ApP-@@&( LOADING FILE8-@@L(GIVE FILE NAMEP @:T}@)@)@G-@@$)@-68,-C68,-8&@,%G 6:U}-&@6- AtAR@+-@@+(LOADING RECORD  6-$-@&:V}6-%@-@%@(@''67@<,.7@<%@,67<%,. :W} At\-@@/(LOADING FILE COMPLETE:@N-@AR \ AX""**** SET UP FIE:X}LDS ********b"@6.l"@6.v"@6."@6."@6.":Y}@6.6-%@U6-#-@@.6-%8,:!@U(RECORD LENGTH TOO LONG;!@:Z}-(PUSH TO START OVER1; A   $ Ar$(-@8@,!(_% ($(:[}-@8@,!(_% ($(-@8@,!(_% ($(-@8@,!(_% ($(-@:\}8@,!(_% ($(-@8@,!(_% ($ 00**** PUT NEW DATA IN STRING FORM **********6-:]}%&@46-&@>67&<,.H$!!**** LABEL SET-UP *********8*("ENTER THE CITY, STATE, AND ZIPCODE:^}.8 As 1-(%ENTER THE NO. OF LINES BETWEEN LABELS1$_-@@)-@@=(MEMORY CRI:_}TICAL_2@u@@=-@@P =2E-@@)(:`} =-@@PA E D,($NO FURTHER RECORDS CAN BE ADDED.....@-@AD $""*:a}*** SETTING BACKGROUNDS ***4 +'0@@@1@4$4 +'0@@@1@:b}4$4 +'0@@@1@4$4 +'0@@@1@4$4 +':c}0@@@1@4$$4 +'0@@@1@4$L""**** USER INPUTS INFO ****V:d}:((  Aq0-B:,%@@: Aq`:((  Aq 0-B:,%@@: AqeB:,":e}$j:((  Aq00-B:,%@@: AqoB:,"$t:((  Aq@0-B:,%@:f}@: AqyB:,"$~:((  AqP0-B:,%@@: AqB:,"$:g}:((  Aq`0-B:,%@@: Aq$!!***** SORT BASIS ********6-"@:h} At`" At@ ( (LOCATE ON WHAT BASIS:( (((((((( ENTER FIELD:i}4A(COMPARE WITH WHICH & 4 ((6-@& Aq & 4 ((6-@& Aq !& :j}4 ((6-@& Aq0"& 4 ((6-@& Aq@#& 4 ((6-@& AqP$& 4 ((:k}6-@& Aq`()-@@)"@Aw2<5 6-8,6-8&@,)6-@56-@U:l} (DO YOU WANT ALL RECORDS:Z(( TO _( TO di6-@ Avnp 6-8,6-8&:m}@,q (DO YOU WANT ALL RECORDS:r(( TO s( TO t@""**** RECORD SELECTION ******A? At@:n}-@@-( SEARCHING?AR@ED"@ At`+-@@D(PRINTING IN PROGRESSJ:o}-@&h7 6-%6-%%6-%%&@76-%%&@|4NEA07<,A`4E:p}QAP47<,A`4NEA07<,A 4EQAP 47<,A ) 4:q}E At@ A @) A A5 *-@&@&(P:',%@* 4! A(#""**** DELETE RECORD *:r}********2#((ARE YOU SURE Y/N<#4NA F#67<&,.7%<,P#"-@67&,. " Z# 6-&:s}6-&@d# A D:MAIL3NAME2NAME3NAME4NAME5NAME6NAMEDIVBASE1BASE2LABELCITYCOUNMARKERECOR8,56XXYYXIYIXTOYSIDTICTICFXFYFLAFUNCTIO @ @@@@yP>u}AYPAXP A`P ! P  AfA!u6?iBd##*** GRAPH IT ON THE ATARI ***n>v}*** FROM COMPUTE #17 ***x!!THIS PROGRAM WILL GRAPH THE EQUATION ON LINE 1030.THISCAN BE CHANGED TO ANYF>w}UNCTION OF THE FORMFUNCTION=(your function).PLEASE NOTE THAT ANYVARIABLES MUST BE "X". LINE 500 SETS T>x}HE DEFAULTS!!FOR THE RANGE AND DOMAIN OFTHE FUNCTION. THIS IS THE USER'S WINDOW.TO USE THESEDEFAULT VALU>y}ES JUST PRESS!!RETURN. THE INTERVAL PROMPT WANTS THE INTERVAL FOR THETIC MARKS. +*** INITIAL >z}CONSTANTS ***M6-6@ 6-@ )6-6@56-@A6-@M6-@ A0 WINDOW (X1,X2,>{}Y1,Y2) AP !%%&")&"A &,, >:A%,INTERVAL (X AXIS,Y AXIS);0 A>|}: D!!)APN] +@'0@A0@@K@]A>}}R@S*** DRAW AXES ***X6-'+&,$AYb 6-l!6-AYv6-O:,'>~}+&,$A!6- 6-A3,/A',3/AY*>}** DRAW TIC MARKS *** 76-&@$+!,76-%@$+ AY,*6-P:',$4/6-+&,'+&,$A/ >}AP> ,/H 6-& A R76-&@$+!,76-%@$+ A,\6-P:',$f/>}6-+&,'+&,$AY/!AYAp ,/z 6-& Ap*** GRAPH FUNCTION *** >:A%,>}A0 A 6-6-@-+&,'A 6-G:,5,+&,'+&,$AY+6->}5 A`/+&,'+&,$AY$6-%@. B*** ERROR HANDLER *** A 6-@ A>}` D:GRAPHITXTOYSIDTICTICFXFYFLAFUNCTIO @ @@@@yP<AINCSLL@@@@@@@v @ @B} Aa @('"Q @@ %%PROGRAM TO PLOT POLAR FUNCTIONS&&BY HENRIQUE VELUDO FOR ATARI 800P;@B},Z (>d3-@@3(GRAPHS OF POLAR FUNCTIONSn+-@@((FUNCTION MENU:+(x++(# 1>B}R=B*Q SPIRAL--(% 2>R=A*(1+COS(Q)) CARDIOID( 3>R=A*(1-SIN(Q))))(! 4>R=A*SINB}(B*Q) ROSE( 5>R=A*COS(B*Q)!!( 6>R=COS(A*SIN(B*Q))!!( 7>R=SIN(A*COS(B*Q)),,($ B} 8>R=A POLYGON( ((INPUT:(-!(FUNCTION #,A,B,INCR.,SC.-"6-@B}"@6-@"6-@"6-@1( (1("DO YOU WANT THE X-Y AXES DISPB}LAYED, 7@<@,4Y,6-@, @+@$66-P:H:@,$@,@%%6-P:H:@,$@B},$@J%%6-P:H:@,$@,$@TO:&, @A ^0@h0@r0@B}|'@A'DISPLAY AXES?/-A@+,@/ /-A@+,B}A`/ PLOTTING CALCULATION-A`$6-'@W0GGAA A0A@AB}PA`ApAEQUATIONS FOR R 6-$ A"6-$+@%E:,," A"6-$+@&GB}:,," A6-$G:$, A&6-$E:$, A06-E:$G:$,, A:6-G:$E:$,, AB}D 6- AXPLOTTING X,Yb6-P:+$E:,,$,l6-P:+$G:,,$,v''O:,!AY)O:,!@Ap%"B}%,A`%@&/A`%@& --@@u)B2y- 6-GB}6-@/@@K:<)@G@ *@A% @ D:POLARGRF @@v78 MNYACETFLLDSSHHHHHHAD1OMTD@@@@@@F}@ F}@..(&**************************************..(&* F} *..(&* TREND3 *..(&* A program for short-range *..(&* foF}recasts using exponential *..(&* smoothing, by H. Jackson *$..(&* from CREATIVE COMPUTING may 81 *.F}..(&* *8..(&**************************************Bhh;@6,9@!,9@F},9@,9@,9@,9@,9@!,;@,L//translated for ATARI by john neal packardV N()F} MONTH NUMBER, JAN EQ 1`!!Y() ORIGINAL SERIES OF DATAj A() 3-MONTH MOVING AVERAGEt))C() TREND-CYCLE, 3X3 MOVING AVEF}RAGE~((E() EXPONENTIALLY SMOOTHED AVERAGE..T() TREND, EXPONENTIALLY SMOOTHED CHANGE..F() FINAL EXPONENTIAL AVERAGEF} PLUS TREND55JAN,FEB,MAR,APR,MAY,JUN,JUL,AUG,SEP,OCT,NOV,DEC***VARIABLES***AAS1 EXPONENTIAL SMOOTHING FACF}TOR 06-M:F}'+&@,,HMAY@4R***PRINT ROUTINE***S-@@6@T"67<%@,.WF} \//(&MONTH ORIGINAL TREND EXPONENTIALf**(" SERIES CYCLE AVERAGEp-@z 6-8,F}@A!6-&@!@A!6-%@$+&@,CC(8, 7<%@,P:$F}8,,'P:$8,,'+,P:$8,,' 1AdAU1(HIT ANY KEY TO CONTINUE F:Ad,"AUA" F}AdAU***SECOND PAGE***&&(MONTH TREND EXPONENTIAL%%( PLUS TREND-@F} 6-8,@A"6-&@!@A"6-%@$+&@,55(8, F}7<%@,P:$8,,'P:$8,,'   ##( FORECAST -%@%@$ !!68,-8@F},%+&@,. 6-8,8  @A#B 6-&@G !@A#pI 6-%@$+&@,L **(F}8, 7<%@,P:$8,,'V  [ 1AdAU1(HIT ANY KEY TO CONTINUE` F:Ad,"AUA$F}e AdAUj ***THIRD PAGE***t <<(MEAN P:$,' STANDARD ERROR P:$,'~ ( (*** STANDF}ARD ERRORS *** //(&NO TREND EXPONENTIAL EXPONENTIAL --(%CHANGE CYCLE AVERAGE PLUS TREND (P:$,'P:$F},' (P:$,'P:$,' ( ..(&* PERCENT IMPROVEMENT OVER NO CHANGE * ))(!TREND EXPONENTIAL EXPONENTIAL (F}(( CYCLE AVERAGE PLUS TREND 6-+',$A&A 6-+',$A&A 6-+',$A&AF} (P:$,'P:$,'P:$,'  ***GRAPH ROUTINE*** %-@@%SELECT PLOT A& A& +F}+(#ORIGINAL SERIES & EXPONENTIAL+TREND A&0( --(%ORIGINAL SERIES & EXPONENTIAL AVERAGE2 A&0< %%(ORIGINAF}L SERIES & TREND CYCLEF -@6@P (IZ -@d AAP:++8,&,'+$,,$+'@,%'@%F}?P,A&n (*x A( @A'5 $$P:'@%?P,A'  (- A( F}(  A( A'@A'A(  AAP:++8,&,'+$,,$+'@,%'@%?P,A(P (OF} A( AAP:++8,&,'+$,,$+'@,%'@%?P,A(P (O A( AAP:++8,&,'+$,F},$+'@,%'@%?P,A(P (O A(" $$P:'@%?P,A(, (-6 A(@ F} ( E  J A)pA)pT -%@%@^ AAP:++8,&,'+$,,$+'@,%'@%?P,A)F}0h (Om A)`r $$P:'@%?P,A)P| (- A)` (    (   F}A)A)A0  1AdAU1(HIT ANY KEY TO CONTINUE F:Ad,"AUA0 AdAUF}   D:TRENDSLLDSSHHHHHHAD1OMTD@@@@@@D  <XYTIM !!GRAPHICS 9 GTIA DEMO (OVAL) +@ J}(#6-#0@2-@9<-@F76-@9&6-@&7P:M:$%$J},'@P,P ,Z,@y&d,A&n,@y&A&x  )6-%@!@)6J}-0@-@A  A@ D:GTIA9.BASIA DEMO (OVAL) +@ H\