mirror of
https://github.com/cybernesto/mcs-player.git
synced 2024-05-28 23:41:31 +00:00
521c97d852
A slot number different that slot 4 can be used for the Mockingboard. A separate simple player introduced to include the minimum amount of code required for the routine to work.
7 lines
206 B
QBasic
7 lines
206 B
QBasic
10 HOME : PRINT "PLEASE WAIT..."
|
|
20 PRINT CHR$(4)"BLOAD MCS"
|
|
30 PRINT CHR$(4)"BLOAD JAM,A$8900
|
|
40 POKE 34066,4: CALL 34051
|
|
50 PRINT : PRINT "PRESS ANY KEY TO STOP->";: GET A$
|
|
60 CALL 34060
|
|
70 HOME |