An assembly version of the scroll demo. Super fast!
PROG : 16509
D-FILE: 16686
VARS : 17479
E-LINE: 17480
STKBOT: 17485
STKEND: 17485
9999 means line number
PRINT means treat as KEYWORD P
1 REM /-*ZX SCROLL**SLR/2022*
52523 Eúö+VAL 5M LN STEP RNDE£
RND7LOOP DATA ñ5 ùñPòGOSUB KAT 5
ùINKEY$- WHEN ;FRESTORE E£RND;)+
ò;YZ?7YX?(INT ?4RND/SAVE 6
THEN RNDLN VòGC(HERR MSGS EDIT
LN X÷INKEY$?>=£E THEN RNDF?P4
TO TAN LN VòG4IF TAN ?<*,011./+
)$ùõóññòô÷"
2 RAND USR VAL "16514"