Compucolor.org – Virtual Media

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

5 REM  PROGRAM 6.25
6 REM  PLOTTING CHARACTER STRINGS
10 PLOT 6,6,12:REM  SET UP
20 PLOT 30:REM  FLAG ON
29
30 FOR J= 1TO 500
40   PLOT 6,64* RND (1):REM  SELECT ARBITRARY COLOR
50   PLOT 2:REM  GENERAL PLOT MODE
60   PLOT 251:REM  INCREMENTAL POINT PLOT SUBMODE
70   PRINT 1000* - COS (RND (1));
80   PLOT 255
90 NEXT
99
100 GOTO 30