10 REM TUG-OF-WAR
20 REM à PAUL STANLEY 25 REM PAN BOOKS 1984 30 MODE1:BORDER0:INK0,0:INK1,24:INK2,20:INK3,6:WINDOW#1,1,40,1,25:PAPER#1,0:PEN#1,1:CLS#1 40 DIMA$(2),B$(2) 50 GOSUB960 70 GOSUB800 80 WINDOW#0,5,36,1,22:PAPER#0,0:PEN#0,1:CLS#0 90 GOSUB680 100 LOCATET+1,15:PRINT" ";:T=INT(RND*28)+2:LOCATET+1,15:PEN2:PRINTCHR$(131);:PEN1 110 FORF=0TO30:LOCATEF+1,1:PEN2:PRINT" ";CHR$(239);:PEN1 120 FORX=1TO50:NEXT 130 QQ$=INKEY$:IFQQ$="A"ORQQ$="a"THENGOTO160 140 SOUND1,(F+100),3 150 NEXT:GOTO350 160 FORG=0TO14 170 LOCATEF+2,G+1:PEN3:PRINTCHR$(240);:PEN1:FORXX=-3TO1:SOUND2,(200+XX),3:NEXT 180 SOUND1,290,2 190 LOCATEF+2,G+1:PRINT" "; 200 NEXTG 210 IFF+2<>T+1THENGOTO350 220 XA=XA-1:XB=XB-1:FORF=20TO30:SOUND1,(F+100),3:NEXT 230 LOCATET+1,15:PRINT" "; 240 LOCATEXA+1,17:PRINTA$(1);" ";:LOCATEXA+1,18:PRINTA$(2);" ";:LOCATEXB+1,17:PRINTB$(1);" ";:LOCATEXB+1,18:PRINTB$(2);" "; 250 PLOT(XA+LEN(A$(1))*2)+138,130,1:DRAWR(XB-XA-LEN(A$(1))-1)*16+220,0,1 260 LOCATEXB+1,19:n=n+1:c=c-1:IFn=2THENGOTO270ELSEGOTO350 270 n=0:U=16:LOCATE19,17:PRINT" ";:LOCATE19,18:PRINT" ":GOSUB590 280 IFTB=2THENB$(1)=CHR$(235)+CHR$(236)+CHR$(235)+CHR$(236):B$(2)=CHR$(237)+CHR$(238)+CHR$(237)+CHR$(238) 290 IFTB=1THENB$(1)=CHR$(235)+CHR$(236):B$(2)=CHR$(237)+CHR$(238) 300 IFTB<=0THENW=1:GOTO640 310 TB=TB-1 320 XB=XB+2 330 LOCATEXA+1,17:PRINTA$(1);" ";:LOCATEXA+1,18:PRINTA$(2);" ";:LOCATEXB+1,17:PRINTB$(1);" ";:LOCATEXB+1,18:PRINTB$(2);" " 340 PLOT(XA+LEN(A$(1))*2)+138,130,1:DRAWR(XB-XA-LEN(A$(1))-1)*16+220,0,1 350 LOCATET+1,15:PRINT" ":T=INT(RND*28)+2:LOCATET+1,15:PEN2:PRINTCHR$(131);:PEN1 360 FORF=30TO0STEP-1:LOCATEF+1,1:PRINTCHR$(239);" " 370 FORX=1TO50:NEXT 380 IFINKEY$="p"ORINKEY$="P"THEN410 390 SOUND1,(F+150),3 400 NEXTF:GOTO100 410 FORG=0TO14 420 LOCATEF+1,G+1:PEN2:PRINTCHR$(240);:PEN1:FORSS=-3TO1:SOUND2,(200+SS),3:NEXT 430 SOUND1,(F+100),3 440 LOCATEF+1,G+1:PRINT" " 450 NEXTG 460 IFF+1<>T+1THENGOTO100 470 XA=XA+1:XB=XB+1:FORF=20TO30:SOUND1,(F+100),3:NEXT 480 LOCATEXA,17:PRINT" ";A$(1);:LOCATEXA,18:PRINT" ";A$(2):LOCATEXB,17:PRINT" ";B$(1);:LOCATEXB,18:PRINT" ";B$(2) 490 PLOT(XA+LEN(A$(1))*2)+138,130,1:DRAWR(XB-XA-LEN(A$(1))-1)*16+220,0,1 500 LOCATEXA+LEN(A$(1)),19:c=c+1:n=n-1:IFc=2THEN510ELSEGOTO100 510 c=0:U=14:LOCATE14,17:PRINT" ";:LOCATE14,18:PRINT" ":GOSUB590 520 IFTA=2THENA$(1)=CHR$(231)+CHR$(232)+CHR$(231)+CHR$(232):A$(2)=CHR$(233)+CHR$(234)+CHR$(233)+CHR$(234) 530 IFTA=1THENA$(1)=CHR$(231)+CHR$(232):A$(2)=CHR$(233)+CHR$(234) 540 IFTA<=0THENW=2:GOTO640 550 TA=TA-1 560 LOCATEXA+1,17:PRINTA$(1);:LOCATEXA+1,18:PRINTA$(2);:LOCATEXB+1,17:PRINTB$(1);:LOCATEXB+1,18:PRINTB$(2) 570 PLOT(XA+LEN(A$(1))*2)+138,130,1:DRAWR(XB-XA-LEN(A$(1))-1)*16+220,0,1 580 GOTO100 590 FORF=16TO20:LOCATEU+1,F+1:PRINTCHR$(241)+CHR$(242);:LOCATEU+1,F+2:PRINTCHR$(243)+CHR$(244) 600 FORDD=-3TO1:SOUND2,(DD+150),3:SOUND1,190,3:NEXT 610 LOCATEU+1,F+1:PRINT" ";:LOCATEU+1,F+2:PRINT" " 620 NEXTF 630 RETURN 640 LOCATE3,3:PEN2:PRINTCHR$(24);"WELL DONE PLAYER";W;"! YOU WON!";CHR$(24);:PEN1:FORG=1TO8:ENT1,100,-G,5:SOUND1,170,50,7,0,1:NEXTG 650 LOCATE3,10:PEN3:PRINTCHR$(24);"PRESS ANY KEY TO PLAY AGAIN";CHR$(24);:PEN1 660 IFINKEY$<>""THEN660 670 IFINKEY$=""THEN670ELSECLS:GOTO90 680 FORF=0TO31:PLOT64,F*2+48,3:DRAWR(106+INT(RND*5))*2,0,3:NEXT 690 FORF=0TO31:PLOT575,F*2+48,3:DRAWR-(106+INT(RND*5))*2,0,3:NEXTF 700 PLOT64,110:DRAWR222,0,3:PLOT575,110: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 B$(2)=CHR$(237)+CHR$(238)+CHR$(237)+CHR$(238)+CHR$(237)+CHR$(238) 750 XA=7:XB=19 760 LOCATEXA+1,17:PRINTA$(1);:LOCATEXA+1,18:PRINTA$(2);:LOCATEXB+1,17:PRINTB$(1);:LOCATEXB+1,18:PRINTB$(2); 770 PLOT(XA+LEN(A$(1))*2)+138,130,1:DRAWR(XB-XA-LEN(A$(1))-1)*16+220,0,1 780 T=0:TA=2:TB=2 790 RETURN 800 SYMBOLAFTER230 810 SYMBOL231,24,52,62,60,24,31,255,15 820 SYMBOL232,0,0,0,0,0,248,255,240 830 SYMBOL233,15,7,7,3,0,0,0,0 840 SYMBOL234,0,128,192,224,112,24,12,7 850 SYMBOL235,0,0,0,0,0,31,255,15 860 SYMBOL236,24,44,124,60,24,248,255,240 870 SYMBOL237,0,1,3,7,14,24,48,224 880 SYMBOL238,240,224,224,192,0,0,0,0 890 SYMBOL239,0,129,66,36,102,255,126,60 900 SYMBOL240,16,124,254,0,16,56,16,40 910 SYMBOL241,1,195,101,55,27,15,7,3 920 SYMBOL242,128,195,166,236,152,240,224,192 930 SYMBOL243,3,3,3,7,14,28,184,112 940 SYMBOL244,192,192,192,224,112,56,29,14 950 RETURN 960 PEN2:LOCATE12,1:PRINT"TUG-----OF-----WAR":PEN1 970 LOCATE8,3:PEN3:PRINT"B Y P A U L S T A N L E Y":PEN1 980 LOCATE1,5:PRINT"A simple game for two players who have to win at Tug-Of-War,not by strength,butby reactions." 990 PEN3:PRINT:PRINT"A UFO will fly across the top of the screen and a target will appear at the bottom.":PEN1 1000 PEN3:PRINT:PRINT"PLAYER one can parachute out on to the target by pressing key [A] an PLAYER two with [P]":PEN1 1010 PEN2:PRINT:PRINT"If the parachutist lands on the target you will pull the other team.If any men fall down the canyon that team will findit harder to win.":PEN1 1020 LOCATE9,24:PRINTCHR$(24);"PRESS ANY KEY TO START";CHR$(24); 1030 IFINKEY$<>""THEN1030 1040 IFINKEY$=""THEN1040ELSECLS 1050 RETURN |