10 MODE 0:PEN 7:FOR y=6 TO 18:LOCATE 4,y:PRINT CHR$(133):LOCATE 18,y:PRINT CHR$(138):NEXT:LOCATE 4,5:PRINT CHR$(135):LOCATE 18,5:PRINT CHR$(139):LOCATE 4,19:PRINT CHR$(141):LOCATE 18,19:PRINT CHR$(142) 20 LOCATE 18,15:PRINT " ":FOR x=5 TO 17:LOCATE x,5:PRINT CHR$(131):LOCATE x,19:PRINT CHR$(140):NEXT:li=3584:ci=2066 30 DIM j(19,19):FOR x=11 TO 32 STEP 3:FOR y=6 TO 18 STEP 3:j(x/2,y)=2304:NEXT:NEXT:FOR x=5 TO 17 STEP 3:FOR y=13 TO 34 STEP 3:j(x,y/2)=36:NEXT:NEXT:FOR y=6 TO 18 STEP 3:FOR x=5 TO 17 STEP 3:READ j(x,y):NEXT:NEXT:j(4,9)=2048:x=4:y=9 40 SOUND 1,ci/2,7,7 50 LOCATE x,y:PEN 4:PRINT CHR$(226):IF x=18 AND y=15 THEN FOR x=4 TO 8:LOCATE 3,(t+17):PEN (t+2):PRINT"CONGRATULATIONS!!":SOUND 1,LI/T,10*T,7:NEXT 60 CALL &BB18:IF INKEY(1)=0 THEN ci=2066:IF (ci AND li AND j(x,y))=0 THEN GOTO 40 ELSE LOCATE x,y:PRINT CHR$(144):li=3584:x=x+1:GOTO 50 70 IF INKEY(8)=0 THEN ci=265:IF (ci AND li AND j(x,y))=0 THEN GOTO 40 ELSE LOCATE x,y:PRINT CHR$(144):li=448:x=x-1:GOTO 50 80 IF INKEY(0)=0 THEN ci=1184:IF (ci AND li AND j(x,y))=0 THEN GOTO 40 ELSE LOCATE x,y:PRINT CHR$(144):li=56:y=y-1:GOTO 50 90 IF INKEY(2)=0 THEN ci=580:IF (ci AND li AND j(x,y))=0 THEN GOTO 40 ELSE LOCATE x,y:PRINT CHR$(144):li=7:y=y+1:GOTO 50 100 DATA 80,600,264,2320,520,3238,2911,2990,2420,1057,246,3034,1572,166,548,246,3539,3250,3483,1141,130,3459,3459,3459,1025:GOTO 50