Listing of file='MODULO.BAS;01' on disk='vmedia/isc_demos-sector.ccvf'
20 OUT 8,199:POKE 33278,0:GOTO 107 30 PLOT 27,88,15,3,63,31,6,6,31,46,15,6,0,3,64,0:OUT 8,207 40 FOR I= 1TO 100:A= PEEK (33278):IF A= 13THEN OUT 8,207:PLOT 27,88,15,6,0,3,63,31,32,3,64,0:LOAD "MENU":RUN 50 IF A= 32THEN 20 60 IF A= 72OR A= 104THEN OUT 8,199:PLOT 6,2,12,15,29:PRINT "LOADING DEMO INSTRUCTIONS...":PLOT 3,64,0:LOAD "HELP":RUN 70 NEXT I:OUT 8,199:IF PEEK (33284)= 1THEN PLOT 27,88,15,6,0,3,63,31,32,3,64,0:LOAD "CLSQST":RUN 100 REM COLORCUE VOL. 3, NO. 2, FEB 80 105 REM ** MODIFIED FOR COLOR ** 107 PLOT 15,30,16,29,18,12,27,24 108 CLEAR 500 110 DIM A(29,29) 120 FOR M= 4TO 8 130 A(1,1) = 1 140 A(2,1) = 1 150 A(2,2) = 1 155 PLOT 30,16,12 160 FOR X= 1TO 29 170 PRINT :PRINT TAB( 29- 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 NEXT M 280 GOTO 30