_______________________________________
______________________________________
Instruction Manual MM850099 ed.02a
_________________________________________ 30 ________________________________________
140 WHILE LOC (1) = 0: WEND
150 DATA 2 = ASC (INPUT$ (1, 1))
160 PRINT #1, CHR$ (CHAR);
170 WHILE LOC (1) = 0: WEND
180 DATA 3 = ASC (INPUT$ (1, 1))
190 PRINT #1, CHR$ (CHAR);
200 WHILE LOC (1) = 0: WEND
210 DATA 4 = ASC (INPUT$ (1, 1))
220 PRINT #1, CHR$ (CHAR);
230 WHILE LOC (1) = 0: WEND
240 CHKSUM = ASC (INPUT$ (1, 1))
250 IF CHKSUM <> ((DATA1 + DATA2 + DATA3 + DATA4) AND &HFF) THEN PRINT "Error": END
260 VALUE = DATA1 * 256 + DATA2
270 IF VALUE > 32767 THEN VALUE = VALUE:- 65536 REM 2'S COMPLEMENT
280 PRINT "VALUE: " ; VALUE / 100
290 END
B:
10 CHAR = 0
20 IDNAME = 1
30 INSTRUCTION = 31
40 VALUE = 1000
50 VALUE$ = HEX$ (Value)
55 WHILE LEN (VALUE$)<4: VALUE$ ='0'+VALUE$: WEND
60 IF LEN (VALUE$) > 4 THEN VALUE$ =RIGHT$ (VALUE$,4)
65 DATA1 = VAL ("&H" + LEFT$ (VALUE$, 2))
70 DATA2 = VAL ("&H" +RIGHT$ (VALUE$, 2))
75 DATA3 = 0
80 DATA4 = 0
90 CHKSUM = (DATA1 + DATA2 + DATA3 + DATA4) AND &H7F
130 OPEN "COM1: 9600,N,8,1,CD,CS,DS,RS" FOR RANDOM AS #1
140 PRINT #1, CHR$ (IDNAME) ;
150 WHILE LOC (1) = 0: WEND;
160 IDNAME = ASC (INPUT$ (1 , 1));
170 PRINT #1, CHR$ (INSTRUCTION) ;
180 WHILE LOC (1) = 0 : WEND
190 INSTRUCTION = ASC (INPUT$ (1 , 1))
200 PRINT #1, CHR$ (DATA1) ;
210 WHILE LOC (1) = 0 : WEND
220 CHAR = ASC (INPUT$ (1 , 1))
230 PRINT #1, CHR$ (DATA2) ;
240 WHILE LOC (1) = 0 : WEND
250 CHAR = ASC (INPUT$ (1 , 1))
260 PRINT #1, CHR$ (DATA3) ;
270 WHILE LOC (1) = 0 : WEND
280 CHAR = ASC (INPUT$ (1 , 1))
290 PRINT #1, CHR$ (DATA4) ;
300 WHILE LOC (1) = 0 : WEND
310 CHAR = ASC (INPUT$ (1 , 1))
320 PRINT #1, CHR$ (CHKSUM) ;
330 WHILE LOC (1) = 0 : WEND
340 CHAR = ASC (INPUT$ (1 , 1))
350 PRINT "Transmitted."
390 END