.PN58
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 .     


.CP15
14.3.     INP    -     

.

      INP    - .
:   /< >=/  INP (<>).
     <>      ,       

    .     0   

255 .    .

:
                   OUT 

(  13.8.).

:        100 C%=INP(52)



.CP15
14.4.  PEEK   -   - .

       PEEK    -        

  0  65535.
:  /< >=/ PEEK (<>)
     <>      ,       

   .       0  

65535  .            

 .

     :
               POKE 

(  13.9.).

:        50 PRINT PEEK(&H440)


.CP15
14.5.  SPC.

       SPC            

    .
:  SPC (<>)
     <>      ,       

   .       0  

255 .     .

:
              

 PRINT  LPRINT.

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


.CP15
14.6.  TAB.

       TAB            

.
:  TAB (<>)
     <       ,       

   .       0  

255 .          

    ,             

.

:
              

 PRINT  LPRINT.

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

               OK


.CP15
14.7.  LPOS.

      LPOS     .
:  LPOS (<>)
     <>    - ,       

     .       

   .

:        70 PRINT LPOS(AR)


.CP15
14.8.  POS.

      POS       .
:  POS (<>)
     <>    - ,       

     .          

.

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


.CP15
15.       .

                 

     .          

          SCPX.     

    128 .        

,    .     

.
                    

.       ,          

        .   INPUT-        

   KILL (  5.16.).      

     OUTPUT- .         

.             

  NAME (  5.17.).
                       

       .      -

     ,   .    

    .        

,         -       

  .       1024  . 

         

.               , 

           

.


.CP15

15.1.    DATA               

         .

               

  DATA.
:  DATA <>/,<>/...
      DATA   .     

            255  .     

  DATA               

-    .    DATA        

 .
       <>  DATA  :
     -        (  ,       

       ,               , 

        ,  );
     -             , 

            " ".
          ,     , 

    ,        .   

        .

:
               

DATA      .      

     .
.CP7
:        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
.CP9           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
.CP15          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


.CP15
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


.CP15

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
               
               


.CP15
15.4.  OPEN    

       OPEN        

.
:  OPEN <>, /#/ <  >,< 
           /,< >/.
           <>          

.             , 

             . 

    :
          "":    ,
          "I":    ,
          "R":      /.
                   ,   

    .       1  15 

.                   

  ,          

  .        - 

     SCPX    .   

       " "      , 

                    

  .            

  .           

   .
                (..   "?"   -    "*"-

) !

                 

 .    ,     , 

   -.      

,     .

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

:
          OPEN  -      

      .    

   ,          

    .      

            

.


.CP15
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#    

        ,              

 .        ,   

       .    

             

       .    -     

  ,       .


.CP15
15.6.  LINE INPUT#      
        .

        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


.CP15

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


.CP15

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
               


.CP15
15.9.  GET   -    
         .

         GET        

  .
:   GET /#/<  >/,< >/
         -           OPEN 

(   15.4.)        

  ,              

.             

<  >.   <  >     , 

    .
                          - 

  .       1   32767  .     

  ,     .
<  >      ,        

.

:        10 GET I
               70 GET 5,30



.CP15
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
.CP10          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).

           -        

     .



.CP15
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  .
                
               
.CP15

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.


.CP15
15.13.  CLOSE      OPEN  .

        CLOSE    -  

     ,       

                

.
:   CLOSE //#/<  >/,/#/<  >/.../
         -           OPEN 

(    15.4.)           

,             . 

    <  >   CLOSE   

  .         ,   

         CLOSE  

.  <  >    ,   

  .
