start tok64 d64-m1m9aR 2 DIMch$(16):DIMmd(16):DIMco(16):DIMsb(16):DIMtx$(16):DIMdw(16) 4 POKE53280,6:POKE53281,3:POKE646,6 6 GOSUB156 8 PRINTSPC(12)"{down}what size label?" 10 PRINTSPC(11)"{down*2}U{C*15}I" 12 PRINTSPC(11)"B{space*2}{reverse on} 1 {reverse off}=1 x 3.5{space*2}B" 14 PRINTSPC(11)"B{space*15}B" 16 PRINTSPC(11)"J{C*15}K" 18 PRINTSPC(10)"{down}U{C*17}I" 20 PRINTSPC(10)"B{space*17}B" 22 PRINTSPC(10)"B{space*3}{reverse on} 2 {reverse off}=1.5 x 4{space*3}B" 24 PRINTSPC(10)"B{space*17}B" 26 PRINTSPC(10)"B{space*17}B" 28 PRINTSPC(10)"J{C*17}K" 30 INPUT"{down*2}{space*10}choose. - 1 or 2";sl 32 IFsl=1THENls$="1 x 3.5":ln=5:ls=10:cn=33:cd=17:cc=56:cm=28:lf=216 34 IFsl=2THENls$="1.5 x 4":ln=8:ls=16:cn=36:cd=19:cc=64:cm=32:lf=324 36 GOSUB156 38 PRINTSPC(10)"{down*2}label size = "ls$ 40 PRINT"{down*2} maximum lines per label:" 42 PRINT"{space*3}w/normal print ="ln 44 PRINT"{space*3}w/subscript{space*2}="ls" 46 PRINT"{down} maximum characters per line:" 48 PRINT"{space*3}w/double width ="cd 50 PRINT"{space*3}w/normal print ="cn 52 PRINT"{space*3}w/condensed{space*4}="cc 54 GOSUB160:GOSUB162 56 tn=1 58 GOSUB166:INPUT"{down}enter print code";pc$:mc=cn:sb(tn)=2 60 p=LEN(pc$):FORi=1TOp:pt$=MID$(pc$,i,1) 62 IFpt$="g"THENmd(tn)=1:GOTO78 64 IFpt$="a"THENpt$=CHR$(27)+"p" 66 IFpt$="b"THENpt$=CHR$(27)+"4" 68 IFpt$="c"THENpt$=CHR$(27)+"-1" 70 IFpt$="d"THENpt$=CHR$(14):dw(tn)=1:mc=cd 72 IFpt$="e"THENco(tn)=1:mc=cc:GOTO78 74 IFpt$="f"THENpt$=CHR$(27)+"s1":sb(tn)=1 76 ch$(tn)=ch$(tn)+pt$ 78 NEXT 80 IF(co(tn)=1)AND(dw(tn)=1)THENmc=cm 82 PRINT"{down}enter line"tn" max characters ="mc 84 PRINT"enter ^ if done" 86 INPUT"{down}";tx$(tn) 88 IFtx$(tn)="^"THENtn=tn-1:GOTO118 90 ll=LEN(tx$(tn)) 92 IFll>mcTHENGOSUB156:PRINT"{down*2}{space*9}>> line too long <<{down*2}":GOTO82 94 IFmd(tn)=1THENGOSUB186 96 GOSUB156:GOSUB172:PRINT"{down} line"tn"print code = "pc$:PRINT 98 IFmc>40THENPRINT"-"tx$(tn)"-":GOTO102 100 PRINT" ";:FORi=1TOmc:PRINT"{cm r}";:NEXT:PRINT:PRINT" "tx$(tn) 102 PRINT"{down} is this correct? y/n":GOSUB162 104 IFa$="n"THEN58 106 ls=ls-sb(tn):PRINT"{down} lines remaining:" 108 PRINT"{space*3}"ls" using subscript" 110 PRINT"{space*3}"ls/2" using normal print" 112 GOSUB160:GOSUB162 114 IFls<1THENGOTO118 116 tn=tn+1:GOTO58 118 GOSUB156:PRINT"{down*2}{space*12}>> label done <<" 120 PRINTSPC(11)"{down*4}prepare seikosha &" 122 PRINTSPC(10)"line up top of label" 124 PRINTSPC(12)"with print head":GOSUB160:GOSUB162 126 sp$=CHR$(27)+"3"+CHR$(18):sp=0 128 FORi=1TOtn 130 IFco(i)=1THENOPEN13,4,13:PRINT#13,"";:OPEN4,4:PRINT#4,CHR$(27);"g";:CLOSE4 131 IFdw(i)=1THENOPEN4,4:PRINT#4,CHR$(27);"g";:CLOSE4 132 OPEN4,4:PRINT#4,sp$;ch$(i);tx$(i):sp=sp+18 134 IFsb(i+1)<>1THENPRINT#4,"":sp=sp+18 136 OPEN10,4,10:PRINT#10,""; 138 CLOSE13:CLOSE4:CLOSE10 140 NEXT 142 xx=lf-sp 144 OPEN4,4:PRINT#4,CHR$(27);"3";CHR$(xx):CLOSE4 146 GOSUB156:PRINT"{down*6}{space*6}>> same label again? y/n <<":GOSUB162 148 IFa$="y"THENGOTO126 150 GOSUB156:PRINT"{down*6}{space*8}>> another label? y/n <<":GOSUB162 152 IFa$="y"THENCLR:GOTO2 154 PRINT"{clear}":LIST200-:END 156 PRINT"{clear}{reverse on}{blue}{space*2}label maker for the seikosha-1{0*3}vc{space*3}"; 158 PRINT"{space*7}programmed by d.a.cardosi{space*8}{reverse off}{down}";:RETURN 160 POKE214,23:PRINT:PRINT"{reverse on}{space*7}press any key to continue{space*7}{left}{148} ";:RETURN 162 GETa$:IFa$=""THEN162 164 RETURN 166 GOSUB156:PRINT"{down}enter type of print desired for line"tn 168 PRINT"note: print types may be combined by" 170 PRINT"{space*6}entering more than one letter." 172 PRINT"{down}{space*3}{reverse on} a {reverse off} normal pica" 174 PRINT"{space*3}{reverse on} b {reverse off} italics" 176 PRINT"{space*3}{reverse on} c {reverse off} underlined" 178 PRINT"{space*3}{reverse on} d {reverse off} double width" 180 PRINT"{space*3}{reverse on} e {reverse off} condensed" 182 PRINT"{space*3}{reverse on} f {reverse off} subscript" 184 PRINT"{space*3}{reverse on} g {reverse off} centered":RETURN 186 IFll