home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / news / 769 / s3file.prg < prev    next >
Text File  |  1992-08-18  |  1KB  |  47 lines
  1.  
  2. proc main
  3. local cMainScreen := savescreen(0,0,24,79)
  4. local cSuper, cInScreen
  5. local nChoice := 1
  6. local aOptions,aSelect
  7.  
  8. slsf_color("S3COLOR")
  9. initsup(.F.)
  10. if iscolor()
  11.   setblink(.f.)
  12. endif
  13. SETCOLOR(SLS_NORMCOL())
  14. SET WRAP ON
  15. dispbegin()
  16. cSuper  := "S"+chr(15)+"u"+chr(31)+"p"+chr(47)+"e"+chr(63)+"r"+chr(79)+"L"+chr(95)+"i"+chr(111)+"b"+chr(127)+"!"+chr(11)
  17. cSuper  := left(repl(cSuper,223),4000)
  18. restscreen(0,0,24,79,cSuper)
  19. cSuper  := "F"+chr(9)+"i"+chr(9)+"l"+chr(9)+"e"+chr(9)+" "+chr(9)+"&"+chr(9)+" "+chr(9)+"D"+chr(9)+"i"+chr(9)+"r"+chr(9)+" "+chr(9)
  20. cSuper  := left(repl(cSuper,96),2112)
  21. dispbox(3,3,22,72,space(9))
  22. restscreen(5,5,20,70,cSuper)
  23. cInScreen := savescreen(5,5,20,70)
  24. dispend()
  25.  
  26. aOptions := {;
  27.             {"Full Directory - FULLDIR()  ",{||fulldir()} },;
  28.             {"This Directory - POPUPDIR() ",{||popupdir(nil,nil,nil,nil,.t.)} },;
  29.             {"Read Text File - FILEREAD() ",{||fileread(nil,nil,nil,nil,"*.prg")} },;
  30.             {"Quit",nil};
  31.             }
  32. aSelect  := a2tosing(aOptions,1)
  33.  
  34. do while .t.
  35.  
  36.     nChoice := MCHOICE(aSelect)
  37.  
  38.     if nChoice = len(aOptions) .or. nChoice == 0
  39.          exit
  40.     else
  41.          eval(aOptions[nChoice,2])
  42.     endif
  43. enddo
  44. ss_implode(0,0,24,79,cMainScreen)
  45.  
  46.  
  47.