Tug-of-War 93
440 LOCATE F+1,G+1:PRINT "
450 NEXT G
460 IF F+1<>T+1 THEN GOTO 100
470 XA=XA+1:XB=XB+1:FOR F=20 TO 30:SOUND 1,(F+100),3:NEXT
480 LOCATE XA,17:PRINT" "0$(1);:LOCATE XA,18:PRINT" "0$(2):LOCATE XB,17:PRINT"
";B$(1);:LOCATE XB,18:PRINT" ";B$(2) 490 PLOT(XA+LEN(A$(1))*2)+138,130,1:DRAW R (XB-XA-LEN(A$(1))-1)*16+220,0,1
500 LOCATE XA+LEN(A$(1)),19:CALL 360:KK= PEEK(367):IF KK<>32 THEN GOTO 100
510 U=14:LOCATE 14,17:PRINT" ";:LOCATE 1 4,18:PRINT" ":GOSUB 590
520 IF TA=2 THEN A$(1)=CHR$(231)+CHR$(23 2)+CHR$(231)+CHR$(232):A$(2)=CHR$(233)+C HR$(234)+CHR$(233)+CHR$(234)
530 IF TA=I THEN A$(1)=CHR$(231)+CHR$(23 2):A$(2)=CHR$(233)+CHR$(234)
540 IF TA<=0 THEN W=2:GOTO 640
550 TA=TA-1
560 LOCATE XA+1,17:PRINT A$(1);:LOCATE X A+1,18:PRINT A$(2);:LOCATE XB+1,17:PRINT
B$(1);:LOCATE XB+1,18:PRINT B$(2)
570 PLOT(XA+LEN(A$(1))*2)+138,130,1:DRAW R (XB-XA-LEN(A$(1))-1)*16+220,0,1
580 GOTO 100
590 FOR F=I6 TO 20:LOCATE U+1,F+1:PRINT CHR$(241)+CHR$(242);:LOCATE U+1,F+2:PRIN T CHR$(243)+CHR$(244)
600 FOR DD=-3 TO 1:SOUND 2,(DD+150),3:SO UND I,190,3:NEXT
610 LOCATE U+1,F+1:PRINT" ";:LOCATE U+1 ,F+2:PRINT"
620 NEXT F
630 RETURN
640 LOCATE 3,3:PEN 2:PRINT CHR$(24);"WEL L DONE PLAYER";W;"! YOU WON!";CHR$(24);: PEN 1:FOR G=1 TO 8:ENT 1,100,-G,5:SOUND 1,170,50,7,0,1:NEXT G
650 LOCATE 3,10:PEN 3:PRINT CHR$(24);"PR ESS ANY KEY TO PLAY AGAIN";CHR$(24);:PEN 1
660 IF INKEY$<>" THEN 660