(d ***** DIRECTORY ON A LABEL *****Oi * TRANSLATED FOR THE PLUS/4 BY *vn * JOHN-MARK GILHOUSEN FROM *s * PAUL MACDONALD'S ORIGINAL *x ********************************} PIECES LARGE AND SMALL FROM OTHER PUBLIC DOMAIN DIRECTORY PROGRAMSX WORKS WITH EPSON RX-80 PRINTERS AND COMPATIBLES USING STANDARDu 3 1/2" X 15/16" LABELS ACCOMMODATES 33 DIRECTORY ENTRIES AS WELL AS DISK NAME, SIZE, AND TITLE ON EACH LABEL. SKIPS TO NEXT LABEL TO COMPLETE LARGER LISTINGS#3:3,4,4:(14)T3,(27);"";(1):3,(15):3,(27);"";(5){FX$(256),FT$(256),FL(256),TT(256)(19)(17)(17)(29)(29)"LIGN PRINT HEAD WITH TOP OF LABEL.":N1:I1256:FX$(I)"":BL$" ":I140:BL$BL$"":-15:15,8,15:1,8,0,"$0":375:#1,A$,B$^W60:L$"":(29)(29)"NTER TITLE --> ";L$(L$)16 "LABEL STRING TOO LONG-MAX IS 16 CHARACTERS.":195#1,A$,B$:#1,A$,B$:C0:A$""C(A$) B$"" CC(B$)256NN1:FL(N)C#1,B$: ST0 265* B$(34) 2204N$""X#1,B$:B$(34)N$N$B$:235fFX$(N)N$#1,B$: B$(32) 245C$""C$C$B$:#1,B$: B$"" 255FT$(N)(C$,3):ST0205 1:BFFL(N):NN1:425 P((BF100664).5):P$((P),2)8T2$FX$(0):L$""T2$T2$"("L$")"jT$" *"FX$(0)(BF)" BLOCKS ("P$"%) FREE"L$""T$T$(BL$,1,W(T$)1):295"KW2(T$)(L$):T$T$(BL$,1,K1)"("L$")"'T$T$" ":3,T$:Q11,L9:K((N1)3):I1K 1Q0315&63,(27);"";(16):Q11[;T$(X):JI:395:T$T$" ":JKI:395:T$T$" "y@J(2K)I:395:T$T$" "ET$(T$,5,19)" "(T$,31,18)" "(T$,57,18)J3,T$ :LL1:QQ1:OQ0345TX1Q3:3,(27);"";(15)::3,(27);"";(1)JY(19)(17)(17)(29)(29)"NSERT NEW DISK FOR NEXT LABEL AND"x^" PRESS , OR PRESS ANY OTHER KEY"c" TO QUIT.":hKE$:KE$""360mKE$(13)180r3:15:w15,EX,EX$:EX20|EX74EX21EX$" "EX$"--IS DISK INSERTED?":3906EX$"DISK ERROR"(EX)": "EX$AEX$:fTTT(J):T0T$T$(BL$,1,24):FL(T)100T$T$""FL(T)10T$T$""T$T$((FL(T)),2)""FX$(T) (FX$(T))16T$T$(BL$,1,16(FX$(T)))T$T$""(FT$(T),3):! I1 N : TT(I)I : dI1 N1 : SI : JI1 N : FX$(TT(J))FX$(TT(S)) SJ J : SI TTT(I) : TT(I)TT(S) : TT(S)T I :