SCREEN 7 CLS 'back wall COLOR 4: PSET (55, 30): DRAW "r180 d80 l180 u80": PAINT (101, 31) 'left tilt PSET (55, 30): DRAW "h100 d280 e100 u80": PAINT (2, 50) 'right tilt PSET (235, 30): DRAW "e100 d280 h100 u80": PAINT (240, 60) 'ceiling COLOR 6: PSET (55, 30): DRAW "h100 r380 g100 l180": PAINT (56, 15) 'floor COLOR 7: PSET (55, 110): DRAW "g100 r380 h100 l180": PAINT (60, 120) 'back door open COLOR 7: PSET (100, 110): DRAW "u55 r45 d55 l45": PAINT (101, 105) COLOR 0: PSET (100, 110): DRAW "u55 r45 d55 l45" COLOR 6: PSET (100, 110): DRAW "u55 g25 d55 e25": PAINT (90, 90) COLOR 0: PSET (100, 110): DRAW "u55 g25 d55 e25" COLOR 14: PSET (80, 100): DRAW "r1 d5 l1 u5" 'trap door COLOR 6: PSET (100, 150): : DRAW "r30 f30 l90 e30": PAINT (101, 151) COLOR 0: PSET (100, 150): : DRAW "r30 f30 l90 e30" CIRCLE (115, 170), 1: PAINT (115, 170) PSET (115, 175): DRAW "d3" COLOR 6: PSET (100, 110): DRAW "u55 g25 d55 e25": PAINT (90, 90) COLOR 0: PSET (100, 110): DRAW "u55 g25 d55 e25"