A further refinement of my z80 Digital Rain. For normal ZX81 users you’ll notice the drops start at random locations in the top half of the screen. For Chroma users, it adds different drop shades that are closer to the original.
PROG : 16509
D-FILE: 17028
VARS : 17821
E-LINE: 17822
STKBOT: 17827
STKEND: 17827
9999 means line number
PRINT means treat as KEYWORD P
1 REM /**ZX81 RAIN**SLR/2023*
30413 LN ?PI5ORND5SLOW RNDö4LN ?
INKEY$F(IF LPRINT LET CHR$ óY4
CLEAR LN ?PI/ STEP
ö4LN 7PIX
5VAL RNDµ?£+?LN 7PIFOR ¶?ööFOR
LN 7PIFOR ñ4 ù?ùQ TAN ?MTAB RND6
?RNDE?RND""ö?LN 7PIRETURN M AND
)INKEY$ö/LN 7PI?UTAB RND??LN
SGN INKEY$SIN INKEY$?U?PINEW 4?
ASN £INKEY$LEN ö£LN LPRINT
INKEY$E?RNDUTAB RND?LEN /LN SGN
INKEY$JöôLN ùPI?SINKEY$INKEY$ö?
LN LPRINT INKEY$E?RNDUTAB RND?O
TAN FOR öPLN 7PILEN úFOR TAN E£
RND?- ;25?õCOS ;(CLEAR TAN ?FOR
E?RNDLOAD INKEY$?U?PINEW 4""ACS
UNPLOT ?ACS WY£LN ñPIYô) TO
COPY ;ACS UNPLOT ?TAN ?U?PINEW 4
""GOSUB ?£RND5RUN ò;UTAB RND?- ;
ACS UNPLOT ?TAN 5 GOSUB ?µ?
GOSUB ?´NEW 3?68PI)4 ; TAN OR
LN ??Kò OR TAN LN ?PIINT COPY
COPY ñLOAD ?GOSUB ?M?PINEW 4""YS
GOSUB ?TAN ñLOAD ?GOSUB ?NEW 4""
JGOSUB ?YCOPY M?PITAN
2 RAND USR VAL "16514"