Here - 1000 BiT

We can number the streets and houses like those in real towns:Street 0 at the top of the screenStreet 1 next belowStreet 24 at the bottom of the screenWe number the houses on each street:House 0 on the left of each streetHouse 1 next to itHouse 39 at the right end of the streetThen we use a little formula to get the address of each house and its color box.screen address = 1024 + 40 *street number + house numbercolor address = 55296 + 40 * street number + house number(See line 50 below.)Enter10 REM TOWN MAP15 SC= 1024 :REM SCREEN CORNER16 CCH55296 :REM COLOR CORNER17 B$="hm dn sp sp ... sp" (16 spaces)20PRINT"clr";30 INPUT'hm dn WHICH STREET";S35 PRINT B$; :REM ERASE WRITING40 INPUrhm dn WHICH HOUSE";H43 PRINT B$;45 C=5 :REM COLOR NUMBER 550 AD = 40*S + H :REM ADDRESS55 POKE AD+SC.102 :REM POKE SCREEN CELL56 POKE AD+CC.C :REM POKE COLOR CELL57 FOR T=1 TO 2000:NEXT T80 GOTO 30Save to tape or disk,.then run.(Omit the REM statements when you type this in.)129