                   aa  AmigaOS a a

******
..., aa .   

                    4. a a a/a ().

      a    a      a.
a  a CLI   a  .

 a   dos.library, a  -  Open.

 move.l execbase,a6
 move.l consolename(pc),a1 ;a 
 move.l a1,d1 ; aa   D1
 move.l dosbase(pc),a6
 move.l #MODE_OLDFILE,d2 ;  
 jsr _LVOOpen(a6) ;a 
 move.l d0,consolehandle
 beq error ;   a,   d0  0

consolehandle dc.l 0
consolename dc.b "CON:0/100/640/100/*Console*",0

 : CON:  a 
      0 - aa  X
      100 - aa  Y
      640 - a 
      100 - a 
      *Console* - a 

.:   aa    RAW:.    CON:  ,
  RAW:    a, a  CON: .

 a    Close  dos.library.

 move.l dosbase(pc),a6
 move.l consolehandle,d1 ;a  
 jsr _LVOClose(a6) ;aa 


                         5. / a a a

  a  a  ,  a,     
  a  a.    ,    a  aa
aaa,      .

 move.l dosbase,a6 ;a  dos.library
 move.l consolehandle,d1;a 
 move.l #text,d2 ;aa a aa a
 move.l #textend-text,d3;a a
 jsr _LVOWrite(a6) ;  Write, a aa   
 beq error  ; a a a 

text dc.b "AmigaOS is best OS in the world !"
textend


                              6.   aa

  a  aa   a    Read  
  dos.library. a  aa  , a a, 
      a a   
aaa.  ,  Read    a   a
Write. Read aa    CON:.

 move.l #80,d3 ; a  a
 move.l #keybuffer,d2 ;   a
 move.l consolehandle,d1 ;a 
 move.l dosbase(pc),a6
 jsr _LVORead(a6)

keybuffer ds.b 80

a         aa  Enter.      
      aa   (D3),    aa
    (D3)  a,  a  a      a  
 a  Read.


                            7.1  Paa  

H  .  Paa      aaa  a    .
Paa    ,      #MODE_NEWFILE,
a a a a  Write  a.

 move.l execbase,a6
 move.l printer(pc),a1 ;a 
 move.l a1,d1 ; aa   D1
 move.l dosbase(pc),a6
 move.l #MODE_NEWFILE,d2 ; 
 jsr _LVOOpen(a6)
 move.l d0,printerhandle
 beq error ;  ,   d0  0

 move.l dosbase,a6 ;a  dos.library
 move.l printerhandle,d1;a a
 move.l #text,d2 ;aa a aa a
 move.l #textend-text,d3;a a
 jsr _LVOWrite(a6) ;  Write, a aa   
 beq error  ; a a a 

text dc.b "AmigaOS is best OS in the world !" ;   aaa a
textend                                       ;

printerhandle dc.l 0
printer dc.b "PRT:",0

Aa   aa    a  .  Paa
aa      ,  a aa a/a  
 SER:. aa aa    aa,          
a ( Read)     a (Write).


        8. Paa   a (,   ..)

                         8.1   a a

        a         Open   
dos.library  (     a ).    a 
a,    MODE_NEWFILE.        
,    MODE_OLDFILE.  *aea*:     
MODE_NEWFILE a  a   ,   a 
 .

   aa:

 move.l dosbase(pc),a6
 move.l #filename,d1 ;aa a , a  aa (  a)
 move.l #MODE_NEWFILE,d2 ;  aa ( a a - 

                         ;a)
 jsr _LVOOpen(a6)
 move.l d0,identfile ;a a aa,  a 
                     ;,   d0 - 0
 beq error ; a a a 

  a aa:

 move.l dosbase(pc),a6
 move.l identfile(pc),d1 ;aa a  a
 jsr _LVOClose(a6)

identfile dc.l 0 ;a  a aa aa
filename dc.b "PROGDIR:Name",0 ; aa

*aea*:         a      ,  
         PROGDIR:      ,    a
   . Ha: RAM:T/Command-00-T01.  H    
aa  aa   , .. PROGDIR:.

                           8.2   a a

 aa a aa, a a,   a - a    a.
      Write  Read   dos.library.  
a - aa  a,      .  ,  
   a    dos.library.

a:

 move.l dosbase(pc),a6
 move.l #filename,d1
 move.l #MODE_NEWFILE,d2
 jsr _LVOOpen(a6)
 move.l d0,identfile

a   Write,  aa a,  , .

 move.l dosbase(pc),a6
 move.l identfile(pc),d1 ;aa a  a
 move.l #text,d2 ;aa a aa a
 move.l textend-textend,d3 ;a a, aa  a
 jsr _LVOWrite(a6)

identfile dc.l 0
filename dc.b "PROGDIR:Name",0
text dc.b "Write text in your file"
textend ; a, aaa  a

:

a a:

 move.l dosbase(pc),a6
 move.l #filename,d1
 move.l #MODE_NEWFILE,d2
 jsr _LVOOpen(a6)
 move.l d0,identfile

 move.l dosbase(pc),a6
 move.l identfile(pc),d1 ;a aa
 move.l #256,d3 ;a a a   256 a
 move.l #membuf,d2 ;aa a   a, a  a a
 jsr _LVORead(a6)

identfile dc.l 0
membuf ds.b 256 ;   aa (  ,   )
filename dc.b "PROGDIR:Name",0

*aea*:   a      aa      a
  aa,    256  a.   a a   , 
  a          a  a  
 Close.


                              8.3 a a

H  . Ha     dos.library    a
 .

 move.l dosbase(pc),a6
 move.l #filename,d1
 jsr _LVODeleteFile(a6)
 beq error ; a a -  a a a 

filename dc.b "PROGDIR:Name",0 ; a    a

                           8.4 a a

 move.l dosbase(pc),a6
 move.l #oldname,d1 ;aa a  aa,    a
 move.l #newname,d2 ;,    a a
 jsr _LVORename(a6)

oldname dc.b "PROGDIR:Name",0
newname dc.b "PROGDIR:Name1",0

 ...

Andy Parfenov aka Levitator