14. 㭪樨  ᯥ祭   뢮  몥 ᨪ.

14.1. 㭪 INKEY$.

     㭪 INKEY 頥  ப ᨬ, ᫨  ᯮ짮 
    ,   ⨢ 砥 頥 ⭠ 
ᨬ쭠 ப.
ଠ:  /<६ ᨬ쭮 ப>= / INKEY
        ࠭  뢮. 蠥 ᯮ짮   
   "CTRL+C".
     㭪  ⨯ "ᨬ쭮 ப".

ਬ: 	    .
		    .
		    .
	       310 BZ$=INKEY	"横
	       320 IF BZ$= "" GOTO 310
	       310     "த ணࠬ
		    .
		    .
		    .

14.2. 㭪 INPUT$.

     㭪  INPUT 頥 ᨬ ப    ,  祬 
 ந室  .
ଠ:   /<६ ⨯ ᨬ쭮 ப>=/ INPUT$(<㬥>)
     <㬥>  	 ᫮ ࠦ,  ᫮  ६   
᫮  ⠭⮩  楫  ⨯.     祭       
᫥⥫쭮 ᨬ. 祭    1  255.
         ᨬ  ࠧ蠥 ᯮ짮   ᨬ     
ᨬ "CTRL+C".    ᨬ  ࠭  뤠.
     㭥   ᨬ쭮 ப.

ਬ:        70 A$=INPUT (10)  "ॡ   
		  10 ᨬ.	   


14.3.	㭪  INP  䨧᪮  - 祭   室 
.

     㭪 INP ᯥ稢 אַ ⥭ - .
ଠ:   /<楫 ६>=/  INP (<㬥>).
     <㬥>  	 ᫮ ࠦ,  ᫮  ६   
᫮  ⠭⮩ 楫 ⨯.祭 㬥    0   
255 ⥫쭮.  ।  .

:
     㭪  	᭮  㭪樥  ⭮襭    樨  OUT 
(ᬮ 㭪 13.8.).

ਬ:        100 C%=INP(52)


     㭪  PEEK    -       
  0  65535.
ଠ:  /<楫 ६>=/ PEEK (<㬥>)
     <㬥>  	 ᫮ ࠦ,  ᫮  ६   
᫮ ⠭⮩ 楫 ⨯.  祭 㬥    0  
65535  ⥫쭮.  祭	ࠦ    筮    
⭠筮 .

     :
     㭪   ᭮ 樥  ⭮襭  樨	POKE 
(ᬮ 㭪 13.9.).

ਬ:        50 PRINT PEEK(&H440)

14.5. 㭪 SPC.

     㭪  SPC  ⠢  ஥   ⢮  ஡   
⥪饩 樨  ப .
ଠ:  SPC (<㬥>)
     <㬥>  	 ᫮ ࠦ,  ᫮  ६   
᫮ ⠭⮩ 楫 ⨯.  祭 㬥    0  
255 ⥫쭮.   ⢮ ⠢塞 ஡.

:
     㭪 ࠧ蠥 ᯮ짮 ⮫쪮  ᯨ᪥ ࠬ஢  権 
 PRINT  LPRINT.

ਬ:        40 PRINT "AB=>";SPC(12);"<=CD"
	       RUN
	       AB=>	      <=CD
	       OK

14.6. 㭪 TAB.

     㭪  TAB  ⠭          
ப.
ଠ:  TAB (<㬥>)
     <㬥	    ᫮ ࠦ,  ᫮  ६   
᫮ ⠭⮩ 楫 ⨯.  祭 㬥    0  
255 ⥫쭮.  ᫨ ⥪    祭 ࠦ  
	  ப,	  室  㦭      ᫥饩 
ப.

:
     㭪  ࠧ蠥 ᯮ짮 ⮫쪮  ᯨ᪥ ࠬ஢ 権 
 PRINT  LPRINT.

ਬ:        40 PRINT "AB" TAB(6) "CD"	       
	       RUN
	       AB   CD
	       OK


     㭪 LPOS 㪠뢠 䠪  饩 .
