' +JJJJ ?\>m0M='+l> /+l   d]@ŵLҦ]]LF L}BBL] X  ` 鷎귭෍ᷩ췩緈JJJJx Lȿ L8ᷭ緍췩 緍i 8 `巬 췌`x (`(8`I`B` ``>J>J>VU)?`8'x0|&HhHh VY)'&Y)xꪽ)' `Hh`V0^*^*>&` aI꽌ɪVɭ&Y&&Y& 꽌ɪ\8`&&꽌ɪɖ'*&%&,E'зЮ꽌ɪФ`+*xS&x'8*3Ixix&& 8  '  & x)*++`FG8`0($ p,&"ųųೳŪŪųųij  !"#$%&'()*+,-./0123456789:;<=>?   1 '" *"( (9"1 ( ,.(0# 2  /#0/#0 *?'#07#00/0/'#07#0:"4<*55/**5/*%5/)1/)1/)1/)'#0/#0*5/*75/**5/*:5//#0/#0'#07#0:::*::'#07#0"):$(%"%:$(%"%$$2%4%$$2%4%$(2()!)E(!8b $!H(+ "@H !D)"E` @ $ C ` DQ &J80^݌Hh ü ü݌ ռ ռ ռA ļD ļ? ļAEDE?HJ>h Լ ռ ռ ռ`HJ>݌h Hh݌`葠葠ȔЖȔЖȠHIHHHHhHH݌hHhHh݌H6 VDP (ED Z $0x8x D- ܸDD# H8`?E Vk *f???0xE Hh D#-EEE8` D ܸx D - ܸx8`-0ݩ?ʥD EEE`   LDcpq` [` ~  LӜu`".Q`pNФbptťܥm2<(-Py0\|e<6e<g< JJJJj귍hI  aUL@ kU8  L  Q^R(jQ0l^l\  wUuW ԧ H h@ [_ /QSIRb_L`LLLL`ª`LQLYLeLXLeLee ўQH\(h0L& Ꝥ$`( R \ZLl8 ўR HH\`\Z[YS6`LxQɿu3'RͲʎRʎ]]]ɍuL͟ɍ}RLRɍg^H8 ^hZLɍR LͲɊRR% QLܤͲ Z@ -^ ş\[Z QY\[Z8`l6Lş_Ȍb_Ͳ] )Y h( ֭ͲLɍ [LLĦ__ ^ 9 LҦ3 9 a   0LjLY u< (_9 ˭ɠuɠK_9 ?LˆʎõĵL õ ĵµ aµ`` L̦µ_bJLuLz`  ȟ QlXJ̥KlV  ȟ QlV eօ3L e3L &RL &QL d L4 Ne)n `@-eff L f`L . tQLѤ LҦL` OPu d L Ne)noon 8ɍ` ^f\õL ^NR  RΩLҦ)\Z ʽ LHv 3h`0h8` [L NС õ`A@` ŵL^Lõ`  \ 濭0 \  ȟ Q ^\lZl^?cqH şch`fhjõĵ@OAP`u@`@&`QR`E Ls  @DAE@u`8` %@ @A@`@`@A`Mµ ) LЦ`8@AWc@8@-@HAȑ@hHȑ@ȑ@hHȑ@Ȋ@ch8&ȑ@Hȑ@Ah@LHȑ@ȑ@ htphso`hMhL`9V8U897T6S67`INILOASAVRUCHAIDELETLOCUNLOCCLOSREAEXEWRITPOSITIOOPEAPPENRENAMCATALOMONOMOPRINMAXFILEFINBSAVBLOABRUVERIF!pppp p p p p`" t""#x"p0p@p@@@p@!y q q p@  LANGUAGE NOT AVAILABLRANGE ERROWRITE PROTECTEEND OF DATFILE NOT FOUNVOLUME MISMATCI/O ERRODISK FULFILE LOCKESYNTAX ERRONO BUFFERS AVAILABLFILE TYPE MISMATCPROGRAM TOO LARGNOT DIRECT COMMANč$3>L[dmx- ( j Ϡ-@跻~!Wo*9~~~~ɬƬ~_ j ʪHɪH`Lc (L ܫ㵮赎 ɱ^_ J QL_Ls贩紎 DǴҵԵƴѵӵµȴ 7 ַ :ŵƴѵǴҵȴµ納贍﵎ٵ്ᵭⳍڵL^ѵ-I `  4 ò-յ!  8صٵ紭ﵝ 7L (0+BC  7L HH`LgL{0 HH` õL H hBL BH [ h`Lo õ ڬL B ڬ LʬH hB@ յյ [L (ȴ) ȴ 7L L ( L (ȴL{ƴѵ洩ƴǴҵ 7 ^* B0 HȱBh ӵԵ 8 L8 ݲ` ܫ  / / ED B / / ]ƴS0Jȴ ȴ)  紅D贅E B ƴ  / 0L Ν `HD٤DEEhiHLGh ` ŵBѵ-` ѵB-` ܫ XI볩쳢8 DH E𳈈췍Ȍ X0 · JLǵBȵC`,յp` 䯩 R-յյ`յ0` K R-յյ`ɵʵӵԵ` 4 K ( ѵҵLBȱBL8` DBHBH : ַ޵BȭߵBhhӵԵ RBܵmڵ޵ȱBݵm۵ߵ` 䯩LR˵̵ֵ׵`êĪLR E( 8` R` ELRŪƪ`췌 յյI뷭鷭귭ⵍ㵍跬ª 뷰` Lf ݵܵߵ޵ ^`8ܵ i B8` 4L ֵȱB׵ ܯ䵍൭嵍 ` DȑB׵Bֵ  ַ յյ`굎뵎쵬 뵎쵌``õĵBCõĵ`µµ`L õBĵCصص Qƴ0"Bƴ 󮜳` 0۰ϬBƴ8`i#`ЗLw!0>ﵭ` m ﳐ 7i볍 8 ЉLw`H h ݲL~ `浍국䵍뵩嵠Jm赍嵊mjnnn浈ۭm浍浭m䵍䵩m嵍`"L ŵ8ŵH ~(` # d ֠z# u`REELY *# * BUT DON'T SELL. *?" *********************1260u21::"TOO MANY FILES";::" -- ONLY 42 FILES WILL FIT";:"ON A LABEL. PRESS ANY KEY TO RESTART";:Z$:870{: ********************* * DISK LABELLER 1.0 * * COPYRIGHT 1985 BY * * DAVE TOUVELL * * DISTRIBUTE FR";(" S",1(FS1),1):%PI1M3JZC$(I);" ";C$(I1);" ";C$(I2)PdbnM39ĺ:1410yx(12): FORM FEEDD$;"PR#0":870: ERROR ROUTINES::13:(7);::"I/O ERROR";::" -- PRESS ANY KEY TO CONTINUE";:Z$::S":"A KEY. ( TO ABORT PRINTING) ";:A$:A$:A$(27)870D:c( TURN ON PRINTER & SET UPi2:<D$;"PR#1":(9);"68N";(15);(27);"S0";(27);"A";(6);(27);"C";(17)F" ";TI$;:36,30:N;" FILE";(" S",1(N1),1);:36,49:FS;" FREE SECTO256 240BUFF:0 PRINT LABEL6:FM42ī1470t21:"DISK TITLE? DISK VOLUME ";VOL$;:13"";TI$:TI$""TI$"DISK VOLUME "VOL$ (TI$)26Ģ21:958:127021:13:TI$>21:"MAKE SURE PRINTER IS READY, THEN PRES(" S",1(N1),1)8:4B READ CATALOG SECTORS:L:JVSC1501`BUFFBUFF256:915,(BUFF256):914,BUFF(256(BUFF256))j911,SCt896~(919)01460: ERRORSC: GET DATA FROM SECTORS:BUFF844812288:"911,0:896:(919)01460(:9 GET VOL #?:^VOL$("000"((8198)),3)}:13:"DISK VOLUME ";VOL$: GET FREE SECTORS:768,0:769,0770FS(768)(769)256$FS$(FS).15:FS$;" FREE SECTOR";(4):N0:C$(105)p:21:"INSERT DISK TO BE LABELED INTO DRIVE 1":"AND PRESS A KEY ( TO QUIT) ";:Z$:Z$(27)ĉ::z:21:"DO YOU WANT PROMPTING? N";(8);:Z$:Z$"Y"P1:Z$910,17::914,0:915,32:BUFF8192: READ VTOC208,3,238,1,3,136,208,242,202,208,234,96 / :h* POKE IOB, DCT, AND CONTROLLER INTO MEMORYn4:>I896926:Z:I,Z:: 169,3,160,138,32,217,3,96,0,0,1,96,1,0,0,0,155,3,0,32,0,0,1,0,0,96,1,0,1,239,216H:R WARMSTART\:f:D$L &"4"& &"c"&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&"p:34,12v: POKE FREE SECTORS ROUTINE INTO MEMORY :)I768794:Z:I,Z:: 0,0,162,137,160,8,189,56,32,10,144,8,238,0,3,TTE LABELER 1.0 &"I"& &"x"& COPYRIGHT (C) 1985 BY DAVE TOUVELL &""& ALL RIGHTS RESERVED &""& &""& DISTRIBUTE FREELY, BUT DON'T SELN19:1:958YX17:1(M10)(M100):M;:4:" FILE";(" S",1(M1),1);" ON LABEL"_belkv:} TITLE PAGE:::"&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&""& &""& DISKE GET FILE LENGTH :6 L$("000"((OFST33)),3)^ NN1:MM1:C$(M)FT$" "L$" "N$j P590p :  PROMPTING : 19:1:C$(M);:30:"INCLUDE? Y";(8); Z$: &Z$"N"C$(M)"":MM1 0: : PRINT NUMBER OF FILES D:-" @FT0FT$" T"* JFT128FT$"*T"= TFT1FT$" I"R ^FT129FT$"*I"e hFT2FT$" A"z rFT130FT$"*A" |FT4FT$" B" FT132FT$"*B" :  GET FILENAME : N$"":CHAROFST3OFST16:N$N$((CHAR)): :  ******************** :4 660: PROGRAM START: :R MAIN SUBROUTINE X :v OFSTBUFF11BUFF22135 (OFST)255610: DELETED FILE (OFST)01260: END OF DIRECTORY :  GET FILE TYPE ": ,FT(OFST2) 6FT$"-LABEL *" * USING COMPRESSED *= * SUBSCRIPT PRINT *X * MODE. *s ******************** * DIRECT ANY * * QUESTIONS OR * * COMMENTS TO GENIE* * MAIL ADDRESS * * [D.TOUVELL] * * */ * THIS PROGRAM WAS *J * WRITTEN FOR AN *e * EPSON RX-80. THE * * PRINTER CODES ARE* * IN LINE 1340. * * THIS PROGRAM WILL* * PRINT UP TO 42 * * FILENAMES ON A * * 4 X 1-7/16 @d ********************9n * * Tx * DISKETTE LABELER *o * * * BY DAVE TOUVELL * * * * COPYRIGHT 1985 * * * ********************        z#???      Ϡ ˠҠ ϠҮŠˠҠˠҠĠ̮̬ҠάԠàˬؠdddddddO BE LABELED INTO DRIVE 1":"AND PRESS A KEY ( TO QUIT) ";:Z$:Z$(27)ĉ::z:21:"DO YOU WANT PROMPTING? N";(8);:Z$:Z$"Y"P1:Z$910,17::914,0:915,32:BUFF8192: READ VTOC:911,0:896:(919)01460:  :>*POKE IOB, DCT, AND CONTROLLER INTO MEMORYD4:>I896926:Z:I,Z:: 169,3,160,138,32,217,3,96,0,0,1,96,1,0,0,0,155,3,0,32,0,0,1,0,0,96,1,0,1,239,216H:RWARMSTART\:f:D$(4):N0:C$(105)Sp:21:"INSERT DISK T &"<"&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&"I:34,12O:POKE FREE SECTORS ROUTINE INTO MEMORY :I768794:Z:I,Z:: 0,0,162,137,160,8,189,56,32,10,144,8,238,0,3,208,3,238,1,3,136,208,242,202,208,234,96 &"Q"& COPYRIGHT (C) 1985 BY DAVE TOUVELL &""& ALL RIGHTS RESERVED &""& &""& DISTRIBUTE FREELY, BUT DON'T SELL &" "& 100):M;:4:" FILE";(" S",1(M1),1);" ON LABEL"9b?lEv:V TITLE PAGE\:f::"&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&""& &""& DISKETTE LABELER 1.0 &"""& "((OFST33)),3): NN1:MM1:C$(M)FT$" "L$" "N$F P590L :\ PROMPTING b : 19:1:C$(M);:30:"INCLUDE? Y";(8); Z$: &Z$"N"C$(M)"":MM1 0: :PRINT NUMBER OF FILES D: N19:1:9583X17:1(M10)(MFT$"*T" TFT1FT$" I"0 ^FT129FT$"*I"C hFT2FT$" A"X rFT130FT$"*A"k |FT4FT$" B" FT132FT$"*B" : GET FILENAME : N$"":CHAROFST3OFST16:N$N$((CHAR)): :  GET FILE LENGTH : L$("000 660:PROGRAM START :3 MAIN SUBROUTINE 9 :W OFSTBUFF11BUFF22135{ (OFST)255610:DELETED FILE (OFST)01260:END OF DIRECTORY :  GET FILE TYPE ": ,FT(OFST2) 6FT$"--" @FT0FT$" T" JFT128G COMPRESSED *( * SUBSCRIPT PRINT *B * MODE. *\ ********************v * DIRECT ANY * * QUESTIONS OR * * COMMENTS TO GENIE* * MAIL ADDRESS * * [D.TOUVELL] * ******************** : *$ * THIS PROGRAM WAS *> * WRITTEN FOR AN *X * EPSON RX-80. THE *r * PRINTER CODES ARE* * IN LINE 1340. * * THIS PROGRAM WILL* * PRINT UP TO 42 * * FILENAMES ON A * * 4 X 1-7/16 LABEL * * USINd********************7n* * Qx* DISKETTE LABELER *k* ** BY DAVE TOUVELL ** ** COPYRIGHT 1985 ** ********************* *      ,  :*(4)"RUN DISK LABELLER 1.0" UTE DEMO";C34,1K(Z$Q-w2Z$"R"ĺ(4);"RUN DISK LABELLER"<Z$"X"ĺ(4);"EXEC DEMO"FZ$(27)ĉ::d10d  d  D$(4)D$"MONICO"0D$"OPEN DEMO"D(D$"WRITE DEMO"]2"RUN DISK LABELLER"f<" "oF"N"P"DISK LABELLER"ZD$"CLOSE" D Πˠҍ΍ˠҍ :M42ī1470A21:"DISK TITLE? DISK VOLUME ";VOL$;:13m"";TI$:TI$""TI$"DISK VOLUME "VOL$ (TI$)26Ģ21:958:127021:13:TI$ 21:"MAKE SURE PRINTER IS READY, THEN PRESS":"A KEY. ( TO ABORT PRINTING) ";:A$:A$:ATORS L:VSC1501Y`BUFFBUFF256:915,(BUFF256):914,BUFF(256(BUFF256))ej911,SCnt896~(919)01460:ERRORSC: GET DATA FROM SECTORS:BUFF844812288256240BUFF: PRINT LABEL GET VOL #:0VOL$("000"((8198)),3)O:13:"DISK VOLUME ";VOL$U:l GET FREE SECTORSr:768,0:769,0770FS(768)(769)256$FS$(FS).15:FS$;" FREE SECTOR";(" S",1(N1),1)8:B READ CATALOG SEC:M42ī1470A21:"DISK TITLE? DISK VOLUME ";VOL$;:13m"";TI$:TI$""TI$"DISK VOLUME "VOL$ (TI$)26Ģ21:958:127021:13:TI$ 21:"MAKE SURE PRINTER IS READY, THEN PRESS":"A KEY. ( TO ABORT PRINTING) ";:A$:A$:ATORS L:VSC1501Y`BUFFBUFF256:915,(BUFF256):914,BUFF(256(BUFF256))ej911,SCnt896~(919)01460:ERRORSC: GET DATA FROM SECTORS:BUFF844812288256240BUFF: PRINT LABEL GET VOL #:0VOL$("000"((8198)),3)O:13:"DISK VOLUME ";VOL$U:l GET FREE SECTORSr:768,0:769,0770FS(768)(769)256$FS$(FS).15:FS$;" FREE SECTOR";(" S",1(N1),1)8:B READ CATALOG SECO BE LABELED INTO DRIVE 1":"AND PRESS A KEY ( TO QUIT) ";:Z$:Z$(27)ĉ::z:21:"DO YOU WANT PROMPTING? N";(8);:Z$:Z$"Y"P1:Z$910,17::914,0:915,32:BUFF8192: READ VTOC:911,0:896:(919)01460:  :>*POKE IOB, DCT, AND CONTROLLER INTO MEMORYD4:>I896926:Z:I,Z:: 169,3,160,138,32,217,3,96,0,0,1,96,1,0,0,0,155,3,0,32,0,0,1,0,0,96,1,0,1,239,216H:RWARMSTART\:f:D$(4):N0:C$(105)Sp:21:"INSERT DISK T &"<"&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&"I:34,12O:POKE FREE SECTORS ROUTINE INTO MEMORY :I768794:Z:I,Z:: 0,0,162,137,160,8,189,56,32,10,144,8,238,0,3,208,3,238,1,3,136,208,242,202,208,234,96 &"Q"& COPYRIGHT (C) 1985 BY DAVE TOUVELL &""& ALL RIGHTS RESERVED &""& &""& DISTRIBUTE FREELY, BUT DON'T SELL &" "& 100):M;:4:" FILE";(" S",1(M1),1);" ON LABEL"9b?lEv:V TITLE PAGE\:f::"&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&""& &""& DISKETTE LABELER 1.0 &"""& "((OFST33)),3): NN1:MM1:C$(M)FT$" "L$" "N$F P590L :\ PROMPTING b : 19:1:C$(M);:30:"INCLUDE? Y";(8); Z$: &Z$"N"C$(M)"":MM1 0: :PRINT NUMBER OF FILES D: N19:1:9583X17:1(M10)(MFT$"*T" TFT1FT$" I"0 ^FT129FT$"*I"C hFT2FT$" A"X rFT130FT$"*A"k |FT4FT$" B" FT132FT$"*B" : GET FILENAME : N$"":CHAROFST3OFST16:N$N$((CHAR)): :  GET FILE LENGTH : L$("000 660:PROGRAM START :3 MAIN SUBROUTINE 9 :W OFSTBUFF11BUFF22135{ (OFST)255610:DELETED FILE (OFST)01260:END OF DIRECTORY :  GET FILE TYPE ": ,FT(OFST2) 6FT$"--" @FT0FT$" T" JFT128G COMPRESSED *( * SUBSCRIPT PRINT *B * MODE. *\ ********************v * DIRECT ANY * * QUESTIONS OR * * COMMENTS TO GENIE* * MAIL ADDRESS * * [D.TOUVELL] * ******************** : *$ * THIS PROGRAM WAS *> * WRITTEN FOR AN *X * EPSON RX-80. THE *r * PRINTER CODES ARE* * IN LINE 1340. * * THIS PROGRAM WILL* * PRINT UP TO 42 * * FILENAMES ON A * * 4 X 1-7/16 LABEL * * USINd********************7n* * Qx* DISKETTE LABELER *k* ** BY DAVE TOUVELL ** ** COPYRIGHT 1985 ** ********************* *        **AES WILL FIT";:"ON A LABEL. PRESS ANY KEY TO RESTART";:Z$:870E:`*********************{* DISK LABELLER 1.0 ** COPYRIGHT 1985 BY ** DAVE TOUVELL ** DISTRIBUTE FREELY ** BUT DON'T SELL. *"*******************";C$(I1);" ";C$(I2)d.nM39ĺ:1410Dx(12):FORM FEEDSD$;"PR#0"^:870d:xERROR ROUTINES~::13:(7);::"I/O ERROR";::" -- PRESS ANY KEY TO CONTINUE";:Z$::1260?21::"TOO MANY FILES";::" -- ONLY 42 FIL$(27)870:/(TURN ON PRINTER & SET UP52:<D$;"PR#1":(9);"68N";(15);(27);"S0";(27);"A";(6);(27);"C";(17)F" ";TI$;:36,30:N;" FILE";(" S",1(N1),1);:36,49:FS;" FREE SECTOR";(" S",1(FS1),1):PI1M3ZC$(I);" **DES WILL FIT";:"ON A LABEL. PRESS ANY KEY TO RESTART";:Z$:870E:`*********************{* DISK LABELLER 1.0 ** COPYRIGHT 1985 BY ** DAVE TOUVELL ** DISTRIBUTE FREELY ** BUT DON'T SELL. *"*******************";C$(I1);" ";C$(I2)d.nM39ĺ:1410Dx(12):FORM FEEDSD$;"PR#0"^:870d:xERROR ROUTINES~::13:(7);::"I/O ERROR";::" -- PRESS ANY KEY TO CONTINUE";:Z$::1260?21::"TOO MANY FILES";::" -- ONLY 42 FIL$(27)870:/(TURN ON PRINTER & SET UP52:<D$;"PR#1":(9);"68N";(15);(27);"S0";(27);"A";(6);(27);"C";(17)F" ";TI$;:36,30:N;" FILE";(" S",1(N1),1);:36,49:FS;" FREE SECTOR";(" S",1(FS1),1):PI1M3ZC$(I);" ͠ĠÍŠ̠ƠˠΠ͠Ԡ̠̤ԤҤˠŠ ԠˠŠ̤͠ԠŠӍĠӠ٠þϠԩԠڤƠڤҤΠԠŠĠŠ ԠϠՠԠǿ΢ҤԠڤƠڤ٢ΠРԠڤŠŠŠƠŠɬںԠ͠ԍҠĤҤΠ͠䊠ԠԠˠϠŠĠϠŠԠҠɠϠĠںŠɬںԠ͠Š¬ԬĠҠϠٍҠɠϠĠںϠԠŠ٬ԠΧԠ̠ԠԠ̠Š͠ŠŠӠŠϠٍԠŠҠԠԠԠé٠Š̠Ԡ̠ӠĠԠ ԠŢĤӢ͠Π̢ԠΠ͠ŠōԠŠŠԠԠ Ԡäͩ Ԡſ٢ҤԠڤԠƠڤ΢Πäͩ͠͠͠ԠҠƠӍ  ̠  ͠͠ԠͻҤˠҩԠ͠ԠŠȍ̤ԤҤˠԠΠΠ͠͠äͩԤ̤ΤƠԠРΠ͠Ǡ ɢƠԠΠԤɢƠԠΠԤƠԠΠԤƠԠΠԤ¢ƠԠΠԤ¢͠ԠōΤҠҠԠϠԠΤΠΠ͠ĠŠƠˠԩΠ͠ĠƠ٠͠ԠŠōԠˠԠԤƠԠΠԤԢƠԠΠԤԢƠԠΠԠӠϠŪ̠͠Ӡ͠Įݠ͠Ϡ͠͠ԍ͠ΠŠҠԠƠϠƠРƠˠԩ͠ӠΠ͠ؠ̠͠ǠĠ͠ԠԠ͠Ů͠͠Ԡ٠͠ӠҠ͠͠͠Ӡ͠Ӡ͠ΠҠΠ͠ΠحŠ͠ҠӠŪ͠ΠŠ͠Ӡ̪͠͠ԠРϠЍ͠͠͠ŠҠ͠͠٠Š̠͠͠Ԡ͠͠         Š٠͠ԠΧԠ̮͠ύŠˠҠύԠ٠Ӡ̠ԢԠΠ̮Ӡ٠٠ϠԢԠڤϠ͠͠ˠҠ͠Ԡ٠͠Š̠͠ՠŠϠ͠ҠӍŠ ԠҤȠԠɯϠҢ̠ԠӠ٠٠ϠŢԠڤԠϠ ȠԠϠ٠Ӣ̠ԠӻŠҢĤӢӠԠҠɠϠ͠РԠäɩäɠäɠԠƠ͠ΠԠϠԠҤ͠͠čԠĤң͠ΠΠҠԠЍԠĤңԠҤ΢ҤҤӰҤҤҤâҤԠɤŠԠλŢĤӢΠŠƠΠɤΠ ̠Ϡ  Ԡɤ ԠŠŠҠӠ٬ΠӢԠٮþϠԠǩԠԠƠҤΠϠР Ԡƍ͠Ԡ̍Ơ͠ΠϠ ԠˠſˠŠ̤ ԠɤƠɤΠɤˠŠ̤ƠƠŠԠƠŠƠԠƠŠÍ̠ƠˠΠ͠ҍԠÍ͠Ԡ͠ӍҠƠŠŠ̠ӠˠˠӤҤө ԠӤŠҢĤӢΠ͠ĠǠӍҠàϠРS":"A KEY. ( TO ABORT PRINTING) ";:A$:A$:A$(27)870D:c( TURN ON PRINTER & SET UPi2:<D$;"PR#1":(9);"68N";(15);(27);"S0";(27);"A";(6);(27);"C";(17)F" ";TI$;:36,30:N;" FILE";(" S",1(N1),1);:36,49:FS;" FREE SECTO256 240BUFF:0 PRINT LABEL6:FM42ī1470t21:"DISK TITLE? DISK VOLUME ";VOL$;:13"";TI$:TI$""TI$"DISK VOLUME "VOL$ (TI$)26Ģ21:958:127021:13:TI$>21:"MAKE SURE PRINTER IS READY, THEN PRES(" S",1(N1),1)8:4B READ CATALOG SECTORS:L:JVSC1501`BUFFBUFF256:915,(BUFF256):914,BUFF(256(BUFF256))j911,SCt896~(919)01460: ERRORSC: GET DATA FROM SECTORS:BUFF844812288:"911,0:896:(919)01460(:9 GET VOL #?:^VOL$("000"((8198)),3)}:13:"DISK VOLUME ";VOL$: GET FREE SECTORS:768,0:769,0770FS(768)(769)256$FS$(FS).15:FS$;" FREE SECTOR";(4):N0:C$(105)p:21:"INSERT DISK TO BE LABELED INTO DRIVE 1":"AND PRESS A KEY ( TO QUIT) ";:Z$:Z$(27)ĉ::z:21:"DO YOU WANT PROMPTING? N";(8);:Z$:Z$"Y"P1:Z$910,17::914,0:915,32:BUFF8192: READ VTOC208,3,238,1,3,136,208,242,202,208,234,96 / :h* POKE IOB, DCT, AND CONTROLLER INTO MEMORYn4:>I896926:Z:I,Z:: 169,3,160,138,32,217,3,96,0,0,1,96,1,0,0,0,155,3,0,32,0,0,1,0,0,96,1,0,1,239,216H:R WARMSTART\:f:D$L &"4"& &"c"&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&"p:34,12v: POKE FREE SECTORS ROUTINE INTO MEMORY :)I768794:Z:I,Z:: 0,0,162,137,160,8,189,56,32,10,144,8,238,0,3,TTE LABELER 1.0 &"I"& &"x"& COPYRIGHT (C) 1985 BY DAVE TOUVELL &""& ALL RIGHTS RESERVED &""& &""& DISTRIBUTE FREELY, BUT DON'T SELN19:1:958YX17:1(M10)(M100):M;:4:" FILE";(" S",1(M1),1);" ON LABEL"_belkv:} TITLE PAGE:::"&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&""& &""& DISKE GET FILE LENGTH :6 L$("000"((OFST33)),3)^ NN1:MM1:C$(M)FT$" "L$" "N$j P590p :  PROMPTING : 19:1:C$(M);:30:"INCLUDE? Y";(8); Z$: &Z$"N"C$(M)"":MM1 0: : PRINT NUMBER OF FILES D:-" @FT0FT$" T"* JFT128FT$"*T"= TFT1FT$" I"R ^FT129FT$"*I"e hFT2FT$" A"z rFT130FT$"*A" |FT4FT$" B" FT132FT$"*B" :  GET FILENAME : N$"":CHAROFST3OFST16:N$N$((CHAR)): :  ******************** :4 660: PROGRAM START: :R MAIN SUBROUTINE X :v OFSTBUFF11BUFF22135 (OFST)255610: DELETED FILE (OFST)01260: END OF DIRECTORY :  GET FILE TYPE ": ,FT(OFST2) 6FT$"-LABEL *" * USING COMPRESSED *= * SUBSCRIPT PRINT *X * MODE. *s ******************** * DIRECT ANY * * QUESTIONS OR * * COMMENTS TO GENIE* * MAIL ADDRESS * * [D.TOUVELL] * * */ * THIS PROGRAM WAS *J * WRITTEN FOR AN *e * EPSON RX-80. THE * * PRINTER CODES ARE* * IN LINE 1340. * * THIS PROGRAM WILL* * PRINT UP TO 42 * * FILENAMES ON A * * 4 X 1-7/16 @d ********************9n * * Tx * DISKETTE LABELER *o * * * BY DAVE TOUVELL * * * * COPYRIGHT 1985 * * * ********************  !! ! ! ! ! !!!!!!!!!""" REELY *# * BUT DON'T SELL. *?" *********************1260u21::"TOO MANY FILES";::" -- ONLY 42 FILES WILL FIT";:"ON A LABEL. PRESS ANY KEY TO RESTART";:Z$:870{: ********************* * DISK LABELLER 1.0 * * COPYRIGHT 1985 BY * * DAVE TOUVELL * * DISTRIBUTE FR";(" S",1(FS1),1):%PI1M3JZC$(I);" ";C$(I1);" ";C$(I2)PdbnM39ĺ:1410yx(12): FORM FEEDD$;"PR#0":870: ERROR ROUTINES::13:(7);::"I/O ERROR";::" -- PRESS ANY KEY TO CONTINUE";:Z$::