home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1990 July
/
64er_Magazin_90-07_1990_Markt__Technik_de_Side_A.d64
/
61110hex$
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
141b
|
4 lines
61110 rem 61110hex$ uz/uz$/ua,ub,uc
61111 uz$="":ub=0:uc=uz:forua=3to0step-1:ub=int(uc/16^ua)
61112 uz$=uz$+chr$(48+ub+7*-(ub>9)):uc=uc-ub*16^ua:next:return