home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / misc / stage2.lbr / INTERACT.SZM / INTERACT.S2M
Encoding:
Text File  |  1987-12-08  |  1.8 KB  |  74 lines
  1. #$#$0 (+-*/)    SPECIAL SYMBOL SELECTION FOR FOLLOWING MACROS
  2. .SAVE $=$#
  3. $F3#
  4. :CAT KLIST $10#            ADD ITEM TO DIRECTORY LIST
  5. # ------------------------------------------
  6. .CLEAR $#
  7. :STO $10=#
  8. # ------------------------------------------
  9. .RESAVE $=$#
  10. $F3#
  11. # -----------------------------------------
  12. .DUMP#
  13. .DUMP KLIST#
  14. # ------------------------------------------
  15. .DUMP $#
  16. $11$47;#
  17. :IF $40= SKIP 4#
  18.  $F15#
  19. ............ $40$F15#
  20.  $F15#
  21. .RECALL $40#
  22. $F8#
  23. # ------------------------------------------
  24. .STOP#
  25. $F0#
  26. # ------------------------------------------
  27. .WRITE#
  28. KLIST$16 $11$47;#
  29. :IF $40= SKIP 1#
  30. .SAVE $40=$41$F13#
  31. $F8#
  32. # ------------------------------------------
  33. .RECALL $#
  34. $11$27;#
  35.                  $20$F15#
  36. $F8#
  37. # -------------------------------------------
  38. .ADD $=$#
  39. :CAT $10 $20#
  40. # -------------------------------------------
  41. :CAT $ $#
  42. :STO $10=$11;$20#
  43. # -------------------------------------------
  44. :STO $=$#
  45. $F3#
  46. # ----------------------------------------
  47. :IF $=$ SKIP $#
  48. $F50#
  49. # -----------------------------------------
  50. .$#
  51. WHAT IS THE MEANING OF THIS ??? $10$F15#
  52. # -------------------------------------------
  53. $#
  54. .$10#
  55. ][ ................................................][$F15#
  56. # -----------------------------------------
  57. .DIR$#
  58. .RECALL KLIST#
  59. # ----------------------------------------
  60. .HELP#
  61. .RECALL HELP#
  62. # ---------------------------------------
  63. .CONSOLE#
  64. 5$F2#
  65. #
  66. DISK#
  67. 1$F2#
  68. ## ----------- END OF MACROS -------------------------
  69. :STO HELP=ADD <ID>=<INFO>;DIR;HELP;RECALL <ID>;SAVE <ID>=<INFO>;WRITE;RESAVE <ID>=<INFO>;CLEAR <ID>;STOP;DUMP
  70. .ADD HELP=  <INFO> IS STRINGS SEPERATED BY SEMICOLONS
  71. :STO KLIST=
  72. HELP
  73. .CONSOLE
  74.