1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   POTAVTV]
3 REM ! Utg}va  1      1981-01-??
4 REM ! av (c) ]ke Stenhardt
7 REM ! Minne 16 Kbytes
8 REM ! Ins{nt av TOJ
9 REM +++++++++++++++++++++++++++++++++
10 REM Ber{knar potensen av tv}.
20 ; CHR$(12)
30 DIM N%(600%),M%(600%)
40 ; "     P O T E N S E R    A V   T V ]" : ; "     ==============================" : ; : ; 
50 ; "POTENS"; : INPUT P%
60 IF P%>=100 THEN P=P%/10 : M=P*P*.176+1 : M%=M/60% : S%=M-60%*M% : ; "(Det tar";M%;" min. och";S%;" sek.)"
70 ; : ; "        2 UPPH\JT TILL ";P%;"  BLIR" : ; 
80 R%=.302*P%+2%
90 N%(1%)=1%
100 FOR L%=1% TO P%
110 FOR J%=1% TO R%
120 M%(J%+1%)=N%(J%)*2%/10%
130 N%(J%)=N%(J%)*2%+M%(J%)
140 IF N%(J%)<10% THEN 160
150 N%(J%)=N%(J%)-10%
160 NEXT J%
170 IF L%<P% THEN 320
180 FOR K%=R% TO 1% STEP -1%
190 IF A=0 AND N%(K%)=0 THEN ; "*"; : GOTO 250
200 IF N%(K%)<>0 THEN A=1
210 ; CHR$(N%(K%)+48%);
220 FOR Z%=0% TO 9%
230 IF N%(K%)=Z% THEN Y%(Z%)=Y%(Z%)+1%
240 NEXT Z%
250 NEXT K%
260 ; : ; : ; "TALET BEST]R AV" : ; 
270 FOR C%=0 TO 9%
280 ; Y%(C%);" st";C%;"-or",
290 S1%=S1%+Y%(C%)
300 NEXT C%
310 ; : ; "eller tillhopa";S1%;" siffror" : A=0
320 NEXT L%