10 MODE 1 20*KEY10"OLD|M" 30*FX15,0 32 REPEAT 34 MODE 1 35VDU23,1,0;0;0;0; 40VDU19,2,4,0,0,0 50VDU24,170;250;1080;750; 60 GCOL 0,130 70 CLG 80 REM BL-TR WHITE 90VDU 25,4,90;150; 100VDU 25,4,1260;800; 110VDU 25,85,90;250; 120VDU 25,85,1260;900; 130 REM TL-BR WHITE 140VDU 25,4,0;790; 150VDU 25,4,1250;100; 160VDU 25,85,160;810; 170VDU 25,85,1240;210; 180 REM TL RED 190 GCOL0,1 200VDU 25,4,0;800; 210VDU 25,4,550;500; 220VDU 25,85,160;750; 230VDU 25,85,610;500; 240 REM TR RED 250VDU 25,4,1260;890; 260VDU 25,4,570;500; 270VDU 25,85,1260;850; 280VDU 25,85,630;500; 290 REM BL RED 300VDU 25,4,50;180; 310VDU 25,4,630;500; 320VDU 25,85,50;140; 330VDU 25,85,690;500; 340 REM BR RED 350VDU 25,4,1279;170; 360VDU 25,4,690;500; 370VDU 25,85,1279;140; 380VDU 25,85,630;500; 390 REM VERTICAL WHITE 400 GCOL0,3 410VDU 25,4,690;0; 420VDU 25,4,690;1023; 430VDU 25,85,555;0; 440VDU 25,85,555;1023; 450 REM HORIZONTAL WHITE 460VDU 25,4,0;430; 470VDU 25,4,1279;430; 480VDU 25,85,0;570; 490VDU 25,85,1279;570; 500 REM VERTICAL RED 510 GCOL0,1 520VDU 25,4,670;0; 530VDU 25,4,670;1023; 540VDU 25,85,575;0; 550VDU 25,85,575;1023; 560 REM HORIZONTAL RED 570VDU 25,4,0;450; 580VDU 25,4,1279;450; 590VDU 25,85,0;550; 600VDU 25,85,1279;550; 610 620 COLOUR 130 630 REM TOP 640VDU28,0,6,38,1 650 CLS 660 REM BOTTOM 670VDU28,0,31,38,26 680 CLS 690 REM LEFT 700VDU28,0,26,3,7 710 CLS 720 REM RIGHT 730VDU28,35,26,38,7 740 CLS 750 VDU26,30 760 A=INKEY(900) 770 UNTIL FALSE