Compucolor.org – Virtual Media

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

5 REM  PROGRAM 1.7
6 REM  DRAWING A BORDER
10 PLOT 15,6,6:REM  SELECT REGULAR HEIGHT; SET COLOR
20 PLOT 12:REM  CLEAR SCREEN
30 PLOT 27,24:REM  PAGE MODE
40 PLOT 6,8:REM  SET BACKGROUND COLOR TO RED
50 PLOT 11:REM  ERASE THE TOP LINE (I.E., MAKE IT RED)
60 PLOT 3,0,31:REM  MOVE THE CURSOR TO BOTTOM OF SCREEN
70 PLOT 11:REM  ERASE BOTTOM LINE IN RED
80 PLOT 8:REM  HOME CURSOR
90 PLOT 27,10:REM  VERTICAL MODE
100 PRINT SPC( 32)"":REM  DRAW A LINE IN RED
110 PLOT 3,63,0:REM  POSITION CURSOR AT TOP OF RIGHT HAND CORNER
120 PRINT SPC( 32)"":REM  DRAW A LINE
130 PLOT 8:REM  HOME CURSOR AGAIN
140 PLOT 27,11:REM  SCROLL MODE
150 PLOT 6,3:REM  BACK TO A MANAGEABLE COLOR