home *** CD-ROM | disk | FTP | other *** search
- 100 REM ********************
- 110 REM * ADDRESS LABELS *
- 120 REM * FROM NWUG *
- 130 REM * APRIL '84 *
- 140 REM ********************
- 150 PRINT:PRINT:PRINT"[147]"SPC(9)"RETURN ADDRESS LABELS[146]"
- 151 PRINT:PRINT
- 160 PRINT"AT FOUR PER LABEL":PRINT:PRINT
- 170 PRINT"HOW MANY LABELS":PRINT"DO YOU WANT TO PRINT"::INPUT X
- 180 EM$=CHR$(27)+CHR$(69):REM EMPHASISEDPRINT*****
- 190 SP$=CHR$(27)+CHR$(83)+CHR$(0):REM SUPERSCRIPT*****
- 200 CD$=CHR$(27)+CHR$(66)+CHR$(3):REM CONDENSED PRINT*****
- 210 LF$=CHR$(27)+CHR$(49):REM LINE FEED 7/72 INCH*****
- 220 PRINT"I[146]TALIC ORS[146]TANDARD";:INPUTJ$
- 230 IF J$="S" THEN N=53
- 240 IF J$="I" THEN N=52
- 250 IF J$<>"I" AND J$<>"S" THEN 220
- 260 PRINT:PRINT"PLEASE TYPE IN NAME"
- 270 INPUT AN$:IF LEN(AN$)>25 THEN PRINT"TOO LONG":AN$="":GOTO 260
- 280 GOSUB490:NA$=AN$:PRINT
- 290 PRINT:PRINT"TYPE NUMBER AND STREET"
- 300 INPUT AN$:IF LEN(AN$)>25 THEN PRINT"TOO LONG":AN$="":GOTO 290
- 310 GOSUB490:AD$=AN$:AN$="":PRINT
- 320 PRINT:PRINT "TYPE CITY STATE ZIP CODE"
- 321 PRINT"DO NOT USE COMMAS[146]":INPUT AN$
- 330 IF LEN(AN$)>25 THEN PRINT"TOO LONG":AN$="":GOTO 320
- 340 GOSUB 490:CS$=AN$:AN$="":PRINT
- 350 OPEN4,4,4:CMD4:REM INTERFACE TRANSPARENT*****
- 360 PRINT SP$;CHR$(27)CHR$(N);LF$;CD$;:REM PRINTER SETUP*****
- 370 FOR I=1 TO 2*X
- 380 PRINT SPC(3)NA$;SPC(4)NA$
- 390 PRINT SPC(3)AD$;SPC(4)AD$
- 400 PRINT SPC(3)CS$;SPC(4)CS$
- 410 PRINT" ":PRINT" "
- 420 NEXT
- 430 PRINT" "
- 440 PRINT#4:CLOSE4
- 450 PRINT"MORE LABELS-Y/N?";:INPUTJ$
- 460 IF J$<>"Y" AND J$
- 8226 THEN 450
- 470 IF J$="Y" THEN RUN
- 480 END
- 490 FOR I=LEN(AN$) TO 25:AN$=AN$+" ":NEXT:RETURN
-