PROG : 16509
D-FILE: 17628
VARS : 18421
E-LINE: 18422
STKBOT: 18427
STKEND: 18427
9999 means line number
PRINT means treat as KEYWORD P
1 REM /-***LIFE***SLR/2024***
52653 STR$ RNDLN PROTECT INKEY$
LN -INKEY$RASN 1RND?,RNDJMN
INKEY$LN EúLN RESEQ INKEY$E£RNDñ
6 ù:-7ö2Q LN LINE INKEY$SòQ 7(
POKE 77$4GOTO TAN UNINKEY$WMN
INKEY$5OINKEY$ñ5 ùFOR E£RNDñ6 ù:
+7<ö2VAL STR$ FAST : FLN CHAR
INKEY$77LN CHAR INKEY$)7 BGOSUB
DELETE LN CHAR INKEY$7LN CHAR
INKEY$7LN CHAR INKEY$)RND ;LN
CHAR INKEY$7LN CHAR INKEY$7LN
CHAR INKEY$LPRINT SGN òC$RETURN
óCùJ/!RETURN óY 4òY >AT <7(M<<77
$4BTAN £RND7FOR 5OINKEY$ñ/ó
GOSUB KTAN )OINKEY$E£RND7ñ/ó
GOSUB KTAN FAST 5 GOSUB READ µ?
GOSUB READ ´NEW 3LINE 6PUSH
INKEY$GOSUB UNDRAW 9RND£COS $LN
X÷Kò OR TAN INT COPY UNINKEY$
RETURN HOME SQR 5HOME 6=INKEY$
LN ºINKEY$LN ?INKEY$R""E=INKEY$F
?P4GOSUB TAN 0
2 RAND USR VAL "16514"