ZX81 Programs


Read about, play, run, or list games, animations, and more. These are my programs from the ’80s to today.

ZX81 Program Listing

**T.W.M.**SLR/1985***** (twm.p)


SYSTEM VARIABLES

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


LEGEND

A means INVERSE A
A means GRAPHICS A
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 ,,,,"    E           
                    2           
                    Q           
                       W        
                   E            
                   8R  E        
                    8           
                    8  5        
                    8  5        
                    85          
                    85R5        
                    2585        
                    Q5"
  50 PRINT AT 6,3;"AAAAA";AT 20,
3;"AAAAA"
  60 FOR G=1 TO 100
  70 NEXT G
  80 PRINT "FIRE..."
  90 PRINT AT 7,3;" E   "
 100 LET L=SIN PI
 110 PRINT "    W   "
 120 LET L=SIN PI
 130 PRINT "    1   "
 140 LET L=SIN PI
 150 PRINT "       2"
 160 LET L=SIN PI
 170 PRINT "   E    "
 180 LET L=SIN PI
 190 PRINT "   54  E"
 200 LET L=SIN PI
 210 PRINT "    5   "
 220 LET L=SIN PI
 230 PRINT "    5  8"
 240 LET L=SIN PI
 250 PRINT "    5  8"
 260 LET L=SIN PI
 270 PRINT "    58  "
 280 LET L=SIN PI
 290 PRINT "    5848"
 300 LET L=SIN PI
 310 PRINT "    W858"
 320 LET L=SIN PI
 330 PRINT "    18  "
 340 LET L=SIN PI
 350 FOR G=6 TO 19
 360 PRINT AT G,3;"AAAAA"
 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