  18.      .
    
  ,      
   PRINT,     
   

        .   -
  .  ,     
.          
  PRINT.      -
.
           
    64  32,    
 .     :

     10 CLS:PRINT "  "
     20 LOCATE 20,15:A$="0123456789":PRINT A$
     30 B$=INKEY$:IF B$="" THEN 30
     40 PRINT CHR$(27);B$:GOTO 20

      : 1 - ,
2 - , 3 -     ,    
  ,        .
  ,      CHR$(27)
 CHR$(51) (51-ASCII   3).  : 4 - ,
5 - , 6 -   .  
    ,    . :
7 -   , 8 - , 9 - , 0 - .
   2.     .
     ,   :

     CHR$(27);"3" -   32   
     CHR$(27);"2" -   64   
     CHR$(27);"6" -  
     CHR$(27);"7" -   

     LOCATE   20?  LOCATE
     .  
  .   :

     LOCATE X,Y

 X,Y -      ,   -
 .      (1,1),
     64  - (64,16).   -
,   ?      ,  -
    PRINT.
      PRINT      .
     1. PRINT   PRINT  , 
   ";"   ",".    
.
     2. PRINT TAB () .    
 ,      
 (     ),  -
,    "".
     3. PRINT USING ""; .   
  ,    "".
           PRINT 
.   PRINT TAB.    
  .  

     PRINT TAB(10) "1" TAB(20) "2" TAB(30) "3"
              1         2         3

 1   10- , 2 -  20-  3 -  30-.

     PRINT "" TAB(20) " " TAB(50) ""

  

                           

 ,   TAB(n)    
 ";"   ",".
        PRINT USING.  
     .   
?  ,    .   
     :

     # #.#

  #     ,  "."  ,
    .
        :

     PRINT USING "# #.#";72563
     72.6
     PRINT USING "# #.#";72
     72.0

 ?       ,
    .
        :

     PRINT USING "##.#";768.56
     %768.6

   %?     ,   -
    ,    .
    ,  -   
,   .   -
      
 .    ,   "-" -
   .
            ? 
   ,    .

     PRINT USING "####";123;456;789
     123 456 789

 ,       -
.    

     PRINT 123;456;789
     123456789

  ?       PRINT,  
  4  .       -
.     .  
   ,    
    ,    .
     ,        -
     .    
  PRINT USING.     ",", -
       "#"   .
,

     PRINT USING "#,######.#";1000000
     1,000,000.0
     PRINT USING "##,######";1000000
     1,000,000

         ? ,   -
 -    .    -
:
     PRINT USING "*###.#";12.34
     * 12.3

     "*",    
.
            
"*",    :

     PRINT USING "**####.#";12.34
     ****12.3

,       
 "*".
          "$".  
   

     PRINT USING "$###.#";12.3

        :

     $12.3

      "$$", 

     PRINT USING "$$####.#";12.3
     $12.3

   "$"  ""      -
   .
     ,       , -
:

     PRINT USING "#### .";124
     124 . 

       
  "#"    "+":

     PRINT USING "+##.#";12.3
     + 12.3
     PRINT USING "+##.#";-12.3
     -12.3

 ,       "-",
   "#"   "-":

     PRINT USING "-##.#";12.3
     -12.3

      

     PRINT USING "=##.#";-12.3

 ,       
    "%".    , 
  ,   "-"   .
         "#"   "-",  -
     ,   
      , :

     PRINT USING "##.#-";-12.3
     12.3-

      ,       -
 . ,    
         .
, ,      
 .     
"^":

     PRINT USING "##.#^";1234
     1.2 +03

       PRINT USING  
   .     -
 "!"  "%%".  "!"     -
    :

     PRINT USING "!";"  "
     

      
 "%%".      
    "%"  2, :

     PRINT USING "%   %";"  "
      

      ,        -
    ?    
   .    
,      , -
:

     PRINT USING "A=##.# B=###.#";12.3;123.4
     A=12.3 B=123.4

           PRINT   
    .
         , ,  -
,      - .
       .    
   ,      
  .  .  
    - 
.     , 
  "" :

     5 CLS:DIM A$(4):CN=1
     10 A$(1)="1.  "
     20 A$(2)="2.    "
     30 A$(3)="3.  "
     35 A$(4)="4.  "
     40 FOR I=1 TO 4:LOCATE 10,5+I,0:PRINT A$(I):NEXT I:GOTO 100
     50 B$=INKEY$:IF B$=" " THEN 50
     60 IF B$=CHR$(26) THEN CS=CN:CN=CN+1:IF CN>4 THEN CN=1
        GOTO 100
     70 IF B$=CHR$(25) THEN CS=CN:CN-1:IF CN<1 THEN CN=4 GOTO 100
     80 IF B$=CHR$(1) THEN CN CN GOSUB 1000,2000,3000,4000
     100 LOCATE 10,5+CN:PRINT CHR$(27);"6";A$(CN)
     110 LOCATE 10,5+CS:PRINT CHR$(27);"7";A$(CS):GOTO 50

        ?     -
   .   .   -
 .        
        . 
      .  
