ZX81 Programs


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

ZX81 Program Listing

*BLOCK SPEAR*SLR/1984 (bs.p)


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 18327
VARS  : 19120
E-LINE: 19121
STKBOT: 19121
STKEND: 19121


LEGEND

9999 means line number
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM *BLOCK £ SPEAR*SLR/1984
  20 PRINT "¸¸ººº  ô·  ººº¸¸    
                   õµ           
              ´ ó  ñò  ó ÷      
             ÷            ´     
            ÷              ´"
  30 PRINT AT 8,0;"             
                                
   "
  40 DIM A$(2,6)
  50 DIM B$(2,3)
  60 DIM C$(2,5)
  70 DIM D$(2,4)
  80 LET A$(2)="  ²ùùù"
  90 LET A$(1)="  ²úúú"
 100 LET B$(1)=" ò±"
 110 LET B$(2)=" ·±"
 120 LET C$(1)="  õ·³"
 130 LET C$(2)=" ±  ò"
 140 LET D$(1)="³ôµ"
 150 LET D$(2)="ñ  ²"
 160 LET S=0
 170 LET SP=5
 180 LET D=1
 190 LET CD=SP
 200 LET Y=1
 210 FOR X=0 TO 6
 220 LET CD=CD-(CD>0)+(SP AND CD
=0)
 230 IF CD=0 THEN LET D=INT (2*
RND+1)
 240 PRINT AT 5,X;A$(D);AT 6,X;C
$(1);AT 7,X;C$(2);AT 5,11;B$(Y);
AT 6,11;D$(1);AT 7,11;D$(2)
 250 IF INKEY$="Z" THEN LET Y=1
 255 IF INKEY$="." THEN LET Y=2
 260 NEXT X
 270 IF Y=D THEN GOTO 300
 280 PRINT AT 4,3;"<YOU DIED>"
 290 GOTO 400
 300 PRINT AT 5,0;"             
                                
                                
   "
 310 LET S=S+50
 315 PRINT AT 10,0;"SCORE:";S
 320 LET SP=SP-(SP>1)
 330 IF S>=100 AND S<500 THEN
PRINT AT 11,0;"BLOCKADE"
 340 IF S>=500 AND S<1000 THEN
PRINT AT 11,0;"DODGER"
 350 IF S>=1000 THEN PRINT AT 11
,0;"MASTER DODGER<><>"
 360 PRINT AT 3,4;"FORWARD-"
 370 PAUSE 150
 380 PRINT AT 3,4;"        "
 390 GOTO 180
 400 PRINT AT 5,12;" ±"
 410 PRINT AT 5,13;"·õ"
 420 PRINT AT 5,13;" ·ö";AT 6,13
;" ö"
 430 PRINT AT 5,14;" ô";AT 6,14;
"³ó"
 440 PRINT AT 5,15;" ";AT 6,14;"
³²"
 450 PRINT AT 6,14;"  "
 460 PRINT AT 10,0;"SCORE:";S
 470 PRINT AT 12,0;"** PRESS ANY
 KEY TO RUN AGAIN **"
 490 PAUSE 4E4
 500 CLS
 510 RUN
 600 SAVE "BS"
 610 RUN