10
20
30
40
50 :
55 PRINT"Put blank disc in drive and press SPACE"
56 REPEATUNTILGET=32
60 file=OPENOUT "t/phone"
70 REPEAT
80 READ A$
90 FOR X=1 TO LEN(A$)
100 BPUT#file,ASC(MID$(A$,X,1))
110 NEXT
120 BPUT#file,13
130 UNTIL LEFT$(A$,1)="|"
140 CLOSE#file
150
160 DATA "GEORGE 01234567"
170 DATA "JENNY 091987654"
180 DATA "FRED 061111235"
190 DATA "BILL 051333345(work) 051-6666(home)"
200 DATA "BBC Acorn User/Redwood 014901444"
210 DATA "|T/phone no.s"