稭  窨,  ਭ  ᨬ  ᫥ 祪.

      ᫥⥫ ஢ .

     	 LINE  INPUT#    ᫥⥫쭮       
뢠    ᨬ   ASCII  -      ⠪ 
   ࠧ,	    樨	LINE  INRUT  (ᬮ  㭪   13.2.) 
᫥⥫쭮 ᨬ   .
ଠ:   LINE	INPUT#	<  >,	<६ ⨯  ᨬ쭮 
			 ப>
       ⨨ -   樥 OPEN (ᬮ  㭪
15.4.)     砥 ᪨   , 
   ஬    	        樨   㯠. 
⢥⢥  ᮮ⢥饣   㪠뢠 <   
>. <  >   楫 ࠦ, 楫 ६ 
 楫 ⠭⮩.
     稭   ⥪饩   ᨬ  ᨬ  ⪨ "CR" 
ᢠ  ६  ⨯ ᨬ쭮 ⠭.    ᨬ   
⪨ "CR"  ᢠ.

ਬ:        10 OPEN "1",2,"ਬ"
	       20 LINE INPUT# 2,
	       30 PRINT
	       40 END
	       RUN

15.7. 樨 PRINT#  PRINT# USING  뢮  ᫥⥫ 
        ଠ஢   ଠ஢.

     	  樨 PRINT#  PRINT# USING    ⢨  뢮 
ଠ樨    - ᫥⥫    ଠ஢   
 ଠ஢.
ଠ:   PRINT# <  >,/USING <㪠 ଠ>;/ 
		 <ᯨ᮪ ࠦ  뢮>=<ࠦ>/;<ࠦ>/...
		 
		 <ᯨ᮪ ࠦ  뢮>=<ࠦ>/,<ࠦ>/...
		 
		 <ᯨ᮪ ࠦ  뢮>=<ࠦ>/<ࠦ>/...
       ⨨  ஢    樨 OPEN  (ᬮ  㭪 
15.4.)     砥 ᪨   , 
   ஬    	        樨   㯠. 
⢥⢥ 㪠뢠  ᮮ⢥饣   <   
>. <  >   楫 ࠦ, 楫 ६ 
 楫 ⠭⮩.
     -   ࠦ    ᯨ᪠  ࠦ    뢮  	 
ࠦ  	ᨬ  ப,   ᫮  ࠦ,  ⠭⮩	⨯ 
ᨬ쭮 ப  ᫮ ⠭⮩.
     뢠             ᦨ,	   	 
᫥⥫쭮⥩ ᨬ 뫠   . ⮡ ⤥ 
	  뫮  ᭮ 訡筮     樨  INPUT, 
室  ⥫쭮 ⠢ ᮮ⢥騥  ࠧ⥫  ᨬ. 
 ଠ஢ 뢮  - ᫥⥫   ⠪ 
⭮  ᪠ ⭮⥫쭮 㪠 ଠ  㭪 13.4.

:
       ଠ஢ 뢮 ४ ࠧ   뢮
窮	  ⮩.  ᫨   ᯮ ,    ॡ  㦭 
   ⠢ ஡.  ᫨ - ᨬ쭠  ப 
ᠬ  ᮤন	,  騥 ஡  ࠢ騥  ᨬ  ॢ 
ப, ᨬ ப ᫮ ᫥   窨.

ਬ:        10 A%=5: B%=7
	       20 OPEN "O",I,"TEST.TXT"
	       30 PRINT# I,A%;B%;2.73;-2
	       40 A$="MUELLER"
	       50 B$="MEYER"
	       60 PRINT# I,A$,B$
	       70 PRINT# I;I;CHR$(34);A$;CHR$(34);CHR$(34);B$
		  CHR$(34)
	       80 CLOSE# I
	       90 OPEN "I",I,"TEST.TXT"
	       100 INPUT#I,A%,B%,C%,D%,A$,B$,C$
	       RUN
		5  7  2.73  -2 MULLERMEYER MULLER MEYER 			  
	       OK

15.8.  WRITE#  뢮  ᫥⥫  

        樨 WRITE#  뢠  -  
ଠ  ⠪ ࠧ,     ⥬ ।⢥	뢠   
 樨 INPUT#.
ଠ:   WRITE# <  >, <ᯨ᮪ ࠦ  뢮>
	  <ᯨ᮪ ࠦ  뢮>=<ࠦ>/,<ࠦ>/...
       ⨨  -         樨	OPEN 
(ᬮ 㭪 15.4.)     砥 ᪨   
	,    ஬         樨 
