10 DIM A$(50): DIM C$(50): DIM C(50): DIM D(50)
20 PRINT "QUESTO  PROGRAMMA CALCOLA  LA SOMMA DEI CUBI DELLE CIFRE"
30 PRINT "DEL  NUMERO DIGITATO, E POI LA SOMMA DEI CUBI DEL NUMERO"
40 PRINT "OTTENUTO, FINO AD AVERE GLI ULTIMI DUE RISULTATI UGUALI."
50 PRINT "IL RISULTATO FINALE E' QUASI SEMPRE UNO DI QUESTI NUMERI:"
60 PRINT "1, 153,  370,  371,  407, OPPURE SEQUENZE CICLICHE  COME:"
70 PRINT "919-1459; 133-55-250; 160-217-352; 136-244":PRINT:PRINT
80 INPUT "DIGITA UN NUMERO DI QUALUNQUE LUNGHEZZA"; A$
90 '
100 B=LEN (A$)
110 S=0
120 FOR X=1 TO B
130 C$(X)=MID$(A$,X,1)
140 C(X) = VAL(C$(X))
150 D(X) = C(X)^3
160 S = S + D(X)  'somma dei cubi delle cifre di A$
170 NEXT X
180 PRINT S;: PRINT "  ";
190 IF S=M THEN END
200 M = S
210 A$ = STR$(S)
220 FOR Y=1 TO 1000000!: NEXT Y
230 GOTO 100