5 A=4
10 DIMA$(4)
15 DIM B$(4)
20 FORI=1TO4
30 READ A$(I)
35 READB$(I)
40 NEXT
45 INPUT "DATEINAME";R$
50 OPEN1,8,2,R$+",S,W"
60 FOR I=1TOA
70 PRINT#1,A$(I)
75 PRINT#1,B$(I)
80 NEXT
90 CLOSE1
500 DATA PETER, 0123/45678
510 DATA TANJA, 0123/98765
520 DATA JAMES, 0123/007
530 DATA KATJA, 0123/76543