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