REM THE CAKE DELIVERY REM ANDY2080 TITLE: PRINT PRINT PRINT PRINT "********************" PRINT " THE" PRINT " CAKE DELIVERY" PRINT "********************" WAIT 2*60 CLS PRINT "HELLO! WHAT'S" PRINT "YOUR NAME?" REPEAT INPUT ">";NAME$ UNTIL LEN(NAME$)>0 WAIT 0*60 CLS PRINT PRINT "SO,"+NAME$+"" PRINT "WE HAVE A" PRINT "TASK THAT NEEDS" PRINT "DONE" PRINT "DO YOU ACCEPT?" PRINT "1. YES" PRINT "2. NO" DO INPUT ">";A IF A=1 THEN GOTO BAKERY IF A=2 THEN GOTO GAMEOVER LOOP WAIT 0*60 CLS BAKERY: PRINT PRINT "*IN THE BAKERY*" PRINT "OH! YOU MUST" PRINT "BE HERE FOR THE" PRINT "THE CAKE?" PRINT "1. YES" PRINT "2. NO" DO INPUT ">";A IF A=1 THEN GOTO BAKERY2 IF A=2 THEN GOTO BAKERYNO LOOP WAIT 0*60 CLS BAKERYNO: PRINT PRINT "OH..." PRINT "THEN YOU BETTER" PRINT "BE ON YOUR WAY" WAIT 7*60 CLS GOTO GAMEOVER BAKERY2: PRINT PRINT "*IN THE BAKERY*" PRINT "PERFECT!" PRINT "GET THIS TO" PRINT "HER MAJESTY" PRINT "ASAP" PRINT "1. GO TO CITY" DO INPUT ">";A IF A=1 THEN GOTO CITY LOOP WAIT 0*60 CLS CITY: PRINT PRINT "*IN THE CITY*" PRINT "WHICH WAY DO" PRINT "YOU GO?" PRINT "1. PALACE" PRINT "2. BAKERY" DO INPUT ">";A IF A=1 THEN GOTO PALACE IF A=2 THEN GOTO BAKERY3 LOOP WAIT 0*60 CLS BAKERY3: PRINT PRINT "*IN THE BAKERY*" PRINT "OH YOU'RE BACK!" PRINT "SO YOU'VE FINISHED" PRINT "YOUR TASK?" PRINT "NO?! THEN BE ON" PRINT "YOUR WAY!" WAIT 5*60 CLS GOTO CITY PALACE: PRINT PRINT "*IN THE PALACE*" PRINT "GUARD:" PRINT "WHY ARE YOU HERE?" PRINT "1. I'M A DELIVERY MAN" PRINT "2. SORRY, I GOT LOST" DO INPUT ">";A IF A=1 THEN GOTO PALACE2 IF A=2 THEN GOTO CITY LOOP WAIT 0*60 CLS PALACE2: PRINT PRINT "OH, IT'S YOU." PRINT "HER MAJESTY ISN'T" PRINT "HERE SO YOU BEST" PRINT "GO LOOK FOR HER" WAIT 5*60 CLS GOTO CITY2 CITY2: PRINT PRINT "*IN THE CITY*" PRINT "WHICH WAY DO YOU" PRINT "GO?" PRINT "1. BAKERY" PRINT "2. PALACE" PRINT "3. MUSEUM" DO INPUT ">";A IF A=1 THEN GOTO BAKERY4 IF A=2 THEN GOTO PALACE2 IF A=3 THEN GOTO MUSEUM LOOP WAIT 0*60 CLS BAKERY4: PRINT PRINT "*IN THE BAKERY*" PRINT "OH, YOUR BACK" PRINT "SO YOU'VE FINISHED" PRINT "YOUR TASK?" PRINT "NO! THEN BE ON" PRINT "YOUR WAY!" WAIT 7*60 GOTO CITY2 MUSEUM: PRINT PRINT "*IN THE MUSEUM*" PRINT "OH, HELLO" PRINT "1. IM LOOKING" PRINT "FOR THE QUEEN" PRINT "2. GOODBYE" DO INPUT ">";A IF A=1 THEN GOTO MUSEUM2 IF A=2 THEN GOTO CITY2 LOOP WAIT 0*60 CLS MUSEUM2: PRINT PRINT "*IN THE MUSEUM*" PRINT "WELL SHE WAS HERE" PRINT "ABOUT AN HOUR AGO" PRINT "YOU MIGHT WANT" PRINT "ASK AROUND" WAIT 7*60 CLS GOTO CITY3 CITY3: PRINT PRINT "*IN THE CITY*" PRINT "WHICH WAY DO YOU" PRINT "GO?" PRINT "1. ASK AROUND" PRINT "2. BAKERY" PRINT "3. PALACE" DO INPUT ">";A IF A=1 THEN GOTO ASKAROUND IF A=2 THEN GOTO BAKERY5 IF A=3 THEN GOTO PALACE2 LOOP WAIT 0*60 CLS BAKERY5: PRINT PRINT "*IN THE BAKERY*" PRINT "OH, YOUR BACK" PRINT "SO YOU'VE FINISHED" PRINT "YOUR TASK?" PRINT "NO! THEN BE ON" PRINT "YOUR WAY" WAIT 7*60 GOTO CITY3 ASKAROUND: PRINT PRINT "*IN THE STREET*" PRINT "I SAW HER GO TO" PRINT "LIBRARY EARLIER" PRINT "1. GO TO LIBRARY" PRINT "2. ASK AROUND" PRINT "SOME MORE" DO INPUT ">";A IF A=1 THEN GOTO LIBRARY IF A=2 THEN GOTO ASKAROUND2 LOOP WAIT 0*60 CLS LIBRARY: PRINT PRINT "*IN THE LIBRARY*" PRINT "HELLO!" PRINT "CAN I HELP YOU?" PRINT "1. DID THE QUEEN" PRINT "COME HERE EARLIER" PRINT "2. NEVERMIND" DO INPUT ">";A IF A=1 THEN GOTO LIBRARY2 IF A=2 THEN GOTO CITY4 LOOP WAIT 0*60 CLS LIBRARY2: PRINT PRINT "*IN THE LIBRARY*" PRINT "YES, BUT I DON'T" PRINT "KNOW IF SHE IS" PRINT "STILL HERE" PRINT "1. I'LL TAKE A" PRINT "LOOK AROUND" PRINT "2. BYE" DO INPUT ">";A IF A=1 THEN GOTO LIBRARY3 IF A=2 THEN GOTO CITY4 LOOP WAIT 0*60 CLS ASKAROUND2: PRINT PRINT "*IN THE STREET*" PRINT "I'M SORRY" PRINT "I DIDN'T SEE HER" PRINT "1. GO TO LIBRARY" DO INPUT ">";A IF A=1 THEN GOTO LIBRARY LOOP WAIT 0*60 CLS CITY4: PRINT PRINT "*IN THE CITY*" PRINT "WHERE DO YOU" PRINT "GO?" PRINT "1. BAKERY" PRINT "2. LIBRARY" DO INPUT ">";A IF A=1 THEN GOTO BAKERY6 IF A=2 THEN GOTO LIBRARY LOOP WAIT 0*60 CLS BAKERY6: PRINT PRINT "OH, YOUR BACK" PRINT "SO YOU'VE FINISHED" PRINT "YOUR TASK?" PRINT "NO! THEN BE ON" PRINT "YOUR WAY" WAIT 7*60 GOTO CITY4 LIBRARY3: PRINT PRINT "*IN THE LIBRARY*" PRINT "YOU TAKE A" PRINT "LOOK AROUND" PRINT "AND SEE A LADY" PRINT "IN THE CORNER" PRINT "AND APPROACH HER" WAIT 7*60 CLS GOTO LIBRARY4 LIBRARY4: PRINT PRINT "*IN THE LIBRARY*" PRINT "YOU LOOK A BIT" PRINT "CLOSER, AND SEE" PRINT "IT'S THE QUEEN!" PRINT "1. GIVE CAKE" PRINT "2. EAT CAKE" DO INPUT ">";A IF A=1 THEN GOTO GIVECAKE IF A=2 THEN GOTO EATCAKE LOOP WAIT 0*60 CLS GIVECAKE: PRINT PRINT "*WITH THE QUEEN*" PRINT "OH, THANK YOU" PRINT "COULD YOU" PRINT "TAKE IT TO THE" PRINT "PALACE?" PRINT "1. YES" PRINT "2. NO" DO INPUT ">";A IF A=1 THEN GOTO CITY5 IF A=2 THEN GOTO PALACENO LOOP WAIT 0*60 CLS EATCAKE: PRINT PRINT "*WITH THE QUEEN*" PRINT "WELL THAT'S RUDE!" GOTO GAMEOVER CITY5: PRINT PRINT "*IN THE CITY*" PRINT "WHERE DO YOU GO" PRINT "1. PALACE" DO INPUT ">";A IF A=1 THEN GOTO PALACE3 LOOP WAIT 0*60 CLS PALACE3: PRINT PRINT "*IN THE PALACE*" PRINT "GUARD:" PRINT "OH, YOU FOUND HER" PRINT "OK, TAKE IT TO" PRINT "THE DINING ROOM" PRINT "1. THE DINING" PRINT "ROOM" DO INPUT ">";A IF A=1 THEN GOTO DINING LOOP WAIT 0*60 CLS DINING: PRINT PRINT "IN THE DININGROOM*" PRINT "THANK YOU" PRINT "JUST SET IT" PRINT "DOWN HERE" WAIT 5*60 GOTO GAMEWIN PALACENO: PRINT PRINT "*WITH THE QUEEN*" PRINT "OK, THEN TAKE" PRINT "IT BACK" WAIT 5*60 GOTO GAMEOVER GAMEOVER: PRINT PRINT "GAMEOVER" WAIT 4*60 CLS GOTO TITLE GAMEWIN: PRINT PRINT "YOU WIN!" WAIT 4*60 CLS GOTO TITLE