15 lines
419 B
Text
15 lines
419 B
Text
;
|
|
; Hello world for DBL version 4 by Dario B.
|
|
;
|
|
PROC
|
|
;------------------------------------------------------------------
|
|
XCALL FLAGS (0007000000,1) ;Suppress STOP message
|
|
|
|
OPEN (1,O,'TT:')
|
|
WRITES (1,"Hello world")
|
|
|
|
DISPLAY (1,"Hello world",10)
|
|
DISPLAY (1,$SCR_MOV(-1,12),"again",10) ;move up, right and print
|
|
|
|
CLOSE 1
|
|
END
|