ଠ:  LPOS (<㬥>)
     <㬥>    - ६,      믮 
㭪樨     祭.  ࢮ 樥  ᠬ ࠩ 
  饩 .

ਬ:        70 PRINT LPOS(AR)


14.8. 㭪 POS.

     㭪 POS 㪠뢠  ⥪饩 樨   ࠭.
ଠ:  POS (<㬥>)
     <㬥>    - ६,      믮 
㭪樨     祭.  ࢮ 樥  ᠬ  ࠩ   
.

ਬ:        70 IF POS(Z$) > 60 THEN PRINT CHR$(13)

15.   ࠬ   몥 ᨪ.

       몥 ᨪ  ࠡ  ᫥⥫묨 ࠬ   
ࠬ    אַ 㯠.    ࠬ      
ࠡ    ࠬ   樮 ⥬  .  ⠭⭠  
䨧᪮   ⠢ 128 .  ᪠   	 
,   ⠢ ﭭ. ᪨ 塞  ᥩ 
.
     騥   ᫥⥫     		 ᪨ 
.   ᫨  ॡ  ७,   	塞    ᫥ 
᪮஢    ன  	.   INPUT-       ⥬ 
㭨⮦   KILL (ᬮ 㭪 5.16.).  ஢    
᫥     OUTPUT- .  ᫥ ⮣      
.  	砭 ࠡ 室    २   
 樨 NAME (ᬮ 㭪 5.17.).
       ࠡ    ࠬ   אַ 㯠	     
       ᫥⥫쭮.  뫪  	-
  室  ⭮⥫쭮 ,   .    
    㯮.   ⠪  ᬥ蠭  ᯮᮡ 
㯠,    ஬	稭   -  ࠭    த 
ࠡ  ᫥⥫쭮.   אַ 㯥 ᥣ ᯮ 1024  . 
  ⮬ 짮⥫  ᠬ⥫죮 ஫஢  祩 
.      ந   ⥫쭮	   , 
饥 ࠧ   ⭮騥       
.

15.1.    DATA    ⠭  ணࠬ  ⠭	     
       ணࠬ  .

     ணࠬ ⠭   ࠧ  ணࠬ    
 樨 DATA.
ଠ:  DATA <⠭>/,<⠭>/...
      DATA  믮塞 樥.     
᪮쪮  ப  ࠭    ᮤঠ	ᨬ쭮  255  .    ᪮쪮 
権  DATA    浪 ⠭  ஢ ப    易   
-  ஬  .  樨  DATA	 ᯮ짮     
 ணࠬ.
      ⢥ <⠭> 樨 DATA  ᯮ짮:
     -   ⨯  ᫮  ⠭ (楫  ᫠,  ᫠    䨪஢ 
       窮,	᫠    饩 窮 ୮ 	  筮  , 
       ⭠ ᫠, 쬨 ᫠);
     - ⠭  ⨯	ᨬ쭮  ப    ⢥  ᫥⥫쭮, 
        ⠪    " ".
     ᫥	ॡ   ,   室 ⠢ , 
稥   ஡ ।,  ᫥  	ᨬ쭮  ப.   
  ࠧ蠥 ᯮ짮  ⠭ ⨯ ᨬ쭮 ப.

:
       窨 ७ ⮤ ணࠬ஢ ᫥ 뢠  樨
DATA   ⠭  ⨯. 樨  ᨬ ப  
 । ﬨ  ᫮ ⠭.
ਬ:        10 FOR I%=1 TO 5
	       20 READ A%
	       30 PRINT A%;
	       40 NEXT
	       50 DATA 5,4,3,2,1
	       RUN
		5  4  3  2  1
	       OK
	       10 FOR I%=1 TO 5
	       20 READ A%
	       30 PRINT A%;
	       40 RESTORE
	       50 NEXT
	       60 DATA 5,4,3,2,1
	       RUN
		5  5  5  5  5
	       OK
	       10 DATA A.MUELLER, 1036, "BERLIN SPREESTR.7"
	       20 DATA K.ANTON, 1090, "BERLIN FRIEDENSSTR.1"
	       30 DATA J.HARPE, 2135, "ADOLF DORFSTR.15"
	       40 DATA "END"
	       50 READ S$
	       60 IF S$="END" THEN END
	       70 READ I%,S1$ 
	       80 IF I% < 2000 THEN PRINT S$;I%;S1$
	       90 GOTO 50
	       100 END
	       RUN
	       A.MULLER 1036 BERLIN SPREESTR.7
	       K.ANTON 1090 BERLIN FRIEDESSTRR.1
	       OK