㯠.    ⢥⢥    㪠뢠   <      >	  
ᮮ⢥饣    .  <   >     楫 
ࠦ, 楫 ६  楫 ⠭⮩.
     騥    <ᯨ᪥	ࠦ  뢮>    	 
묨 ᫮묨 ࠦﬨ  ࠦﬨ  ᨬ ப,  ᫮묨 
६묨  ६묨 ⨯ ᨬ쭮 ப  ᫮묨 ⠭⠬ 
  ⠭⠬  ⨯	ᨬ쭮  ப.  ⤥	  ⤥ 
묨.
       ⮬᪨ 稢 ⮩.    ப 
⮬᪨   窨 " ".

ਬ:        10 S$="ଠ"
	       20 C%=1237
	       30 OPEN "O",  I,"BEISPIEL"
	       40 WRITE# I,S$,C%
	       50 CLOSE
	       60 OPEN "I",#2,"BEISPIEL"
	       70 INPUT# 2,S$,C%
	       80 PRINT S$,C%
	       90 END
	       RUN
	       ଠ  1237
	       

15.9.  GET  뫪 -    אַ
      㯠   .

     	 樨 GET 뫠 ।   譥   
  .
ଠ:   GET /#/<  >/,< >/
       ⨨  -         樨  OPEN
(ᬮ  㭪 15.4.)     砥 ᪨  
	,    ஬         樨 
㯠.  ⢥⢥    ᮮ⢥饣      㪠뢠 
<  >.	 <  >   楫  ࠦ, 
楫 ६  楫 ⠭⮩.
     	  ࠬ       	  - 
  .	     1   32767  ⥫쭮.  ᫨	 
ࠬ  ,  뢠 ᫥⥫쭠 । .
<	>  	 楫 ࠦ,	楫 ६    楫 
⠭⮩.

ਬ:        10 GET I
	       70 GET 5,30


15.10.  PUT  뫪 -   
           אַ 㯠.

     	  樨  PUT 뫠  ᮤন       
 .
ଠ:   PUT /#/ <  >/,< >/
       ⨨  -         樨  PEN
(ᬮ 㭪 15.4.)     砥 ᪨   
롮	,    ஬         樨 
㯠.  ⢥⢥    ᮮ⢥饣      㪠뢠 
<	 >.  <  >   楫  ࠦ, 
楫 ६  楫 ⠭⮩.
     	 ࠬ     -  . 
    1  32767 ⥫쭮.᫨  ࠬ  ,  
  뢠     ⢥ ,  ᫥饩   
᫥ ஬ .

ਬ:        10 OPEN "R",1,"ADRESSE.TXT",79
	       20 OPEN "O",2,"ADRESSE.$$$"
	       30 FIELD 1,20 AS NAME$, 15 AS VNAME$, 20 AS 
		  STRASSE$, 4 AS POSTLZ$, 20 AS ORT$
	       40 INPUT "SATZNUMMER"; SATZ%			1)
	       50 IF SATZ% < 1 THEN 230
	       60 INPUT "SCHREIBEN (1) ODER LESEN (2)": S%	8)
	       70 ON S% GOTO 80, 200
	       80 INPUT "FAMILIENNAME"; SNAME$. 		2)
	       90 INPUT "VORNAME"; SVNAME$			3)
	       100 INPUT "STRASSE"; SSTRASSE$			4)
	       110 INPUT "POSTLEITZAHL"; SPOSTLZ$		5)
	       120 INPUT "ORT"; SORT$				6)
	       130 LSET NAME$=SNAME$
	       140 LSET VNAME$=SVNAME$
	       150 LSET STRASSE$=SSTRASSE$
	       160 LSET POSTLZ$=SPOSTLZ$
	       170 LSET ORT$=SORT$
	       180 PUT 1,SATZ%
	       190 GOTO 40
	       200 GET 1,SATZ%
	       210 PRINT#2,NAME$,",",VNAME$,",",POSTLZ$,",",
		   ORT$,",",STRASSE$,","
	       220 GOTO 40
	       230 CLOSE
	       240 END
	       250 REM AN STELLE VON ZEILE 210 KANN AUCH
		   EINFACHER DIE FOLGENDE  ZEILE ATEHEN:	7)
	       260 WRITE# 2,NAME$,VNAME$,POSTLZ$,ORT$,STRASSE$

     1)-  ; 2)- 䠬; 3)- ; 4)-㫨; 5)- ⮢ ;
6)- ;  7)-  ப 210    ᫥騥 ப;  8)- 
  ⥭(2).

     	ਬ    -   ᮢ     
ᤥ 뤥প    ᮢ.

