home *** CD-ROM | disk | FTP | other *** search
/ Online Praxis 1998 March / Image.iso / CD-ROM / ZUGANG / TONLINE / V20 / T-ONLINE.Z / MOD.MKR < prev    next >
Encoding:
Text File  |  1997-06-03  |  369 b   |  18 lines
  1. #   -------------------------------------
  2. #   - Beispielmakro fuer den Befehl mod -
  3. #   -------------------------------------
  4.  
  5. #   Protokollfensterausgaben ermoeglichen
  6. set PROTWIN = "on"
  7. debug "Makroname: ", argv_0, "\n"
  8.  
  9. set A = "19"
  10. set B = "7"
  11.  
  12. #   Operation durchfuehren
  13. mod C = A, B
  14.  
  15. #   Ergebnis ausgeben
  16. debug A, " modulo ", B, " = ", C, "\n"
  17.  
  18.