9 lines
210 B
Text
9 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
|