home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Nibble Magazine
/
nib19a.dsk
/
APRIL.1984
/
LABEL.PRINTER.bas
< prev
next >
Wrap
BASIC Source File
|
2023-02-26
|
2KB
|
33 lines
10 REM **********************
20 REM * LABEL.PRINTER *
30 REM * BY ROBERT C. BROCK *
40 REM * COPYRIGHT (C) 1984 *
50 REM * BY MICROSPARC, INC *
60 REM * LINCOLN, MA. 01773 *
70 REM **********************
80 TEXT : HOME : CLEAR : POKE 34,10: DIM L$(5)
90 INVERSE : PRINT "*** L A B E L P R I N T E R ***": PRINT "*** BY ROBERT C. BROCK ***": PRINT "* COPYRIGHT 1984 BY MICROSPARC, INC *": NORMAL
100 VTAB 5: INPUT "HOW MANY LABELS TO PRINT? ";NN
110 VTAB 6: INPUT "HOW MANY LINES PER LABEL? ";N
120 IF N < = 0 OR N >5 THEN GOTO 110
130 VTAB 8: PRINT "TYPE STYLE: 1) STANDARD": PRINT TAB( 14)"2) CONDENSED": PRINT TAB( 14)"3) DOUBLE WIDTH ";: INPUT "";TY$
140 IF TY$ = "1" OR TY$ = "2" OR TY$ = "3" GOTO 160
150 GOTO 130
160 IF TY$ = "1" THEN LT = 18:SP = 25:DW = 18
170 IF TY$ = "2" THEN LT = 15:SP = 45:DW = 18
180 IF TY$ = "3" THEN LT = 14:SP = 21:DW = 15
190 FOR NL = 1 TO N
200 VTAB 12: PRINT : PRINT "LINE #";NL;":": PRINT : PRINT CHR$(91);: FOR L = 1 TO SP: PRINT ".";: NEXT L: PRINT CHR$(93)
210 VTAB 15: HTAB 2: INPUT "";L$(NL)
220 IF LEN(L$(NL)) >SP THEN HOME : GOTO 200
230 NEXT NL
240 HOME : VTAB 14: PRINT "THIS IS THE WAY THE LABEL WILL LOOK:": PRINT
250 INVERSE : FOR C = 1 TO 5: PRINT L$(C): NEXT C: NORMAL
260 VTAB 22: PRINT "IS THIS CORRECT? (Y/N) ";: GET AN$
270 IF AN$ = "Y" THEN POKE 34,3: GOTO 290
280 IF AN$ = "N" THEN HOME : GOTO 190
290 HOME : PRINT : PRINT CHR$(4)"PR#1"
300 FOR C = 1 TO NN: FOR I = 1 TO 5: PRINT CHR$(DW); CHR$(LT);L$(I): NEXT I: PRINT : NEXT C
310 PRINT CHR$(4)"PR#0": POKE 34,3: HOME : VTAB 5: PRINT "RUN MORE LABELS? (Y/N) ";: GET AN$: PRINT AN$
320 IF AN$ = "Y" THEN GOTO 80
330 POKE 34,0: HOME : END