92 Tug-of-War
190 LOCATE F+2,G+1:PRINT" ";
200 NEXT G
210 IF F+2<>T+1 THEN GOTO 350
220 XA=XA-1:XB=XB-1:FOR F=20 TO 30:SOUND 1,(F+100),3:NEXT
230 LOCATE T+1,15:PRINT" ";
240 LOCATE XA+1,17:PRINT A$(1);" ";:LOCA TE XA+1,18:PRINT A$(2);" ";:LOCATE XB+1, 17:PRINT B$(1);" ";:LOCATE XB+1,18:PRINT
B$(2);" ";
250 PLOT(XA+LEN(A$(1))*2)+138,130,1:DRAW R (XB-XA-LEN(A$(1))-1)*16+220,0,1
260 LOCATE XB+1,19:CALL 360:KK=PEEK (367 ):IF KK<> 32 THEN 350
270 U=16:LOCATE 19,17:PRINT" ";:LOCATE 1 9,18:PRINT" ":GOSUB 590
am IF TB=2 THEN B$(1)=CHR$(235)+CHR$(27 6)+CHR$(235)+CHR$(236):B$(2)=CHR$(237)+C HR$(238)+CHR$(237)+CHR$(238)
290 IF TB=1 THEN B$(1)=CHR$(235)+CHR$(23 6):B$(2)=CHR$(237)+CHR$(238)
300 IF TB<=0 THEN W=1:GOTO 640
310 TB=TB-1
320 XB=XB+2
330 LOCATE XA+1,17:PRINT A$(1);" ";:LOC ATE XA+1,18:PRINT A$(2);" ";:LOCATE XB+ 1,17:PRINT B$(1);" ";:LOCATE XB+1,18:PR INT B$(2);" "
340 PLOT(XA+LEN(A$(1))*2)+138,130,1:DRAW R (XB-XA-LEN(A$(1))-1)*16+220,0,1
350 LOCATE T+1,15:PRINT" ":T=INT(RND*28) +2:LOCATE T+1,15:PEN 2:PRINT CHR$(131);: PEN 1
360 FOR F=30 TO 0 STEP -1:LOCATE F+1,1:P RINT CHR$(239);" "
370 FOR X=1 TO 50:NEXT
380 IF INKEY$="L" OR INKEY$="1" THEN 410 390 SOUND 1,(F+150),3
400 NEXT F:GOTO 100
410 FOR G=0 TO 14
420 LOCATE F+1,G+1:PEN 2:PRINT CHR$(240) ;:PEN 1:FOR SS=-3 TO 1:SOUND 2,(200+SS), 3:NEXT
430 SOUND 1,(F+100),3