GAMEPAD 1 MONEY = 1 FORMATIN = 0 FORMATOUT$ = "" GLOBAL FORMATIN GLOBAL FORMATOUT$ DO FORMATIN = MONEY CALL FORNUMBER TEXT 1, 8, FORMATOUT$ IF BUTTON(0,0) THEN MONEY = MONEY + 1 END IF WAIT 1 LOOP SUB FORNUMBER DIM SUFFIX$(6) SUFFIX$(1) = "K" SUFFIX$(2) = "M" SUFFIX$(3) = "B" SUFFIX$(4) = "T" SUFFIX$(5) = "Q" LOG10 = LOG(FORMATIN) / LOG(10) IF FORMATIN < 10000 THEN FORMATOUT$ = STR$(INT(FORMATIN)) ELSE IF FORMATIN < 10^18 THEN INDEX = INT(LOG10 / 3) MAN = FORMATIN / (10^(INDEX * 3)) ORDERMAN = INT(LOG(MAN) / LOG(10)) ROUNDFACTOR = (10^ ABS(ORDERMAN - 2)) ROUND = INT(MAN * ROUNDFACTOR) / ROUNDFACTOR FORMATOUT$ = STR$(ROUND) + SUFFIX$(INDEX) ELSE MAN = FORMATIN / (10 ^ INT(LOG10)) ROUND = INT(MAN * 100) / 100 FORMATOUT$ = STR$(ROUND) + "E" + STR$(INT(LOG10)) END IF IF LEN(FORMATOUT$) < 7 THEN REPEAT FORMATOUT$ = FORMATOUT$ + " " UNTIL LEN(FORMATOUT$) >= 7 END IF END SUB