22FL #SEG DUMMYJ
22^= [ (C) COPYRIGHT INTERNATIONAL COMPUTERS LTD 1983
23DW [
23YG #OPT K0DUMMYJ=0
24D6 #LIS K0DUMMYJ>K0ALLGEO
24XQ 8HDUMMYJ
25CB [
25X2 [ THIS IS A DUMMY SEGMENT
26BL [
26W= SEGENTRY K1DUMMYJ,(GEOERR)
27*W #END
^^^^ ...332000660003