Compucolor.org – Virtual Media

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

5 REM  PROGRAM 4.2
6 REM  CIRCLE AND SQUARE
10 PLOT 15,30,20,29,17,12:REM  SET COLOR;FLAG OFF;CLEAR SCREEN
20 PLOT 3,30,10:REM  POSITION CURSOR
29 REM  DRAW A CIRCLE
30 GOSUB 200
39 REM  INTERCHANGE FOREGROUND AND BACKGROUND COLORS
40 PLOT 6,12
50 PLOT 3,30,13:REM  POSITION CURSOR
59 REM  PRINT A SQUARE WITH A HOLE IN IT
60 GOSUB 200
70 END
199 REM
200 PLOT 116,117,10,26,26,118,119:RETURN