10 REM PSLABELS MODIFICATION›20 REM BY JIM PIERSON-PERRY›30 REM (c)1987, ANTIC PUBLISHING›40 REM (PSLABELS WAS ORIG. PUBLISHED IN THE APRIL, 1987 ANTIC)›1007 REM THANKS TO WALT MCCREA FOR IDEA AND INITIAL PROGRAMMING›1010 REM VER 3.0 AUGUST, 1987›1240 A$="ENTER TEXT":POSITION C8,5:GOSUB 1300:RETURN ›1250 A$="NEW FONT":POSITION 22,5:GOSUB 1300:RETURN ›1260 A$="PRINT LABELS":POSITION 7,7:GOSUB 1300:RETURN ›1270 A$="NEW GRAPHIC":POSITION 21,7:GOSUB 1300:RETURN ›1280 A$="PRINT FILE":POSITION 7,9:GOSUB 1300:RETURN ›1290 A$="EXIT PROGRAM":POSITION 21,9:GOSUB 1300:RETURN ›1300 FOR I=C1 TO LEN(A$):? CHR$(ASC(A$(I,I))+128*INV);:NEXT I:INV=C0:RETURN ›1305 GOSUB 1230›1400 GOSUB 1220:GOTO 1305›2250 POSITION C3,12+3*PRIL:? "Press  ÏÐÔÉÏΠ To Stop Printing"›2255 IF PRIL THEN RETURN ›2475 DIM FILE$(12),FILENAME$(14),LINE$(1)›2860 INV=C0:FOR MOPT=C1 TO C6:GOSUB 1230+10*MOPT:NEXT MOPT›2920 INV=C0:GOSUB 1230+10*MOPT:MOPT=MOPT+C1:IF MOPT>C6 THEN MOPT=C1›2930 INV=C1:GOSUB 1230+10*MOPT:GOTO 2900›2940 IF MOPT=C6 THEN 2970›2950 ON MOPT GOSUB 1660,1490,2120,1305,3310:GOSUB 1230:GOSUB 2850›3310 GOSUB 1230›3320 POSITION 13,C3:? "ÐÒÉÎÔ ÆÉÌÅ"›3330 POSITION C3,C5:? "PRINT FROM WHAT FILE";:INPUT FILE$›3340 FILENAME$(C1,C2)="D:":FILENAME$(C3,LEN(FILE$)+2)=FILE$›3350 POSITION C3,C7:? "HOW MANY LINES";:INPUT NLINE:POSITION C3,C9:? "HOW MANY RECORDS";:INPUT NLABELS›3352 POSITION 11,11:? "Set-up The Printer":POSITION C9,12:? "Press ÓÔÁÒÔ To Begin"›3354 FOR X=C1 TO 30:NEXT X:IF PEEK(53279)<>C6 THEN 3354›3360 GOSUB 1230›3370 POSITION C5,C3:? "ÉÎÓÅÒÔ ÆÉÌÅ ÄÉÓË"›3380 POSITION C5,C5:? "PRESS ÒÅÔÕÒÎ WHEN READY";:INPUT LINE$›3390 GOSUB 1230:PRIL=1›3400 CLOSE #C1:OPEN #C1,4,0,FILENAME$›3410 FOR PREC=C1 TO NLABELS›3420 POSITION C0,C5:? "----------------------------"›3430 FOR I=C6 TO 12:POSITION C0,I:? "­":POSITION 27,I:? "­":NEXT I›3440 POSITION C0,13:? "----------------------------"›3450 J=C1:Y=C6:I=C1:T$(C1)=" ":T$(182)=" ":T$(C2)=T$›3460 POSITION J,Y›3470 FOR PLIN=C1 TO NLINE›3480 GET #C1,X:IF X=155 THEN 3600›3490 T$(I,I)=CHR$(X):? CHR$(X);:J=J+C1:I=I+C1:GOTO 3480›3600 ? CHR$(X);:I=26*PLIN+1:J=C1:Y=Y+C1:POSITION J,Y:NEXT PLIN›3610 GOSUB 1160›3700 GOSUB 2160›3710 ? #C2:IF PEEK(53279)=C3 THEN POP :CLOSE #C2:GOSUB 1220:PRIL=0:RETURN ›3720 FOR J=C0 TO C6:K=88*J+C1:L=208*J+C1›3730 IF P=C1 THEN ? #C2;CHR$(27);"S0296";PG$(K,K+87);PT$(L,L+207):NEXT J:GOTO 3760›3740 ? #C2;CHR$(27);"L";CHR$(88);CHR$(C0);PG$(K,K+87);" ";CHR$(27);"L";CHR$(208);CHR$(C0);PT$(L,L+207):NEXT J›3760 CLOSE #C2:GOSUB 1220:GOSUB 1230›3800 NEXT PREC›3810 OPEN #C2,C8,C0,"P:":PRIL=C0:GOSUB 2310:RETURN ›