home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol078 / movecom.wpm < prev    next >
Text File  |  1984-04-29  |  1KB  |  77 lines
  1. ;
  2. l120
  3. :ss 1 70 70
  4. :pr "#1/#13/#13/#13/Comment aligning or stripping macro"
  5. :pr "#13/#13/  Copyright (C) 1982 Claude Almer 10/7/82"
  6. :pr "#13/#13/"
  7. t
  8. :on ?-3  / /+66
  9. :%1=-1
  10. :pr "press any key to strip comments or <SPACE> to"
  11. :pr " align them..."
  12. :rk  %3
  13. :%A = ""
  14. :pr "#12/#6/"
  15. :sp %A 59
  16. :on %3-32 /+24 / /+24
  17. :pr "#2/#6/Align comments to what position ?"
  18. :in %2
  19. :%5=0-%2
  20. :%1=0
  21. :%C=""
  22. :sp %C 32
  23. :%5=%5+1
  24. :on %5 22
  25. :%4=175
  26. :%A=""
  27. :sp %A %4
  28. :pr "#0/#6/preliminary work
  29. sa/\//%A/
  30. t/f1
  31. :%A = ""
  32. :sp %A 59
  33. :pr "#0/#6/removing spaces round 1
  34. t/sa/        %A/%A/
  35. :pr "#0/#6/removing spaces round 2
  36. t/sa/    %A/%A/
  37. :pr "#0/#6/removing spaces round 3
  38. t/sa/  %A/%A/
  39. :pr "#0/#6/removing spaces round 4
  40. t/sa/ %A/%A/
  41. t/f1
  42. s/%A/?/
  43. :mc $2-1
  44. :%0=$2
  45. :on ?-3   / /+20
  46. :%B=!<
  47. :on %1 /+10
  48. :pr "#0/#6/aligning:#13/#6/%B"
  49. :mc 0
  50. :on %0-%2-1 / /+5 /+5
  51. s/%A//d1/s//%C</
  52. b1
  53. :mc %2-1
  54. d1/s//%B</b0
  55. :on -1  /-14
  56. f1
  57. :on -1  /-16
  58. :mc %0
  59. :mc $2-1
  60. :on $2 / /+2
  61. :on?-32 / /-3
  62. :mc $2+1
  63. d1/s//</
  64. :pr "#0/#6/deleting:#13/#6/%B"
  65. :on -1  42
  66. :on %1 /+5
  67. :pr "#0/#6/final process"
  68. t/sa/ </</
  69. :%A=""
  70. :sp %A %4
  71. t/sa/%A/\//
  72. t
  73. :cp
  74. :ec
  75. :pr "#0/#6/it may be easier if I had something to work on!"
  76. :rk  %3
  77.