home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 6 / 06.iso / b / b007 / 2.ddi / AMISG / PRGCREA.PRG < prev    next >
Encoding:
Text File  |  1990-04-17  |  888 b   |  44 lines
  1. ****** ╜¿┴ó╨┬│╠╨≥ PRGCREA.PRG ******
  2. ****** DO PRGCREA             ******
  3. SET TALK OFF
  4. CLEAR
  5. USE PRG
  6. SET INDE TO PRG
  7. DO WHILE .T.
  8. CLEAR
  9. PN=SPACE(8)
  10. PFN=SPACE(30)
  11. YY=DATE()
  12. @ 4,14 TO 9,66 DOUB
  13. @ 5,15 SAY '  ╟δ╩Σ╚δ╬≈╬─│╠╨≥├√:' GET PN PICT '!!!!!!!!'
  14. @ 6,15 SAY '        ╓╨╬─│╠╨≥├√:' GET PFN
  15. @ 7,15 SAY '╜¿┴ó╚╒╞┌(─Ω,╘┬,╚╒):' GET YY
  16. @ 8,25 SAY '*** ╙╨╥╗╬¬┐╒╘≥╖╡╗╪ ***'
  17. READ
  18. IF PN=SPACE(8) .OR. PFN=SPACE(20)
  19. CLOS DATA
  20. RETU
  21. ENDIF
  22. PN=RTRIM(LTRIM(PN))
  23. SET EXACT ON
  24. SEEK PN
  25. SET EXACT OFF
  26. IF .NOT. EOF()
  27. ? '╕├╬─╝■├√ &PN ╥╤╩╣╙├ ╓╨╬─╬─╝■├√╬¬ '+P_DES
  28. WAIT '╟├╚╬╥Γ╝ⁿ╘≥╝╠╨°ú«ú«ú«'
  29. LOOP
  30. ENDIF
  31. APPE BLAN
  32. REPL P_NAME WITH PN,P_DES WITH PFN,PB_DATE WITH CTOD('01/01/01'),P_DATE WITH YY
  33. REPL P_LB WITH '3'
  34. MODI COMM &PN
  35. ? TRIM(PFN)+'│╠╨≥ &PN..PRG ╜¿┴ó═Ω▒╧ !'
  36. WAIT '╗╣╜¿▒≡╡─│╠╨≥┬≡?(Y/N):' TO K
  37. IF UPPER(K)#'Y'
  38. EXIT
  39. ENDIF
  40. ENDDO
  41. USE
  42. RETURN
  43. ** END OF PRGCREA.PRG ***
  44.