清单2.基本纲领的个人电脑
1640
1650
1660
1664
1665
1666
1668
1669
1670
1680
1690
1700
1710
1713
1714
1715
1716
1720
4900
4910
5000
5900
5910
5930
5940
6000
6010
6020
6030
6490
6492
6494
6496
6500
6510
6590
6594
6596
7000
7010
7020
7030
7990
7992
7994
7996
7998
7999
8000
8005
8010
8020
8030
8490
GOSUB 8000
“ GET字节验证
RCV = I - 1
LOCATE 10,1 ： PRINT "Verifying字节＃ " ;我; "
＆ QUOT ;
IF CHR $ （ CODE ％ （ RCV ））= B $ THEN 1670
K = CODE ％ （ RCV ） ： GOSUB 8500
LOCATE 1,1 ： PRINT "Byte ＃ " ;我; "
" ， " - "发送; HX $ ;
K = ASC （ B $ ） ： GOSUB 8500
PRINT "收稿" ; HX $ ;
接下来，我
GOSUB 8000
“ GET字节验证
RCV = CODESIZE ％ - 1
LOCATE 10,1 ： PRINT "Verifying字节＃ " ; CODESIZE ％ ; "
＆ QUOT ;
IF CHR $ （ CODE ％ （ RCV ））= B $ THEN 1720
K = CODE （ RCV ） ： GOSUB 8500
LOCATE 1,1 ： PRINT "Byte ＃ " ; CODESIZE ％ ; "
" ， " - "发送; HX $ ;
K = ASC （ B $ ） ： GOSUB 8500
PRINT "收稿" ; HX $ ;
LOCATE 8,1 ：打印：打印"Done !!!! "
关闭
输入"Press [返回]退出... " ，Q $
结束
'***********************************************************************
'*
子程序来读取一个字节从磁盘文件
'*
退货字节澳元
'***********************************************************************
标志= 0
如果EOF（ 1 ）THEN FLAG = 1：返回
A $ =输入$ （ 1 ， ＃ 1 ）
回报
'***********************************************************************
'*
子例程发送字符串中$输出到设备
'*
开始作为文件＃2 。
'***********************************************************************
PRINT ＃ 2 ，A $ ;
回报
'***********************************************************************
'*
子程序转换成十六进制位在价值为整数
'***********************************************************************
X = INSTR （H $ A $ ）
如果X = 0 THEN FLAG = 1
X = X - 1
回报
'**********************************************************************
'*
子程序来读取一个字节通过通讯口岸开通后
'*
AS文件＃2 。无限期等待字节被
'*
接收。子程序将被中止BY ANY
'*
键盘输入。退货字节B $ 。用途Q $ 。
'**********************************************************************
WHILE LOC （2） = 0的
'等待COMM PORT输入
Q $ = INKEY $ ：当Q <>美元"" THEN 4900 “ IF ANY键不放，然后终止
WEND
乙$ = INPUT $ （1， ＃2）
回报
'************************************************************************
M68HC11引导模式，版本1.1
飞思卡尔半导体公司
217
