RosettaCodeData/Task/Get-system-command-output/BaCon/get-system-command-output.b...

5 lines
111 B
Plaintext

' Get system command
result$ = EXEC$("fortune")
PRINT CHOP$(result$)
PRINT "First word: " & TOKEN$(result$, 1)