10   REM  **************************************
15   REM  * NAME	COLORGRF	       *
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 CLS
2010 DEFINT A-Z
2020 SCREEN 1
2030 KEY OFF
2040 '-------------------------------------------
2050 SCREEN 1 : COLOR 1,0 : CLS
2060 FOR X=0 TO 319 : A=A+1
2070 LINE (X,0)-(319-X,199),(A MOD 3)
2080 A$=INKEY$ : IF A$=CHR$(27) THEN 2180
2090 NEXT X
2100 FOR X=1 TO 199 : A=A+1
2110 LINE (319,X)-(0,200-X),(A MOD 3)
2120 A$=INKEY$ : IF A$=CHR$(27) THEN 2180
2130 NEXT X
2140 '-------------------------------------------
2150 A$=INKEY$ : IF A$=CHR$(27) THEN 2180
2160 CNT=CNT+1 : IF CNT<2500 THEN 2150
2170 SCREEN 0,1:IF DSAM$="YES" THEN chain  "PIECHART",2000 ELSE COLOR 7,0,0:WIDTH 80:key on:CLS
2180 SCREEN 0,1:IF DSAM$="YES" THEN chain  "cafdemo" ELSE COLOR 7,0,0:WIDTH 80:key on:CLS