Compucolor.org – Virtual Media

Listing of file='6P5.BAS;01' on disk='vmedia/color_graphics_2_suits-sector.ccvf'

5 REM  PROGRAM 6.5
6 REM  TESTING THE PSUEDO-RANDOM NUMBER GENERATOR
10 PLOT 15,6,6,12:REM  SET UP
20 PLOT 2:REM  GENERAL PLOT MODE
30 FOR J= 1TO 2000
40   X= 128* RND (1):Y= 128* RND (1)
50   PLOT X,Y
60 NEXT
70 PLOT 255