100H:
BDOS: PROCEDURE (FN, ARG); DECLARE FN BYTE, ARG ADDRESS; GO TO 5; END BDOS;
EXIT: PROCEDURE; CALL BDOS(0,0); END EXIT;
PRINT: PROCEDURE (S); DECLARE S ADDRESS; CALL BDOS(9,S); END PRINT;

DECLARE SPAM    DATA ('SPAM',0DH,0AH,'$');

LOOP:  DO;

        CALL PRINT( .SPAM );
        GO TO LOOP;

END;
EOF