19 lines
484 B
Text
19 lines
484 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;
|
|
PUT$CHAR: PROCEDURE (CH); DECLARE CH BYTE; CALL BDOS(2, CH); END PUT$CHAR;
|
|
PRINT: PROCEDURE (S); DECLARE S ADDRESS; CALL BDOS(9, S); END PRINT;
|
|
|
|
DECLARE I BYTE;
|
|
DO I='0' TO '9';
|
|
CALL PUT$CHAR(I);
|
|
CALL PRINT(.' IS $');
|
|
IF I THEN
|
|
CALL PRINT(.'ODD$');
|
|
ELSE
|
|
CALL PRINT(.'EVEN$');
|
|
CALL PRINT(.(13,10,'$'));
|
|
END;
|
|
|
|
CALL EXIT;
|
|
EOF
|