Listing of file='TRAP.BAS;01' on disk='vmedia/games3-sector.ccvf'
0 REM WRITTEN BY M.BRENNER * (C) 1981 BY (C.C.B.) 1 TT= 200:PLOT 12 2 X1= 27116+ 100 3 R= 1:Y1= - 2:Y2= 2 4 X2= 27116+ 60 5 IF Z1> 0OR Z2> 0THEN 7 6 GOSUB 1500 7 FOR I= 1TO 4:L(I)= 0:NEXT I 9 PLOT 12:GOSUB 600 10 X$= CHR$ (PEEK (33278)) 20 IF X$= "8"THEN Y1= - 128 30 IF X$= "2"THEN Y1= 128 40 IF X$= "4"THEN Y1= - 2 50 IF X$= "6"THEN Y1= 2 54 IF P= 2THEN GOSUB 910 55 IF P= 1THEN GOSUB 800 56 X1= X1+ Y1 60 IF PEEK (X1)= 35OR PEEK (X1)= 43THEN P1= 1 65 IF PEEK (X2)= 35OR PEEK (X2)= 43THEN P2= 1 70 IF X1> 28670OR X1< 24576THEN P1= 1 75 IF X2> 28670OR X2< 24576THEN P2= 1 80 PLOT 32:PLOT 8 85 IF P1= 1OR P2= 1THEN 500 90 PLOT 29,17:POKE (X1),43:POKE (X1+ 1),43 92 PLOT 29,20:POKE (X2),35:POKE (X2+ 1),35 93 PLOT 29,18 95 FOR Q= 1TO TT:NEXT Q:TT= TT- 5:IF TT< 10THEN TT= 10 96 PLOT 32:PLOT 8 100 GOTO 10 110 END 500 REM 501 PRINT :PRINT 505 IF P1= 1AND P2= 1THEN PRINT "UNENTSCHIEDEN !!!":PLOT 29,18:POKE (X1+ 1),42:POKE (X2+ 1),42 506 IF P1= 1AND P2= 1THEN 530 510 IF P1= 1THEN PRINT "PLAYER TWO WINS" 515 IF P1= 1THEN PLOT 29,18:POKE (X1),42:POKE (X1+ 1),42 520 IF P2= 1THEN PRINT "PLAYER ONE WINS" 525 IF P2= 1THEN PLOT 29,18:POKE (X2),42:POKE (X2+ 1),42 530 PRINT 540 IF P1= 1THEN P1= 0:Z2= Z2+ 1 550 IF P2= 1THEN P2= 0:Z1= Z1+ 1 560 PRINT "PLAYER 2 :";Z2;:PRINT " PLAYER 1:";Z1 561 PRINT :PRINT 562 IF Z1= Z2AND Z1> 2THEN PRINT "UNENTSCHIEDEN !!!":GOTO 567 565 IF Z1> 2THEN PRINT "PLAYER ONE WINS THE ROUND !!!" 566 IF Z2> 2THEN PRINT "PLAYER TWO WINS THE ROUND !!!" 567 IF Z1> 2OR Z2> 2THEN INPUT " WANT TO PLAY AGAIN ?";A$:QV= 1 568 IF QV= 1AND A$= "Y"OR A$= "J"THEN RUN 569 IF QV= 1THEN LOAD "MENU":RUN 570 FOR I= 1TO 2500:NEXT I 575 Z= Z+ 1:IF Z= 1THEN TT= 100 576 IF Z< 2THEN TT= 10 580 GOTO 1 600 REM 602 PLOT 15:PRINT TAB( 44)"(C) 1981 BY (C.C.B.)":PLOT 14:PRINT 603 PRINT TAB( 20)"S U P E R - T R A P" 605 PLOT 29,17 610 PLOT 2,0,0,242,127,0,255 620 PLOT 2,0,127,242,127,127,255 630 PLOT 29,18 650 RETURN 800 REM 810 IF R= 0THEN R= 1:W= INT (RND (5)* 5) 820 IF W= 1THEN Y2= 2:L(1)= 1 830 IF W= 2THEN Y2= - 2:L(2)= 1 840 IF W= 3THEN Y2= 128:L(3)= 1 850 IF W= 4THEN Y2= - 128:L(4)= 1 860 X2= Y2+ X2 870 IF PEEK (X2)= 35OR PEEK (X2)= 43THEN R= 0 880 IF X2> 28670OR X2< 24576THEN R= 0 885 IF L(1)= 1AND L(2)= 1AND L(3)= 1AND L(4)= 1THEN 895 890 IF R= 0THEN X2= X2- Y2:GOTO 810 895 FOR I= 1TO 4:L(I)= 0:NEXT I 900 RETURN 910 IF X$= "W"THEN Y2= - 128 920 IF X$= "Z"THEN Y2= 128 930 IF X$= "S"THEN Y2= 2 940 IF X$= "A"THEN Y2= - 2 950 X2= X2+ Y2 990 RETURN 1000 PLOT 12 1005 PLOT 15:PRINT TAB( 44)"(C) 1981 BY (C.C.B.)":PLOT 14 1006 PLOT 8 1010 PRINT TAB( 10)"* * * S U P E R - T R A P * * *" 1015 PRINT 1020 PRINT "THIS IS A GAME CALLED S U P E R T R A P." 1030 PRINT "THE OBJECT IS TO BLOCK YOUR OPPONENT" 1040 PRINT "SO THAT HE/SHE CANNOT MOVE." 1050 PRINT 1055 PRINT "PLAYER ONE (#):" 1060 PRINT "THE PLAYER1 ON THE RIGHT USES KEYS" 1070 PRINT "'4' ,'8', '6', & ,'2' FOR" 1080 PRINT "LEFT,UP,RIGHT, & ,DOWN." 1090 PRINT 1091 IF P= 1THEN 1140 1095 PRINT "PLAYER TWO (+):" 1100 PRINT "THE PLAYER2 ON THE LEFT USES KEYS" 1110 PRINT "'A' ,'W', 'S', & ,'Z' FOR" 1120 PRINT "LEFT,UP,RIGHT, & ,DOWN." 1130 IF P= 2THEN 1200 1140 PRINT "THE COMPUTER WILL PLAY PLAYER 2 ON THE LEFT !" 1150 PRINT 1160 PRINT "GOOD LUCK !!!" 1200 INPUT "ARE YOU READY THEN PRESS RETURN";AA 1210 RETURN 1500 REM 1505 PLOT 15,12:PRINT TAB( 44)"(C) 1981 BY (C.C.B.)":PLOT 14 1510 PRINT TAB( 15)"* * * S U P E R - T R A P * * *" 1520 PRINT :PRINT 1530 INPUT "1 OR 2 PLAYER 1/2 ?";P 1535 IF P< 1OR P> 2THEN 1530 1540 PRINT :PRINT 1550 INPUT "DO YOU WANT INSTRUCTIONS ?";A$ 1560 IF A$= "Y"THEN GOSUB 1000 1600 RETURN