5  STEP"@:SETPOINT.OBJ,P,W"
10  +$C000
20  TOBAL=$F9
30  TOBAH=$FA
40  TOYWERT=$FB
50  TOXWERTL=$14
60  TOXWERTH=$15
70  TOCHKCOM=$AEFD
80  TOGETPAR=$B7EB
90  (null)CHKCOM
100  (null)GETPAR; XUND Y HOLEN
110  (null)YWERT
120 SET MID$#$00; BAL LOESCHEN
130  (null)BAL
140  MID$YWERT; Y
150  (null);[Y/8]
160  (null)
170  (null)
180  (null)BAH;A([Y/8])*5 = A*4+A
190  (null)
200  (null)
210  VALBAH
220  (null); A(5*[Y/8])*64=A*256/4
230  (null)BAL; =>MSB MIT LSB VERTAUSCHEN
240  (null); 16-BIT-DIVISION MIT 4
250  (null)BAL
260  VAL#$20; BITMAP ADDIEREN
270  (null)BAH;A(320*[Y/8]+$E000)
280  MID$XWERTL;LSB(X)
290  ASC#$F8;[X/8]*8
300  VALBAL;A([X/8]*8)+BA
310  (null)BAL
320  MID$XWERTH
330  VALBAH
340  (null)BAH
350  MID$YWERT;Y-[Y/8]*8,REST DER DIVISION
360  ASC#$07
370  (null);INDEX
380  MID$XWERTL;LSB(X)
390  ASC#$07;X-[X/8]*8,ERBIBT BIT/NUMMER
400  (null);INDEX
410  MID$POT,X;PUNKT SETZEN
420  (null)(BAL),Y
430  (null)(BAL),Y
440  (null)
450 POT FN$80,$40,$20,$10
460  FN$08,$04,$02,$01