,        
     .    
    60  70.
         .   
,      ,   
:

     10000 A$=INKEY$:IF A$="" THEN 10000
     10010 PRINT ASC(A$):GOTO 10000

   RUN 10000.    -
,        
10000.          .
,     .  ,
    25,    26.  
 ,    60  70  

     IF B$=CHR$(26)  IF B$=CHR$(25)

 26  25  ,    .   
  10000  10010   .  
,    ?
          
   . ,   LOCATE  
40   .    ,    
 0  1,      -
  .    .   
   ,   -  -
    .
          
  : " ".   ?  
  .
      , ,      -
    .  
     .  
  ,   ,     -
  -.     
 .
     , .  -   -
        . , 
    512*256       -
  16 .     

     PSET (X,Y),Z

 X,Y -        -
, .    ,  0<=X<=511,
0<=Y<=255. Z -  ,     0 
7. ( , , :     8 -
?   ,    ).
           -
 "  ".  ,    ""
,   .  -
 .      
 -   : RND(N).   -
,  ,     
   1  N.
     , "  ":

     10 CLS:PCLS
     20 PSET(RND(511)*511,RND(255)*255),RND(7)*7
     30 GOTO 20

  .  ,    
  .       
 .      
,    .    

     PRESET(X,Y)

 X,Y -   (0<=X<=511, 0<=Y<=255).  
   :

     25 PRESET (RND(511)*511,RND(255)*255)

 RUN   . ,   -
,     PCLS   10. , ,  
. ?  .  ,    -
  -   . -
,      -
 .    PCLS.     
  Picture Clear Screen -    -
.
          . , 
  ,     
(,  ,     -
 0<=X<=511  0<=Y<=255),     -
 .      
SIN(X).    .    X 
 1 ( 0  511):

     10 CLS:PCLS
     20 DIM SN(511)
     30 FOR I=0 TO 511:SN(I)=SIN(6.28/512*I)
     40 LOCATE 24,6:PRINT " ":LOCATE 30,8,0:
        PRINT I
     50 NEXT I
     60 CLS

 .      :

     70 FOR C=1 TO 7:FOR I=0 TO 511:PSET(I,127*(1-SN(I))),C:
        NEXT I,C

   ,     -
 ,   .  . 
:     .   .  -
     LINE:

     LINE (X1,Y1)-(X2,Y2),K,(F)

 X1,Y1  X2,Y2 -  ,   -
  ,  -  ,    
 ,   .    
   X1,Y1-X2,Y2,     
  "".     , 
  ""  "F".
         .    -
 :

     65 LINE (0,0)-(0,255),7:LINE(0,127)-(511,127),7

,      .
      ,     -
 ?      -
  LIST.  ,     
  .
          . .
 ,  .   -
.   ,     ,  -
     ,   , 
  .     :

     10 CLS:PCLS
     20 DIM SN(511)
     30 FOR I=0 TO 511:SN(I)=SIN(6.28/512*I)
     40 LOCATE 24,6:PRINT " ":LOCATE 30,8,0:
        PRINT I
     50 NEXT I
     60 CLS
     70 LINE (0,0)-(0,255),7:LINE(0,127)-(511,127),7
     80 FOR C=1 TO 7:PSET(0,127),G:FOR I=0 TO 511 STEP 16:
        LINE-(I,127*(1-SN(I))),C:NEXT I,C

 ,    LINE    
1,Y1.         -
    X2,Y2.
      .  ,   
      .
         .     -
  ? ,   
  .      -
     

     RELOC(X,Y)

 X,Y -    (- 32769<X,Y<+32768).
  ,   :

     10 CLS:PCLS:DIM EX(72),X(72)
     20 FOR N=1 TO 72:X=156-N*4:X=X*X/1024:EX(N)=EXP(-X):X(N)=
        100+4*N:NEXT N
     25 FOR K=-8 TO 0:RELOC(5*K,-5*(8+K)):
        LINE(100,255)-(100,255),0
     30 FOR I=1 TO 72
     35 A=(8+K)/8
     40 Y=127*(2-A*EX(I)):LINE-(X(I),Y)
     50 NEXT I,K

     ,     25  LINE? 
, ,   ,     
   .   -
