10   REM ///MINOTAUR'S LAIR
20   REM ///BY DONALD BROWN
30   REM ///
40   REM /// EAMON DUNGEON
50   REM ///     #2
80   ON ERROR GOTO 1000
100   TEXT: CLS
140   PRINT : OPEN "MEAT" FOR INPUT AS #1: INPUT #1, NAME$: FOR A = 1 TO 14: INPUT #1, A$: NEXT: CLOSE #1
170  SEX = 1 + (A$ = "F")
180  REL$ = "GIRLFRIEND": PLNM$ = "LARCENOUS LIL": S2$ = "SHE": IF SEX = 2 THEN REL$ = "BOYFRIEND": PLNM$ = "SLIPPERY SVEN": S2$ = "HE"
190   HOME: PRINT : PRINT NAME$; ", YOU ARE IN BIG TROUBLE.": PRINT : PRINT : PRINT "YOU HAD ARRANGED TO MET IN THE TOWN OF": PRINT : PRINT "DUNDERHAVEN WITH YOUR "; REL$; ",": PRINT
200   PRINT PLNM$; ".  WHEN YOU ARRIVED, YOU": PRINT : PRINT "LEARNED THAT "; PLNM$; " HAD COME": PRINT : PRINT "INTO TOWN FLAT BROKE, AND HAD TRIED TO": PRINT
210   PRINT "PICK UP SOME EASY CASH BY BURGLARIZING A": PRINT "NEARBY CASTLE.  "; S2$; " HASN'T BEEN SEEN": PRINT : PRINT "SINCE.": PRINT : PRINT
330   LOCATE 24: COLOR 0, 7: PRINT "     PRESS SPACE BAR TO CONTINUE       ";
340   A$ = INPUT$(1): IF A$ <> " " THEN 340
350   PRINT : COLOR 7, 0: CLS
400   PRINT : PRINT "   MAKING YOUR OWN SUBTLE ENTRANCE INTO": PRINT : PRINT "THE CASTLE, ALL SEEMED TO BE GOING WELL": PRINT : PRINT "UNTIL SUDDENLY THE LIGHTS GO ON AND YOU": PRINT
410   PRINT "SEE YOURSELF SURROUNDED BY BOWMEN AND A": PRINT : PRINT "FAT, UGLY MAN ON A THRONE.  HE SNEERS AT": PRINT "YOU AND SAYS 'WELL, BOYS, ANOTHER THIEF.": PRINT "I GUESS WE'LL SEND THE SCOUNDREL TO": PRINT
420   PRINT "MEET THE FIRST.'  WITH THAT, HE PULLS": PRINT : PRINT "A LEVER, AND THE BOTTOM DROPS OUT OF THE": PRINT "FLOOR.": PRINT
425   LOCATE 24: COLOR 0, 7: PRINT "     PRESS SPACE BAR TO CONTINUE       ";
430   A$ = INPUT$(1): IF A$ <> " " THEN 340
435   PRINT : COLOR 7, 0: CLS
440   PRINT "---------------------------------------";
460   PRINT SPACE$(10); : PRINT : A = 1: DR = 20: A1 = 14: A2 = 10: TN = 770: FOR Y = 30 TO 100
470   SOUND 940 - Y * 5, 1: PRINT TAB(A1); "I"; SPACE$(A2); "I"
480   NEXT Y
490   PRINT : PRINT TAB(18); "THUD"
500   RUN "MAINPGM"
1000  END

