52 Fall Guy
630 ZS=INKEYS:IF ZS<>"" THEN 630
640 CLS:IF F=21 THEN WS=BS
650 IF F1=21 THEN WS=CS
660 IF F1=21 AND F=21 THEN 700
670 LOCATE 1,6:PRINT"Well done ";WS;"!" 680 PRINT:PRINT:PRINT"You were the best Fall Guy!!"
690 GOTO 710
700 LOCATE 1,6:PRINT"The result was a dr aw.":PRINT:PRINT:PRINT"You both did equa lly well."
710 PRINT:PRINT:PRINT"Press [X] to quit the program.":PRINT:PRINT"Press [1] for the same course.":PRINT:PRINT"Press [2]
for a new course."
720 Z$=INKEY$:IF ZS="" THEN 720 ELSE Z$= UPPERS(ZS)
730 IF Z$="X" THEN STOP
740 IF ZS="1" THEN 770
750 IF Z$="2" THEN CLS:LOCATE 11,11:PRIN T"PLEASE WAIT":ERASE AS:DIM A$(19):GOTO 110
760 GOTO 720
770 CLS:FOR F=1 TO 19:I=INT(RND*20)+1:AS (F)=MIDS(AS(F),I)+MIDS(AS(F),1,I-1):NEXT 780 GOTO 120
790 CLS:FOR F=1 TO 19:LOCATE 7,F+2:PRINT AS(F):NEXT
sum FOR F=2 TO 21:LOCATE 6,F+1:PEN 2:PRI NT CHRS(231):LOCATE 27,F+1:PRINT CHRS(23 1):NEXT:PEN I
810 FOR F=5 TO 26:LOCATE F+1,2:PEN 2:PRI NT CHRS(231):PEN 1:NEXT
Ei20 LOCATE 8,2:PRINT" ":LOCATE 25,2:PRIN T" ":LOCATE 17,22:PRINT" "
830 LOCATE 1,1:PRINT CHRS(24) BS:LOCATE (33-LEN(CS))71:PRINT CS:PRINT CHRS(24)
840 RETURN
850 FOR F=1 TO 19
860 FOR G=1 TO 20:XS=CHRS(32-199*(RND>0. 5)): IF RND < 0.02 THEN X$="O"
870 AS(F)=AS(F)+X$
880 NEXT G,F