1 REM Ins{nd av Bengt Holgersson <559>    1986-08-26 21.51.27 (DUMP)
10 REM +-------------------------------+
20 REM ! Program f|r ABC80 med UFD-dos !
30 REM ! Aktiverar ett UFD fr}n BASIC  !
40 REM ! Bengt Holgersson 860825       !
50 REM +-------------------------------+
60 A$='UFD     ABS'+CHR$(14%,255%,205%,27%)+CHR$(96%,208%,33%,0%)+CHR$(0%,201%)
70 F$='UNDERBIB' : REM Biblioteksnamn (Max 8 tecken)
80 DEFFNW%(A%)=PEEK(A%)+SWAP%(PEEK(A%+1%))
90 A%=FNW%(65065%) : IF FNW%(A%)<>16882% ; 'Internt fel !' : STOP 
100 A%=FNW%(A%+6%) : C%=CALL(A%+11%,A%) : IF C%=0% ; 'Fel vid laddning !'CHR$(7%) : END 
110 REM < Spara filbeskrivning f|r BASICERR >
120 FOR I%=1% TO 16% : E$=E$+CHR$(PEEK(64847%+I%)) : NEXT I%
130 REM < Aktivera UFD >
140 POKE 49328%,13% : REM CR
150 POKE 64848%,PEEK(64769%) : REM Aktuell enhet
160 FOR I%=1% TO 11%
170 IF I%>LEN(F$) POKE 64849%+I%,32% ELSE POKE 64849%+I%,ASC(RIGHT$(F$,I%))
180 NEXT I%
190 R%=CALL(C%-16%)
200 REM < H{mta filbeskrivning f|r BASICERR >
210 FOR I%=1% TO 16% : POKE 64847%+I%,ASC(RIGHT$(E$,I%)) : NEXT I%