
8.  権  몥 ᨪ

      몥 ᨪ ࠧ ᫥騥 樨:
- 䬥᪨ 樨
- 樨 ࠢ
- ᪨ 樨
- 樨  ப 
     䬥᪨ 樨 ।⠢  ᫥饩 ⠡:

      樨  I     祭    I    ਬ
----------------------I-----------------I--------------
		      I 		I
	  +           I         I    A%+B%
		      I 		I
	  -           I     ⠭   I    A%-B%
		      I 		I   
	  *           I        I    A%*B%
		      I 		I
	  /           I          I    A%/B%
		      I 		I
	  \           I   ᫥ I    A%\B%
		      I     	I 
		      I 		I
	  ^           I      I    A%^2
		      I     ⥯	I
		      I 		I
	  -           I        I    -A%
		      I 		I
	  MOD         I   ᫥    I    A! MOD B!  楫᫥
		      I     	I    ⮪
			  
       䬥᪮  樨 ਢ  ᮮ⢥⢨    ⨯
ࠬ १.

ਬ:        10 %=19/8
	       20 PRINT A%
	       RUN
	       2
	       OK

ਬ砭.
       楫᫥  ࠭ ८ࠧ  INTEGER-᫠    
⮩  稭   ⮫쪮    -32768   32767.   
INTEGER-  楫᫥  ⭮  ࠭.

ਬ:       10\4=2
	       36.99\6.99=6

       ᫥    ⢥ १   INTEGER-᫮, 
஥ ᮮ⢥  楫᫥ . 

ਬ:       10 MOD4=2
	       36.99 MOD 6.=0

      ࠢ ।⠢  ᫥饩 ⠡:

      樨    I      祭        I      ਬ
------------------------I----------------------I----------------- 
			I		       I
	  =             I                 I    A%=B%
			I		       I
	 <>             I        ࠢ       I    A%<>B%
			I		       I
	  <             I                I    A%<B%
			I		       I
	  >             I                I    A%>B%
			I		       I
	  <=            I     ࠢ   I    A%<=B%
			I		       I
	  >=            I     ࠢ   I    A%>=B%

᫨  믮,  ࠡ뢠 -1,  ⨢ 砥 0. ᫥
祭,   騥      ࠢ,       ᭮ 
ᯮ짮.     ᫥饣 ਬ,  ஬ ।  
᫮   ६   .

	       10Z!=5.1
	       20 X!=3.5
	       30 MINWERT!=-(Z! > X!)*X!-(Z! <= X!)*Z!
	       40 MAXWERT!=-(Z! < X!)*X!-(Z! >= X!)*Z! 
	       50 PRINT MINWERT!; MAXWERT!
	       60 END
	       RUN
	       3.5  5.1

	  ᪨ 樨 ।⠢  ᫥饩 ⠡:

       樨    I         祭          I     ਬ
-------------------------I---------------------------I-------------------
			 I			     I
	  NOT            I         栭         I     NOT A
			 I			     I
	  AND            I   ᪮ 㬭    I   A AND B
			 I			     I
	  OR             I   ᪮ ᫮     I   A OR  B
			 I			     I
	  XOR            I   ᪫饥          I   A XOR B
			 I			     I
	  IMP            I                 I   A IMP B
			 I			     I
	  EQV            I   ⭮         I   A EQV B

祭 ᪮ 㭪樨 "⨭" ।⠢ ஬ ⮢,  ࠢ
,  祭 ᪮ 㭪樨 ""- 㫥.
								      
ਬ:        20 IF NOT EOF(I) GOTO 80
	       90 IF BE% > 70 AND HA! < 80 GOTO 100

     ᪨  樨     ந    塠묨  稭
(INTEGER-祭  筮 ।⠢),   ⮬ ந ⭠ 
ࠡ⪠.  ந室  ᫥騬 ࠢ:


        I   1 ࠭   I   2 ࠭   I  
----------------I---------------I---------------I-------------
		I	 1	I	1	I      1
     END	I	 1	I	0	I      0
		I	 0	I	1	I      0
		I	 0	I	0	I      0
----------------I---------------I---------------I-------------
		I	 1	I	1	I      1
      OR	I	 1	I	0	I      1
		I	 0	I	1	I      1
		I	 0	I	0	I      0
----------------I---------------I---------------I-------------
		I	 1	I	1	I      0
     XOR	I	 1	I	0	I      1
		I	 0	I	1	I      1
		I	 0	I	0	I      0
----------------I---------------I---------------I-------------
		I	 1	I	1	I      1
    IMP 	I	 1	I	0	I      0
		I	 0	I	1	I      1
		I	 0	I	0	I      1
----------------I---------------I---------------I-------------
		I	 1	I	1	I      1
     EQV	I	 1	I	0	I      0
		I	 0	I	1	I      0
		I	 0	I	0	I      1
----------------I---------------I---------------I-------------
     NOT	I	 1	I		I      0
		I	 0	I		I      1
----------------I---------------I---------------I-------------

