home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols100 / vol130 / 800.ssb < prev    next >
Encoding:
Text File  |  1984-04-29  |  484 b   |  18 lines
  1. 805 '    print a file
  2. 810 ' 1.10
  3. 815 IF SKIPFILES%=1 THEN RETURN
  4. 820 IF FIL$="NONE" THEN RETURN
  5. 825 SETUSERNUMBER%=USERNUMBER%: GOSUB 300
  6. 830 NOFILE%=0
  7. 835 OPEN "I",2,DRIVE$+FIL$
  8. 840 IF NOFILE%<>0 THEN CLOSE #2:
  9.  
  10.     COMMENT$=DRIVE$+FIL$+" not found": GOSUB 8000: RETURN
  11. 845 IF NOCTLK% = 0 THEN 
  12.  
  13.     A$=CRLF$+"K to skip, S to pause."+CRLF$: GOSUB 400
  14. 850 CR%=2
  15. 855 IF EOF(2) OR (BREAK% AND NOCTLK%=0) THEN
  16.  
  17.      860 ELSE LINE INPUT #2,A$:GOSUB 400:GOTO 855
  18. 860 CLOSE #2
  19. 865 NOCTLK%=0
  20. 870 RETURN
  21.