1 REM +++++++++++++++++++++++++++++++++
2 REM ! Program ....   LADDAABS.DSK
3 REM ! Utg}va  1.0    841015
5 REM ! av (c) Stig Johansson
8 REM ! Minne 16 Kbytes f|r flexskiva
9 REM +++++++++++++++++++++++++++++++++
10 REM ! Med detta programm laddar du
12 REM ! minnet med ABS-filer fr}n
14 REM ! flexskiva.
16 REM ! ABS-filer kan du g|ra med
18 REM ! programmet G\RABS.DSK
20 REM ! p} ABC-kassett nr 10.
22 REM +++++++++++++++++++++++++++++++++
30 ; 'Filnamnet (ej ext.ABS ) :'; : INPUT F$
40 F$=F$+SPACE$(8%-LEN(F$))+'ABS'
50 FOR I%=65418% TO 65418%+LEN(F$)-1% : POKE I%,ASC(F$)
60 F$=RIGHT$(F$,2%) : NEXT I%
70 POKE -128%,205%,94%,109%,17%,138%,255%,205%,27%,96%,201%
80 Z%=CALL(-128%) : ; 'Lagrad fr}n adress:';65536+Z%;
90 X%=SWAP%(PEEK(64787%))+4% : REM LSB=0 ? i pekare f|r dos-buf noll.
95 ; ' till adress:'SWAP%(PEEK(X%+2%))+PEEK(X%+4%)+PEEK(X%)+65536