|
10 DEFINT A-Z
|
|
20 FOR N=-99 TO 100
|
|
30 GOSUB 100: PRINT USING "########";L;
|
|
40 NEXT
|
|
50 END
|
|
100 L=0: F=3: Z=ABS(N)
|
|
110 IF Z<2 THEN RETURN
|
|
120 IF Z MOD 2=0 THEN L=L+N\2: Z=Z\2: GOTO 120
|
|
130 IF F>Z THEN RETURN
|
|
140 IF Z MOD F=0 THEN L=L+N\F: Z=Z\F: GOTO 140
|
|
150 F=F+2
|
|
160 GOTO 130
|