Loadstar 7/007.d81/imml

Commodore BASIC | 2022-08-26 | 900b | 29 lines

100 rem ------- irq music maker -------
101 rem ----- basic loader program ----
102 rem ------ (c)1984 doug bruhn -----
103 i=828
104 read a:if a=256 then 126
105 poke i,a:i=i+1:goto 104
106 data 120,173,20,3,141,46,3,173
107 data 21,3,141,47,3,169,107,141
108 data 20,3,169,3,141,21,3,32
109 data 88,3,88,96,173,252,3,133
110 data 253,173,253,3,133,254,169,0
111 data 133,182,169,0,133,169,96,165
112 data 169,240,15,198,169,208,8,173
113 data 254,3,41,254,141,4,212,108
114 data 46,3,165,182,240,5,198,182
115 data 108,46,3,160,0,177,253,201
116 data 255,240,39,141,1,212,200,177
117 data 253,141,0,212,200,177,253,133
118 data 169,24,165,253,105,3,133,253
119 data 144,2,230,254,173,254,3,141
120 data 4,212,173,255,3,133,182,108
121 data 46,3,32,88,3,76,107,3
122 data 120,173,254,3,41,254,141,4
123 data 212,173,46,3,141,20,3,173
124 data 47,3,141,21,3,169,0,141
125 data 0,212,141,1,212,88,96,256
126 rem ------- your program --------
127 rem ------ continues here -------