100 SET KEYCLICKOFF 110 GOSUB 2260 120 RESTORE 130 LET BB=40 140 ENVELOPE NUMBER1;2,63,63,3;-5,-63,63,3 150 ENVELOPE NUMBER2;0,63,63,7;5,63,63,3;0,63,63,7;-3,63,63,3;0,63,63,7;3,63,63,3;0,63,63,5;-5,63,63,1;0,63,63,7 160 ENVELOPE NUMBER3;2,63,63,1;-5,-63,63,2 170 TEXT 40 180 CLOSE #102 190 OPEN #102:"video:" 200 SET #102:PALETTEBB,9,BB,BB 210 CLEAR FONT 220 SET FKEY8"clear font"&CHR$(13) 230 SET FKEY7"print exstring$(extype)" 240 OUT 191,12 250 LET P=11425 260 LET P=P+30000 270 SET STATUSOFF 280 SET BORDERBB 290 !WAIT 1:poke 56,201 300 STRING FR$(10,7)*9 310 DIM R$(14) 320 FOR X=0TO127 330 LET Y=X+128 340 LET B=XBORBIN(11111100) 350 LET D=XBANDBIN(11111) 360 SET CHARACTERX,B,Y,Y,Y,Y,Y,X,X,D 370 NEXT X 380 SET CHARACTER32,BB,BB,BB,BB,BB,BB,BB,BB,BB 390 !SET CHARACTER ORD("▮"),32,32,32,32,32,32,32,32,32 400 !SET CHARACTER ORD("è"),56,56,56,56,56,56,56,56,56 410 SET CHARACTERORD("§"),255,255,255,255,255,255,255,191,191 420 !LET G$="4$5%8(0ÖöqΣtTpπa#dDhélLxè" 430 LET G$="111x8ph(é(é(ééé ééé(é(é(hp8x111" 440 FOR Y=1TO7 450 FOR X=1TO10 460 READ FR$(X,Y) 470 NEXT X 480 NEXT Y 490 FOR X=1TO14 500 READ R$(X) 510 NEXT X 520 CLOSE #102 530 SET VIDEOCOLOR3 540 SET VIDEOX42 550 SET VIDEOY24 560 OPEN #102:"video:" 570 SET VIDEOY1 580 OPEN #1:"video:" 590 SET CURSORCHARACTER55 600 DISPLAY #102:AT3FROM1TO23 610 DISPLAY #1:AT1FROM1TO1 620 SET #1:SCROLLOFF 630 PRINT #102:CHR$(27);"o"; 640 PRINT #1:CHR$(27);"o"; 650 CALL TITLE 660 PRINT #1:"i§i§i§i§i§i§i§i§i§i§i§i§i§i§i§i§i§i§i§i§i§"; 670 LET CO=11:LET CY=10:LET RCO=1:LET ROFF=1:LET I=1:LET GOVER=0:LET ENE=42:LET LIM=60:LET SSS=0 680 LET X=20 690 DO 700 SET #102:SCROLLOFF 710 PRINT #102,AT24,1:R$(RCO); 720 PRINT #102,AT24,39:R$(RCO); 730 LET G=RND(34)+5 740 IF RND(3)=0THENPRINT #102,AT24,G:G$(G-4) 750 IF CO<11THENPRINT #102,AT24,CY:FR$(CO,ROFF) 760 PRINT #102,AT9,X:; 770 LOOK #102:V 780 PRINT #102,AT9,X+4:; 790 LOOK #102:V2 800 SET BORDERBB 810 IF V<>32ORV2<>32THENPRINT #1,AT1,ENE:"#";:LET ENE=ENE-1:SET BORDER33:SOUND SOURCE3,ENVELOPE3,INTERRUPT 820 ! 830 SET #102:SCROLLON 840 PRINT #102,AT24,42:"" 850 PRINT #102,AT6,X:"s32Bp"; 860 PRINT #102,AT7,X:"s)2)p"; 870 PRINT #102,AT8,X+1:"srb"; 880 PRINT #102,AT9,X+2:")"; 890 SOUND PITCHRCO+20,INTERRUPT,ENVELOPE1,STYLE32 900 LET I$=INKEY$ 910 IF I$=" "THENLET I=-I 920 LET X=X+I 930 IF X<4THENLET X=4 940 IF X>35THENLET X=35 950 LET CO=CO+1:LET RCO=RCO+1 960 IF CO>LIMTHENLET CO=1:LET CY=RND(25)+5:LET ROFF=RND(7)+1 970 IF CO=2THENSOUND SOURCE1,ENVELOPE2,INTERRUPT,DURATION50,PITCHRND(30)+10 980 IF CO=1THENLET SSS=SSS+1 990 IF RND(100)<10ANDLIM>15THENLET LIM=LIM-1 1000 IF RCO=15THENLET RCO=1 1010 IF I$=CHR$(27)THENGOTO 1040 1020 LOOP UNTILGOVER=1ORENE<1 1030 CALL GAMEOVER 1040 !CLEAR FONT 1050 ! 1060 GOTO 650 1070 DATA " 33 " 1080 DATA " rr3 " 1090 DATA " Äkkrr3 " 1100 DATA " Äkkkkrr3" 1110 DATA "Äkkyyyyyy" 1120 DATA "Äkyyyyyyi" 1130 DATA "kyyyyyyii" 1140 DATA "kyyyyyiia" 1150 DATA " iiiiia# " 1160 DATA " iiaa# " 1170 ! 1180 DATA " y " 1190 DATA " 5yå " 1200 DATA " 5gguå " 1210 DATA " 5gogggå " 1220 DATA " 5ooogguå" 1230 DATA "5go§ogguå" 1240 DATA "5gooogguå" 1250 DATA " ggoggguå" 1260 DATA " ågggguå " 1270 DATA " åuuå " 1280 ! 1290 DATA " kky " 1300 DATA " ykykyyy " 1310 DATA " kÄkkkyy " 1320 DATA "kħÄkkkyy" 1330 DATA "ykÄkykkyy" 1340 DATA "kkkkkkky§" 1350 DATA "kkkykkyy§" 1360 DATA "§ykkkyy§ " 1370 DATA " §yyyy§§ " 1380 DATA " yy§ " 1390 ! 1400 DATA " xb8 " 1410 DATA " bb8 " 1420 DATA " bbbb8 " 1430 DATA " bbzb8 " 1440 DATA " bzbbbb8 " 1450 DATA "xbbbbbz88" 1460 DATA "xbbbzbb88" 1470 DATA "xbzbbbx88" 1480 DATA " xbbbx88 " 1490 DATA " xx888 " 1500 ! 1510 DATA " b " 1520 DATA " b b " 1530 DATA " b b " 1540 DATA " b b " 1550 DATA " b b " 1560 DATA " ii ii " 1570 DATA "ikÜa ikya" 1580 DATA "iyya iyya" 1590 DATA "iyya iyya" 1600 DATA " ii aa " 1610 ! 1620 DATA " 2 2 2 2 " 1630 DATA " Ä2Ä2q " 1640 DATA " ÄÄkÄk9q " 1650 DATA "ÄÄkÄk9k9a" 1660 DATA "ÄkÄkÄk9ka" 1670 DATA "ÄÄkÄk9k9a" 1680 DATA "ÄkÄk9k9ka" 1690 DATA " ÄkÄk9ia " 1700 DATA " ÄÄk99ka " 1710 DATA " 9aa " 1720 ! 1730 DATA " ÄÄ↓↓ " 1740 DATA " ÄÄÄÄ↓↓ " 1750 DATA " ħ§ÄÄ↓↓↓" 1760 DATA " ħ§ÄÄ↓↓↓" 1770 DATA " ÄÄÄÄÄ↓↓k" 1780 DATA " ÄÄÄÄÄ↓↓k" 1790 DATA " ÄÄÄÄÄ↓↓k" 1800 DATA " ÄÄÄÄÄ↓↓k" 1810 DATA " ÄÄÄ↓↓k " 1820 DATA " Ä↓↓k " 1830 ! 1840 ! 1850 ! 1860 ! 1870 ! 1880 ! 1890 DATA "§Äkh" 1900 DATA "§kqh" 1910 DATA "Äkqh" 1920 DATA "Äkqh" 1930 DATA "Äkqh" 1940 DATA "Äqqh" 1950 DATA "1hhh" 1960 DATA "§vvn" 1970 DATA "§vge" 1980 DATA "wvge" 1990 DATA "wvge" 2000 DATA "wvge" 2010 DATA "wgge" 2020 DATA "neee" 2030 DEF GAMEOVER 2031 CLEAR SOUND 2032 SOUND DURATION10,STYLE32,PITCH52 2033 SOUND DURATION10,STYLE32,PITCH50 2034 SOUND DURATION10,STYLE32,PITCH45 2035 SOUND DURATION20,STYLE32,PITCH40 2040 ! SET VIDEO X 42 2050 ! SET VIDEO Y 5 2060 ! OPEN #2:"video:" 2070 !display #2:at 10 from 1 to 5 2080 PRINT #102,AT5,10:"kkkkkkkkkkkkkkkkkkkkkkkk" 2090 PRINT #102,AT6,10:"kiiiiiiiiiiiiiiiiiiiiiii" 2100 PRINT #102,AT7,10:"ki bbbb b b bbb ii" 2110 PRINT #102,AT8,10:"ki b bb b b b ki" 2120 PRINT #102,AT9,10:"ki bbb b b b b b ki" 2130 PRINT #102,AT10,10:"ki b b bb b b ki" 2140 PRINT #102,AT11,10:"ki bbbb b b bbb ki" 2150 PRINT #102,AT12,10:"kiikkkkkkkkkkkkkkkkkkkki" 2160 PRINT #102,AT13,10:"kiiiiiiiiiiiiiiiiiiiiiii" 2170 PRINT #102,AT14,10:"kiiiiiiiiiiiiiiiiiiiiiii" 2180 PRINT #102,AT15,10:"kiiiiiiiiiiiiiiiiiiiiiii" 2190 PRINT #102,AT16,10:"kiiiiiiiiiiiiiiiiiiiiiii" 2200 PRINT #102,AT17,10:"kiiiiiiiiiiiiiiiiiiiiiii" 2210 PRINT #102,AT18,10:"kiiiiiiiiiiiiiiiiiiiiiii" 2220 PRINT #102,AT19,10:"kiiiiiiiiiiiiiiiiiiiiiii" 2230 CALL KIIR(STR$(SSS),15,13) 2240 WAIT 5 2250 END DEF 2260 RESTORE 2440 2270 TEXT 40 2280 STRING NU$(5) 2290 FOR X=1TO5 2300 READ NU$(X) 2310 NEXT X 2320 RETURN 2330 DEF KIIR(BE$,BEX,BEY) 2340 DO 2350 IF LEN(BE$)<4THENLET BE$="0"&BE$ 2360 LOOP UNTILLEN(BE$)=4 2370 FOR X=0TOLEN(BE$)-1 2380 LET N=(ORD(BE$(X+1))-48)*4 2390 FOR Y=1TO5 2400 PRINT #102,ATBEY+Y,BEX+X*4:NU$(Y)(N+1:N+3); 2410 NEXT Y 2420 NEXT X 2430 END DEF 2440 DATA "ÄÄÄiiÄiiÄÄÄiÄÄÄiÄiiiÄÄÄiÄÄÄiÄÄÄiÄÄÄiÄÄÄi" 2450 DATA "ÄiÄiÄÄiiiiÄiiiÄiÄiiiÄiiiÄiiiiiÄiÄiÄiÄiÄi" 2460 DATA "ÄiÄiiÄiiÄÄÄiiÄÄiÄÄÄiÄÄÄiÄÄÄiiÄiiÄÄÄiÄÄÄi" 2470 DATA "ÄiÄiiÄiiÄiiiiiÄiiÄiiiiÄiÄiÄiÄiiiÄiÄiiiÄi" 2480 DATA "ÄÄÄiÄÄÄiÄÄÄiÄÄÄiiÄiiÄÄÄiÄÄÄiÄiiiÄÄÄiÄÄÄi" 2490 DEF TITLE 2491 CLEAR #102 2492 SET BORDERBB 2500 PRINT " $$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 2510 PRINT " $$$ueee$e$$$e$$ee$$e$$e$e$$$$" 2520 PRINT " $$$u$$$$uu$$u$u$$u$u$u$$u$$$$" 2530 PRINT " $d$gggg$g$g$g$gggg$gg$$$g$dd$" 2540 PRINT " $$$$,,G$G$$GG$G$$G$G$G$$G$$$$" 2550 PRINT " $,$cccc,c,$,c,c,$c$c$,c,c,$,$" 2560 PRINT " ,$,$,$,$,$,$,$,$,$,$,$,$,$,$," 2570 PRINT " ,,,,kkky,,,,,,,,,,,,,,,,,,,,," 2580 PRINT " t,tkkkyyy,t,t,t,t,t,t,t,t,t,t" 2590 PRINT " tttk,yy,ytttttkkyyttttttttttt" 2600 PRINT " fffkkyyyyyfffkkyyyyyffnnyffff" 2610 PRINT " vvvk,yi,iyyykkyiiiiyyvvkiivvv" 2620 PRINT " 777yy,,iiiyyyiiii7iiyykyii777" 2630 PRINT " rrrriiiiriiiiiirrriiiiiiirrrr" 2640 PRINT " brbrrhhhhhhiiihhhhhhiiihhhbrb" 2650 PRINT " bbbbbbhhhhhhhhhhhhhhhhhhhhhbb" 2660 PRINT " jjjjjjjjjjjjjjjjjjjjjjjjjjjjj" 2670 PRINT " 88888888888888888888888888888" 2680 LET I$=INKEY$ 2690 IF INKEY$=""THENGOTO 2690 2700 CLEAR #102 2710 END DEF