画图工具

陕西  胡昌举
1992-06-26

        首先运行以下程序：
        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
 
 