50 FaII Guy
190 LOCATE G+1,F+2:CALL 360:K=PEEK(367): IF K=32 THEN LOCATE G+1,F+1:PRINT" ":F=F +1:LOCATE G+1,F+1:PEN 3:PRINT CHR$(232): PEN 1:SOUND 1,120,2
200 LOCATE G+1,F+2:CALL 360:K=PEEK(367): IF K=79 THEN FOR 1=3 TO 9:SOUND 1,10,1,7 :NEXT:LOCATE G+1,F+1:PRINT" ";:LOCATE 8, 2:PEN 3:PRINT CHR$(232):PEN 1:F=1:G=7
210 LOCATE G1+1,F1+2:CALL 360:K=PEEK(367 ):IF K=32 THEN LOCATE G1+1,F1+1:PRINT" " :F1=F1+1:LOCATE G1+1,F1+1:PEN 3:PRINT CH R$(232):PEN 1:SOUND 1,180,2
220 LOCATE G1+1,F1+2:CALL 360:K=PEEK(367 ):IF K=79 THEN FOR I=3 TO 9:SOUND 1,10,I ,3:NEXT:LOCATE G1+1,F1+1:PRINT " ";:LOCA TE 25,2:PEN 3:PRINT CHR$(232):PEN 1:F1=1 :G1=24
230 IF F=21 OR F1=21 THEN 580
240 IF INKEY(65)=0 AND Y>2 THEN LOCATE 5 ,Y+1:PRINT" ":Y=Y-1
250 IF INKEY(32)=0 AND Y1>2 THEN LOCATE 28,Y1+1:PRINT" ":Y1=Y1-1
260 IF INKEY(69)=0 AND Y<20 THEN LOCATE 5,Y+1:PRINT" ":Y=Y+1
270 IF INKEY(36)=0 AND Y1<20 THEN LOCATE 28,Y1+1:PRINT" ":Y1=Y1+1
280 IF INKEY(67)=0 THEN GOSUB 340
290 IF INKEY (34)=0 THEN GOSUB 460 300 IF INKEY(59)=0 THEN GOSUB 400
310 IF INKEY(27)=0 THEN GOSUB 520
320 WS=MIDS(WS,2)+LEFTS(WS,1):LOCATE 7,2 2:PEN 2:PRINT W$:PEN 1
330 GOTO 170
340 I=Y-1:IF Y=F THEN IF G=6 THEN IF MID $(A$(1),2,1)<>" " THEN RETURN
350 IF Y=F1 THEN IF G1=6 THEN IF MID$(A$ (I),2,1)<>" " THEN RETRUN
360 AS(I)=MIDS(AS(I),2)+LEFTS(AS(I),1) 370 IF Y=F THEN IF MIDS(AS(I),G-5,1)<>" " THEN G=G-1
380 IF Y=F1 THEN IF MIDS(AS(I),G1-5,1)<> " " THEN G1=G1 —1
390 LOCATE 7,Y+1:PRINT A$(I):RETURN
400 I=Y-1:IF Y=F THEN IF G=25 THEN IF MI DS(AS(I),19,1)<>" " THEN RETURN