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 DATA INKEY$LN ¶INKEY$
LN PLOT INKEY$LN -INKEY$LN FOR
RNDLN <INKEY$?ARND5PROTECT
DPOKE )5 ö;Y
30489 TAN UORNDRETURN õSôCHR$ õ/
SAVE MúPI·READ - 5DO PI;RESTORE
7UNTIL GOSUB DO !PITAN U:PIBCOS
JM:PILN INPUT INKEY$LN AINKEY$Uú
PIWRETURN õSñJMúPI·READ - 5DO PI
;RESTORE 7UNTIL GOSUB DO !PITAN
E)PIF6)PI?P""YñM:PITAN UORND?Añ6
)PITAN E!PIU£PICHAR BCú7PI(PLOT
)EDIT DPOKE :/ö4PI<$4GOSUB TAN 5
ôCALL 7ERROR 7FAST VAL 5EDIT
DPOKE )5 BCô;X/RAND AT INDENT -
;FOR LPRINT ö GOSUB K/ AND 5
PROTECT DPOKE GOSUB OFF£RNDñ;ó
GOSUB KTAN U£PI·READ - 5<PI;
AUTO 7ERROR E"PIU$PIRETURN ñ4-ù?
RETURN 4Kô6"PITAN 5COPY 36"PIY
COPY M$PITAN BGOSUB PIACS ?4ô6"
PITAN 5 6"PIYñM$PITAN OR LN
ERROR ?K:GOSUB UNDRAW 9RND£CõYñM
:PI OR TAN INT COPY GOSUB
UNDRAW 9RND£COS /SAVE 5HOME 6?
PILN **INKEY$E?PIF?P4PAUSE TAN
DATA PI ñ (ñRND NOSTALGIC
"" ñRNDñ ñ""ñ òRNDò ò""ò óRNDó
ó""ó""ó óRNDó ó""ò òRNDò ò""ñ ñ
RNDñ ñ"" NOSTALGIC RND DATA
PI PI7PITAN PICONT PIAHUNGRYDOGB
ELIEVESINNOTHINGBUTMEAT MERCYISA
WORDNOHUNGRYDOGUNDERSTANDS BEWAR
ETHEDOGTHATHASFORGOTTENITSMASTER
ASTARVINGDOGTRUSTSONLYITSTEETH
HUNGERMAKESAFAITHFULDOGWILD ñ.ó
´ ò/ö µ óôô÷ó ó*÷ ²÷÷÷ ôôõ
ôò´ ô-! ÷ ÷² ±´õôö ² µ õ?(
²÷÷õ ´ öô, õò ´ ÷÷ ÷³±
÷±ñ ´÷ô, · ÷ööö± µ²±´ ± ±
÷²²µ!ô, ²µ÷ö± ó ± ¶÷ ²´´±
±ùô; ÷ ´±÷± ó ± ¶ ²´ ² ú
ñ¶úõ*ô² ± ÷ öô õ ÷´ ô " ô²
ñ÷ò"ö-÷µ ñ ÷ ö±±± ÷± ¶² £ .
²± ·±ñ ´ñòö õ ² $ó* ²õ
¶ ò± ¶ µ ² : ;¶¶¶¶ ô
ö± ¶õ õ ´ ? ;¶¶ñ ö µ
² ²´ ±¶ ( ;¶¶¶ öö ·¶´
÷´ ö ) 0¶¶¶ öö ¶ ô
· ² ÷ñ> 0¶ññ öö ò ò´
öö´¶< .¶ñ ·òôò ³ó´
´´ = ,¶ñ · ¶ ñ ö ó ÷
+ +ñ õ ñ ööô·± ÷ñ³- <
µ · ò±öö ´÷·* )ô ·´öööö±
¶COPY
2 RAND USR VAL "16514"