'        3-D  MAZE         Created by Jeremy Burk       July 15, 1995
'
'
' To move use the arrow keys:
'
'                             /|\   Forward       
'                              |                               
'     Enter room on left  <---   --->   Enter room on right   
'                              |                             
'                             \|/   Turn around and go back 
'
'
'           The game starts out with you looking north and three directions
'      to choose from. The door behind you is locked. To get out you must
'      travel through the diferent rooms looking for secret items. If you
'      come to a dead end push the back arrow to turn around. And also,
'      watch out for the trap doors, you will have to start somewhere else
'      if you fall in!
'



DECLARE SUB INV ()
DECLARE SUB COLORS ()
SCREEN 12
COLORS
REM VIEW (0, 0)-(310, 310), , 0
REM GOTO ROOM24
ST = TIMER
M = 0
C = 0: K = 0
P2:
GOSUB ROOM2
N$ = "U"
INV
2
GOSUB MOVE
IF D$ = "R" THEN GOTO P10
IF D$ = "U" THEN GOTO P5
IF D$ = "L" THEN GOTO P7
GOTO 2

P3:
GOSUB ROOM3
N$ = "D"
INV
3
GOSUB MOVE
IF D$ = "R" THEN GOTO P11
IF D$ = "B" THEN GOTO P17
GOTO 3

P4:
GOSUB ROOM4
N$ = "D"
INV
4
GOSUB MOVE
IF D$ = "U" THEN GOTO P20
IF D$ = "R" THEN GOTO P6
IF D$ = "B" THEN GOTO P22
GOTO 4

P5:
GOSUB ROOM5
N$ = "U"
INV
5
GOSUB MOVE
IF D$ = "B" THEN GOTO P8
GOTO 5

P6:
GOSUB ROOM5
N$ = "R"
INV
6
GOSUB MOVE
IF D$ = "B" THEN GOTO P9
GOTO 6

P7:
GOSUB ROOM4
N$ = "R"
INV
7
GOSUB MOVE
IF D$ = "U" THEN GOTO P21
IF D$ = "R" THEN GOTO P19
IF D$ = "B" THEN GOTO P13
GOTO 7

P8:
GOSUB ROOM6
N$ = "D"
INV
8
GOSUB MOVE
IF D$ = "L" THEN GOTO P10
IF D$ = "R" THEN GOTO P7
IF D$ = "B" THEN GOTO P5
GOTO 8

P9:
GOSUB ROOM7
N$ = "L"
INV
9
GOSUB MOVE
IF D$ = "L" THEN GOTO P22
IF D$ = "R" THEN GOTO P20
IF D$ = "B" THEN GOTO P6
GOTO 9

P10:
GOSUB ROOM8
N$ = "L"
INV
10
GOSUB MOVE
IF D$ = "L" THEN GOTO P18
IF D$ = "U" THEN GOTO P23
IF D$ = "B" THEN GOTO P16
GOTO 10

P11:
GOSUB ROOM9
N$ = "R"
INV
11 GOSUB MOVE
IF D$ = "U" THEN GOTO P16
IF D$ = "R" THEN GOTO P18
IF D$ = "B" THEN GOTO P23
GOTO 11

P12:
GOSUB ROOM10
N$ = "R"
INV
12 GOSUB MOVE
IF D$ = "L" THEN GOTO P4
IF D$ = "B" THEN GOTO P25
GOTO 12

P13:
GOSUB ROOM11
N$ = "L"
INV
13 GOSUB MOVE
IF D$ = "U" THEN GOTO P10
IF D$ = "L" THEN GOTO P5
IF D$ = "B" THEN GOTO P7
GOTO 13

P14:
GOSUB ROOM12
N$ = "L"
MES$ = ""
INV
14 GOSUB MOVE
IF D$ = "U" THEN GOTO P13
IF D$ = "L" THEN GOTO P19
IF D$ = "B" THEN GOTO P21
GOTO 14

P15:
GOSUB ROOM7
N$ = "D"
INV
15 GOSUB MOVE
IF D$ = "L" THEN GOTO P23
IF D$ = "R" THEN GOTO P16
IF D$ = "B" THEN GOTO P18
GOTO 15

P16:
GOSUB ROOM13
N$ = "R"
INV
16 GOSUB MOVE
IF D$ = "U" THEN GOTO P7
IF D$ = "R" THEN GOTO P5
IF D$ = "B" THEN GOTO P10
GOTO 16

P17:
GOSUB ROOM5
N$ = "U"
INV
17 GOSUB MOVE
IF D$ = "B" THEN GOTO P3
GOTO 17

P18:
GOSUB ROOM14
N$ = "U"
INV
18 GOSUB MOVE
IF D$ = "U" THEN GOTO P36
IF D$ = "B" THEN GOTO P15
GOTO 18

P19:
GOSUB ROOM8
N$ = "U"
INV
19 GOSUB MOVE
IF D$ = "U" THEN GOTO P22
IF D$ = "L" THEN GOTO P6
IF D$ = "B" THEN GOTO P20
GOTO 19

P20:
GOSUB ROOM7
N$ = "D"
INV
20 GOSUB MOVE
IF D$ = "L" THEN GOTO P13
IF D$ = "R" THEN GOTO P21
IF D$ = "B" THEN GOTO P19
GOTO 20

P21:
GOSUB ROOM5
N$ = "R"
INV
21 GOSUB MOVE
IF D$ = "B" THEN GOTO P14
GOTO 21

P22:
GOSUB ROOM3
N$ = "U"
INV
22 GOSUB MOVE
IF D$ = "R" THEN GOTO P25
IF D$ = "B" THEN GOTO P4
GOTO 22

P23:
GOSUB ROOM10
N$ = "L"
INV
23 GOSUB MOVE
IF D$ = "L" THEN GOTO P17
IF D$ = "B" THEN GOTO P11
GOTO 23

P24:
GOSUB ROOM15
N$ = "R"
INV
24 GOSUB MOVE
IF D$ = "U" THEN GOTO P12
IF D$ = "B" THEN GOTO P30
GOTO 24

P25:
GOSUB ROOM16
N$ = "L"
INV
25 GOSUB MOVE
IF D$ = "U" THEN GOTO P30
IF D$ = "B" THEN GOTO P12
GOTO 25

