14 lines
309 B
Text
14 lines
309 B
Text
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
|