.
        .   . -
  - . , .  -
  .  ,  ,  
  :

     10 CLS:PCLS:RELOC(0,0)
     20 LINE(50,70)-(450,240),7,B
     30 FOR I=0 TO 2:FOR J=0 TO 6:SX=50*J
     40 ST=50*I:RELOC(SX,ST)
     50 LINE(85,95)-(100,120),7,B
     60 NEXT J,I

       .  -
    .    


     PAINT (X,Y),n,m

( . paint - ).    ,
   ,   X,Y.
        . 
   n,   - m.  -
 ,    :

     70 PAINT(60,60),4,7

  .  .   ,
 ,     

     DRAW "", 

( . ).     .
  ,   

     Un -   n ,
     Dn -   n ,
     Rn -   n ,
     Ln -   n ,
     En -     n   ,
     Fn -     n   ,
     Gn -     n   ,
     Hn -     n   ,
     Mx,y -      (x,y)
            (  x  y   "+"  "-",
               ).

     :

     B - ,    
     N -     
     A -   
         1 -  90 
         2 -  180 
         3 -  270 
         0 -    
     Sn -    - n/4.
             1 n=0-4.
     Cn -   , n -  

,  :

     80 RELOC(0,0):PSET(50,70),0:DRAW"E30R340F30",7
     90 PSET(255,40),0:DRAW"U20NM205,35M270,15",7
     100 DRAW"NM240,11NM300,19":LINE(207,28)-(237,32):
         LINE (224,23)- (254,27)
     110 PRINT ",      !"

      .
          - ? 
 ? , .   , ,  
?        

     CIRCLE(X,Y),,,,,

 X,Y -  ;  -  ; ,
-    ( ),      "-",
        ,  -
   .
     :

     10 CLS:PCLS:RELOC(0,0)
     20 INPUT "   0,  
        ";N
     30 CIRCLE (255,127),50,7, , ,N
     40 LOCATE 30,15:PRINT " ,  "
     50 A$=INKEY$:IF A$=" " THEN 50 ELSE 10

 ,       -
 ,       
"".    ,  ,
 N=1, 1.25, 10  0.1.
         . -
,   ,    ,   
PAINT.       
:

     10 CLS:PCLS
     20 FOR K=0 TO 50 STEP 10
     30 CIRCLE(255,125),77+K,7
     40 FOR I=0 TO 6
     50 PAINT(255,200+K),I,7
     60 NEXT I:NEXT K
     70 GOTO 20

 . ,    PAINT? 
  .  ,   -
.     ? ,   -
  ,   .   ,
         -
.     .  
  

     LUT A(n)

A(n) -      n+15 (n 
    0  ).   
        (n)  (n+15).
,     16 . ,  
  :

     10 CLS:PCLS:DEFIFNT L:DIM LT(31),L1(31):K=1
     20 FOR I=0 TO 7:LT(I)=I+8:LT(I+8)=15:NEXT:LT(0)=0:
        LUT LT(0):FOR I=0 TO 7:L1(I)=I+8:L1(I+16)=I+8:
        L1(I+24)=I+8:NEXT I
     30 FOR I=0 TO 127 STEP2:K=K+1:IF K=8 THEN K=1
     40 LINE (255-I*2,127-I)-(255+I*2,127+I),K,B
     50 NEXT I

     ,  -
   LT     -
.    . 
      PAINT,    LUT, ..
    .   -
  :

     60 FOR I=0 TO 7:X=L1(I):L1(I)=0:LUT L1():L1(I)=X:NEXT I:
        IF INKEY$=""THEN 60 ELSE LUT LT(0):LOCATE,,1

  .  -  -
  ,  .   ,
  .
           -
 .   ,    
LINE, PSET, PAINT     , 
    ,    -
 .     STEP, :

     PSET STEP (10,20),2

  "" ,   10   -
   20 -     

     LINE STEP(10,20)-STEP(50,60),2

    ,   
 10    20      
50  60 .
       

     POINT (X,Y)

( . point -  ).    ,
      (X,Y).
           .
  (   ,    
)       ? 
   ?  ,      


     COLOR m,n

 ,  ,   ,  :

     10 PCLS:CLS
     15 PRINT "COLOR m,n"
     20 INPUT "   ";m
     30 INPUT "   ";n
     40 COLOR m,n:PCLS:CLS
     50 LINE(0,0)-(511,255):CIRCLE(255,127),50
     60 GOTO 15

     :    
 (m=0-7)   (n=0-7)   COLOR m,n. ,
        PCLS
    ,    
  ,       
, ..   . (.  50).
               -
  ,   
  ,      
.          -
  .    


     SCREEN m,n

m -  ,     ,
 n -   ,     ;
 m  n   0  3.
      , , ,   .
         -
   SCREEN     -
.        -
   .
      ,     
   .

     ~%[0  