Listing of file='TWIST.BAS;01' on disk='vmedia/ncc_5-sector.ccvf'
10 PLOT 12 15 CLEAR 100 A= INT (RND (1)* 127) 150 B= INT (RND (1)* 127) 200 C= INT (RND (1)* 127) 250 D= INT (RND (1)* 127) 300 E= INT (RND (1)* 127) 350 F= INT (RND (1)* 127) 500 PLOT 2,A,B,242,C,D,E,F,A,B,255 600 A= A+ 4 610 B= B- 2 620 C= C- 2 630 D= D- 2 640 E= E- 2 650 F= F- 2 1000 IF A= 0THEN 2000 1010 IF B= 0THEN 2000 1020 IF C= 0THEN 2000 1030 IF D= 0THEN 2000 1040 IF E= 0THEN 2000 1050 IF F= 0THEN 2000 1400 IF A< 2OR B< 2OR C< 2OR D< 2OR E< 2OR F< 2THEN 2000 1500 GOTO 500 2000 FOR I= 1TO 1000:NEXT 2010 GOTO 10