Compucolor.org – Virtual Media

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

5 REM  PROGRAM 3.2
6 REM  INTERACTION OF VISIBLE & BLIND CURSOR
10 PLOT 6,6,12:REM  SET COLOR & CLEAR SCREEN
20 PLOT 3,64,0:REM  HIDE THE VISIBLE CURSOR
21 REM  (WHO NEEDS TO HIDE A BLIND CURSOR?)
30 FOR J= 1TO 15
40   PLOT 3,127:REM  BLIND CURSOR MODE
50   PLOT J,J,1:REM  BLIND CURSOR X,Y; CCI CODE=RED
60   PRINT "LINE"J;
70   FOR  K= 1TO 200:NEXT :REM  PAUSE
80 NEXT
90 PLOT 27,27:REM  BACK TO VISIBLE CURSOR