( 
:        10 CLOSE 1,3,4
               80 CLOSE

:
          END   NEW,  RESET         SYSTEM   

       ,         

STOP.
.PA

16.          .

16.1.  EOF.

       EOF ,          

-  .
:   /<INTEGER->=/ EOF(<  )
         -           OPEN 

(   15.4.)        

  ,              

.                      

  .
<    >    ,       

 .
         1,          

,       .
   "INTEGER".

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


.CP15
16.2.  LOF.

       LOF            

    .
:    /<INTEGER->=/ LOF(<  >) 
       -     OPEN ( 

  15.4.)          

,             . 

          

.  <  >    ,   

  .
             16  .     

  128   128  .      

      ,    LOF      

 .
   "INTEGER".

:        70 PRINT LOF(2)


.CP15

16.3.  LOC.

       LOC      ,          

     -    .  

                

  ,     .
:    /<INTEGER->=/ LOC (<  >)
         -           OPEN 

(  15.4.)         

  ,              

.           <    >    

    .   <   >     

    ,    LOC   ,   

    .

:        70 PRINT LOC(2)


.CP15
16.4.  MKI$, MKS$  MKD$.

      MKI$, MKS$  MKD$   ,   

                 "" 

    .
:        /<        >=/
                MKI$(< >)
                /<  >=/
                MKS$(<   >)
                /<  >=/
                MKD$(<   >)
                    - 

 FIELD (  15.11.).
               

     -    .     

MKI$     2,  MKS$    4, 

  MKD$      8.          

       LSET  RSET    - 

 .

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

.CP15
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 

 ".


:        80 FIELD 1,2 AS Z$, 30 AS  B$
               85 GET 1
               90 A%=CVI(Z$)


.PA

17.       .

        ()        

      ,            

  .



17.1.  CHR$.

      CHR   -    

  ASCII.
:   /<   >=/ CHR$(<>)
     <>      ,        

.      0  127 .
        " ".

:        10 PRINT CHR(65)
               RUN
               A
               OK


.CP15
17.2.  ASC

      ASC   ,    ASCII 

      .
:   /<INTEGER->=/ASC (<>)
     <>       ,    

      .

:        10 ="BASIC"
               20 PRINT ASC(A$)
               RUN
               66
               OK


.CP15
17.3.  STR$.

       STR$    -      

 .
:   /<   >=/ STR$(<>)
     <>      ,       

    .
   " ".
:        40 %=40
               50 PRINT STR$(A%);A%
               RUN
               40  40
               OK

.CP15

17.4.   VAL

       VAL       -   

     .
     :   /< >=/ VAL(<>)
     <>       ,    

          .     

              

,             

.    <>         

  ,     .
        .
     :   30 PRINT VAL("-3.4")
               RUN
               -3.4
               OK
               10 PRINT VAL("ABC")
               RUN
               0
               OK


17.5.    HEX$

         HEX$      -           

        .
     : /<   >=/ HEX$(<>)
     <>       ,       

.
        " ".
:        30 X%=62
               40 PRINT HEX$(X%)
               RUN
               3E
               OK


.CP15
17.6.  OCT$.

       OCT$   -       

       .
:  /<    >=OCT$(<>).
     <>      ,        

.
        " ".

:        50 PRINT OCT$(40)
               RUN
               50
               OK


.CP15

17.7.  RIGHT$.

       RIGHT$     -   

,  .
:   /<   >=/RIGHT$
          (<>,<>).
     <>      ,     

      .
     <>    <>,    ,   

   .  <>     ,   

    ,       0   255 

.
        " ".

:        10 A$="STRING"
               20 Z$=RIGHT$(A$,3)
               30 PRINT Z$
               RUN
               ING
               OK


.CP15
17.8.  LEFT$.

       LEFT$       -   

,  .
:    /<   >=/
           LEFT$(<>,<>).
     <>       ,    

      .
         <>    <>,      , 

   .  <>    ,   

    ,       0   255 

.
        " ".

:        10 A$="STRING"
               20 Z$=LEFT$(A$,3)
               30 PRINT Z$
               RUN
               STR
               OK


.CP15

17.9.  SPACE$.

       SPACE$    -    , 

  .
:    /<   ">=/
           SPACE$(<>).
     <>      ,        

,      0  255 .
        " ".
.CP10
:        10 FOR I%=1 TO 4
               20 Z$=SPACE$(I%)
               30 PRINT Z$;I%
               40 NEXT
               RUN
                1
                 2
                  3
                   4
               OK


.CP15
17.10.  STRING$.

        STRING$         -    

 ,   .
:    /<   >=/
           STRING$(<>, <>).
       <>            

  ASCII,      .           

  ,         ,   

    0  127 .  <>   

        .
        <>           

   .  <>      , 

     ,       0  

255 .
        " ".

:        10 G$=STRING$(10,42)
               20 PRINT G$ 
               RUN
               **********
               OK


.CP15

17.11.  INSTR.

       INSTR    -    

        ,     

            

 .
:   /<INTEGER->=/ INSTR(< >,
          <>,< >)
      < >      <>, 

      .  < > 

      <       ,   

     1  255 .        

,      .
       <>   < >      

  ,            

 .
        0,      , 

       < >  

<>.
        INTEGER.
.CP10
:        50 A$="MATHEMATIK"
               60 B$="MA"
               70 PRINT INSTR(A$,B$)
               80 PRINT INSTR(3,A$,B$)
               RUN
                1
                6
               OK


.CP15
17.12.  MID$    .

       MID$         -   

.
:   /<   >=/
          MID$(<>,<>,<>).
<>          ,     

        ,      

  .
      <>    <>,     

   .       0    255 

.
       <>      .   

    0  255 .     , 

             

<>.
       <>   <>     ,   

   .
        " ".

:
           <>       

<>   ,     <>    

<>   ,         .   

    <>          

,     .

:        10 P$=MID$(" ",8,4)
               20 PRINT P$
               30 P$=MID$(" ",8)
               40 PRINT P$
               50 P$=MID$(" ",13)
               60 PRINT "<";P$;">"
               RUN
               KETT
               KETTE
               OK


.CP15
17.13.  MID$       .

     ,     , MID$    

   ,    -   

     ,       

 .
:   MID$(<  1>,<>/,<>/)=
          <  2>
     <   1>        

      .          

  <  2>,    <>.       

<>     .
       <>   <>     ,   

   ,      1  255.
        <>,      < 

  2>,       1,    < 

  2>    ,          

,      <  2>.       

<>,     <  1>,     

.
:
          ,       

<  1>.

:        10 SI="DAS IST ELNE ZEICHENKETTE"
               20 MID$(SI$,9,4)="LENE"
               30 PRINT SI$
               RUN
               DAS IST LENE ZEICHENKETTE
               OK


.CP15

17.14.  LEN.

       LEN    ,  ..      - 

 .
:   /<INTEGER->/ LEN(<>)
     <>       ,   

       .
        INTEGER.

:        30 A="BASIC"
               40 PRINT LEN(A$)
               RUN
               5
               OK


.CP15
18.       .

          :
     [< >=]< >(<>)
         <>     ,     

.            , 

                

  .    <>         ,   

  <>   ,       

.
                      -, 

        .


.CP15
18.1.   ABS

        ABS             

.
:  [< >=] ABS (<>)
     <>       ,      

  ,    ,        

  .
             .

:        10 PRINT ABS(8*(-3))
               RUN
               24
               OK


.CP15

18.2.  FIX
     
       FIX             

  .
     :   [< >=] FIX (<>)
     <>      ,     

 ,    .
         .

:
        
               SGN(X)*TNT(ABS(X))

:        10 A!=-57.85: B!=5: C!=-5.8
               20 PRINT FIX(A!);FIX(B!);FIX(C!)
               RUN
               -57  5  -5
               OK

.CP15
18.3.   INT

      INT  () .
:   [< >=] INT (<>)
     <>     ,       

 ,    .
         .

:        10 Z!=88.88
               20 PRINT INT(Z!)
               30 PRINT INT(-Z!)
               RUN
                88
               -89
               OK


.CP15
18.4.  SGN

       SGN           

 .
:  [< >=] SGN (<>)
     <>     ,      

 ,    .
             :
          =+1,     ;
          = 0,     ;
          =-1,     .

:        10 INPUT "EINGABEWERT";X%
               20 ON SGN(X)+2 GOTO 40,60,80
               30 GOTO 100
               40 PRINT "EINGABEWERT NEGATIV"
               50 GOTO 10
               60 PRINT "EINGABEWERT NULL"
               70 GOTO10

               80 PRINT "EINGABEWERT POSITIV"
               90 GOTO 10
               100 END


.C15
18.5.  SQR

        SQR              

    . 
:    [< >=] SQR(<>)     
     <>     ,      

 .      .
           .

:        10 FOR I%=1 TO 5
               20 PRINT I%, SQR(I%)
               30 NEXT
               RUN
                1    1
                2    1.41421
                3    1.73205
                4    2
.CP15           5    2.23607
18.6.   EXP

       EXP        

   .
:   [< >=] EXP (<>)
     <>      ,      

  .              

87.3365.
           .

:        10 Z!=10
               20 PRINT EXP(Z!-7)
               RUN
                 20.0855
               OK

:
                ,   

       OVERFLOW ().     

,              . 

  . 


.CP15

18.7.  LOG

      LOG       

  .
:   [< >=] LOG (<>)
     <>      ,       

 .
           .

:        10 A!=77
               20 B!=8
               30 PRINT LOG(A!/B!)
               RUN
                2.26436
               OK                     


.CP15
18.8.  SIN

       SIN         

 .
: [< >=] SIN (<>)
     <>      ,       

 ,   .
           .

:        10 A!=0.9
               20 B!=0.7
               30 PRINT SIN(A!+B!)
               RUN
                   .999574
               OK


.CP15
18.9.  COS

       COS       

 .
:  < >=] COS(<>)
     <>      ,       

 ,   .
           .

