                            -5 - 
                               "-06"
                                       1991.

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

     Ж  Ȗ  Ŗ-
 ۖ     .  
        Ӗ  -
         .
          
.        -
.    
       ۖ   
Ֆ    . ܖ  ܖ 
Ȗ  .     Ö-
ʖ   .     ̖-
̖  ..      ()
 -  ().       
( )   ( ).   
        
..
          -
 .     Ֆ-
 -  -Ζ-  ܖ-- 
..        .
   Җ  --
(ۖΖŖ ).    -
         -
       PLOT,LINE,
CIRCLE,COLOR, PAINT.     -
 PUT  GET,        -
    PLOT,LINE  ..  . -
   Ȗ   
 GET.    ۖ  
 .-   16*16 .  -
    ۖ  -
 GET      PUT.   
       -
 :SCREEN 0,0,0...0, ۖ Ֆ
    .    -
      .
    Ȩ
 1. (   )    Ũ
 ߖ  ۖ -
  ..        
  .
 2.  (.. )    
 ɖ      .
     Ŗ   ܖ -
         ܖ
            
 Ŗ     ɨ -
 Җ   ..
        . 
      .
      
.     Ȩ
  .    GET   
 ߖ   . 
Җ  Ŗ 
   .  - -
.
  .      Ֆ   
 Ֆ        -
.Ж   -  ̖ 
    - .   
 :SCREEN 2,1:PUT X,Y,ADDR((0)),2:SCREEN 2,15.-
-  (   
    PUT    ̖
    Ŗ   
   .- -  
  .
  . .      
ɖ      .
           
.  :1). - ;
2) -   (  -
   ).

                      
100 V=ASC(INKEY$):IF V=255 THEN 130
110 IF V=8 THNE 150
120 ON V-23 GOTO 170, 190, 210
130 ...:REM Ϟ  ­
135 GOTO 100
140 REM Ϟ  
150 ...:GOTO 130
160 REM ϞϞ  
170 ...:GOTO 130
180 REM Ϟ  
190 ...:GOTO 130
200 REM Ϟ  
210 ...:GOTO 130

                      
) 100 V=ASC(INKEY$):IF V=255THENV=V1
   110 IF V=8 THEN 150
   120 ON V-23 GOTO 170,190,210
   130 V=V1: GOTO 110
   140 REM Ϟ  
   150 ...:GOTO 220
   160 REM Ϟ  
   170 ...:GOTO 220
   180 REM Ϟ  
   190 ...:GOTO 220
   200 REM Ϟ  
   210 ...:GOTO 220
   220 V1=V:...:REM Ϟ  
   230 GOTO 100
B) 100 V=ASC(INKEY$):IF V=255 THEN 150
   110 IF V=8 THEN DX=-1:DY=0:GOTO 150
   120 IF V=24 THEN DX=1:DY=0:GOTO 150
   130 IF V=25 THEN DY=1:DX=0:GOTO 150
   140 IF V=26 THEN DY=-1:DX=0
   150 X=X+DX:Y=Y+DY:PUT X,Y,ADDR(A(0)),1
   160 REM Ϟ  
    GOTO 100
        (  -
     -   - )
 1) .    .
    .   -
        -
   ߖ   Ζ
    ̖ X,Y- -
 ;X1,Y1-;DX,DY,DX1,DY1- 
    X  Y. (X<X1<X+DX  X1<X<X1+DX1)  
(Y<Y1<Y+DY  Y1<Y<Y1+DY1),  .
 2)  POINT(1)      
 .  -   .
- - .
 3)       Ֆ  -
    (AND)  -
   .  - Җ -
-.
       Ŗ   -
ߖ  - Ŗ   .
    .   .
      : (-
˖   ..)     -
   GET,  ɖ  -
 ɖ      .
         ̖ܖ-
      .  
ߖ     .  
   .    
   .    -
        ( ɖ-
  ..).     (  -
     ).   
Ӗ ޖ    -
  ..
 
                         
                      ----------------------------
   --  .  -
       .    
.Ȗ      -
. -   . Ϟ- Ϟϖ-
      .  
     USR(...).  -
  ߨ .       -
  .   - Ֆ.Ϟ -
   RET ( &C9).   -
     Ϟ   PEEK 
POKE     . 
Ϟ       Ȗ
Ӗ  HIMEM.
    Ϟ      BLOAD  -
        POKE.
