
                 
                       - 
                   "-06":     , 
                        
                     : . 
                  . -, 126, "" 
                     "".  - 
                        - 
                  : ., 610006,  /  1248, 
                       . 
                 


       ,    "-06", 
  ,     , - 
  .    .   :   . ,  610006, 
/ 1248,  "".                                           


                **

             
,  .
   -  2 .  (90 ) - 50 .  -
 - 30 %   .

                                                         ""

                **

    ,   -   
  ,    -
    .

                             ""



            "RETEX"
        

         "-06" 
  "Retex".    :
 ,     4 ,  -
,      (8*12 ), 
  255 ,    
         . -,
    ,    -
    : JCUKEN++,    2
 2, .  ,     -
: +, +/LAT, +    ,  
,  "R".     "R",   -
,  - ,    -      
. -,    -  ,
       2,N.  -
    .        
    "".       -
.  2,L.      ":SKIP".
,     .      
,    ,     .
   ,  ":LOAD"   
.-,      2  -
  , ..        
.   .
  -,        
 .       .  -
  :     ,   ,
   , .     -
,      .    -
     ,      
  ,     .  
   ,  "Retex"     .-
      ,    
.
   "Retex" :
  1.  "Retex"   (. "-2")  ++.
  2.     " ":

    ). 0114 LXI ,0153   ). 0153 RZ         ). 1225 JMP 0003
    0117 LXI D,0003       0154 CPI 19
    011A MVI B,1A         0156 JNZ F21F
    011C MOV A,M          0159 LDA 1C
    011D STAX D       015C DCR A
    011E INX         015D ANI 1
    011F INX D        015F STA 1C
    0120 DCR B        0162 JZ 0018
    0121 JNZ 011C         0165 DCR A
    0124 JMP E200         0166 MVI A,3F
                  0168 STA F256
                  016B RET
                  016C LXI B,0

  3.   :

      #ORETEX.COM
      #O>1,24,0

    .      
(06)        (19).  
  06,     , ..   
  .
    19       (1-, 3- ...), 
  0F256   ,     
 .        (2-, 4- 
..),   .
         -
     .        
,     "Retex"   "".- 3
     .

                                ""



       ! !  "Copy v(JPAS.1)".
       

     ""    -
  ROM,        
 "  "      
 ==.        
   ==  .   
 "-06",      
       
  .     ( ROM).

                         TMK Soft, .-1992



         
       

     ,   SAVEMON.COM, -
        ,   -
.       
,     (: 100, 3000  ..).  
      0,   
 .    .    
   ,       
0FF.      - 0,  ,
 ,          
      .     
LOADMON.COM  ,      -
.  ,    -   -
,    .   
:

 1.   SID  SAVEMON.COM:

     C>SID SAVEMON.COM

 2.      A:

     #A033A

                

      033A ADD D          033A MOV ,A
      033B MOV ,A        033B MVI L,FF
      033C MVI L,FF       033D DAD D

 3.  :

     #ISAVEMON.COM

 4.     :                          4

     #W100,4FF

     .
      ,   
"".     .

                                ""
           BASIC  2.5 ()

        .-
,    :

       - 00000000 - 7=0
              - 01111111 - 6=127
              - 01111111 - 5=127
              - 01111111 - 4=127
       - 00000000 - 3=0
          - 11110111 - 2=247
          - 11110111 - 1=247
          - 11110111 - 0=247

  SCREEN 3       -
  .

      16- 
     --------------------------------

       16-   BASIC v2.5 -
  "&"  "@".    :

     16-  20,  -
 10 INPUT A:PRINT A     10-  32.
 RUN
 ?&20
 32

    ,    8000,
 POKE &8000,&FF,&F5    FF,F5.


       16-
 PRINT @255           .
 FF

       
 10 A=&FE                     16-
 20 B=2               .
 30 PRINT @(A+B)
 RUN
 100

       ?  ?
       