ਬ:        A%=63 AND 16
	       A% ࠢ 16 ..
	       63  筮 ।⠢: 111111
	       16  筮 ।⠢: 010000
					    -------
	       A%  筮 ।⠢: 010000

	       %=4 OR 2
	       A% ࠢ 6 ..
	       4  筮 ।⠢: 0100
	       2  筮 ।⠢: 0010
					  ------
	       A%  筮 ।⠢ 0110

ਠ ᯮ짮   ᫥饬 ਬ,  ஬ INTEGER-᫮ 
⭮  ।⠢  (  1:	   ⠭,   0:	    ⠭) 
⮢   ப .

	       10 BF$=" "
	       20 INPUT "INTEGERZAHL"; IZ%
	       30 FOR I%=15 TO 0 STEP -1
	       40 BF$=BF$+STR$(ABS((IZ% AND 2^I%) -2^I%))
	       50 NEXT I%
	       60 PRINT BF$
	       70 END							    
	       RUN
	       INTEGERZAHL:? (EINGEGEBEN WIRD 143)	  *
	       0000000010001111 		   *  143
       ப  ६  ⢨⥫쭠    ⥭樨  ..
ᮥ   ப   .      砥      樨   "+".
ନ஢ ⠪ ࠧ ப      255 .

     ਬ:  10 $="' "
	      20 B$="ப "
	      30 C$="ᨬ"
	      40 D$=A$+B$+C$
	      50 PRINT D$
	      RUN
	      ' ப ᨬ
	      

   ப    ⢨⥫  ⠪  樨   ࠢ.   ࠢ
ந室 筮,   ।⠢   ASCII.

ਬ:       "AA" , 祬 "AB"
	       "ப" ࠢ "ப"
	       "DB" , 祬 "CB"
	       "PS" , 祬 "P#"
9.  ᨢ (ARRAY)  몥 ᨪ

9.1.  ᠭ DIM  ᨢ

        ᠭ DIM 뢠 ᨢ,  騥  
᪮쪮 ७.
ଠ:  DIM <祭 ६ ᨢ"
	  (<孨 ࠭ >) [,<祭 ६ ᨢ>
	  (<孨 ࠭  >)]...
	뢠  ᨢ  ࠧ  ⨯,   ᮮ⢥⢥  ࠭ 
祭 ६.  ᫮ ࠧ ᮢ  ⠢  ᨬ 
255,  ..  ⥮᪨    ᠭ ᨬ 255-ࠧ ᨢ.
訩      ᮢ  㬮砭  ࠢ  .   
 ਠ BASE1 (.  ࠧ 9.2.)  ࠭    
⠭ ࠢ 1.

ਬ:        10 DIM SI$(12), A%(5,5)
	       20 DIM X5#(5,3,3,5)

ਬ砭:
        몥   ᨪ      ᯮ짮  ᨢ   
ࠧ୮  	 ᮢ  0  9   ⮣    ᠭ 
ᨢ,  ..    ਢ    㤭⠥ ணࠬ    ⨢
ᮢ६ ⮤ ணࠬ஢.	ᠭ ࠧ୮ ᨢ   
ந室  ।   饭    ᨢ.    ⮬,  
   ࠭   䬥᪮ ࠦ,  ஥ 
    ᠭ ᨢ.   ࠡ  ᨪ-,  
⢥  孨 ࠭  ᯮ짮 ६   ࠦ.   
  ⮫쪮 ⠭.

9.2   OPTION BASE  ந쭮    ࠭   
      ᠭ ᨢ.

     	  OPTION BASE  ࠭   । 
ࠧ୮ ᨢ    ࠢ 0  1.

ଠ: OPTION BASE N  
稭 N  ਭ 祭 0  1.

ਬ:        10 FOR I%=0 TO 4
	       20 A(I%)=2*I%
	       30 PRINT A(I%)
	       40 NEXT
	       RUN
		0  2  4  6  8
	       OK
	       5 OPTION BASE 1
	       10 FOR I%=0 TO 4
	       20 A(I%)=2*I%
	       30 PRINT A(I%)
	       40 NEXT
	       RUN
	       SUBSCRIPT OUT OF RANGE IN 20
	       OK
ਬ砭:
      㬮砭 OPTION BASE ⠭ ࠢ 0.   ०
ᥣ 㦨  饭 ६饭 ᨪ-ணࠬ,  ..    㣨
ᨪ-஢  (  )  ⢥  ࠭  ᭮
  㬮砭  1.


9.3.  ERASE  ࠭ ⥩ ,  ᨢ.

     	  ERASE     ࠪ⨪  ᨢ 
 饭 ,  㦥 㦭 ᨢ.
ଠ:  ERASE <祭 ६ ᨢ>
	  [,<祭 ६ ᨢ>]...

ਬ:        10 DIM A! (20,20,20)
		    .
		    .			
		    .
	       80 ERASE A!
		    .
		    .
	       100 DIM A!(40,5)

:   ᨪ-    믮.



10.  横  몥 ᨪ
10.1.   FOR,  TO, STEP  NEXT  ࠧ 横  䨪஢ 
       ᫮ 宦.

     	  ஢ FOR,  TO,  STEP  NEXT ணࠬ  横   
