10 SCREEN 9
20 LOCATE 1
30 INPUT "Background (number from 1 to 16)?    ", col0%
40 IF col0% = 16 THEN col% = 0
50 IF col0% < 1 OR col0% > 16 THEN 20
90 LINE (0, 0)-(640, 350), col0%, BF
100 IF col0% = 0 THEN col100% = 1 ELSE col100% = 0
110 FOR a = 20 TO 615 STEP 5
120 LINE (a, 25)-(a, 324), col100%
130 NEXT a
140 LINE (619, 25)-(619, 324), col100%
150 FOR b = 25 TO 320 STEP 5
160 LINE (20, b)-(619, b), col100%
170 NEXT b
180 LINE (20, 324)-(619, 324), col100%
185 LOCATE 1
190 INPUT "Column number (from 1 to 120)?      ", row%
195 LOCATE 1
200 INPUT "Row number (from 1 to 60)?          ", column%
210 x = row%
220 y = column%
240 LOCATE 1
250 INPUT "Square colour (number from 1 to 16)"; col1%
260 IF col1% = 0 OR col1% > 16 THEN col1% = col0%
270 IF col1% = 16 THEN col1% = 0
280 LINE (x * 5 + 15, y * 5 + 20)-(x * 5 + 20, y * 5 + 25), col1%, BF
290 LINE (0, 0)-(640, 24), col1%, BF
300 LINE (0, 0)-(19, 350), col1%, BF
310 LINE (0, 325)-(640, 350), col1%, BF
320 LINE (621, 0)-(640, 350), col1%, BF
330 GOTO 185
999 LOCATE 1
1000 PRINT "Design finished now-press any key to return to basic. Then press F5 to try again"