167 380 IF SEL=-1 THEN 300 Change line 500 to 500 ON SEL + 1 GOTO 505,510,520,530,540,550,560,570,580,590 505 PROCSAVE:GOTO 200 590 PROCLOAD:GOTO 200 New lines: 10000 DEF PROCLOAD 10005 PRINT TAB(0,16); "Play tape and press any key" 10007 Q=GET 10008 PRINT "Please wait" 10010 E%=OPENIN "DATA" 10020 INPUT#E%,X 10030 FOR I%=1 TO X 10032 INPUT#E%,NAME$(I%),PHONE$(I%) 10034 PROCPACK (I%) 10036 NEXT 10040 CLOSE#E% 10050 ENDPROC 11000 DEF PROCSAVE 11005 PRINT TAB(0,16); "Please press "; 11010 E%=OPENOUT "DATA" 11015 PRINT '"Please wait" 11020 PRINT#E%,X 11030 FOR I%=1 TO X 11032 PRINT#E%,NAME$(I%),PHONE$(I%) 11036 NEXT 11040 CLOSE#E% 11050 ENDPROC