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