home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol285 / onelab.prg < prev    next >
Encoding:
Text File  |  1986-12-22  |  1.9 KB  |  85 lines
  1. **    Last revision: June 18, 1986 at 21:21
  2. CLEAR
  3. SET print on
  4. * if you have to set your printer for labels
  5. * put the code in here i.e. ? chr(29) (small type on OKIDATA 92)
  6. SET PRINT OFF
  7. STOR .t. TO lineup
  8. DO WHIL LINEUP
  9.  STOR 'Y' TO command
  10.  @ 09,00
  11.  @ 10,00
  12.  @ 11,00
  13.  @ 09,10 SAY 'Please line up the top of the ribbon with the top of the label.'
  14.  @ 10,10 SAY 'The printer should be set for small type and 6 lines per inch.'
  15.  @ 11,10 SAY 'When lined up hit ENTER for a print check.'
  16.  SET CONSOLE OFF
  17.  WAIT
  18.  SET PRINT ON
  19.  SET MARGIN TO 0
  20.  ? 'THE TOP OF THE TOP LINE SHOULD '
  21.  ? 'BE AT THE VERY TOP OF THE LABEL'
  22.  ? ' '
  23.  SET PRINT OFF
  24.  SET CONSOLE ON
  25.  @ 09,00
  26.  @ 10,00
  27.  @ 11,00
  28.  @ 10,10 SAY 'Are you lined up to print (Y/N) '
  29.  @ 10,44 GET command picture '!'
  30.  READ
  31.  CLEA GETS
  32.  IF command = 'Y'
  33.   SET PRINT ON
  34.   ? ' '
  35.   ? ' '
  36.   SET PRINT OFF
  37.   STOR .f. TO lineup
  38.  ENDI command = y
  39. ENDD while lineup
  40. CLEAR
  41. DO WHIL .NOT. EOF()
  42.  SET PRINT ON
  43.  STOR 0 TO count
  44.  IF send = 'Y'
  45.  ? TRIM(mr)+' ' + TRIM(fname) +' ' + lastname
  46.     IF SUBSTR(title,1,6) <> '      '      
  47.     ? title
  48.     ELSE
  49.     stor count+1 TO count
  50.     ENDIF
  51.     IF SUBSTR(company1,1,6) <> '      '      
  52.     ? company1
  53.     ELSE
  54.     STOR count+1 TO count
  55.     ENDIF
  56.     IF SUBSTR(company2,1,6) <> '      '      
  57.     ?  company2
  58.     ELSE
  59.     STOR count+1 TO count
  60.     ENDIF
  61.     ?  TRIM(caddress) + "  " + suite
  62.     ?  TRIM(ccity) +'    ' + cst + '  ' +czip
  63.     DO while count > 0
  64.     ? '  '
  65.     STOR count -1 TO count
  66.     ENDDO
  67.   ELSE
  68.    ? ' '
  69.  ? TRIM(mr)+' ' + TRIM(fname) +' ' + lastname
  70.   ? TRIM(address)+ '    ' + apt
  71.   ? TRIM(city) + '   ' + st + '  ' + zip
  72.   ? ' '
  73.   ? '  '
  74.   ? '  '
  75.  ENDI
  76.  SKIP
  77. ENDD while not eof
  78. EJEC
  79. SET PRINT OFF
  80. RETURN   
  81.  
  82. 
  83.  
  84.  
  85.