10REM" **** BY BRITISH **** 20MODE1 30VOL=15 40VDU 19 0 4 0 0 0 50VDU 19 1 7 0 0 0 60VDU 19 2 1 0 0 0 70VDU 19 3 0 0 0 0 80GCOL0,1 90MOVE0,0:MOVE0,150 100PLOT85,1280,1024 110MOVE1280,874 120PLOT85,0,0 130MOVE0,1024 140MOVE0,874 150PLOT85,1280,0 160MOVE1280,150 170PLOT85,0,1024 180 GCOL0,2 190MOVE1280,899 200MOVE1280,999 210PLOT85,0,25 220MOVE0,125 230PLOT85,1280,999 240MOVE0,999 250MOVE0,899 260PLOT85,1280,25 270MOVE1280,125 280PLOT85,0,999 290 GCOL0,1 300MOVE0,949 310MOVE0,1024 320PLOT85,640,512 330MOVE640,587 340PLOT85,0,999 350MOVE1280,949 360MOVE1280,874 370PLOT85,640,512 380MOVE640,437 390 PLOT85,1280,874 400MOVE1280,25 410MOVE1280,75 420PLOT85,640,512 430MOVE640,437 440PLOT85,1280,25 450 MOVE0,75 460 MOVE0,125 470 PLOT85,640,512 480 MOVE640,587 490 PLOT85,0,125 500 GCOL 0,1 510MOVE0,412 520MOVE0,612 530PLOT85,1280,412 540MOVE1280,612 550PLOT85,0,612 560MOVE540,0 570MOVE740,0 580PLOT85,540,1024 590MOVE740,1024 600PLOT85,740,0 610GCOL0,2 620MOVE570,0 630MOVE710,0 640PLOT85,710,1024 650MOVE570,1024 660PLOT85,570,0 670MOVE0,442 680MOVE0,582 690PLOT85,1280,442 700MOVE1280,582 710PLOT85,0,582 720GCOL0,3 730MOVE0,0:MOVE1279,0:PLOT85,0,75:PLOT 85,1279,75 740MOVE0,1023:MOVE1279,1023:PLOT85,0,1 024-75:PLOT85,1279,1024-75 750 VDU 5 760 MOVE 450,522 770 PRINT"BUY BRITISH!" 780 MOVE0,0 790TEMPO=3 800DATA"A A C @@@ACCE E F EEECAACCAA@@ A ACEFH H H HHHFEEF F F FFFECCE FECAEE F HHJFEECCAAAAAA " 810DATA"MMMMMMHHHHHHMMMMFFHHHIJJFFHHHH MMMMMMMMMMMMNNNNNNOOOOOOHHHHHHMMMMMMJJJJ EEFFHHHHMMMMMM " 820READB$,C$ 830FORI=1TOLEN(B$):note=4*(ASC(MID$(B$ ,I))-64) 840 noteC=4*(ASC(MID$(C$,I))-64) 850IFMID$(B$,I,1)=" "SOUND1,0,0,TEMPO ELSESOUND1,-VOL,note+48,TEMPO 860IFMID$(C$,I,1)=" "SOUND2,0,0,TEMPO ELSESOUND2,-VOL,noteC,TEMPO 870NEXTI 880REM" VDU4 890RESTORE:GOTO790