10   REM  ***************************************
15   REM  * NAME	COLORBAR		*
20   REM  * VERSION	3.20			*
25   REM  * DATE	07/07/87		*
30   REM  * MODIFIED BY S.Y. Wu 		*
35   REM  * *************************************
40   DEF SEG=&H40
45   IF ( PEEK(&H10) AND &H30 ) <> &H30 THEN GOTO 1700
50   CLS : LOCATE 3,1
55   PRINT CHR$(7);"*****  IMPROPER DISPLAY ADAPTOR  *****"
60   PRINT : END
1700 DEF SEG
1800 DSAM$="NO"
1900 GOTO 2005
2000 DSAM$="YES"
2005 KEY OFF:SCREEN 0,1:COLOR 15,0:WIDTH 40:CLS
2010 COLOR 7,0:CLS
2020 KEY OFF
2030 SCREEN 0,1
2040 WIDTH 40
2050 COLOR 0,0
2060 CLS
2070 FOR I = 0 TO 7
2080 FOR J=2 TO 11
2090 LOCATE J,I*5+1
2100 COLOR I,I:PRINT CHR$(219);CHR$(219);CHR$(219);
2110 NEXT J
2120 NEXT I
2130 LOCATE 12,1
2140 COLOR 15,0
2150 PRINT "blk  blue grn  cyan red  mag  brn white";
2160 LOCATE 13,1
2170 COLOR 15,0
2180 PRINT "                                       ";
2190 FOR I = 0 TO 7
2200 FOR J=14 TO 22
2210 LOCATE J,I*5+1
2220 COLOR I+8,I+8:PRINT CHR$(219);CHR$(219);CHR$(219);
2230 NEXT J
2240 NEXT I
2250 LOCATE 23,1
2260 COLOR 15,0
2270 PRINT "dark lght lght lght lght lght yel  int";
2280 LOCATE 24,1,0
2290 COLOR 15,0
2300 PRINT "grey blue grn  cyan red  mag      white";
2310 FOR X=1 TO 20000
2320 A$=INKEY$ : IF A$=CHR$(27) THEN 2350
2330 NEXT X
2340 SCREEN 0,1:IF DSAM$="YES" THEN CHAIN  "caf",2000 ELSE COLOR 7,0,0:width 80:key on:CLS
2350 SCREEN 0,1:IF DSAM$="YES" THEN CHAIN  "cafdemo" ELSE COLOR 7,0,0:width 80:key on:cls:end