here. but not well-written, it is only a prototype game 100 ENVELOPE NUMBER 1;0,64,64,1;0,-44,-44,2;0,-20,-20,8 110 SET STATUS OFF:SET KEY CLICK OFF 120 GRAPHICS HIRES 16 130 CLOSE #101 140 SET VIDEO X 20 150 OPEN #101:"video:" 160 SET #102:PALETTE 249,255 170 LET P1=187:LET P2=59:LET P3=115:LET P4=227:LET P5=163:LET P6=35:LET P7=106:LET P8=42 180 !CALL PROT(0) 190 SET BIAS 255 200 SET PAPER 9 210 SET BORDER 249 220 CLEAR #101 230 DIM X(4),Y(4),SC(4) 240 DISPLAY #101:AT 1 FROM 1 TO 20 250 SET CHARACTER ORD("š"),0,124,254,254,254,254,254,124 260 SET CHARACTER ORD(""),0,124,130,130,130,130,130,124 270 LET ANI$="“„†‡‘-…’”" 280 SET CHARACTER ORD(""),0,124,214,214,214,214,214,124 290 SET CHARACTER ORD(""),0,124,182,170,170,170,182,124 300 SET CHARACTER ORD("“"),0,124,198,214,198,246,198,124 310 SET CHARACTER ORD("„"),0,124,198,214,198,214,198,124 320 SET CHARACTER ORD("†"),0,124,198,246,246,246,246,124 330 SET CHARACTER ORD("‡"),0,124,198,222,198,214,198,124 340 SET CHARACTER ORD("‘"),0,124,198,222,206,246,206,124 350 SET CHARACTER ORD("-"),0,124,222,222,214,194,246,124 360 SET CHARACTER ORD("…"),0,124,206,246,206,246,206,124 370 SET CHARACTER ORD("’"),0,124,206,246,206,222,198,124 380 SET CHARACTER ORD("”"),0,124,238,206,238,238,238,124 390 STRING L$(10)*10 400 LET ALL=0 410 FOR Q=1 TO 10 420 ! LET I=q-1 430 ! IF q>7 THEN LET I=8-(q-2) 440 SET INK 15 450 READ L$(Q) 460 PRINT #101,AT Q,1:L$(Q) 470 FOR W=1 TO 10 480 IF L$(Q)(W)=" " THEN LET ALL=ALL+1 490 NEXT W 500 NEXT X 510 LET ALLO=ALL 520 LET X(1)=2:LET Y(1)=2 530 LET X(2)=9:LET Y(2)=2 540 LET X(3)=2:LET Y(3)=9 550 LET X(4)=9:LET Y(4)=9 560 LET SC(1)=1:LET SC(2)=1:LET SC(3)=1:LET SC(4)=1 570 LET C=1 580 LET COU=0:LET ICOU=1:LET NEWKEY=1:LET I$=" " 590 ! 600 !CALL PROT(MOD(INT(COU/10),8)) 610 IF NEWKEY=1 THEN LET I$=INKEY$ 620 IF I$="" THEN LET I$=" " 630 LET NEWKEY=0 640 SET INK RND(3)+13:PRINT #101,AT Y(C),X(C):ANI$(ICOU) 650 LET IX=0:LET IY=0:LET FLAG=0 660 IF L$(Y(C))(X(C)+1)" " AND L$(Y(C))(X(C)-1)" " AND L$(Y(C)-1)(X(C))" " AND L$(Y(C)+1)(X(C))" " THEN LET FLAG=1:LET ICOU=10:LET I$="" 670 IF I$=CHR$(188) THEN LET IX=1 680 IF I$=CHR$(184) THEN LET IX=-1 690 IF I$=CHR$(180) THEN LET IY=1 700 IF I$=CHR$(176) THEN LET IY=-1 710 !IF I$=" " THEN LET FLAG=1 720 LET LLL$=L$(Y(C)+IY)(X(C)+IX) 730 IF LLL$=" " AND IXIY THEN LET FLAG=1 740 IF LLL$" " THEN LET NEWKEY=1 750 IF FLAG=1 THEN 760 SOUND ENVELOPE 1,PITCH 40-C*3-ICOU*3,INTERRUPT 770 SET INK 9+C:PRINT #101,AT Y(C),X(C):"š" 780 LET X(C)=X(C)+IX:LET Y(C)=Y(C)+IY 790 IF L$(Y(C))(X(C))=" " THEN LET SC(C)=SC(C)+1 800 LET L$(Y(C))=BERAK$(L$(Y(C)),X(C),"x") 810 LET ALL=ALL-1 820 LET ICOU=ICOU+1 830 IF ICOU=11 THEN 840 LET ICOU=1 850 SET INK 9+C:PRINT #101,AT Y(C)-IY,X(C)-IX:"š" 860 SET INK 9+C:PRINT #101,AT Y(C),X(C):"" 870 LET C=C+1 880 IF C=5 THEN LET C=1 890 SET INK 8:PRINT #101,AT Y(C),X(C):"š" 900 LET NEWKEY=1 910 END IF 920 ! PRINT #102,AT 2,10:SC(1),SC(2),SC(3),SC(4) 930 END IF 940 !IF L$(Y(C))(X(C))="š" THEN SOUND ENVELOPE 1,DURATION 10,INTERRUPT 950 LET COU=MOD(COU,3000)+1 960 !PRINT #102,AT 2,20:ALL; 970 !PRINT C,ICOU 980 GOTO 590 990 DEF BERAK$(BE$,BEX,SS$) 1000 LET BERAK$=BE$(1:BEX-1)&SS$&BE$(BEX+1:10) 1010 END DEF 1020 DEF XSOUND 1030 SOUND SOURCE 1,DURATION 10,ENVELOPE 0,INTERRUPT 1040 SOUND SOURCE 1,DURATION 10,ENVELOPE 1,PITCH 10 1050 END DEF 1060 DATA "šššššššššš" 1070 DATA "š š š" 1080 DATA "š š š" 1090 DATA "š š š" 1100 DATA "ššš š š" 1110 DATA "š š" 1120 DATA "š š" 1130 DATA "š šššš š" 1140 DATA "š š š" 1150 DATA "šššššššššš"