' Extraktion von Ziffern

DO
  INPUT "Zahl"; z%
LOOP UNTIL z% > 0

' Variante 1: ber String
s$ = STR$(z%)
FOR i% = 2 TO LEN(s$)
  PRINT MID$(s$, i%, 1)
NEXT i%

' Variante 2: Herausdividieren
h% = z%
WHILE h% > 0
 PRINT h% MOD 10
 h% = h% \ 10
WEND