home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a085 / 1.ddi / EXP8_4.PRG < prev    next >
Encoding:
Text File  |  1994-01-10  |  1.7 KB  |  66 lines
  1. *⌐░⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐┤
  2. *⌐ª      Program: EXP8_4.PRG                                           ⌐ª
  3. *⌐ª     Function: ╩╣╙├╧┬└¡▒φ┴╨ Lists ╡─╖╢└²                            ⌐ª
  4. *⌐╕⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐ñ⌐╝
  5. SET TALK OFF
  6. CLEAR ALL
  7. SET COLOR TO W/N
  8. CLEAR
  9.  
  10. DIMENSION marray(1,5)
  11. count=ADIR(marray,"*.PRG")
  12. * ╩╣╙├ ADIR() ║»╩²░╤╡▒╟░─┐┬╝╧┬╡─ *.PRG ╬─╝■╡─╩⌠╨╘┤µ╙┌╩²╫Θ marray ╓╨
  13. * ADIR()  ╗ß╫╘╢»╡≈╒√╩²╫Θ marray ╡─┤≤╨í
  14. =ASORT(marray)
  15. DIMENSION poparray(count)
  16. FOR I=1 TO ALEN(marray,1)
  17.     poparray(I)=PADR(marray(I,1),14)+;
  18.                 PADR(STR(marray(I,2),6),8)+;
  19.                 PADR(DTOC(marray(I,3)),10)+;
  20.                 PADR(marray(I,4),10)+;
  21.                 PADR(marray(I,5),3)
  22. ENDFOR
  23.  
  24. DEFINE POPUP mypop FROM 0,0 ;
  25.        FOOTER "<< ╩╣╙├╩≤▒Ω╗≥╝ⁿ┼╠╤í╘± >>" ;
  26.        MARK CHR(16) ;
  27.        MARGIN ;
  28.        SCROLL ;
  29.        SHADOW ;
  30.        TITLE "<< │╠╨≥╤í╘±▒φ >>";
  31.        COLOR SCHEME 9
  32.  
  33. FOR J=1 TO ALEN(poparray)
  34.     * ░╤╩²╫Θ╡─╕≈╘¬╦╪╫¬╗╗╬¬▓╦╡Ñ mypop ╡─╤í╧ε
  35.     DEFINE BAR J OF mypop PROMPT (poparray(J))
  36. ENDFOR
  37. @ 5,12 GET choice POPUP mypop ;
  38.        DEFAULT (poparray(1)) ;
  39.        SIZE 15,53 ;
  40.        VALID checking(choice)
  41. READ CYCLE
  42.  
  43. RELEASE POPUPS mypop
  44. USE
  45. CLEAR
  46. RETURN
  47.  
  48. FUNCTION checking
  49. PARAMETER mychoice
  50. PRIVATE mychoice,myfile
  51. myfile=SUBSTR(mychoice,1,AT(".",mychoice)+3)
  52. USE SYS
  53. DEFINE WINDOW editwin FROM 0,0 TO 23,79  ;
  54.        FOOTER (myfile) ;
  55.        TITLE "<< Σ»└└┤░┐┌ >>" ;
  56.        FLOAT ;
  57.        GROW ;
  58.        SHADOW ;
  59.        ZOOM ;
  60.        COLOR SCHEME 5
  61.  
  62. APPEND MEMO sysmem FROM (myfile) OVERWRITE
  63. MODIFY MEMO sysmem NOEDIT WINDOW editwin
  64. RELEASE WINDOWS editwin
  65. RETURN .T.
  66.