RosettaCodeData/Task/Execute-a-system-command/ALGOL-68/execute-a-system-command-2.alg
Ingy döt Net 764da6cbbb CDE
2013-04-10 16:57:12 -07:00

5 lines
162 B
Text

OP ! = (STRING cmd)BOOL: system(cmd) = 0;
IF ! "touch test.tmp" ANDF ( ! "ls test.tmp" ANDF ! "rm test.tmp" ) THEN
print (("test.tmp now gone!", new line))
FI