home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / PCLPACK.ZIP / NICE.ZIP / MACS.ZIP / FREAD.CTL < prev    next >
Encoding:
Text File  |  1992-07-13  |  703 b   |  34 lines
  1. display(display\READF)
  2. *fname
  3. say(&3&Please enter the name of the file to read&12&: &14&(            )&15&*)
  4. back(13)
  5. menuask%nocr%%CRON%%LEN12%(*)
  6. if (%RESP%)=(<CR>) then goto (ret)
  7. adddef(.%DEFEXT%)
  8. seekfall(%RESP%)
  9. if (%ARESP%)=(INVALID) then goto (invfn)
  10. if (%ARESP%)=(No) then goto (nothere)
  11. if (%ARESP%)=(NOT ENOUGH) then goto (notenuf)
  12. selFarea(%ARESP%)
  13. linefeed(1)
  14. view(%FILPATH%%RESP%)
  15. selfarea(/:LASTDOWN/)
  16. enter
  17. Return
  18.         *invfn
  19. Display(Display\INVALID)
  20. flushout
  21. selfarea(/:LASTDOWN/)
  22. Enter
  23. goto (fname)
  24.         *NotHere
  25. Display(Display\notfnd)
  26. goto (fname)
  27.         *notenuf
  28. Display (Display\fbadsec)
  29. selfarea(/:LASTDOWN/)
  30. return
  31. *ret
  32. linefeed(1)
  33. return
  34.