2 REM ... WWII.ECB ...Source MECC H7LT020 : Rev. 02-28-81 R.E.H. 4 PRINT "&K&J&J&J" 5 PRINT ,"< < < W W I I . > > >&J&J" 10 DIM A(20,10) 30 LET A$="*" 40 PRINT ,"Battle simulation:&J" 50 PRINT " Battle Map to follow:&J" 60 FOR X=1 TO 20 70 FOR Y=1 TO 10 80 LET A(X,Y)=INT(RND(0)*2+1) 90 NEXT Y 100 NEXT X 110 LET A(11,4)=5 140 LET A(10,1)=5 150 LET A(10,10)=5 160 LET A(13,7)=5 170 LET A(11,2)=5 180 LET A(11,3)=5 200 LET A(12,4)=5 210 LET A(12,5)=5 220 LET A(12,6)=5 230 LET A(12,8)=5 240 LET A(12,9)=5 250 LET A(3,2)=3 260 LET A(19,8)=6 1000 GOSUB 4000 1100 PRINT "COMMANDS ARE: M = move your tank E = Exit game" 1200 PRINT "S = Shoot main Cannon F = Fire small guns" 1500 PRINT "COMMAND? (L = List Map) ---=>"; 1600 INPUT (1,0)A$: LET A$=A$+"L" 1700 IF A$(1,1)="M" THEN 2000 1800 IF A$(1,1)="S" THEN 2200 1900 IF A$(1,1)="F" THEN 2500 2000 PRINT "INPUT YOU'RE co-ordinates" 2100 INPUT X1,Y1 2200 PRINT "MOVE TO WHERE" 2300 INPUT X2,Y2 2400 LET A(X1,Y1)=3: LET A(X2,Y2)=3 2410 IF A(X2,Y2)=1 THEN 3300 2500 LET A(3,2)=2 2600 PRINT "DO YOU WANT A BATTLE LIST" 2700 INPUT (1,0)A$: LET A$=A$+"Y" 2800 IF A$(1,1)="Y" THEN 3000 2900 GOTO 3200 3000 GOSUB 4000 3100 PRINT 3200 GOTO 1500 3300 PRINT "YOU HIT A MINE" 3400 PRINT "AGAIN"; 3500 INPUT R 3600 STOP 4000 REM ...Print out the A(20,10) Matrix 4010 FOR X=1 TO 10 4020 FOR Y=1 TO 20 4030 PRINT %3I;A(Y,X); 4040 NEXT Y 4050 PRINT 4060 NEXT X 4090 RETURN 9999 END