1 REM Ins{nd av: Anders Franz`n <5258>    1986-12-09 20.00.20 (WRITE)
         TITLE KOPIERA FIL
; KOPIERA.ASM
; Anders Franz`n <5258>
; Stockholm 1986-12-07

; Exempel p} program som anv{nder
; macros. Kopierar en fil. Notera
; att programmet n{stan {r som ett
; h|gniv}spr}k.


         OBJ  2
         SAVE HJ[LP


         ORG  230:0

         INCLUDE HJ[LP1.MAC

START    CLS
         PRINT 5,0,"Namn p} infil? "
         INPUT INFIL,20
         PRINT 7,0,"Namn p} utfil? "
         INPUT UTFIL,20
         OPEN  PARM1,INFIL,ERROR
         PREPARE PARM2,UTFIL,ERROR
L[S      READ PARM1,BUFF,EOF
         WRITE PARM2,BUFF,ERROR
         JP   L[S

ERROR    PRINT 10,0,"ERROR!"
         JP   ST[NG1

EOF      PRINT 10,0,"KLART!"
         JP   ST[NG1

ST[NG1   CLOSE PARM1,ST[NG2
ST[NG2   CLOSE PARM2,SLUTA
SLUTA    RET

INFIL    DEFS 20
UTFIL    DEFS 20
PARM1    DEFS 15
PARM2    DEFS 15
BUFF     DEFS 255

SLUT     END  START