home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / asic / ascsu215 / print.asi < prev    next >
Text File  |  1992-01-27  |  1KB  |  99 lines
  1. start:
  2.  
  3. a$=command$
  4. file$=mid$(a$,2,79)
  5. c$=chr$(12)
  6. e$=chr$(15)
  7. pcwpage$=c$+e$
  8. open "i",1,file$
  9.  
  10. if error=2 then
  11. print ""
  12. print ""
  13. print "File not found."
  14. print
  15. print
  16. goto quiterly:
  17. endif
  18.  
  19. if error=3 then
  20. print ""
  21. print ""
  22. print "Path not found."
  23. print
  24. print
  25. goto quiterly:
  26. endif
  27.  
  28. heading:
  29. cls
  30. print "Printing....";
  31. realfile$=ucase$(file$)
  32. color 0,7
  33. print realfile$
  34. color 7,0
  35. print
  36. print
  37. print "Press Space Bar to pause printing, or Esc to quit."
  38. print
  39. print
  40.  
  41. printmor:
  42. input# 1, line$ crlf
  43. f$=mid$(line$,1,2)
  44.  
  45. if f$=pcwpage$ then
  46. lprint c$
  47. goto printmor:
  48. endif
  49.  
  50. if error=96 then
  51. lprint line$
  52. gosub blanklin:
  53. endif
  54.  
  55. lprint line$
  56.  
  57. b$=chr$(27)
  58. d$=chr$(32)
  59.  
  60. a$=inkey$
  61.  
  62. if a$=b$ then
  63. print "Printing has been terminated.  The printer may still have data in its"
  64. print "buffer.  If so, it will continue printing until this is gone."
  65. print
  66. lprint c$
  67. close 1
  68. end
  69. endif
  70.  
  71. if a$=d$ then wait: else dontwait:
  72.  
  73. wait:
  74. print "Press any key to continue. ";
  75. wait2:
  76. a$=inkey$
  77. if a$="" then wait2:
  78. a$=""
  79. goto heading:
  80.  
  81. dontwait:
  82. if error=99 then eof:
  83. goto printmor:
  84.  
  85. blanklin:
  86. input# 1, line$ crlf
  87. if line$="" then printmor:
  88. return
  89.  
  90. eof:
  91. lprint line$
  92.  
  93. finish:
  94. print "Finished."
  95. quiterly:
  96. close 1
  97. lprint c$
  98. end
  99.