10 ON ERROR GOTO 270 20ENVELOPE1,129,0,0,0,2,5,10,40,-5,-2 ,-3,80,60 30ENVELOPE2,129,0,0,0,1,5,5,126,-2,-4 ,-3,60,40 40ENVELOPE3,129,0,0,0,10,5,10,15,-2,- 5,-3,100,90 50HIMEM=&4000 60DEFFNN="DEMO1" 70: 80starfield=&1E00 90MODE3 100MODE4 110HIMEM=&4000 120VDU23,1,0;0;0;0; 130?&FE00=2:?&FE01=46 140?&FE00=1:?&FE01=32 150?&FE00=12:?&FE01=&0C 160?&FE00=13:?&FE01=&00 170*L.EndBall 1200 180*L.Bounch 1F00 190*L.Press 2000 200*L.Music 2400 210FORn=0 TO 254 STEP 2 220n?starfield=RND(48)-1 230?(starfield+n+1)=RND(63) 240NEXT 250*RUN CODE 260: 270MODE4 280PRINT"This next demo may clash with " 290PRINT"ROMS resident in your Model B ." 300PRINT"If next demo looks corrupted" 310PRINT"try unplugging non-essential" 320PRINT"ROMs before re-trying." 321PRINT'"Press Return ..." 330*fx15 340a=GET 350CHAIN"METER"