home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug051.ark / DEMO.S2M < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.5 KB  |  82 lines
  1. #$#$0 (+-*/)
  2. C0 $#
  3. .."$10"#
  4. #                
  5. C1 $#
  6. .."$11"#
  7. #                
  8. C2 $#
  9. .."$12"#
  10. #                
  11. C4 $#
  12. .."$14"#
  13. #                
  14. C5 $#
  15. .."$15"#
  16. #                
  17. C6 $#
  18. YOUR STRING REPLACED BY THIS$16#
  19. .."$10"#
  20. #                
  21. C7 $#
  22. $10$27,;#
  23. .."$20"    "$23"#
  24. $F8#
  25. #                
  26. C8 $#
  27. .."$18"#
  28. #                
  29. S#
  30. .."$01"#
  31. #                
  32. F0#
  33. $F0#
  34. #                
  35. F1#
  36. ..OUTPUT REQUEST#
  37. #                
  38. F3 $=$#
  39. $F3#
  40. #                
  41. F7 $#
  42. $10$F7#
  43. ..REPEAT $10 TIMES#
  44. $F8#
  45. #                
  46. FE#
  47. $FE#
  48. # -----------------
  49. HELP#
  50. ..S - SYMBOL GEN    C - CONVERSION    F - PROCESSOR FUNCTION#
  51. .L S/REQUEST NEXT SYMBOL FROM GENERATOR#
  52. .L C0 $$/PARAMETER AS IS#
  53. .L C1 $$/GET FROM MEMORY USING PARAMETER#
  54. .L C2 $$/GET FROM MEMORY USING PARAMETER - GEN IF UNDEFINED#
  55. .L C4 $$/EVALUATE EXPRESSION#
  56. .L C5 $$/GET LENGTH OF EXPRESSION#
  57. .L C6 $$/REPLACE PARAMETER#
  58. .L C7 $$/CONTEXT CONTROLLED ITERATION - BREAK ON , ;#
  59. .L C8 $$/GET INTERNAL CODE FOR CHARACTER#
  60. .L F0/TERMINATE PROCESSING#
  61. .L F1/OUTPUT REQUEST#
  62. .L F3 $$=$$/STORE INTO MEMORY#
  63. .L F7 $$/COUNT CONTROLLED ITERATION#
  64. .L FE/FORCE ERROR TRACE BACK#
  65. # ----------------
  66. .L $/$#
  67. $F15#
  68.         111111112222222222222222222222222222222222222222222222222222
  69. # ----------------
  70. ..$#
  71.     $10$F15#
  72. #                
  73. $#
  74. ..>>> NO EXAMPLE PREPARED#
  75. #                
  76. .CONSOLE#
  77. 5$F2#
  78. ##               
  79. HELP#
  80. ..READY FOR INPUT FROM CONSOLE#
  81. .CONSOLE#
  82.