0 PLOT   = 49152 : LINE    = PL+3  :      CLEAR  = PL+6  : RECHT   = PL+9
1 SETUP  = PL+12 : SHOW    = PL+15 :      MEM    = PL+18 : ELLIPSE = PL+21
2 TEST   = PL+24 : INVERT  = PL+27 :      SPEICH = PL+30 : LEFT    = PL+33
3 RIGHT  = PL+36 : HARD    = PL+39 :      UP     = PL+42 : DOWN    = PL+45
4 WRITE  = PL+48 : ZMEM    = PL+51 :      COPY   = PL+54 : W2      = PL+57
5 SSETUP = PL+60 : CHARSET = PL+63 :      LADEN  = PL+66
10 SYS MEM,32,32:SYS CL
20 SYS SH,0,0,0,1,0
30 SYS RE,0,0,95,41,1
40 J=56323:J1=56321:X=100:Y=100
50 POKEJ,PEEK(J)AND224
60 W=PEEK(J1)
70 IF (W AND1)=0THENY=Y-1:IFY<0THENY=255
80 IF (W AND2)=0THENY=Y+1:IFY>255THENY=0
90 IF (W AND4)=0THENX=X-1:IFX<0THENX=320
100 IF (W AND8)=0THENX=X+1:IFX>320THENX=0
105 IF (W AND16)=0THENSYS IN
110 SYS SE,X,Y:GOTO60