DataMuseum.dk

top - download

    Length: 2816 (0xb00)
    Types: TextFile
    Names: »SALVO1.BAS«

└─⟦69a509965⟧ Bits:30005211 CR8 BASIC Games
    └─ ⟦this⟧ »SALVO1.BAS« 

TextFile

1  REM PROGRAM SALVO1.BAS
10 PRINT "YOU ARE ON A BATTLEFIELD WITH 4 PLATOONS AND YOU"
20 PRINT "HAVE 25 OUTPOSTS AVAILABLE WHERE THEY MAY BE PLACED."
30 PRINT "YOU CAN ONLY PLACE ONE PLATOON AT ANY OONE OUTPOST."
40 PRINT "THE COMPUTER DOES THE SAME WITH ITS FOUR PLATOONS."
50 PRINT
60 PRINT "THE OBJECT OF THE GAME IS TO FIRE MISSILES AT THE"
70 PRINT "OUTPOSTS OF THE COMPUTER.  IT WILL DO THE SAME TO YOU."
80 PRINT "THE ONE WHO DESTROYS ALL FOUR OF THE ENEMY'S PLATOONS "
90 PRINT "FIRST IS THE WINNER."
100  PRINT
110 PRINT "GOOD LUCK... AND TELL US WHERE YOU WANT THE BODIES SENT!"
120 PRINT
130 PRINT"TEAR OFF THE MATRIX AND USE IT TO CHECK OFF THE NUMBERS."
140 FOR R=1 TO 5:PRINT:NEXT R
150 RANDOMIZE
160 DIM M(100)
170 FOR R=1 TO 5
180 I=(R-1)*5+1
190 PRINT I,I+1,I+2,I+3,I+4
200 NEXT R
210 FOR R=1 TO 10:PRINT:NEXT R
220 LET C = INT(RND * 25) + 1
230 D = INT(RND * 25) + 1
240 E = INT(RND *25) +1
250 F = INT(RND * 25) + 1
260 IF C = D GOTO 230
270 IF C = E GOTO 240
280 IF C = F GOTO 250
290 IF D = E GOTO 240
300 IF D = F GOTO 250
310 IF E = F GOTO 250
320 PRINT "WHAT ARE YOUR FOUR POSITIONS";
330 INPUT G,H,K,L
340 PRINT
350 PRINT "WHERE DO YOU WISH TO FIRE YOUR MISSILE";
360 INPUT Y
370IF Y = C GOTO 540
380 IF Y = D GOTO 540
390 IF Y = E GOTO 540
400 IF Y = F GOTO 540
410 GOTO 490
420 M = INT(RND * 25) + 1
430 GOTO 840
440 IF X = G GOTO 690
450 IF X = H GOTO 690
460 IF X = L GOTO 690
470 IF X = K GOTO 690
480 GOTO 510
490 PRINT" HA,HA YOU MISSED. MY TURN NOW"
500 PRINT:PRINT:GOTO 420
510 PRINT"I MISSED YOU, YOU DIRTY RAT. I PICKED";M;". YOUR TURN."
520 PRINT:PRINT:GOTO 350
530 PRINT
540 Q = Q +1
550 IF Q = 4 GOTO 660
560 PRINT "YOU GOT ONE OF MY OUTPOSTS."
570 IF Q = 1 GOTO 600
580 IF Q = 2 GOTO 620
590 IF Q = 3 GOTO 640
600 PRINT " ONE DOWN THREE TO GO"
610 PRINT:PRINT:GOTO 420
620 PRINT " TWO DOWN TWO TO GO"
630 PRINT:PRINT:GOTO 420
640 PRINT " THREE DOWN ONE TO GO"
650 PRINT:PRINT:GOTO 420
660 PRINT " YOU GOT ME,I'M GOING FAST. BUT I'LL GET YOU WHEN "
670 PRINT " Y TRANSISTORS $ECUPERA E"
680 GOTO 920
690 Z=Z+1
700 IF Z=4 THEN 810
710 PRINT "I GOT YOU.  IT WON'T BE LONG NOW. POST";X;"WAS HIT."
720 IF Z=1 THEN 750
730 IF Z=2 THEN 770
740 IF Z=3 THEN 790
750 PRINT "YOU HAVE ONLY THREE OUTPOSTS LEFT"
760 PRINT:PRINT:GOTO 350
770 PRINT "YOU HAVE ONLY TWO OUTPOSTS LEFT."
780  PRINT:PRINT:GOTO 350
790 PRINT "YOU HAVE ONLY ONE OUTPOST LEFT."
800 PRINT:PRINT:GOTO 350
810 PRINT " YOU'RE DEAD.  YOUR LAST OUTPOST WAS AT";X;".  HA, HA, HA!"
820 PRINT " BETTER LUCK NEXT TIME."
830 GOTO 920
840 P=P+1
850 N=P-1
860 FOR T = 1 TO N
870 IF M = M(T) GOTO 420
880 NEXT T
890 X = M
900 M(P) = M
910 GOTO 440
920 END
«eof»