10 lines
210 B
Text
10 lines
210 B
Text
|
INSTALL @lib$+"HIMELIB"
|
||
|
|
PROC_himeinit("")
|
||
|
|
reg% = 1
|
||
|
|
|
||
|
|
PROC_hiputdec(reg%, "0")
|
||
|
|
REPEAT
|
||
|
|
SYS `hi_Incr`, ^reg%, ^reg%
|
||
|
|
PRINT TAB(0,0) FN_higetdec(reg%);
|
||
|
|
UNTIL FALSE
|