5 DV=PEEK(186)
10 A$="FDR
20 B$[178]"ASCSTR$(null)'S ASCAVORITE (null)PIDER
30 OPEN1,DV,15,"S0:FDAT":CLOSE1
40 OPEN4,DV,4,"FDAT,P,W"
50 PRINT#4,A$
60 PRINT#4,B$
70 CLOSE4
80 LOAD"FLASH.PKD",DV
10000 D=PEEK(186):N$="B.FDR":OPEN15,D,15,"S0:"+N$:CLOSE15:SAVEN$,D:END