10 REM ******************************
20 REM *       GET THE POINT        *
30 REM * PROGRAMMED BY MARTIN REDDY *
40 REM ******************************
50 REM     SYS 40000 TO START
60 CLR:FORY=0TO34:FORX=0TO15:READA
70 C=C+A:POKE39984+Y*16+X,A:NEXTX
80 READA:IFA<>CTHENPRINT"?ERROR IN LINE"100+Y*10:END
90 C=0:NEXTY:PRINT"O.K."
100 DATA128,192,192,224,240,240,248,252,252,254,248,216,28,12,14,4,2744
110 DATA76,92,157,169,45,133,51,133,55,169,156,133,52,133,52,162,1768
120 DATA62,169,0,157,191,2,202,208,250,162,0,168,189,48,156,153,2117
130 DATA192,2,232,200,200,200,224,16,208,242,173,53,3,141,46,208,2340
140 DATA169,11,141,255,7,173,14,208,208,5,169,24,141,14,208,173,1920
150 DATA15,208,208,17,169,50,141,15,208,173,16,208,41,127,141,16,1753
160 DATA208,169,0,133,2,173,21,208,9,128,141,21,208,96,173,15,1705
170 DATA208,201,246,208,1,96,238,15,208,96,173,15,208,201,50,208,2372
180 DATA1,96,206,15,208,96,165,2,201,116,48,17,173,16,208,9,1577
190 DATA128,141,16,208,165,2,233,116,10,141,14,208,96,173,16,208,1875
200 DATA41,127,141,16,208,165,2,10,105,24,141,14,208,96,165,2,1465
210 DATA208,1,96,198,2,76,182,156,165,2,201,158,208,1,96,230,1980
220 DATA2,76,182,156,173,0,220,201,126,208,3,76,170,156,201,125,2075
230 DATA208,3,76,158,156,201,123,208,3,76,222,156,201,119,208,3,2121
240 DATA76,232,156,201,122,208,6,32,170,156,76,222,156,201,121,208,2343
250 DATA6,32,158,156,76,222,156,201,118,208,6,32,170,156,76,232,2005
260 DATA156,201,117,208,6,32,158,156,76,232,156,96,32,228,255,201,2310
270 DATA17,208,3,76,158,156,201,29,208,3,76,232,156,201,145,208,2077
280 DATA3,76,170,156,201,157,208,3,76,222,156,96,32,67,156,32,1811
290 DATA244,156,32,60,157,165,197,201,60,240,22,173,0,220,201,112,2240
300 DATA48,15,160,8,162,100,234,234,202,208,251,136,208,246,76,95,2383
310 DATA157,165,2,74,74,141,54,3,173,15,208,233,50,74,74,74,1571
320 DATA141,55,3,173,15,208,201,50,208,5,169,0,141,55,3,160,1587
330 DATA4,173,55,3,208,5,173,54,3,144,33,173,55,3,141,167,1394
340 DATA2,10,10,10,141,56,3,162,5,173,167,2,10,144,1,200,1096
350 DATA141,167,2,202,208,243,109,56,3,144,1,200,109,54,3,144,1786
360 DATA1,200,141,168,2,140,169,2,173,168,2,237,169,2,105,4,1683
370 DATA141,168,2,173,55,3,201,16,48,6,238,169,2,238,168,2,1630
380 DATA173,168,2,208,3,238,168,2,201,1,208,3,238,168,2,201,1984
390 DATA2,208,3,238,168,2,201,3,208,3,238,168,2,201,255,208,2108
400 DATA24,173,55,3,240,16,201,16,240,12,201,8,240,8,201,32,1670
410 DATA240,4,169,0,240,3,238,168,2,173,168,2,201,254,208,13,2083
420 DATA173,54,3,201,31,208,6,206,169,2,238,168,2,173,168,2,1804
430 DATA141,74,158,173,169,2,141,75,158,173,0,0,141,52,3,173,1633
440 DATA21,208,41,127,141,21,208,96,0,0,0,0,0,0,0,0,863