1 REM Ins{nd av Bengt Holgersson <559>    1986-07-06 21.56.08
100 REM +-------------------------------------+
110 REM ! Startprogram till UFD-DOS f|r ABC80 !
120 REM ! Bengt Holgersson  <559>  1986-06-23 !
130 REM +-------------------------------------+
140 DEFFNW%(X%)=PEEK(X%)+SWAP%(PEEK(X%+1%))
150 T%=-1% : REM True
160 F%=0% : REM False
170 REM ================================
180 S%=T% : REM Skriv ut p} sk{rm
190 G%=T% : REM Gammal adressering
200 REM ================================
210 IF FNW%(FNW%(24681%)+2%)=21060% GOTO 240
220 IF S% ; 'Detta {r inget UFD-dos!'
230 GOTO 470
240 IF S% ; 'UFD-DOS ver.'PEEK(24687%)
250 REM 
260 REM ** S{tt DR_: till startenhet **
270 REM 
280 R%=FNW%(24683%) : REM DEVDES i RAM
290 IF FNW%(FNW%(24685%))=0% D%=PEEK(64769%) ELSE D%=PEEK(FNW%(24685%)+2%)
300 D%=D% AND 28% : POKE R%,D%
310 REM 
320 REM ** S{tt enheter till gammal adressering **
330 REM 
340 IF G%=0% GOTO 410
350 FOR I%=4% TO 28% STEP 4%
360 IF PEEK(R%+I%)=0% GOTO 400 : REM Enhet ej implementerad
370 C%=PEEK(R%+I%+1%) : REM Cluster
380 IF (C% AND 7%)>4% GOTO 400 : REM [ndra ej HD_:
390 POKE R%+I%+1%,C% OR 64% : REM Gammal adressering
400 NEXT I%
410 REM 
420 REM ** Skriv ut vald DR_: konvertering **
430 REM 
440 IF D%=0% E%=16191% ELSE E%=FNW%(D%+R%+2%)
450 IF S% ; 'DR_: motsvaras av 'CHR$(E%,SWAP%(E%),95%,58%)
460 IF G% IF S% ; 'Gammal adressering'
470 CHAIN ''