汉卡打印字形的扩充

周勃
1992-01-31

        10 DATA  2，0，18，16，34，32，60，48 3，1，19，17，35，33，51，49/原有字形/
        20 DATA 6，4，22，20，38，36，54，52 7，5，23，21，39，37，55，53/增加字形/
        30 POKE 37666，D：PRINT CHR$(4);"PR#3"
        40 POKE 54，189：POKE 55，158
        50 POKE 56，129：POKE 57，158
        60 CALL 19941： PRINT：POKE 1403，1
        70 POKE 1659，50：POKE 1915，6：POKE 1787，8
        80 PRINT“《汉字字形选择表》”：PRINT“”
        90 FORI=1 TO 32：READ T
        100 K=T-4*INT(T/4):M=2
        110 IF K>1 AND T<24 THEN M=10
        120 POKE 1915,M:POKE 1659;T
        130 PRINT;T;
        140 IF T<24 THEN PRINT"":
        150 PRING "汉卡字形选择"
        160 IF I=8*INT(I/8)THEN PRI
 
 