:        10 X!=2*COS(4)
               20 PRINT X!
               RUN
                 -1.30729


.CP15

18.10.   TAN

      TAN        

 .
:  [< >=] TAN (<>)
     <>      ,       

 ,   .
           .

:        10 A!=1.9
               20 PRINT TAN(A!/2)
               RUN
                 1.39838
               OK


.CP15
18.11.  ATN

        ATN            

    -PI/2  PI/2 ( ).
:   [< >=] ATN (<>)
     <>      ,       

     .
           .

:        10 X!=3
               20 PRINT ATN(X!)
               RUN
                 1.24905
               OK


.CP15
18.12.  RND

      RND       0  1.
:  [< >=] RND (<>).
       -     

          RND.          

     <>.      

,             ,    

      .         

  ,        .   

    ,    ,         

   .      ,   

,     .

:        10 FOR I%=1 TO 3
               20 PRINT RND(I%);                  ' > 0
               30 NEXT
               40 PRINT: PRINT
               50 X!=RND(-6)                      ' < 0
               60 FOR I%=1 TO 3
               70 PRINT RND(I%);                  ' > 0
               80 NEXT
               90 PRINT: PRINT

               100 RANDOMIZE 888                  'RANDOMIZE
               110 X!=RND(-6)                     ' < 0
               120 FOR I%=1 TO 3
               130 PRINT RND;              '  ,  . > 0
               140 NEXT
               150 PRINT: PRINT
               160 FOR I%=1 TO 3
               170 PRINT INT(RND(0)*100)
               180 NEXT
               RUN
                 .245121    .305003    .311866
                 .709808    .658938    .639327
                 .709808    .658938    .639327
                 63         63         63
               OK
            

