10 CLEAR 200,&HC000:DEFUSR=&HC000
20 PRINT"Имя файла состоит из 8 символов, точки и еще 3 символов!"
30 INPUT"Какое имя уничтожить:";F$
70 'Запись имени файла в FCB
80 POKE &HE000,1                                         'Дисковод A:
90 FOR T=1 TO 8:POKE &HE000+T,ASC(MID$(F$,T,1)):NEXT     'Имя файла
100 FOR T=9 TO 11:POKE &HE000+T,ASC(MID$(F$,T+1,1)):NEXT 'Расширение
110 'Подпрограмма DELETE FILE
120 DATA &H11,&H00,&hE0             :'LD   DE,E000h;адрес FCB
130 DATA &H0E,&H13                  :'LD   C,13h   ;Номер подпрограммы
140 DATA &HCD,&H7D,&HF3             :'CALL F37Dh
150 DATA &HC9                       :'RET
160 FOR T=0 TO 8:READ J:POKE &HC000+T,J:NEXT
170 A=USR(A): PRINT"Operation complete"