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