10 ! **********************************************************************
20 ! Program          MEMINI.BAS      Utg}va  1.0      1990-09-20
30 ! (Programmet bygger p} RAMINI och RAMCOPY av Bo Kullmar)
40 ! MemIni anv{nds vid autostart f|r att kopiera filer fr}n diskett till
50 ! datalagringsminnet MEM: p} ABC802.
60 ! **********************************************************************
70 INTEGER : EXTEND 
80 ! 
90 ! ASM800
100 DATA MENY.BAC,ASM.BAC,RELOC.BIN,ASM.ROB,ED.BAC
110 DATA ITHMRG.BAC,ITHBAS.BAC,ITHABS.BAC,
120 ! 
130 ; CHR$(12) 'ABC802 MEMINI' : ; : ; STRING$(80,61) : ; : ; 
140 Dummy=FNInitialize+FNCopy
150 ; : ; 
160 CHAIN 'CHAINARE.BAC,RUN MEM:0'
170 ! 
180 DEF FNWherey=PEEK(65363) 
190 ! 
200 DEF FNInitialize LOCAL I
210   DIM Filename$(50)=12
220   READ Filename$(I)
230   WHILE Filename$(I)<>''
240     I=I+1
250     READ Filename$(I)
260   WEND 
270   Number=I-1
280   RETURN 0
290 FNEND 
300 ! 
310 DEF FNCopy LOCAL Sector$=253,Start$=3,I
320   ON ERROR GOTO 460
330   WHILE I<=Number
340     Start$=NUM$(Nextsector)
350     OPEN Filename$(I) AS FILE 1
360     PREPARE 'MEM:'+Start$ AS FILE 2
370     ; Filename$(I),'Kopieras nu till MEM:' Start$;
380     WHILE -1
390       GET #1,Sector$ COUNT 253
400       PUT #2,Sector$
410       Nextsector=Nextsector+1
420     WEND 
430     I=I+1
440   WEND 
450   RETURN 0
460   ON INSTR(1,CHR$(21,38,41),CHR$(ERRCODE))+1 GOTO 470,480,490,500
470   ; : ; 'Fel nr' ERRCODE : STOP 
480   ; : ; Filename$(I),'Finns ej p} skivorna!' : STOP 
490   ; CUR(FNWherey,14) '[r kopierad till MEM:' Start$ : RESUME 430
500   ; : ; 'Minnet fullt!' : STOP 
510 FNEND