REM to convert decimal to octal DECLARE SUB D2O (D) CLS INPUT "DECIMAL"; D CALL D2O(D) END SUB D2O (D) O$ = OCT$(D) PRINT O$ END SUB