home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol026 / xlabels.bas < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  951 b   |  59 lines
  1.     REM    LABELS
  2.     DIM    LAST$(6), FIRST$(6)
  3.     DIM    ADDRESS$(6), CITY$(6),ZIP$(6),AREA$(6),TEL$(6)
  4.     INPUT "MESSAGE: ";MESSAGE$
  5.     INPUT "FILENAME: ";FILENAME$
  6.     INPUT "HOW MANY LABELS UP: ";W
  7.     COUNTER=0
  8.     FILE    FILENAME$
  9.  
  10. 10    FOR J=1 TO W
  11.     LAST$(J)=" "
  12.     FIRST$(J)=" "
  13.     ADDRESS$(J)=" "
  14.     CITY$(J)=" "
  15.     ZIP$(J)=" "
  16.     AREA$(J)=" "
  17.     TEL$(J)=" "
  18.     NEXT J
  19.  
  20.     FOR J=1 TO W
  21.     READ #1; LAST$(J), FIRST$(J), ADDRESS$(J), CITY$(J),\
  22.         ZIP$(J),AREA$(J),TEL$(J)
  23.     IF LAST$(J)="END" THEN 20
  24.     COUNTER=COUNTER+1
  25.     NEXT J
  26.     J=3
  27.  
  28. 20    REM
  29.     FOR K=1 TO W
  30.     PRINT TAB(28*K-25); MESSAGE$;
  31.     NEXT K
  32.     PRINT
  33.  
  34.     FOR K=1 TO W
  35.     PRINT TAB(28*K-27); FIRST$(K);LAST$(K);
  36.     NEXT K
  37.     PRINT
  38.  
  39.     FOR K=1 TO W
  40.     PRINT TAB(28*K-27); ADDRESS$(K);
  41.     NEXT K
  42.     PRINT
  43.  
  44.     FOR K=1 TO W
  45.     PRINT TAB(28*K-27); CITY$(K);". "; ZIP$(K);
  46.     NEXT K
  47.     PRINT
  48.     PRINT
  49.     PRINT
  50.     IF LAST$(J)="END" THEN 30
  51.     GOTO 10
  52.  
  53. 30    PRINT
  54.     PRINT "END OF LIST"
  55.     PRINT COUNTER, "NAMES"
  56.     GOTO 99
  57.  
  58. 99    END
  59.