15.11.	  FIELD   ஢ ᥩ    - 
	  ⥪⮢  אַ 㯥.

     	 樨 FIELD ⠭     ஢ 
 ⥪⮢   㯮.
ଠ:   FIELD/#/<  >,< > AS
	  <䨪 ᨬ쭮 ப>/,< >
	  AS <䨪 ᨬ쭮 ப>/...
       ⨨  -   	    樨	OPEN 
(ᬮ  㭪 15.4.)     砥 ᪨  
	,    ஬         樨 
㯠.  ⢥⢥ 㪠뢠       , 
⮣    אַ 㯠. <  >   
楫 ࠦ, 楫 ६  楫 ⠭⮩.
       FIELD   .   ᥣ  ᮤন 
  .     ᪢ 㬥, 稭  
.  ࠬ    ᢠ,	稭    浪 
   ⢮  ⮢  ᮮ⢥饣  䨪   ᨬ쭮 
ப.     ⮣  ᪨ ᮢ  ⮪     
 䨪 ᮮ⢥饩 ᨬ쭮 ப.
     	  樨  LSET  	RSET  (ᬮ  㭪  15.12.)   
ᯮ  ६ ᫥  ࠢ  ᯥ⪠ ⥪⮢. ᮡ 
㤮	믮       権	८ࠧ	⨯   
᫮묨 ६묨  ६묨 ⨯ ᨬ쭮 ப,     
      ७    ।⠢  ,  ⠪  ࠧ, 
ᯥ稢  䥪⨢  ࠭  ᫮ ࠦ    ६	⨯ 
ᨬ쭮  ப  (ᬮ  ⠪  㭪  16.4.     16.5.).	   
樨  FIELD 䨪 ᨬ ப  ᯮ짮  ⮫쪮 
  ﬨ LSET, RSET, PUT  GET.

ਬ:        10 OPEN "R" ,5,"DIREKT.DAT",40
	       20 FIELD 5 ,  I AS F$,20 AS ND$, 19 AS VD$

ਬ砭:
     ।  ।⢥     뢠      
㪠  FIELD.  ᫨ ᠭ ᪮쪮 ,  ᫥  
    ,  ⮡  㬬        ॢ蠫     
樨 OPEN-R  .
		
15.12. 樨 LSET   RSET  ⠭  ࠢ⠭
        ᨬ ப ( -     
       ⥪⮢   㯮).

     	 権 LSET   RSET   祭 ࠦ  
ᨬ ப  ⠭  ࠢ⠭ ⥪⠬.
ଠ:   LSET	<६>=<ࠦ>
	  RSET	<६>=<ࠦ>
     ࠬ  <६>   '    FIELD  (ᬮ
㭪  15.11.) 䨪஬ ᨬ쭮 ப  筮 ६ ⨯ 
ᨬ쭮 ப.
     <ࠦ>   ࠦ  ᨬ ப,  ६ ⨯ 
ᨬ쭮 ப  ⠭⮩ ⨯ ᨬ쭮 ப.
         ᮡ  䥪⨢  ᯮ짮     ࠡ⪨ 
஢  ஢      ࠡ  ࠬ    ⥪⮢     
㯮.
ਬ:        10 D$=SPACE$(20)
	       20 E$="ᨬ쭠 ப"
	       30 RSET D$=E$
	       40 D$="%"+D$+"%"
	       50 PRINT D
	       RUN
	       %	ᨬ쭠 ப%
	       

ਬ砭:
     ᫨  <ࠦ>    ࠧ    ,  ⮢  
 ६ ⨯ ᨬ쭮 ப,   ᢮ 樨  
஡.  ᫨  ,  ࠧ   祭 <ࠦ>,   
<ࠦ>  ᥪ ࠢ.	 ⭮   樨 LSET ⠪    
樨 RSET.

15.13.  CLOSE      OPEN ஢ .

       樨 CLOSE ⥪饥 ᮤন  -  
 뫠    ,  ⥬ ᮤন  ࠥ  
ᮮ⢥騩  		⬥砥   ⠫	஢     
㯭.
ଠ:   CLOSE //#/<  >/,/#/<  >/.../
       ⨨  -         樨	OPEN 
(ᬮ  㭪	15.4.)	    砥     
,    ஬       樨  㯠. 
⢥⢥	᫥  <  >  樨 CLOSE   
뢠 ஢ .  ᫨       ,   
ந室  ⨥     맮 樨 CLOSE ஢ 
.  <  >   楫 ࠦ, 楫 ६ 
 楫 ⠭⮩.
