Tank

CONVERSION TAPE II

converts Tank

10 CLEAR 200,32000
20 FOR I=32300 TO 32443
30 READ N
40 POKE I,N
50 NEXT
60 DATA 0,0,0,0,0,0,0,
0,0,0,0,0,0,0,0,0,0
0,0,0,0,0,0,0
PRINTING AND MOVING THE TANK
This BASIC program both PRINTs the tank
and allows you to move it around the screen.
Before entering it, do NOT type NEW this —
would destroy the DATA you have just typed
in so carefully. On the Tandy, use 251 instead
of 239 in Line 380; 253 instead of 247 in 3 90;
247 instead of 223 in 400 and 410.
5 PCLEAR 5
170 PMODE 4,1
180 PCLS
290 PCLS
300 SCREEN 1,1
310 T=1
320 TP=3500
330 POKE 32700, INT(TP/256)
340 POKE 32701, TP-256*INT(TP/256)
350 POKE 32250, T
360 EXEC 32000
370 LP=TP
380 IF PEEK (338)=239 THEN
TP=TP-32:GOTO 440
390 IF PEEK (342)=247 THEN TP=TP-I-32:
GOT0440

247

POKE481,1:POKE482,0:5