P26:
GOSUB ROOM3
N$ = "D"
INV
26 GOSUB MOVE
IF D$ = "R" THEN GOTO P27
IF D$ = "B" THEN GOTO P31
GOTO 26

P27:
GOSUB ROOM16
N$ = "R"
INV
27 GOSUB MOVE
IF D$ = "U" THEN GOTO P24
IF D$ = "B" THEN GOTO P35
GOTO 27

P28:
GOSUB ROOM15
N$ = "D"
INV
28 GOSUB MOVE
IF D$ = "U" THEN GOTO P15
IF D$ = "B" THEN GOTO P36
GOTO 28

P29:
IF C = 0 THEN GOSUB ROOM39 ELSE GOSUB ROOM5
N$ = "R"
C = 1       'COMPASS   ? ? SOUND ? ?
MES$ = "YOU FOUND A COMPASS"
INV
29 GOSUB MOVE
IF D$ = "B" THEN GOTO P34
GOTO 29

P30:
GOSUB ROOM15
N$ = "L"
INV
30 GOSUB MOVE
IF D$ = "U" THEN GOTO P35
IF D$ = "B" THEN GOTO P24
GOTO 30

P31:
GOSUB ROOM15
N$ = "U"
INV
31 GOSUB MOVE
IF D$ = "U" THEN GOTO P39
IF D$ = "B" THEN GOTO P26
GOTO 31

P32:
GOSUB ROOM3
N$ = "R"
INV
32 GOSUB MOVE
IF D$ = "R" THEN GOTO P37
IF D$ = "B" THEN GOTO P45
GOTO 32

P33:
GOSUB ROOM15
N$ = "D"
INV
33 GOSUB MOVE
IF D$ = "U" THEN GOTO P26
IF D$ = "B" THEN GOTO P39
GOTO 33

P34:
GOSUB ROOM3
N$ = "L"
INV
34 GOSUB MOVE
IF D$ = "R" THEN GOTO P33
IF D$ = "B" THEN GOTO P29
GOTO 34

P35:
GOSUB ROOM10
N$ = "L"
INV
35 GOSUB MOVE
IF D$ = "L" THEN GOTO P31
IF D$ = "B" THEN GOTO P27
GOTO 35

P36:
GOSUB ROOM4
N$ = "U"
INV
36 GOSUB MOVE
IF D$ = "U" THEN GOTO P44
IF D$ = "R" THEN GOTO P46
IF D$ = "B" THEN GOTO P28
GOTO 36

P37:
GOSUB ROOM5
N$ = "U"
INV
37 GOSUB MOVE
IF D$ = "B" THEN GOTO P41
GOTO 37

P38:
GOSUB ROOM17
N$ = "D"
INV
38 GOSUB MOVE
IF D$ = "L" THEN GOTO P46
IF D$ = "U" THEN GOTO P28
IF D$ = "B" THEN GOTO P44
GOTO 38

P39:
GOSUB ROOM10
N$ = "U"
INV
39 GOSUB MOVE
IF D$ = "L" THEN GOTO P29
IF D$ = "B" THEN GOTO P33
GOTO 39

P40:
GOSUB ROOM18
N$ = "U"
INV
40 GOSUB MOVE
IF D$ = "L" THEN GOTO P53
IF D$ = "U" THEN GOTO P42
IF D$ = "B" THEN GOTO P49
GOTO 40

P41:
GOSUB ROOM10
N$ = "D"
INV
41 GOSUB MOVE
IF D$ = "L" THEN GOTO P45
IF D$ = "B" THEN GOTO P37
GOTO 41

P42:
GOSUB ROOM19
N$ = "U"
INV
42 GOSUB MOVE
IF D$ = "L" THEN GOTO P43
IF D$ = "U" THEN GOTO P50
IF D$ = "B" THEN GOTO P52
GOTO 42

P43:
GOSUB ROOM20
N$ = "R"
INV
43 GOSUB MOVE
IF D$ = "L" THEN GOTO P28
IF D$ = "R" THEN GOTO P44
IF D$ = "B" THEN GOTO P46
GOTO 43

P44:
GOSUB ROOM10
N$ = "U"
INV
44 GOSUB MOVE
IF D$ = "L" THEN GOTO P32
IF D$ = "B" THEN GOTO P38
GOTO 44

P45:
GOSUB ROOM3
N$ = "L"
INV
45 GOSUB MOVE
IF D$ = "R" THEN GOTO P38
IF D$ = "B" THEN GOTO P32
GOTO 45

P46:
GOSUB ROOM7
N$ = "L"
INV
46 GOSUB MOVE
IF D$ = "L" THEN GOTO P50
IF D$ = "R" THEN GOTO P52
IF D$ = "B" THEN GOTO P43
GOTO 46

P47:
GOSUB ROOM7
N$ = "L"
INV
47 GOSUB MOVE
IF D$ = "L" THEN GOTO P42
IF D$ = "R" THEN GOTO P49
IF D$ = "B" THEN GOTO P53
GOTO 47

P48:
GOSUB ROOM21
N$ = "D"
MES$ = ""
INV
48 GOSUB MOVE
IF D$ = "U" THEN GOTO P52
IF D$ = "R" THEN GOTO P43
IF D$ = "B" THEN GOTO P50
GOTO 48

P49:
GOSUB ROOM3
N$ = "D"
INV
49 GOSUB MOVE
IF D$ = "R" THEN GOTO P56
IF D$ = "B" THEN GOTO P40
GOTO 49

P50:
GOSUB ROOM22
N$ = "U"
MES$ = "LOCKED DOOR, YOU NEED A KEY "
INV
50 GOSUB MOVE
IF D$ = "U" AND K = 1 THEN GOTO P89
IF D$ = "B" THEN GOTO P48
GOTO 50

P51:
GOSUB ROOM15
N$ = "L"
INV
51 GOSUB MOVE
IF D$ = "U" THEN GOTO P47
IF D$ = "B" THEN GOTO P58
GOTO 51

P52:
GOSUB ROOM4
N$ = "D"
INV
52 GOSUB MOVE
IF D$ = "U" THEN GOTO P49
IF D$ = "R" THEN GOTO P53
IF D$ = "B" THEN GOTO P42
GOTO 52

