10 COLOR 1,15,8:SCREEN 3:PSET(0,10),15:MAXFILES=2
30 OPEN "GRP:" FOR OUTPUT AS#1:OPEN "777" FOR OUTPUT AS#2
50 LINE INPUT #2,R$:PRINT #1,R$
80 IF NOT EOF(2) THEN 50
90 CLOSE:GOTO 90