(original) (raw)
p0NT36!G ������ �������������� ���������� ������� �������������������������������� L002 CALL HELPH".......E������� ���� ������ � ���������. NG!CALL WHOH"........E���������� ����� ������ ����������. NG!CALL SNDRUNH".....E�������� � ������ ��������� �� �������. NG!CALL SENDH".......E�������� ��������� �� �������. NG!CALL BSENDH"......E�������� ��������� � �������� ���� ��� ����������� � ������. NG!CALL RECIEVEH"....E����� ��������� �� �������. NG!CALL BRECIEVEH"...E����� ��������� � �������� ����� ��� ����������� � ������. NG!CALL SNDMAILH"....E�������� ��������� � �������� ���� �������������. NG!CALL RCVMAILH"....E����� ���������� �� ��������� ����� �������������. NG!CALL MESSAGEH"....E�������� ��������� ��������������. NG!CALL SNDCMDH".....E�������� �������. NG!CALL RUNH"........E������ ��������� �� ������� � �������. NG!CALL STOPH".......E��������� ��������� �� ������� � �������. NG!CALL POKEH".......E������ ����� � ������ � ������� ��� � ������� ���. NG!CALL PEEKH".......E������ ����� �� ������ � ������� � �� �������� ���. NG!CALL PONH"........E������ ������������ ������. NG!CALL POFFH".......E����� ������������ ������. NG!CALL CHECKH"......E�������� ��� �� �������� ��������� � ����. NG!CALL TALKH".......E�������� ��������� ��������. NG!CALL ONLINEH".....E��������� � ����(������ ����� ������� NETINIT). NG!CALL OFFLINEH"....E���������� �� ����(������ ����� ������� NETINIT). NG!CALL NETENDH".....E���������� ����. NG!CALL NETINITH"....E������������� ����. NG!CALL ENACOMH".....E���������� �������� ��������. NG!CALL DISCOMH".....E���������� �������� ��������. L000p1 T26p0E Q- 1 - ������� ������a������/������� EGHELP [������] N!CALL HELPE [�������]H ���a������ ������ ������ � ��������. ��� ������� ���������� ������ ������� ������ ������� , ������� ������������ ��� ������ � ����� � ������ . ����� ������ ���� � ��������� ������ . ��� ��� ������ ������ ������������� � ������� �������� , ������ � ��� ����� �������������� ���������� . � ������� , ����� ���� , �������- ���� ����� ��� ���������� . ��� ������� � ������� �������� ��� ����������� �� ������� ���������� �������� (CALL ENACOM ). ����� �������� ��������� , � ������ ����������� ������� :SEND, RECEIVE , BSEND , BRECEIVE � TALK . GWHO [������] N!CALL WHOE [(<����������>)] [�������]H ���������� ����� ������ ����������. G[������ 1]H CALL WHO (A) PRINT A 3 ��� ������� ���������� ����� ���������� , ������������ ��� ������ ������������� � ������� ����� ( ��� �������������-0 , ��� ��������-1-15) . � ���� ������� ������� ���������� ����� 3 �������. G[������ 2]H CALL WHO 3 ����� ���������� ����������� , ����� ����� ��������� �� �����. ��� ������������� ����� ������� �� ������ ���� � ��������� ������. p1 T26p0E Q- 2 - ������� ������a������/������� EGBSEND [������] N!CALL BSENDE ([<��� �����>],[<����� �������>],[<��������� �����>], [<�������� �����>],[])E [�������]H �e������ �������� � �������� ���� ��� ����������� � ������. G[������ 1]H CALL BSEN ("DATA.BIN",12,&H8000) ��� ������� �e������ ��������� � �������� ����� ��� ������ , ���������� �� ������� �������� BSAVE ��� CALL BRECEIVE , �� ���������� ������ � ������ ������� , ������������� ������� . � ���� ������� ���� " DATA.BIN " ������������ � ������ ������� ����� 12 � ���������� ������ &�8000 . ���� ����� ������� �� ������ ��������� ����� , ��������� ��� ������ ������������ � ���� ������ , � �������� ��� ���� ��������. G[������ 2]H CALL BSEN (,12,&H0100,&H2000,S) ����� �� ���������� , ���������� ������ ������ ( ����������� ) ���������� � ����������� ������� � ��������� ������� . ����� ��������� ����� ��������������� � ����������� ���������� ������������� �������� �� ��� ����� ������� ��������� ���������� . � ���� ������� ���������� ����������� ������������� � ������ &�0100 �� ������ &�2000 ���������� �� ������ � &�0100 �� &�2000 �� ����� (� �����������) ������� ����� 12 . ����� ����� ������� �����������, ���������� ���������� ���� ��������. CALL BSEN (,12,,,S) ����� ������������ � ������ �� ������� , �� ������ ���������� ������� &�0000 , � ������ ���������-&�FFFF . G[������ 3]H CALL BSEN ("VDAT.BIN",12,&H0100,&H2000,S) ��� ������� �������� ������ � ������ ( �� ����������� ) , ���������� � ������� ������ ������� BSAVE ��� CALL BRECEIVE � �������������� , � ������� � ���������� �� �������� ������ � ����������� ��������� ������� . ����� ������ � ����������� ������������ �� ����� , ����� �������������� ������������� �� ��������������� , �.�. �� ������ ���� ���������� �� ������������� ������ CALL BSEN . � ���� ������� ������ �� ����� "DATA.BIN" ���������� �� ������� � &�0100 �� &�200 � ����������� ������� � ������� 12 . ���� ����� ������� �� ������ ������ ���������� ���� �������� . ���� �� ������ ��������� ����� ������ ����� ������������ ������� � ���� ������ , � �������� ��� ���� �������� . ���� ���� ����� ������ ��� �������� , �� ������������ ������ �� , � �������� ������������ . � ���� ������, �� ������ ����� �������� ���� �� ��������� ������ , ��������� � ������� CALL BSEN. p1 T26p0E Q- 3 - ������� �������������/������� EGBRECEIVE [������] N!CALL BRECEIVE E([<��� �����>],[< ����� ������� >],[<��������� �����>],[<�������� �����>],[]) G[�������] H����� ��������� � �������� ����� ��� ����������� � ������ G[������ 1] HCALL BREC ("DATA.BIN",10,&HA000,&HB000) ��� ������� ���������� ��������� � �������� ����� ������ �� ������ , � ���������� ������ �� �������� , � ���� �� ���� .������ ��� ������ ����� �� , ��� � � ������� ������� BSAVE , ������ ��������� ������� ������ �������� ��������� . � ���� ������� ���������� ������ ������� ����� 10 , � ������ &��000 �� &��000 , ������������ � ���� "DATA.BIN". G[������ 2] HCALL BREC (,10,&H0100,&H2000,S) ����� ������������ , ���������� ������ ( ����������� ) ������� � ��������� ������� ����������� � ����������� ������������� . ����� ���� ��������������� ������������� ��������������� � �������������� ����� . � ���� ������� ���������� ����������� ������� ����� 10 � ������ &�0100 �� &�2000 ������������ �� ���� �� ������� �� ����� ( � ����������� ) ������������� . ��� ������������� , ���� �� �� ���������� ��������� ����� , ������������-&�0000 , � ������ ���������-&HFFFF. G[������ 3] HCALL BREC ("DATA.BIN",12,&H0100,&H2000,S) ���������� ������ ( ����������� ) ������� ����������� � ������������ �� ���� . ������ ��� ������ ����� �� , ��� � � ������� ������� BSAVE ��� ������������� . ��� ��� ������������ ���� ( ���������� ����������� ) �� �������� ���������� � ������ �������������� , ���������� ��� ������������ ������ ����� �������������� ���������� �������������� ����� . � ���� ������� ������ � ������ ( �� ����������� ) ������� ����� 12 � ������ &0100 �� &�2000 ������������ �� ���� , � ����� � ��������� "DATA.BIN" . ��� ������������� , ���� �� �� ���������� ��������� ����� , ������������-&�0000 , � ������ ���������-&�FFFF . p1 T26p0E Q- 4 - ������� ������a������ EGENACOM [������] N!CALL ENASOM E(<����� �������>) [�������] H��������� �������� ��������. G[������] HCALL ENAC (12) ��� ������� ��������� ���������� �������������� ������� �������� � ����. ���� ������ ��������� ����� ������� ����� 12, �.�. �� ����� ������������ ������� CALL SEND , CALL RESEIVE , CALL BSEND , CALL BRESEIVE . ��� ��������� 0 �������� � ���� ����������� ���� �������� . ������ , �������� �������� ��������� , ����� �������� ��������� ������ �������� �������� TALK. EGDISCOM [������] N!CALL DISCOM E(<����� �������>) [�������] H��������� �������� ��������. G[������] HCALL DISC (12) ��� ������� ��������� ���������� �������������� ������� �������� � ����. ���� ������ ��������� ����� ������� ����� 12, �.�. �� �� ����� ������������ ������� CALL SEND , CALL RESEIVE , CALL BSEND , CALL BRESEIVE . ��� �������� 0 �������� � ���� ��������� ���� �������� . ��� ������ ������ � ����� , �������� � ���� ��������� ���� �������� . p1 T26p0E Q- 5 - ������� ������a������ EGCHECK [������] N!CALL CHECK E([<���������>],[<����������>]) [�������] H��������� ��� �� �������� ��������� � ���� � ���� �� �������� ��������� �������� � ����. G[������ 1] HCALL CHECK (A) PRINT BIN$ (A) 110110111101100 ��� ������� ��������� , ��� �� �������� ��������� � ���� � ���������� �������� ����� , � ������� ������� ������ ������������ ������� ����� 1 , ��������� ����� 2 � �.�. . ����� �������������� ��� ����� 0 , ��� �������� , ��� ������ ��������� � ���� , � ����� ����� 1-�������� �� ��� . � ���� ������� � ���� ���������� ������� ����� 1, 2, 5, 10 � 13 . ����� ��� ������� ���������� , �������� ������������ ���������� ����� 0. ��, ��� ������ �������� �� ���� ��������: ���� , ��� ��������� �������� ��� ���� ��������� �� ���� ��������� , ���� , ��� ��� ������� ���������� ��� ������ ������� CALL OFFLINE. G[������ 2] HCALL CHECK (,B) PRINT BIN$ (B) 111111111101110 ��� ������� ��������� , ���� �� �������� ��������� �������� � ���� , � ��������� �������� ����� , � ������� ������� ������ ������������� ������� ����� 1 , �������� ����� 2 � �.�. ����� ������������� ��� ����� 0 ,��� �������� , ��� �������� � ���� ����� ������� ��������� � ����� ����� 1-���������. � ��� ������� �������� ��������� �������� ����� 1 � 5 . ����� �������� ��������� ���� �������� �������� ������������ ���������� ����� 0 . ���������� � ���������� �������� �������� � ���� ������������ �������������� ��������� CALL ENACOM � CALL DISCOM. p1 T26p0E Q- 6 - ������� ������a������ EGNETINIT [������] N!CALL NETINITE [�������] H������������� ����. G[������] HCALL NETINIT ��� ������� ������������ ��� ������ ������ � ����� , ���� �� �� ���� ���������������� ��� ��������� ����������� . � ���� ������ ��� ������ �������������� ���� ������� ���� �������� �� ����� . ������ ���� ���������������� ��� ���������. EGNETEND [������] N!CALL NETENDE [�������] H���������� ����. G[������] HCALL NETEND ��� ������� ������������ ��� ���������� ���� , ����� �� ������ �������� � ���������� ���������� , ������� �� ����� ���� ������� ��� ���������� ����. p1 T26p0E Q- 7 - ������� ������a������/������� EG���� [������] N!CALL POKE E(<�����>,<�����>,[<����� �������>],[]) [�������] H������ ����� � ������ ������� ��� � ������� ���. G[������ 1] HCALL POKE (100,&H7800) QX��� �������������/�������YE ��� ������� ���������� �������� ����� �� ��������� ������ � ������� ��� ( &�7800-&�7FFF ) . � ���� ������� 100 ������������ �� ������ ������� ��������� &�7800. G[������ 2] HCALL POKE (100,&HB000,1) Q X��� �������������YE ��� ������� ���������� ������ ����� �� ���������� ������ ������ ����������� ������� . ���� � �������� ������ ������ 0, �� ����� ������������ � ������ ���� �������� . � ���� ������� 100 ������������ �� ������ &��000 � ������ ������� ����� 1. G[������ 3] HCALL POKE (100,&H7A00,1,N) Q X��� �������������YE ��� ������� ���������� ������ ����� �� ��������� ������ � ������� ��� ( &�7800-&�7FFF ) ����������� ������� . � ���� ������� 100 ���������� �� ������ &�7�00 � ������� ��� ������� ����� 1. p1 T26p0E Q- 8 - ������� ������a������/������� EGPEEK [������] N!CALL PEEK E(<����������>,<�����>,[<����� �������>],[]) [�������] H������ ����� �� ������ ������� ��� �� �������� ���. G[������ 1] HCALL PEEK (A,&H7800) QX��� �������������/�������YE ��� ������� ������ ������ �� ������� ������ � ������� ��� ( &�7800-&�7FFF ) � ���������� � �������� ���������� . � ���� ������� �������� ������ �� ������ ������� ��������� � ������ &H7800 � ������������ � ���������� � . G[������ 2] HCALL PEEK (A,&HB00,1) Q X��� �������������YE ��� ������� ������ ������ �� ������� ������ �� ������ ��������� ������� � ���������� �������� � �������� ���������� . ���� � �������� ������ 0 , �� ������������ ������ . � ���� ������� �������� ������ �� ������ ������ � ������� &��000 ������� ����� 1 � ����������� � ���������� �. G[������ 3] HCALL PEEK (A,&�7A00,1,N) Q X��� �������������YE ��� ������� ������ ������ �� ������� ������ � ������� ��� ( &�7800-&�7FFF ) ��������� ������� � ���������� �������� � �������� ���������� . � ���� ������� �������� ������ �� ������ �������� ��� � ������� &��000 ������ ����� 1 � ������������ � ���������� �. p1