P53:
GOSUB ROOM15
N$ = "R"
INV
53 GOSUB MOVE
IF D$ = "U" THEN GOTO P58
IF D$ = "B" THEN GOTO P47
GOTO 53

P54:
GOSUB ROOM10
N$ = "L"
INV
54 GOSUB MOVE
IF D$ = "L" THEN GOTO P40
IF D$ = "B" THEN GOTO P56
GOTO 54

P55:
GOSUB ROOM10
N$ = "U"
INV
55 GOSUB MOVE
IF D$ = "L" THEN GOTO P57
IF D$ = "B" THEN GOTO P60
GOTO 55

P56:
GOSUB ROOM5
N$ = "R"
INV
56 GOSUB MOVE
IF D$ = "B" THEN GOTO P54
GOTO 56

P57:
GOSUB ROOM7
N$ = "R"
INV
57 GOSUB MOVE
IF D$ = "L" THEN GOTO P73
IF D$ = "R" THEN GOTO P68
IF D$ = "B" THEN GOTO P64
GOTO 57
 
P58:
GOSUB ROOM3
N$ = "R"
INV
58 GOSUB MOVE
IF D$ = "R" THEN GOTO P55
IF D$ = "B" THEN GOTO P51
GOTO 58

P59:
GOSUB ROOM7
N$ = "R"
INV
59 GOSUB MOVE
IF D$ = "R" THEN GOTO P66
IF D$ = "L" THEN GOTO P67
IF D$ = "B" THEN GOTO P65
GOTO 59

P60:
GOSUB ROOM10
N$ = "D"
INV
60 GOSUB MOVE
IF D$ = "L" THEN GOTO P51
IF D$ = "B" THEN GOTO P55
GOTO 60

P61:
GOSUB ROOM23
N$ = "D"
INV
61 GOSUB MOVE
IF D$ = "U" THEN GOTO P73
IF D$ = "L" THEN GOTO P64
IF D$ = "B" THEN GOTO P68
GOTO 61

P62:
GOSUB ROOM10
N$ = "R"
INV
62 GOSUB MOVE
IF D$ = "L" THEN GOTO P71
IF D$ = "B" THEN GOTO P69
GOTO 62

P63:
GOSUB ROOM4
N$ = "U"
INV
63 GOSUB MOVE
IF D$ = "U" THEN GOTO P66
IF D$ = "R" THEN GOTO P65
IF D$ = "B" THEN GOTO P67
GOTO 63

P64:
GOSUB ROOM3
N$ = "L"
INV
64 GOSUB MOVE
IF D$ = "R" THEN GOTO P60
IF D$ = "B" THEN GOTO P57
GOTO 64

P65:
GOSUB ROOM3
N$ = "L"
INV
65 GOSUB MOVE
IF D$ = "R" THEN GOTO P61
IF D$ = "B" THEN GOTO P59
GOTO 65

P66:
GOSUB ROOM3
N$ = "U"
INV
66 GOSUB MOVE
IF D$ = "R" THEN GOTO P69
IF D$ = "B" THEN GOTO P71
GOTO 66

P67:
GOSUB ROOM5
N$ = "D"
INV
67 GOSUB MOVE
IF D$ = "B" THEN GOTO P63
GOTO 67

P68:
GOSUB ROOM10
N$ = "U"
INV
68 GOSUB MOVE
IF D$ = "L" THEN GOTO P59
IF D$ = "B" THEN GOTO P61
GOTO 68

P69:
GOSUB ROOM5
N$ = "L"
INV
69 GOSUB MOVE
IF D$ = "B" THEN GOTO P62
GOTO 69

P70:
GOSUB ROOM4
N$ = "U"
INV
70 GOSUB MOVE
IF D$ = "U" THEN GOTO P68
IF D$ = "R" THEN GOTO P64
IF D$ = "B" THEN GOTO P75
GOTO 70

P71:
GOSUB ROOM8
N$ = "D"
INV
71 GOSUB MOVE
IF D$ = "U" THEN GOTO P67
IF D$ = "L" THEN GOTO P65
IF D$ = "B" THEN GOTO P66
GOTO 71

P72:
GOSUB ROOM24
C = 0: K = 0    'LOOSE KEY & COMPASS AFTER TRAP DOOR
MES$ = "DEAD END BEHIND YOU"
INV
72 GOSUB MOVE
IF D$ = "U" THEN GOTO P14
GOTO 72

P73:
GOSUB ROOM4
N$ = "D"
INV
73 GOSUB MOVE
IF D$ = "U" THEN GOTO P79
IF D$ = "R" THEN GOTO P77
IF D$ = "B" THEN GOTO P70
GOTO 73

P74:
GOSUB ROOM15
N$ = "U"
INV
74 GOSUB MOVE
IF D$ = "U" THEN GOTO P78
IF D$ = "B" THEN GOTO P84
GOTO 74

P75:
GOSUB ROOM4
N$ = "R"
INV
75 GOSUB MOVE
IF D$ = "U" THEN GOTO P85
IF D$ = "R" THEN GOTO P81
IF D$ = "B" THEN GOTO P87
GOTO 75

P76:
GOSUB ROOM5
N$ = "L"
INV
76 GOSUB MOVE
IF D$ = "B" THEN GOTO P82
GOTO 76

P77:
GOSUB ROOM25
N$ = "R"
INV
77 GOSUB MOVE
IF D$ = "R" THEN GOTO P88
IF D$ = "L" THEN GOTO P83
IF D$ = "B" THEN GOTO P86
GOTO 77

P78:
IF K = 0 THEN GOSUB ROOM26 ELSE GOSUB ROOM37
IF K = 0 THEN MES$ = "YOU FOUND A KEY"
N$ = "U": K = 1
INV
78 GOSUB MOVE
IF D$ = "R" THEN GOTO P76
IF D$ = "B" THEN GOTO P90
GOTO 78

P79:
GOSUB ROOM7
N$ = "D"
INV
79 GOSUB MOVE
IF D$ = "R" THEN GOTO P85
IF D$ = "L" THEN GOTO P87
IF D$ = "B" THEN GOTO P81
GOTO 79

