汉字移动显示程序

浙江 冯惠民
1992-07-10

        程序运行时逐个演示移动类型,每演示完一种类型,发出“都”声提示,并即刻进入下一类型演示。
        10 A$="欢迎使用汉字移动演示程序,谢谢!”
        20 A=LEN(A$):B=33:C$=CHR$(7)
        30 FOR I=4 TO A STEP 4:C=B-2
        40 B$=LEFT$(A$,I):VTRB 3:HTABC:PRINT B$
        50 B=C:FOR J=1 TO 100:NEXT J,I:PRINT C$
        60 FOR I=4 TO A STEP 4
        70 B$=RIGHT$(A$,I):VTAB 5:PRINT B$
        80 FOR J=1 TO 100:NEXT J,I:PRINT A$
        90 FOR I=0 TO 32:VTAB 7:PRINT A$
        100 A$=RIGHT$(A$,A-4)+LEFT$(A$,4)
        110 FOR J=1 TO 50:NEXT J,I:PRINT C$
        120 FOR I=0 TO 33:VTAB 9:PRINT A$
        130 A$=RIGHT$(A$,4)+LEFT$(A$,A-4)
        140 FOR J=1 TO 50:NEXT J,I:PRINT C$
        改动50,80,110,140语句中的数字,可以改变移动速度;将其中的PRINT C$改成RETURN,则能作为子程序调用,使之能用于任何程序之中。
        本程序用于中华学习机时,由于该机的汉字均以等长的3字节码保存在主机的内存中,故将程序中出现的数字4改成3即可运行。
 
 