10 OPEN1,8,2,"@0:DEMO.TRON,S,W"
20 FORQ=0TO624: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 CLOSE1
80 OPEN1,8,2,"@0:DEMO.SCORE,S,W"
90 FORQ=0TO4:PRINT#1,"----------":PRINT#1,0:NEXT
100 CLOSE1