10 FORI=0TO4:READEG$(I):PRINTEG$(I);:INPUTPM$(I):NEXT
20 OPEN2,8,2,"@0:PARAMETER,S,W"
30 FORI=0TO4:PRINT#2,EG$(I):PRINT#2,PM$(I):NEXT
40 PRINT#2:CLOSE2
100 DATASCHRIFT,HINTERGRUND,RAHMEN,GERAETEADRESSE,LAUFWERKSNR