Compucolor.org – Virtual Media

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