P80:
GOSUB ROOM8
N$ = "D"
INV
80 GOSUB MOVE
IF D$ = "U" THEN GOTO P83
IF D$ = "L" THEN GOTO P86
IF D$ = "B" THEN GOTO P88
GOTO 80

P81:
GOSUB ROOM23
N$ = "U"
INV
81 GOSUB MOVE
IF D$ = "U" THEN GOTO P70
IF D$ = "L" THEN GOTO P77
IF D$ = "B" THEN GOTO P79
GOTO 81

P82:
GOSUB ROOM38
N$ = "R"
INV
82 GOSUB MOVE
IF D$ = "L" THEN GOTO P90
IF D$ = "B" THEN GOTO P76
GOTO 82

P83:
GOSUB ROOM28
N$ = "D"
MES$ = "TRAP DOOR!"
INV
FOR W = 1 TO 400 'WAIT A WHILE
GOSUB MOVE
NEXT W
GOTO P72

P84:
GOSUB ROOM14
N$ = "D"
INV
84 GOSUB MOVE
IF D$ = "U" THEN GOTO P80
IF D$ = "B" THEN GOTO P74
GOTO 84

P85:
GOSUB ROOM29
N$ = "R"
MES$ = "TRAP DOOR!"
INV
FOR W = 1 TO 300  'WAIT A WHILE
GOSUB MOVE
NEXT W
GOTO P72

P86:
GOSUB ROOM7
N$ = "L"
INV
86 GOSUB MOVE
IF D$ = "R" THEN GOTO P79
IF D$ = "L" THEN GOTO P70
IF D$ = "B" THEN GOTO P77
GOTO 86

P87:
GOSUB ROOM5
N$ = "L"
INV
87 GOSUB MOVE
IF D$ = "B" THEN GOTO P75
GOTO 87

P88:
GOSUB ROOM16
N$ = "U"
INV
88 GOSUB MOVE
IF D$ = "U" THEN GOTO P74
IF D$ = "B" THEN GOTO P80
GOTO 88

P89:
GOSUB ROOM10
N$ = "U"
MES$ = ""
INV
89 GOSUB MOVE
IF D$ = "L" THEN GOTO P94
IF D$ = "B" THEN GOTO P97
GOTO 89

P90:
GOSUB ROOM31
N$ = "D"
INV
90 GOSUB MOVE
IF D$ = "U" THEN GOTO P84
IF D$ = "B" THEN GOTO P78
GOTO 90

P91:
GOSUB ROOM32
N$ = "L"
INV
91 GOSUB MOVE
IF D$ = "R" THEN GOTO P97
IF D$ = "B" THEN GOTO P94
GOTO 91

P92:
GOSUB ROOM3
N$ = "D"
INV
92 GOSUB MOVE
IF D$ = "R" THEN GOTO P95
IF D$ = "B" THEN GOTO P98
GOTO 92

P93:
GOSUB ROOM8
N$ = "L"
INV
93 GOSUB MOVE
IF D$ = "U" THEN GOTO P94
IF D$ = "L" THEN GOTO P100
IF D$ = "B" THEN GOTO P101
GOTO 93

P94:
GOSUB ROOM33
N$ = "R"
INV
94 GOSUB MOVE
IF D$ = "L" THEN GOTO P92
IF D$ = "B" THEN GOTO P91
GOTO 94

P95:
GOSUB ROOM4
N$ = "R"
INV
95 GOSUB MOVE
IF D$ = "U" THEN GOTO P101
IF D$ = "R" THEN GOTO P100
IF D$ = "B" THEN GOTO P99
GOTO 95

P96:
GOSUB ROOM7
N$ = "D"
MES$ = ""
INV
96 GOSUB MOVE
IF D$ = "R" THEN GOTO P101
IF D$ = "L" THEN GOTO P99
IF D$ = "B" THEN GOTO P100
GOTO 96

P97:
GOSUB ROOM36
N$ = "D"
MES$ = "LOCKED DOOR BEHIND YOU"
INV
97 GOSUB MOVE
IF D$ = "U" THEN GOTO P49
IF D$ = "B" THEN GOTO P89
GOTO 97

P98:
GOSUB ROOM3
N$ = "U"
INV
98 GOSUB MOVE
IF D$ = "R" THEN GOTO P91
IF D$ = "B" THEN GOTO P92
GOTO 98

P99:
GOSUB ROOM34
N$ = "L"
INV
99 GOSUB MOVE
IF D$ = "L" THEN GOTO P98
IF D$ = "B" THEN GOTO P95
GOTO 99

P100:
GOSUB ROOM22
N$ = "U"
MES$ = "LOCKED DOOR. YOU NEED A KEY"
INV
100 GOSUB MOVE
IF D$ = "U" THEN GOTO P102
IF D$ = "B" THEN GOTO P96
GOTO 100

P101:
GOSUB ROOM5
N$ = "R"
INV
101 GOSUB MOVE
IF D$ = "B" THEN GOTO P93
GOTO 101

P102:
GOSUB ROOM35
N$ = "U"
MES$ = "YOU FOUND YOUR WAY OUT!"
INV
GOSUB MOVE
END




MOVE:
D$ = "0"
M$ = INKEY$
NT = TIMER
IF T > 59 THEN M = M + 1: ST = TIMER  'ADVANCES MINUTES
T = NT - ST     'CHANGES SECONDS
LOCATE 17, 50: PRINT M; ":";
LOCATE 17, 54
IF T < 10 THEN PRINT USING "0#  "; T ELSE LOCATE 17, 54: PRINT USING "##  "; T
IF M$ = CHR$(0) + "M" THEN D$ = "R" ELSE
IF M$ = CHR$(0) + "K" THEN D$ = "L" ELSE
IF M$ = CHR$(0) + "H" THEN D$ = "U" ELSE
IF M$ = CHR$(0) + "P" THEN D$ = "B" ELSE
IF M$ = CHR$(27) THEN END
RETURN





END

