7m…ôcU€\cdÑVrem this file is "pSurvex.oph"rem ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~rem Things you might want to configurerem ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~const LINELENGTH% = 255 rem Maximum line lengthconst stringALU% = 10240 rem Set these manually toconst surveyALU& = 96 rem max number of surveys,const stationALU& = 2048 rem stations, legs andconst legALU& = 2048 rem sum of string lengthsconst stackALU% = 1024 rem stack sizerem ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~rem You shouldn't need to change anythingrem below this pointrem ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~const FALSE% = 0const TRUE% = -1const NULL% = -2const ALLOWDEBUG% = -1const flagCALC% = $01const flagFIX% = $02const flagSURFACE% = $04const flagSPLAY% = $08const flagDUPLICATE% = $10const sizeofBYTE% = 1const sizeofINT% = 2const sizeofLONG% = 4const sizeofFLOAT% = 8const sizeofSURVEY% = 50const sizeofSTATION% = 46const sizeofLEG% = 40rem Survey datarem ~~~~~~~~~~~const OFFflags% = 0 rem intconst OFFname% = 2 rem long (ptr)const OFFparent% = 6 rem long (ptr)const OFFdaughter% = 10 rem long (ptr)const OFFsister% = 14 rem long (ptr)const OFFstationHead% = 18 rem long (ptr)const OFFstationTail% = 22 rem long (ptr)const OFFtapeCalib% = 26 rem floatconst OFFcompassCalib% = 34 rem floatconst OFFclinoCalib% = 42 rem floatrem const sizeofSURVEY% = 50rem Station datarem ~~~~~~~~~~~~rem const OFFflags% = 0 rem intrem const OFFname% = 2 rem long (ptr)const OFFsurvey% = 6 rem long (ptr)const OFFnext% = 10 rem long (ptr)const OFFlegHead% = 14 rem long (ptr)const OFFbackLegHead% = 18 rem long (ptr)const OFFeast% = 22 rem floatconst OFFnorth% = 30 rem floatconst OFFheight% = 38 rem floatrem const sizeofSTATION% = 46rem Leg datarem ~~~~~~~~rem const OFFflags% = 0 rem intconst OFFfrom% = 2 rem long (ptr)const OFFfromSister% = 6 rem long (ptr)const OFFto% = 10 rem long (ptr)const OFFtoSister% = 14 rem long (ptr)const OFFtape% = 18 rem floatconst OFFcompass% = 26 rem floatconst OFFclino% = 32 rem floatrem const sizeofLEG% = 40rem Function prototypesrem ~~~~~~~~~~~~~~~~~~~external init:external main:external readFile:(filename$)external parseLine:external nextToken$:external addLeg:(from$,to$,tape,compass,clino,flags%)external setLeg:(leg&,tape,compass,clino,flags%)external newLeg&:(from&,to&)external getStation&:(name$)external getSurvey&:(name$,root&)external compute:external doOutput:(dp&)external drawSurvey:(root&)external reallocLegs:external reallocStations:external reallocSurveys:external reallocStringTable:(min%)external stackOverflow:external pushw:(w%)external pushl:(l&)external pushf:(f)external popw%:external popl&:external popf:external statusText:(text$)external status:external drawConsole:external internalError:(text$)external fatalError:(text$)external error:(text$)external warn:(text$)external parseData:(token1$)external parseBEGIN:external parseEND:external parseFIX:external parseEQUATE:external parseINCLUDE:external parseEXPORT:external parseFLAGS:external parseTEAM:external parseCALIBRATE:external parseDATE:external parseINSTRUMENTS: rem FIXME - only one of theseexternal parseINSTRUMENT: rem is validexternal printSurvey:(survey&)external printStation:(station&)external printLeg:(leg&)external getFlags%:(s&)external setFlags:(s&,flags%)external unsetFlags:(s&,flags%)external testFlags%:(s&,flags%)external zeroFlags:(s&)external getName$:(s&)external setName:(s&,name$)external getParent&:(survey&)external setParent:(survey&,parent&)external getDaughter&:(survey&)external setDaughter:(survey&,daughter&)external getSister&:(survey&)external setSister:(survey&,sister&)external getStationHead&:(survey&)external setStationHead:(survey&,stationHead&)external getStationTail&:(survey&)external setStationTail:(survey&,stationTail&)external getTapeCalib:(survey&)external setTapeCalib:(survey&,tapeCalib)external getCompassCalib:(survey&)external setCompassCalib:(survey&,compassCalib)external getClinoCalib:(survey&)external setClinoCalib:(survey&,clinoCalib)external getInSurvey&:(station&)external setInSurvey:(station&,survey&)external getNext&:(station&)external setNext:(station&,next&)external getLegHead&:(station&)external setLegHead:(station&,legHead&)external getBacklegHead&:(station&)external setBacklegHead:(station&,backlegHead&)external getEast:(station&)external setEast:(station&,east)external getNorth:(station&)external setNorth:(station&,north)external getHeight:(station&)external setHeight:(station&,height)external getFrom&:(leg&)external setFrom:(leg&,from&)external getFromSister&:(leg&)external setFromSister:(leg&,sister&)external getTo&:(leg&)external setTo:(leg&,to&)external getToSister&:(leg&)external setToSister:(leg&,sister&)external getTape:(leg&)external setTape:(leg&,tape)external getCompass:(leg&)external setCompass:(leg&,compass)external getClino:(leg&)external setClino:(leg&,clino)rem ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~rem Compile "pSurvex" not "pSurvex.oph" !ÐР   \cÚefd\câefdý‚.ÆA…*TextEd.app…ê‰q