100 DIM N(5) 110 DIM S(5) 120 CALL SCREEN(2) 130 CALL CLEAR 140 RESTORE 270 150 FOR T=1 TO 8 160 READ A$ 170 CALL CHAR(T+39,A$) 180 NEXT T 190 FOR T=1 TO 4 200 READ A$ 210 CALL CHAR(T+67,A$) 220 NEXT T 230 FOR T=1 TO 4 240 READ A$ 250 CALL CHAR(T+63,A$) 260 NEXT T 270 DATA 0322272123212323,C0C0C0C0C080C0C0,7F23030101010303,C0C0C08080808080 280 DATA 0303030303010303,C044E484C484C4C4,0303030101010101,FEC4C0808080C0C0 290 DATA 0745474447434747,C040C040C080C0E0,5FF7470706060E0E,E0E0E0E0C0C0E0E0 300 DATA 0303030303010307,E0E2E2E2E2C2E2FA,0707070703030707,EFE2E0E060607070 310 RESTORE 2310 320 CALL CHAR(75,"00FEFEFE00EFEFEF") 330 FOR T=80 TO 112 STEP 8 340 CALL CHAR(T,"10107C1010101010") 350 CALL CHAR(T+1,"3828381030103000") 360 CALL CHAR(T+2,"7EFFE7CBD3E7FF7E") 370 CALL CHAR(T+4,"0705060302091711") 380 CALL CHAR(T+5,"C040CA848830C000") 390 CALL CHAR(T+6,"17112B0200020006") 400 CALL CHAR(T+7,"C0008080008000C0") 410 NEXT T 420 CALL CHAR(120,"00030F1F3F3F7F79") 430 CALL CHAR(121,"00C0F0F8FCFCFE9E") 440 CALL CHAR(122,"797D7C7F7F7F7F00") 450 CALL CHAR(123,"9EBE3EFEFEFEFE00") 460 CALL COLOR(2,8,1) 470 CALL COLOR(5,8,1) 480 CALL COLOR(6,7,16) 490 CALL COLOR(7,13,1) 500 CALL COLOR(8,7,1) 510 CALL COLOR(9,5,1) 520 CALL COLOR(10,14,1) 530 CALL COLOR(11,11,1) 540 CALL COLOR(12,7,2) 550 FOR T=1 TO 5 560 N(T)=0 570 S(T)=0 580 NEXT T 590 A=3 600 B=16 610 C=3 620 D=1 630 G1=68 640 G2=69 650 G3=70 660 G4=71 670 IF K=77 THEN 680 ELSE 760 680 CALL GCHAR(C-2,D,Z) 690 IF Z=40 THEN 740 700 IF Z=32 THEN 740 710 IF Z=44 THEN 740 720 IF Z=64 THEN 740 730 IF Z=68 THEN 740 ELSE 760 740 CALL HCHAR(C-2,D,32,2) 750 CALL HCHAR(C-1,D,32,2) 760 CALL HCHAR(C,D,32,2) 770 CALL HCHAR(C+1,D,32,2) 780 CALL HCHAR(A,B,G1) 790 CALL HCHAR(A,B+1,G2) 800 CALL HCHAR(A+1,B,G3) 810 CALL HCHAR(A+1,B+1,G4) 820 C=A 830 D=B 840 CALL KEY(0,K,SS) 850 IF SS=0 THEN 840 860 IF K=113 THEN 2290 870 IF K=115 THEN 910 880 IF K=100 THEN 970 890 IF K=120 THEN 1030 900 IF K=101 THEN 1090 ELSE 840 910 B=B-2 920 G1=40 930 G2=41 940 G3=42 950 G4=43 960 GOTO 1140 970 B=B+2 980 G1=44 990 G2=45 1000 G3=46 1010 G4=47 1020 GOTO 1140 1030 A=A+2 1040 G1=68 1050 G2=69 1060 G3=70 1070 G4=71 1080 GOTO 1140 1090 A=A-2 1100 G1=64 1110 G2=65 1120 G3=66 1130 G4=67 1140 IF B<4 THEN 1150 ELSE 1160 1150 B=4 1160 IF B>28 THEN 1170 ELSE 1180 1170 B=28 1180 IF A<2 THEN 1190 ELSE 1200 1190 A=2 1200 IF A>17 THEN 1210 ELSE 1260 1210 READ L$ 1220 PRINT L$ 1230 READ LL$ 1240 PRINT LL$ 1245 C=15 1250 A=17 1260 CALL GCHAR(A,B,X) 1270 IF X=32 THEN 670 ELSE 1280 1280 IF X=120 THEN 3810 1290 IF X=40 THEN 670 1300 IF X=44 THEN 670 1310 IF X=64 THEN 670 1320 IF X=68 THEN 670 1330 IF X=75 THEN 1540 1340 IF X=112 THEN 1640 1350 IF X=113 THEN 1660 1360 IF X=114 THEN 1680 1370 IF X=116 THEN 1740 1380 IF X=80 THEN 1770 1390 IF X=81 THEN 1790 1400 IF X=82 THEN 1810 1410 IF X=84 THEN 1870 1420 IF X=88 THEN 1900 1430 IF X=89 THEN 1920 1440 IF X=90 THEN 1940 1450 IF X=92 THEN 2000 1460 IF X=96 THEN 2030 1470 IF X=97 THEN 2050 1480 IF X=98 THEN 2070 1490 IF X=100 THEN 2130 1500 IF X=104 THEN 2160 1510 IF X=105 THEN 2180 1520 IF X=106 THEN 2200 1530 IF X=108 THEN 2230 1540 A=C 1550 B=D 1560 CALL GCHAR(A,B,W) 1570 IF W=40 THEN 1630 1580 IF W=44 THEN 1630 1590 IF W=64 THEN 1630 1600 IF W=68 THEN 1630 1610 A=A-2 1620 C=C-2 1630 GOTO 670 1640 S(1)=S(1)+1 1650 GOTO 670 1660 N(1)=N(1)+1 1670 GOTO 670 1680 IF N(1)=0 THEN 1690 ELSE 1720 1690 A=C 1700 B=D 1710 GOTO 3090 1720 N(1)=N(1)-1 1730 GOTO 670 1740 IF S(1)=0 THEN 2630 1750 S(1)=S(1)-1 1760 GOTO 670 1770 S(2)=S(2)+1 1780 GOTO 670 1790 N(2)=N(2)+1 1800 GOTO 670 1810 IF N(2)=0 THEN 1820 ELSE 1850 1820 A=C 1830 B=D 1840 GOTO 3090 1850 N(2)=N(2)-1 1860 GOTO 670 1870 IF S(2)=0 THEN 2630 1880 S(2)=S(2)-1 1890 GOTO 670 1900 S(3)=S(3)+1 1910 GOTO 670 1920 N(3)=N(3)+1 1930 GOTO 670 1940 IF N(3)=0 THEN 1950 ELSE 1980 1950 A=C 1960 B=D 1970 GOTO 3090 1980 N(3)=N(3)-1 1990 GOTO 670 2000 IF S(3)=0 THEN 2630 2010 S(3)=S(3)-1 2020 GOTO 670 2030 S(4)=S(4)+1 2040 GOTO 670 2050 N(4)=N(4)+1 2060 GOTO 670 2070 IF N(4)=0 THEN 2080 ELSE 2110 2080 A=C 2090 B=D 2100 GOTO 3090 2110 N(4)=N(4)-1 2120 GOTO 670 2130 IF S(4)=0 THEN 2630 2140 S(4)=S(4)-1 2150 GOTO 670 2160 S(5)=S(5)+1 2170 GOTO 670 2180 N(5)=N(5)+1 2190 GOTO 670 2200 IF N(5)=0 THEN 2630 2210 N(5)=N(5)-1 2220 GOTO 670 2230 IF S(5)=0 THEN 2630 2240 S(5)=S(5)-1 2250 GOTO 670 2260 FOR T=200 TO 110 STEP-5 2270 CALL SOUND(-1000,T,0,T+100,0,T+200,0) 2280 NEXT T 2290 CALL CLEAR 2300 GOTO 3810 2310 DATA KKKKKKKKKKKKK KKKKKKKKKKKKK 2350 DATA KKKKKKKKKKKKK KKKKKKKKKKKKK,KKKKKKKKKKKKK KKKKKKKKKKKKK 2360 DATA K KK r K,K KK r K 2370 DATA KQ KK KKp KK KKKK KKrrKKK,K KK KK KK KKKK KK KKK 2380 DATA K KK KKKKKK KK KK KKK,K KK KKKKKK KK KK KKK 2390 DATA K KKrrKK KK KKK,K KK KK KK KKK 2400 DATA K KKKKKKrrKKtuKK KKp KKKKK,K KKKKKK KKvwKK KK KKKKK 2410 DATA K KK KKq KKKKKKKKK,K KK KK KKKKKKKKK 2420 DATA KKKKKKKKK KK KKq KK K,KKKKKKKKK KK KK KK K 2430 DATA K KK KK KKq KKKKKK K,K KK KK KK KKKKKK K 2440 DATA KQ KK KK tuKKq KK K,K KK KK vwKK KK K 2450 DATA KTUKKTUKKKKKK KK KK KKP K,KVWKKVWKKKKKK KK KK KK K 2460 DATA K KK P P KKQ KK KK KKKKK,K KK KK KK KK KKKKK 2470 DATA K KKKKKK KK KK K,K KKKKKK KK KK K 2480 DATA K KK KKRRKKKKKK KKP K,K KK KK KKKKKK KK K 2490 DATA KKKKK KKRRKK KKKKK,KKKKK KK KK KKKKK 2500 DATA KQ P RRKK KK KK KKTUKKP K,K KK KK KK KKVWKK K 2510 DATA KKKKKKKKKTU KKQ KK K,KKKKKKKKKVW KK KK K 2520 DATA K KKKKKK KKKKKK K,K KKKKKK KKKKKK K 2530 DATA KTUKKRRKK K,KVWKK KK K 2540 DATA KQ KKRRKK KKKKKK KKKKKKKKK,K KK KK KKKKKK KKKKKKKKK 2550 DATA KQ KKRRKK TUK,K KK KK VWK 2560 DATA KQ KKP KK KKKKKK KK KKX K,K KK KK KKKKKK KK KK K 2570 DATA KKKKKKKKK KKX K,KKKKKKKKK KK K 2580 DATA KTUTU KKKKKKKKKKKKKKKKK,KVWVW KKKKKKKKKKKKKKKKK 2590 DATA K KKKKKKKKKKKKKKKKKKKKKKKKK,K KKKKKKKKKKKKKKKKKKKKKKKKK 2600 DATA K \x5c] \x5c]Q K,K ^_ ^_ K 2610 DATA KjjKKKK KKKKKKKKKKKK KKY K,KKKKKKK KKKKKKKKKKKK KK K 2620 DATA K \x5c] KKKKK,K ^_ KKKKK 2630 GOTO 2260 2640 DATA K KKKKKKKKKKKKKKKKKK K,K KKKKKKKKKKKKKKKKKK K 2650 DATA K KKZZK,K KK K 2660 DATA KKKKKKKKKKKKKRRKK\x5c]KKKKKKY K,KKKKKKKKKKKKK KK^_KKKKKK K 2670 DATA K X ZZKK KKX K,K KK KK K 2680 DATA K KKKKKKKKKK\x5c]KKKKKK KKX K,K KKKKKKKKKK^_KKKKKK KK K 2690 DATA K KK X K,K KK K 2700 DATA KKKKKKKKK KK KKKKKKKKKKKKK,KKKKKKKKK KK KKKKKKKKKKKKK 2710 DATA Kp KKp KKQ KK KK K,K KK KK KK KK K 2720 DATA Kp KKp KK\x5c]KK KK KKKKKK K,K KK KK^_KK KK KKKKKK K 2730 DATA Kp KKp KK\x5c]KK\x5c]KK KKKKKKRRK,K KK KK^_KK^_KK KKKKKK K 2740 DATA KRRKKp KK\x5c]KK\x5c]KK KKp KK K,K KK KK^_KK^_KK KK KK K 2750 DATA K X KK\x5c]KK\x5c]KK R p KK K,K KK^_KK^_KK R KK K 2760 DATA K KK KK\x5c]KK\x5c]KK KKKKKK K,K KK KK^_KK^_KK KKKKKK K 2770 DATA K KK KK\x5c]KK\x5c]KK KK K,K KK KK^_KK^_KK KK K 2780 DATA K KK KK KK KK K,K KK KK KK KK K 2790 DATA K KK KKKKKKKKKK\x5c]KK KK K,K KK KKKKKKKKKK^_KK KK K 2800 DATA K KK KKp p p p KK KK K,K KK KK KK KK K 2810 DATA K KK KKKKKKKKKKKKKK KKX K,K KK KKKKKKKKKKKKKK KK K 2820 DATA K KK KKX K,K KK KK K 2830 DATA KX KKKKp KKKKKKp KKKKKKKKX K,K KKKK KKKKKK KKKKKKKK K 2840 DATA K KKKKKKKKKKKKKKKKKK K,K KKKKKKKKKKKKKKKKKK K 2850 DATA K KK KKKKK,K KK KKKKK 2860 DATA K KK KKKKKKKKKK KK K,K KK KKKKKKKKKK KK K 2870 DATA K KK KKY KKKKKK K,K KK KK KKKKKK K 2880 DATA K KK KK KKKKKKjjX Y KK K,K KK KK KKKKKK KK K 2890 DATA K KK KK KKKKKK KK K,K KK KK KKKKKK KK K 2900 DATA K KK KK KK KK KK K,K KK KK KK KK KK K 2910 DATA K\x5c]KK KK KKKKKK KK KK K,K^_KK KK KKKKKK KK KK K 2920 DATA K\x5c] KK KKKK KK K,K^_ KK KKKK KK K 2930 DATA K\x5c]KKKKKKKK KKKKKKKKKKKK K,K^_KKKKKKKK KKKKKKKKKKKK K 2940 DATA K\x5c]\x5c]KK Z p p p p KK K,K^_^_KK Z KK K 2950 DATA KKK\x5c]KK KKKKKKKKKKKKKKKKjjK,KKK^_KK KKKKKKKKKKKKKKKKKKK 2960 DATA KKK Z KK Z K,KKK Z KK Z K 2970 DATA KKKKKKK KK KKKKKKKKKKKK K,KKKKKKK KK KKKKKKKKKKKK K 2980 DATA K KK Z ` ` KK K,K KK Z KK K 2990 DATA K KKKK KK KK KKKKKKKK K,K KKKK KK KK KKKKKKKK K 3000 DATA K \x5c]KK KK KK KK K,K ^_KK KK KK KK K 3010 DATA K KKKKZZKKZZKK KKKK KK K,K KKKK KK KK KKKK KK K 3020 DATA K KK KK KK KK KK K,K KK KK KK KK KK K 3030 DATA K KK KKKK KKKK KK KK K,K KK KKKK KKKK KK KK K 3040 DATA KZZKK KK KK KK K,K KK KK KK KK K 3050 DATA K` KK` KK` KK\x5c]KK KK KK` K,K KK KK KK^_KK KK KK K 3060 DATA K` KK` KK` KK KK KK KK` K,K KK KK KK KK KK KK K 3070 DATA K` KK` KK` KK KK\x5c]KK KK` K,K KK KK KK KK^_KK KK K 3080 DATA K KK KK KK KK KK KK` K,K KK KK KK KK KK KK K 3090 CALL GCHAR(A,B,Q) 3100 IF Q=74 THEN 3150 3110 IF Q=82 THEN 3150 3120 IF Q=90 THEN 3150 3130 IF Q=98 THEN 3150 3140 GOTO 670 3150 A=A-2 3160 C=C-2 3170 GOTO 670 3180 DATA K KK KK KK KK KK KK K,K KK KK KK KK KK KK K 3230 DATA K KK KK KK KK KK KK K,K KK KK KK KK KK KK K 3240 DATA K KK KK KK KK KK K,K KK KK KK KK KK K 3250 DATA K KK K,K KK K 3260 DATA KKKKKKKKKKKKKKKdeKKKKKKKKKKK,KKKKKKKKKKKKKKKfgKKKKKKKKKKK 3270 DATA K KKdeKK K,K KKfgKK K 3280 DATA K KKKKKKKK KKdeKK KKKKh K,K KKKKKKKK KKfgKK KKKK K 3290 DATA K KK KK KKdeKK KKi K,K KK KK KKfgKK KK K 3300 DATA K KKKK KK KKKK KK K,K KKKK KK KKKK KK K 3310 DATA K KK KK KKKKKK KK K,K KK KK KKKKKK KK K 3320 DATA KY KK KKKK KK ZZ KKKK K,K KK KKKK KK ZZ KKKK K 3330 DATA KY KK KK KK KK K,K KK KK KK KK K 3340 DATA KY ZZ KK KKKK KK K,K ZZ KK KKKK KK K 3350 DATA Kp KKKKKKKKKKKK KK KK K,K KKKKKKKKKKKK KK KK K 3360 DATA Kp KKp p p p KK KKKK KK K,K KK KK KKKK KK K 3370 DATA Kp p p KKKKZZ ZZZZ KK K,K KKKKZZ ZZZZ KK K 3380 DATA KKKKKKKKKKKKK KKKKKKKKKK K,KKKKKKKKKKKKK KKKKKKKKKK K 3390 DATA K ZZ K,K ZZ K 3410 DATA K KKKKKKKKKKKKKKKKKKKKKKKKK,K KKKKKKKKKKKKKKKKKKKKKKKKK 3420 DATA KrrKKtututututututututu\x5c]\x5c]K,K KKvwvwvwvwvwvwvwvwvw^_^_K 3430 DATA KRRKK KKKKKKKKKKKKKKKKKK\x5c]K,K KK KKKKKKKKKKKKKKKKKK^_K 3440 DATA KRRKK KK KK\x5c]K,K KK KK KK^_K 3450 DATA K ZZZZKK KK KKKKKK KK\x5c]K,K ZZZZKK KK KKKKKK KK^_K 3460 DATA KKKKKKKKK KK KK` KK KK K,KKKKKKKKK KK KK KK KK K 3470 DATA K KK dea KK KK K,K KK fg KK KK K 3480 DATA K KKKKKKKKKK KKKKKK KK K,K KKKKKKKKKK KKKKKK KK K 3490 DATA K` KK KK KK K,K KK KK KK K 3500 DATA Kh KK KKKKKK KK KKKKKK K,K KK KKKKKK KK KKKKKK K 3510 DATA Ki KK KK KK K,K KK KK KK K 3520 DATA Kh KK KK KK KK KKKKKKKKK,K KK KK KK KK KKKKKKKKK 3530 DATA K KK KK KK K,K KK KK KK K 3570 DATA K KKh KK KKp KK KK K,K KK KK KK KK KK K 3580 DATA K KKh KK debbKK KKKKKK K,K KK KK fgbbKK KKKKKK K 3590 DATA K KKh KK KKKKKK KK K,K KK KK KKKKKK KK K 3600 DATA K KKh KK KK KK K,K KK KK KK KK K 3610 DATA K KKh KKKK KKKKKKKK KKbbK,K KK KKKK KKKKKKKK KKbbK 3620 DATA K KKh KKh h h h h h h KKdeK,K KK KK KKfgK 3630 DATA K h h KKh KKh KKh KKh KKh K,K KK KK KK KK KK K 3640 DATA K KKh KKh KKh KKh KKh KKi K,K KK KK KK KK KK KK K 3730 DATA K KK KK KK KK KK KK K,K KK KK KK KK KK KK K 3740 DATA K KK K,K KK K 3750 DATA KKKKKKKKKKKKKKKKKKKKKKKKK K,KKKKKKKKKKKKKKKKKKKKKKKKK K 3760 DATA KKKKKKKKKKKKKKK lmlmjjjjK,KKKKKKKKKKKKKKK nonojjjjK 3780 DATA KKKKKKKKKKKKKKKxyKKKKKKKKKKK,KKKKKKKKKKKKKKKz{KKKKKKKKKKK 3800 DATA KKKKKKKKKKKKKKK KKKKKKKKKKK,KKKKKKKKKKKKKKK KKKKKKKKKKK,, 3810 PRINT "DU VANN!"