1OSCLI"K.0NORTH|M":OSCLI"K.1SOUTH|M"
:OSCLI"K.2EAST|M":OSCLI"K.3WEST|M":REM A
DDED BY CJR
10REM**CATCH THE DOG**
20REM**BY SUE EEDLE**
30*TV255
40MODE7
50VDU23,1,0;0;0;0;
60PRINTTAB(10,3);CHR$(141);" CATCH TH
E DOG"
70PRINTTAB(10,4);CHR$(141);" CATCH TH
E DOG"
80PRINT'''"YOUR DOG HAS ESCAPED FROM
YOUR GARDEN. YOU MUST FIND HIM BEFORE H
E CAUSES TOO MUCH TROUBLE OR GETS HURT.
"
90PRINT''"YOU MUST TRY TO WORK YOUR W
AY HOME BY FOLLOWING YOUR DOG THROUGH
THE TEXT MAZEWITHOUT RETRACING YOUR STEP
S OR ENDING UP IN A DEAD END."
100PRINTTAB(7,19)"PRESS <SPACE> TO PLA
Y"
110A=GET
120IF A=32 THEN GOTO 130
130CLS
140SCORE=50
150INPUT"TYPE IN THE NAME OF YOUR DOG
"DOG$
160PROCONE
170END
180DEFPROCONE
190SCORE=SCORE+1
200CLS:PRINT"YOUR ";DOG$;" WAS HERE!
YOU SEE A RAIDED"'"DUST BIN BAG WITH A T
RAIL OF RUBBISH LEADING EAST,SOUTH AN
D WEST. WHICH WAY DO YOU THINK ";DOG$;"
WENT?"
210INPUT''"WELL? "ANS$
220IF ANS$="EAST"THEN PROCTWOB
230IF ANS$="WEST"THEN PROCTWOA
240IF ANS$="SOUTH"THEN PROCTWOC
250IFNOT( ANS$="SOUTH"ORANS$="WEST"ORA
NS$="EAST")THEN GOTO200
260ENDPROC
270DEFPROCTWOA
280SCORE=SCORE-1
290CLS:PRINT"YOUR ";DOG$;" WAS HERE!
THIS TIME YOU SEE"'"A HALF EATEN CHICKEN
WITH FEATHERS LEADING NORTH AND SO
UTH. WHICH WAY DO YOU THINK ";DOG$;" W
ENT?"
300INPUT''"WELL? "ANS$
310IF ANS$="NORTH"THEN PROCTHREEB
320IF ANS$="SOUTH"THEN PROCTHREEA
330IF NOT(ANS$="NORTH"ORANS$="SOUTH")T
HEN GOTO 290
340ENDPROC
350DEFPROCTWOB
360SCORE=SCORE+1
370CLS:PRINT"YOUR ";DOG$;" WAS HERE AG
AIN! YOU CAN SEE"'"AN OLD LADY CUDDLING
HER CAT. SHE IS DESCRIBING TO HER NE
IGHBOUR A DOG WHICH SOUNDS LIKE ";DOG$;"
. YOU CAN FOLLOW"'"THE ROAD NORTH OR SO
UTH."
380INPUT''"WELL? "ANS$
390IF ANS$="NORTH"THEN PROCTHREEC
400IF ANS$="SOUTH"THEN PROCTHREED
410IFNOT(ANS$="SOUTH"ORANS$="NORTH")TH
EN GOTO370
420ENDPROC
430DEFPROCTWOC
440SCORE=SCORE+1
450CLS:PRINT"YOU CAN'T FIND ANY SIGN O
F ANYTHING HERE. YOU CAN SEARCH FOR
CLUES EAST OR WEST."
460INPUT''"WELL? "ANS$
470IF ANS$="EAST"THEN PROCTHREED
480IF ANS$="WEST"THEN PROCTHREEA
490IFNOT(ANS$="EAST"ORANS$="WEST")THEN
GOTO450
500ENDPROC
510DEFPROCTHREEA
520SCORE=SCORE-1
530CLS:PRINT"YOU CAN'T FIND ANY SIGN O
F ANYTHING HERE. YOU CAN SEARCH FOR
CLUES EAST OR SOUTH."
540INPUT''"WELL? "ANS$
550IF ANS$="EAST"THEN PROCFOURB
560IF ANS$="SOUTH"THEN PROCFOURA
570IFNOT(ANS$="SOUTH"ORANS$="EAST")THE
N GOTO530
580ENDPROC
590DEFPROCTHREEB
600SCORE=SCORE-1
610CLS:PRINT"TOO LATE YOU CAN SEE ";DO
G$;" BEING"'"COLLECTED BY THE RSPCA. YO
U WILL NOW HAVE TO RETURN HOME AND PAY
A FORTUNE IF YOU WANT ";DOG$;" RETURN
ED."
620PROCEND
630ENDPROC
640DEFPROCTHREEC
650SCORE=SCORE-3
660CLS:PRINT"TOO LATE ";DOG$;" HAS STR
AYED TOO "'"CLOSE TO A GAMEKEEPERS YOUNG
PHEASANTS AND HAS BEEN SHOT FOR LIVEST
OCK WORRYING"
670PROCEND
680ENDPROC
690DEFPROCTHREED
700SCORE=SCORE+1
710CLS:PRINT"YOUR ";DOG$;" WAS HERE!
YOU CAN SEE "'"A LARGE MOUND OF SOMETHIN
G NASTY IN THE MIDDLE OF THE VILLAGE BOW
LING GREEN. YOU CAN SNEAK AWAY SOUTH
AND WEST."
720INPUT''"WELL? "ANS$
730IFANS$="SOUTH"THEN PROCFOURD
740IFANS$="WEST"THEN PROCFOURC
750IFNOT(ANS$="SOUTH"ORANS$="WEST")GOT
O710
760ENDPROC
770DEFPROCFOURA
780SCORE=SCORE-4
790CLS:PRINT"YOUR ";DOG$;" WAS HERE AG
AIN! YOUR "'"LOCAL BUTCHER IS COMPLAININ
G ABOUT A DOGFITTING ";DOG$;" DESCRIPTIO
N WHO "'"STOLE A T-BONE STEAK. YOU CAN
CREEP AWAY EAST AND SOUTH."
800INPUT''"WELL? "ANS$
810IFANS$="SOUTH"THEN PROCFIVEA
820IFANS$="WEST"THEN PROCFIVEB
830IFNOT(ANS$="SOUTH"ORANS$="WEST")GOT
O790
840ENDPROC
850DEFPROCFOURB
860SCORE=SCORE-4
870CLS:PRINT"TOO LATE YOU SEE YOUR DOG
GET RUN OVER BY A CAR."
880PROCEND
890ENDPROC
900DEFPROCFOURC
910SCORE=SCORE+1
920CLS:PRINT"YOU CAN'T FIND ANY SIGN O
F ANYTHING HERE. YOU CAN SEARCH FOR
CLUES SOUTH ORWEST."
930INPUT''"WELL? "ANS$
940IF ANS$="SOUTH"THEN PROCFIVEC
950IF ANS$="WEST"THEN PROCFIVED
960IFNOT(ANS$="SOUTH"ORANS$="WEST")THE
NGOTO920
970ENDPROC
980DEFPROCFOURD
990SCORE=SCORE-4
1000CLS:PRINT"TOO LATE YOU SEE YOUR DOG
IN A FIGHT WITH 5 LARGE ROTTWEILLERS
. YOUR DOG IS KILLED INSTANTLY."
1010PROCEND
1020ENDPROC
1030DEFPROCFIVEA
1040SCORE=SCORE-1
1050CLS:PRINT"TOO LATE YOU CAN SEE ";DO
G$;" BEING"'"COLLECTED BY THE RSPCA. YO
U WILL NOW HAVE TO RETURN HOME AND PAY
A FORTUNE IF YOU WANT ";DOG$;" RETURN
ED."
1060PROCEND
1070ENDPROC
1080DEFPROCFIVEB
1090CLS
1100SCORE=SCORE-1
1110CLS:PRINT"YOU CAN SEE ";DOG$;" GOIN
G EAST."
1120INPUT''"WELL? "ANS$
1130IF ANS$="EAST"THEN PROCONE
1140IFNOT(ANS$="EAST")THENGOTO1110
1150ENDPROC
1160DEFPROCFIVEC
1170SCORE=SCORE+1
1180CLS:PRINT"YOUR ";DOG$;" WAS HERE!
YOU SEE"'"4 PEOPLE AT A PUB SHOUTING ABO
UT A DOG THAT FITS ";DOG$;" DESCRIPTION
. THEY"'"SAY THAT IT JUMPED ON THEIR TA
BLE AND DRANK THEIR LAGER. YOU CAN GO
SOUTH."
1190INPUT''"WELL? "ANS$
1200PROCSIX
1210ENDPROC
1220DEFPROCFIVED
1230CLS
1240SCORE=SCORE-6
1250PRINT"YOU CAN SEE ";DOG$;" GOING EA
ST."
1260INPUT''"WELL? "ANS$
1270PROCONE
1280ENDPROC
1290DEFPROCSIX
1300SCORE=SCORE+1
1310CLS:PRINT"YOU CAN'T FIND ANY SIGN O
F ANYTHING HERE. YOU CAN SEARCH FOR
CLUES SOUTH ORWEST."
1320INPUT''"WELL? "ANS$
1330IF ANS$="SOUTH"THEN PROCSEVENB
1340IF ANS$="WEST"THEN PROCSEVENA
1350IFNOT(ANS$="SOUTH"ORANS$="WEST")THE
N1310
1360ENDPROC
1370DEFPROCSEVENA
1380CLS
1390SCORE=SCORE+1
1400PRINT;DOG$;" WAS HERE AGAIN! YOU C
AN HERE"'"THE BAND SHOUTING ABOUT A DOG
WHO STOLE THEIR DRUMSTICKS WHILE THEY WE
RE PLAYING. YOU CAN GO SOUTH."
1410INPUT''"WELL? "ANS$
1420PROCFINISH
1430ENDPROC
1440DEFPROCSEVENB
1450CLS
1460SCORE=SCORE-8
1470PRINT"YOU CAN SEE ";DOG$;" GOING WE
ST."
1480INPUT''"WELL? "ANS$
1490PROCTHREEA
1500ENDPROC
1510DEFPROCFINISH
1520CLS
1530SCORE=SCORE+1
1540PRINT"YOU HAVE ARRIVED HOME TO FIND
";DOG$;'"SITTING OUTSIDE YOUR FRONT DOO
R LOOKING AS IF NOTHING HAS HAPPENED."
1550PROCEND
1560ENDPROC
1570DEFPROCEND
1580 IF SCORE=58 OR SCORE>58 THEN PRINT
''''"WELL DONE YOU HAVE COMPLETED THE MA
ZE AND YOU HAVE EXCELLED AT DOG CHASIN
G."
1590IF SCORE<58 AND SCORE>50 THEN PRINT
''''"NOT BAD BUT YOU DO NEED SOME PRACTI
SE."
1600IF SCORE<50 THEN PRINT''''"DON'T GE
T ANOTHER DOG BEFORE YOU GET SOME EXP
ERIENCE."
1610PRINT'''"PRESS <SPACE> TO START AGA
IN"
1620A=GET
1630IF A=32 THEN GOTO 130
1640ENDPROC