** Last revision: June 18, 1986 at 21:21 CLEAR SET print on * if you have to set your printer for labels * put the code in here i.e. ? chr(29) (small type on OKIDATA 92) SET PRINT OFF STOR .t. TO lineup DO WHIL LINEUP STOR 'Y' TO command @ 09,00 @ 10,00 @ 11,00 @ 09,10 SAY 'Please line up the top of the ribbon with the top of the label.' @ 10,10 SAY 'The printer should be set for small type and 6 lines per inch.' @ 11,10 SAY 'When lined up hit ENTER for a print check.' SET CONSOLE OFF WAIT SET PRINT ON SET MARGIN TO 0 ? 'THE TOP OF THE TOP LINE SHOULD ' ? 'BE AT THE VERY TOP OF THE LABEL' ? ' ' SET PRINT OFF SET CONSOLE ON @ 09,00 @ 10,00 @ 11,00 @ 10,10 SAY 'Are you lined up to print (Y/N) ' @ 10,44 GET command picture '!' READ CLEA GETS IF command = 'Y' SET PRINT ON ? ' ' ? ' ' SET PRINT OFF STOR .f. TO lineup ENDI command = y ENDD while lineup CLEAR DO WHIL .NOT. EOF() SET PRINT ON STOR 0 TO count IF send = 'Y' ? TRIM(mr)+' ' + TRIM(fname) +' ' + lastname IF SUBSTR(title,1,6) <> ' ' ? title ELSE stor count+1 TO count ENDIF IF SUBSTR(company1,1,6) <> ' ' ? company1 ELSE STOR count+1 TO count ENDIF IF SUBSTR(company2,1,6) <> ' ' ? company2 ELSE STOR count+1 TO count ENDIF ? TRIM(caddress) + " " + suite ? TRIM(ccity) +' ' + cst + ' ' +czip DO while count > 0 ? ' ' STOR count -1 TO count ENDDO ELSE ? ' ' ? TRIM(mr)+' ' + TRIM(fname) +' ' + lastname ? TRIM(address)+ ' ' + apt ? TRIM(city) + ' ' + st + ' ' + zip ? ' ' ? ' ' ? ' ' ENDI SKIP ENDD while not eof EJEC SET PRINT OFF RETURN