/
house.bas
33 lines (32 loc) · 890 Bytes
/
house.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
SCREEN 12
_FULLSCREEN
LINE (0, 0)-(640, 480), 1, BF
CIRCLE (320, 1025), 700, 2
PAINT (320, 475), 2
CIRCLE (640, 0), 175, 14
PAINT (639, 1), 14
LINE (90, 150)-(160, 360), 6, BF
CIRCLE (125, 150), 60, 10
PAINT STEP(0, 0), 10
LINE (90, 360)-(80, 380), 6
LINE (80, 380)-(100, 370), 6
LINE (100, 370)-(110, 380), 6
LINE (110, 380)-(120, 370), 6
LINE (120, 370)-(130, 380), 6
LINE (130, 380)-(140, 370), 6
LINE (140, 370)-(150, 380), 6
LINE (150, 380)-(160, 370), 6
LINE (160, 370)-(170, 380), 6
LINE (170, 380)-(160, 360), 6
LINE (230, 340)-(390, 240), 4, BF
LINE (290, 340)-(330, 280), 6, BF
LINE (390, 240)-(310, 180), 0,
LINE (230, 240)-(310, 180), 0,
LINE (390, 240)-(230, 240), 0
PAINT (300, 220), 0
LINE (310, 180)-(405, 250), 0
LINE (310, 180)-(215, 250), 0
LINE (340, 285)-(370, 310), 15, BF
LINE (280, 285)-(250, 310), 15, BF
PAINT (145, 365), 6
SLEEP