home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol110 / edit.acg < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.9 KB  |  85 lines
  1. * edit.cmd 03/15/83 by sml 
  2.  
  3. * this program will edit the current record
  4.  
  5. * store field variables into mem variables for editing
  6.  
  7. STORE lastname TO mlastname
  8. STORE fname TO mfname
  9. STORE spouse TO mspouse
  10. STORE mr TO mmr
  11. STORE title TO mtitle
  12. STORE company1 TO mcompany1
  13. STORE company2 TO mcompany2
  14. STORE caddress TO mcaddress
  15. STORE suite TO msuite
  16. STORE ccity TO mccity
  17. STORE cst TO mcst
  18. STORE czip TO mczip
  19. STORE address TO maddress 
  20. STORE apt TO mapt
  21. STORE city TO mcity
  22. STORE st TO mst
  23. STORE zip TO mzip
  24. STORE ophone TO mophone
  25. STORE phone TO mphone
  26. STORE dear TO mdear
  27. STORE send TO msend
  28. STORE misc TO mmisc
  29. STORE cs1 TO mcs1
  30. STORE cs2 TO mcs2
  31. STORE cs3 TO mcs3
  32. STORE cs4 TO mcs4
  33. STORE cs5 TO mcs5
  34. STORE cs6 TO mcs6
  35. STORE UPDATE TO mupdate
  36.  
  37. * set up screen and prompt for editing 
  38. SET FORMAT TO mod-rec 
  39. STORE 'Edit data' TO mode 
  40. STORE 'Enter the new or corrected information' TO prompt1 
  41. STORE ' ' TO prompt2
  42. STORE 'Control Q to end edit session' TO prompt3
  43.  
  44. * let user enter data
  45. READ
  46.  
  47. * reserved for editing routines
  48.  
  49. * place the edited data back into the same record
  50.  
  51. REPLACE lastname WITH mlastname, fname WITH mfname
  52. REPLACE spouse WITH mspouse, mr WITH mmr 
  53. REPLACE title WITH mtitle, company1 WITH mcompany1
  54. REPLACE company2 WITH mcompany2, caddress WITH mcaddress
  55. REPLACE suite WITH msuite 
  56. REPLACE ccity WITH mccity, cst WITH mcst 
  57. REPLACE czip WITH mczip, address WITH maddress
  58. REPLACE apt WITH mapt
  59. REPLACE city WITH mcity, st WITH mst 
  60. REPLACE zip WITH mzip, ophone WITH mophone
  61. REPLACE phone WITH mphone, dear WITH mdear 
  62. REPLACE send WITH msend, misc WITH mmisc
  63. REPLACE cs1 WITH mcs1, cs2 WITH mcs2
  64. REPLACE cs3 WITH mcs3, cs4 WITH mcs4
  65. REPLACE cs5 WITH mcs5, cs6 WITH mcs6
  66. REPLACE UPDATE WITH mupdate
  67.  
  68. SET console off
  69. STORE # TO recordno
  70. SET INDEX TO lastname, company, zip
  71.   IF recordno = 0
  72.     GOTO 1
  73.   ELSE
  74.     GOTO recordno
  75.   ENDIF
  76. SET console on
  77.  
  78. * release local variables 
  79. RELEASE ALL
  80.  
  81. * restore original memory
  82. STORE '?' TO command
  83. STORE t TO more
  84.  
  85.