Compucolor.org – Virtual Media

Listing of file='PRETAN.BAS;01' on disk='vmedia/chip_17-sector.ccvf'

10 CLEAR 100
20 PLOT 6,2,12,27,24,14
100 PLOT 6,6,3,26,1
110 PRINT "TANK WARFARE"
120 PLOT 15,3,19,0
130 PRINT "   ff"
140 PLOT 3,19,1
150 PRINT "t   u"
160 PLOT 3,40,0
170 PRINT "ff   "
180 PLOT 3,40,1
190 PRINT "t   u"
200 PLOT 6,4
210 PLOT 2,7,11,242,7,108,124,108,124,11,7,11,255
220 PLOT 14
230 PLOT 3,6,7
240 PRINT "TANK WARFARE  IS A VIDEO ARCADE TYPE OF GAME IN"
250 PLOT 3,6,9
260 PLOT 6,3
270 PRINT "WHICH YOU WAGE WAR, WITH YOUR TANK, AGAINST THE"
280 PLOT 3,6,11
290 PRINT "COMPUTER'S TANK.  THE FIRST TANK TO BE HIT 10 TIMES"
300 PLOT 3,6,13
310 PRINT "LOSES.  YOU CAN ALSO LOSE BY MOVING ONTO A MINE FIELD"
320 PLOT 3,6,15
330 PRINT "OR BY BEING DIAGONALLY NEXT TO MINE FIELD THAT EXPLODES"
340 PLOT 3,6,17
350 PRINT "BECAUSE A TANK SHOT IT."
360 PLOT 15,3,14,19,6,1
370 PRINT "ACTIONS YOU CAN TAKE INCLUDE:"
380 PLOT 6,7,3,18,20
390 PRINT "1. FIRE           HIT RETURN"
400 PLOT 3,18,21
410 PRINT "2. MOVE FORWARD   CURSOR UP"
420 PLOT 3,18,22
430 PRINT "3. REVERSE        'HOME'"
440 PLOT 3,18,23
450 PRINT "4. TURN LEFT      CURSOR LEFT"
460 PLOT 3,18,24
470 PRINT "5. TURN RIGHT     CURSOR RIGHT"
480 PLOT 3,18,25
490 PRINT "6. END THE GAME   Q"
500 PLOT 6,3
510 PLOT 3,4,27
520 PRINT "'SKILL LEVEL' WILL CONTROL TIME IN SECONDS TO REACT."
530 PLOT 6,1
540 PLOT 3,0,31
550 INPUT "HIT RETURN TO PLAY TANK WARFARE ";Q$
560 LOAD "TANK":RUN
999 END
5403 ,16,31