-  -      ?
-    -06   -
1200,        ?
                                                                    5


       BASICe 2.5 (-7)
     

 1.    INPUT     -
.             -
  BASICa,      
  .
 ,     :

     10 INPUT A$
     20 PRINT A$

  ,  -   ,
, RENUM.    PRINT    -
 .      ,
        .
  , INPUT     -
  :

          

  -    %       "      
  /    '       &        I
  :       =        ,
  ^    (       *        &
  @    S       >        +
  ,       <        -
  +    $

 2.    ,      -
  PLOT   2, LINE   BS  PRINT. -
     24 ,  
     .    ,
    CUR 1,1.
 3.    ADDR    ,   
 .      -
 ,    .   -
 BASICa v2.5, ..     -
   .
 ,         
.       IMEM -
    ,     -
         
  .
  ,        A$, 
 10 .        .

  10 IMEM &74FF
  
  100 A=&7500
  110 FOR I=0 TO 9
  120 W$=A$(I)
  130 POKE A,ASC(W$):A=A+1
  140 IF LEN(W$)=1 TEN 160
  150 W$=RIGT$(W$,LEN(W$)-1):GOTO 130
  160 POKE A,0:A=A+1:NEXT
  170 BSAVE"DATA",&7500,A                                           6

  100         , 
 120       -
   W$.
 4.  RENUM   ,     
:         
(G, GOSUB, ON..., IF...TEN)   .
  ,    . -
       ( 65000), 
  .  ,    , 
,  10,      ,..
   10.

      ., ., .


      8-  
     
     1988-   
     1989-I   8- 
     (II )    

  :

           
           -06.02
           

 *      :
     (5.25"  800),
    RAM (256),
      (32),
     , .
 *  : , ,
    ,   
   ,    ..
 *     
       
   (/).
 *   40%  ,
         1533
    .
 *     
      , ,
     , 
   /-  .

 -06.02   -
      
     , -
 , ,     -
  .

       BASIC II
       
        
      ---------------------

                                 7
       -------------------

  10 PRINT"*";           
  20 GOTO 10         .
-------------------------------------------------------------------
  10 FOR A=1 TO 1050       1050 ,
  20 PRINT"*";        .. 42*25=1050.
  30 NEXT A
-------------------------------------------------------------------
  40 PAUSE 3              , -
  50 FOR S=5 TO 16       . ,   
  60 PRINT AT 10,S;"    " 60 - 12 .
  70 NEXT S
-------------------------------------------------------------------
  10 C=INT(15*RND(1))+1       
  20 COLOR C,0,C           1  15.
  30 PRINT"-06";
  40 GOTO 10
-------------------------------------------------------------------
  10 X=INT(256*RND(1))       .-
  20 Y=INT(256*RND(1))        -
  30 C=INT(16*RND(1))       RND(1).
  40 COLOR C
  50 PLOT X,Y,1
  60 GOTO 10
-------------------------------------------------------------------
  20 C=INT(16*RND(1))        .
  30 COLOR C
  40 PRINT CR$(127);
  50 GOTO 20

    ,      -
  ,       :

  10 N=0
  45 IF N=1050 TEN STOP
  47 N=N+1
-------------------------------------------------------------------
  10 COLOR 15,5,0         "",     
  20 CLS                .
  30 X=1
  40 FOR L=0 TO 24
  50 FOR C=1 TO 15
  60 COLOR C
  70 PRINT AT C+X,L;CR$(127);
  80 NEXT C
  90 X=X+1
  100 NEXT L
-------------------------------------------------------------------
  10 CLS                 -
  20 FOR N=1 TO 1000          ,  (-
  30 C=INT(RND(1)*16)         ).    
  40 X=INT(42*RND(1))         ,       1000
  50 Y=INT(25*RND(1))         .
  60 A$=CR$(INT(RND(1)*95)+32)
  70 COLOR C
  80 PRINT AT X,Y;A$
  90 NEXT N
-------------------------------------------------------------------- 8
  10 FOR F=0 TO 40    .    
  20 PRINT AT F,10;"A"    10.    -
  30 PAUSE 3              .
  35 BEEP .01,12
  40 PRINT AT F,10;" "
  50 NEXT F
-------------------------------------------------------------------
  10 FOR C=0 TO 255    .
  20 P$=" 32  "
  30 COLOR C
  40 PRINT P$
  50 NEXT C
-------------------------------------------------------------------
  10 FOR N=0 TO 15     .
  20 FOR C=0 TO 15
  30 COLOR N*16+C
  40 PRINT" ";
  50 NEXT C
  60 NEXT N
-------------------------------------------------------------------
  10 FOR F=1 TO 30       .
  20 Z=INT(RND(1)*25)-12
  30 C=INT(RND(1)*16)
  40 BEEP .1,Z
  50 COLOR 15,0,C
  60 NEXT F
-------------------------------------------------------------------
  10 FOR X=12 TO 36 .
  20 BEEP .01,X-24
  30 BEEP .01,24-X
  40 NEXT X
-------------------------------------------------------------------
  10 P=ASC(INKEY$)        K - . .
  20 IF P=255 TEN 10
  30 BEEP .04,INT(P*3/16)-12
  40 GOTO 10
-------------------------------------------------------------------
          ( )

                 **

(        10- 
 )

Copy-Z2, Copy-N4, Rbase.COM, Super Calc-2.COM, Word Master.COM, Word
Star.COM, Run.COM, BT.COM, .N, Basic-M.ROM, Attr.COM,
L80.COM, Lib.COM, Load.COM, M80.COM, Stat.COM, dir.COM, ..ROM,
-1,2.ROM, Basic-1.3.ROM, Putup-3,3.1 (10).ROM, Lode runner (9).ROM,
.BAS (6), DEAS STAR.BAS (6),  .BAS (7), Step &
Jump.ROM (7), Runner.ROM (4), Space Kommander.ROM (6), Popcorn.ROM
(5), .ROM (5), .ROM (4), .ROM (6), .ROM (5),
.ROM (5), .ROM (5), .ROM (5), .ROM (5), -3.ROM
(6).

           BASIC II
           
        
      ---------------------

          
       -------------------

-------------------------------------------------------------------
  10 FOR N=85 TO 0 STEP -2    .
  20 BEEP .01,5
  30 FOR A=N TO 0 STEP -1
  40 NEXT A:NEXT N

  10 FOR N=1 TO 25
  20 P=INT(RND(1)*40)-35
  30 BEEP .05,P
  40 BEEP .05,P+7
  50 BEEP .05,P+4
  60 NEXT N
-------------------------------------------------------------------
   ,     -
 PLOT, LINE, CIRCLE.
-------------------------------------------------------------------
  10 COLOR 4           .
  20 PLOT 50,50,1
  30 LINE 205,205,BF
  40 COLOR 0
  50 PLOT 70,70,1
  60 LINE 185,185,BF
  70 COLOR 7
-------------------------------------------------------------------
  10 FOR F=0 TO 31             .
  20 PRINT AT F,0;CR$(127)
  30 PRINT AT F,21;CR$(127)
  40 NEXT F
  50 FOR F=0 TO 21
  60 PRINT AT 0,F;CR$(127)
  70 PRINT AT 31,F;CR$(127)
  80 NEXT F
-------------------------------------------------------------------
  10 R=INT(RND(1)*120)     .
  20 C=INT(RND(1)*16)
  30 CIRCLE 128,128,R
  40 GOTO 10
-------------------------------------------------------------------
  10 X1=INT(RND(1)*120)    .
  20 Y1=X1/2
  30 X2=255-X1
  40 Y2=255-Y1
  50 PLOT X1,Y1,1
  60 LINE X2,Y2,B
  70 GOTO 10
-------------------------------------------------------------------
  10 FOR X=0 TO 124 STEP 4   .
  20 PLOT X,X,1
  30 LINE 255-X,255-X,B
  40 NEXT X
-------------------------------------------------------------------
  10 FOR Y=0 TO 255 STEP 4     .
  20 PLOT 255,255,1:LINE 0,Y
  30 PLOT 0,255,1
  40 LINE 255,Y
  50 NEXT Y
  60 FOR X=0 TO 255 STEP 4
  70 PLOT 255,255,1:LINE X,255
  80 PLOT 0,255,1:LINE X,0
  90 NEXT X
-------------------------------------------------------------------
  10 FOR X=0 TO 255 STEP 4        .
  20 PLOT X,0,1:LINE 255,255-X
  30 PLOT 0,Y,1:LINE 255-X,255
  40 NEXT X
-------------------------------------------------------------------



        BASIC III
        

       
      ------------------

         "-06",    -
     .    -
.   .     , 
     PRINT      . 
         -
.    -  .      -
       .

 1. 10 A=5:B=8    2. 10 A=15:B=8   3. 10 A=15:B=8   4. 10 X=0
    20 X=10      20 X=10          20 X=A=B         20 X=NOTNOTX
    30 X=X+(A>B)     30 X=X+(A>B)     30 PRINT X       30 PRINT X
    40 PRINT X       40 PRINT X
                   7. 10 A=5:B=8    8. 10 A=5:B=8
 5. 10 X=1    6. 10 X=10          20 X=(A=B)=1     20 X=(A=B)=0
    20 X=NOTNOTX     20 X=NOTNOTX     30 PRINT X       30 PRINT X
    30 PRINT X       30 PRINT X

       "-06"  -
  .      -
      .
 , ,   - :

  100 IF INKEY$="8" TEN X=X+1
  110 IF INKEY$="5" TEN X=X-1

    ,     , , 
   "8"     ,   -
  "5" - .    38   
 .
   :

  100 A$=INKEY$:X=X+(A$="5")-(A$="8")

     ,   32  ,  ,
 .    :

  100 A=ASC(INKEY$):X=X+(A=53)-(A=56)   ,

            .
   ,  ,   ,
 .   -"",
     1,   "" - 0.
 ..  INKEY$        ,
     "8",  "5",     .-
     -1,  ,   .-
           -
 .  ,      -
    ,     ,  
"" .
    .      
      ,   -
   .    :

  120 IF X>31 TEN X=31
  130 IF X<0 TEN X=0

       :

  100 A$=INKEY$:X=X-(A$="8"AND X<31)+(A$="5"AND X>0)
                                                        
  100 A=ASC(INKEY$):X=X-(A=56 AND X<31)+(A=53 AND X>0)

  :

  10 X=A=B

        ,    
.      ,    -
  .  -  , ..  -
      A=B.   
  -    "" ,  , -
    A=B,    -
,   , ,     
 0,  -1.    11 ,      -
    30 :

  10 IF A=B TEN X=-1
  20 IF A<>B TEN X=0

   ,   A=B,    ,  :

  10 X=-(A=B)*10

          -
 . ,  ,       (
  )     50 :

  10 S=S-(INKEY$="A")*50

         
    - , -
. , ,     -
,   -  .     -
  NO.

  510 A=0
  520 A=NOT A
  530 PRINT AT 10,15;CR$(144+A)
  540 IF INKEY$<>"" TEN RETURN
  550 GOTO 520

    520  550     ,-
    -         540
  .
          ,
 ,     -
    ,,   
:

  10 IF R=1 TEN PRINT"A"
  20 IF R=2 TEN PRINT"B"
  30 IF R=3 TEN PRINT"C"

   :

  10 PRINT CR$((65 AND R=1)+(66 AND R=2)+(67 AND R=3))

  ,       NOT.
 NOT X   --1. .. NOT 0=-1, NOT 1=-2  ..

