10 rem *** The Laser Days Demo - Code & Gfx Hospes - Music Lotek Style
20 rem ***  stream.prg by Neil Halliday
30 cls : key off : curs off : click off : hide on : mode 0 : mouse off
35 reserve as screen 10 : reserve as screen 11 : reserve as screen 12 
36 load "INTRO02.PI1", 11 : load "INTRO03.PI1", 12
50 reserve as work 13,151104 : bload "MENUSPU.SPU",13
60 load "specshow.prg",14
170 erase 15 : load "dual.prg",15
190 rem * Start the playback buffer
200 dreg(0)=1 : call start(15)
220 rem ** Start stream 1 - looped music
230 FILENAME$="LASER01.raw"
240 dreg(0)=2 : dreg(1)=1 : dreg(2)=2 : areg(0)=varptr(FILENAME$) : call start(15)
241 fade 3
242 load "INTRO01.PI1", 10 
243 fade 12 to 10
244 appear 10
250 get palette(10) : blit start(10),0,0,320,200,logic,0,0 
254 wait 600 : fade 3 : wait 80 : cls : wipe logic
255 get palette(11) : blit start(11),0,0,320,200,logic,0,0 
257 wait 900 : fade 3 : wait 60 : cls : wipe logic
260 get palette(12) : blit start(12),0,0,320,200,logic,0,0 : wait 910 : fade 3 : wait 95 : cls : wipe logic
265 fastcopy start(13),physic :  areg(0)=start(13) : call start(14) 
270 repeat 
280 if hardkey=2 then FILENAME$="LASER01.raw" : dreg(0)=2 : dreg(1)=1 : dreg(2)=2 : areg(0)=varptr(FILENAME$) : call start(15) 
281 if hardkey=3 then FILENAME$="LASER02.raw" : dreg(0)=2 : dreg(1)=1 : dreg(2)=2 : areg(0)=varptr(FILENAME$) : call start(15) 
282 if hardkey=4 then FILENAME$="LASER03.raw" : dreg(0)=2 : dreg(1)=1 : dreg(2)=2 : areg(0)=varptr(FILENAME$) : call start(15)
283 if hardkey=5 then FILENAME$="LASER04.raw" : dreg(0)=2 : dreg(1)=1 : dreg(2)=2 : areg(0)=varptr(FILENAME$) : call start(15) 
330 wait vbl : until hardkey=57
335 loke $4D2,0
340 dreg(0)=0 : call start(15)
350 mode 1 : cls : mouse on




