oppkSPNUFIBEOFOFFSEOLINFNCURSOFLINFLAMOVECHBAFIXFIMEMTOADLIDLISNSEERADRHADRLIOCCSET @%%*** FAST SETS SUBROUTINE WRITER *** BY: DARRYL W. HOWERTON*** SEPTEMBER 1986! B  AP! A2u-@@#-@((L2@@@@&P r2u$d=6-A$6-6-!6-+ @P=-@@nN-@@8(SELECT A CHARACTER SET TO LOADD6-AN Ax1(1( ǽ5 @@* Ap5@[ @P-@@E(!SELECT A NAME FOR YOUR SUBROUTINEQ6-A[ A] @P%-@@A(STARTING LINE NUMBER? N@]4A (  A`6-A (6-A:,B!B ((8(CAN NOT BE LARGER THAN 32000!B A`A^(( USE: 1. LINE 12( 2. LINE 2H( 3. LINE 3^( 4. LINE 4 _( 5. TOP 2 LINES<( 6. BOTTOM 2 LINES_( 7. WHOLE CHARACTER SET<(/(# ҠŠƠҠŠ<)@!"@I6-AV!6-7"@P6-AV#6-%16-&A76- ="@Q6-AV)6-%A16-&=6-A"5"@R6-AV)6-%Ah56-Ah&#"@S6-A#6-&*/"@T6-A#6-%/6-A,t @P-@@F("INSERT DISK TO WRITE SUBROUTINE TOX-@@t(PRESSWHEN READY.$)@$AUA/c @P-@@<(...WRITING SUBROUTINE...N-@@c(PLEASE STAND BY!16 A`6-A6@@6jj(@Q MEMTOP=PEEK(106):CHBAS=MEMTOP-4:POKE 106,CHBAS-1:GRAPHICS 0:DIM MOVE$(43),CSET$()@< A <(@ MOVE$=>:@4,>:@4,JI-@d A I(@ CSET$(&)=>:@4,TV-@c,6-F:%%&@,D%%&@AUV%%&@YY"@4)"AU.68<,-%&?68@<,-M6-%@Y6-@2^.*@ *(@>:@4,. h(Ar=!-&@@+ A =(@ w=-@'%!&@36-@= A|WW(@CSET$(8<%,,8<%,)=CHR$(8@<%,)- @*% &@-(@: (@ D A D(@' X=USR(ADR(MOVE$),57344,CHBAS*256,1024)j A D(@& X=USR(ADR(MOVE$),ADR(CSET$),CHBAS*256P!@j(@+&@H(@,)" A H(@ POKE 756,CHBAS:RETURN@- @P-@@-( finished!<-@@<("Ӡ٠٠Ϡŭ F:Ad,"AUA fF:Ad,"@G*AdAUGAF:A,%@Q+[ A Pf%D:MENU5!6-?:C:,<BsD<<A$,+ AQ5 Ar A`5(#(DRIVE #1 ASSUMED UNLESS SPECIFIED)G-@@o(#PRESS:FOR DIRECTORY LISTINGr(h 6."AdAU4-@@?(ENTER:B([( FILENAME.EXT=> h@ 4 ' Ah7@<@,0D:*7@<@,0D1:*7@<@,0D2:*7@<@,0D8:q6.D:67@,. AP 6.}a7@<@,21)7@<@,32*7@<@,0:*7@<@,08sAA`} A`$  ($Lg  @P%-@@ D(DIRECTORY FOR WHICH DRIVE?V-@@g( [1, 2, OR 8]Q2)@& @I)!@V26-@IVG6.D :*.**67@<@,.>:,G@@`O @P-@@O(٠ź>:%A(,je-@@P?P,@;6.7@,e7@<@,4 FREE SECTOAtd "P:,-@N(|7@<@, 7@ <@,Z6-@d A`~N-@ P:,B(7@<@, 7@ <@,|N6- 9'( Ӻ9AdAU4F:Ad,AU*AdAU4 A  A4-@ P:,(( |46-3(( Ӻ3@.F:Ad,AU*AdAU.  A Q6-%@!B'g)6-@56-A GAAQ A`$~6-F:A, 6-&@4A&@@AJ+d0@@~0@@X6-$AV6-AR)-56-@O@@K:UX(CC;@,;@,;,9<A(,;@7,;@,> 6. 67@7,. +67@,.>6. H ԭ h@Q!6-?:C:,<BsD<<A$,K6-F:A`,%F:Aa,$AV%@Qy%@@+%@@?%@@S%@@g%@ AAyBBAV6-P:C:,'AV,*6-C:,&$AV6ABAVAV%@l"(} analog presents`K($___FAST SETS___ SUBROUTINE WRITERl( by` darryl w. howertonQ-@+-@@%96-%@E"@Q6-C-@1;(>:%+&+"@,,$@2,? C m-@@,(clearing arrays...@-@T-A(e68<,-i m $p( @P A`(@u'-@@$6-F:A,''z,"Ap,(CAN'T FIND FILE=> !M"AD,(NO DISK IS IN THE DRIVE!M((OR DISK IS WRITE PROTECTED)7"A`7(#DRIVE NOT AVAILABLE ON YOUR SYSTEM!-"Ag-(FILE REQUESTED IS LOCKED!8"Ai8($DIRECTORY IS FULL! use another disk.3"Ab3(DISK IS FULL! use another disk.#"@#(ILLEGAL VALUE!!\"A5(!SUBROUTINE LINE NUMBER OVERFLOW!!\(" use smaller line number at promptG-@@5(Ӡ٠٠ϠGAdAU.F:Ad,AU*AdAU.  AaX. Ap06-P:'AV,.6-&$AVbg6-AH#%@@1%@?%@S%@g%@ @l6-?:C:hhhLV,<@,v$}T6-F:A, 6-&@,A26-<+T;@C,;AV, }556.+hhhhhhh֠ґ`}SS67@,.@ 0 >fn3~l9p`<6ff?0|`?0|`0`n}SS67@e,.@33~f? 0x36|x00``37k3;~~3ffx(}SS67A),.@>3f|3ffl>3f|0|<? 0033ff33ff|033k2}SS67A,.@33<<33<0`?0` 0xx6c<}))6-?:C:,<BsD<$AV<A$,F}..6-?:C:,