䨪஢ ᫮ 宦.
ଠ:  FOR < 横>=<砫쭮 祭> TO <筮 祭>
	      [<STEP <蠣>]
		    .
		    . <>
		    .
	       NEXT [< 横>] [,< 横>]...


< 横>   ᫮ ६ ⨯ INTEGER  REAL  ⮩
筮.
<砫쭮   祭>,<筮  祭>  	<蠣>      ᫮ 
⠭⮩,  ᫮  ६   祭  ᫮  ࠦ	⨯ 
INTEGER   REAL   ⮩ 筮.  ᫨ 蠣   ,   㬮砭
ᯮ 祭 1.   稭 । 믮 横   
 ६  믮 横     .  ⢨  ⮣ 
  ,     ⢫ 室  ⥫ 横 (⥫  横  - 
᫥⥫쭮  ஢,    稭    ࢮ  , 
饣 ᫥  FOR  稢 ஬ NEXT,  騬   
	横,	  FOR).   ᫥⥫쭮 ஢ ⥫  横 
砥    NEXT.
         横,      㣠.  	⮬   
ᮡ ᫥饥 ᫮: ७ 横   㪫뢠 
  ࠭  譥 横.  ᪮쪮    㣠  横   
稢,	᫨  室,   ஬ NEXT.   ⮬  砥 
    横         NEXT         	। 
᫥⥫쭮,  ,     ᠬ ७ 
横,  ᫥ - ᠬ 譥.
     믮  ⥫  横 ந室 ⠪  ࠧ,       
 横 ࠡ뢠 ᪮쪮 ࠧ,    ⨬ 祭 
 横.  室 ந室  砫 祭  横. 
⥬ 祭  横   稭 蠣.   ⥫쭮 
蠣   横 㢥稢  稭 蠣,   ⥫쭮 蠣 - 
ᮮ⢥⢥ 㬥蠥.  騩 室 横 ந室  ⮬ 砥, 
᫨  祭 横   ॢᨫ ( ⥫쭮 蠣),    
⠫  ( ⥫쭮 蠣) 筮 祭.
	      
ਬ:        10 FOR I%=10 TO 0 STEP -1
	       20 PRINT I%
	       30 NEXT
	       40 NED
	       RUN
		10  9  8  7  6	5  4  3  2  1  0 
	       OK
	       10 J%=6
	       20 FOR I%=1 TO J%+4
	       30 PRINT I%
	       40 NEXT
	       50 END
	       RUN
		1  2  3  4  5  6  7  8	9  10
	       OK


ਬ砭:
      ६  ⮬,  ⮡ ᥣ 뢠 ६ 横 
INTEGER-६.        ⮣	⢥  ᪮   믮 
ணࠬ.    ᫥  ०६ 室  ⥫ 横   
    室,  ..  - ⮣ 横  ⠥  ⨢  
  ⥫쭮   .  ⮥ 饭  横    
⮬ 砥 ਢ        뢠 ணࠬ  
訡.      ⮬  砥,   ᫨  FOR-NEXT-横      易⥫쭮 
०६ ,  ᨬ  ᫮ ०६ 뢠 
	横    ⠪ ࠧ,  ⮡    ⮣	横 
୮ 稫.
     ਬ,	᫨    䠩    ⠭   	100  . 
ࠣ ணࠬ  ⮬ 砥  룫拉 ⠪:

		    .
		    .
		    .
	       110 OPEN "I", 1, "BEISPIEL"
	       120 FOR I%=1 TO 100
	       130 INPUT# 1, Z%, X1%, Y2!
	       140 IF EOF(1) THEN I%=101
		    .
		    .
		    .
	       180 NEXT I%
		    .
		    .
:
        ᯮ짮   ६   横      ᫮   ࠦ   
楫᫥묨   祭ﬨ,	 ᫥          筮 
㣫,     ਢ  筮 뢠 横  (᫮ 
砭 - 譮 㣫  㤥 ).  ᯮ짮 
  몠  ᨪ,      ⢥    横  ⨬  ⠪
६ ⨯ REAL   筮.

10.2.    WHILE   WEND  ࠧ 横   ६  ᫮ 
       宦 (樮 横).

     	 ஢ WHILE  WEND ணࠬ 横    ६ 
᫮ 宦.
ଠ: WHILE <ࠦ>
	       .
	       .<>
	       .
	WEND
      ,   <ࠦ>,  ।⠢饥 ᮡ  ᫮
ࠦ,  ⫨砥   0,    "⨭"  ⢥  ᪮ 
ࠦ.   稢,  ᫨ <ࠦ> ᮮ⢥⢥ ࠢ 0  
 "".   WHILE  WEND  ணࠬ   
⮫쪮   .   WHILE-横   ⮫쪮 믮塞 
,  ⭮,    ணࠬ஢ WHILE-横.

ਬ:        5 REM EINFACHSTES SORTIEREN
	       10 DBL%=9
,  ⭮,    ணࠬ஢ WHILE-横.

ਬ:        5 REM EINFACHST