/*
 * Script für WRITE V3.263 © 1994 Tim Teulings
 * Dieses Script zeigt den Umgang mit einige Befehlen, die die internen
 * Listen von WRITE unterstützen.
 */

IF ~show('P',"WRITE")
THEN DO
 say 'Dieses Script läuft nur, wenn WRITE bereits gestartet wurde !'
 exit 10
END

ADDRESS "WRITE"

OPTIONS RESULTS

'VERSIONCHECK 40000 "RexxvarAccessDemo.wrx"'
IF RC~=0 THEN DO
  exit 10
END

Text = "Hallo, dies ist ein Test"

'MESSAGEOK ' "(" Text ")"
'MESSAGEOK &Text'
'MESSAGEOK "&Text&"'