A ZX81 alternative PRINT function that scrolls when at the bottom of the display. The intent is to show how to call machine language functions from BASIC and passing parameters on the same line. https://youtu.be/tQwA9HgaTJM
PROG : 16509
D-FILE: 16786
VARS : 16811
E-LINE: 16812
STKBOT: 16817
STKEND: 16817
9999 means line number
PRINT means treat as KEYWORD P
1 REM **PRTSCRL**SLR/2024**
2 REM SCROLL LN ??LN SAVE <
LN DRNDINT COPY ,NOT LN PRND<"?L
4PRINT TAN STR$ VAL ñPòE£RNDù
FOR E:RNDJGOSUB ??PATN LN RNDAT
SGN TAN E£RND7??ñ5 ùñPòGOSUB Kñ+
òE£RNDù6:RNDTAN
10 DIM S$(3,6)
20 LET S$(1)="HELLO/"
30 LET S$(2)="LATER."
40 LET S$(3)="ALOHA*"
50 CLS
60 PRINT USR 16541;S$(INT (RND
*3)+1)+" "
70 GOTO 60