AMSTRAD cpc 6128 User Instruction page 119

440 FOR x=1 TO 100
450 WRITE #9,NAME$(x),TEL$(x)
460 NEXT
470 CLOSEOUT
480 PRINT "data saved"
490 RETURN
500 OPENIN "data"
510 FOR x=1 TO 100
520 INPUT #9,NAME$(x),TEL$(x)
530 NEXT
540 CLOSEIN
550 PRINT "data Loaded"
560 RETURN
run
Chapter 2 Page 14 Beyond Foundations