应用QBASIC编制动画一例
ＧＥＴ和ＰＵＴ的应用格式如下：
ＧＥＴ （Ｘ１，Ｙ１）－（Ｘ２，Ｙ２），数组名
ＰＵＴ （Ｘ，Ｙ），数组名［，粘贴格式］
其中粘贴方式有如下五种方式：
ＰＳＥＴ：照原样粘贴
ＰＲＥＳＥＴ：原图取反后粘贴
ＡＮＤ：原图与现图作与运算后，保留共同部分，再显示
ＯＲ：原图与现图作或运算后，保留现图（背景），再显示
ＸＯＲ：原图与现图作异或运算后，清除原图，保留现图，再显示
其余参数的设置参见有关书籍，在此不再详述。
假如有一字符串“清屏模拟显示”，从屏幕的左端显示出来，逐渐向右移动，到屏幕右端后弹回，又向左移动，来回循环移动，每循环一次，屏幕的背景变换一次颜色，颜色循环１４次以后，程序停止运行。操作步骤如下：
１．定义数组的ＩＧ（Ｎ）为整数型。
２．利用ＵＣＤＯＳ的特殊显示功能造出一个４０×４０点阵的汉字串，并存储到数组ＩＧ（Ｎ）和文件Ｆ．ＤＡＴ中，以备其它程序调用。
３．读数据文件Ｆ．ＤＡＴ到数组ＩＧ（Ｎ）中，如果在同一个程序中有步骤２的话，则可以省略这一步。
４．设置循环体，改变背景的颜色。
程序清单如下：
Ｎ＝３１８４ “定义数组的大小”
ＤＩＭＩＧ（１ ｔｏ Ｎ） ＡＳ ＩＮＴＥＧＥＲ “定义数组”
ＯＰＥＮ ＂ＬＰＴ３：＂ ＦＯＲ ＯＵＴＰＵＴ ＡＳ ＃２
ＬＯＣＡＴＥ １０，１０：ＰＲＩＮＴ ＃２，ＣＨＲ＄（１４）；“［｛－１６０｜７０＠４０，４０）１（４清屏模拟显示｝
ＣＬＯＳＥ ＃２
ＧＥＴ（１６０，７２）－（４９９，１０８），ＩＧ “读取数据到数组ＩＧ中”
ＰＵＴ（１００，２００），ＩＧ
ＯＰＥＮ ＂Ｆ．ＤＡＴ＂ ＦＯＲ ＯＵＴＰＵＴ ＡＳ ＃２ “将数组写到磁盘文件Ｆ．ＤＡＴ中”
ＦＯＲ Ｉ＝１ ＴＯ Ｎ
ＰＲＩＮＴ ＃２，ＩＧ（Ｉ）
ＮＥＸＴ Ｉ
ＣＬＯＳＥ ＃２
ＯＰＥＮ ＂Ｆ．ＤＡＴ＂ ＦＯＲ ＩＮＰＵＴ ＡＳ ＃１ “打开数据文件Ｆ．ＤＡＴ”
ＦＯＲ Ｉ＝１ ＴＯ Ｎ
ＩＮＰＵＴ ＃１，ＩＧ（Ｉ）“读数据到数组ＩＧ中”
ＮＥＸＴ Ｉ
ＣＬＯＳＥ ＃１
ＦＯＲ Ｃ＝１ ＴＯ １４ “设置颜色循环体”
ＰＡＩＮＴ （１０，１０），Ｃ “给屏幕着底色”
Ｘ＝０
ＦＯＲ Ｉ＝１ ＴＯ ２９８ “从左到右显示”
Ｘ＝Ｘ＋１
ＰＵＴ （Ｘ，１００），ＩＧ，ＰＳＥＴ
ＮＥＸＴ Ｉ
Ｘ＝２９８
ＦＯＲ Ｉ＝３１０ ＴＯ １４ ＳＴＥＰ －１ “从右到左显示”
Ｘ＝Ｘ－１
ＰＵＴ （Ｘ，１００），ＩＧ，ＰＳＥＴ
ＮＥＸＴ Ｉ
ＮＥＸＴ Ｃ
ＥＮＤ
同理，依上述方法还可以编制出各种各样的动画，诸如弹性碰撞的小球、星星、跳跃前进的画面等等，只要你巧加利用，一定会使你的程序锦上添花。