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
Back to previous page