0010 DIM Z$(12)[160],Q$[160]
0020 ASSIGN #191 TO LOGO
0030 FOR I=2 TO 5
0040 READ #191,I-2;Z$(I)
0050 NEXT I
0060 J=0
0070 ON ERROR GOTO 100
0075 RESTORE #3
0080 READ #3;Q$
0090 J=J+1 @ GOTO 80
0100 J=J-6
0110 RESTORE #3
0112 FOR I=1 TO J
0114 READ #3;Q$
0116 NEXT I
0120 FOR I=6 TO 11
0130 READ #3;Z$(I)
0140 NEXT I
0150 RESTORE #3
0152 FOR I=1 TO J+1
0154 READ #3;Q$
0156 NEXT I
0158 Z$(1)=Z$(6)
0160 FOR I=1 TO 11
0170 PRINT #3;Z$(I)
0180 NEXT I
0190 ASSIGN #191 TO *
0195 OFF ERROR
0200 END 
