10 ! DISKCHECK.BAS
20 ; '** DISKCHECK **'
30 Par$='DISKCHEKABS'+CHR$(14,255,205,27,96,208,33,0,0,201)
40 ! 255 {ndras till 29 om ABS-filen laddas fr}n RAM:
50 Adr=VARPTR(Par$)
60 Ec=CALL(Adr+11,Adr)
70 IF Ec=0 THEN ; : ; : ; 'Fel vid laddning av DISKCHECK.ABS' : GOTO 110
80 POKE 64848,255
90 POKE 49328,13
100 Z=CALL(Ec-16)
110 END