PROG : 16509
D-FILE: 16865
VARS : 16890
E-LINE: 16891
STKBOT: 16891
STKEND: 16891
9999 means line number
PRINT means treat as KEYWORD P
1 REM 5 4?)ñ4ñCOPY *GOSUB K
LN /INKEY$) LN REM RND04IF 1LN
REM RND=?RETURN ""4RUN +LN REM
RND14IF LN REM RND+4IF LN REM
RND=0LN REM RND0LN REM RND=0LN
REM RND=04FOR +LN REM RND+0LN
REM RND0LN REM RND+0LN REM RND+0
4FOR LN )INKEY$4CLS LN )INKEY$C
CLS LN 4INKEY$TAN AñCLR STACK DD
DDD????NEW 3P??NEW ÷CHAR ôYñ?(
CLEAR LN úINKEY$Q?TAN ACS õACS õ
ACS õTAN J<=RETURN JNEW 3TAN LN
GINKEY$<>5OINKEY$TAN LN GINKEY$Y
2GOSUB CHAR <>5±òTAN 5ORNDó(
RETURN GOSUB WHILE READ UCRNDX
WHILE <>5?INKEY$Y4GOSUB CHAR ñ!£
<=RETURN PEEK COPY A ELSE GOSUB
WHILE LN ?AT $Có?EDIT INKEY$:!DD
YLN KAT $Cò/PRINT LEN òGOSUB
CHAR :!(LLIST ?GOSUB CHAR ??2òöù
(RETURN CLEAR FAST CLEAR 5 RND
LN 4òCLEAR LPRINT <>5OINKEY$?6ò
ñòóôõö÷!ùú"£$:?()><=+-*/;,.0123
TAN 456789ABCDEFGHIJKLMNOPQRSTUV
WXYZTAN
10 RAND USR VAL "16514"