94 Tug-of-War
670 IF INKEY$="" THEN 670 ELSE CLS:GOTO 90
680 FOR F=0 TO 31:PLOT 64,F*2+48,3:DRAWR (106+INT(RND*5))*2,0,3:NEXT
690 FOR F=0 TO 31:PLOT 575,F*2+48,3:DRAW R -(106+INT(RND*5))*2,0,3:NEXT F
700 PLOT 64,110:DRAWR 222,0,3:PLOT 575,1 10:DRAWR -220,0,3
710 A$(1)=CHR$(231)+CHR$(232)+CHR$(231)+ CHR$(232)+CHR$(231)+CHR$(232)
720 A$(2)=CHR$(233)+CHR$(234)+CHR$(233)+ CHR$(234)+CHR$(233)+CHR$(234)
730 B$(1)=CHR$(235)+CHR$(236)+CHR$(235)+ CHR$(236)+CHR$(235)+CHR$(236)
740 8$(2)=CHR$(237)+CHR$(238)+CHR$(237)+ CHR$ (238) +CHR$ (237) +CHR$ (238)
750 XA=7:XB=19
760 LOCATE XA+1,17:PRINT A$(1);:LOCATE X A+1,18:PRINT A$ (2) ; : LOCATE XB+1,17:PRINT
8$(1);:LOCATE XB+1,18:PRINT 8$(2);
770 PLOTO(A+LEN(A$(1))*2)+138,130,1:DRAW R (XB-XA-LEN(A$(1))-1)*16+220,0,1
780 T=0:TA=2:TB=2
790 RETURN
800 SYMBOL AFTER 230
810 SYMBOL 231,24,52,62,60,24,31,255,15 820 SYMBOL 232,0,0,0,0,0,248,255,240 830 SYMBOL 233,15,7,7,3,0,0,0,0
840 SYMBOL 234,0,128,192,224,112,24,12,7 850 SYMBOL 235,0,0,0,0,0,31,255,15
860 SYMBOL 236,24,44,124,60,24,248,255,2 40
870 SYMBOL 237,0,1,3,7,14,24,48,224 880 SYMBOL 238,240,224,224,192,0,0,0,0
890 SYMBOL 239,0,129,66,36,102,255,126,6 0
900 SYMBOL 240,16,124,254,0,16,56,16,40 910 SYMBOL 241,1,195,101,55,27,15,7,3 920 SYMBOL 242,128,195,166,236,152,240,2 24,192
930 SYMBOL 243,3,3,3,7,14,28,184,112
940 SYMBOL 244,192,192,192,224,112,56,29 ,14
950 RETURN