5 IF PAGE>&E00 GOTO 6000 10R=10:W=10:yes=0:pos=0 20MODE4:JUMP=0 30C=1 40VDU23,224,126,255,153,231,60,0,60,2 4 50VDU23,248,126,255,255,255,60,60,60, 24 60VDU23,225,0,255,24,255,24,255,24,12 6 70VDU23,226,24,0,24,102,189,231,102,0 80VDU23,227,32,112,48,24,12,6,3,3 90VDU23,228,4,14,12,24,48,96,192,192 100VDU23,229,195,195,195,195,195,66,16 5,195 110VDU23,230,0,195,195,195,195,195,195 ,0 120VDU23,231,192,0,224,126,0,0,0,0 130VDU23,232,3,0,7,126,0,0,0,0 140VDU23,233,62,127,31,255,108,28,124, 24 150VDU23,234,124,254,248,255,54,56,62, 24 160VDU23,235,0,0,0,0,0,0,127,3 170VDU23,236,0,0,0,0,0,0,254,192 180VDU23,244,127,3,0,0,0,0,0,0 190VDU23,245,254,192,0,0,0,0,0,0 200VDU23,246,0,0,0,255,255,0,0,0 220VDU23,237,0,192,192,192,192,0,192,1 92 230VDU23,238,0,3,3,3,3,0,3,3 240VDU23,239,0,24,0,24,0,24,0,24 250VDU23,240,59,127,255,237,237,255,12 7,59 260VDU23,241,128,67,3,85,85,3,64,128 270VDU23,242,0,0,10,87,87,10,0,0 280VDU23,243,0,126,60,60,60,189,126,0 285VDU23,253,24,60,126,219,153,24,24,2 4 286VDU23,254,24,60,126,90,24,60,126,90 290VDU23,247,0,126,189,60,60,60,126,0 292VDU23,249,0,0,1,1,1,7,31,63 293VDU23,250,0,192,160,128,128,224,248 ,252 294VDU23,251,63,127,127,127,63,63,31,7 295VDU23,252,252,254,254,254,252,252,2 48,224 296bb$=CHR$249+CHR$250+CHR$8+CHR$8+CHR $10+CHR$251+CHR$252 298VDU23,255,254,254,254,0,239,239,239 ,0 300U$=CHR$240:V$=CHR$241:W$=CHR$242 310G$=U$+V$+W$ 320MOVE516,508:DRAW 570,508:DRAW570,48 0:DRAW516,480:DRAW516,508 330MOVE516,476:DRAW570,476:DRAW570,420 :DRAW516,420:DRAW516,476 340MOVE528,480:DRAW528,490:DRAW558,490 :DRAW558,480 350X$=CHR$224+CHR$8+CHR$8+CHR$10+CHR$2 28+CHR$225+CHR$227+CHR$8+CHR$8+CHR$8+CHR $10+CHR$227+CHR$226+CHR$228+CHR$8+CHR$8+ CHR$10+CHR$229+CHR$8+CHR$10+CHR$230+CHR$ 8+CHR$8+CHR$10+CHR$232+CHR$9+CHR$231 360A$=CHR$224:B$=CHR$225:C$=CHR$226:D$ =CHR$227:E$=CHR$228:F$=CHR$229:H$=CHR$23 0:I$=CHR$231:J$=CHR$232:K$=CHR$233:L$=CH R$234:M$=CHR$235:N$=CHR$236:O$=CHR$237:P $=CHR$238:Q$=CHR$239:Z$=CHR$32 370R$=CHR$244:S$=CHR$245:T$=CHR$246 380H2$=CHR$247:A2$=CHR$248 390HAT$=CHR$243 400V=-14:T=0:Z=0 410VDU23;8202;0;0;0; 420PRINTTAB(20,14)X$;TAB(20,16)G$ 430T=200:PROCWAIT 440FORX=0TO5 450SOUND1,V,137,2 460SOUND2,V,117,2 470IFX=1ORX=3ORX=5PRINTTAB(18,16)Z$;D$ ;TAB(20,14)A$:GOTO490 480PRINTTAB(18,16)E$;Z$;TAB(20,14)K$ 490T=13:PROCWAIT 500NEXT 510SOUND1,V,125,6 520SOUND2,V,109,6 530SOUND1,V,117,1 540SOUND2,V,101,1 550SOUND1,V,117,2 560SOUND2,V,105,2 570SOUND1,V,105,6 580SOUND2,V,89,6 590T=70:PROCWAIT 600FORX=1TO2 610SOUND1,V,41,1 620SOUND0,-10,12,1 630SOUND2,V,69,1:T=15:PROCWAIT 640PRINTTAB(20,14)Q$;TAB(20,13)L$ 650SOUND1,V,41,1 660SOUND0,-10,12,1 670SOUND2,V,77,1:T=25:PROCWAIT 680SOUND1,V,41,1 690SOUND0,-10,12,1 700SOUND2,V,77,1:T=15:PROCWAIT 710PRINTTAB(20,14)A$;TAB(20,13)Z$ 720SOUND0,-10,12,1 730SOUND1,V,41,1 740SOUND2,V,69,1:T=30:PROCWAIT 750NEXT 760IFC=2GOTO1000 770Z=Z+1:IFZ=2GOTO780 ELSET=20:PROCWAI T:GOTO440 780SOUND1,V,137,3 790SOUND2,V,117,3 800PRINTTAB(18,14)D$;TAB(20,14)L$;TAB( 19,15)R$;TAB(19,16)Z$ 810T=50:PROCWAIT 820PRINTTAB(18,14)Z$;TAB(20,14);A$;TAB (19,15)E$;TAB(18,16)E$ 830SOUND1,V,137,3:SOUND2,V,117,3 840T=30:PROCWAIT:PRINTTAB(20,12)"?" 850SOUND0,V,12,40:T=100:PROCWAIT:PRINT TAB(20,12)" " 860PRINTTAB(20,14)K$;TAB(18,15)N$;TAB( 18,16)Z$ 870T=60:PROCWAIT 880PRINTTAB(18,13)D$;TAB(19,14)D$;TAB( 18,15)Z$;Z$ 890T=30:PROCWAIT 900PRINTTAB(18,13)Z$;TAB(19,14)Z$;TAB( 18,15)N$;TAB(19,15)E$ 910SOUND3,-15,5,5 920T=10:PROCWAIT 930PRINTTAB(18,15)Z$;TAB(19,16)O$ 940PRINTTAB(15,14)"EH??" 950T=65:PROCWAIT 960PRINTTAB(20,14)A$;TAB(19,16)D$;TAB( 15,14)" " 970T=120:PROCWAIT 980C=C+1:GOTO440 990IFC=2 GOTO1000 1000FORS=25TO0STEP-1 1010 SOUND1,V,S,1:SOUND2,V,S+137,1:SOUN D3,V,S+117,1 1020 NEXT 1030 PRINTTAB(20,14)K$:T=70:PROCWAIT 1040 PRINTTAB(10,14)"NOW WHAT!";TAB(20, 12)"?";TAB(19,16)Z$;TAB(19,15)R$;TAB(19, 14)E$ 1050 T=200:PROCWAIT 1060 PRINTTAB(10,14)" ";TAB(20, 12)Z$ 1070 PRINTTAB(19,14)Z$;TAB(20,14)L$;TAB (19,15)E$;TAB(19,16)O$;TAB(20,16)C$;TAB( 21,16)Z$;Z$;TAB(22,15)M$;TAB(23,15)G$ 1080 T=50:PROCWAIT 1090 PRINTTAB(23,15)" " 1100 PRINTTAB(23,15)HAT$:SOUND1,V,254,2 1110 T=10:PROCWAIT 1120 PRINTTAB(22,15)E$;Z$;TAB(23,14)HAT $:SOUND1,V,150,1 1130 T=R:PROCWAIT 1140 PRINTTAB(22,15)Z$;TAB(21,15)R$;TAB (22,14)O$;Z$;TAB(22,13)HAT$ 1150 SOUND1,V,150,1 1160 T=R:PROCWAIT 1170 PRINTTAB(21,14)E$;Z$;TAB(21,13)HAT $;O$;TAB(21,15)Z$ 1180 SOUND1,V,150,1 1190 T=R:PROCWAIT 1200 PRINTTAB(20,13)HAT$;Z$;E$;TAB(20,1 4)A$ 1210 SOUND1,V,100,1 1220 T=R:PROCWAIT 1230 PRINTTAB(22,13)Z$;TAB(21,14)Z$;TAB (21,15)S$;TAB(22,15)D$ 1240 T=R:PROCWAIT 1250 PRINTTAB(21,15)D$;Z$;TAB(21,16)P$ 1260 T=R:PROCWAIT 1270 PRINTTAB(19,15);P$;TAB(19,16)P$;TA B(21,15)O$;TAB(21,16)O$ 1280 T=W:PROCWAIT 1290 PRINTTAB(17,15)A$ 1300:SOUND1,V,21,5:SOUND1,V,41,7:SOUND1 ,V,49,5:SOUND1,V,53,3:SOUND1,V,49,3:SOUN D1,V,41,5:SOUND1,V,37,7:SOUND1,V,41,5:SO UND1,V,49,10 1310 T=190:PROCWAIT 1320 PRINTTAB(17,15)K$ 1330 T=W:PROCWAIT 1340 PRINTTAB(17,15)L$ 1350 T=W:PROCWAIT 1360 PRINTTAB(17,14)L$;TAB(17,15)B$;D$; TAB(16,15)E$;TAB(18,16)P$;TAB(20,14)K$ 1370 SOUND1,V,2,5:SOUND2,V,4,5:SOUND3,V ,6,5 1380 T=20:PROCWAIT 1390 PRINTTAB(18,15)S$;R$;TAB(18,16)Z$ 1400 T=20:PROCWAIT 1410 PRINTTAB(17,14)Z$;Z$;K$;Z$;TAB(16, 15)Z$;L$;E$;P$ 1420 T=10:PROCWAIT 1430 SOUND1,V,200,1 1440 PRINTTAB(17,15)E$;Z$;TAB(18,14)K$; Z$ 1450 T=10:PROCWAIT 1460 SOUND1,V,200,1 1470 PRINTTAB(18,14)Z$;TAB(17,15)K$ 1480 T=10:PROCWAIT 1490 SOUND1,V,200,1 1500 PRINTTAB(17,15)Z$;TAB(20,13)Z$;TAB (20,14)HAT$ 1510 T=100:PROCWAIT 1520 FOR X=1 TO 30 1530 SOUND1,V,X,1 1540 NEXT 1550 T=30:PROCWAIT 1560 PRINTTAB(20,14)X$ 1570 SOUND1,V,250,3 1580 T=60:PROCWAIT 1590 PRINTTAB(20,13)HAT$ 1600 SOUND1,V,129,6:SOUND1,V,125,6:SOUN D1,V,109,6:SOUND1,V,101,6:SOUND1,V,89,6: SOUND1,V,81,6:SOUND1,V,77,6 1610 T=10:PROCWAIT 1620 FOR X=1 TO 5 1630 PRINTTAB(20,14);K$:T=10:PROCWAIT:P RINTTAB(20,14)A2$:T=10:PROCWAIT:PRINTTAB (20,14)L$:T=10:PROCWAIT:PRINTTAB(20,14)A $ 1640 NEXT 1650 T=80:PROCWAIT 1660 SOUND1,V,200,1 1670 PRINTTAB(20,14)K$;TAB(19,15)P$;TAB (19,16)E$;TAB(19,17)P$;P$;TAB(19,18)P$;P $;TAB(20,19)J$;Z$ 1680 T=20:PROCWAIT 1690 SOUND1,V,200,1 1700 PRINTTAB(18,14)D$;TAB(19,15)R$;TAB (19,17)E$;TAB(19,18)O$;TAB(18,19)J$;Z$;T AB(19,16)Z$;TAB(17,13)"*" 1710 T=50:PROCWAIT 1720 SOUND1,V,200,1 1730 PRINTTAB(17,13)Z$;TAB(17,14)"*";Z$ ;TAB(18,15)S$;R$ 1740 T=5:PROCWAIT 1750 PRINTTAB(17,14)Z$;TAB(17,15)"*";Z$ ;E$;TAB(19,16)D$ 1760 T=5:PROCWAIT 1770 SOUND1,V,1,5 1780 PRINTTAB(16,16)" ";TAB(16,17)" " ;TAB(16,18)" ";TAB(17,15)Z$ 1790 T=30:PROCWAIT 1800 PRINTTAB(19,17)P$;TAB(19,18)P$;TAB (18,19)Z$;J$ 1810 T=20:PROCWAIT 1820 PRINTTAB(19,17)Z$;F$;TAB(19,18)Z$; H$;TAB(18,19)Z$;J$;Z$;I$ 1830 T=20:PROCWAIT 1840 PRINTTAB(20,14)A$ 1850 T=50:PROCWAIT 1860 SOUND1,V,200,1 1870 PRINTTAB(21,16)Z$;TAB(22,15)M$ 1880 T=15:PROCWAIT 1890 SOUND1,V,200,1 1900 PRINTTAB(21,15)S$;Z$;TAB(21,14)D$ 1910 T=15:PROCWAIT 1920 SOUND1,V,200,1 1930 PRINTTAB(20,13)Z$;HAT$;TAB(21,14)P $ 1940 T=15:PROCWAIT 1950 SOUND1,V,200,1 1960 PRINTTAB(21,13)Z$;HAT$;TAB(21,14)Z $;E$ 1970 T=15:PROCWAIT 1980 SOUND1,V,2,3 1990 PRINTTAB(22,13)Z$;TAB(22,14)Z$;TAB (22,15)S$;H2$;TAB(20,14)L$ 2000 T=30:PROCWAIT 2010 PRINTTAB(19,15)P$;TAB(19,16)Z$;D$ 2020 T=5:PROCWAIT 2030 PRINTTAB(19,15)E$;TAB(19,16)O$;C$ 2040 T=5:PROCWAIT 2050 PRINTTAB(18,16)E$;Z$ 2060 T=5:PROCWAIT 2070 PRINTTAB(19,15)Z$;TAB(18,16)Z$;TAB (18,13)D$;TAB(19,14)D$ 2080 T=70:PROCWAIT 2090 PRINTTAB(18,13)Z$;M$ 2100 T=20:PROCWAIT 2110 PRINTTAB(19,13)E$;L$;TAB(20,14)Q$ 2120 T=5:PROCWAIT 2130 SOUND1,V,50,2:SOUND0,V,12,5 2140 PRINTTAB(18,13)D$;Z$;Z$;TAB(20,14) Z$;TAB(18,12)A$ 2150 FOR X=1 TO 2 2160 T=100:PROCWAIT:SOUND1,V,101,3:SOUN D1,V,97,3:SOUND1,V,101,3:SOUND1,V,109,3: SOUND1,V,101,3 2170 NEXT:T=50:PROCWAIT:SOUND1,V,101,2: T=50:PROCWAIT:SOUND1,V,101,2:T=20:PROCWA IT:SOUND1,V,101,3:T=40:PROCWAIT:SOUND1,V ,101,2:T=20:PROCWAIT:SOUND1,V,109,7:SOUN D1,V,113,8:SOUND1,V,117,10 2180 T=120:PROCWAIT:PRINTTAB(18,12)Z$;T AB(19,13)A$ 2190 T=5:PROCWAIT 2200 PRINTTAB(19,13)Z$;TAB(20,14)A$ 2210 T=5:PROCWAIT 2220 PRINTTAB(20,14)Z$;A$ 2230 T=5:PROCWAIT 2240 PRINTTAB(21,14)Z$;A$ 2250 T=5:PROCWAIT 2260 PRINTTAB(22,14)Z$;A$ 2270 T=20:PROCWAIT 2280 SOUND1,V,250,3 2290 PRINTTAB(23,14)Z$ 2300 T=40:PROCWAIT 2310 PRINTTAB(18,13)Z$;P$;TAB(19,14)P$ 2320 T=10:PROCWAIT 2330 PRINTTAB(19,13)Z$;M$; 2340 T=60:PROCWAIT 2350 T=20:PRINTTAB(20,14)D$;TAB(20,13)Z $:T=10:PROCWAIT:PRINTTAB(20,13)M$;TAB(20 ,14)A$:T=50:PROCWAIT 2360 SOUND0,V,12,2:PRINTTAB(20,14)X$;TA B(20,13)Z$;TAB(23,14)X$;TAB(19,14)Z$;L$ 2370 T=100:PROCWAIT 2380 PRINTTAB(21,15)R$;TAB(21,16)Z$;TAB (21,14)D$ 2390 T=25:PROCWAIT:PRINTTAB(23,14)K$:T= 30:PROCWAIT 2400 SOUND1,V,10,5 2410 PRINTTAB(21,14)Z$;TAB(22,14)E$ 2420 T=5:PROCWAIT 2430 PRINTTAB(22,14)M$;Z$ 2440 FOR X=24 TO 30 2450 PRINTTAB(X,14)K$ 2460 T=2:PROCWAIT 2470 NEXT 2480 FOR X=24 TO 29 2490 PRINTTAB(X,14)Z$ 2500 NEXT 2510 T=60:PROCWAIT 2520 PRINTTAB(22,14)Z$;TAB(21,15)D$;TAB (21,16)E$;TAB(30,14)X$;TAB(30,14)K$:COLO UR0:PRINTTAB(23,14)X$:COLOUR1 2530 T=30:PROCWAIT 2540 SOUND1,V,129,10:SOUND1,V,117,5:SOU ND1,V,137,3:SOUND1,V,129,10:SOUND1,V,117 ,10 2550 T=40:PROCWAIT 2560 PRINTTAB(20,14)A$:T=30:PROCWAIT 2570 FOR Y=1 TO 4 2580 FOR X=19 TO 21 2590 T=10:PROCWAIT 2600 PRINTTAB(19,13)" ":GOTO2750 2610 T=50:PROCWAIT 2620 PRINTTAB(X,12)Z$;O$ 2630 T=50:PROCWAIT 2640 PRINTTAB(21,15)Z$;TAB(21,16)Z$;TAB (21,14)E$;TAB(21,13)Z$;TAB(21,10);Z$;TAB (21,15)D$;TAB(21,16);P$;TAB(20,14)K$ 2650 T=30:PROCWAIT 2660 PRINTTAB(30,14)A$ 2670 T=30:PROCWAIT 2680 PRINTTAB(20,14)A$ 2690 T=20:PROCWAIT:PRINTTAB(20,14)L$ 2700 PRINTTAB(21,16)Z$;TAB(22,15):GOTO 2730 2710 T=10:PROCWAIT 2720 PRINTTAB(X,12)Z)O$ 2730 PRINTTAB(22,15)O$ 2740 T=15:PROCWAIT:SOUND1,V,RND(12),1:P RINTTAB(22,15)E$:T=15:PROCWAIT:X=X+1:IF X<7 GOTO 2730 2750 PRINTTAB(22,15)Z$;TAB(20,14)X$ 2760 T=50:PROCWAIT 2770 SOUND0,V,12,1 2780 PRINTTAB(19,16)Z$;TAB(19,15)R$;TAB (19,14)E$ 2790 X=X+1:IF X<7 GOTO 2740 2800 PRINTTAB(30,14)K$ 2810T=10:PROCWAIT 2820 PRINTTAB(20,14)K$ 2830 T=80:PROCWAIT 2840 PRINTTAB(19,14)Z$;A$;TAB(19,15)E$; TAB(19,16)D$ 2850 T=50:PROCWAIT 2860 JUMP=5:PROCJUMP 2870 T=30:PROCWAIT 2880 PRINTTAB(19,16)Z$;TAB(18,15)P$ 2890 T=30:PROCWAIT 2900 SOUND1,V,150,1 2910 PRINTTAB(18,15)D$ 2920 T=20:PROCWAIT 2930 PRINTTAB(18,15)P$ 2940 T=10:PROCWAIT 2950 PRINTTAB(18,15)D$;TAB(20,14)K$;TAB (17,15)H2$ 2960 T=20:PROCWAIT 2970 PRINTTAB(17,15)Z$;Z$;S$;TAB(17,14) H2$;D$ 2980 T=20:PROCWAIT 2990 PRINTTAB(18,14)Z$;E$ 3000 T=20:PROCWAIT 3010 PRINTTAB(17,14)"#";D$;Z$ 3020 T=20:PROCWAIT 3030 PRINTTAB(18,14)Z$;E$ 3040 T=20:PROCWAIT 3050 PRINTTAB(17,14)HAT$;D$;Z$ 3060 T=20:PROCWAIT 3070 PRINTTAB(17,14)" ";TAB(19,15)E$;T AB(18,16)E$;TAB(17,17)HAT$ 3080 T=10:PROCWAIT 3090 PRINTTAB(17,17)Z$;TAB(17,18)HAT$ 3100 T=5:PROCWAIT 3110 SOUND0,V,13,1 3120 PRINTTAB(17,18)Z$;TAB(17,19)HAT$ 3130 T=80:PROCWAIT:PRINTTAB(20,14)A$:T= 20:PROCWAIT 3140 PRINTTAB(18,16)Z$;TAB(19,15)Z$;TAB (18,13)D$;TAB(19,14)D$ 3150 T=30:PROCWAIT:PRINTTAB(20,14)K$ 3160 T=100:PROCWAIT 3170 SOUND1,V,72,5:SOUND2,V,76,5:SOUND3 ,V,80,5 3180 PRINTTAB(18,13)Z$;TAB(19,14)Z$;TAB (19,15)E$;TAB(18,16)E$ 3190 PRINTTAB(17,19)Z$ 3200 VDU5 3210 FOR Y=416 TO 608 STEP 8 3220 MOVE544,Y 3230 GCOL0,1:PRINTHAT$ 3240 A=INKEY(10) 3250 MOVE544,Y 3260 GCOL0,0:PRINTHAT$ 3270 IF Y=512 VDU4:PRINTTAB(18,16)Z$;D$ ;TAB(20,14)L$:VDU5 3280 IF Y=544 VDU4:PRINTTAB(20,14)K$:VD U5 3290 NEXT 3300 VDU4 3310 PRINTTAB(17,13)HAT$ 3320 T=20:PROCWAIT 3330 PRINTTAB(19,15)Z$;TAB(19,16)Z$;TAB (18,13)D$;TAB(19,14)D$ 3340 T=20:PROCWAIT 3350 PRINTTAB(17,13)Z$;Z$;E$;HAT$ 3360 T=20:PROCWAIT 3370 PRINTTAB(19,13)Z$;TAB(19,14)Z$;A$; TAB(19,15)E$;TAB(19,16)D$ 3380 T=80:PROCWAIT 3390 PRINTTAB(19,16)Z$;C$;Z$;TAB(18,15) P$;R$;B$;S$;O$ 3400 L=20 3410 FOR X=1 TO 40 3420 SOUND1,V,70+(X+4),1 3430 PRINTTAB(18,15)E$;TAB(22,15)D$ 3440 A=INKEY(L) 3450 PRINTTAB(18,15)S$;TAB(22,15)R$ 3460 A=INKEY(L) 3470 PRINTTAB(18,15)Z$;TAB(22,15)Z$ 3480 PRINTTAB(18,14)D$;TAB(22,14)E$ 3490 A=INKEY(L) 3500 PRINTTAB(18,14)P$;TAB(22,14)O$ 3510 A=INKEY(L) 3520 PRINTTAB(18,14)Z$;TAB(22,14)Z$ 3530 PRINTTAB(19,14)E$;TAB(21,14)D$ 3540 PRINTTAB(19,15)R$;TAB(21,15)S$ 3550 A=INKEY(L) 3560 PRINTTAB(19,14)N$;TAB(21,14)M$ 3570 PRINTTAB(19,15)D$;TAB(21,15)E$ 3580 A=INKEY(L) 3590 PRINTTAB(19,15)Z$;TAB(21,15)Z$ 3600 IF X=30 PRINTTAB(19,14)Z$;A$;Z$;TA B(20,15)Q$ 3610 IF X=35 PRINTTAB(20,16)Q$;TAB(20,1 7)Q$;TAB(20,18)Q$;TAB(19,19)" " 3620 L=L-1 3630 NEXT 3640 PRINTTAB(19,14)Z$;A$;Z$ 3650 T=20:PROCWAIT 3660 SOUND 1,V,50,1 3670 FOR X=13 TO 18 3680 PRINTTAB(20,X)HAT$ 3690 A=INKEY(7) 3700 PRINTTAB(20,X)Z$ 3710 NEXT 3720 SOUND1,V,12,2 3730 PRINTTAB(20,18)HAT$;TAB(30,14)A$;T AB(30,13);"?" 3740 T=100:PROCWAIT 3750 PRINTTAB(20,18)K$ 3760 T=60:PROCWAIT 3770 PRINTTAB(20,18)A$ 3780 T=60:PROCWAIT 3790 PRINTTAB(18,18)P$;D$;L$ 3800 T=20:PROCWAIT 3810 PRINTTAB(19,18)R$;B$;D$;TAB(20,17) L$;TAB(30,14)K$;TAB(30,13);" " 3820 T=20:PROCWAIT 3830 PRINTTAB(20,16);L$;TAB(19,18)Z$;Q$ ;P$;TAB(19,17)E$;B$;D$ 3840 T=20:PROCWAIT 3850 PRINTTAB(20,15)L$;TAB(20,16)B$;TAB (19,16)E$;B$;D$;TAB(19,17)D$;Q$;E$;TAB(1 8,18)Z$;Z$;Q$;Z$ 3860 T=20:PROCWAIT 3870 PRINTTAB(20,14)X$;TAB(20,14)L$;TAB (19,17)Z$;F$;Z$ 3880 T=50:PROCWAIT 3890 PRINTTAB(21,15)Z$;TAB(21,16)Z$;TAB (21,14)M$ 3900 PRINTTAB(22,14)O$ 3910 T=30:PROCWAIT 3920 FOR X=22 TO 29 3930 PRINTTAB(X,14)M$ 3940 A=INKEY(2) 3950 NEXT 3960 SOUND0,V,12,2 3970 PRINTTAB(30,14)"@" 3980 FOR X=29 TO 21 STEP -1 3990 A=INKEY(2) 4000 COLOUR0:PRINTTAB(X,14)M$ 4010 NEXT 4020 T=5:PROCWAIT 4030 COLOUR1 4040 PRINTTAB(30,14)"?";TAB(21,14)Z$;TA B(21,15)D$;TAB(21,16)E$ 4050 T=30:PROCWAIT 4060 FOR X=1 TO 10 4070 COLOUR1 4080 SOUND1,V,33,1 4090 PRINTTAB(30,14)X$ 4100 A=INKEY(10) 4110 COLOUR0 4120 PRINTTAB(30,14)X$ 4130 A=INKEY(10) 4140 NEXT 4141 GCOL0,1:COLOUR1 4142 T=100:PROCWAIT 4145 PROCextra 4150 COLOUR1 4160 SOUND1,V,100,3 4180 PRINTTAB(20,14)X$ 4190 T=50:PROCWAIT 4200 SOUND1,V,100,1 4210 PRINTTAB(20,14)Z$;TAB(20,15)A$;R$; TAB(22,14)E$;TAB(18,16)E$;Z$;C$;Z$ 4220 T=10:PROCWAIT 4230 SOUND1,V,100,1 4240 PRINTTAB(18,16)Z$;D$;TAB(21,15)Z$; TAB(21,14)E$;Z$;TAB(22,13)E$ 4250 T=50:PROCWAIT 4260 SOUND1,V,100,1 4270 PRINTTAB(22,13)Z$;TAB(21,14)Z$;TAB (21,15)D$;TAB(21,16)E$ 4280 T=10:PROCWAIT 4290 SOUND1,V,100,1 4300 PRINTTAB(19,17)"<";Z$;">";TAB(19,1 8)J$;Z$;I$;TAB(19,19);" " 4310 T=20:yes=1:PROCWAIT:JUMP=20:PROCJU MP 4320 GOTO4480 4330 DEFPROCWAIT 4340 TIME=0 4350 REPEAT UNTIL TIME=T 4360 ENDPROC 4370 DEFPROCJUMP 4380 X=1 4390 COLOUR0:PRINTTAB(20,14)X$ 4400 COLOUR1:PRINTTAB(20,15)X$:PRINTTAB (19,20)" " 4410 PRINTTAB(19,18)"< >";TAB(19,19)J$; Z$;I$ 4420 T=16:PROCWAIT 4430 SOUND1,V,5,1 4440 COLOUR0:PRINTTAB(19,18)"< >";TAB(1 9,19)J$;Z$;I$;TAB(19,17)Z$;TAB(21,17)Z$: COLOUR1:PRINTTAB(20,14)X$ 4450 T=20:PROCWAIT 4455 IFyes=1 AND X=JUMP THEN ENDPROC 4460 X=X+1:IF X<JUMP GOTO 4390 4470 ENDPROC 4480 qwerty=5:FORY=14 TO 0 STEP -1 4485 PRINTTAB(19,Y+6);" " 4487 PRINTTAB(19,Y+3);" " 4490 PRINTTAB(20,Y)X$ 4500 SOUND1,-((Y+6)/2),qwerty,1 4510 SOUND0,-1,6,1 4520 SOUND2,-((Y+6)/2),qwerty+36,1 4530 qwerty=qwerty+12.75 4540 NEXT 4560 PRINTTAB(19,5);" ";TAB(19,2);" ";TAB(19,0); 4570 PRINTCHR$228+CHR$225+CHR$227+CHR$8 +CHR$8+CHR$8+CHR$10+CHR$227+CHR$226+CHR$ 228+CHR$8+CHR$8+CHR$10+CHR$229+CHR$8+CHR $10+CHR$230+CHR$8+CHR$8+CHR$10+CHR$232+C HR$9+CHR$231 4580 SOUND1,-((-1+6)/2),209,1:SOUND0,-1 ,6,1:SOUND2,-((-1+6)/2),209+36,1 4590 PRINTTAB(19,4);" ";TAB(19,1);" ";TAB(19,0); 4600 PRINTCHR$227+CHR$226+CHR$228+CHR$8 +CHR$8+CHR$10+CHR$229+CHR$8+CHR$10+CHR$2 30+CHR$8+CHR$8+CHR$10+CHR$232+CHR$9+CHR$ 231 4610 SOUND1,-((-2+6)/2),221.75,1:SOUND0 ,-1,6,1:SOUND2,-((-2+6)/2),221.75+36,1 4620 PRINTTAB(19,3);" ";TAB(19,0);" ";TAB(20,0); 4630 PRINTCHR$229+CHR$8+CHR$10+CHR$230+ CHR$8+CHR$8+CHR$10+CHR$232+CHR$9+CHR$231 4640 SOUND1,-((-3+6)/2),234.5,1:SOUND0, -1,6,1:SOUND2,-((-3+6)/2),234.5+36,1 4650 PRINTTAB(19,2);" ";TAB(19,0);CHR $232+CHR$9+CHR$231 4660 SOUND1,-((-4+6)/2),247.25,1:SOUND0 ,-1,6,1:SOUND2,-((-4+6)/2),247.25+36,1 4670 PRINTTAB(19,1);" ";TAB(19,0);" " 4680 T=200:PROCWAIT 4690 FORY=250TO150STEP-10:SOUND1,-1,Y,1 :NEXT 4700 FORY=14 TO 0 STEP -1 4710 SOUND1,-(15-Y),Y*10,1 4720 PRINTTAB(20,(14-Y)-1);" " 4730 PRINTTAB(20,14-Y);CHR$247 4735 T=2:PROCWAIT 4740 NEXT 4750 SOUND0,-15,6,2 4760 T=150:PROCWAIT 4770 PRINTTAB(20,13);A$ 4780 T=40:PROCWAIT:PRINTTAB(20,12);A$;T AB(19,13);CHR$228+CHR$225+CHR$227 4790 T=100:PROCWAIT:PRINTTAB(20,12);K$: T=50:PROCWAIT:PRINTTAB(20,12);L$:T=25:PR OCWAIT:PRINTTAB(19,12);CHR$227+K$+CHR$22 8;TAB(19,13);" ";CHR$225;" ":T=75:PROCWA IT 4800 FORY=250TO120STEP-10:SOUND1,-1,Y,1 :NEXT:FORY=11 TO 0 STEP -1:SOUND1,-(15-Y ),Y*10,1:PRINTTAB(19,(11-Y)-1);" ";TAB (19,11-Y);"HET":T=2:PROCWAIT:NEXT 4810 T=75:PROCWAIT:PRINTTAB(19,11);" ";TAB(19,12);" ";K$;CHR$228;TAB(17,14);" HET";TAB(19,13);CHR$228;CHR$225:T=100:PR OCWAIT 4820 PRINTTAB(19,12);CHR$227+L$+CHR$228 ;TAB(19,13);" ";CHR$225;" ":T=75:PROCWAI T 4830 FORY=250TO120STEP-10:SOUND1,-1,Y,1 :NEXT:FORY=11 TO 0 STEP -1:SOUND1,-(15-Y ),Y*10,1:PRINTTAB(19,(11-Y)-1);" ";TAB (19,11-Y);"DEN":T=2:PROCWAIT:NEXT 4840 T=75:PROCWAIT:PRINTTAB(19,11);" ";TAB(19,12);CHR$227;L$;" ";TAB(21,14);" DEN";TAB(20,13);CHR$225;CHR$227:T=100:PR OCWAIT 4850 PRINTTAB(19,12);" ";TAB(19,13);" ";A$;" ":T=100:PROCWAIT:PRINTTAB(20,13) ;" ":T=300:PROCWAIT 4855PROCextra2 4860 END 4870 DEFPROCextra 4880 MOVE516,508:DRAW 570,508:DRAW570,4 80:DRAW516,480:DRAW516,508:MOVE516,476:D RAW570,476:DRAW570,420:DRAW516,420:DRAW5 16,476:MOVE528,480:DRAW528,490:DRAW558,4 90:DRAW558,480:SOUND1,-15,100,1 4890 FORY=250TO200STEP-4:SOUND1,-1,Y,1: NEXT:PRINTTAB(20,13);"?":PRINTTAB(20,14) ;A$:FORY=200TO140STEP-6:SOUND1,-1,Y,1:NE XT 4900 FORY=14 TO 0 STEP -1:SOUND1,-(15-Y ),Y*10,1:PRINTTAB(16,(14-Y)-1);" ";TAB( 16,14-Y);bb$:T=2:PROCWAIT:NEXT 4910 SOUND0,-7,5,60:T=100:PROCBURN:PRIN TTAB(20,14);K$:T=80:PROCBURN:PRINTTAB(20 ,13);"!":T=120:PROCBURN 4920 VDU19,0,7;0;:FORI=15TO1STEP-1:SOUN D0,-I,6,1:NEXT:CLS 4930 FORY=225TO226:PRINTTAB(RND(20)+10, 24)CHR$Y:NEXT:FORY=231TO232:PRINTTAB(RND (20)+10,24)CHR$Y:NEXT:FORX=1TO3:FORY=235 TO236:PRINTTAB(RND(20)+10,24)CHR$Y:NEXT, :PRINTTAB(9,24);CHR$224 4940 VDU19,0,0;0;:T=200:PROCWAIT 4950 FORY=27 TO 20STEP-1:PRINTTAB(3,Y); STRING$(35,CHR$255):NEXT:T=200:PROCWAIT: PRINTTAB(20,19);K$:T=50:PROCWAIT:PRINTTA B(20,19);CHR$248:T=50:PROCWAIT:PRINTTAB( 20,19);L$:T=50:PROCWAIT:PRINTTAB(20,19); A$:T=50:PROCWAIT 4960 PRINTTAB(20,18);:VDU224,8,8,10,228 ,225,227:T=25:PROCWAIT:PRINTTAB(20,17);: VDU224,8,8,10,228,225,227,8,8,8,10,227,2 26,228:T=25:PROCWAIT:PRINTTAB(20,16);:VD U224,8,8,10,228,225,227,8,8,8,10,227,226 ,228,8,8,8,10,32,229,32 4970 T=25:PROCWAIT:PRINTTAB(20,15);:VDU 224,8,8,10,228,225,227,8,8,8,10,227,226, 228,8,8,8,10,32,229,32,8,8,8,10,32,230,3 2:T=25:PROCWAIT 4980 PRINTTAB(20,14);:VDU224,8,8,10,228 ,225,227,8,8,8,10,227,226,228,8,8,8,10,3 2,229,32,8,8,8,10,32,230,32,8,8,8,10,232 ,32,231 4990 T=100:PROCWAIT:FORY=27 TO 20STEP-1 :PRINTTAB(3,Y);STRING$(35,CHR$32):NEXT 5000 T=100:PROCWAIT:ENDPROC 5010DEFPROCBURN:TIME=0 5020REPEAT 5030IFpos=0 THENGCOL0,1:PLOT69,560,570: GCOL0,0:PLOT69,560,558:PLOT69,552,562:po s=1 5040IFpos=1 THENGCOL0,1:PLOT69,560,558: GCOL0,0:PLOT69,560,570:PLOT69,552,562:po s=2 5050IFpos=2 THENGCOL0,1:PLOT69,552,562: GCOL0,0:PLOT69,560,570:PLOT69,560,558:po s=0 5060UNTILTIME>=T 5070ENDPROC 5080DEFPROCextra2 5090PRINTTAB(20,13);A$:T=25:PROCWAIT:PR INTTAB(20,12);K$;TAB(20,13);CHR$239 5100FORvol=1TO15STEP.5:SOUND0,-vol,2,1: NEXT 5120PRINTTAB(20,12);A$;TAB(18,11)"BYE ! " 5130SOUND0,-15,2,120 5140GCOL3,1:FORhor=0TO400STEP8:MOVEhor, 0:DRAWhor,1024:DRAWhor,0:NEXT 5145PRINTTAB(18,11)" " 5146GCOL3,1:FORhor=408TO638STEP8:MOVEho r,0:DRAWhor,1024:DRAWhor,0:NEXT 5150FORhor=642TO676STEP8:GCOL0,0:MOVEho r-4,0:DRAWhor-4,1024:GCOL0,1:MOVEhor,0:D RAWhor,1024:GCOL0,0:DRAWhor,0:NEXT 5160GCOL3,1:FORhor=676TO1280STEP8:MOVEh or,0:DRAWhor,1024:DRAWhor,0:NEXT 5170FORvol=15TO1STEP-.5:SOUND0,-vol,2,1 :NEXT 5180T=200:PROCWAIT 5190PRINTTAB(19,29);A$:T=50:PROCWAIT:PR INTTAB(19,29);L$:T=25:PROCWAIT:FORhor=38 TO21STEP-1:PRINTTAB(hor,29);K$;" ":T=10: PROCWAIT:NEXT 5200T=60:PROCWAIT:PRINTTAB(19,29);CHR$2 48;CHR$32;CHR$248 5210T=100:PROCWAIT:PRINTTAB(19,29);" ":T=150:PROCWAIT 5220FORY=28TO15STEP-1:PRINTTAB(19,Y);CH R$253+CHR$32+CHR$253+CHR$10+CHR$8+CHR$8+ CHR$8+CHR$254+CHR$32+CHR$254+CHR$10+CHR$ 8+CHR$8+CHR$8+CHR$32+CHR$32+CHR$32:T=5:P ROCWAIT:NEXT 5230FORY=13TO0STEP-1:PRINTTAB(19,Y);"T D"+CHR$10+CHR$8+CHR$8+CHR$8+CHR$253+CHR$ 32+CHR$253+CHR$10+CHR$8+CHR$8+CHR$8+CHR$ 254+CHR$32+CHR$254+CHR$10+CHR$8+CHR$8+CH R$8+CHR$32+CHR$32+CHR$32:T=5:PROCWAIT:NE XT 5240PRINTTAB(19,0)CHR$253+CHR$32+CHR$25 3+CHR$10+CHR$8+CHR$8+CHR$8+CHR$254+CHR$3 2+CHR$254+CHR$10+CHR$8+CHR$8+CHR$8+CHR$3 2+CHR$32+CHR$32:T=5:PROCWAIT 5250PRINTTAB(19,0)CHR$254+CHR$32+CHR$25 4+CHR$10+CHR$8+CHR$8+CHR$8+CHR$32+CHR$32 +CHR$32:T=5:PROCWAIT 5260PRINTTAB(19,0)CHR$32+CHR$32+CHR$32: T=150:PROCWAIT 5270PRINTTAB(19,29);CHR$248+CHR$32+CHR$ 248:T=50:PROCWAIT:PRINTTAB(19,29);L$+" " +K$:T=50:PROCWAIT:PRINTTAB(19,29);CHR$24 8+CHR$32+CHR$248 5280FORhor=1TO15:PRINTTAB(hor,14);" T": T=5:PROCWAIT:NEXT 5290FORhor=37TO24STEP-1:PRINTTAB(hor,14 );"D ":T=5:PROCWAIT:NEXT 5300T=100:PROCWAIT:PRINTTAB(19,29);L$+" "+K$ 5310T=50:PROCWAIT:PRINTTAB(19,29);" " 5315ENDPROC 5400 END 6000 PRINT"Twiddle your thumbs.":*TAPE 6010FORI%=0TO TOP-PAGE STEP4:I%!&E00=I% !PAGE:NEXT:?&13=?&1-(PAGE-&E00)DIV256:PA GE=&E00:RUN