Listing of file='MODULO.BAS;01' on disk='vmedia/colorcue-sector.ccvf'
100 REM COLORCUE VOL. 3, NO. 2, FEB 80 105 REM ** MODIFIED FOR COLOR ** 110 DIM A(31,31) 120 INPUT "WHAT MODULUS ? ";M 125 IF M> 8 GOTO 120 130 A(1,1) = 1 140 A(2,1) = 1 150 A(2,2) = 1 155 PLOT 30,16,12 160 FOR X= 1 TO 31 170 PRINT : PRINT TAB( 31- X); 180 FOR J= 1 TO X 190 IF J= 1 OR X= J THEN A(X,J)= 1: GOTO 210 200 A(X,J) = A(X- 1,J)+ A(X- 1,J- 1) 210 R = A(X,J)- INT (A(X,J)/ M)* M 240 PLOT 30,R+ 16,32,32,30,16 250 NEXT J 260 NEXT X 270 PLOT 3,0,0:END