Compucolor.org – Virtual Media

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