15.2.  READ  ⥭  ணࠬ ஢ .

     	   樨  READ  뢠	,   ࣠    
ணࠬ     樨 DATA,   ६,    ६, 
㪠  樨 READ.
ଠ:  READ  䨪 ६
	       /,䨪 ६/...
       믮  樨 READ ᫥騬     㣮  ६ 
ᢠ  ᫥⥫쭮 祭  ணࠬ  .	᫨ 
砥  - ᫮ ६,   ᮮ⢥騩     
樨  DATA  ⮦   - ᫮	⠭⮩.  ᫨   
樨   READ   砥  ६  ⨯  ᨬ쭮	ப,    
ᮮ⢥騩    樨 DATA ⠪   ⠭⮩ ⨯ 
ᨬ쭮 ப.    樨 RESTORE (ᬮ 㭪 15.3.)   
⠭  㪠⥫    砫࣠ 樥	DATA 
.  ⮬   ࠧ 뢠 ⠭.
	       
ਬ:        10 FOR I%=1 TO 10 STEP 2
	       20 READ A(I%),A(I%-1)
	       30 NEXT
	       40 DATA 23,27,88,17
	       50 DATA 13,17,78,-7
	       60 DATA -1,99,20,30
	       70 PRINT
	       80 FOR I%=0 TO 9
	       90 PRINT A(I%);
	       100 NEXT
	       RUN
		27  23	17  88	17  13	-7  78	99  -1
	       OK

15.3.  RESTORE  ⠭ 㪠⥫ ணࠬ  

         樨  RESTORE    ந  㪠⥫  ࠡ⪨
ணࠬ    , 騥  砫 - 樨 
DATA (ᬮ 㭪 15.1.).
ଠ:  RESTORE  /< ப >/
       ணࠬ     㪠⥫,  ⠭騩,  
᫥  ⠭     ᢮  ६.    㪠⥫ 
稭    樨 DATA  蠣  蠣 室  	ணࠬ 
	.     樨 RESTORE	  ᫥⥫ 
. 筠  ᫥⥫쭮 뢠,  㪠⥫ ⠭ 
   - ࠭ 樨 DATA (ᬮ 㭪 15.1.). 
᫨    樨  RESTORE 㪠 -   ப,    㪠⥫ 
⠭   ⠭   樨 DATA. ᫨  
  ப  ,   㪠⥫ ⠭   ⠭   
ࢮ  ணࠬ 樨 DATA. 

ਬ:        10 DATA E,I,K,H
	       20 DATA M,A,T
	       30 READ A$,B$,C$,D$
	       40 READ E$,F$,C$
	       50 RESTORE 20
	       60 READ H$,I$,J$
	       70 PRINT E$;F$;F$;A$;H$;I$;J$;B$;C$
	       RUN
	       ⭥⨪
	       

15.4.  OPEN    

      樨 OPEN 뢠    ⠭  ⮤
㯠.
ଠ:  OPEN <०>, /#/ <  >,<⨬ 䨪
	   /,< >/.
     	  ࠬ  <०>  ⠭ ⮤  㯠     
.    ⢥ ०  㪠뢠 ࠦ   ᨬ  ப, 
६  ⨯  ᨬ쭮  ப  ⠭ ⨯  ᨬ쭮  ப. 
  ਭ ᫥騥 祭:
	  "": ᫥⥫ 室  ,
	  "I": ᫥⥫ 室  ,
	  "R":   אַ 㯠  뢮/.
     ࠬ            楫  ࠦ,  楫 
