100 CLS
110 LINE(0,20)-(50,20)
111 LINE(50,20)-(50,18)
112 LINE(50,18)-(52,18)
113 LINE(52,18)-(52,22)
114 LINE(52,22)-(50,22)
120 LINE(50,22)-(50,63)
121 LINE(5,30)-(10,35),1,BF
122 LINE(20,30)-(25,35),1,B
123 LINE(35,30)-(40,35),1,B
124 LINE(5,40)-(10,45),1,B
125 LINE(20,40)-(25,45),1,BF
126 LINE(35,40)-(40,45),1,B
127 LINE(5,50)-(10,55),1,B
128 LINE(20,50)-(25,55),1,B
129 LINE(35,50)-(40,55),1,B
130 LINE(48,20)-(48,16)
131 LINE(45,14)-(51,16),1,B
200 REM left building
510 LINE(189,20)-(239,20)
511 LINE(189,20)-(189,18)
512 LINE(189,18)-(187,18)
513 LINE(187,18)-(187,22)
514 LINE(187,22)-(189,22)
520 LINE(189,22)-(189,63)
521 LINE(234,30)-(229,35),1,B
522 LINE(219,30)-(214,35),1,BF
523 LINE(204,30)-(199,35),1,B
524 LINE(234,40)-(229,45),1,B
525 LINE(219,40)-(214,45),1,B
526 LINE(204,40)-(199,45),1,B
527 LINE(234,50)-(229,55),1,BF
528 LINE(219,50)-(214,55),1,B
529 LINE(204,50)-(199,55),1,B
530 LINE(191,20)-(191,16)
531 LINE(194,14)-(188,16),1,B
600 FOR L% = 54 TO 185 STEP 4
610  PSET(L%,14)
620  PSET(L%+1,15)
630  PSET(L%+1,16)
640  PSET(L%,17)
650 NEXT L%
700 FOR L% = 54 TO 185 STEP 4
710  PRESET(L%,14)
720  PRESET(L%+1,15)
730  PRESET(L%+1,16)
740  PRESET(L%,17)
750 NEXT L%
760 FOR I% = 1 TO 1000
770 NEXT I%
800 FOR L% = 185 TO 54 STEP -4
810  PSET(L%,14)
820  PSET(L%-1,15)
830  PSET(L%-1,16)
840  PSET(L%,17)
850 NEXT L%
900 FOR L% = 185 TO 54 STEP -4
910  PRESET(L%,14)
920  PRESET(L%-1,15)
930  PRESET(L%-1,16)
940  PRESET(L%,17)
950 NEXT L%
999 GOTO 600