Listing of file='TOTOM.BAS;01' on disk='vmedia/taylor-sideA-sector.ccvf'
2 REM @@@ INFINITE GRAPHICS BY HARLAN HOWARD 3 REM @@@ ENTER ANY NUMBER FOR 'STEP'. TRY 2 OR 9.1 ETC. 4 REM @@@ THE LOWER THE NUMBER THE MORE COMPLEX THE PATTERN 5 X= 24 6 S= 24 7 X1= 48 10 PLOT 6,0,12 15 FOR B= 20TO 120STEP 10 20 PLOT 2,X1,B,255 25 IF A> 155THEN A= 1 30 FOR X= ATO 255STEP S 35 PLOT 6,(A+ 16)/ 16 40 PLOT 2,251,X,255 50 A= A+ 16:NEXT X 60 NEXT B 70 INPUT "STEP? - (A ZERO CLEARS SCREEN) ";S 72 PLOT 28,11 74 IF S< 1THEN GOTO 5 75 X1= X1+ 15 80 GOTO 15