home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / prt / ttxpre.ba < prev    next >
Text File  |  2006-10-19  |  959b  |  18 lines
  1. 1 'CLUB 100 LIBRARY - 415/939-1246 BBS     937-5039 NEWSLETTER, 932-8856 VOICE
  2. 10 CLS::PRINT"Put printer on line":LPRINT:CLS:PRINT"TTxPress 8/23/87 L. SELF 74076,1273    SELECT:
  3. 20 PRINT"    1 LPI/72            2 Emphas    3 NoEmphas        4 Condns    5 NoCondns
  4. 25 PRINT"6 Enlarg    7 NoEnlarg        8 Form        9 Perf            COL        QUIT"
  5. 30 LPRINTS$" "A$" selected for TTxPress printer!"
  6. 40 S$="":A$=INPUT$(1):A=VAL(A$):IFA=4ORA=5THENGOTO60 ELSELPRINT CHR$(27);
  7. 50 IFINSTR("Cc",A$)THENINPUT"Chr wide 1-160";S$:LPRINT"Q"CHR$(VAL(S$)):GOTO30 ELSEIFINSTR("Qq",A$)THENLPRINT" ":MENU
  8. 60 ONAGOTO 100,200,300,400,500,600,700,800,900:PRINT"INVALID":GOTO40
  9. 100 INPUT"1-127";S$:LPRINT"A"CHR$(VAL(S$));:GOTO30
  10. 200 LPRINT"E";:GOTO30
  11. 300 LPRINT"F";:GOTO30
  12. 400 LPRINTCHR$(15);:GOTO30
  13. 500 LPRINTCHR$(18);:GOTO30
  14. 600 LPRINT"W1";:GOTO30
  15. 700 LPRINT"W0";:GOTO30
  16. 800 INPUT"1-127";S$:LPRINT"C"CHR$(VAL(S$));:GOTO30
  17. 900 INPUT"Skip 0-127)";S$:IFS$="0"THENLPRINT"O":GOTO30 ELSE:LPRINT"N"CHR$(VAL(S$));:GOTO30
  18.