MSXPen

10 COLOR15,1,1:DEFINTA-S:OPEN"grp:"AS#1:B$=CHR$(&B10000000):SCREEN3,3,0:SPRITE$(1)=B$:E=0:L=0:R=3:PLAY"t90m6000s6l2o4d","f#","a"

20 H=128:I=172:J=H:K=16:LINE(0,0)-(255,8),4,BF:LINE(0,183)-(255,193),6,BF:GOSUB100:COLOR14,1:FORA=0TO31:PRINT#1,CHR$(203.3+RND(1));:NEXT:LINE(0,0)-(255,198),14,B

30 N=POINT(J,K):IFN=14THENJ=128:K=16:PLAY"T90S9O2D":ELSEIFN=6THENPSET(10,10),0:L=L+1:PLAY"T120S2l32O4cego5co4gec":CLS:GOTO20

40 Q=POINT(J-1,K+1):IFQ=14THENJ=128:K=16:PLAY"T90S9O2D"

50 C=POINT(H,I):IFC=14THENH=128:I=172:PLAY"T90S9O2E":ELSEIFC=4THENPSET(10,10),0:E=E+1:PLAY"T120S2l32o4co3bo4cdef":CLS:GOTO20

60 G=POINT(H-1,I):IFG=14THENH=128:I=172:PLAY"T90S9O2E"

70 D=STICK(0):PSET(H,I),0:PUTSPRITE(1),(H-1,I),7,1:IFD=2THENH=H+R:I=I-RELSEIFD=3THENH=H+RELSEIFD=4THENH=H+R:I=I+RELSEIFD=7THENH=H-RELSEIFD=1THENI=I-RELSEIFD=5THENI=I+RELSEIFD=6THENH=H-R:I=I+RELSEIFD=8THENH=H-R:I=I-R:ELSEIFSTRIG(0)THENCLS:GOTO20

80 D=STICK(1):PSET(J,K),0:PUTSPRITE(2),(J-1,K),9,1:IFD=2THENJ=J+R:K=K-RELSEIFD=3THENJ=J+RELSEIFD=4THENJ=J+R:K=K+RELSEIFD=7THENJ=J-RELSEIFD=1THENK=K-RELSEIFD=5THENK=K+RELSEIFD=6THENJ=J-R:K=K+RELSEIFD=8THENJ=J-R:K=K-R:ELSEIFSTRIG(1)THENCLS:GOTO20

90 GOTO 30

100 LINE(14,167)-(32,176),1,BF:PSET(0,162),0:COLOR7,1:PRINT#1,E:PLAY"l4":LINE(13,12)-(32,23),1,BF:PSET(0,4),4:COLOR9,1:PRINT#1,L:PLAY"l4":PSET(0,33),14:RETURN