Listing of file='FABRIC.BAS;01' on disk='vmedia/ncc_5-sector.ccvf'
3000 DEF FN A(X)= INT (127* RND (X)) 3010 DEF FN B(X)= INT (7* RND (X)) 3020 DEF FN C(X)= INT (FN B(0)+ 4* FN B(1)) 3030 PLOT 255 3040 PLOT 6,FN A(1) 3050 PLOT 12,2,63,63 3060 PLOT 251 3070 A= 0 3080 FOR N= 1TO A:PLOT 136:NEXT 3090 A= A+ 1 3100 FOR N= 1TO A:PLOT 34:NEXT 3110 PLOT 255,6,FN B(1),2,251 3120 A= A+ 1 3130 FOR N= 1TO A:PLOT 68:NEXT 3140 A= A+ 1 3150 FOR N= 1TO A:PLOT 17:NEXT 3160 A= A+ 1 3170 IF A< 63THEN GOTO 3080 3180 GOSUB 3200 3190 PLOT 255:GOTO 3040 3200 PLOT 255 3210 PLOT 6,FN A(1):PLOT 2,251 3220 FOR N= ATO 0STEP - 1:PLOT 170:NEXT 3230 FOR N= ATO 0STEP - 1:PLOT 153:NEXT 3240 FOR N= ATO 0STEP - 1:PLOT 85:NEXT 3250 FOR N= ATO 0STEP - 1:PLOT 102:NEXT 3260 A= A- 1 3270 IF A< 1THEN GOTO 3030 3280 PLOT 255 3290 GOTO 3210