६   楫 ⠭⮩.  ᫮ 祭    1  15 
⥫쭮.	    ⮣    		砥    
᪨  ,   ஬ 뫠 ࠧ 樨  㯥  
	.  ⨬ 䨪     - 
⨬   樮 ⥬  䨪஬   .  
     祭  " " ⠭ ⨯  ᨬ쭮  ப, 
     ⢥  ६	⨯  ᨬ쭮  ப    ࠦ   
ᨬ  ப.      ⠭ ᮮ⢥⢨    譨 
ﬨ  .    ⢥ 䨪஢ ஢    ࠧ蠥 
ᯮ짮 ⮫쪮  䨪.
     㯯   䨪   ஢     (..   "?"   -    "*"-
䨪) ⨬!
     ࠬ     ᯮ짮  ࠡ  ࠬ   
אַ 㯠. ᫨   ,  ᯮ ⠭⭠  , 
ᠭ   ᨪ-.  ࠬ   楫
ࠦ, 楫 ६  楫 ⠭⮩.

ਬ:       10 OPEN "I",I,"BEISPIEL"
		    .
		    .
		    .
	       30 OPEN "0",3,"B:BEISPIEL.TXT"
		    .
		    .
		    .
	       60    "B:PROGRAMM.DOC"
	       70  OPEN "0",2,S$
		    .
		    .
		    .

ਯ砭:
         樨 OPEN 뢠 -     
ᮮ⢥騬 䨪஬    譥 .  ᫨  
   ࣠,    室 ᭠砫 ᭮ ᮧ   
  ⠫ ஢ .  ६ १ࢨ ᮮ⢥騩  
       筮 ⠭⭮ ᯮ㥬   
.

15.5.  INPUT#    ᫥⥫쭮  .

     	  樨  INPUT#      ᫥⥫쭮   
	뢠    ASCII     ⮬ ,     
	뫨       樨 INPUT (ᬮ  㭪 
13.1.).
ଠ:   INPUT# <  >,<६>/,<६>/...
       ⨨      樨	OPEN  (ᬮ  㭪 
15.4.)     砥 ᪨   , 
   ஬    	        権   㯠. 
⢥⢥	 <  >   ᮮ⢥饣   
.     楫 ࠦ, 楫 ६  
楫 ⠭⮩.
         뢠  㪠    -
  <६>  ᯨ᪠  ६   ⮩  ᫥⥫쭮,     
  ᯨ᪥.  ⮬ 祭 ᨬ ப  ᢠ 
६ ⨯ ᨬ쭮 ப,  ᫮ 祭 ᫮ ६,  
⨢ 砥  訡. ᫨ 뢠 祭     
⨯,   ६,  ந室 ८ࠧ ⨯.
      뢠   樨 INPUT#     
ࠧ  묨.   ப   祭  " ".   
뢠  ⮬	  ,  	᫥    ⥪饩 
樥 㪠⥫  ,  ..    뢠 ࠧ 
  襭 ᫥ 㯠.  ᪨ ࠭   . 
᮪ 뢠 ⮢    । -  
   ।  㣮 .

ਬ:        10 OPEN "O",I,"BEISPIEL"
	       20 A%=10
	       30 B%=35
	       40 C%=20
	       50 PRINT# I,A%,B%,C%
	       60 PRINT# I,A%,B%,C%
	       70 CLOSE I
	       80 OPEN "I",I,"BEISPIEL"
	       90 IF EOF(I) THEN END
	       100 INPUT# 1,I,Z%
	       110 IF Z% > 30 THEN PRINT Z%
	       120 GOTO 90
	       RUN
	       35
	       35
	       OK

ਬ砭:
         ६ 樨 INPUT# 뢠  ᫥⥫쭮
ᨬ   		,   	  㤥      ᮮ⢥騩 
࠭⥫ ᨬ.   ᫮     ஡,   
 ࠢ騩 ᨬ ॢ ப   ⪨.   ᨬ 
ப  ࠭⥫묨  ᨬ    	ࠢ騥  ᨬ 
ॢ  ப     ⪨.	᫨  -  ᨬ쭠  ப 
    	ࠢ騥  ᨬ 
ॢ  ப