8 CLEAR16000
14 DIMI%,J%,B$,A$,MU%,M%,F$,JJ%,KK%,SL%,C%,K%,PA%,NM%,N%,W%,P%,M3%,CH%,NP%,LL%,FF%,ZC%,M2%,F%,DS%,ZR%,ZF%,NN%,MM%,Z%,KJ%,NP$,M1%,N$,M$,PP%,T$,DM%,D$,SM!,T1%,BB%,NL%,TT%,JK%,PG%,NB%,NM$,Z$
24 DIMA$(NN,MM),FL(MM),NM$(NM),T$(MM),SM!(MM),T2$(MM),T1$(MM),D(NN),Q(PP),LF(MM),OT(MM),Z(5)
949 DATAPRINT LABELS
950 CLS:PRINT@256,"ALIGN LABELS <Y/N> ....... PRESS SOMETHING! ";:GOSUB2000:IFA$="Y"THEN952ELSEIFA$="N"THEN954ELSE950
952 PRINT:PRINT"PRINTER READY .. <ENTER> ";:GOSUB2000:PRINT:FORK=1TO5:LPRINTSTRING$(27,"*"):NEXT:LPRINT" ":GOTO950
954 PL=64:CLS:PRINT@0,"YOUR FIELDS ARE:":FORK=1TOM:PRINT@PL,K;". ";A$(0,K);:PL=PL+16:NEXT
956 PRINT@448,"MORE THAN ONE FIELD PER LINE <Y/N> ";:GOSUB2000:IFA$="Y"THEN972ELSEIFA$="N"THEN958ELSE956
958 PRINT@448,CHR$(30);:PRINT@714,"ENTER # FOR EACH LINE: <ENTER> FOR BLANK";
960 KL=448:FORK=1TO5:PRINT@KL,CHR$(30);"LINE";K;"  FIELD # ";:GOSUB1500:LB(K)=VAL(F$):TB(K+1)=NL(LB(K))+TB(K):KL=KL+64:NEXT
962 GOSUB134
964 PRINT"PRINTER READY ....<ENTER> TO PRINT";:GOSUB2000:PRINT:IFF=1THENFF=1:LL=N
966 FORI=FFTOLL
968 FORK=1TO5:LPRINTA$(I,LB(K)):NEXT
970 LPRINT" ":NEXT:FORK=1TO5:LB(K)=0:NEXT:GOTO120
972 PRINT@448,CHR$(30);:PRINT@714,"ENTER # OF FIELDS FOR EACH LINE ... THEN";:PRINT@778,"ENTER THE FLD #'S FOR EACH LINE ... IF";:PRINT@842,"LINE IS TO BE BLANK, PRESS <ENTER>";
974 PRINT@320,"LINE  :  # FLDS  :  FLD #  :  FLD #  :  FLD #";
976 PRINT@384,"----     ------     -----     -----     -----";
978 KL=448:FORK=1TO5:PRINT@KL,K;:PRINT@KL+10,"";:GOSUB1500:IFF$=""THENKN=0:NEXT:GOTO988ELSEKN=VAL(F$)
980 ONKNGOTO982,984,986:NEXT:GOTO988
982 PRINT@KL+21,"";:GOSUB1500:K1(K)=VAL(F$):KL=KL+64:NEXT:GOTO988
984 PRINT@KL+21,"";:GOSUB1500:K1(K)=VAL(F$):PRINT@KL+31,"";:GOSUB1500:K2(K)=VAL(F$):KL=KL+64:NEXT:GOTO988
986 PRINT@KL+21,"";:GOSUB1500:K1(K)=VAL(F$):PRINT@KL+31,"";:GOSUB1500:K2(K)=VAL(F$):PRINT@KL+41,"";:GOSUB1500:K3(K)=VAL(F$):KL=KL+64:NEXT
988 CLS:GOSUB134:PRINT:PRINT"PRINTER READY ....<ENTER> ";:GOSUB2000:PRINT
990 FORI=FFTOLL
992 FORK=1TO5
994 LPRINTA$(I,K1(K));" ";A$(I,K2(K));" ";A$(I,K3(K)):NEXT
996 LPRINT" ":NEXT:FORK=1TO5:K1(K)=0:K2(K)=0:K3(K)=0:NEXT:GOTO120
