Tactical War Machine, a simple animation using BASIC.
PROG : 16509
D-FILE: 17979
VARS : 18772
E-LINE: 18773
STKBOT: 18773
STKEND: 18773
9999 means line number
PRINT means treat as KEYWORD P
10 REM **T.W.M.**SLR/1985*****
20 PRINT "TACTICAL WAR MACHI
NE**T.W.M.**"
30 PRINT ,,,,,,"TARGET SIGHTED
...LOCK IN NOW..."
40 PRINT ,,,," ·
ò
±
²
·
µ´ ÷
µ
µ õ
µ õ
µõ
µõ´õ
òõµõ
±õ"
50 PRINT AT 6,3;"!!!!!";AT 20,
3;"!!!!!"
60 FOR G=1 TO 100
70 NEXT G
80 PRINT "FIRE..."
90 PRINT AT 7,3;" ÷ "
100 LET L=SIN PI
110 PRINT " ² "
120 LET L=SIN PI
130 PRINT " ñ "
140 LET L=SIN PI
150 PRINT " ò"
160 LET L=SIN PI
170 PRINT " ÷ "
180 LET L=SIN PI
190 PRINT " õô ·"
200 LET L=SIN PI
210 PRINT " õ "
220 LET L=SIN PI
230 PRINT " õ µ"
240 LET L=SIN PI
250 PRINT " õ µ"
260 LET L=SIN PI
270 PRINT " õµ "
280 LET L=SIN PI
290 PRINT " õµôµ"
300 LET L=SIN PI
310 PRINT " ²µõµ"
320 LET L=SIN PI
330 PRINT " ñµ "
340 LET L=SIN PI
350 FOR G=6 TO 19
360 PRINT AT G,3;"!!!!!"
370 NEXT G
380 FOR G=5 TO 20
390 PRINT AT G,3;" "
400 NEXT G
410 PRINT "END FIRE"
420 PRINT AT 4,0;"TARGET DESTRO
YED...RESET SYSTEM*"
430 FOR A=1 TO 100
440 NEXT A
450 FOR A=1 TO 100
460 SCROLL
470 SLOW
480 FAST
490 NEXT A
500 PRINT AT 0,0;"TACTICAL WAR
MACHINE**T.W.M.**"
510 PRINT AT 10,0;"...PROGRAM E
NDED...SWITCH OFF..."
520 SLOW
530 FOR A=1 TO 200
540 NEXT A
550 FOR G=1 TO 22
560 SCROLL
570 NEXT G
580 REM **********END**********
585 CLS
590 RUN
600 SAVE "TWM"
610 RUN