PROG : 16509
D-FILE: 17045
VARS : 17838
E-LINE: 17839
STKBOT: 17844
STKEND: 17844
9999 means line number
PRINT means treat as KEYWORD P
1 REM /Q (C) 2021 STEVEN REID
+ Z80 DIGITAL RAIN +
52523 HOME PIY4LN PPIX5Y!FOR LN P
PIFOR ñ4 ù?ùQ 51INKEY$ö4?M?
INKEY$6?INKEY$EDIT PIE?INKEY$
TAB HOME INKEY$YHOME LN PPI
RETURN M AND HINKEY$Y/LN PPI
DEF PROC U?INKEY$CHAR ?LN CONT
INKEY$ THEN INKEY$CHAR UONPINEW
4?ASN CINKEY$LEN ö$LN SAVE
INKEY$E?INKEY$U?INKEY$CHAR LEN ;
LN CONT INKEY$Jö£LN .PI?LOOP
INKEY$INKEY$ö?LN SAVE INKEY$E?
INKEY$U?INKEY$CHAR OQNEW FõTAB
SCROLL RNDLN INDENT PILN VòEXIT
=ASN ""RNDLN ?PI?>=£
FOR YP
LN PPILEN úFOR TAN E£RNDWHEN - ;
25CHAR õCOS ;(CLEAR TAN ?UONPI
NEW 4""ACS UNPLOT ?ACS W?RETURN
?"") TO COPY ;FAST BGOSUB OFF£
RNDGOSUB DELETE LPRINT **ACS
UNPLOT Q£TAN ?UONPINEW 4""GOSUB
OFF£RND5RUN ò;U?INKEY$READ - ;
ACS UNPLOT ?TAN ñ PRINT EORNDùF
?NEW ?LINE 6QPILET CHAR )4 ;
TAN ñWHEN ò" ?L4IF TAN COPY ñ
LOAD ?GOSUB ?MONPINEW 4""YS
GOSUB ?TAN ñLOAD ?GOSUB ?NEW 4""
JGOSUB ?YCOPY MONPITAN
2 RAND USR VAL "16514"