Count in octal: Difference between revisions
Content added Content deleted
(→{{header|Rust}}: Update to current Rust 0.9-pre syntax) |
(BASIC | Applesoft BASIC) |
||
| Line 150: | Line 150: | ||
See also: [[#BBC BASIC|BBC BASIC]], [[#Liberty BASIC|Liberty BASIC]], [[#PureBasic|PureBasic]], [[#Run BASIC|Run BASIC]] |
See also: [[#BBC BASIC|BBC BASIC]], [[#Liberty BASIC|Liberty BASIC]], [[#PureBasic|PureBasic]], [[#Run BASIC|Run BASIC]] |
||
==={{header|Applesoft BASIC}}=== |
|||
<lang ApplesoftBasic>10 N$ = "0" |
|||
100 O$ = N$ |
|||
110 PRINT O$ |
|||
120 N$ = "" |
|||
130 C = 1 |
|||
140 FOR I = LEN(O$) TO 1 STEP -1 |
|||
150 N = VAL(MID$(O$, I, 1)) + C |
|||
160 C = N >= 8 |
|||
170 N$ = STR$(N - C * 8) + N$ |
|||
180 NEXT I |
|||
190 IF C THEN N$ = "1" + N$ |
|||
200 GOTO 100</lang> |
|||
=={{header|BBC BASIC}}== |
=={{header|BBC BASIC}}== |
||