A hungry dog. A message fills the screen behind the dog.
PROG : 16509
D-FILE: 18286
VARS : 19079
E-LINE: 19080
STKBOT: 19080
STKEND: 19080
9999 means line number
PRINT means treat as KEYWORD P
10 REM **HUNGRYDOG**SLR/2026**
20 GOSUB 400
30 REM **MSG FILL
40 LET T=768
50 LET C=LEN M$
60 PRINT M$;
70 LET T=T-C
80 IF T>C THEN GOTO 60
90 PRINT M$( TO T);
100 REM **PRINT DOG
110 PRINT AT 1,27;" ´ "
120 PRINT AT 2,24;" µ "
130 PRINT AT 3,4;"÷ó ";AT 3,23
;" ²÷÷÷ "
140 PRINT AT 4,4;" ôò´ ";AT 4,2
2;" ÷ ÷² ±´"
150 PRINT AT 5,4;" ² µ ";AT 5,
15;" ²÷÷õ ´ "
160 PRINT AT 6,4;" õò ´ ÷÷ ÷
³± ÷±ñ ´ "
170 PRINT AT 7,4;" · ÷ööö± µ
²±´ ± ± ÷²²µ"
180 PRINT AT 8,4;" ²µ÷ö± ó
± ¶÷ ²´´± ±"
190 PRINT AT 9,4;" ÷ ´±÷± ó
± ¶ ²´ ² "
200 PRINT AT 10,0;"¶";AT 10,5;"
ô² ± ÷ öô õ ÷´ ô "
210 PRINT AT 11,0;"²ñ÷ò";AT 11,
6;"÷µ ñ ÷ ö±±± ÷± ¶² "
220 PRINT AT 12,0;" ²± ·±ñ ´ñ
òö õ ² "
230 PRINT AT 13,3;" ²õ ¶ ò±
¶ µ ² "
240 PRINT AT 14,0;"¶¶¶¶ ô
ö± ¶õ õ ´ "
250 PRINT AT 15,0;"¶¶ñ ö
µ ² ²´ ±¶ "
260 PRINT AT 16,0;"¶¶¶ öö ·
¶´ ÷´ ö "
270 PRINT AT 17,0;"¶¶¶ öö
¶ ô · ² ÷ñ"
280 PRINT AT 18,0;"¶ññ öö
ò ò´ öö´¶"
290 PRINT AT 19,0;"¶ñ ·òô
ò ³ó´´´ "
300 PRINT AT 20,0;"¶ñ · ¶ ñ
ö ó ÷ "
310 PRINT AT 21,0;"ñ õ ñ öö
ô·± ÷ñ³"
320 PRINT AT 22,0;" µ · ò±ö
ö ´÷·"
330 PRINT AT 23,0;"ô ·´ööö
ö± ¶"
350 REM **WAIT
360 PAUSE 500
370 RUN
400 REM **EXPAND SCREEN
410 POKE 16418,0
420 PRINT AT 0,0;
430 REM **PICK MESSAGE
440 GOTO 500+INT (RND*4+.5)*20
500 LET M$="AHUNGRYDOGBELIEVESI
NNOTHINGBUTMEAT"
510 RETURN
520 LET M$="MERCYISAWORDNOHUNGR
YDOGUNDERSTANDS"
530 RETURN
540 LET M$="BEWARETHEDOGTHATHAS
FORGOTTENITSMASTER"
550 RETURN
560 LET M$="ASTARVINGDOGTRUSTSO
NLYITSTEETH"
570 RETURN
580 LET M$="HUNGERMAKESAFAITHFU
LDOGWILD"
590 RETURN
600 SAVE "DOG"
610 RUN