标题画图工具

　　首先运行以下程序：
　　10 SCREEN1.0:KEY OFF :CLS :DEFINT A_Z
　　20 DEF SEG=&HB800
　　30 BSAVE“HCJ.BAS，0，&H4000
　　40 END
　　得到一个名为HCJ_BAS的图形文件，然后用下面程序绘图(程序见后)。
　　左上角显示的是PSET语句中屏幕光点坐标当前值。“↓↑→←”四个键分别表示四个方向HOME、PGUP、END、PGDN这四个键分别表示四个对角线方向划线。按一次DEL键进入擦线状态，此时也可以移动光点，再按一次DEL键重新进入划线状态。
　　如果想继续画图或修改，只要再运行该程序即可。修改完毕，按Esc键即把所画图形存入HCJ.BAS文件中。
　　程序清单：
　　10 RAM ‘画图工具'
　　20 SCREEN 1.0: KEY　OFF :CLS:
　　DEEFINT A_Z
　　30 DEF SEG=&HB800
　　40 BLOAD “hcj.bas”
　　50 X=160: Y=100
　　60 NO=0: YES=NOT NO
　　70 I$=INKEY$
　　80 IF I$=CHR$(27) THEN 190
　　100 I=ASC(RIGHT$(1$，1))
　　110 IF I>70 AND I<74 THEN Y=Y-1
　　120 IF I>78 AND I<82 THEN Y=Y+1
　　130 IF I=71 OR I=75 OR I=79 THEN X=X-1
　　140 IF I=73 OR I=77 OR I=81 THEN X=X+1
　　150 IF I=83 THEN SWAP YES ，NO
　　160 PSET(X，Y )，1:LOCATE 1，1:PRINT X，Y
　　170 IF NO THEN PRESET(X，Y)
　　180 GOTO 70
　　190 DEF SEG=&.HB800
　　200 BSAVE“hcj.bas”，0，&H4000
　　210 END