home *** CD-ROM | disk | FTP | other *** search
- 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
-