Fall Guy 51
410 IF Y=F1 THEN IF G1=25 THEN IF MID$(A $(1),19,1)<>" " THEN RETURN
420 A$(1)=RIGHTS(A$(1),1)+LEFT$(A$(1),19
430 IF Y=F THEN IF MID$(A$(1),G-5,1)<>" " THEN G=G+1
440 IF Y=F1 THEN IF MIDS(A$(1),G1-5,1)<> " " THEN GI=G1+1
450 LOCATE 7,N1/4.1:PRINT A-SW:RETURN
460 I=N(1-1:IF Y1=F1 THEN IF GI=6 THEN IF MIDS(A45(I),2,1)<>" " THEN RETURN
470 IF Y1=F THEN IF G=6 THEN IF MIDS(A$( I),2,1)<>" " THEN RETURN
480 A$(1)=MID$(A$(1),2)+LEFT$(A$(1),1) 490 IF Y1=F1 THEN IF MIDT-(A$(1),G1-5,1)< :" " THEN G1=61—I
500 IF Y1=F THEN IF MIDS(A$(1),G-5,1)<>" " THEN G=G-1
510 LOCATE 7,Y1+1:PRINT A$(1):RETURN
520 I=N11-1:IF Y1=F1 THEN IF G1=25 THEN I F MIDS(A$(1),19,1)<>" " THEN RETURN
530 IF Y1=F THEN IF G=25 THEN IF MID$(A$ (I),19,1)<>" " THEN RETURN
540 A$(1)=RIGHTS(A$(1),1)+LEFT$(A$(1),19
550 IF Y1=F1 THEN IF MID$(A$(I),G1-5,1)< >" " THEN G1=G1+1
560 IF Y1=F THEN IF MIDS(A$(1),G-5,1)<>" " THEN G=G+1
570 LOCATE 7,Y1+1:PRINT A$(I):RETURN 590 IF F=21 THEN Y=F:X=G
590 IF F1=21 THEN Y=F1:X=G1
600 W$=CHR$(232)+CHR$(235):C=-0.5:PEN 3: FOR G=0 TO 16:LOCATE X41,Y+1:PRINT MID$( W$,C+1.5,1):C=—C:SOUND 2,(100),7,4,1 :NE XT G:PEN 1
610 FOR V=0 TO 31:LOCATE V+1,19:PRINT" " :LOCATE V+1,20:PRINT" ":LOCATE V+1,21:PR INT" ":LOCATE V+1,22:PRINT" ":NEXT
620 PEN 3: FOR V=2 TO 28 STEP 2:LOCATE V ,20:PRINT" ":LOCATE V+1,21:PRINT CHR$(23 2):SOUND I,190,15:FOR B=I TO 150:NEXT B: LOCATE V+1,21:PRINT" ":LOCATE V+2,20:PRI NT CHR$(235):FOR B=1 TO 150:NEXT B,V: PE N 1:SOUND 1,120,15:SOUND 1,90,15