home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / asic / ascsu215 / read.asi < prev    next >
Text File  |  1991-12-30  |  922b  |  83 lines
  1. start:
  2. cls
  3.  
  4. e$=chr$(27)
  5. a$=command$
  6. b$=mid$(a$,2,79)
  7. open "i",1,b$
  8.  
  9. if error=2 then
  10. print "File not found."
  11. goto finish:
  12. endif
  13.  
  14. if error=3 then
  15. print "Path not found."
  16. goto finish:
  17. endif
  18.  
  19. continue:
  20. input# 1, line$ crlf
  21.  
  22. if error=96 then
  23. print line$
  24. line=line+1
  25.  
  26. if line=23 then
  27. gosub wait:
  28. if a$=e$ then finish:
  29. line=0
  30. cls
  31. endif
  32. gosub blanklin:
  33. endif
  34.  
  35. line=line+1
  36.  
  37. if line=23 then
  38. print ""
  39. gosub wait:
  40. if a$=e$ then finish:
  41. line=0
  42. cls
  43. endif
  44.  
  45. c$=chr$(32)
  46.  
  47. d$=inkey$
  48. if d$=c$ then
  49. gosub wait:
  50. else
  51. if d$=e$ then finish:
  52. endif
  53.  
  54. print line$
  55.  
  56. if error=99 then 
  57. gosub wait:
  58. print
  59. print
  60. color 15,0
  61. print "End of File."
  62. print line$
  63. goto finish:
  64. endif
  65.  
  66. goto continue:
  67.  
  68. wait:
  69. print "Press any key to continue. ";
  70. waitmore:
  71. a$=inkey$
  72. if a$="" then waitmore:
  73. return
  74.  
  75. blanklin:
  76. input#1, line$ crlf
  77. if line$="" then continue:
  78. return
  79.  
  80. finish:
  81. close 1
  82. end
  83.