home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Set of Apple II Hard Drive Images
/
eric.hdv
/
OBJTEST
/
MIDIFILT.TST.bas
< prev
next >
Wrap
BASIC Source File
|
2020-08-13
|
371b
|
9 lines
1 PRINT CHR$(4)"-ROUTER.OBJ"
2 PRINT CHR$(4)"BRUN MOCKBRD.OBJ,A$6000"
3 PRINT CHR$(4)"BRUN DRUMMACH.OBJ,A$6400"
4 PRINT CHR$(4)"BRUN INTRFACE.OBJ,A$6800"
5 PRINT CHR$(4)"BRUN PIANOSCR.OBJ,A$6C00"
6 PRINT CHR$(4)"BRUN MIDIFILT.OBJ,A$7000"
10 MSG = 9 *4096 +8 *256 +4
15 POKE MSG, ASC("I") +128
20 PRINT "INITIALIZING: PIANOSCR:"; USR(9);" INTRFACE:"; USR(16)