推荐一个小应用程序

Author: 辽宁张强 Date: 1993-04-02

        本程序打印字体和字型的变化，是用AA来代表ASCII的数值，通过对AA变量ASCII码数值的控制，达到改变字体和字型的目的。在这里当AA=65时，ASCII码65是大写的“A”；当AA=97时，ASCII码的97是小写的“a”。对于ASCII码值的控制，可参考ASCII码表进行调整。也可以采用BASIC语言编程实现。
        附：计算机内字体打印应用程序。
        SET  TALK  OFF
        SET  DEVI  TO  SCRE
        DD=1
        DO  WHILE.T.
        DO  CASE
        CASE  DD=1
        AA=65
        CASE  DD=2
        AA=97
        CASE  DD=3
        EXIT
        ENDCASE
        DO  WHILE .T.
        SET  DEVI  TO  PRINT
        BB=CHR(AA)
        M=PROW()
        @  M，1  SAY  CHR(27)＋'I&BB'
        @  M＋1，0  SAY  '&BB朝阳电业局计划科计算机'
        AA=AA＋1
        M=M＋1
        IF  AA＞84.AND.DD=1.  OR.AA〉116.AND.DD=2
        EXIT
        ENDIF
        ENDDO
        @  M＋2，4  SAY
        DD=DD＋1
        ENDDO
        SET  DEVI  TO  SCRE
        RETU
        (辽宁  张强)