10000 INIT
10010 TEXTMODE 2
10020 MODSET 1,1,1
10030 MODSET 2,1,1
10040 MODOPT 1,.2,1,0,1
10050 MODOPT 2,.2,1,0,1
10060 MODDISP 1
10070 MODDISP 2
10080 LINECOL 1,255,255,0,128
10090 LINECOL 2,255,255,0,128
10100 LINEDISP 1
10110 LINEDISP 2
10120 Z=-65650
10130 DO
10140  X=X+(PAD(1,1)>4)-(PAD(1,2)>4)
10150  Y=Y+(PAD(1,4)>4)-(PAD(1,3)>4)
10160  Z=Z+(PAD(1,10)>4)-(PAD(1,9)>4)
10170  MODPOS 1,X,Y,Z
10180  MODPOS 2,X,Y,MIN(MAX(Z,-65700),65700)
10190  CAMPOS 1,X-100,Y-100,Z-100
10200  CAMVEC 1,100,100,100
10210  GETSPOS SX,SY,SZ,1,X,Y,Z
10220  SX1=MIN(MAX(SX-8,-1728),2367)
10230  SX2=MIN(MAX(SX+8,-1728),2367)
10240  SY1=MIN(MAX(SY-4,-1936),2159)
10250  SY2=MIN(MAX(SY+4,-1936),2159)
10260  LINEPOS 1,SX1,SY1,SX2,SY2,16777100
10270  LINEPOS 2,SX1,SY2,SX2,SY1,16777100
10280  LOCATE 0,1
10290  PRINT " X=";X
10300  PRINT " Y=";Y
10310  PRINT " Z=";Z
10320  IF ABS(Z)>65500 THEN FSYNC 1
10330  IF PAD(1,6)>4 THEN FSYNC 9
10340 LOOP
10350 END