ܖ      Ϟ   
Ŗ -̖    
    (W)      BLOAD (-
       ).
    :
  10 CLS:GOTO 60
  20 DATA &F5,&E5,&D5,&C5,&2A,&25,&70,&EB,&2A,&27,&70,&46
  30 DATA &23,&4E,&23,&C5,&D5,&7E,&12,&23,&14,&05,&C2,&11,&70
  40 DATA &D1,&C1,&13,&0D,&C2,&0F,&70,&C1,&D1,&E1,&F1,&C9,&80
  5O DATA &A0,&29,&70,3,3,255,255,255,255,255,255,255,255,255
  60 M=&7000:FOR I=1 TO 255: READ X: POKE M,X: M=M+1: NEXT I
  70 X=USR (&7000)
       24*3 .
 Ϟ   ɨ
7000 PUSH PSW    700F PUSH B     701C DCR C
7001 PUSH H      7010 PUSH D     701D JNZ 700F
7002 PUSH D      7011 MOV A,M    7020 POP B
7003 PUSH B      7012 STAX D     7021 POP D
7004 LHLD 7025   7013 INX H      7022 POP H
7007 XCHG        7014 INR D      7023 POP RSW
7008 LHLD 7027   7015 DCR B      7024 RET
700B MOV B,M     7016 JNZ 7011
700C INX H       7019 POP D
700D MOV C,M     701A POP B
700E INX H       701B INX D

    Ֆ     Ϟ  -
.     Ϟ   
       ߨ  -
  Ȗ  Ȗ  Ŗ -
- .
     Ϟ  Ŗ   
POKE    ( -     -
 ). .Ϟϖ̖    
 Җ         Ϟ  -
 DATA.    BLOAD   ̖   
   .        -
 Ϟ   .
       . ʖ
   .ޖ -    Ĩ
1 REM A,A...   .  ++ -
 Ж     <1>(."-2"),
   +.  4301H   
 .   ̨  
  -  ( Ŗ  
 Җ )  -  -
 .   (.  -
    ).Ŗ   ..
   -00H,    -
 -00H,00H.       -
  8EH(  REM),20H,(),40H ( )...41H
      Ϟϖ ...  
ѠĠ    .   
  +.     .
Ϟ       .   -
  ߖ     .  -
   Ȗ  Ζ 
̖   Ϟ.    -   
         
  Ŗߖ   .  
  ܖ  ..    
Ϟ.   Ж   REM
().   Ŗ    
.   .     -
   .    : 0 GOTO 100.
           .
  Ϟ    Ζ   -
ܖ     .    Ϟ
  Ϟ  SPRITE  - (  -
). Ϟ       . 
   .  Ϟ 
 ̖     Ş-
   Ϟ .      -
  2CFCH  Ϟ     
 ߨ        
 (  ASC(INKEY$)).Ϟ 
   .

       /   
     --------------------------------------------------------

 : 0 0...256...0 E6 D2 D2 D2 D2  
                   0 0...256 ..0 E6    -
                        
                         ..
                    ...- 

ORG 9000H            IMON2:MVI A,1        MOV L,A
IMON PUSH B          ANA A                LDA NACH+1
PUSH D               JMP IMON 6           CMA
PUSH H               IMON3:MVI H,14H      MOV H,A
DI                   MOV L,A              INX H
PUSH H               IMON 4:CALL IMON15   DAD D
LXI H,IM+1           CMP L                XCHG
RUSH H               JNZ IMON2            LHLD NACH
MVI E,4              DCR H                MVI B,0
CALL IMON7           JNZ IMON4            IMON5: CALL IMON15
CALL IMON13          MVI A,255            MOV M,A
POP H                CALL IMON11          ADD B
POP D                MOV H,B              MOV B,A
MVI H,0              MOV L,C              MOV A,D
IMON1: CALL IMON15   SHLD NACH            ORA E
CPI 0                CALL IMON10          DCX D
JZ IMON3             MOV H,B              INX H
CPI 255              MOV L,C              JNZ IMON5
JZ IMON3             SHLD KON             CALL IMON12
DCR H                XCHG                 MOV A,C
JNZ IMON1            LDA NACH             CMP B
                     CMA                  JNC IMON2

