home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / MINI-MAILER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.3 KB  |  44 lines

  1. 100 REM ********************
  2. 110 REM *  ADDRESS LABELS  *
  3. 120 REM *    FROM NWUG     *
  4. 130 REM *    APRIL '84     *
  5. 140 REM ********************
  6. 150 PRINT:PRINT:PRINT"[147]"SPC(9)"RETURN ADDRESS LABELS[146]"
  7. 151 PRINT:PRINT
  8. 160 PRINT"AT FOUR PER LABEL":PRINT:PRINT
  9. 170 PRINT"HOW MANY LABELS":PRINT"DO YOU WANT TO PRINT"::INPUT X
  10. 180 EM$=CHR$(27)+CHR$(69):REM EMPHASISEDPRINT*****
  11. 190 SP$=CHR$(27)+CHR$(83)+CHR$(0):REM SUPERSCRIPT*****
  12. 200 CD$=CHR$(27)+CHR$(66)+CHR$(3):REM CONDENSED PRINT*****
  13. 210 LF$=CHR$(27)+CHR$(49):REM LINE FEED 7/72 INCH*****
  14. 220 PRINT"I[146]TALIC ORS[146]TANDARD";:INPUTJ$
  15. 230 IF J$="S" THEN N=53
  16. 240 IF J$="I" THEN N=52
  17. 250 IF J$<>"I" AND J$<>"S" THEN 220
  18. 260 PRINT:PRINT"PLEASE TYPE IN NAME"
  19. 270 INPUT AN$:IF LEN(AN$)>25 THEN PRINT"TOO LONG":AN$="":GOTO 260
  20. 280 GOSUB490:NA$=AN$:PRINT
  21. 290 PRINT:PRINT"TYPE NUMBER AND STREET"
  22. 300 INPUT AN$:IF LEN(AN$)>25 THEN PRINT"TOO LONG":AN$="":GOTO 290
  23. 310 GOSUB490:AD$=AN$:AN$="":PRINT
  24. 320 PRINT:PRINT "TYPE CITY STATE ZIP CODE"
  25. 321 PRINT"DO NOT USE COMMAS[146]":INPUT AN$
  26. 330 IF LEN(AN$)>25 THEN PRINT"TOO LONG":AN$="":GOTO 320
  27. 340 GOSUB 490:CS$=AN$:AN$="":PRINT
  28. 350 OPEN4,4,4:CMD4:REM INTERFACE TRANSPARENT*****
  29. 360 PRINT SP$;CHR$(27)CHR$(N);LF$;CD$;:REM PRINTER SETUP*****
  30. 370 FOR I=1 TO 2*X
  31. 380 PRINT SPC(3)NA$;SPC(4)NA$
  32. 390 PRINT SPC(3)AD$;SPC(4)AD$
  33. 400 PRINT SPC(3)CS$;SPC(4)CS$
  34. 410 PRINT" ":PRINT" "
  35. 420 NEXT
  36. 430 PRINT" "
  37. 440 PRINT#4:CLOSE4
  38. 450 PRINT"MORE LABELS-Y/N?";:INPUTJ$
  39. 460 IF J$<>"Y" AND J$    
  40. 8226 THEN 450
  41. 470 IF J$="Y" THEN RUN
  42. 480 END
  43. 490 FOR I=LEN(AN$) TO 25:AN$=AN$+" ":NEXT:RETURN
  44.