Compucolor.org – Virtual Media

Listing of file='COVER.BAS;01' on disk='vmedia/demos-sector.ccvf'

5 REM  FUNCTION ROUTINE USED FOR COVER DESIGN
20 PLOT 12,6,3,2,0,0,242,30,50,30,127,30,50,127,50,255,6,6,2
30 FOR I= 0TO 50STEP 2
40 FOR J= ITO 127
50 Z= J:X= I+ J:Y= .5* X* SIN (X/ 10)* COS (Z/ 20):Y= ABS (Y)
60 PLOT J,Y+ I
70 NEXT J:NEXT I