home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / VISUAL_B / ARQS_ZIP / APBSU100.ZIP / DISPLAY.BAS < prev    next >
Encoding:
BASIC Source File  |  1991-05-26  |  267 b   |  15 lines
  1. set break on
  2. open "c:\pcwrite\astrolog\encyclop\astrolo1.doc" for input as #1
  3.   while not eof(1)
  4.     line input #1, nextline$
  5.     print nextline$
  6.     if inkey$=chr$(32) then gosub wait
  7.   wend
  8. close #1
  9. end
  10. wait:
  11. a$=inkey$
  12. if a$="" then goto wait
  13. return
  14.  
  15.