PROG : 16509
D-FILE: 17646
VARS : 18439
E-LINE: 18440
STKBOT: 18445
STKEND: 18445
9999 means line number
PRINT means treat as KEYWORD P
1 REM /-***BIRDS**SLR/2026***
52523 EúE£RND6ECALL LN ELSE CALL
JM<>ERR MSGS LN **RNDLN òINKEY$
LN 6CALL LN POKE PILN /INKEY$LN
)INKEY$LN "CALL LN 3PILN POKE PI
LN USER ERR MSGS U<>ERR MSGS R
ASN TRNDLN WHILE ERR MSGS ?ARNDö
=5?ERR MSGS LN 1ERR MSGS NEW Z?7
LN 1ERR MSGS NEW 3LEN ô?7LN 1
ERR MSGS NEW óCHR$ ò?7LN 1
ERR MSGS NEW óCHR$ ò?7(>=TAN 5
PEEK ERR MSGS )**ERR MSGS öõLN 1
ERR MSGS NEW ÷CHR$ ó¶>7<(NEXT
TAN 5?ERR MSGS ñ ) Y=MSIN
ERR MSGS 7777USIN ERR MSGS XM
SIN ERR MSGS 4SCROLL STR$
NOSTALGIC PUSH LN ?INKEY$?M?
ERR MSGS LPRINT LN ?INKEY$?M
CODE ERR MSGS 5?ERR MSGS - 2 ö=
READ 777(POKE ?LN µINKEY$MVAL
ERR MSGS ?LN µINKEY$MLEN
ERR MSGS TAN ) ñ= RGOSUB PISó</
SAVE FOR TAN RCOS ACS ?CóYCOPY
TAN YñTAN 5?ERR MSGS ö=VAL 6COS
ERR MSGS ?RETURN ñCö)ô ;/ó5?
ERR MSGS MLN ERR MSGS ECOS
ERR MSGS MACS ERR MSGS LN FPIU
EXP ERR MSGS RC=7UINT ERR MSGS ¶
LN ?PI?7USQR ERR MSGS ¶LN ?PI?/
ERR MSGS 7ERR MSGS DEF PROC U
ASN ERR MSGS LN ?PIUSGN
ERR MSGS R4öUVAL ERR MSGS MSGN
ERR MSGS USGN ERR MSGS LN ?PI?7
ERR MSGS DEF PROC UACS ERR MSGS
LN ?PIUSGN ERR MSGS R4öULEN
ERR MSGS MSGN ERR MSGS USGN
ERR MSGS LN ?PI?ECOS ERR MSGS )ô
;AT õTAB -INKEY$TAN JMEXP
ERR MSGS UASN ERR MSGS DEF PROC
UATN ERR MSGS CHAR ?(LN WHILE PI
SQR MINT ERR MSGS UACS ERR MSGS
DEF PROC ULN ERR MSGS CHAR ?(LN
WHILE PISQR MSQR ERR MSGS YñM
EXP ERR MSGS TAN RC=ACS ?Cù
GOSUB ERR MSGS RETURN ôSQR Y
COPY RTAN RETURN ôSQR YñRTAN JR
TAN CHAR ?(COS ACS ?4"RETURN £**
USGN ERR MSGS WMSGN ERR MSGS
TAN RETURN PRINT SQR USGN
ERR MSGS XMSGN ERR MSGS TAN ACS
?4öRETURN ô**YóTAN RETURN CLEAR
SQR YCLEAR TAN ö=5?ERR MSGS VAL
FAST UNTIL 7RESTORE 7ERROR 7
AUTO LPRINT ? ACS ?4£RETURN RNDS
(-Z?GOSUB ERR MSGS CHAR /ù- ?
GOSUB ERR MSGS CHAR /ñWHILE ?±
ACS ?4£RETURN GS(2F?GOSUB
ERR MSGS DEF PROC /ù2 ?GOSUB
ERR MSGS DEF PROC /ñREAD ??7??7?
?7??7AT (LTAN ö=5?ERR MSGS VAL
FAST LN (LOAD TAN ö=5?ERR MSGS
VAL FAST LN ATN CALL LPRINT 77
AT (LOAD TAN öJ: VAL LN RNDS
PRINT 5**ERR MSGS YõPRINT öI
FAST LN XDEF PROC öHFAST LN
DEF PROC öHFAST LN WDEF PROC öH
FAST LN ACS TAN E£RND7J:/ö4?7(
UNPLOT 7$4PLOT TAN ?ACS ?""CHR$
RNDLIST ?ACS ?""CHR$ KLIST -ñ
ACS CABS +CALL -ôACS DABS 0CALL
ACS 6STR$ POP A DDDDDFOR ?³READ
5 7;ö ùSGN ERROR ACS ??ASN Y
CALL ACS SY?(MWHILE ACS READ
ASN ASN CALL Y?>ACS COPY ?TAN ?
ACS ?""CHR$ RNDLIST ?ACS ?""
CHR$ KLIST -ñACS CABS STOP CALL
-ôACS DABS REM CALL ACS 6STR$
POP A DDDDDFOR ?³READ E£RND7;ö ù
SGN ERROR ACS ??ASN £ERR MSGS
ACS SY?(READ ?J7WHILE ACS READ
ASN .ERR MSGS Y?>ACS COPY ?TAN
VAL Y9CHAR UORNDCCHAR GOSUB
READ CR4ñWCHAR ???CCHAR ACS BC
CHAR ACS ZACS ZCM3ERR MSGS AT
TAN OR LN ERROR ?K:GOSUB
UNDRAW 9RND£CõYñM<>ERR MSGS OR
TAN INT COPY GOSUB UNDRAW 9RND£
COS /SAVE 5HOME 6READ
ERR MSGS LN INKEY$ERR MSGS E
READ ERR MSGS F?P4PAUSE TAN
ö>3I
T
2 RAND USR VAL "16514"