> LaBelle 1.01  By George Speller  (C) The Micro User ( B/B+/M/C/E/A/T 2 Modified by J.G.Harston < Uncompressed version F: P7 Z1(-P)<&4700 =-(&4700-(-P)):"LaBelle" d TDP n init x 7 mainmenu  M%=1 7:setup:params  M%=2 7:file  M%=3 3:edit  M%=4 7:print  M%=42 0,5):os M%=5:' *FX4  : params max%=height%/13 maxlines%=height%/15 !lf%(1)=15:lf%(2)=28:lf%(3)=32  lf%(4)=32 "9len%(1)=maxlen%:len%(2)=maxlen%:len%(3)=(maxlen%*3/5) ,len%(4)=(maxlen%*3/10) 69inset%(0)=0:inset%(2)=0:inset%(3)=(maxlen%-len%(3))/2 @!inset%(4)=(maxlen%-len%(4))/2 J flag1% totlf T flag1%= ^ h: r init |*KEY0 |!|A *KEY1 |!|B *KEY2 |!|C *KEY3 |!|D *KEY4 |!|E *KEY5 |!|F *KEY6 |!|G *KEY7 |!|L  *FX4,1 F$="No file"  abort%=  exit%=  flag1%= .tit$=129+157+131+141+"LABELLE "+156 = data$(25),type%(25),style%(25),len%(4),inset%(4),lf%(4) height%=270 maxlen%=60 & totlf%=0 0pmargin%=0 :pitch%=324 Dclear$=maxlen%," ") N params X B%=0 max% btype%(B%)=1:style%(B%)=1 ldata$(B%)=clear$ v B%  option$(8) / Set up,Filing,Edit label,Print Label,Quit  N%=15  option$(N%)  N%  23;11,0;0;0;0  :  title 12,1)tit$'12,2)tit$  : mainmenu  *FX21  title  28,0,24,39,6  N%=15 *line(N%,32,156,135) 4 N% >line%=1:select%= Hline(line%,132,157,135) R \oldline%=line% fG%= p" G%=138 line%=line%-(line%<5) z" G%=139 line%=line%+(line%>1)  M%=G%-48 $ M%<6 M%>0 line%=M%:select%=  G%=42 M%=42:select%=  G%=13 M%=line%:select%= line(oldline%,32,156,135) line(line%,132,157,135)  select%=  G%=(10)  : !line(N%,newcol%,back%,col%) K 10,N%)newcol%;back%;col%;N%;" ";option$(N%);27,N%);156;13,N%);  :  display  28,0,1,79,0 $ F$; .8 10,1)"|";10+inset%(3),1)"|";10+inset%(4),1)"|"; 8S10+len%(4)+inset%(4),1)"|";10+len%(3)+inset%(3)-1,1)"|";10+maxlen%-1,1)"|"; B L mark V28,10,24,79,2 ` j N%=0 maxlines% t& inset%(type%(N%)),N%)data$(N%); ~ N%  :  setup  title Kcvpitch%=pitch%:cvheight%=height%:cvpmargin%=pmargin%:cvmaxlen%=maxlen%  28,0,24,39,6 ) 3)"Label pitch 1/216 in.";cvpitch% * 3)"Height in 1/216 in...";cvheight% , 3)"Margin in characters..";cvpmargin% *3)"Width in characters...";cvmaxlen%    31,0)pitch%   pitch%>=0 pitch%<=648 pitch%=0:pitch%=cvpitch%  31,0);pitch%;(3); ( 2 31,1)height% < height%>=0 height%<=594 F height%=0:height%=cvheight% P 31,1);height%;(3) Z height%=0 pmargin%<100  31,2);pmargin%;(3);   31,3)maxlen%  maxlen% >=0 maxlen%<=60 ! maxlen%=0 maxlen%=cvmaxlen%  31,3);maxlen%;(3)  :  file  title *. "oad or ave? ";  X= 32  X=108 load " X=115 save , 6: @ load J 28,0,24,39,23 T ^ h"File name to load: "F$ r F$<25 | F$="" 2F=(F$): F=0 "File '"F$"' not found.":X=: ,#F,max%,pitch%,height%,pmargin%,maxlen%  N%=0 max% &#F,style%(N%),type%(N%),data$(N%)  N% #F  params  :  save  28,0,24,39,23   "File name to save: "F$  F$<25  F$="" &.F=(F$): F=0 "Can't open '"F$"'.";:X=: 0,#F,max%,pitch%,height%,pmargin%,maxlen% : N%=0 max% D&#F,style%(N%),type%(N%),data$(N%) N N% X#F b l: v edit  *FX15  A%=0:B%=0  totlf  display   cursor  A%+inset%(type%(B%)),B%);  keyin  I%=129 I%=0  :  keyin   I$=(0):I%=(I$)  I$<>""   I%>126 I%<32 ctrl: * A%>=len%(type%(B%)) 4 midstr > A%=A%+1 H R: \ ctrl f (-1)shift: p I%=139 A%=0:B%=B%+(B%>0): z0 I%=138 I%=13 A%=0:B%=B%-(B%0): $ I%=137 A%=A%-(A%0):  I%>129 select ' I%=9 A%< data$(B%)-10 A%=A%+10  :  shift  I%=136 del  I%=137 ins  I%=138 insline  I%=139 delline  :  midstr 0data$(B%)=data$(B%),A%)+I$+data$(B%),A%+2) $ data$(B%)=fixlen(data$(B%)) .& inset%(type%(B%)),B%)data$(B%); 8 B: L del V1data$(B%)=data$(B%),A%)+data$(B%),A%+2)+" " ` data$(B%)=fixlen(data$(B%)) j% inset%(type%(B%)),B%)data$(B%) t ~: ins  A%=maxlen% 1data$(B%)=data$(B%),A%)+" "+data$(B%),A%+1) data$(B%)=fixlen(data$(B%)) $inset%(type%(B%)),B%)data$(B%)  : insline  N%=max% B%+1 -1 data$(N%)=data$(N%-1) type%(N%)=type%(N%-1) style%(N%)=style%(N%-1)  N% data$(B%)=clear$ type%(B%)=1 style%(B%)=1 ( totlf 2 display < F: P delline Z N%=B% max%-1 ddata$(N%)=data$(N%+1) ntype%(N%)=type%(N%+1) xstyle%(N%)=style%(N%+1)  N% data$(max%)=clear$ totlf display  : select ( I%=130 style%(B%)<>3 type%(B%)=1  I%=131 type%(B%)=2  I%=132 type%(B%)=3  I%=133 type%(B%)=4  I%=134 style%(B%)=1  I%=135 style%(B%)=2 ( I%=140 type%(B%)<>1 style%(B%)=3  totlf  data$(B%)=fixlen(data$(B%)) " display ,"A%=0: inset%(type%(B%)),B%); 6 @: J mark T 28,0,24,2,2 ^ h N%=0 maxlines% r& 0,N%);type%(N%);" ";style%(N%); | N%  : label totlfp%=0 pcode(71,-1) B%=0 maxlines%  (-99) adjust $ abort%= B%=maxlines%+1: tDM  cancel styles: pcode(53,-1) pcode(45,"0")  pmargin%);  set styles:  style%(B%)=2 pcode(52,-1)  style%(B%)=3 pcode(45,1) % type%(B%) TzL,t^L,dnL,TtM &: 0 con superscript (type 1) :pcode(15,-2): condensed Dpcode(83,"0"): set super Npcode(51,lf%(1)): linespc Xtotlfp%=totlfp%+lf%(1) bdata$(B%) lpcode(84,-1): canc super vpcode(18,-2): canc cond tDM :  condensed (type 2) pcode(15,-2): condensed pcode(51,lf%(2)): linespc totlfp%=totlfp%+lf%(2) data$(B%) pcode(18,-2): canc cond tDM :  emphasised (type 3) pcode(69,-1): emph pcode(51,lf%(3)): linespc totlfp%=totlfp%+lf%(3) data$(B%) pcode(70,-1): canc.emph tDM *: 4 double width (type 4) >pcode(69,-1): emph Hpcode(87,1): dbl wdth Rpcode(51,lf%(4)): linespc \totlfp%=totlfp%+lf%(4) fdata$(B%) ppcode(70,-1): canc.emph zpcode(87,"0"): canc.dbl  B%  : pcode(a%,b%):b%>-2:27  a%:b%>-1:b%  : adjust *FX3,4  7  (-99) *FX21   title 4'"Abort? Y/N "q$: q$="Y" q$="y" abort%=: #'"Printer margin is ";pmargin% $ .'"New margin: "pmargin$ 8 pmargin$="" exit%= Bpmargin%=(pmargin$) L+ (pmargin%>=0 pmargin% <100) exit% V exit%= ` :title j/ 0,8)"Printing label ";P%;" of ";nlabels% t *FX3,10 ~ :  totlf   count 1 totlf%< height% maxlines%=maxlines%+1:dDN + totlf%> height% maxlines%=maxlines%-1 ) totlf%<=height% totlf%>height%-30  count  :  count  totlf%=0  N%=0 maxlines%  totlf%=totlf%+lf%(type%(N%))  N%  (: 2 print < abort%= F title P*'8)"Enter number of labels "nlabels% Znlabels%=0 d"'"Hold SPACE to adjust/abort" n2: P%=1 nlabels% x" abort%= P%=nlabels%+1:ttO  *FX3,4 / 0,8)"Printing label ";P%;" of ";nlabels%  *FX3,10  label 1pcode(74,pitch%-totlf%): turn to next label  *FX3  P%:*FX3 3: :  cursor " 23;10,3*(4-type%(B%));0;0;0;  : *FX3 3: =17 Dx@ 7::" at line "; " X=:Dx@ ,: 6ݤfixlen(line$) @ Jline$=line$+" " T line$>len%(type%(B%)) ^!line$=line$,len%(type%(B%))) h =line$ r os:*FX4 | "*"line$:line$ line$="":*FX4,1