10 REM " PONTOON (Characters) " 20 REM By Carl Wheat 30 REM for BBC B 40 : 50 MODE7 60 `$=STRING$(23,"`") 70 PRINTTAB(6,4)CHR$(141)CHR$(131)"PUBLIC DOMAIN SOFTWARE" 80 PRINTTAB(6,5)CHR$(141)CHR$(131)"PUBLIC DOMAIN SOFTWARE" 90 PRINTTAB(6,10)CHR$(145)`$ 100 PRINTTAB(7,11)CHR$(141)"PONTOON by Carl Wheat" 110 PRINTTAB(7,12)CHR$(141)"PONTOON by Carl Wheat" 120 PRINTTAB(6,14)CHR$(145)`$ 130 PRINTTAB(7,19)CHR$(131)"Press any key to start." 150 VDU 23;8202;0;0;0; 160 *FX20,1 170 ?&36C=&9 180 VDU23,160,0,0,0,0,0,1,3,7 190 VDU23,161,15,31,63,127,255,255,255,255 200 VDU23,162,128,128,192,192,192,192,224,224 210 VDU23,163,14,28,24,48,48,48,48,48 220 VDU23,164,1,3,4,8,0,6,6,0 230 VDU23,165,7,1,0,0,0,0,0,0 240 VDU23,166,248,62,31,7,3,49,48,128 250 VDU23,167,240,176,144,152,136,168,168,164 260 VDU23,168,40,56,56,56,16,0,0,0 270 VDU23,169,0,0,4,4,20,12,8,8 280 VDU23,170,48,48,40,44,27,26,15,3 290 VDU23,171,0,0,1,0,0,0,0,0 300 VDU23,172,128,0,192,0,0,0,0,0 310 VDU23,173,1,1,3,13,243,74,108,241 320 VDU23,174,164,164,164,162,194,146,146,145 330 VDU23,175,24,24,30,30,7,7,7,7 340 VDU23,176,15,59,229,201,147,165,201,147 350 VDU23,177,0,0,0,8,8,20,20,20 360 VDU23,178,145,145,145,161,137,137,137,137 370 VDU23,179,15,12,24,17,51,40,36,109 380 VDU23,180,165,201,147,165,201,147,165,201 390 VDU23,181,0,0,28,12,15,15,7,7 400 VDU23,182,137,137,141,133,165,165,165,165 410 VDU23,183,0,0,113,113,255,255,255,255 420 VDU23,184,0,0,192,128,128,128,0,0 430 VDU23,185,20,20,20,20,20,20,20,20 440 VDU23,186,4,4,4,11,8,24,4,3 450 VDU23,187,31,31,15,15,15,7,7,7 460 VDU23,188,0,128,128,128,192,192,224,224 470 VDU23,189,4,15,0,0,0,0,0,0 480 VDU23,190,7,255,0,0,0,0,0,0 490 VDU23,191,240,240,0,0,0,0,0,0 500 VDU23,224,1,66,162,65,99,127,91,127 510 VDU23,225,128,66,69,130,198,254,218,254 520 VDU23,226,112,96,64,76,222,194,193,193 530 VDU23,227,14,7,3,99,243,7,7,7 540 VDU23,228,0,0,0,0,128,128,128,192 550 VDU23,229,1,1,3,3,32,80,152,152 560 VDU23,230,225,224,247,232,31,15,3,1 570 VDU23,231,7,7,207,63,248,240,192,128 580 VDU23,232,192,192,240,240,0,0,0,0 590 VDU23,233,152,156,156,140,204,76,78,78 600 VDU23,234,7,25,52,114,249,244,242,249 610 VDU23,235,204,204,51,51,204,204,51,51 620 VDU23,236,224,248,254,255,255,207,204,252 630 VDU23,237,70,102,38,39,39,35,35,35 640 VDU23,238,244,242,249,244,242,249,244,242 650 VDU23,239,255,255,243,243,255,255,255,255 660 VDU23,240,24,60,24,90,255,255,90,24 670 VDU23,241,24,60,126,255,255,126,60,24 680 VDU23,242,0,102,255,255,255,126,60,24 690 VDU23,243,24,60,126,255,255,219,24,60 700 VDU23,244,0,0,2,2,2,6,4,12 710 VDU23,245,0,0,170,170,170,170,170,170 720 VDU23,246,0,0,160,160,176,144,152,136 730 VDU23,247,20,20,20,50,50,113,113,255 740 VDU23,248,4,4,7,7,4,12,15,15 750 VDU23,249,208,208,48,48,208,216,56,56 760 VDU23,250,30,51,97,64,64,96,63,0 770 VDU23,251,0,0,3,254,0,0,128,192 780 VDU23,252,96,240,144,24,8,12,4,6 790 VDU23,253,12,12,12,0,0,0,0,0 800 VDU23,254,204,12,3,3,4,0,3,1 810 VDU23,255,200,200,60,52,204,206,54,55 820 BJ$=CHR$(11)+CHR$(247)+CHR$(8)+CHR$(11)+CHR$(185)+CHR$(189)+CHR$(190)+CHR$(191)+(STRING$(4,CHR$(8)))+CHR$(11)+CHR$(185)+CHR$(186)+CHR$(187)+CHR$(188)+(STRING$(4,CHR$(8)))+CHR$(11)+CHR$(177) 830 RJ$=" "+CHR$(253)+CHR$(254)+CHR$(255)+(STRING$(3,CHR$(8)))+CHR$(11)+CHR$(248)+CHR$(235)+CHR$(249)+(STRING$(3,CHR$(8)))+(STRING$(3,CHR$(11)))+CHR$(181)+CHR$(183)+CHR$(184) 840 GJ$=CHR$(250)+CHR$(251)+CHR$(252)+CHR$(8)+CHR$(8)+CHR$(11)+CHR$(11)+CHR$(244)+CHR$(245)+CHR$(246) 850 BQ$=CHR$(11)+CHR$(175)+CHR$(11)+CHR$(171)+CHR$(172)+CHR$(8)+CHR$(8)+CHR$(11)+CHR$(164)+CHR$(166) 860 RQ$=CHR$(179)+" "+CHR$(235)+CHR$(8)+CHR$(11)+CHR$(235)+(STRING$(3,CHR$(8)))+CHR$(11)+CHR$(168)+CHR$(170)+CHR$(173)+CHR$(8)+CHR$(8)+CHR$(11)+CHR$(163)+CHR$(165)+CHR$(8)+CHR$(8)+CHR$(11)+CHR$(160)+CHR$(161)+CHR$(8)+CHR$(11)+CHR$(160) 870 GQ$=" "+CHR$(180)+" "+CHR$(182)+(STRING$(3,CHR$(8)))+CHR$(11)+CHR$(176)+" "+CHR$(178)+(STRING$(4,CHR$(8)))+CHR$(11)+CHR$(169)+" "+CHR$(174)+CHR$(8)+CHR$(11)+CHR$(167)+CHR$(8)+CHR$(11)+CHR$(162) 880 BK$=CHR$(237)+CHR$(11)+CHR$(8)+CHR$(233)+CHR$(11)+CHR$(8)+CHR$(229)+CHR$(230)+CHR$(231)+CHR$(232)+CHR$(11)+(STRING$(3,CHR$(8)))+CHR$(226)+CHR$(227)+CHR$(228) 890 RK$=" "+CHR$(238)+" "+CHR$(239)+CHR$(11)+(STRING$(3,CHR$(8)))+CHR$(234)+" "+CHR$(236)+(STRING$(3,CHR$(11)))+(STRING$(3,CHR$(8)))+CHR$(224)+CHR$(225) 900 GK$=" "+CHR$(235)+CHR$(11)+CHR$(8)+CHR$(235) 910 P$=CHR$(235)+CHR$(235)+CHR$(235)+CHR$(235)+STRING$(4,(CHR$(8)))+CHR$(11) 920 P$=STRING$(6,P$) 930 BJ=&B00 : $BJ=BJ$ 940 GJ=&B18 : $GJ=GJ$ 950 RJ=&B23 : $RJ=RJ$ 960 BQ=&B38 : $BQ=BQ$ 970 GQ=&B43 : $GQ=GQ$ 980 RQ=&B5E : $RQ=RQ$ 990 BK=&B79 : $BK=BK$ 1000 GK=&B8B : $GK=GK$ 1010 RK=&B92 : $RK=RK$ 1020 P=&BA6 : $P=P$ 1030 CHAIN"PONT-2"