/ord.prg 
/ program to position and fill co-ordinate sets for interpretation by
/ ord.prg
/
@e-echoff
errbel off
errpau off
errmes off
let asc = 'ABCDEFGHJKLMNPQRSTUVWXYZ'
LET SEL = 0
LET PRO = 0
sta nexa blo
if (error$) then
prompt' Probe Datum Position ' pos1 chr
autcp
newp blo at (probu$)
endif
write ''
loop one
newc set
LET SEL = ((SEL)+1)
LET OFFER = (ASC[@VSEL])
prompt 'Enter feature description    >> ' tsb chr
IF (TSB .EQ. "") THEN
BREAK ONE
ENDIF
write ''
prompt 'Enter feature identification <@VOFFER>> ' tsa chr DEF '@VOFFER'
loop two
write ''
IF (PRO .EQ. 0) THEN
prompt ' Probe position ' pos2 chR
AUTCP
ENDIF
let xylas = (probu$)
newc ter
newp hol at (xylas)
newt tsa '@U@vtsa&' hein 5 las 8 0
newt tsb '@U@vtsb~' hein .01 las
end
LET PRO = 0
prompt 'Another with same description? <Y/N or PROBE THE NEXT POSITION> <N>' ans chr def 'N'
write ''
if (upcase(ans) .ne. 'N') then
LET PRO = 1
AUTCP
ELSE
unnum tsa @vtsa&
num tsa @vtsa& 1 10
break two
endif
endloop two
prompt ' Another with different description? <Y/N> <N> ' ans2 chr1 def 'N'
write ''
break one if ((upcase(ans2)) .eq.'N')
endloop one
prompt ' OK to run processing program now? <Y/N> <Y> ' go1 chr1 def 'Y'
write ''
if ((upcase(go1)) .eq. 'Y') then 
run @vmac$@vmid$epord1.prg
else
quit
endif