.CP15
18.13.    RANDOMIZE        

         

                    . 

  RANDOMIZE       

 .
:  RANDOMIZE (<>)
            ,       

           ,            

  .       

 -32768  32767.      ,      

"RANDOM NUMBER SEED (  ) (-32768  () 32767)?"   

    .   ,      

     .
.CP8
:        10 RANDOMIZE 3
               20 FOR I%=1 TO 3
               30 PRINT RND;
               40 NEXT
               RUN
                 0.88598  0.484668  0.586328  0.119426  0.709225
               OK

:
     ,  ,          0 

 1,         170    

 .



.PA

19.        

19.1.  LET    

       LET      .
:  [LET] < >=<>
      LET     .

:           :

               10 LET Z!=Z!%+Z!
            
               10 Z!=Z!%+Z!

:
     ,      ,    

 LET.      .

.CP15
19.2.  REM

     :  REM <>
              
                ' <>
                       

    .             

,      .     REM  

    "'".       GOTO,  . 

GOSUB,      .

:        100 GOSUB 150
                    . . .
               150 REM  1
                    . . .
               180 RETURN  ' / 1
                    . . .
               210 H3!=25*A!/B !:   ZZ#=H3!*ZZ#:  REM  

: -  .


.CP15
19.3.   END   -

       END   -.
:  END
        END    ,   

               

-.           

  .   -  END , 

     ,    END     

 .  END      .
     :
         -,       

               .   

 END ,   ,      

 .



.CP15
19.4.  STOP    

      STOP   .
:   STOP
            "BREAK IN (  )  < 

>".             .    

                 . 

        CONT (.  

5.5.)   ,     STOP.

:        10 FOR I%=0 TO 4
               20 FOR J%=1 TO 2
               30 PRINT I%+J%
               40 NEXT
               50 STOP
               60 NEXT
               RUN
                 1  2
               BREAK IN 50
               OK
               CONT
                 2  3
               BREAK IN 50
               OK

:
          -    STOP    

 END.         

      ,           STOP.    

  /D, /X  /E,     .


.CP15
19.5.  FRE

       FRE                

  .
:  FRE (O)
      
         FRE (X$)         
               ' 

,       ,    ,   

     ' ,  

  .

:        350 PRINT FRE(O); FRE (A$)

:
                 

  (..  FRE  (" ")),        

  '          "  ",   

                 

      .     

              ( 

  )      .  

  FRE  ("  ")         

 .