61120 REM 61120BIN$        UZ/UZ$/UA,UB,UC
61121 UZ$="":UB=0:UC=UZ:FORUA=7TO0STEP-1:UB=INT(UC/2^UA)
61122 UZ$=UZ$+CHR$(48+UB+7*-(UB>9)):UC=UC-UB*2^UA:NEXT:RETURN