home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / PRGPTALL.PRG < prev    next >
Encoding:
Text File  |  1990-04-18  |  584 b   |  40 lines
  1. ****** ┤≥╙í╦∙╙╨│╠╨≥ PRGPTALL.PRG ******
  2. ****** DO PRGPTALL               ******
  3. SET TALK OFF
  4. CLEAR
  5. F=2
  6. LB=1
  7. @ 4,18 TO 8,60 DOUB
  8. @ 5,20 SAY '╡Ñ┴╨┤≥╙í/╖╓┴╜┴╨┤≥╙í [1/2]:' GET F PICT '9' RANG 1,2
  9. @ 7,20 SAY '╕≈│╠╨≥[1-╖╓┐¬┤≥/2-╜⌠┤╒┤≥]:' GET LB PICT '9' RANG 1,2
  10. READ
  11. IF LB=2
  12. EXP='P_LB="3"'
  13. IF F=1
  14. DO DYALL1
  15. ELSE
  16. DO DYALL2
  17. ENDIF
  18. ELSE
  19. SELE 5
  20. USE PRG INDE PRG
  21. SET FILT TO P_LB='3'
  22. GO TOP
  23. YS=1
  24. HS=60
  25. DO WHILE .NOT. EOF()
  26. PN=TRIM(P_NAME)+'.PRG'
  27. DO CASE
  28. CASE F=1
  29. DO DY1
  30. CASE F=2
  31. DO DY2
  32. ENDCASE
  33. SELE 5
  34. SKIP
  35. ENDDO
  36. USE
  37. ENDIF
  38. RETURN
  39. ** END OF PRGPTALL.PRG **
  40.