ZX81 Programs


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

ZX81 Program Listing

**WIZERDRY**SLR/1983*** (wizerdry.p)


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17913
VARS  : 18706
E-LINE: 18707
STKBOT: 18707
STKEND: 18707


LEGEND

A means INVERSE A
A means GRAPHICS A
PRINT means treat as KEYWORD P


PROGRAM LISTING

  10 REM **WIZERDRY**SLR/1983***
  20 FOR Z=0 TO 20
  30 PRINT AT Z,0;"             
                   "
  40 NEXT Z
  50 PRINT AT 2,5;"WIZERDRY   <=
========"
  60 PRINT AT 16,10;"HHHH   7";
AT 17,10;"HHHH    ";AT 18,10;" H
H   5A8";AT 19,10;" FF   WSQ"
  70 LET L=SIN PI*SIN PI*SIN PI*
SIN PI*SIN PI*SIN PI
  80 FOR W=1 TO 5
  90 LET L=SIN PI
 100 PRINT AT 15,10;"5 85"
 110 LET L=SIN PI
 120 PRINT AT 15,10;"    "
 130 NEXT W
 140 LET L=SIN PI*SIN PI*SIN PI
 150 FOR A=14 TO 10 STEP -1
 160 PRINT AT A,10;"    "
 170 NEXT A
 180 FOR C=1 TO 3
 190 PRINT AT 10-C,10-C;"    "
 200 NEXT C
 210 FOR G=1 TO 2
 220 PRINT AT 7-G,7+G;"    "
 230 NEXT G
 240 PRINT AT 4,5;"             
        "
 250 PRINT AT 3,4;"             
          "
 260 PRINT AT 2,4;" ";AT 2,26;" 
"
 270 LET L=SIN PI*SIN PI*SIN PI*
SIN PI*SIN PI
 280 FOR T=1 TO 5
 290 LET L=SIN PI
 300 PRINT AT 15,17;"F"
 310 LET L=SIN PI
 320 PRINT AT 15,17;" "
 330 NEXT T
 340 LET L=SIN PI*SIN PI*SIN PI*
SIN PI*SIN PI
 350 FOR F=1 TO 3
 360 PRINT AT 15-F,16+F;"A"
 370 NEXT F
 380 FOR V=12 TO 9 STEP -1
 390 PRINT AT V,19;"A"
 400 NEXT V
 410 PRINT AT 8,14;"AAAAAAAAAAAA
AA";AT 7,13;"ABY STEVEN REIDA"
 420 LET L=SIN PI*SIN PI*SIN PI*
SIN PI*SIN PI*SIN PI*SIN PI*SIN
PI*SIN PI*SIN PI*SIN PI
 430 CLS
 440 PRINT AT 2,5;"WIZERDRY   <=
========";AT 16,10;"AAAA   6";
AT 17,10;"AAAA    ";AT 18,10;" A
A   8H5";AT 19,10;" SS   2F1"
 450 LET L=SIN PI*SIN PI*SIN PI*
SIN PI*SIN PI*SIN PI*SIN PI*SIN
PI*SIN PI*SIN PI*SIN PI
 460 RUN
 500 SAVE "WIZERDRY"
 510 RUN