CLS
'FOR n = 1 TO 70
'FOR h = 1 TO 1000
'NEXT h
'n$ = STR$(n)
INPUT n$
DIM r$(1000)
DIM c$(1000)
DIM f$(5)
DIM p$(1000)
DATA 1,3,5,7,9
FOR i = 1 TO LEN(n$)
r$(i) = MID$(n$, i, 1)
NEXT i
l = 1
FOR i = 1 TO LEN(n$)
a$ = MID$(r$(i), 1, l)
a = VAL(a$)
b = a \ 2
q = a \ 2
q1 = a / 2
q2 = q1 - q
IF q2 <> 0 THEN r$(i + 1) = "1" + r$(i + 1): l = 2
IF q2 = 0 THEN l = 1
b$ = STR$(b)
c$(i) = b$
NEXT i
t = 1
v$ = " "
IF MID$(n$, 1, 1) = "1" THEN t = 2: v$ = v$ + " "
FOR i = t TO LEN(n$)
y$ = y$ + c$(i)
NEXT i
FOR u = 1 TO 5
READ f$(u)
'IF MID$(n$, LEN(n$), 1) = "1" OR MID$(n$, LEN(n$), 1) = "3" OR MID$(n$, LEN(n$), 1) = "5" OR MID$(n$, LEN(n$), 1) = "7" OR MID$(n$, LEN(n$), 1) = "9" THEN y$ = y$ + ".5"
IF MID$(n$, LEN(n$), 1) = f$(u) THEN y$ = y$ + ".5"
NEXT u
FOR i = 1 TO LEN(y$)
w$ = MID$(y$, i, 1)
IF w$ = " " THEN w$ = ""
p$ = p$ + w$
'COLOR 2: PRINT w$;
NEXT i
v$ = v$ + p$
PRINT ""
PRINT v$
'NEXT n
'GOTO 1
CLS
'FOR n = 1 TO 70 'FOR h = 1 TO 1000 'NEXT h 'n$ = STR$(n) INPUT n$ DIM r$(1000) DIM c$(1000) DIM f$(5) DIM p$(1000) DATA 1,3,5,7,9 FOR i = 1 TO LEN(n$) r$(i) = MID$(n$, i, 1) NEXT i
l = 1 FOR i = 1 TO LEN(n$) a$ = MID$(r$(i), 1, l) a = VAL(a$) b = a \ 2 q = a \ 2 q1 = a / 2 q2 = q1 - q IF q2 <> 0 THEN r$(i + 1) = "1" + r$(i + 1): l = 2 IF q2 = 0 THEN l = 1 b$ = STR$(b) c$(i) = b$ NEXT i
t = 1 v$ = " " IF MID$(n$, 1, 1) = "1" THEN t = 2: v$ = v$ + " "
FOR i = t TO LEN(n$) y$ = y$ + c$(i) NEXT i FOR u = 1 TO 5 READ f$(u) 'IF MID$(n$, LEN(n$), 1) = "1" OR MID$(n$, LEN(n$), 1) = "3" OR MID$(n$, LEN(n$), 1) = "5" OR MID$(n$, LEN(n$), 1) = "7" OR MID$(n$, LEN(n$), 1) = "9" THEN y$ = y$ + ".5" IF MID$(n$, LEN(n$), 1) = f$(u) THEN y$ = y$ + ".5" NEXT u FOR i = 1 TO LEN(y$) w$ = MID$(y$, i, 1) IF w$ = " " THEN w$ = "" p$ = p$ + w$ 'COLOR 2: PRINT w$; NEXT i v$ = v$ + p$ PRINT "" PRINT v$ 'NEXT n 'GOTO 1