( 㭪
ਬ:        10 CLOSE 1,3,4
	       80 CLOSE

ਬ砭:
         樨 END   NEW,  RESET         SYSTEM  ⠪
  	   ,    ⭮    樨 
STOP.

16. 㭪樨  ᯥ祭 ࠡ  ࠬ   몥 ᨪ.

16.1. 㭪 EOF.

     㭪  EOF 㪠뢠,     ᫮     
-  .
ଠ:   /<INTEGER-६>=/ EOF(<  )
       ⨨  -         樨  OPEN
(ᬮ  㭪 15.4.)     砥 ᪨  
	,    ஬         樨 
㯠.   ⢥⢥   ᫥         		  
ᮮ⢥饣  .
<		>   楫 ࠦ,  楫  ६   
楫 ⠭⮩.
     㭪  ਭ 祭 1,  ᫨   ᫮     
,  ⨢ 砥  ਭ 祭 .
㭪  ⨯ "INTEGER".

ਬ:        300 WHILLE NOT EOF(1)
		    .
		    .
		    .
	       400 WEND

16.2. 㭪 LOF.

     㭪  LOF  㪠뢠  ⢮ ᥩ  ᫥  ⠭   
ᠭ    .
ଠ:    /<INTEGER-६>=/ LOF(<  >) 
      ⨨ -     樨OPEN (ᬮ
㭪  15.4.)     砥 ᪨    
,    ஬       樨  㯠. 
⢥⢥       ᮮ⢥饣   
.  <  >   楫 ࠦ, 楫 ६ 
 楫 ⠭⮩.
           ᨬ쭮  16  .		 
 ᨬ쭮 128 ᥩ  128  .  ᫨   ⮨ 
⮫쪮	    ,   㭪 LOF 㪠뢠  ।⢥   
 .
㭪  ⨯ "INTEGER".

ਬ:        70 PRINT LOF(2)

16.3. 㭪 LOC.

     㭪  LOC  頥    ,	  ன    ந 
᫥   ࠡ  - ஬  אַ 㯠.  
ࠡ	  ᫥⥫묨  ࠬ			祭   㪠뢠 
६ ⢮ ᥩ,    ந .
ଠ:    /<INTEGER-६>=/ LOC (<  >)
       ⨨  -         樨  OPEN
(ᬮ 㭪 15.4.)     砥 ᪨   
	,    ஬         樨 
㯠.   ⢥⢥   ᫥   㪠  <    >	  
ᮮ⢥饣    .  ᫨ <   >	⭮   
    㯮,   㭪 LOC 頥  ,   
ன  ந ᫥ .

ਬ:        70 PRINT LOC(2)


     㭪樨 MKI$, MKS$  MKD$  楫᫥ 祭, 祭 
୮   筮    祭      筮    "᫮" 
ᨬ ப ⮩  .
ଠ:        /<䨪	  ᨬ쭮	ப>=/
		MKI$(<楫᫥ ࠦ>)
		/<䨪 ᨬ쭮 ப>=/
		MKS$(<᫮ ࠦ ୮ 筮>)
		/<䨪 ᨬ쭮 ப>=/
		MKD$(<᫮ ࠦ  筮>)
     䨪  ᨬ쭮  ப      ᠭ     -
樨 FIELD (ᬮ 㭪 15.11.).
       㭪樨 ॡ  ᫮ 祭  㯠 ଠ 
  ᨬ ப  -   אַ 㯠.  	⮬ 
MKI$ ନ ᨬ ப  2,  MKS$ ᨬ ப  4, 
  MKD$  ᨬ  ப  8.  ९ᠭ   ⠪    ᫮ 
祭   ९   樨 LSET  RSET    - 
 .

ਬ:        120 RSET ALTER$=MKI$(ALTER%)

16.5. 㭪 CVI, CVS  CVD

     㭪樨  ८ࠧ  "᫮" ᨬ ப   2  ,  4
    8    ᫮ 祭 ᮮ⢥⢥ ⨯ INTEGER  	REAL 
୮ 筮  REAL  筮.
ଠ:   /<INTEGER-६>=/
	  CVI(<"᫮" ᨬ쭠 ப  2 )
	  /INTEGER-६=/
	  CVS(<"᫮" ᨬ쭠 ப  4 >)
	  /<INTEGER-६>=/
	  CVD(<"᫮" ᨬ쭠 ப  8 >)
     䨪  ᨬ ப        -
 樨 FIELD (ᬮ 㭪 15.11.).
     㭪樨    ⨯  "INTEGER"  "REAL ୮ 筮"  	REAL 
-
 樨 FIELD (ᬮ 㭪 15.11.).
     㭪樨    ⨯ 