ROOM2:    'FORWARD, RIGHT, & LEFT
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"       'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,10;F75;R150;D150;L30;U50;NL90;U70;L90;D120;L30;U150"'FRONT DOOR
DRAW "C0;BM10,310;E15;U225;F45;NL45;D135;NL45;E15"   'LEFT DOOR
DRAW "C0;BM310,310;H15;U225;G45;NR45;D135;NR45;H15"  'RIGHT DOOR
PAINT (150, 255), BROWN, BLACK
PAINT (1, 1), BLACK, BLACK
RETURN


ROOM3:     'DOOR ON RIGHT
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"   'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,10;F75;R150;D150;L150;NG75;U150"   'BACK & LEFT WALL
DRAW "C0;BM310,310;H15;U225;G45;NR45;D135;NR45;H15"  'RIGHT DOOR
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN

ROOM4:      'FORWARD & RIGHT
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM310,310;H15;U225;G45;NR45;D135;NR45;H15"  'RIGHT DOOR
DRAW "C0;BM10,10;F75;R150;D150;L30;U50;NL90;U70;L90;D120;L30;U150"'FRONT DOOR
DRAW "C0;BM10,10;F75;D150;NG75"   'BACK & LEFT WALL
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN

ROOM5:     'DEAD END
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,10;F75;D150;NG75;R150;NF75;U150;L150"   'BACK & LEFT WALL
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN

ROOM6:     'RIGHT, LEFT, & LOCKED DOOR
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM310,310;H15;U225;G45;NR45;D135;NR45;H15"  'RIGHT DOOR
DRAW "C0;BM10,310;E15;U225;F45;NL45;D135;NL45;E15;R150;U150;L150;NH75;D150"
DRAW "C0;BM115,235;U80;R90;D15;NL90;D30;L90;D15;R90"            'ENTERANCE
DRAW "C0;BM205,235;U75"            ''
CIRCLE (160, 160), 45, 0, 0, 3.15  ''
DRAW "C0;BM130,235;U20;BU15;U30;BU15;U28"   'BOARDS ON DOOR
DRAW "C0;BM145,235;U20;BU15;U30;BU15;U37"   ''
DRAW "C0;BM160,235;U20;BU15;U30;BU15;U40"   ''
DRAW "C0;BM175,235;U20;BU15;U30;BU15;U37"   ''
DRAW "C0;BM190,235;U20;BU15;U30;BU15;U28"   ''
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN

ROOM7:      'RIGHT & LEFT
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM310,310;H15;U225;G45;NR45;D135;NR45;H15"  'RIGHT DOOR
DRAW "C0;BM10,310;E15;U225;F45;NL45;D135;NL45;E15"   'LEFT DOOR
DRAW "C0;BM10,10;F75;D150;R150;U150;L150"   'BACK & LEFT WALL
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN

ROOM8:       'LEFT & FORWARD
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,310;E15;U225;F45;NL45;D135;NL45;E15"   'LEFT DOOR
DRAW "C0;BM10,10;F75;R150;D150;NF75;L30;U50;NL90;U70;L90;D120;L30;U150"'FRONT DOOR
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN
                                                            
ROOM9:      'RIGHT & FORWARD 3 TIMES
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM310,310;H15;U225;G45;NR45;D135;NR45;H15"  'RIGHT DOOR
DRAW "C0;BM10,10;F75;R150;D150;L30;U50;U70;L90;D120;L30;NG75;U150"'FRONT DOOR
DRAW "C0;BM115,190;R22;U60;R46;D60;R22"   ' 2'ND  DOOR
DRAW "C0;BM137,165;R15;U10;NR15;U15;R15;D25;R15"  ' 3'RD DOOR
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN

ROOM10:      'DOOR ON LEFT
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,310;E15;U225;F45;NL45;D135;NL45;E15"   'LEFT DOOR
DRAW "C0;BM10,10;F75;D150;R150;NF75;U150;L150"   'BACK WALL
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN

ROOM11:      'LEFT, FORWARD 2 TIMES, ENTRANCE ON RIGHT
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,310;E15;U225;F45;NL45;D135;NL45;E15"   'LEFT DOOR
DRAW "C0;BM10,10;F75;R150;D150;NF75;L30;U50;U70;L90;D120;L30;U150"'FRONT DOOR
DRAW "C0;BM115,190;R22;U60;R46;D60;R22"   ' 2'ND  DOOR
DRAW "C0;BM137,165;R46"     'WALL 3'RD ROOM
DRAW "C0;BM250,250;U100;R45;D20;TA-10;NL45;TA0;D80;TA-35;NL55;TA0;U20;TA-30;NL52;TA0;D65"
CIRCLE (273, 155), 58, 0, 0, 3.15, 2.5    'ENTRANCE ^^^
DRAW "C0;BM258,258;U34;BU15;U45;BU15;U38"  'BOARD ON DOOR
DRAW "C0;BM265,265;U35;BU17;U48;BU15;U50"  ''
DRAW "C0;BM273,273;U39;BU17;U50;BU17;U52"  ''
DRAW "C0;BM280,280;U40;BU18;U55;BU17;U50"  ''
DRAW "C0;BM288,288;U43;BU18;U57;BU20;U40"  ''
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN


ROOM12:     'DOOR ON LEFT, FORWARD 3 TIMES
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,310;E15;U225;F45;NL45;D135;NL45;E15"   'LEFT DOOR
DRAW "C0;BM10,10;F75;R150;D150;NF75;L30;U50;U70;L90;D120;L30;U150"'FRONT DOOR
DRAW "C0;BM115,190;R22;U60;R46;D60;R22"   ' 2'ND  DOOR
DRAW "C0;BM137,165;R15;U10;NR15;U15;R15;D25;R15"  ' 3'RD DOOR
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN


ROOM13:    'ENTERANCE ON LEFT
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,10;F75;R150;D150;L30;U50;U70;L90;D120;L30;NG75;U150"'FRONT DOOR
DRAW "C0;BM115,190;R22;U60;R46;D60;R22"   ' 2'ND  DOOR
DRAW "C0;BM137,165;R46"     'WALL 3'RD ROOM
DRAW "C0;BM310,310;H15;U225;G45;NR45;D135;NR45;H15"  'RIGHT DOOR
DRAW "C0;BM70,250;U100;L45;D20;TA10;NR45;TA0;D80;TA35;NR55;TA0;U20;TA30;NR52;TA0;D65"
CIRCLE (48, 155), 58, 0, 0, 3.15, 2.5    'ENTRANCE ^^^
DRAW "C0;BM63,258;U34;BU15;U45;BU15;U38"  'BOARD ON DOOR
DRAW "C0;BM55,265;U35;BU17;U48;BU15;U50"  ''
DRAW "C0;BM48,273;U39;BU17;U50;BU17;U52"  ''
DRAW "C0;BM40,280;U40;BU18;U55;BU17;U50"  ''
DRAW "C0;BM33,288;U43;BU19;U57;BU20;U39"  ''
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN


