ZX81 Programs


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

ZX81 Program Listing

Z80 DIGITAL RAIN / SLR 2021 (z80digrain.p)


SYSTEM VARIABLES

PROG  : 16509
D-FILE: 17045
VARS  : 17838
E-LINE: 17839
STKBOT: 17844
STKEND: 17844


LEGEND

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


PROGRAM LISTING

   1 REM /Q (C) 2021 STEVEN REID
            + Z80 DIGITAL RAIN +
52523 HOME PIY4LN PPIX5YAFOR LN P
PIFOR 1D?DQ 51INKEY$T4?M?
INKEY$6?INKEY$EDIT PIE?INKEY$
TAB HOME INKEY$YHOME LN PPI
RETURN M AND HINKEY$Y/LN PPI
DEF PROC U?INKEY$CHAR ?LN CONT
INKEY$ THEN INKEY$CHAR UONPINEW
4?ASN CINKEY$LEN  T$LN SAVE
INKEY$E?INKEY$U?INKEY$CHAR LEN ;
LN CONT INKEY$JT£LN .PI?LOOP
INKEY$INKEY$T?LN SAVE INKEY$E?
INKEY$U?INKEY$CHAR OQNEW F5TAB
SCROLL RNDLN INDENT PILN V2EXIT
=ASN ""RNDLN ?PI?>=£            
                                
                                
                        FOR YP
LN PPILEN SFOR TAN RNDWHEN - ;
25CHAR 5COS ;(CLEAR TAN ?UONPI
NEW 4""ACS UNPLOT ?ACS W?RETURN
?"") TO COPY ;FAST BGOSUB OFF£
RNDGOSUB DELETE LPRINT **ACS
UNPLOT Q£TAN ?UONPINEW 4""GOSUB
OFF£RND5RUN 2;U?INKEY$READ - ;
ACS UNPLOT ?TAN 1  PRINT EORNDDF
?NEW ?LINE 6QPILET CHAR )4 ; 
TAN 1WHEN 2" ?L4IF TAN COPY 1
LOAD ?GOSUB ?MONPINEW 4""YS
GOSUB ?TAN 1LOAD ?GOSUB ?NEW 4""
JGOSUB ?YCOPY MONPITAN
   2 RAND USR VAL "16514"