PROG : 16509
D-FILE: 18134
VARS : 18927
E-LINE: 18928
STKBOT: 18933
STKEND: 18933
9999 means line number
PRINT means treat as KEYWORD P
1 REM /L**MBSARX***SLR/2024**
0 LN
REM PIJ5 M,RND6.RND5 4?)ñ4ñ
COPY *GOSUB KU,RNDE.RND:DPOKE )
RNDLN RUN CALL DEF PROC LOOP
DATA YZ5 LN <ERROR M1RND62RNDU,
RNDE.RND:Z) LN FAST ERR MSGS :
ERR MSGS ) ?LN NOT ERR MSGS M4
RND65RNDYDPOKE 5 STEP M7RND68
RNDöCOPY VAL õ:ZYñMIPILN JPIU4
RNDDEF PROC GOSUB OFF5RNDU7RNDE8
RNDLN RUN CALL PRINT U1RND
DEF PROC LET GOSUB OFF2RNDLN
FAST ERR MSGS MDRND6ERNDJ5 MA
RND6BRNDAT :NOSTALGIC VAL LN 7
CALL UARNDDEF PROC GOSUB OFFBRND
YDPOKE 5 LN NOT ERR MSGS PRINT
U1RNDDEF PROC LET GOSUB OFF2RND
LN FAST ERR MSGS MGRND6HRNDJ5 M
JRND6KRNDMMRND6NRNDö?VAL UJRNDEK
RNDDEF PROC GOSUB OFFKRNDLN
FAST ERR MSGS PRINT FAST UMRNDEN
RNDDEF PROC GOSUB OFFNRNDLN
FAST ERR MSGS DEF PROC LOOP
DATA LPRINT LET LN NOT ERR MSGS
DEF PROC LOOP DATA UDRNDEERNDLN
RUN CALL FAST PRINT UMRND
DEF PROC GOSUB OFFNRNDUJRNDEKRND
LN FAST ERR MSGS :RND) LN FAST
ERR MSGS DEF PROC LOOP DATA UG
RNDEHRNDLN RUN CALL MMRND6NRND
LET LPRINT MJRND6KRNDDEF PROC
GOSUB OFFKRNDLN FAST ERR MSGS
PRINT FAST UMRNDENRNDDEF PROC
GOSUB OFFNRNDLN FAST ERR MSGS
DEF PROC LOOP DATA LPRINT LET
LN RUN CALL :INKEY$) LN AT
CALL AT AND EPIASN EPIYñMIPI/!õ
TAB £INKEY$JMIPIAT VAL õY
NOSTALGIC )DEF PROC LN JPIAT
VAL õYRESTORE ±DEF PROC LN JPIUA
RNDEBRND:Z) LN RUN CALL MARND6B
RNDAT $TAB DO INKEY$VAL U7RNDE8
RND:Z) LN NOT ERR MSGS M7RND68
RNDAT VAL õ:ZY MIPILN JPIAT õ
TAB -INKEY$5 (LN MCALL U,RNDE.
RND:CALL ) (LN RUN CALL M,RND6.
RND: ) ?LN AT CALL AND TAB RND?
SRNDñWHEN LN PPITAN AñCLR STACK
DDDDD????NEW 3P??NEW ÷CHAR ôYñ?(
CLEAR LN STOP PICHAR UIPIB?CóQ?
TAN öCOPY CA?TAN ACS õACS õACS õ
TAN LN RETURN PI<>5öCALL TAN LN
RETURN PIY2GOSUB CHAR <>5±òTAN 5
ORNDó(RETURN GOSUB WHILE READ UC
RNDXWHILE <>5UNDRAW CALL Y4
GOSUB CHAR ñ!£<=RETURN PEEK
COPY A ELSE GOSUB WHILE LN USER
?$Có?3CALL :!DDYLN ²?$Cò/PRINT
LEN òGOSUB CHAR :!(LLIST ?GOSUB
CHAR ??2òöù(RETURN CLEAR FAST
CLEAR 5 RNDLN 4òCLEAR LPRINT <>5
öCALL ?6ò ñòóôõö÷!ùú"£$:?()><=+-
*/;,.0123TAN 456789ABCDEFGHIJKLM
NOPQRSTUVWXYZTAN OR LN ERROR ?K
ò OR TAN LN PAUSE PIINT COPY 6
KCALL LN 7CALL EKCALL F?P4PAUSE
TAN CHAR NEW ?WIF FAST CALL ?
PRINT LN NOT ERR MSGS AT INPUT
COS INPUT COS DEF PROC ACS S
NEW ?LEN :(KòJTAN ?PLOT ?·TAN ?P
Z""?NEW ?W?PAUSE LPRINT CALL ?N
""?STAN CHAR NEW ?4ó?FOR TAN W
IF NERR MSGS ?NEW ?ASN L
ERR MSGS WIF UNPLOT CALL ?DIF
EDIT ERR MSGS LN 2ERR MSGS C.
SQR VAL LN SIN ERR MSGS ACS 4
GOSUB RESEQ SGN ?SQR NEW ?
RETURN WACS 1SQR 7TAN ?NEW ?
RETURN ACS 0ACS 1SQR G""8""WTAN
PLOT ?5 TAN LN 2ERR MSGS CNSQR
VAL LN SIN ERR MSGS )DEF PROC Y
/CHAR GOSUB DELETE SGN ?SQR ?PKL
COS ?·PRINT ?XC>ACS 5ACS (GOSUB
CLR STACK ABS DUP ERR MSGS ACS 5
ñ GOSUB DRAW ¸·WHILE LET ?3TAN
?GOSUB DELETE 4óNEW TAN ñ K
CHR$ INPUT WHILE J+?3=LINE ?/
ASN DACS ñ*)COS KöGOSUB
ERR MSGS ACS ùINKEY$FOR R3
RETURN >**?TAN ?P4IF LCRUN W·4
NEXT ?N?4òSCOS FTAN ñ RACS ,
ACS .ACS /ACS ;X4PRINT TAN CHAR
?INPUT DEF PROC ??RUN CALL
INPUT ?RUN CALL CHAR ?NEW C
CHAR NEW ?CPROTECT WIF DPOKE
DPOKE ?NEW ?DEF PROC COS WIF
UNPLOT CALL ?NEW ?±CHR$ ZKòJTAN
RETURN ?S÷?PLOT ?5 TAN CNEW ?C
PRINT ERR MSGS EDIT FAST STR$
LN OFFDPOKE JACS 8FOR AT GOSUB
DRAW EXP AT ùEXP 3AT ?COS Z
ACS 0ACS 1WW·CABS 3XTAN ?NEW ?
COS WIF AUTO DPOKE JTAN ?P?""?
NEW ?4ôXLINE ?TAN WIF WHEN
DPOKE ?TAN ?FOR TAN ?-
NOSTALGIC PUSH ·SN·SQ·ST·SW·SZ·S
PI·SDPOKE ·S ?NEW RETURN ·SEDIT
·S·SEXIT ·SINDENT ·SDATA ·SUSER
·SBREAK ACS .***DUP TAN D?KòùºD?
KòùºD?KòùºD?KòùºD?KòùºD?KòùºD?Kò
ùºWHILE ?NEW RETURN D?KóùEXP D?
KóùEXP D?KóùEXP D?KóùEXP D?Kó
ùEXP D?KóùEXP D?KóùEXP D?Sú
ACS .READ SQR ùSQR 0""=TAN =ACS
.READ SQR ùSQR 0TAN DEF PROC
FOR YZ5 CHAR D·?*?CHAR NEW ?
ASN AERROR WIF RERROR ?NEW ?4ôX
LINE ?TAN WIF LERROR ACS T?NEW ?
LEN Z)KòJTAN RETURN ?S÷?PLOT ?5
TAN R: GOSUB DELETE K£XCOS ;D
ACS )£GOSUB DELETE Kñ$VAL PRINT
LN END WHEN ERROR SGN AT ºPAUSE
POP ERROR XLINE ?CNEW ?CTAN J<
READ Y ,WHILE 3XCHAR ?LN )ERROR
ACS )VAL LN )ERROR ACS )D?;¸
LPRINT BREAK PUSH ñ ?GOSUB
DRAW TAN LN =ERROR LN *ERROR LN
,ERROR ACS )D?COS ;¸**GOSUB
DELETE /TAN ?NEW ?CUWIF LERROR J
TAN ?NCOS ?FOR TAN ?P?""?NEW ?C9
WIF BREAK ERROR ?TAN
2 RAND USR VAL "16514"