怎样把PCX图形转换成BASIC图形
１．先启动ＵＣＤＯＳ及其特显功能，然后在ＱＢＡＳＩＣ或ＴＵＲＢＯ ＢＡＳＩＣ的显示模式９下，显示一个ＰＣＸ图形。
２．利用读取指定点色值的函数ＰＯＩＮＴ，读取屏幕上的色值并把色值存入一个数组中（此时你得耐心等待）。
３．改变显示模式为１，因为只有在模式１下保存的ＢＡＳＩＣ图形在重新显示时最好。但模式１的分辨率太低，需人为改为高分辨率，对此可用设置当前视窗相对坐标的语句ＷＩＮＤＯＷ将视窗坐标设置为６４０列、３４０行，为的是与显示ＰＣＸ图形时的列数、行数一致。
４．用画点语句ＰＳＥＴ将色值数组中的颜色画到屏幕上，并用ＢＳＡＶＥ命令将屏幕上的图形存为某一个图形文件——这个图形已经是一个ＢＡＳＩＣ格式的图形了。
此后我们就可在任何系统下，在ＢＡＳＩＣ显示模式１下，用ＢＬＯＡＤ命令随时显示那个ＢＡＳＩＣ格式的图形了。
下面程序１可将一个名为ＡＡＡ．ＰＣＸ的ＰＣＸ图形转换为一个名为ＢＢＢ．ＢＡＳ的ＢＡＳＩＣ图形文件。
程序２可将ＢＢＢ．ＢＡＳ图形重新显示。
#3 程序１
ＳＣＲＥＥＮ ９：ｉ＝０
ＰＲＩＮＴ ＣＨＲ＄（１４）；”［ＲＥ０，０，ＡＡＡ．ＰＣＸ＄］”
ＤＩＭ Ｃ（２５０００） ′此数组大小为６４０ ３４０
ＦＯＲ ｘ＝０ ｔｏ ６３９
ＦＯＲ ｙ＝０ ｔｏ ３３９
ａ＝ＰＯＩＮＴ （ｘ，ｙ）
Ｃ（ｉ）＝ａ
ｉ＝ｉ＋１
ＮＥＸＴ ｙ：ＮＥＸＴ ｘ
ＳＣＲＥＥＮ １：ｉ＝０
ＷＩＮＤＯＷ ＳＣＲＥＥＮ（６４０，３４０）－（０，０）
ＦＯＲ ｘ＝０ ｔｏ ６３９
ＦＯＲ ｙ＝０ ｔｏ ３３９
ＰＳＥＴ （ｘ，ｙ），Ｃ（ｉ）
ｉ＝ｉ＋１
ＮＥＸＴ ｙ：ＮＥＸＴ ｘ
ＤＥＦ ＳＥＧ＝＆ＨＢ８００
ＢＳＡＶＥ ”ＢＢＢ．ＢＡＳ”，０，４００
ＥＮＤ
#3 程序２
ＳＣＲＥＥＮ １
ＤＥＦ ＳＥＧ＝＆ＨＢ８００
ＷＩＮＤＯＷ ＳＣＲＥＥＮ（６４０，３４０）－（０，０）
ＢＬＯＡＤ ”ＢＢＢ．ＢＡＳ”，０
ＥＮＤ