PROG : 16509
D-FILE: 18549
VARS : 19342
E-LINE: 19343
STKBOT: 19348
STKEND: 19348
9999 means line number
PRINT means treat as KEYWORD P
1 REM /-*HUNHRYDOG2*SLR/2026*
52523 EúLN YRNDLN LN RNDLN K
INKEY$LN ?INKEY$LN ¶INKEY$LN
PLOT INKEY$LN -INKEY$LN FOR RND
LN <INKEY$?ARND5??)5 ö;Y
30489 TAN UORNDRETURN õSôCHR$ õ/
SAVE MúPI·?- 5?PI;?7?GOSUB ?!PI
TAN U:PIBCOS JM:PILN INPUT
INKEY$LN AINKEY$UúPIWRETURN õSñJ
MúPI·?- 5?PI;?7?GOSUB ?!PITAN E)
PIF6)PI?P""YñM:PITAN UORND?Añ6)
PITAN E!PIU£PI?BCú7PI(PLOT )??:/
ö4PI<$4GOSUB TAN 5ô?7?7FAST VAL
5??)5 BCô;X/RAND AT ?- ;FOR
LPRINT ?ö GOSUB K/ AND 5??GOSUB
?£RNDñ;óGOSUB KTAN U£PI·?- 5<PI;
?7?E"PIU$PIRETURN ñ4-ù?RETURN 4K
ô6"PITAN 5COPY 36"PIYCOPY M$PI
TAN BGOSUB PIACS ?4ô6"PITAN 5 6
"PIYñM$PITAN OR LN ??K:GOSUB ?9
RND£CõYñM:PI OR TAN INT COPY
GOSUB ?9RND£COS /SAVE 5? 6?PILN
**INKEY$E?PIF?P4PAUSE TAN ?PI
ñ (ñRND ? "" ñRNDñ ñ""ñ ò
RNDò ò""ò óRNDó ó""ó""ó óRNDó ó
""ò òRNDò ò""ñ ñRNDñ ñ"" ? RND
?PI PI7PITAN PICONT PIAHUNGRYDO
GBELIEVESINNOTHINGBUTMEAT MERCYI
SAWORDNOHUNGRYDOGUNDERSTANDS BEW
ARETHEDOGTHATHASFORGOTTENITSMAST
ER ASTARVINGDOGTRUSTSONLYITSTEET
H HUNGERMAKESAFAITHFULDOGWILD ñ.
ó ´ ò/ö µ óôô÷ó ó*÷ ²÷÷÷ ôô
õ ôò´ ô-! ÷ ÷² ±´õôö ² µ õ?(
²÷÷õ ´ öô, õò ´ ÷÷ ÷³±
÷±ñ ´÷ô, · ÷ööö± µ²±´ ±
± ÷²²µ!ô, ²µ÷ö± ó ± ¶÷ ²´
´± ±ùô; ÷ ´±÷± ó ± ¶ ²´ ²
ú ñ¶úõ*ô² ± ÷ öô õ ÷´ ô "
ô²ñ÷ò"ö-÷µ ñ ÷ ö±±± ÷± ¶² £
. ²± ·±ñ ´ñòö õ ² $ó*
²õ ¶ ò± ¶ µ ² : ;¶¶¶¶
ô ö± ¶õ õ ´ ? ;¶¶ñ ö
µ ² ²´ ±¶ ( ;¶¶¶ öö ·¶´
÷´ ö ) 0¶¶¶ öö ¶ ô
· ² ÷ñ> 0¶ññ öö ò ò
´ öö´¶< .¶ñ ·òôò ³
ó´´´ = ,¶ñ · ¶ ñ ö ó ÷
+ +ñ õ ñ ööô·± ÷ñ³- <
µ · ò±öö ´÷·* )ô ·´ööö
ö± ¶COPY
2 RAND USR VAL "16514"