10 lines
259 B
Text
10 lines
259 B
Text
0 N = 5: GOSUB 1:N = 50: GOSUB 1:N = 9000: GOSUB 1: END
|
|
1 LET N2 = ABS ( INT (N))
|
|
2 LET B$ = ""
|
|
3 FOR N1 = N2 TO 0 STEP 0
|
|
4 LET N2 = INT (N1 / 2)
|
|
5 LET B$ = STR$ (N1 - N2 * 2) + B$
|
|
6 LET N1 = N2
|
|
7 NEXT N1
|
|
8 PRINT B$
|
|
9 RETURN
|