10 AN=40700:REM STARTADRESSE DES PROGRAMMS
20 REM AN KANN IN EINEM BELIEBIGEN BEREICH LIEGEN
30 REM AUFRUF: SYS AN,P,X-KOORDINATE,Y-KOORDINATE
40 REM P=0: PUNKT TESTEN
50 REM P=1: PUNKT SETZEN
60 REM P=2: PUNKT LOESCHEN
70 REM BEI P=0 IST DAS ERGEBNIS DURCH PEEK(2) AUSZULESEN
80 REM IST DIES <> 0, IST DER PUNKT GESETZT
90 REM
100 REM DER ANGEGEBENE WERT FUER AN IST INPUT-BASIC KOMPATIBEL
110 REM ES WIRD DER GRAPHIC-SCHIRM AB $E000 AUSGELESEN
120 REM DIESER WERT IST DURCH DAS FUENFTLETZTE DATA-STATEMENT
130 REM IN ZEILE 32006 FESTGELEGT (224)
140 REM UND IST DAS HIGH-BYTE DES HIRES-SCREENS
150 REM MOEGLICHE VERAENDERUNGEN IN: 160=$A000, 32=$2000
31900 FORP=ANTOAN+187:READ D:POKE P,D:A=A+D:NEXT:PRINTA
31950 IFA<>25095THENPRINT"FEHLER IN DATAS":END
31960 PRINT"EINGABE OK!":END
32000 DATA8,32,253,174,32,158,183,142,2,0,32,253,174,32,235,183,173,20,0,133
32001 DATA250,173,21,0,133,251,224,200,144,3,76,72,178,165,251,201,1,144,8,208
32002 DATA245,165,250,201,64,176,239,138,41,248,133,254,133,252,169,0,133,253
32003 DATA6,252,38,253,6,252,38,253,24,165,252,101,254,133,252,165,253,105,0
32004 DATA133,253,6,252,38,253,6,252,38,253,6,252,38,253,138,41,7,24,101,252
32005 DATA133,252,165,253,105,0,133,253,24,165,250,41,248,101,252,133,252,165
32006 DATA251,101,253,133,253,24,169,0,101,252,133,252,169,224,101,253,133,253
32007 DATA165,250,41,7,73,7,170,169,1,202,48,3,10,208,250,160,0,162,52,40,120
32008 DATA134,1,56,174,2,0,224,1,144,6,208,10,17,252,176,10,49,252,133,2,144
32009 DATA6,73,255,49,252,145,252,162,55,134,1,88,96