10 : 20 : 30 : 40 : 50 REM" Program by Rushden Roy (A 'L' plate programmer!) This version for8 Bit Software. 60 REM" November 1993 Using a BBC Master 70 : 80 ON ERROR:PROCerror:END 90 MODE7:PRINT:PROCROY:PRINT' 100 VDU 23,1,0;0;0;0; 110 PROCdh(" A collection of puzzles",134) 120 PROCdh(" using phrases etc.",134) 130 PROCdh(" (8-BIT Software version.)",134) 140 PROCspace 150 CLS:PRINT' 160 PROCdh(" Find the famliar phrase, title,",134) 170 PROCdh(" saying or name etc. in the ",134) 180 PROCdh(" arrangement of letters.",134) 190 PRINT'" ExamplePAN.A flash in the pan." 200 PRINT 210 PROCdh(" Some of the answers that I have",134) 220 PROCdh(" given are debatable. You may find",134) 230 PROCdh(" a different answer more suitable",134) 240 PROCdh(" and maybe better.",134) 250 PROCspace 260 PRINT'"1," 270 PRINT"CLOUDSCLOUDSCLOUDSCLOUDSCLOUDSCLOUDSCL" 280 PRINT"OUDSCLOUDSCLOUDSCLOUDSHEADCLOUDSCLOUDS" 290 PRINT"CLOUDSCLOUDSCLOUDSCLOUDSCLOUDSCLOUDSCL" 300 PROCdash 310 PRINT"2," 320 PRINT"CURTAIN, CURTAIN, CURTAIN, CURTAIN,CUR" 330 PRINT"TAIN, CURTAIN, CURTAIN,CURTAIN" 340 PROCdash 350 PRINT"3," 360 PRINT" GR12INCHAVE" 370 PROCdash 380 PROCASK 390 IF A$="Y"PROCONE 400 PROCspace 410 PRINT 420 PRINT"4," 430 PRINT" ppppppppppppppp" 440 PRINT" READING" 450 PRINT" ```````````````" 460 PROCdash 470 PRINT"5, 12INCH" 480 PRINT" LADDER" 490 PROCdash 500 PRINT"6, 5D" 510 PRINT" 5UC" 520 PRINT" 7`kK" 530 PROCdash 540 PROCASK 550 IF A$="Y"PROCFOUR 560 PROCspace 570 PRINT 580 PRINT"7," 590 PRINT"F L O W E RSF L O W E R" 600 PRINT"F L O W E R S F L O W E R" 610 PRINT"F L O W E R SE L O W E R" 620 PRINT"F L O W E R S F L O W E" 630 PRINT"F LOW E R SFL O W ERS" 640 PROCdash 650 PRINT"8," 660 PRINT" BULL bull BULL" 670 PROCdash 680 PRINT"9," 690 PRINT" ROSESVIOLETSROSESVIOLETSROSES" 700 PRINT" VIOLETSROSESVIOLETSROSESVIOLETS" 710 PRINT" ROSESVIOLETSROSESVIOLETSROSES" 720 PROCdash 730 PROCASK 740 IF A$="Y"PROCSEVEN 750 PROCspace 760 PRINT 770 PRINT"10," 780 PRINT" OI" 790 PRINT" G N" 800 PRINT" - G" 810 PRINT" D -" 820 PRINT" N R" 830 PRINT" UO" 840 PROCdash 850 PRINT"11, A" 860 PRINT" NILGHT" 870 PRINT" L" 880 PROCdash 890 PRINT"12," 900 PRINT" BOTTLE x 1,000,000 plus." 910 PROCdash 920 PROCASK 930 IF A$="Y"PROCTEN 940 PROCspace 950 PRINT 960 PRINT"13," 970 PRINT" PULL PULL" 980 PRINT" (not this one)" 990 PROCdash 1000 PRINT"14, up PAIN" 1010 PRINT" up " 1020 PROCdash 1030 PRINT"15, FEBUARY" 1040 PRINT" Sun Sun Sun Sun Sun Sun Sun" 1050 PRINT" 1 2 3 4 N 6 7" 1060 PRINT" 8 E 10 11 12 13 14" 1070 PRINT" 15 16 17 V 19 20 E" 1080 PRINT" 22 23 24 25 26 R 28" 1090 PROCdash 1100 PROCASK 1110 IF A$="Y"PROCTHIRTEEN 1120 PROCspace 1130 PRINT 1140 PRINT"16, " 1150 PRINT" " 1160 PRINT" " 1170 PRINT" ٵ " 1180 PRINT" " 1190 PRINT" " 1200 PROCdash 1210 PRINT"17," 1220 PRINT" GREENVY" 1230 PROCdash 1240 PRINT"18,sugar+sugar+sugar+sugar+sugar+" 1250 PRINT" sugar+sugar+sugar+sugar+sugar+sugar+" 1260 PRINT" sugar+sugar+sugar+sugar+sugar =" 1270 PROCdash 1280 PROCASK 1290 IF A$="Y"PROCSIXTEEN 1300 PROCspace 1310 PRINT 1320 PRINT"19," 1330 PRINT" LIGLR" 1340 PROCdash 1350 PRINT"20," 1360 PRINT" P" 1370 PRINT" I" 1380 PRINT" A" 1390 PRINT" N" 1400 PRINT" O" 1410 PROCdash 1420 PRINT"21," 1430 PRINT" CKYLU" 1440 PRINT" YLUCK" 1450 PRINT" LUCKY" 1460 PROCdash 1470 PROCASK 1480 IF A$="Y"PROCNINETEEN 1490 PROCspace 1500 PRINT 1510 PRINT"22," 1520 PRINT" 1 STEP" 1530 PRINT" 2 SPETS" 1540 PROCdash 1550 PRINT"23," 1560 PRINT" ECNALG" 1570 PROCdash 1580 PRINT"24," 1590 PRINT 1600 PRINT" PAGESPAGESFPAGESIPAGESNPAGESDPAGESP" 1610 PRINT" AGESIPAGESTPAGESPAGESPAGESPAGESPAGE" 1620 PROCdash 1630 PROCASK 1640 IF A$="Y" PROCTWENTYTWO 1650 PROCspace 1660 PRINT 1670 PRINT"25, " 1680 PRINT" I" 1690 PRINT" SAW" 1700 PRINT" IT" 1710 PRINT" " 1720 PROCdash 1730 PRINT"26, N" 1740 PRINT 1750 PRINT" Story E" 1760 PRINT 1770 PRINT" S" 1780 PROCdash 1790 PRINT"27, 'Whipper per'" 1800 PRINT" snap" 1810 PROCdash 1820 PROCASK 1830 IF A$="Y"PROCTWENTYFIVE 1840 PROCspace 1850 PRINT 1860 PRINT"28, Left Right" 1870 PRINT" TOM" 1880 PRINT" DICK" 1890 PRINT" H ARRY" 1900 PROCdash 1910 PRINT"29, T T" 1920 PRINT" R TR" 1930 PRINT" tEe wREd" 1940 PRINT" E EE" 1950 PRINT" S ES" 1960 PRINT" S" 1970 PROCdash 1980 PRINT"30," 1990 PRINT" BMenoMenaMent" 2000 PROCdash 2010 PROCASK 2020 IF A$="Y"PROCTWENTYEIGHT 2030 PROCspace 2040 PRINT 2050 PRINT"31, T" 2060 PRINT" R" 2070 PRINT" E" 2080 PRINT" N" 2090 PRINT" D" 2100 PROCdash 2110 PRINT"32," 2120 PRINT" N E" 2130 PRINT" V" 2140 PRINT" E R" 2150 PROCdash 2160 PRINT"33," 2170 PRINT" STEP" 2180 PRINT" IT" 2190 PROCdash 2200 PROCASK 2210 IF A$="Y"PROCTHIRTYONE 2220 PROCspace 2230 PRINT 2240 PRINT"34, H I J" 2250 PRINT" इ " 2260 PRINT" 䦣ꢣ䦇 " 2270 PRINT" 졩 馇 " 2280 PRINT" " 2290 PRINT" 며 衇 " 2300 PRINT" 䦩 " 2310 PRINT" 졩 " 2320 PRINT" " 2330 PROCdash 2340 PRINT"35, Trouble, trouble." 2350 PROCdash 2360 PRINT"36,Go, go, go, go, go, go, go, go...." 2370 PROCdash 2380 PROCASK 2390 IF A$="Y"PROCTHIRTYFOUR 2400 PROCspace 2410 PRINT 2420 PRINT"37," 2430 PRINT" k!" 2440 PRINT" EVj L" 2450 PRINT" z0" 2460 PROCdash 2470 PRINT"38," 2480 PRINTCHR$(141)CHR$(129)" THE MORNING" 2490 PROCdash 2500 PRINT"39," 2510 PRINT" FOR SALE, jack 2p, ONO" 2520 PROCdash 2530 PROCASK 2540 IF A$="Y"PROCTHIRTYSEVEN 2550 PROCspace 2560 PRINT 2570 PRINT"40," 2580 PRINT" " 2590 PRINT" נ " 2600 PRINT" ﴠ " 2610 PROCdash 2620 PRINT"41," 2630 PRINT" pPoPd" 2640 PROCdash 2650 PRINT"42," 2660 PRINT" NIGHT BEFORE, MORNING" 2670 PROCdash 2680 PROCASK 2690 IF A$="Y" THEN PROCFORTY 2700 PROCspace 2710 PRINT 2720 PROCdh("That is all in this version. If you",134) 2730 PROCdh("enjoyed the puzzles and would like",134) 2740 PROCdh("to see more then look out for the",134) 2750 PROCdh("SOLINET version that I have written.",134) 2760 PROCdh(" ('SOLINET' is a disc magazine.)",134) 2770 PRINT 2780 PROCdh(" Press SPACE if you would like",131) 2790 PROCdh(" to RUN this program again.",131) 2800 PROCdh(" Press any other key to end.",131) 2810 IF GET$ <>" "MODE 7 :PRINTTAB(10,10)"Bye from ROY":END ELSE RUN 2820 END 2830 DEF PROCASK 2840 PRINTTAB(0,19)" Would you like the answers? Y or N" 2850 *FX15,1 2860 A$=GET$:IFA$<>"Y" AND A$<>"N" THEN GOTO 2860 2870 ENDPROC 2880 DEF PROCspace 2890 PRINTTAB(0,19)STRING$(36," ") 2900 PRINTTAB(2,23)"Please press SPACE to continue>>>" 2910 *FX15,1 2920 REPEAT UNTIL GET =32:CLS 2930 ENDPROC 2940 DEF PROCdash 2950 PRINT 2960 PRINTCHR$(132)TAB(3)STRING$(35,"-") 2970 ENDPROC 2980 DEF PROCONE 2990 PRINT"1,Head in the clouds. " 3000 PRINT"2,Final curtain." 3010 PRINT"3,One foot in the grave." 3020 ENDPROC 3030 DEF PROCFOUR 3040 PRINT"4,Reading between the lines." 3050 PRINT"5,One foot on the ladder." 3060 PRINT"6,Sitting duck." 3070 ENDPROC 3080 DEF PROCSEVEN 3090 PRINT"7,Say it with flowers.(I love you.)" 3100 PRINT"8,Little white bull." 3110 PRINT"9,Roses are red and violet are blue." 3120 ENDPROC 3130 DEF PROCTEN 3140 PRINT"10,Going round in a circle." 3150 PRINT"11,All through the night." 3160 PRINT"12,A lota bottle." 3170 ENDPROC 3180 DEF PROCTHIRTEEN 3190 PRINT"13,Pull the other one." 3200 PRINT"14,Double up with pain." 3210 PRINT"15,Never in a month of Sundays." 3220 ENDPROC 3230 DEF PROCSIXTEEN 3240 PRINT"16,Two lovely black eyes." 3250 PRINT"17,Green with envy." 3260 PRINT"18,Sweet sixteen." 3270 ENDPROC 3280 DEF PROCNINETEEN 3290 PRINT"19,Mixed grill." 3300 PRINT"20,Upright piano." 3310 PRINT"21,Third time lucky." 3320 ENDPROC 3330 DEF PROCTWENTYTWO 3340 PRINT"22,One step foward two steps backward" 3350 PRINT"23,Backward glance." 3360 PRINT"24,Find it in the yellow pages." 3370 ENDPROC 3380 DEF PROCTWENTYFIVE 3390 PRINT"25,I saw it in black and white!" 3400 PRINT"26,West side story." 3410 PRINT"27,Snap out of it!" 3420 ENDPROC 3430 DEF PROCTWENTYEIGHT 3440 PRINT"28,Harry isn't quite alright!" 3450 PRINT"29,Can't see the wood for the trees." 3460 PRINT"30,Three men in a boat." 3470 ENDPROC 3480 DEF PROCTHIRTYONE 3490 PRINT"31,Downward trend." 3500 PRINT"32,Never a cross word." 3510 PRINT"33,Step on it." 3520 ENDPROC 3530 DEF PROCTHIRTYFOUR 3540 PRINT"34,Water wheel (H20, H to O)" 3550 PRINT"35,Double trouble." 3560 PRINT"36,Its all go!" 3570 ENDPROC 3580 DEF PROCTHIRTYSEVEN 3590 PRINT"37,An evil eye." 3600 PRINT"38,Top of the morning." 3610 PRINT"39,A cheap jack." 3620 ENDPROC 3630 DEF PROCFORTY 3640 PRINT"40,Monkey puzzle." 3650 PRINT"41,Two peas in a pod." 3660 PRINT"42,Morning after the night before." 3670 ENDPROC 3680 DEFPROCROY 3690 PRINT"7`+47``57k`5 ````` PROGRAM BY ````````" 3700 PRINT"5b(55( 5m h%7`+4757`k 7k`57`k 7e757`k" 3710 PRINT"uzp5upp5jpz 5( 5555js05 n15bs550!5u0`5" 3720 PRINT"ppppppppppp upp5u5upp5uzp5upp5u7t5upp5" 3730 PRINT 3740 PRINT" FOR 8-BIT SOFTWARE" 3750 PRINT""' 3760 ENDPROC 3770 DEF PROCdh(text$,color%):PRINTCHR$color%;CHR$141+text$'CHR$color%;CHR$141+text$:ENDPROC 3780 DEFPROCerror 3790 REPORT:PRINT" at line ";ERL 3800 ENDPROC