ROOM14:    'STAIRS GOING UP
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,10;F75;R150;D150;NF75;L30;U120;L90;D120;NR120;L30;NG75;U150"'FRONT DOOR
DRAW "C0;BM115,235;U15;NE10;R90;H10;NU14;L70;U14;NE9;R70;H9;NU13;L52;U13;NE8"
DRAW "R52;H8;NU12;L36;U12;NE7;R35;H7;L20"    'STAIRS^^^
PAINT (140, 140), BLACK, BLACK
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN

ROOM15:   'FORWARD ONCE
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,10;F75;R150;D150;NF75;L30;U50;NL90;U70;L90;D120;L30;NG75;U150"'FRONT DOOR
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN


ROOM16:    'FORWARD 2 DOORS
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;NE75;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,10;F75;R150;D150;NF75;L30;U50;U70;L90;D120;L30;U150"'FRONT DOOR
DRAW "C0;BM115,190;R22;U60;R46;D60;R22"   ' 2'ND  DOOR
DRAW "C0;BM137,165;R46"     'WALL 3'RD ROOM
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN

ROOM17:    'STAIRS DOWN, DOOR ON LEFT
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,310;E15;U225;F45;NL45;D135;NL45;E15"   'LEFT DOOR
DRAW "C0;BM10,10;F75;R150;D150;NF75;L30;U120;L90;D120;NR90;L30;U150"'FRONT DOOR
DRAW "C0;BM115,115;TA-70;R70;TA0;ND53;R41;ND53;TA70;R70;TA0"
DRAW "C0;BM124,190;D10;TA-70;R35;TA0;U10;TA-70;L35;TA0" 'LEFT ARM RAIL
DRAW "C0;BM197,190;D10;TA70;L35;TA0;U10;TA70;R35;TA0"  'RIGHT ARM RAIL
PAINT (170, 190), BLACK, BLACK
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN

ROOM18:   'DOOR ON LEFT, LOCKED DOOR 2 ROOMS UP
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,310;E15;U225;F45;NL45;D135;NL45;E15"   'LEFT DOOR
DRAW "C0;BM10,10;F75;R150;D150;NF75;L30;U120;L90;D120;L30;U150"'FRONT DOOR
DRAW "C0;BM115,190;R22;U60;R46;D60;R22"   ' 2'ND  DOOR
DRAW "C0;BM137,165;R15;NR15;U20;E3;R9;F3;D1;NL15;D5;NL15;D5;NL15;D5;NL15;D4;R15" 'LOCKED DOOR
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN

ROOM19:     'DOOR ON LEFT, LOCKED DOOR 1 ROOM UP
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,310;E15;U225;F45;NL45;D135;NL45;E15"   'LEFT DOOR
DRAW "C0;BM10,10;F75;R150;D150;NF75;L30;U120;L90;D120;L30;U150"'FRONT DOOR
DRAW "C0;BM115,190;R22;NR46;U50;E10;R26;F10;NL46;D15;NL46;D15;NL46;D15;NL46D5;R22"'LOCKED DOOR
DRAW "C0;BM147,130;D10;BD15;D15;BD15;D5;R8;U5;BU15;U15;BU15;U10"  'BOARDS
DRAW "R10;D10;BD15;D15;BD15;D5;R8;U5;BU15;U15;BU15;U10"  'BOARDS"
DRAW "C0;BM178,165;D2": CIRCLE (178, 164), 1, 0: PAINT (178, 164), 0, 0
CIRCLE (145, 148), 3, 0: CIRCLE (155, 148), 3, 0: CIRCLE (165, 148), 3, 0
CIRCLE (175, 148), 3, 0: CIRCLE (145, 178), 3, 0: CIRCLE (155, 178), 3, 0
CIRCLE (165, 178), 3, 0: CIRCLE (175, 178), 3, 0 '<<ROUND^THINGS^^^
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN


ROOM20:     'STAIRS ON LEFT DOWN, DOOR ON RIGHT
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,310;E15;NE50;U225;F45;NL45;D135;E15"   'LEFT DOOR
DRAW "C0;BM310,310;H15;U225;G45;NR45;D135;NR45;H15"  'RIGHT DOOR
DRAW "C0;BM10,10;F75;D150;R150;U150;L150"   'BACK WALL
DRAW "C0;BM70,250;G5;L10;NG30;G5;L10;NG15;G5;L10;U40;TA25;R35;TA0;U10;TA25;L35;TA0"
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN


ROOM21:     'DOOR ON RIGHT, FORWARD 2 TIMES
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM310,310;H15;U225;G45;NR45;D135;NR45;H15"  'RIGHT DOOR
DRAW "C0;BM10,10;F75;R150;D150;L30;U50;U70;L90;D120;L30;NG75;U150"'FRONT DOOR
DRAW "C0;BM115,190;R22;U60;R46;D60;R22"   ' 2'ND  DOOR
DRAW "C0;BM137,165;R46"     'WALL 3'RD ROOM
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN


ROOM22:   'LOCKED DOOR
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,10;F75;R150;D150;NF75;L30;U100;H20;L50;G20;NR90;D25;NR90"
DRAW "D30;NR90;D25;NR90;D20;NR90;L30;NG75;U150"'FRONT DOOR
DRAW "C0;BM135,115;D20;BD25;D30;BD25;D20;R15;U20;BU25;U30;BU25;U20;R20"
DRAW "D20;BD25;D30;BD25;D20;R15;U20;BU25;U30;BU25;U20"  '<<BOARDS^^
CIRCLE (130, 148), 5, 0: CIRCLE (150, 148), 5, 0: CIRCLE (170, 148), 5, 0
CIRCLE (190, 148), 5, 0: CIRCLE (130, 203), 5, 0: CIRCLE (150, 203), 5, 0
CIRCLE (170, 203), 5, 0: CIRCLE (190, 203), 5, 0'<<ROUND^THINGS^^^
DRAW "C0;BM193,180;D5;RU5;RD5": CIRCLE (194, 176), 3, 0: PAINT (194, 175), 0, 0
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN

