10
20
30
40
50 :
60
70
80 :
90
100 DEFFNh0(A%,N%):=RIGHT$("0000000"+STR$~A%,N%)
110 :
120
130 DEFFNh(A%,N%):=RIGHT$(" "+STR$~A%,N%)
140 :
150
160 DEFFNd0(A%,N%):=RIGHT$("00000000"+STR$A%,N%)
170 :
180
190 DEFFNd(A%,N%):=RIGHT$(" "+STR$A%,N%)
200 :
210
220 DEFFNo0(A%,N%):LOCAL A$,B%,L%:IFA%<0:B%=2:A%=A%AND&7FFFFFFF
230 REPEATA$=STR$(A%AND7)+A$:A%=A%DIV8:L%=L%+3:UNTILL%>27:=RIGHT$(STR$(A%+B%)+A$,N%)
240 :
250
260 DEFFNo(A%,N%):LOCAL A$:IFA%<0:=FNo0(A%,N%)
270 REPEATA$=STR$(A%AND7)+A$:A%=A%DIV8:UNTILA%=0:=RIGHT$(STRING$(N%," ")+A$,N%)
280 :
290
300 DEFFNb0(A%,N%):LOCAL A$,B$,L%:B$="0":IFA%<0:B$="1":A%=A%AND&7FFFFFFF
310 REPEATA$=STR$(A%AND1)+A$:A%=A%DIV2:L%=L%+1:UNTILL%>30:=RIGHT$(B$+A$,N%)
320 :
330
340 DEFFNb(A%,N%):LOCAL A$:IFA%<0:=FNb0(A%,N%)
350 REPEATA$=STR$(A%AND1)+A$:A%=A%DIV2:UNTILA%=0:=RIGHT$(STRING$(N%," ")+A$,N%)
360 :
370
380 DEFFNdrv(A%):=CHR$(48+A%-7*(A%>9))
390 :
400
410 DEFFNDrv(A$):=ASCA$-48+7*(A$>"9")AND31
420 :