home *** CD-ROM | disk | FTP | other *** search
/ PC User 2001 August / APC_Aug2001_CD2.iso / features / devtools / files / lb202win.exe / LB202W.EXE / TSTPRINT.BAS < prev    next >
Encoding:
BASIC Source File  |  2000-11-04  |  279 b   |  14 lines
  1.  
  2.     'test printing
  3.     filedialog "Select a BASIC program", "*.bas", fname$
  4.     printerdialog
  5.     if fname$ = "" then end
  6.     open fname$ for input as #1
  7.     while eof(#1) = 0
  8.         line input #1, text$
  9.         lprint text$
  10.     wend
  11.     close #1
  12.     dump
  13.     end
  14.