ROOM23:   'DOOR ON LEFT, FORWARD 2 TIMES
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,310;E15;U225;F45;NL45;D135;NL45;E15"   'LEFT DOOR
DRAW "C0;BM10,10;F75;R150;D150;NF75;L30;U50;U70;L90;D120;L30;U150"'FRONT DOOR
DRAW "C0;BM115,190;R22;U60;R46;D60;R22"   ' 2'ND  DOOR
DRAW "C0;BM137,165;R46"     'WALL 3'RD ROOM
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN

ROOM24:      'FORWARD 4 TIMES
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,10;F75;R150;D150;NF75;L30;U50;U70;L90;D120;L30;NG75;U150"'FRONT DOOR
DRAW "C0;BM115,190;R22;U60;R46;D60;R22"   ' 2'ND  DOOR
DRAW "C0;BM137,165;R15;U25;R15;D25;R15"  ' 3'RD DOOR
DRAW "C0;BM137,165;R15;U10;R4;U3;NR6;U5;R6;D8;R4"   ' 4'TH DOOR
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN

ROOM25:     'DOOR ON LEFT, STAIRS ON RIGHT
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,310;E15;U225;F45;NL45;D135;NL45;E15"   'LEFT DOOR
DRAW "C0;BM10,10;F75;D150;R150;NF75;U150;L150"   'BACK WALL
DRAW "C0;BM310,310;H15;U225;G45;NR45;D135;H15"  'RIGHT DOOR
DRAW "C0;BM250,250;F5;R10;NF30;F5;R10;NF15;F5;R10;U40;TA-25;L35;TA0;U10;TA-25;R35;TA0"
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN


ROOM26:     'KEY,  DOOR ON RIGHT
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"   'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,10;F75;R150;D150;L150;NG75;U150"   'BACK & LEFT WALL
DRAW "C0;BM310,310;H15;U225;G45;NR45;D135;NR45;H15"  'RIGHT DOOR
CIRCLE (160, 145), 3, 0: PAINT (160, 143), 0, 0  'KEY POST
CIRCLE (160, 150), 10, 0: CIRCLE (160, 150), 8, 0: PAINT (160, 141), YELLOW, 0
DRAW "C0;BM158,160;D20;R3;U3;R3;U3;L3;U3;R5;U3;L5;U8"  '<<KEY^^
PAINT (160, 170), YELLOW, BLACK    'YELLOW FOR KEY
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN


ROOM28:   'TRAP DOOR, DOOR ON LEFT
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,310;E15;U225;F45;NL45;D135;NL45;E15"   'LEFT DOOR
DRAW "C0;BM10,10;F75;D150;R150;NF75;U150;L150"   'BACK WALL
DRAW "C0;BM100,295;R100;NU27;R10;NU14;R10;TA-55;L50;TA0;ND40;L65;TA0;ND15"
DRAW "TA55;L50;TA0;R10;TA55R30;TA0;R65"   '<<<TRAP DOOR^^^
PAINT (150, 280), BLACK, BLACK
PAINT (150, 240), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN

ROOM29:    'TRAP DOOR, DOOR ON RIGHT
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"   'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,10;F75;R150;D150;L150;NG75;U150"   'BACK & LEFT WALL
DRAW "C0;BM310,310;H15;U225;G45;NR45;D135;NR45;H15"  'RIGHT DOOR
DRAW "C0;BM100,295;R110;TA-55;NL34;TA0;R10;TA-55;L50;TA0;ND40;L15;ND40;L15"
DRAW "ND40;L15;ND40;L15;ND40;L9;TA0;ND40;TA55;L50;TA0;R10;TA55;R30;TA0"
                       '<<<TRAP DOOR^^^
PAINT (120, 280), BLACK, BLACK: PAINT (195, 280), BLACK, BLACK
PAINT (150, 240), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN


ROOM31:       'FORWARD, 1 ROOM TO STAIRS
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;NE75;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,10;F75;R150;D150;NF75;L30;U50;U70;L90;D120;L30;U150"'FRONT DOOR
DRAW "C0;BM115,190;R22;NR46;U60;R46;D60;R22"   ' 2'ND  DOOR
DRAW "C0;BM115,190;R22;U5;R46;H3;NU5;L40;NG3;U5;NE3;R40;H3;NU4;L33;U4;NE2;R33"
DRAW "H2;NU3;L30;U4;R30"    'STAIRS
PAINT (150, 150), BLACK, BLACK
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN

ROOM32:  'OPEN DOOR ON RIGHT
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"   'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,10;F75;R150;D40;BD110;BL75;L75;NG75;U150"   'BACK & LEFT WALL
DRAW "C0;BM310,310;H15;U225;G45;NR45;D135;NR45;L90;U110;NR90;E20;R50;F20;D25"
DRAW "NL90;D30;NL90;D25;NL90"  'RIGHT DOOR
DRAW "C0;BM180,120;D20;BD25;D30;BD25;D30;R15;U30;BU25;U30;BU25;U20;R20"
DRAW "D20;BD25;D30;BD25;D30;R15;U30;BU25;U30;BU25;U20"  '<<BOARDS^^
CIRCLE (175, 153), 5, 0: CIRCLE (195, 153), 5, 0: CIRCLE (215, 153), 5, 0
CIRCLE (235, 153), 5, 0: CIRCLE (175, 208), 5, 0: CIRCLE (195, 208), 5, 0
CIRCLE (215, 208), 5, 0: CIRCLE (235, 208), 5, 0'<<ROUND^THINGS^^^
DRAW "C0;BM170,180;D5;RU5;RD5": CIRCLE (171, 176), 3, 0: PAINT (171, 175), 0, 0
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN


