Compucolor.org – Virtual Media

Listing of file='12P4.BAS;01' on disk='vmedia/color_graphics_1_suits-sector.ccvf'

5 REM  PROGRAM 12.4
6 REM  RADAR SCOPE USING INCREMENTAL VECTOR PLOT
9
10 PLOT 6,6,12:REM  COLOR=CYAN; CLEAR SCREEN
20 PLOT 3,64,0:REM  HIDE CURSOR
30 PLOT 30:REM  FLAG ON
39
40 PLOT 2:REM  GENERAL PLOT MODE
48
49 REM  DRAW BORDER AROUND SWEEP AREA
50 PLOT 31,96,242,94,96,94,31,31,31,31,95
51 REM      THAT LAST NUMBER MUST BE 95. IF THE VECTOR
52 REM      WENT BACK TO 96, THE FIRST PLOT BLOCK OF THE
53 REM      BORDER WOULD BE ERASED BECAUSE THE FLAG IS ON
59
60 PLOT 255,6,2:REM  SET COLOR TO GREEN
68
69 REM  DRAW FIRST VECTOR
70 PLOT 2,63,63,242,32,95
79
80 PLOT 240:REM  INCREMENTAL VECTOR PLOT SUBMODE
86
87 REM  NOW THE 4 QUADRANT SWEEP
88
89 REM  QUADRANT I
90 FOR J= 0TO 60
100   PLOT 56:REM  INCREMENT & PLOT
110   PLOT 52:REM  DECREMENT & PLOT
120   PLOT 8:REM   INCREMENT WITHOUT DRAWING
130 NEXT
138
139 REM  QUADRANT II
140 FOR J= 0TO 62
150   PLOT 49,50,1
160 NEXT
168
169 REM  QUADRANT III
170 FOR J= 0TO 60
180   PLOT 52,56,4
190 NEXT
198
199 REM  QUADRANT IV
200 FOR J= 0TO 62
210   PLOT 50,49,2
220 NEXT
229
230 GOTO 90:REM  CONTINUE