21 lines
341 B
Plaintext
21 lines
341 B
Plaintext
10 DEFINT A-Z
|
|
20 FOR B=2 TO 5
|
|
30 PRINT USING "BASE #:";B;
|
|
40 FOR I=0 TO 9
|
|
50 P=0: Q=1: N=I
|
|
60 IF N=0 GOTO 110
|
|
70 P=P*B+N MOD B
|
|
80 Q=Q*B
|
|
90 N=N\B
|
|
100 GOTO 60
|
|
110 X=P: Y=Q
|
|
120 IF P=0 GOTO 150
|
|
130 N=P: P=Q MOD P: Q=N
|
|
140 GOTO 120
|
|
150 X=X\Q
|
|
160 Y=Y\Q
|
|
170 IF X=0 THEN PRINT " 0"; ELSE PRINT USING " ##/##";X;Y;
|
|
180 NEXT I
|
|
190 PRINT
|
|
200 NEXT B
|