home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh7x
/
sh79b.d64
/
demo-maker
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
215b
|
11 lines
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