5 DIM Q0$=253% 10 ; CHR$(12);'** CREATE SCRATCH.$$$ **' 20 ; 'HUR M]NGA SECTORER '; : INPUT N% 30 PREPARE 'SCRATCH.SSS' ASFILE 1% 40 FOR I%=1% TO N% 50 Z%=CALL(28666%,1%) : Q0$=SPACE$(253%) : Z%=CALL(28670%,I%) 60 NEXT I% 70 CLOSE 1% 80 END