HRA A              JNZ BYTE3       CALL OMON4      OBUTE1:
IMON6: POP H       IN 01           INX H           MOV A,D
POP D              ANI 10H         JNZ OMON2       RLC
POP B              MOV A,E         MOV A,B         MOV D,A
EI                 MOV A,D         CALL OBYTE      MVI A,1
RET                ORA A           POP H           HRA D
IMON7:MOV D,E      JP BUTE5        POP D           ANI 01
IMON8:MOV E,D      MOV A,C         POP B           OUT 0
MVI A,255          CPI 0E6H        EI              CALL OBUTE2
IMON9: CALL IBUTE  JNZ BUTE4       RET             MVI A,0
CPI 0D2H           HRA A           OMON3:MOV A,H   HRA D
JNZ IMON8          STA PRINV       CALL OBYTE      ANI 1
DCR E              JMP BYTE6       MOV A,L         OUT 0
RZ                 BYTE4:CPI 19H   CALL OBYTE      CALL OBYTE2
MVI A,8            JNZ BYTE2       OMON4:MOV A,H   DCR C
JMP IMON9          MVI A,255       CMP D           JNZ OBYTE1
IMON10:MVI A,8     STA PRINV       RNZ             POP PSW
IMON11:CALL IBYTE  BYTE6:MVI D,9   MOV A,E         POP D
MOV B,A            BYTE5:DCR D     CMP L           POP B
IMON12:CALL IMON15 JNZ BYTE2       RET             RET
MOV C,A            LDA PRINV       OMON5:XRA A     OBYTE2:
RET                XRA C           MVI E,1         PUSH PSW
IMON13:MVI E,3     POP D           CALL OMON8      LDA CONZAR
IMON14:CALL IMON15 POP B           MVI A,0E6H      MOV B,A
MOV M,A            RET             CALL OBYTE      POP PSW
INX H              CONR:DB 4BH     MVI A,0D2H      OBYTE3:
ORA A              PRINV: DB 0     MVI E,4         DCR B
JNZ IMON13                         CALL OMON10     JNZ OBYTE3
MVI M,'" '         OMON PUSH B     OMON6: INX H    RET
DCR E              PUSH D          MOV A,M         CONZAP:
JNZ IMON14         PUSH H          CPI '" '        DB 32H
RET                DI              JZ OMON7        IM: DB '"
IMON15:MVI A,8     LXI H,IM        CALL OBYTE       " ',0
JMP IBYTE          CALL OMON5      JMP OMON6
IBYTE:PUSH B       MVI B,0         OMON7:INX H     / -
MVI C,0            CALL OBYTE      MVI E,3         OMON.Ϟ 
MOV D,A            DCR B           CALL OMON10     
IN 01              XTHL            RET             "  ".
ANI 10H            XTHL            OMON8:MVI B,0
MOV E,A            JNZ OMON1       OMON9:CALL OBYTE
BYTE2:IN 01        MVI A,0E6H      DCR B
ANI 10H            CALL OBYTE      JNZ OMON9
CMP E              LHLD NACH       DCR E
JZ BYTE2           CALL OMON3      JNZ OMON8
RLC                XCHG            RET
RLC                LHLD KON        OMON10:CALL OBYTE
RLC                XCHG            DCR E
RLC                XCHG            JNZ OMON10
MOV A,C            CALL OMON3      RET
RAL                LHLD KON        NACH :DW 100H
MOV C,A            XCHG            KON:DW 3FFH
PUSH PSW           LHLD NACH       OBYTE:PUSH B
LDA CONR           OMON2:MOV A,M   PUSH D
MOV B,A            CALL OBYTE      PUSH RSW
POP PSW            ADD B           MOV D,A
BYTE3:DCR B        MOV B,A         MVI C,8

                                 ?
                             ----------------

   XYZOLOG
   -------
     HYZOLOG" TAK     
( ,   3),̖    Ȗ
      ܖ  
   .
                                           SOFT .-1991

   HELICOPTER
   ---------
     HELICOPTER" :
1.  ""-  (̖    ܖ
    ).
2.   ""-   (  
   .    -
  Ŗ       
 ).
.   "2"-  (  
).
4.   "F4"- ۖ  ( 
  +      ҭ).
5.    -խ-   (
     ).
6.   ""-   ( 
    ).
7.         
      Ӗ
       -
 .
                                             SOFT .-1991

   THE RANNER MAN
   --------------
    THE RANNER MAN" :
1.  "F2"- ۖ  .
2.  " -"- .
3.  ""- .
4.  - .
5.  ""-.
6.  ""- (     -
)   "ҭ.   
  (       ʭ)
      ܭ  
  Ӗ  ǭ  .
                                              SOFT .-1991

      -ʭ-V2.5","",
","XONIX""ѭ "+"  -
   "".    -
   .

