18000 '***** Input Locator selbstgestrickt *****
18010 '* Inputparameter: x1,y1                 *
18020 '* Outputparameter: x1, y1, ILchoice$    *
18030 '* Interne Variablen: stepx, stepy,      *
18040 '*                    valid.key$, z$     *
18050 '*****************************************
18060 stepx = INT(32767/720) : stepy = INT(32767/256) 
18070 valid.key$ = CHR$(1)+CHR$(6)+CHR$(30)+CHR$(31)+CHR$(49)+CHR$(46)+CHR$(51)+CHR$(53)
18080 GOSUB 19000:REM Set Graph-Cursor
18090 z$=INKEY$:IF z$="" THEN 18090
18100 GOSUB 20000:REM Remove Graph-Cursor
18110 ON INSTR(valid.key$,z$) GOTO 18140,18150,18160,18170,18180,18190,18200,18210
18120 ILchoice$=z$:RETURN
18130 '
18140 x1=MAX(x1-10*stepx,0):GOTO 18080
18150 x1=MIN(x1+10*stepx,32767):GOTO 18080
18160 y1=MAX(y1-10*stepy,0):GOTO 18080
18170 y1=MIN(y1+10*stepy,32767):GOTO 18080
18180 x1=MAX(x1-stepx,0):GOTO 18080
18190 y1=MAX(y1-stepy,0):GOTO 18080
18200 x1=MIN(x1+stepx,32767):GOTO 18080
18210 y1=MIN(y1+stepy,32767):GOTO 18080
18220 '
19000 '****** Set Graph-Cursor ******
19010 '* Inputparameter: x1,y1      *
19020 '******************************
19030 contrl%(1) = 5 : contrl%(2) = 2 : contrl%(6) = 18
19040 ptsin%(1) = x1 : ptsin%(2) = y1
19050 GOSUB 60000
19060 RETURN
19070 '
20000 '***** Remove Graph-Cursor *****
20010 '*******************************
20020 contrl%(1) = 5 : contrl%(2) = 0 : contrl%(6) = 19
20030 GOSUB 60000
20040 RETURN
20050 '
**************************
20020 contrl%(1) = 5 : contrl%(2) = 0 : contrl%(6) = 1