Listing of file='2P8.BAS;01' on disk='vmedia/color_graphics_1_suits-sector.ccvf'
5 REM PROGRAM 2.8 6 REM MYSTERY PROGRAM 10 PLOT 15,6,6,12,27,24 20 J= - 1 30 FOR L= 1TO 63 40 PLOT 6,L 50 J= J+ 1:IF J> 15THEN J= 0 60 PLOT 3,J,J 70 FOR K= 1TO 64- J- J:PLOT 96:NEXT 80 PLOT 26 90 PLOT 27,10 100 FOR K= 1TO 32- J- J:PLOT 96:NEXT 110 PLOT 27,24,28 120 FOR K= 1TO 63- J- J:PLOT 26,96,26:NEXT 130 PLOT 27,10 140 FOR K= 1TO 31- J- J:PLOT 28,96,28:NEXT 150 PLOT 27,24 160 NEXT 170 PLOT 6,2 180 END