home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / PRGPTONE.PRG < prev    next >
Encoding:
Text File  |  1990-04-18  |  581 b   |  41 lines
  1. ****** ┤≥╙í─││╠╨≥ PRGPTONE.PRG ******
  2. ****** DO PRGPTONE             ******
  3. CLEAR
  4. SET TALK OFF
  5. DO WHILE .T.
  6. CLEAR
  7. PN=''
  8. @ 0,0 SAY '╤í╘±┤≥╙í│╠╨≥......'
  9. DO SELEP
  10. IF LEN(PN)=0
  11. RETU
  12. ENDIF
  13. IF .NOT. FILE('&PN..PRG')
  14. CLEAR
  15. @ 5,20 SAY '│╠╨≥ &PN..PRG ▓╗┤µ╘┌!'
  16. A=INKEY(5)
  17. ELSE
  18. F=2
  19. @ 5,20 SAY '╡Ñ┴╨┤≥╙í/╖╓┴╜┴╨┤≥╙í [1/2]:' GET F PICT '9' RANG 1,2
  20. READ
  21. PN=PN+'.PRG'
  22. YS=1
  23. HS=60
  24. DO CASE
  25. CASE F=1
  26. DO DY1
  27. CASE F=2
  28. DO DY2
  29. ENDCASE
  30. YN=' '
  31. WAIT "╗╣┤≥╙í▒≡╡─│╠╨≥┬≡?(Y/N):" TO YN
  32. IF UPPE(YN)='Y'
  33. LOOP
  34. ELSE
  35. RETURN
  36. ENDIF
  37. ENDIF
  38. ENDDO
  39. RETURN
  40. ** END OF PRGPTONE.PRG **
  41.