（董化）本程序可在中华学习机上实现用键盘绘制彩色图形，并可随时删改，使绘图方便灵活。
程序运行后进入高分辨绘图状态，屏幕中心有一光点。按I、M、J、K键，光点分别向上、下、左、右移动并留下轨迹。按T、G、Y、H键，光点分别向左上、左下、右上、右下移动。按O键，再按上述8个键就可删除图形，按L键则又可绘图。按R键，再按颜色代号（见下表）就可达到改变颜色的目的。结束绘图接E键。程序清单见后。
1 2 3 4 5 6
绿 紫 白 黑 橙 蓝
由于中华学习机高分辨率状态的彩色光点与X轴坐标的奇、偶数有关，绘图过程中若光点消失，按一下J或K键光点又会出现。在程序中加入相应语句就可实现对已绘图形存盘、打印等功能，有兴趣的读者可自行编制。
全屏幕彩色绘图程序清单
10 HGR2：N=3：HCOLOR=N
20 X=140：Y=95：B＄=“L”
30 HPLOT 0，0 TQ 279，0 TO 279,191 TO 0,191 TO 0，0
40 Z=PEEK（-16384）：IF I＞127 THEN
A＄=CHR＄（Z－128）：POKE-16368，0：
GOTO 80
50 HPLOT X，Y：HCOLOR=0：HPLOY X，Y：
HCOLOR=N
60 IF B＄=“L” THEN HPLOT X，Y
70 GOTO 40
80 IF A＄=“R”THEN GET N＄：N=VAL
（N＄）
90 IF A＄=“T”THEN X=X-1：Y=Y－1：
GOTO 40
100 IF A＄=“G” THEN X=X－1：Y=
Y＋1：GOTO 40
110 IF A＄=“H” THEN X=X＋1：Y=Y＋1：
GOTO 40
120 IF A＄=“Y” THEN X=X＋1：Y=Y＋1：
GOTO 40
130 IF A＄=“I” THEN Y=Y－1：GOTO 40
140 1F A＄=“J”THEN X=X－1 GOTO 40
150 IF A＄=“K”THEN X=X＋1：GOTO 40
160 IF A＄=“M” THEN Y=Y＋1：GOTO 40
170 IF A＄=“L” OR A＄=“O” THEN B＄=
A＄： GOTO 40
180 IF A＄=“E” THEN TEXT：END
190 CALL－198：GOTO 40