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