mirror of
https://github.com/rfivet/BCG101.git
synced 2024-09-27 13:36:01 -04:00
Add CHOMP, PIZZA and TARGET.
This commit is contained in:
parent
27dbf1a58e
commit
54517fa00e
101
dec/CHOMP.BAS
Normal file
101
dec/CHOMP.BAS
Normal file
@ -0,0 +1,101 @@
|
||||
100 REM ***THE GAME OF CHOMP***
|
||||
105 REM ***SUBMITTED BY PEOPLES COMPUTER CENTER***
|
||||
110 PRINT
|
||||
120 PRINT "THIS IS THE GAME OF CHOMP (SCIENTIFIC AMERICAN, JAN 1973)"
|
||||
130 PRINT "WANT THE RULES (1=YES, 0=NO!)";
|
||||
140 INPUT R
|
||||
150 IF R=0 THEN 340
|
||||
160 F=1
|
||||
170 R=5
|
||||
180 C=7
|
||||
190 PRINT "CHOMP IS FOR 1 OR MORE PLAYERS (HUMANS ONLY)."
|
||||
200 PRINT
|
||||
210 PRINT "HERE'S HOW A BOARD LOOKS (THIS ONE IS 5 BY 7):"
|
||||
220 GOSUB 540
|
||||
230 PRINT
|
||||
240 PRINT "THE BOARD IS A BIG COOKIE - R ROWS HIGH AND C COLUMNS"
|
||||
250 PRINT "WIDE. YOU INPUT R AND C AT THE START. IN THE UPPER LEFT"
|
||||
260 PRINT "CORNER OF THE COOKIE IS A POISON SQUARE (P). THE ONE WHO"
|
||||
270 PRINT "CHOMPS THE POISON SQUARE LOSES. TO TAKE A CHOMP, TYPE THE"
|
||||
280 PRINT "ROW AND COLUMN OF ONE OF THE SQUARES ON THE COOKIE."
|
||||
290 PRINT "ALL OF THE SQUARES BELOW AND TO THE RIGHT OF THAT SQUARE"
|
||||
300 PRINT "(INCLUDING THAT SQUARE, TOO) DISAPPEAR -- CHOMP!!"
|
||||
310 PRINT "NO FAIR CHOMPING SQUARES THAT HAVE ALREADY BEEN CHOMPED,"
|
||||
320 PRINT "OR THAT ARE OUTSIDE THE ORIGINAL DIMENSIONS OF THE COOKIE."
|
||||
330 PRINT
|
||||
340 PRINT "HERE WE GO..."
|
||||
350 DIM A(10,10)
|
||||
360 F=0
|
||||
370 FOR I=1 TO 10
|
||||
372 FOR J=1 TO 10
|
||||
375 A(I,J)=0
|
||||
377 NEXT J
|
||||
379 NEXT I
|
||||
380 PRINT
|
||||
390 PRINT "HOW MANY PLAYERS";
|
||||
400 INPUT P
|
||||
410 I1=0
|
||||
420 PRINT "HOW MANY ROWS";
|
||||
430 INPUT R
|
||||
440 IF R <= 9 THEN 470
|
||||
450 PRINT "TOO MANY ROWS (9 IS MAXIMUM). NOW, ";
|
||||
460 GOTO 420
|
||||
470 PRINT "HOW MANY COLUMNS";
|
||||
480 INPUT C
|
||||
490 IF C <= 9 THEN 530
|
||||
500 PRINT "TOO MANY COLUMNS (9 IS MAXIMUM). NOW, ";
|
||||
510 GOTO 470
|
||||
530 PRINT
|
||||
540 FOR I=1 TO R
|
||||
550 FOR J=1 TO C
|
||||
560 A(I,J)=1
|
||||
570 NEXT J
|
||||
580 NEXT I
|
||||
590 A(1,1)=-1
|
||||
600 REM PRINT THE BOARD
|
||||
610 PRINT
|
||||
620 PRINT TAB(7);"1 2 3 4 5 6 7 8 9"
|
||||
630 FOR I=1 TO R
|
||||
640 PRINT I;TAB(7);
|
||||
650 FOR J=1 TO C
|
||||
660 IF A(I,J)=-1 THEN 700
|
||||
670 IF A(I,J)=0 THEN 720
|
||||
680 PRINT "* ";
|
||||
690 GOTO 710
|
||||
700 PRINT "P ";
|
||||
710 NEXT J
|
||||
720 PRINT
|
||||
730 NEXT I
|
||||
740 PRINT
|
||||
750 IF F=0 THEN 770
|
||||
760 RETURN
|
||||
770 REM GET CHOMPS FOR EACH PLAYER IN TURN
|
||||
780 LET I1=I1+1
|
||||
790 LET P1=I1-INT(I1/P)*P
|
||||
800 IF P1 <> 0 THEN 820
|
||||
810 P1=P
|
||||
820 PRINT "PLAYER";P1
|
||||
830 PRINT "COORDINATES OF CHOMP (ROW,COLUMN)";
|
||||
840 INPUT R1,C1
|
||||
850 IF R1<1 THEN 920
|
||||
860 IF R1>R THEN 920
|
||||
870 IF C1<1 THEN 920
|
||||
880 IF C1>C THEN 920
|
||||
890 IF A(R1,C1)=0 THEN 920
|
||||
900 IF A(R1,C1)=-1 THEN 1010
|
||||
910 GOTO 940
|
||||
920 PRINT "NO FAIR. YOU'RE TRYING TO CHOMP ON EMPTY SPACE!"
|
||||
930 GOTO 820
|
||||
940 FOR I=R1 TO R
|
||||
950 FOR J=C1 TO C
|
||||
960 A(I,J)=0
|
||||
970 NEXT J
|
||||
980 NEXT I
|
||||
990 GOTO 610
|
||||
1000 REM END OF GAME DETECTED IN LINE 900
|
||||
1010 PRINT "YOU LOSE, PLAYER ";P1
|
||||
1020 PRINT
|
||||
1030 PRINT "AGAIN (1=YES, 0=NO!)";
|
||||
1040 INPUT R
|
||||
1050 IF R=1 THEN 340
|
||||
1060 END
|
||||
65
dec/PIZZA.BAS
Normal file
65
dec/PIZZA.BAS
Normal file
@ -0,0 +1,65 @@
|
||||
10 DIM A$(26),S$(16),N$(4),A(10),M$(4)
|
||||
20 RANDOMIZE
|
||||
30 PRINT "PIZZA DELIVERY GAME":PRINT
|
||||
50 INPUT "WHAT IS YOUR FIRST NAME";N$:PRINT
|
||||
80 PRINT "HI, "N$". IN THIS GAME YOU ARE TO TAKE ORDERS"
|
||||
90 PRINT "FOR PIZZAS. THEN YOU ARE TO TELL A DELIVERY BOY"
|
||||
100 PRINT "WHERE TO DELIVER THE ORDERED PIZZAS.":PRINT:PRINT
|
||||
140 FOR I=1 TO 16
|
||||
150 READ S$(I)
|
||||
160 NEXT I
|
||||
170 FOR I=1 TO 4
|
||||
180 READ M$(I)
|
||||
190 NEXT I
|
||||
200 DATA "A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P"
|
||||
210 DATA "1","2","3","4"
|
||||
230 PRINT "MAP OF THE CITY OF HYATTSVILLE":PRINT
|
||||
250 PRINT " ----1----2----3----4----"
|
||||
260 K=4
|
||||
270 FOR I=1 TO 4
|
||||
280 PRINT "-":PRINT "-":PRINT "-":PRINT "-"
|
||||
320 PRINT M$(K);
|
||||
330 S1=16-4*I+1
|
||||
340 PRINT " ";S$(S1);" ";S$(S1+1);" ";S$(S1+2);" ";S$(S1+3);
|
||||
350 PRINT " ";M$(K)
|
||||
380 K=K-1
|
||||
390 NEXT I
|
||||
400 PRINT "-":PRINT "-":PRINT "-":PRINT "-"
|
||||
440 PRINT "0----1----2----3----4----":PRINT
|
||||
460 PRINT "THE ABOVE IS A MAP OF THE HOMES WHERE"
|
||||
470 PRINT "YOU ARE TO SEND PIZZAS.":PRINT
|
||||
490 PRINT "YOUR JOB IS TO GIVE A TRUCK DRIVER"
|
||||
500 PRINT "THE LOCATION OR COORDINATES OF THE"
|
||||
510 PRINT "HOME ORDERING THE PIZZA.":PRINT
|
||||
520 INPUT "DO YOU NEED MORE DIRECTIONS";A$
|
||||
530 IF A$="YES" THEN 590
|
||||
540 IF A$="NO" THEN 750
|
||||
550 PRINT "'YES' OR 'NO' PLEASE, NOW THEN,":GOTO 520
|
||||
590 PRINT:PRINT "SOMEBODY WILL ASK FOR A PIZZA TO BE"
|
||||
600 PRINT "DELIVERED. THEN A DELIVERY BOY WILL"
|
||||
610 PRINT "ASK YOU FOR THE LOCATION.":PRINT " EXAMPLE:"
|
||||
620 PRINT "THIS IS J. PLEASE SEND A PIZZA."
|
||||
640 PRINT "DRIVER TO "N$". WHERE DOES J LIVE?"
|
||||
650 PRINT "YOUR ANSWER WOULD BE 2,3":PRINT
|
||||
660 INPUT "UNDERSTAND";A$
|
||||
670 IF A$="YES" THEN 690
|
||||
680 PRINT "THIS JOB IS TOO DIFFICULT FOR YOU. THANKS ANYWAY":GOTO 999
|
||||
690 PRINT "GOOD. YOU ARE NOW READY TO START TAKING ORDERS.":PRINT
|
||||
700 PRINT "GOOD LUCK!!":PRINT
|
||||
750 FOR I=1 TO 5
|
||||
760 S=INT(RND*16+1):PRINT
|
||||
770 PRINT "HELLO "N$"'S PIZZA. THIS IS "S$(S);
|
||||
775 PRINT ". PLEASE SEND A PIZZA."
|
||||
780 PRINT " DRIVER TO "N$". WHERE DOES "S$(S)" LIVE";
|
||||
790 INPUT A(1),A(2)
|
||||
870 T=A(1)+(A(2)-1)*4
|
||||
880 IF T=S THEN 920
|
||||
890 PRINT "THIS IS "S$(T)". I DID NOT ORDER A PIZZA."
|
||||
900 PRINT "I LIVE AT "A(1)","A(2)
|
||||
910 GOTO 780
|
||||
920 PRINT "HELLO "N$". THIS IS "S$(S)", THANKS FOR THE PIZZA."
|
||||
930 NEXT I
|
||||
940 PRINT:INPUT "DO YOU WANT TO DELIVER MORE PIZZAS";A$
|
||||
960 IF A$="YES" THEN 750
|
||||
970 PRINT:PRINT "O.K. "N$", SEE YOU LATER!"
|
||||
999 END
|
||||
45
dec/TARGET.BAS
Normal file
45
dec/TARGET.BAS
Normal file
@ -0,0 +1,45 @@
|
||||
100 R=1\R1=57.296\RANDOMIZE
|
||||
110 PRINT "YOU ARE THE WEAPONS OFFICER ON THE STAR SHIP ENTERPRISE"
|
||||
120 PRINT "AND THIS IS A TEST TO SEE HOW ACCURATE A SHOT YOU"
|
||||
130 PRINT "ARE IN A THREE-DIMENSIONAL RANGE. YOU WILL BE TOLD"
|
||||
140 PRINT "THE RADIAN OFFSET FOR THE X AND Z AXES, THE LOCATION"
|
||||
150 PRINT "OF THE TARGET IN THREE-DIMENSIONAL RECTANGULAR COORDINATES,"
|
||||
160 PRINT "THE APPROXIMATE NUMBER OF DEGREES FROM THE X AND Z"
|
||||
170 PRINT "AXES, AND THE APPROXIMATE DISTANCE TO THE TARGET."
|
||||
180 PRINT "YOU WILL THEN PROCEEED TO SHOOT AT THE TARGET UNTIL IT IS"
|
||||
190 PRINT "DESTROYED!"\PRINT\PRINT "GOOD LUCK!!"\PRINT\PRINT
|
||||
220 A=RND*2*PI\B=RND*2*PI\Q=INT(A*R1)\W=INT(B*R1)
|
||||
260 PRINT "RADIANS FROM X AXIS ="A" FROM Z AXIS ="B
|
||||
270 PRINT "APPROX DEGREES FROM X AXIS ="Q" FROM Z AXIS ="W
|
||||
280 P=100000*RND+RND\X=SIN(B)*COS(A)*P\Y=SIN(B)*SIN(A)*P\Z=COS(B)*P
|
||||
340 PRINT "TARGET SIGHTED: APPROX COORDINATES X="X" Y="Y" Z="Z
|
||||
345 R=R+1\IF R>5 THEN 390
|
||||
350 ON R GOTO 355,360,365,370,375
|
||||
355 P3=INT(P*.05)*20\GOTO 390
|
||||
360 P3=INT(P*.1)*10\GOTO 390
|
||||
365 P3=INT(P*.5)*2\GOTO 390
|
||||
370 P3=INT(P)\GOTO 390
|
||||
375 P3=P
|
||||
390 PRINT " ESTIMATED DISTANCE="P3
|
||||
400 INPUT "INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE";A1,B1,P2
|
||||
410 PRINT\IF P2<20 THEN PRINT "YOU BLEW YOURSELF UP!!"\GOTO 580
|
||||
420 A1=A1/R1\B1=B1/R1\PRINT "RADIANS FROM X AXIS ="A1" FROM Z AXIS ="B1
|
||||
480 X1=P2*SIN(B1)*COS(A1)\Y1=P2*SIN(B1)*SIN(A1)\Z1=P2*COS(B1)
|
||||
510 D=((X1-X)^2+(Y1-Y)^2+(Z1-Z)^2)^(1/2)
|
||||
520 IF D>20 THEN 670
|
||||
530 PRINT\PRINT " * * * HIT * * * TARGET IS NON-FUNCTIONAL"\PRINT
|
||||
550 PRINT "DISTANCE OF EXPLOSION FROM TARGET WAS"D"KILOMETERS"
|
||||
570 PRINT\PRINT "MISSION ACCOMPLISHED IN"R"SHOTS."
|
||||
580 R=0\FOR I=1 TO 5\PRINT\NEXT I\PRINT "NEXT TARGET...."\PRINT\GOTO 220
|
||||
670 X2=X1-X\Y2=Y1-Y\Z2=Z1-Z\IF X2<0 THEN 730
|
||||
710 PRINT "SHOT IN FRONT OF TARGET"X2"KILOMETERS."\GOTO 740
|
||||
730 PRINT "SHOT BEHIND TARGET";-X2"KILOMETERS."
|
||||
740 IF Y2<0 THEN 770
|
||||
750 PRINT "SHOT TO LEFT OF TARGET"Y2"KILOMETERS."\GOTO 780
|
||||
770 PRINT "SHOT TO RIGHT OF TARGET";-Y2"KILOMETERS."
|
||||
780 IF Z2<0 THEN 810
|
||||
790 PRINT "SHOT ABOVE TARGET"Z2"KILOMETERS."\GOTO 8220
|
||||
810 PRINT "SHOT BELOW TARGET";-Z2"KILOMETERS."
|
||||
820 PRINT "APPROX POSITION OF EXPLOSION: X="X1" Y="Y1" Z="Z1
|
||||
830 PRINT " DISTANCE FROM TARGET ="D\PRINT\PRINT\PRINT\GOTO 345
|
||||
999 END
|
||||
101
port/CHOMP.BAS
Normal file
101
port/CHOMP.BAS
Normal file
@ -0,0 +1,101 @@
|
||||
100 REM ***THE GAME OF CHOMP***
|
||||
105 REM ***SUBMITTED BY PEOPLES COMPUTER CENTER***
|
||||
110 PRINT
|
||||
120 PRINT "THIS IS THE GAME OF CHOMP (SCIENTIFIC AMERICAN, JAN 1973)"
|
||||
130 PRINT "WANT THE RULES (1=YES, 0=NO!)";
|
||||
140 INPUT R
|
||||
150 IF R=0 THEN 340
|
||||
160 F=1
|
||||
170 R=5
|
||||
180 C=7
|
||||
190 PRINT "CHOMP IS FOR 1 OR MORE PLAYERS (HUMANS ONLY)."
|
||||
200 PRINT
|
||||
210 PRINT "HERE'S HOW A BOARD LOOKS (THIS ONE IS 5 BY 7):"
|
||||
220 GOSUB 540
|
||||
230 PRINT
|
||||
240 PRINT "THE BOARD IS A BIG COOKIE - R ROWS HIGH AND C COLUMNS"
|
||||
250 PRINT "WIDE. YOU INPUT R AND C AT THE START. IN THE UPPER LEFT"
|
||||
260 PRINT "CORNER OF THE COOKIE IS A POISON SQUARE (P). THE ONE WHO"
|
||||
270 PRINT "CHOMPS THE POISON SQUARE LOSES. TO TAKE A CHOMP, TYPE THE"
|
||||
280 PRINT "ROW AND COLUMN OF ONE OF THE SQUARES ON THE COOKIE."
|
||||
290 PRINT "ALL OF THE SQUARES BELOW AND TO THE RIGHT OF THAT SQUARE"
|
||||
300 PRINT "(INCLUDING THAT SQUARE, TOO) DISAPPEAR -- CHOMP!!"
|
||||
310 PRINT "NO FAIR CHOMPING SQUARES THAT HAVE ALREADY BEEN CHOMPED,"
|
||||
320 PRINT "OR THAT ARE OUTSIDE THE ORIGINAL DIMENSIONS OF THE COOKIE."
|
||||
330 PRINT
|
||||
340 PRINT "HERE WE GO..."
|
||||
350 DIM A(10,10)
|
||||
360 F=0
|
||||
370 FOR I=1 TO 10
|
||||
372 FOR J=1 TO 10
|
||||
375 A(I,J)=0
|
||||
377 NEXT J
|
||||
379 NEXT I
|
||||
380 PRINT
|
||||
390 PRINT "HOW MANY PLAYERS";
|
||||
400 INPUT P
|
||||
410 I1=0
|
||||
420 PRINT "HOW MANY ROWS";
|
||||
430 INPUT R
|
||||
440 IF R <= 9 THEN 470
|
||||
450 PRINT "TOO MANY ROWS (9 IS MAXIMUM). NOW, ";
|
||||
460 GOTO 420
|
||||
470 PRINT "HOW MANY COLUMNS";
|
||||
480 INPUT C
|
||||
490 IF C <= 9 THEN 530
|
||||
500 PRINT "TOO MANY COLUMNS (9 IS MAXIMUM). NOW, ";
|
||||
510 GOTO 470
|
||||
530 PRINT
|
||||
540 FOR I=1 TO R
|
||||
550 FOR J=1 TO C
|
||||
560 A(I,J)=1
|
||||
570 NEXT J
|
||||
580 NEXT I
|
||||
590 A(1,1)=-1
|
||||
600 REM PRINT THE BOARD
|
||||
610 PRINT
|
||||
620 PRINT TAB(7);"1 2 3 4 5 6 7 8 9"
|
||||
630 FOR I=1 TO R
|
||||
640 PRINT I;TAB(7);
|
||||
650 FOR J=1 TO C
|
||||
660 IF A(I,J)=-1 THEN 700
|
||||
670 IF A(I,J)=0 THEN 720
|
||||
680 PRINT "* ";
|
||||
690 GOTO 710
|
||||
700 PRINT "P ";
|
||||
710 NEXT J
|
||||
720 PRINT
|
||||
730 NEXT I
|
||||
740 PRINT
|
||||
750 IF F=0 THEN 770
|
||||
760 RETURN
|
||||
770 REM GET CHOMPS FOR EACH PLAYER IN TURN
|
||||
780 LET I1=I1+1
|
||||
790 LET P1=I1-INT(I1/P)*P
|
||||
800 IF P1 <> 0 THEN 820
|
||||
810 P1=P
|
||||
820 PRINT "PLAYER";P1
|
||||
830 PRINT "COORDINATES OF CHOMP (ROW,COLUMN)";
|
||||
840 INPUT R1,C1
|
||||
850 IF R1<1 THEN 920
|
||||
860 IF R1>R THEN 920
|
||||
870 IF C1<1 THEN 920
|
||||
880 IF C1>C THEN 920
|
||||
890 IF A(R1,C1)=0 THEN 920
|
||||
900 IF A(R1,C1)=-1 THEN 1010
|
||||
910 GOTO 940
|
||||
920 PRINT "NO FAIR. YOU'RE TRYING TO CHOMP ON EMPTY SPACE!"
|
||||
930 GOTO 820
|
||||
940 FOR I=R1 TO R
|
||||
950 FOR J=C1 TO C
|
||||
960 A(I,J)=0
|
||||
970 NEXT J
|
||||
980 NEXT I
|
||||
990 GOTO 610
|
||||
1000 REM END OF GAME DETECTED IN LINE 900
|
||||
1010 PRINT "YOU LOSE, PLAYER ";P1
|
||||
1020 PRINT
|
||||
1030 PRINT "AGAIN (1=YES, 0=NO!)";
|
||||
1040 INPUT R
|
||||
1050 IF R=1 THEN 340
|
||||
1060 END
|
||||
65
port/PIZZA.BAS
Normal file
65
port/PIZZA.BAS
Normal file
@ -0,0 +1,65 @@
|
||||
10 DIM S$(16),A(2),M$(4)
|
||||
20 RANDOMIZE
|
||||
30 PRINT "PIZZA DELIVERY GAME"\PRINT
|
||||
50 PRINT "WHAT IS YOUR FIRST NAME";\INPUT N$\PRINT
|
||||
80 PRINT "HI, "N$". IN THIS GAME YOU ARE TO TAKE ORDERS"
|
||||
90 PRINT "FOR PIZZAS. THEN YOU ARE TO TELL A DELIVERY BOY"
|
||||
100 PRINT "WHERE TO DELIVER THE ORDERED PIZZAS."\PRINT\PRINT
|
||||
140 FOR I=1 TO 16
|
||||
150 READ S$(I)
|
||||
160 NEXT I
|
||||
170 FOR I=1 TO 4
|
||||
180 READ M$(I)
|
||||
190 NEXT I
|
||||
200 DATA "A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P"
|
||||
210 DATA "1","2","3","4"
|
||||
230 PRINT "MAP OF THE CITY OF HYATTSVILLE"\PRINT
|
||||
250 PRINT " ----1----2----3----4----"
|
||||
260 K=4
|
||||
270 FOR I=1 TO 4
|
||||
280 PRINT "-"\PRINT "-"\PRINT "-"\PRINT "-"
|
||||
320 PRINT M$(K);
|
||||
330 S1=16-4*I+1
|
||||
340 PRINT " ";S$(S1);" ";S$(S1+1);" ";S$(S1+2);" ";S$(S1+3);
|
||||
350 PRINT " ";M$(K)
|
||||
380 K=K-1
|
||||
390 NEXT I
|
||||
400 PRINT "-"\PRINT "-"\PRINT "-"\PRINT "-"
|
||||
440 PRINT "0----1----2----3----4----"\PRINT
|
||||
460 PRINT "THE ABOVE IS A MAP OF THE HOMES WHERE"
|
||||
470 PRINT "YOU ARE TO SEND PIZZAS."\PRINT
|
||||
490 PRINT "YOUR JOB IS TO GIVE A TRUCK DRIVER"
|
||||
500 PRINT "THE LOCATION OR COORDINATES OF THE"
|
||||
510 PRINT "HOME ORDERING THE PIZZA."\PRINT
|
||||
520 PRINT "DO YOU NEED MORE DIRECTIONS";\INPUT A$
|
||||
530 IF A$="YES" THEN 590
|
||||
540 IF A$="NO" THEN 750
|
||||
550 PRINT "'YES' OR 'NO' PLEASE, NOW THEN,"\GOTO 520
|
||||
590 PRINT\PRINT "SOMEBODY WILL ASK FOR A PIZZA TO BE"
|
||||
600 PRINT "DELIVERED. THEN A DELIVERY BOY WILL"
|
||||
610 PRINT "ASK YOU FOR THE LOCATION."\PRINT " EXAMPLE:"
|
||||
620 PRINT "THIS IS J. PLEASE SEND A PIZZA."
|
||||
640 PRINT "DRIVER TO "N$". WHERE DOES J LIVE?"
|
||||
650 PRINT "YOUR ANSWER WOULD BE 2,3"\PRINT
|
||||
660 PRINT "UNDERSTAND";\INPUT A$
|
||||
670 IF A$="YES" THEN 690
|
||||
680 PRINT "THIS JOB IS TOO DIFFICULT FOR YOU. THANKS ANYWAY"\GOTO 999
|
||||
690 PRINT "GOOD. YOU ARE NOW READY TO START TAKING ORDERS."\PRINT
|
||||
700 PRINT "GOOD LUCK!!"\PRINT
|
||||
750 FOR I=1 TO 5
|
||||
760 S=INT(RND(1)*16+1)\PRINT
|
||||
770 PRINT "HELLO "N$"'S PIZZA. THIS IS "S$(S);
|
||||
775 PRINT ". PLEASE SEND A PIZZA."
|
||||
780 PRINT " DRIVER TO "N$". WHERE DOES "S$(S)" LIVE";
|
||||
790 INPUT A(1),A(2)
|
||||
870 T=A(1)+(A(2)-1)*4
|
||||
880 IF T=S THEN 920
|
||||
890 PRINT "THIS IS "S$(T)". I DID NOT ORDER A PIZZA."
|
||||
900 PRINT "I LIVE AT "A(1)","A(2)
|
||||
910 GOTO 780
|
||||
920 PRINT "HELLO "N$". THIS IS "S$(S)", THANKS FOR THE PIZZA."
|
||||
930 NEXT I
|
||||
940 PRINT\PRINT "DO YOU WANT TO DELIVER MORE PIZZAS";\INPUT A$
|
||||
960 IF A$="YES" THEN 750
|
||||
970 PRINT\PRINT "O.K. "N$", SEE YOU LATER!"
|
||||
999 END
|
||||
46
port/TARGET.BAS
Normal file
46
port/TARGET.BAS
Normal file
@ -0,0 +1,46 @@
|
||||
100 R=1\R1=57.296\P1=3.141592\RANDOMIZE
|
||||
110 PRINT "YOU ARE THE WEAPONS OFFICER ON THE STAR SHIP ENTERPRISE"
|
||||
120 PRINT "AND THIS IS A TEST TO SEE HOW ACCURATE A SHOT YOU"
|
||||
130 PRINT "ARE IN A THREE-DIMENSIONAL RANGE. YOU WILL BE TOLD"
|
||||
140 PRINT "THE RADIAN OFFSET FOR THE X AND Z AXES, THE LOCATION"
|
||||
150 PRINT "OF THE TARGET IN THREE-DIMENSIONAL RECTANGULAR COORDINATES,"
|
||||
160 PRINT "THE APPROXIMATE NUMBER OF DEGREES FROM THE X AND Z"
|
||||
170 PRINT "AXES, AND THE APPROXIMATE DISTANCE TO THE TARGET."
|
||||
180 PRINT "YOU WILL THEN PROCEEED TO SHOOT AT THE TARGET UNTIL IT IS"
|
||||
190 PRINT "DESTROYED!"\PRINT\PRINT "GOOD LUCK!!"\PRINT\PRINT
|
||||
220 A=RND(1)*2*P1\B=RND(1)*2*P1\Q=INT(A*R1)\W=INT(B*R1)
|
||||
260 PRINT "RADIANS FROM X AXIS ="A" FROM Z AXIS ="B
|
||||
270 PRINT "APPROX DEGREES FROM X AXIS ="Q" FROM Z AXIS ="W
|
||||
280 P=100000*RND(1)+RND(1)\X=SIN(B)*COS(A)*P\Y=SIN(B)*SIN(A)*P\Z=COS(B)*P
|
||||
340 PRINT "TARGET SIGHTED: APPROX COORDINATES X="X" Y="Y" Z="Z
|
||||
345 R=R+1\IF R>5 THEN 390
|
||||
350 ON R GOTO 355,360,365,370,375
|
||||
355 P3=INT(P*.05)*20\GOTO 390
|
||||
360 P3=INT(P*.1)*10\GOTO 390
|
||||
365 P3=INT(P*.5)*2\GOTO 390
|
||||
370 P3=INT(P)\GOTO 390
|
||||
375 P3=P
|
||||
390 PRINT " ESTIMATED DISTANCE="P3
|
||||
400 PRINT "INPUT ANGLE DEVIATION FROM X, DEVIATION FROM Z, DISTANCE";
|
||||
405 INPUT A1,B1,P2
|
||||
410 PRINT\IF P2>=20 THEN 420\PRINT "YOU BLEW YOURSELF UP!!"\GOTO 580
|
||||
420 A1=A1/R1\B1=B1/R1\PRINT "RADIANS FROM X AXIS ="A1" FROM Z AXIS ="B1
|
||||
480 X1=P2*SIN(B1)*COS(A1)\Y1=P2*SIN(B1)*SIN(A1)\Z1=P2*COS(B1)
|
||||
510 D=((X1-X)^2+(Y1-Y)^2+(Z1-Z)^2)^(1/2)
|
||||
520 IF D>20 THEN 670
|
||||
530 PRINT\PRINT " * * * HIT * * * TARGET IS NON-FUNCTIONAL"\PRINT
|
||||
550 PRINT "DISTANCE OF EXPLOSION FROM TARGET WAS"D"KILOMETERS"
|
||||
570 PRINT\PRINT "MISSION ACCOMPLISHED IN"R"SHOTS."
|
||||
580 R=0\FOR I=1 TO 5\PRINT\NEXT I\PRINT "NEXT TARGET...."\PRINT\GOTO 220
|
||||
670 X2=X1-X\Y2=Y1-Y\Z2=Z1-Z\IF X2<0 THEN 730
|
||||
710 PRINT "SHOT IN FRONT OF TARGET"X2"KILOMETERS."\GOTO 740
|
||||
730 PRINT "SHOT BEHIND TARGET";-X2"KILOMETERS."
|
||||
740 IF Y2<0 THEN 770
|
||||
750 PRINT "SHOT TO LEFT OF TARGET"Y2"KILOMETERS."\GOTO 780
|
||||
770 PRINT "SHOT TO RIGHT OF TARGET";-Y2"KILOMETERS."
|
||||
780 IF Z2<0 THEN 810
|
||||
790 PRINT "SHOT ABOVE TARGET"Z2"KILOMETERS."\GOTO 820
|
||||
810 PRINT "SHOT BELOW TARGET";-Z2"KILOMETERS."
|
||||
820 PRINT "APPROX POSITION OF EXPLOSION: X="X1" Y="Y1" Z="Z1
|
||||
830 PRINT " DISTANCE FROM TARGET ="D\PRINT\PRINT\PRINT\GOTO 345
|
||||
999 END
|
||||
Loading…
Reference in New Issue
Block a user