8-Bit Software Online Conversion

Dog Maze - Listing

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