10 REM "CLEAR 35" (Characters) 20 REM by Carl Wheat 1992 for BBC B 30 : 40 MODE7:VDU23;8202;0;0;0; 50 L$="Public Domain " 60 FOR I%=4TO5:PRINTTAB(8,I%)CHR$141CHR$129CHR$157CHR$135L$CHR$156:NEXT I% 70 L$=STRING$(24,"`") 80 PRINTTAB(6,10)CHR$147L$ 90 PRINTTAB(6,14)CHR$147L$ 100 L$="CLEAR 35 by Carl Wheat" 110 PRINTTAB(7,11)CHR$141L$ 120 PRINTTAB(7,12)CHR$141L$ 130 *FX21,0 140 *FX229,1 150 PRINTTAB(3,18)CHR$134"Do you want instructions? Y/N":K$=GET$ 160 IF K$="Y" OR K$="y" PROCinst 170 *FX20,1 180 ?&36C=&9 190 VDU23,160,0,0,0,0,0,1,3,7 200 VDU23,161,15,31,63,127,255,255,255,255 210 VDU23,162,128,128,192,192,192,192,224,224 220 VDU23,163,14,28,24,48,48,48,48,48 230 VDU23,164,1,3,4,8,0,6,6,0 240 VDU23,165,7,1,0,0,0,0,0,0 250 VDU23,166,248,62,31,7,3,49,48,128 260 VDU23,167,240,176,144,152,136,168,168,164 270 VDU23,168,40,56,56,56,16,0,0,0 280 VDU23,169,0,0,4,4,20,12,8,8 290 VDU23,170,48,48,40,44,27,26,15,3 300 VDU23,171,0,0,1,0,0,0,0,0 310 VDU23,172,128,0,192,0,0,0,0,0 320 VDU23,173,1,1,3,13,243,74,108,241 330 VDU23,174,164,164,164,162,194,146,146,145 340 VDU23,175,24,24,30,30,7,7,7,7 350 VDU23,176,15,59,229,201,147,165,201,147 360 VDU23,177,0,0,0,8,8,20,20,20 370 VDU23,178,145,145,145,161,137,137,137,137 380 VDU23,179,15,12,24,17,51,40,36,109 390 VDU23,180,165,201,147,165,201,147,165,201 400 VDU23,181,0,0,28,12,15,15,7,7 410 VDU23,182,137,137,141,133,165,165,165,165 420 VDU23,183,0,0,113,113,255,255,255,255 430 VDU23,184,0,0,192,128,128,128,0,0 440 VDU23,185,20,20,20,20,20,20,20,20 450 VDU23,186,4,4,4,11,8,24,4,3 460 VDU23,187,31,31,15,15,15,7,7,7 470 VDU23,188,0,128,128,128,192,192,224,224 480 VDU23,189,4,15,0,0,0,0,0,0 490 VDU23,190,7,255,0,0,0,0,0,0 500 VDU23,191,240,240,0,0,0,0,0,0 510 VDU23,224,24,60,126,255,24,24,24,24 520 VDU23,225,129,66,129,129,195,255,153,255 530 VDU23,226,112,96,64,76,222,194,193,193 540 VDU23,227,14,7,3,99,243,7,7,7 550 VDU23,228,0,0,0,0,128,128,128,192 560 VDU23,229,1,1,3,3,32,80,152,152 570 VDU23,230,225,224,247,232,31,15,3,1 580 VDU23,231,7,7,207,63,248,240,192,128 590 VDU23,232,192,192,240,240,0,0,0,0 600 VDU23,233,152,156,156,140,204,76,78,78 610 VDU23,234,7,25,52,114,249,244,242,249 620 VDU23,235,204,204,51,51,204,204,51,51 630 VDU23,236,224,248,254,255,255,207,204,252 640 VDU23,237,70,102,38,39,39,35,35,35 650 VDU23,238,244,242,249,244,242,249,244,242 660 VDU23,239,255,255,243,243,255,255,255,255 670 VDU23,240,0,28,28,107,127,107,8,0 680 VDU23,241,0,8,28,62,62,28,8,0 690 VDU23,242,0,54,127,127,62,28,8,0 700 VDU23,243,0,8,28,62,62,8,28,0 710 VDU23,244,0,0,2,2,2,6,4,12 720 VDU23,245,0,0,170,170,170,170,170,170 730 VDU23,246,0,0,160,160,176,144,152,136 740 VDU23,247,20,20,20,50,50,113,113,255 750 VDU23,248,4,4,7,7,4,12,15,15 760 VDU23,249,208,208,48,48,208,216,56,56 770 VDU23,250,30,51,97,64,64,96,63,0 780 VDU23,251,0,0,3,254,0,0,128,192 790 VDU23,252,96,240,144,24,8,12,4,6 800 VDU23,253,12,12,12,0,0,0,0,0 810 VDU23,254,204,12,3,3,4,0,3,1 820 VDU23,255,200,200,60,52,204,206,54,55 830 L$=CHR$8:X$=CHR$9 840 Y$=CHR$10:U$=CHR$11 850 BJ$=CHR$247+L$+U$+CHR$185+CHR$189+CHR$190+CHR$191+STRING$(4,L$)+U$+CHR$185+CHR$186+CHR$187+CHR$188+STRING$(4,L$)+U$+CHR$177+L$+STRING$(3,Y$) 860 RJ$=X$+CHR$248+CHR$235+CHR$249+STRING$(3,L$)+STRING$(3,U$)+CHR$181+CHR$183+CHR$184+STRING$(4,L$)+STRING$(3,Y$) 870 GJ$=U$+X$+CHR$244+CHR$245+CHR$246 880 BQ$=CHR$175+U$+CHR$171+CHR$172+L$+L$+U$+CHR$164+CHR$166+STRING$(3,L$)+Y$+Y$ 890 RQ$=X$+X$+CHR$235+STRING$(3,L$)+U$+CHR$168+CHR$170+CHR$173+L$+L$+U$+CHR$163+CHR$165+L$+L$+U$+CHR$160+CHR$161+L$+U$+CHR$160+STRING$(3,L$)+STRING$(4,Y$) 900 GQ$=X$+CHR$176+X$+CHR$178+STRING$(4,L$)+U$+CHR$169+X$+X$+CHR$174+L$+U$+CHR$167+L$+U$+CHR$162 910 BK$=CHR$233+U$+L$+CHR$229+CHR$230+CHR$231+CHR$232+U$+STRING$(3,L$)+CHR$226+CHR$227+CHR$228+Y$+Y$+STRING$(4,L$) 920 RK$=X$+CHR$234+X$+CHR$236+STRING$(3,U$)+STRING$(3,L$)+CHR$225+CHR$225+STRING$(3,L$)+STRING$(3,Y$) 930 GK$=X$+X$+CHR$235 940 P$=STRING$(3,CHR$235)+STRING$(3,L$)+Y$:P$=STRING$(5,P$) 950 BJ=&1100 : $BJ=BJ$ 960 RJ=&111B : $RJ=RJ$ 970 GJ=&1130 : $GJ=GJ$ 980 BQ=&113B : $BQ=BQ$ 990 RQ=&114A : $RQ=RQ$ 1000 GQ=&1169 : $GQ=GQ$ 1010 BK=&1184 : $BK=BK$ 1020 RK=&1199 : $RK=RK$ 1030 GK=&11AC : $GK=GK$ 1040 P=&11B3 : $P=P$ 1050 PAGE=&1200:CHAIN"PART2" 1060 : 1070 DEFPROCinst:CLS 1080 PRINT''"The idea of the game is to move all the cards from the table onto one stack at the top of the screen." 1090 PRINT'"A card can be moved to the stack if it is one number higher or lower than the top card showing on the stack." 1100 PRINT"ACES can be stacked on KINGS or TWOS." 1110 PRINT''CHR$(131)" < and > - move the arrow pointer" 1120 PRINTSPC(13)CHR$(131)"to the column required" 1130 PRINT'SPC(9)CHR$(131)"Z - Moves a card to the stack" 1140 PRINT'CHR$(131)" SPACE BAR - Turns a new card over"SPC(18)CHR$(131)"from the pack" 1150 PRINT'SPC(4)CHR$(131)"ESCAPE - To quit" 1160 PRINT''SPC(4)CHR$(134);"Press any key to continue.":K$=GET$:ENDPROC