10 OPEN1,8,2,"@0:DEMO.TRON,S,W"
20 FOR Q=0 TO 624:PRINT#1,CHR$(1);:NEXT
30 PRINT#1,CHR$(8);CHR$(12);
40 PRINT#1,CHR$(16);CHR$(12);
50 PRINT#1,CHR$(12);CHR$(8);
60 PRINT#1,CHR$(12);CHR$(16);
70 CLOSE 1
80 OPEN1,8,2,"@0:DEMO.SCORE,S,W"
90 FOR Q=0 TO4:PRINT#1,"----------":PRINT#1,0:NEXT
100 CLOSE 1