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 צקIJפק 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 ¢
