Listing of file='12P1.BAS;01' on disk='vmedia/color_graphics_1_suits-sector.ccvf'
5 REM PROGRAM 12.1 6 REM CONVERGING BORDERS 10 DEF FN R(X)= INT (48* RND (1))+ 1 20 PLOT 15,6,6,12,27,24 29 30 FOR J= 1TO 15 40 GOSUB 100 50 NEXT 59 60 GOTO 30 98 99 100 PLOT 6,FN R(X) 109 110 PLOT 3,J,J 120 PRINT SPC( 64- J- J)"" 129 130 PLOT 3,J,31- J 140 PRINT SPC( 64- J- J)"" 149 150 PLOT 27,10 160 PLOT 3,J,J 170 PRINT SPC( 32- J- J)"" 179 180 PLOT 3,63- J,J 190 PRINT SPC( 32- J- J)"" 199 200 PLOT 27,24 210 RETURN