A fun little screen saver that prints a bunch of circles.
PROG : 16509
D-FILE: 17184
VARS : 17977
E-LINE: 17978
STKBOT: 17983
STKEND: 17983
9999 means line number
PRINT means treat as KEYWORD P
1 REM /-**CIRCLES**SLR/2022**
52523 EúLN EXP PIöúVAL -?LN JPIX
LEN LIST Mò?-RNDLN JPIX?-HLN JPI
X?-+LN JPIWLN SCROLL RND5- LN ³
PIAT (USR 5GñLN ³PILN VPI?7RNDR
LIST GOSUB ?TAN 5LLIST RND?
7?MNEW RNDJMSLOW RNDMFAST RNDE
FAST RNDULLIST RND´?USTOP RNDµ?
LN ?INKEY$LN ó?EFAST RNDULLIST
RND=?USTOP RNDµ?LN ?INKEY$LN ó?E
FAST RNDULLIST RND´?USTOP RND+?
LN ?INKEY$LN ó?EFAST RNDULLIST
RND=?USTOP RND+?LN ?INKEY$LN ó?E
FAST RNDULLIST RNDµ?USTOP RND´?
LN ?INKEY$LN ó?EFAST RNDULLIST
RND+?USTOP RND´?LN ?INKEY$LN ó?E
FAST RNDULLIST RNDµ?USTOP RND=?
LN ?INKEY$LN ó?EFAST RNDULLIST
RND+?USTOP RND=?LN ?INKEY$LN ó?E
FAST RNDUSLOW RNDWµµ?MSLOW RNDW=
=?5FAST RNDO?LN <>RND??LN <>RNDS
ABS TINKEY$?MSLOW RND5NEW RNDPE
FAST RND?X**?RUN RND ?ACS ?""
CHR$ RNDLIST ?ACS ?""CHR$ ILIST
- ?ACS Z?Kò-ñ?ACS Z?Kô?ACS INT ?
STR$ E£RND7?RC÷)5 ;X4UNPLOT ) ?
;SGN UTAB INKEY$ACS ?TAB YPI?RC(
XC,XC8INPUT ÷?TAN SIN ?TAN ACS ·
?TAN INT ?TAN ACS ??TAN NOT ?
TAN ACS *?TAN ?RC(XC,XC8INPUT ÷?
TAN ·?TAN ACS SIN ?TAN ??TAN
ACS INT ?TAN *?TAN ACS NOT ?TAN
/SAVE 6±PILN VòGC<H??LN X÷PI
LN LET PI?>=£E±PIF?P4>=TAN LN Vò
G4IF TAN GOSUB ??NEW ??E£RND7J:/
ö4?7(UNPLOT 7$4PLOT TAN COPY ñ
LOAD ?GOSUB ?MLN PINEW 4""YZ
GOSUB ?E£RNDö/7COPY ACS W4POKE (
PAUSE TAN ñLOAD ?GOSUB ?NEW 4""J
GOSUB ?YCOPY MLN PITAN ùULN PI
NEW 4""Uò?ACS UNPLOT ?TAN
2 RAND USR VAL "16514"