10 COLOR 1,11,7:SCREEN 2:MAXFILES=2
20 OPEN "GRP:" FOR OUTPUT AS#1
30 PSET (69,80),11:PRINT #1,"ςισ 9.1 γχετα"
50 FOR I=1 TO 1000:NEXT I:CLOSE #1 
60 SCREEN 3:OPEN "GRP:"FOR OUTPUT AS#2
80 PSET (50,80),11:PRINT #2,"βυλχω"
100 FOR I=1 TO 1000:NEXT I:CLOSE #2