home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug041.ark / LABELS.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  2KB  |  54 lines
  1. REM    PRINT LABELS PROGRAM
  2. REM
  3. REM    FILENAME: LABELS.BAS
  4. VERSION$ =     "1.01"
  5. DATE$ =        "12/05/79"
  6. BY$ =        "BY JAMES K. MILLS"
  7. REM
  8. REM    PRINTS MAILING LABELS OR RETURN ADDRESS
  9. REM    LABELS OF A SPECIFIED QUANTITY OF A SINGLE
  10. REM    NAME/ADDRESS.
  11. REM
  12.     SPACES$ = "                              "
  13.     KBD = 5 : LF = 10
  14. 10    PRINT    CHR$(26);CHR$(0);    :REM CLEAR ADM-3A SCREEN
  15.     PRINT    "LABELS VERSION ";VERSION$;" ";DATE$;" ";BY$
  16.     PRINT
  17.     INPUT    "HOW MANY LABELS";NUMBER
  18.     NUMBER = INT (NUMBER)
  19.     IF NUMBER < 2 OR NUMBER > 200 THEN 10
  20.     IF NUMBER/2 <> INT (NUMBER/2) THEN NUMBER = NUMBER + 1
  21.     PRINT
  22.     INPUT    "NAME";NAME$
  23.     INPUT    "ORGANIZATION";ORG$
  24.     INPUT    "STREET";STREET$
  25.     INPUT    "CITY & STATE (NO COMMA)";CITY$
  26.     INPUT    "ZIPCODE";ZIP$
  27.     PRINT
  28.     PRINT    "******************************"; "     "; \
  29.         "******************************"
  30.     PRINT    NAME$;TAB(36);NAME$
  31.     PRINT     ORG$;TAB(36); ORG$
  32.     PRINT     STREET$;TAB(36); STREET$
  33.     PRINT    LEFT$ (CITY$+SPACES$,25) + ZIP$; TAB(36); \
  34.         LEFT$ (CITY$+SPACES$,25) + ZIP$
  35.     PRINT    "******************************"; "     "; \
  36.         "******************************"
  37.     INPUT    "IF OKAY, TYPE 'Y' AND ^P";OKAY$
  38.     IF    OKAY$ <> "Y" AND OKAY$ <> "y" THEN 10
  39.     PRINT    "PRESS LINEFEED"
  40. 100    IF INP(KBD) <> LF THEN 100
  41.     FOR I = 1 TO NUMBER/2
  42.     PRINT
  43.     PRINT    NAME$;TAB(36);NAME$
  44.     PRINT     ORG$;TAB(36); ORG$
  45.     PRINT     STREET$;TAB(36); STREET$
  46.     PRINT    LEFT$ (CITY$+SPACES$,25) + ZIP$; \
  47.               TAB(36); \
  48.         LEFT$ (CITY$+SPACES$,25) + ZIP$
  49.     PRINT
  50.     NEXT I
  51. 200    IF    INP(KBD) = LF THEN 200
  52.     GOTO 10
  53.     END
  54.