ZX81 Listing for twm.p


ZX81 program listing for **T.W.M.**SLR/1985*****

SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17979
VARS  : 18772
E-LINE: 18773
STKBOT: 18773
STKEND: 18773


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  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