. 50 CHAIN "����� ������ I", 20 . . . ����������: ��� ������ � ������-������������ ���� �����, ��������� � ���������� COMMON, �������������� ������ ���� ������ ����������� � ���������� DIM (������ ����� 9.1.). ��� ������-����������� ������ ���������� COMMON ��� �������� ��������� �������: ������: COMMON //<���>///<������������� ����������>//, <������������� ����������>/... ��� ���� � ������� ����� ����� ������ ������������� �����-���� ����������� ��������� � �������� ���� (����������� 6 ��������). ��������� ����� ��� ������ �����-���� ������ ���� ����������� ��������� � ������� ���������� CALL (������ ����� 12.2.) �� ��������� �������� ������������ ���������. ��� ������ � ������-������������ ����� �����-���� ����������� COMMON ����� ������ ������ ��������� ���������� ��������: COMMON DIM OPTION BASE REM DEFDBL, DEFSNG, DEFINT, DEFSTR %INCLUDE (����� ������������ ������ ��� ������-�����������.) � ������� ���������� INCLUDE �������-���������� ����� ������� � �����- ���� �������� ��������� ����� �������� ����������� ����� ������� ������� �� ������� ������. ��� �������������� ������ ��������� ����������� ������ ���������� %INCLUDE. ������: %INCLUDE <���������� ������������� ������ ������> <���������� ������������� ������ ������> ������������ ����� �����-���� ���������� � ������������ ������� ������������� ������ ������. �� �������� � ���� ��������� ����������� ����, ������ ������ ��� ������ ���������� ��� �� ����������� ��������� � �������. ��� ������ ������ ������������� ����������� ������ ".BAS". � ������� ���������� %INCLUDE ����� ��������� ������ ������-�������� ��������� (���������� � ���� ASCII). ��� �� ����� ��������� � ���� ������� ������ ���������� %INCLUDE. ��������!!! ����������� ������������ ������� �� ���, ����� ����������� ��������� �� �������� ����������� �������� � �����������, ������������� � ������ ������ ���������. ����� ������� �������� �������� �� ��, ����� �� ���� ���������� GOTO ��� GOSUB, ����������� � �������������� �������. ������ ����� ����������� ��������� ������ ���� ����������� � ��������������� ������������������ � ������ ����� ������ ������ ���� ������ ������ ������ ���������� %INCLUDE. ������������ ����� ������ ����������� ��������� ������ ���� ������ ������ ������, ������� � ���������� ��������� ����� ���������� %INCLUDE. ����������� �� ��������� ���� ��������� ������������� � ������ /�. ���������� %INCLUDE ������ ���� ��������� ����������� � �����-���� ������. 13. ���������� ��� ����� � ������ �� ����� ��� ������, � ����� �����-������ ��� ��� ������� ������ � ����� ������. 13.1. ���������� INPUT ��� ���������� ���������� � �������� ���������� ��������� ���������� INPUT ��������� ����������� ���������� � �������� ���������� ��������� ������������ �������� � ���� ���������. ������: INPUT /;//"<������������������ ��������>";/<����������>/, <����������>/... ��� INPUT /;//"<������������������ ��������>",/<����������>/, <����������>/... ��������� <������������������ ��������> �������� ��� ������� �� ���� �� �����. ���� ������������������ �������� �� ������, �� � �������� ������� �� ���� ������������ ������ ���� ������� "?". ���� ����� ��������� <������������������ ��������> ������������ ";",�� � �������� ������� �� ���� ��������� ������������ "?". ����� �������� ������ ����� �������, ���� ������ ����� � ������� ����� ��������� <������������������ ��������> ��������� ������� (������ 2). ���� �������� ���������� � ��� ������� <����������>, ��� ��� ��������� � ���������� INPUT. �������� ���������� ���� �� ����� �������. ������� ������������������ ��������� �������� "��". ���������� ��������� �������� ������ ��������������� ���������� ����������. ���� �����-���� ������� ������������������ ����������� �������� "��" ����� ��� �� ���� ���������� ���� ��������� ��������, �� ���������� ����� ������ �� ����. ���� ������� �������� ������, ��� ������� ����������, �� ������ �������� ������������. ���� �������� ������������ �������, �� ���� ���� ���������� � �������� ����� ������ �� ����. � �������� ���������� ����� ������������ ����� �������� ����������, ���������� ���� ���������� ������ ��� ���������� ����. ��������� ������ ������ ��������������� ��������������� ����� ����������. ��� ����� ��� ���������� ���� ���������� ������ ������� ���������, ��� ������� ��������� ��� ��������� ������������. ���� � ������� ������ �������� ��������� �������, �� ������� ������ �������� ������� ��������� � ������� "" "". ����� ����� ������� �������������������, ���� � ������ � � ����� ������ �������� ������� �������� �������. ������: 10 INPUT "���� A,B,C"; A%,B%,C% ����������. ���� ���� ��������� �������� "��", �� ������������ ������ ��������������� � ������ ��������� ������ ������. ���� ������� �� ����� ������ ����� ���������, ���� ��������������� ����� ��������� ����� INPUT ��������� ����� � �������. 13.2. ���������� LINE INPUT ��� ����� ����� ������������������� ����� � �������� ���������� ��������� ���������� LINE INPUT ��������� ������, ��������� ������������� � ����������, � ����������� ��� � �������� ���������� ������ �����-���� �������� ���������� ���� ���������� ������. ������: LINE INPUT /;//"<������������������ ��������>";/ <���������� ���� ���������� ������> ��� LINE INPUT /;//"<������������������ ��������>",/ <���������� ���� ���������� ������> �������� <������������������ ��������> ��������� �� ����� � ����� �� ������ �� ����. ���� ������������������ �������� �� ������, �� � �������� ������� �� ���� ������������ ������ ���� ������� "?". ���� ����� ��������� <������������������ ��������> ������������ ";", �� ��������� � �������� ������� �� ���� ����������� "?". ����� ����� ������� ����� ��������, ���� ������ ����� � ������� ����� ��������� <������������������ ��������> ��������� ������� (������ 2). ���������� ���� ���������� ������ ��������� �������� ������������������ ��������. ����������� ��� �������, ������� �������, ������� � �������. ���� ��������� �������� "��". ����� ������� ����������� 254 �������. ������: 10 LINE INPUT;"���� ���������� V";V ����������: ���� ���� ��������� �������� "��", �� ������������ ������ ��������������� � ������ ��������� ������ ������. ���� ������� �� ����� ������ ����� ��������, ���� ��������������� ����� ��������� ����� INPUT ��������� ����� � �������. 13.3. ���������� PRINT ��� ������������� ������ ���������� �� ����� � ������� ���������� PRINT ����� ��������� ������������ ����� ���������� �� �����. ������: PRINT /<������ ��������� ��� ������>/;// ��� ? /<������ ��������� ��� ������>/;// <������ ��������� ��� ������>=<���������> /,<���������>/... ��� <������ ��������� ��� ������>=<���������> /;<���������>/... ��� <������ ��������� ��� ������>=<���������> /<���������>/... <���������> ����� ���� ����� �������� ���������� ��� ���������� �� ���������� �����, �������� ���������� ��� ���������� ���� ���������� ������ ��� �������� ���������� ��� ���������� ���� ���������� ������. ��������� ����� �������� ���� �� ����� � ������� ",", ";" ��� " ", ��� ���� ������ ����������� ����� ������������ ���������. ��� ���������� ��������� ������ ������� ���������� ����� ���������� �������� ������ �� ��������� �� 14 ������� ������. ��� ���������� ��������� ������ ������ � ������� ��� � ������� " " ���������� ���������������� �����. ���������� �������� ������ ��� �����-���� �������� �������� ��������� ���� �������. ������ ���������� PRINT �������� ����� � ����� ������ � ��� ������, ���� ����� ���������� �������� ������ �� ������� ����� � ������� ��� �������. � ������ ������� ����� ������������ � ���������������� ��������� � ��� �� ������. ���� ���������� PRINT ������ ��� ����������, �� ��� ��������� ������� � ��������� ������ (����� ������ ������). ���� ���������� ���������� ������� ������, �� ������������� ����������� ������� �� ����� ������ � ����������� ������. ��� ������ ����� � ��������� ��������� �� ������ �������� 6 ����. ���� ��� ������������ ����� � ��������� ��������� ���������� �������������� ������ 6, �� ���������� ������������� � ������������������� ���� (��������, 10^(-6) ��� 0.000001, �� 10^(-7) ��� 1�-7). ��� ������������ ����� � ������� ��������� ��� ������������� ����� ������������ 16 ����. �����, ��� ������� ��������� ������ 16 ����, ����� �������������� � ������������������� ���� � ������� ����������. ������ ��������� ����� "PRINT" ����� ����������������� ���� ������� "?". �������: 10 B%=4 20 PRINT B%,B%+4 30 PRINT B%*(-4),B%^4; 40 PRINT B%-4 RUN 4 8 -16 256 0 OK 10 FOR I%=I TO 5 20 I%=I%+5 30 K%=K%+10 40 ? I%;K% 50 NEXT RUN 5 10 10 20 15 30 20 40 25 50 OK 10 B%=3 20 PRINT "B �����"; B% 30 PRINT "B*B �����" B%*B%"�"; 40 PRINT "B+B �����" B%+B% RUN � ����� 3 B*B ����� 9 � B+B ����� 6 �� 13.4. ���������� PRINT USING ��� ���������������� ������ �� ����� ���������� PRINT USING ��������� ���� � ����� �������������� ������ ������ ������. ����� ����������� ��������� ��� �������� ���������� ������� ����. ������: PRINT USING <�������� �������>;<������ ��������� ��� ������>/;/ <������ ��������� ��� ������>=<���������>/;<���������>/... ��������� ����� ���� ����� �������� ���������� ��� ���������� �� ���������� �����, �����-���� �������� ���������� ��� ���������� ���� ���������� ��������� ��� ���������� ���� ���������� ������. �������� ������ �������� ���� �� ����� ������ � �������. �������� ������� ����� ���� ���������� ���� ���������� ������ ��� ����������� � " " ���������� ���� ���������� ������. ���� ��������� ������� ������� � �� �������: -----------I-------------------I--------------------------------------------- ������ I ����� I ���������� -----------I-------------------I--------------------------------------------- I ������ ������ ��- I ������ ���������� �� �������� ��������� �� ! I ������� �� ���- I ���������� �����, ������� �����. I ������� �����. I -----------I-------------------I---------------------------------------------- I ����� ��� ������ I ����� ����� ��� �������, ���� � ������ ��� = I ��� ���� ����� I ��������� ����� ����� ������� ����. ������- I I ������� ���� ���������� ��� ������������� I I �����. -----------I-------------------I--------------------------------------------- I ���������� ����� I ����� ���������� �����, ���� ��������� ���- . I ��� ������ I �� �������� ���������� ������, ����� ����� I I �������� -----------I-------------------I--------------------------------------------- I ���� ����� + ��� -I ����� ������ ������ ��������������� ���� + I I �����. ���� ����� ����� ���� ���������� I I ����� ����� �����. -----------I-------------------I--------------------------------------------- I ���� - ��� ������ I ��������������� ������������� ���� �����, - I I ��� ������������� ����� ��������������� I I ������. ���� ����� ����� ���� ���������� I I ����� ����� �����. -----------I-------------------I--------------------------------------------- I I ����� * ������ ������� ����� ����� ������ ** I * I ������ ��� ����� ������ �����. ��� ������� I I * ���������� ��� ������� � �������. -----------I-------------------I--------------------------------------------- I I ������� ����� �� ���������� ����� ��������� , I , I �� ��, ��� ��� ��� ������� ������� ��� ��- I I ������ ����� ������ ���� ���������. � I I ������� ����������� ���� �������. -----------I-------------------I--------------------------------------------- I I ������ S �������� ���� ��� �����. DD ^^^^ I ESDD I ������������ ����� ��� �����. ������ ������ I I �������� ����� ����� � ���������������� I I �������������. -----------I-------------------I--------------------------------------------- ___ I I ���� ������������� ��������� ����� �������, ���� ���- I ������� I ��� ��������� ��������������� �� ��� ������ ���������� I I ��������������� ��� ��������� ��� ������ � I I �� ���������������� ��� ����������� ������. -----------I-------------------I--------------------------------------------- I I ����������� ���� ��� ������ ���������� & I �������� �������- I ������ ���������� �����, �.�. ���������� I ���������� ������ I ������ ��������� � ����� �������������� I I ����. -----------I-------------------I--------------------------------------------- /<N I �������� �������- I ��������� N+2 ��������, �.�. ��� ����� ���- �������� I ��� ������ I �� ����� ������������� ���� ������� ������. I I ���� ����������������� ���� ������� �����- I I ���� �������� ���������� ������, �� ��� I I ����������� � ���� �����, � ������ ���� ��- I I ��������� ���������. -----------I-------------------I--------------------------------------------- I I ��������������� ����� �� ���������� ����� $$ I $ I ��������� ������ $. ������������� ��� ����- I I ��� ������ � �������. ������������� ����� I I ����� ������������� ������ � ��� ������, ������ I ���� I ���������� -----------I-------------------I---------------------------------------------- I I ���� ���� ����� ��������� ������ �� �����. -----------I-------------------I---------------------------------------------- I I ������� ������ ������� ����������� �������� **$ I I $, � ��������������� ����� ������ ��������� I I ������ . � ������� ����������� ��� ����- I I ��� ������. -----------I-------------------I---------------------------------------------- � �������� ������� ������ ����� ������ �������� ����� ����������� �������� �������. ��� ������������ ��� �������������� �����. ��� ����������� ������� ���������� �� ������ ������� � �����������. ���� ����������� ������� ������� �����-���� �������� ���������� ������ ��� �����-���� �������� ��������, �� �� ������ ��������� ��� ������ ���������� ��������� ��������� �������� � ����������� ��� ������������. ���� ��������� � ������������ ������ �� ������������� ���� �����, �� ��������� ����������� � ������� ��������� �� ������, ��������� ��� ��������� ��������� ���� ���������� ������, � ��� ���������� ������ ������ �������� ��������. ���� �������� ��������� ��������� ������ ��� ����� ������ � ������ ��������, �� ����� ��������� ��� ��������������. ���� ������� ����� ������ %, �� ����� ���������� �� ��������� ������. ���������� ��������� ������������. ��� ������ ����� � ��������� ������ � ������� ������������ ������� INTEGER ���������� ���������� �� ���������� ������ �����. ������ ��������� ��������� �������� ��������������� ������������ � �������� �������. ����������� ������ ������� ������ � ������, ���� ��� �����������. ����� ��������� ���������� ������ ������� � ������ �������� �������������� ����� ���������������� ���������� ���������� ����� ���������� ����� ������� ���������� ������ �������. ��� ���� ��� ������� � ������ �������, �� ���������� ������������ ��������� � ������ ����������� ���� �������, ��������������� ��� ���������, ���� "������ ��������� ��� ������" ����� ������ ���������������� ���������� ������ ������� ��� �� ��������, �� ����� ���������� ���������� ��������������� �������������� ������ � ����������� ��������� ���������������� ���������� ������ �������, ��� ���� ����������� ��������� �������� ������. �������������� ������ ���������������� ���������� ������ ������� ���������� �� ��� ���, ���� �� ����� �������� ������ ��������� ������. � ��������� ������� ����� ���� ������������ �� ��� ������� � ����� ���������� ������ �������. 10 PRINT USING "##.##";.89 (1) 20 PRINT USING "###.##";987.678 30 PRINT USING "##.##"; 10,3.3,66.777,.24 40 PRINT USING "+##.##"; -58.19,.9,45.6 50 PRINT USING "##.##-"; -58.19,.9,45.6 60 PRINT USING "**##.#"; 12.39,-.9 70 PRINT USING "####,.##"; 3421.5 80 PRINT USING "#,###.##"; 4321.5 90 PRINT USING "##.##^^^^"; 345.67 100 PRINT USING ".####^^^^"; 777777 110 PRINT USING "+.##^^^^"; 321 120 PRINT USING "##.##_K_M__H"; 15.97 130 PRINT USING "##.##"; 123.45 140 PRINT USING ".##"; .997 150 A$="PROGRAMM" (2) 160 B$="EDV" (3) 170 C$="ANLAGE" (4) (1) - �������; (2) - ���������; (3) - ������� ��������� ������ �� ���� ���; (4) - ��������� 180 PRINT USING "1";A$;B$;C$ 190 PRINT USING "ZAHL ###.## WURDE IN FORMAT _#_#_#_._#_# GEDRUCKT";23.45 (1) RUN 0.89 987.68 10.00 3.30 66.78 0.24 -58.19 +0.90 +45.60 58.19- 0.90 45.60 *12.4 *-0.9 4,321.50 4,321.50 3.46E+02 .7778E+06 +.32E+03 15.97KM/H %1233.45 %1.00 PEA (2) ZAHL 23.45 WURDE IM FORMAT ###.## GEDRUCKT OK (1) - ����� ###.## ���� ����������� � ������� _#_#_#_._#_#; 23.45; (2) - ����� 23.45 ���� ����������� � ������� ###.## 13.5. ���������� LPRINT � LPRINT USING ��� ������ �� ������ � ��������������� � ��� �������������� ���������� LPRINT � LPRINT USING ��������� ���������� PRINT � PRINT USING (������ ����� 13.3. � ����� 13.4.) ��� ������-���� ���������� ������. ������: LPRINT /<������ ��������� ��� ������>//;/ LPRINT USING <�������� �������>;<������ ��������� ��� ������>/;/ <������ ��������� ��� ������>=<���������>/;/<���������>/... <���������> ����� ���� ����� �������� ���������� ��� ���������� �� ���������� �����, �����-���� �������� ���������� ��� ���������� ���� ���������� ������ ��� �������� ���������� ��� ���������� ���� ���������� ������. ��������� �������� ������ ���������� ���� �� ����� ������ � �������. ���������� �������� ��� ����� ������ ������ ���������� �� 132 � ����� ���� ����������� ����������� � ������� ���������� WIDTH LPRINT (������ ����� 13.7.). 13.6. ���������� WRITE ��� ������ �� ����� � ������� ���������� WRITE ����� �������� �� ����� �������� �������� � �������� ���������� �����. ����� ���������� ��� ����������. � �������� ����������� ������������ �������. �������� ���������� ����� ����������� � ������� " ". ������: WRITE /<������ ��������� ��� ������>/ <������ ��������� ��� ������>=<���������>/;<���������>/... <���������> ����� ���� ����� �������� ���������� ��� ���������� �� ���������� �����, �����-���� �������� ���������� ��� ���������� ���� ���������� ������ ��� �������� ���������� ���� ���������� ������. ��������� �������� ������ ���������� ���� �� ����� �������. ���� ��������� �� ������, �� ���������� WRITE �������� ������� �� ��������� ������. ������: 10 �%=20: N%=40: Z$="STRING" 20 WRITE M%,N%,Z$ 30 PRINT M%,N%,Z$ RUN 20,40,"STRING" 20 40 STRING OK 13.7. ���������� WIDTH ��� ��������� ����� ������ ������ � ������� ���������� WIDTH ������ ���������� �������� � ������ ������ �� ����� ��� ���������� ������. ������: WIDTH /LPRINT/ <�����> <�����> ����� ���� ������������� ����������, ����� ���������� ��� ����� ����������. ��� ����� ��������� �������� ����� 15 � 255 ������������. ���������� ����������� �������� 80 (�����) ��� 132 (���������� ������). ��� �������� ���������� ���������� �������� , ������� ����� ���� ��'������� � ���� ������. ��� ���������� ����� ������ � ����� ������������� ����������� ������ �������� ������� "CR". ����� ��������� �������� ���������� �� ��������� ������. ���� ������ ����� LPRINT, �� ��������� ����� ������ ��������� � ���������� ������, � ��������� ������ � ������. ������: 40 PRINT "1...5...10...15...20...25...30" RUN 1...5...10...15...20...25...30 OK 10 WRITE 20 40 PRINT "1...5...10...15...20...25...30" RUN 1...5...15...20 ...25...30 OK 13.8. ���������� OUT ��� ����������� ������ ������-���� �������� � ����� ������. ���������� �U� ������������ ���������������� ������ � �������� ����. ������: OUT<PORT-�����>,<�����> ��������� <PORT-�����> � <�����> ������������ ����� ������������� ���������, ����� ���������� ��� ����� ���������, ������� ����� ��������� �������� ����� 0 � 255 ������������. ��������: ������ ���������� �������� ��������� ����������� �� ��������� � ���������� IN� (������ ����� 14.3.). ������: 100 �UT 3,80 13.9. ���������� POKE ��� ������ ��������� ����� �� ��������� ������ ���������� POKE ���������� ���� ���� �� ������-���� ������, �������� ����� 0 � 65535. ������: POKE <�����>,<��������> ��������� ����� �������� ��� � ���������� ��� � � ����������������� ����. <�����> ����� ���� �����-���� �������� ���������� ��� �������� ���������� ������ ����. <��������> ����� ���� �����-���� �������� ����������, �������� ���������� ��� �������� ���������� ������ ���� � ��������� �������� ����� 0 � 255. ��������: ������ ���������� �������� ��������� ����������� �� ��������� � ���������� PEEK (������ ����� 14.4.). ������: 10 A%=PEEK(&H8000) 20 PRINT HEX$(A%) 30 POKE &H8000,&H20A 40 A5=PEEK(&H8000) 50 PRINT HEX$(A%) 60 END 80 POKE 32768,42 RUN 24 2A OK � ��������� ������� ����������� ��������� � �������� ���� �� ������������ ������ ������ � ����������� ������, ��� ���������� ���������� ��������� �� ����� ������� � ������� CALL (������ ����� 12.2.) ��� USR (������ ����� 12.4.). . . . 100 READ ADR% 110 READ DAT% 120 IF DAT%=0 THEN 160 130 POKE ADR%, DAT% 140 ADR%=ADR%+1 150 GOTO 110 160 . . . . 1000 DATA 35720,34,120,79,250,00,00,00,36,73 1010 DATA 220,37,33,-1 ������� �������� �������� �� ��, ��� � ������ ������� ������� � 35720 ��������������� ����������� CLEAR (������ ����� 5.4.). 13.10. ���������� WAIT ��� ������������� � �������� ������������ ���������� WAIT ��������� ���������������� ������� �������� ��� ������ � �������� ������������. ������: WAIT <����� �����>,<AND-�����>/,<XOR-�����>/ �������� �������� �������� ��������� �������: ��������, ������� �� ������ �����, ����������� � ��������� XOR-����� ���������� ��������� ����������� ���. ��������� ����������� � ��������� AND- ����� ���������� ��������� �. ���� ��������� ���������� �� ����, �� ������- ��������� ���������� �����������. ���� XOR-����� �� ������, �� ���������� ������������ �������� ����. <����� �����>,<AND-�����> � <XOR-�����> ������ ���� ������ ����������� � ������ �����������. ����� �������� ������ ������ ����� 0 � 255 ������������. ������: 100 WAIT 17,7,1 ��� ���� ����������� ��������� ��������: ����������� ����� � ������� 17. �� ������ ������ �������, ��������, 6. (XOR 1) AND 7=0 ��������� �� ����� ����; ����� �������, ��������� ���������� �����������. ����, ��������, ������ � ������ ����� �������� 1, �� �������: (1 XOR 1) AND 7=0 ��������� ����� ����; ���������� WAIT ����������� �����. 13.11. ���������� SWAP ��� ������ ���������� ���� ����� ���������� ����������� ���� � ������� ���������� SWAP ����� ��������� ��������������� ����� ����� ����������� ����������� ����. ������: SWAP <���������� - 1>,<���������� - 2>. � �������� ���������� ����� ������������ ����� ����������, ������������ ���������� ��������� � ������� �������� � ���������� ���� ���������� ������. ������: 10 A$="A1" 20 A2$="*" 30 A3$="A2" 40 A4$="=A3" 50 PRINT A1$;A2$;A3$;A4$ 60 SWAP A1$,A3$ 70 PRINT A1$;A2$;A3$;A4$ RUN A1*A2=A3 A2*A1=A3 OK