home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Black Box 4
/
BlackBox.cdr
/
progbas
/
ascsu205.arj
/
PRINT.ASI
< prev
next >
Wrap
Text File
|
1991-12-19
|
1KB
|
91 lines
start:
a$=command$
file$=mid$(a$,2,79)
c$=chr$(12)
open "i",1,file$
if error=2 then
print ""
print ""
print "File not found."
print
print
goto quiterly:
endif
if error=3 then
print ""
print ""
print "Path not found."
print
print
goto quiterly:
endif
heading:
cls
print "Printing....";
realfile$=ucase$(file$)
color 0,7
print realfile$
color 7,0
print
print
print "Press Space Bar to pause printing, or Esc to quit."
print
print
printmor:
input# 1, line$ crlf
if error=96 then
lprint line$
gosub blanklin:
endif
lprint line$
b$=chr$(27)
d$=chr$(32)
a$=inkey$
if a$=b$ then
print "Printing has been terminated. The printer may still have data in its"
print "buffer. If so, it will continue printing until this is gone."
print
lprint c$
close 1
end
endif
if a$=d$ then wait: else dontwait:
wait:
print "Press any key to continue. ";
wait2:
a$=inkey$
if a$="" then wait2:
a$=""
goto heading:
dontwait:
if error=99 then eof:
goto printmor:
blanklin:
input# 1, line$ crlf
if line$="" then printmor:
return
eof:
lprint line$
finish:
print "Finished."
quiterly:
close 1
lprint c$
end