home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p190 / 4.ddi / PRG / INDE.PRG < prev    next >
Encoding:
Text File  |  1988-06-03  |  374 b   |  22 lines
  1. IF UPPER(YN)='D'
  2. DELE FOR RECNO()=N
  3. PACK
  4. STOR 'Y' TO YN
  5. ENDI
  6. IF UPPER(YN)='I'
  7. CLEAR
  8. GO N+1
  9. ? ' ┬╓ └¬ ╠╪ ßτ ╓╡ :'
  10. ? '    ╘░ ╓∙ ├µ ╗≥ ╘░ ╫╢ ├µ               [G]'
  11. ? '    ┐╒ ╡╢ ▓█                           [K]'
  12. ? '    ╣½ ╓╞ [M] ╗≥ ╠▌ ╨╬ [T] ╗≥ ╣▄ ┬▌ ╬╞ [PI]'
  13. SET TALK OFF
  14. ACCE TO GPSZ
  15. REPL GPSZ1 WITH GPSZ
  16. IF K=1
  17. APPE FROM KG1
  18. ELSE
  19. APPE FROM KG2
  20. ENDI
  21. ENDI
  22.