CAS CI-2001ASBS [13/16] Программы передачи

CAS CI-2001ASBS [13/16] Программы передачи
13
2559+, 8+>+1202+=9+ 0 ASCII-,/1+, @/>=2*7>.G*-A 0 -//3M+57A 1<75/F 22
32F*2:
, , ,
12559+ (8 32F*) CR LF
GS (=2--2 )
NT (=2--2 )
US (+-*237<B5/)
ST (C*237<B5/) +-/09+
OL (+>+N>.4,2) .-*/F +1757Z9
n .-*>/F-*02
2F* 12559:: 0+<76752 0+-2 0,<G62+* 0 -+3A 1+-A*765.G */6,. 7 452, "-".
>7=+> - *>+3.+*-A 8+>+12*B 0+<7675. -13.5 ,N. ,/1+ ASCII +F -//*0+*-*0.G* 8 32F*
"-", "", "", "", "1", "3", ".", "5".
2% '  %)3 F02=1
/ 52C2*7G ,<207?7 8+62*B
=
n n
,
12559+ (8 32F*) Kg CR LF
/=+> 040+?70257A
/ 52C2*7G ,<207?7 
- - - -
T
o t
a
l P r i n t - - - -
O U N T
:
n n
=
, 12559+ (8 32F*) CR LF
3M++ ,/<76+-*0/ 040+?70257F
- - - - -
-
- -
-
- - - - - - - - - - -
5.2 &%% 
>/N>2==2 8+>+1267 12559: 52 A49-
,+ +F-7,:
10
OPEN "COM1: 9600, N, 8, 1" AS #1
20
IF LOC(1) = 0 THEN 60
30
A$ = INPUT$(1, 1)
40 PRINT A$; '' ";
50 GOTO 20
60 B$ = INKEY$ : IF B$ = " " THEN 20
70 PRINT B$ ; " " ;
80 PRINT #1, B$
90
GOTO 20
>/N>2==2 8+>+1267 12559: 52 A49,+ C:
#include <bios.h>
#include <conio.h>
#define COM1 0
#define DATA_READY Ox100
#define TRUE 1
#define FALSE 0
#define SETTING ( 0x00 0xE0 0x00 0x03 )
int main(void)
{
int in, out, status, DONE = FALSE;
bioscom(0, SETTING, COM1);
cprintf(". . . BIOSCOM [ESC] to exit . . .\n);

Содержание

Скачать