10 ' CASLAB.100 - CASSETTE LABEL MAKER 20 ' Bob McAteer CIS 71436,703 30 ' St. Albans, WV 05/03/86 40 ' ---------------------------------- 50 'THIS PROGRAM IS TOBE USED WITH CASSETTE LABELS ON A TRACTOR FEED FORM 60 ' ---------------------------------- 70 'Margin may be adjusted to fit your form in lines 630-700 by changing the value of n in LPRINT TAB(X+n)A$(1) 80 'The exception is cassette number which is moved by adding blank spaces to " ";A$(4) 90 'Each line will be centered on the label and multiple copies can be made. The top line is set for 28 characters the other lines are set for 30 characters. 100 'Included is the use of MAXLEN.LDR By Paul J. Lancaster CIS 72226,2233 110 READP:CLEAR256,P:READP,Q,R,A$:C=P+Q+R 120 CLS:PRINT:PRINT" Working..."; 130 FORJ=PTOQ:READX:C=C+X:POKEJ,X:NEXT:READZ 140 IFC<>ZTHENSOUND9394,9:PRINT"Checksum is wrong":END 150 BEEP:PRINT:PRINT 160 CLS:CLEAR500:DIMA$(6) 170 CALL 57857 'Enable RST7 interrupt 180 PRINT" CASSETTE LABEL MAKER" 190 PRINT"Line ==================================" 200 POKE 57856,28'Set Max line 210 LINEINPUT"No 1 ";A$(1) 220 POKE 57856,30'Set Max line 230 LINEINPUT"No 2 ";A$(2) 240 LINEINPUT"No 3 ";A$(3) 250 POKE 57856,4'Set Max line 260 LINEINPUT"No 4 Cassette # ";A$(4) 270 POKE 57856,30'Set Max line 280 LINEINPUT"No 5 ";A$(5) 290 LINEINPUT"No 6 ";A$(6) 300 LET LA=LEN(A$(1)) 310 LET LB=LEN(A$(2)) 320 LET LC=LEN(A$(3)) 330 LET LE=LEN(A$(5)) 340 LET LF=LEN(A$(6)) 350 LET X=18-(LA/2) 360 LET Y=18-(LB/2) 370 LET Z=18-(LC/2) 380 LET V=18-(LE/2) 390 LET W=18-(LF/2) 400 CALL 57864 'Disable for INPUT$ statement 410 CLS: 420 PRINT"(1) ";TAB(X)A$(1) 430 PRINT"(2) ";TAB(Y)A$(2) 440 PRINT"(3) ";TAB(Z)A$(3) 450 PRINT"(4) ";A$(4) 460 PRINT"(5) ";TAB(V)A$(5) 470 PRINT"(6) ";TAB(W)A$(6) 480 CALL 17001:PRINT"
rint -