ROOM33:    'STAIRS DOWN TO LEFT
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,310;E15;NE50;U225;F45;NL45;D135;E15"   'LEFT DOOR
DRAW "C0;BM10,10;F75;D150;R150;NF75;U150;L150"   'BACK WALL
DRAW "C0;BM70,250;G5;L10;NG30;G5;L10;NG15;G5;L10;U40;TA25;R35;TA0;U10;TA25;L35;TA0"
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN

ROOM34:    'STAIRS ON LEFT GOING UP
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,310;E15;NE50;U225;F45;NL45;D135;E15"   'LEFT DOOR
DRAW "C0;BM70,250;U15;NG45;L20;NG25;U15;NG23;L20;NG5;U15;NG5;L5;U40;TA-25;R35"
DRAW "TA0;U10;TA-25;L35;TA0"    'STAIRS
DRAW "C0;BM10,10;F75;D150;R150;NF75;U150;L150"   'BACK WALL
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN


ROOM35:    'EXIT
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;D300;L300;U120;NR300;U180"    'SQUARE & TOP RIGHT DIAGONAL
PAINT (170, 170), BLUE, BLACK
PAINT (170, 290), GREEN, BLACK
PAINT (1, 1), BLACK, BLACK
CIRCLE (100, 100), 20, YELLOW     'SUN
PAINT (100, 100), YELLOW, YELLOW   'FILL SUN
RETURN

ROOM36:   'FORWARD 3 TIMES
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;NH75;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,10;F75;R150;D150;L30;U50;U70;L90;D120;L30;NG75;U150"'FRONT DOOR
DRAW "C0;BM115,190;R22;U60;R46;D60;R22"   ' 2'ND  DOOR
DRAW "C0;BM137,165;R15;U10;NR15;U15;R15;D25;R15"  ' 3'RD DOOR
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN

ROOM37:   'KEY POST, DOOR ON RIGHT
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"   'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,10;F75;R150;D150;L150;NG75;U150"   'BACK & LEFT WALL
DRAW "C0;BM310,310;H15;U225;G45;NR45;D135;NR45;H15"  'RIGHT DOOR
CIRCLE (160, 145), 3, 0: PAINT (160, 143), 0, 0  'KEY POST
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN

ROOM38:   'KEYPOST, DOOR ON LEFT
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,310;E15;U225;F45;NL45;D135;NL45;E15"   'LEFT DOOR
DRAW "C0;BM10,10;F75;D150;R150;NF75;U150;L150"   'BACK WALL
DRAW "C0;BM270,145;L20;D3;R20;U3": PAINT (269, 146), BLACK, BLACK
PAINT (150, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN


ROOM39:        'ROOM WITH COMPASS
CLS
PAINT (10, 10), GRAY
DRAW "C0;BM10,10;R300;NG75;D300;L300;U300"    'SQUARE & TOP RIGHT DIAGONAL
DRAW "C0;BM10,10;F75;D150;NG75;R150;NF75;U150;L150"   'BACK & LEFT WALL
CIRCLE (160, 255), 30, 0, , , .2: CIRCLE (160, 265), 30, 0, 3, 0, .2
DRAW "C0;BM130,255;D10BR60;U10;C4;BM160,255;U2;TA-5;R25;TA5;L24;TA0;U4;L1"
DRAW "C7;TA3;L24;TA-3;R24;U4;TA0": PAINT (158, 255), WHITE, WHITE
PAINT (162, 255), RED, RED
PAINT (110, 255), BROWN, BLACK   'CARPET
PAINT (1, 1), BLACK, BLACK
RETURN

SUB COLORS
SHARED BLACK, BLUE, GREEN, CYAN, RED, MAGENTA, BROWN, WHITE, GRAY
SHARED HIBLUE, HIGREEN, HICYAN, HIMAGENTA, YELLOW, HIWHITE
BLACK = 0
BLUE = 1
GREEN = 2
CYAN = 3
RED = 4
MAGENTA = 5
BROWN = 6
WHITE = 7
GRAY = 8
HIBLUE = 9
HIGREEN = 10
HICYAN = 11
HIRED = 12
HIMAGENTA = 13
YELLOW = 14
HIWHITE = 15
END SUB

SUB INV
SHARED N$, MES$, C, K
LOCATE 2, 50, 0
PRINT "INVENTORY:"
DRAW "C4;BM350,10;R250;D200;L250;U200"
DRAW "C4;BM10,330;R300;D70;L300;U70"
LOCATE 23, 5
PRINT MES$
IF C = 1 THEN GOSUB COMPASS
IF K = 1 THEN GOSUB KY


EXIT SUB
KY:
CIRCLE (530, 110), 10, 14: CIRCLE (530, 110), 8, 14: PAINT (530, 101), 14, 14
DRAW "C14;BM528,120;D20;R3;U3;R3;U3;L3;U3;R5;U3;L5;U8"  '<<KEY^^
PAINT (530, 130), 14, 14    'YELLOW FOR KEY
RETURN


EXIT SUB
COMPASS:
CIRCLE (400, 120), 30, 7
IF N$ = "R" THEN DRAW "C4;BM400,120;U2;TA-5;R25;TA5;L24;TA0;U4;L1;C7;TA3;L24"
IF N$ = "R" THEN DRAW "TA-3;R24;U4;TA0": PAINT (398, 120), 7, 7: PAINT (402, 120), 4, 4
IF N$ = "L" THEN DRAW "C7;BM400,120;U2;TA-5;R25;TA5;L24;TA0;U4;L1;C4;TA3;L24;"
IF N$ = "L" THEN DRAW "TA-3;R24;U4;TA0": PAINT (398, 120), 4, 4: PAINT (402, 120), 7, 7
IF N$ = "U" THEN DRAW "C4;BM400,120;L2;TA-5;U25;TA5;D24;TA0;L3;D1;C7;TA3;D24"
IF N$ = "U" THEN DRAW "TA-3;U24;L4;TA0": PAINT (400, 118), 4, 4: PAINT (400, 122), 7, 7
IF N$ = "D" THEN DRAW "C7;BM400,120;L2;TA-5;U25;TA5;D24;TA0;L3;D1;C4;TA3;D24"
IF N$ = "D" THEN DRAW "TA-3;U24;L4;TA0": PAINT (400, 118), 7, 7: PAINT (400, 122), 4, 4
RETURN

END SUB