Compucolor.org – Virtual Media

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