MUMPS    hoch
  ähnliche Sprachen: Caché ObjectScript  
  Beschreibung: MUMPS (auch bekannt als M) steht für "Massachusetts general hospital Utility MultiPurpose System". Intersystems Caché ist MUMPS kompatibel!


 Hello World (1)   Connel MacKenzie
HELLO   W "Hello World",!
        Q
Gibt "Hello World" auf dem Bildschirm aus.


 Hello World (2)   Connel MacKenzie
HELLO   ; C. MacKenzie ; 3/30/2001 ; "Hello World" routine
        WRITE "Hello World",!
        QUIT
Gibt "Hello World" auf dem Bildschirm aus.


 Hello World (Interpretierter Modus)   Connel MacKenzie
>W "Hello World",!
Gibt "Hello World" auf dem Bildschirm aus.


 Sortieren   Connel MacKenzie
SORT    ; C. MacKenzie ; 3/30/2001 ; print out array X sorted
        ZWRITE X
        QUIT


; Aufrufen vom interpretierten Modus aus:
>KILL  SET X("Hello")=" World?",X("WORLD")="Hi there." DO ^SORT
; result:
;   X("Hello")=" World?"
;   X("WORLD")="Hi there."

; Anderes Beispiel:
>S X("Hello","World")="" ZW X
; result:
;   X("Hello","World")=""

Gibt ein Array sortiert aus.


 Squares (1)   Connel MacKenzie
SQUARES F I=1:1:10 W I*I," "
        W !
        Q
Gibt die Quadrate von 1 bis 10 aus.


 Squares (2)   Connel MacKenzie
SQUARES ; C. MacKenzie ; 3/30/2001 ; output squares from 1 to 10
        FOR I=1:1:10 WRITE I*I," "
        WRITE !
        QUIT
Gibt die Quadrate von 1 bis 10 aus.


 Squares (Interpretierter Modus)   Connel MacKenzie
>F I=1:1:10 W I*I," "
Gibt die Quadrate von 1 bis 10 aus.