home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / bbs / eceditor.scr < prev    next >
Encoding:
Text File  |  1993-07-20  |  1.5 KB  |  109 lines
  1. script
  2.  
  3. ;   EC Editor v.01 2/29/88
  4. ;      by Eric Crofut
  5. ;Atari Outpost BBS 816-966-8188
  6.  
  7.  
  8. clear
  9. clear table
  10. abort off
  11. define line
  12. define line_number = 1
  13. define first_letter
  14. define message 
  15. define edit_command
  16. define idx
  17. define edit_line_number
  18.  
  19. TOP:
  20.  
  21. printe '     EC Editor by Eric Crofut'
  22. printe
  23. printe '/ To Enter Edit Mode - /? For Help'
  24. printe
  25. printe ' Title: Feeback To SysOp'
  26. printe
  27.  
  28.  
  29. GET_LINE:
  30.  
  31. print '>'
  32. get_key first_letter
  33.  
  34. if first_letter = '/'
  35.  backspace 1
  36.  print '(E>'
  37.  goto edit
  38. endif
  39.  
  40. print first_letter
  41.  
  42. input line 70
  43.  
  44. table_put line_number,'[first_letter][line]
  45. increase line_number
  46. goto get_line
  47.  
  48. PRINT_MESSAGE:
  49.  
  50. for idx = 1 to line_number do
  51.   if idx = line_number
  52.    break
  53.   endif
  54.  message = table_get idx
  55.  print '[idx]: '
  56.  printe message
  57. endfor
  58.  
  59. goto get_line
  60.  
  61. EDIT:
  62.  
  63. get_key edit_command
  64.  
  65. if edit_command = 'L'
  66.  printe 'List'
  67.  printe
  68.  goto print_message
  69. ef edit_command = 'A'
  70.  printe 'Abort'
  71.  exit
  72. ef edit_command = 'E'
  73.  goto edit_line
  74. ef edit_command = '?'
  75.  printe
  76.  printe
  77.  printe ' \{L\} List Lines    \{E\} Edit Line   \{A\} Abort'
  78.  printe
  79. endif
  80.  
  81. goto get_line
  82.  
  83.  
  84. EDIT_LINE:
  85.  
  86. print 'Edit Line: '
  87. input edit_line_number 2
  88.  
  89. if edit_line_number = ''
  90.  goto get_line
  91. endif
  92.  
  93. printe
  94. message = table_get edit_line_number
  95. printe '[edit_line_number]: [message]'
  96. print '[edit_line_number]> '
  97.  
  98. input line 70
  99.  
  100. if line = ''
  101. goto get_line
  102. endif
  103.  
  104. table_put edit_line_number,line
  105.  
  106. goto get_line
  107.  
  108.