COMX-35电子计算机价格较低,很多学校用它作为教学机。由于它有彩色图形功能,因此无线电爱好者可以利用它的射频信号来检修彩色电视机。
下面就介绍产生彩条、棋盘格、及单色信号的BASIC语言程序。为了使初学者便于理解,把每种图形的程序分别叙述。但行号是按整个程序排的,所以这些程序能单独运行,也能组合运行。
首先介绍产生彩条图形的程序:
50 SHAPE(192, “FF FF FF FF FF FF FF FF FF”)
51 SHAPE(64,“F FF FF FF FF FF FF FF FF F”)
300 CPOS(0,0):CLS:SCREEN(1)
310 FOR A=1 TO 23
320 PRINT CHR$(192,192,192,192,192,192,235,235,235,235,235,64,64,64,64,64,107,107,107,107,107);
330 PRINT CHR$(236,236,236,236,236,237,237,237,237,108,108,1O8,1O8,108)
340 NEXT A
程序打好后,检查一下有无错误,然后打RUN运行,这时屏幕上将得到一个由白、黄、青、绿、紫、红、蓝组成的彩条图象。
下面是棋盘格信号的程序:
52 SHAPE(238,“F8F8F8F8F8F8F8F8F8”)
53 SHAPE(239, C7C7C7C7C7C7C7C7C7”)
400 COPOS(0,0):CLS:SCREEN(1)
410 FOR B=1 TO 6
420 FOR S=1 TO 16
430 PRINT CHR$(192,192,238,109,109);
440 NEXT S
450 FOR L=1 TO 16
460 PRINT CHR$(109,109,239,192;192);
470 NEXT L
480 NEXT B
方格信号可采用下列程序产生:
54 SHAPE(240,“FFCCCCCCCCCCCCCCCC”)
55 SHAPE(241,“CCCCCCCCCCCCCCCCFF”)
56 SHAPE(242,“FFCOCOCOCOCOCOCOCO”)
57 SHAPE(243,“COCOCOCOCOCOCOCOFF”)
500 CPOS(0,0):CLS:SCREEN(1)
510 FOR C=1 TO 12
520 FOR M=1 TO 8
530 PRINT CHR$(144,242,240,242,145);
540 NEXT M
550 FOR N=1 TO 8
560 PRINT CHR$(148,243,241,243,154);
570 NEXT N
580 NEXT C
如果以上三个程序已运行成功。可进一步试验下面的程序:
100 K=KEY
110 IF K<57 GOTO 200
120 IF K=65 GOTO 300
130 IF K=66 GOTO 400
140 IF K=67 GOTO 500
160 IF K<>69 GOTO 100
170 END
200 IF K>48 THEN CPOS(0,0):CLS:SCREEN(K)
210 GOTO 100
350 GOTO 100
490 GOTO 100
590 COTO 100
上面程序打好后,请打RUN运行,然启分别按1~8键,这时屏幕上的颜色将随按键的数值发生变化,分别按A、B、C,键就能得到彩条、棋盘格和方格信号了。按E键就停止运行。
至此,图形程序已基本完成,但若要使用方便,加上一个说明就更好了。下面是说明程序:
1O CPOS(0,0):CLS:SCREEN(1)
20 CPOS(3,0):PR“<1>BLACK”
21 PR“〈2〉GREEN”
22 PR“〈3〉BLUE”
23 PR“〈4〉CYAN”
24 PR“〈5〉RED”
25 PR“〈6〉YELLOW”
26 PR“〈7〉MAGENAT”
27 PR“〈8〉WHITE”
30 PR“〈A〉COLOURED STRIPE”
31 PR“〈B〉CHESS TRAY SQUARE”
32 PR“〈C〉SQUARE”
33 PR“〈D〉PICTURE NUMBER”
34 PR“〈E〉END
35 CPOS(22,0):PR“PRESS THE PICTUR-E’S NUMBER YOU WANT PLEASE!”
150 IF K=68 GOTO 10
下面再来运行程序,屏幕上先出现图形编号,您可以根据需要按下所需图形编号就能得到您需要的图形。(陈晓光)