An updated version of a simple print routine that scrolls if it overflows the display.
Call from BASIC using:
PRINT USR 16514;"HELLO "
This version allows you to use a semicolon or comma to separate strings.
A trailing ; or , will suppress the newline.
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 /.**PRTSCRL2*SLR/2024**
2 REM LN BRNDLN ABS RND/SAVE
TO RETURN
8197 RND/=SCROLL RETURN
10255 ?LN SAVE <UñRNDACS ?COS AT
INT "AT INT COPY UURNDCHR$ ôCC?·
"?LCOS LN TO RND,NOT <"?ABS RND
STR$ VAL ñPòE£RNDùFOR E:RNDJ
GOSUB DELETE ?PATN RUN RNDAT
SGN TAN E£RND7LOOP DATA ñ5 ùñPò
GOSUB Kñ+òE£RNDù6:RNDY5MTRNDYôMU
RNDTAN
10 CLS
20 LET T$="**WELCOME TO THE 80
S TEXT DEMO**"
30 PRINT USR 16514;T$;
40 LET T$=T$(2 TO )+T$(1)
50 GOTO 30