(FILECREATED "10-Feb-84 10:29:03" ("compiled on " {INDIGO}SOURCES>LOOPSUID.;7) "26-Jan-84 01:37:00" recompiled exprs: DB-InitUI in WORK dated "26-Jan-84 01:48:36") (FILECREATED "10-Feb-84 10:28:53" {INDIGO}SOURCES>LOOPSUID.;7 7137 changes to: (VARS LOOPSUIDCOMS UIVARS UIFNS) (RECORDS UIREC) (FNS DB-InitUI) previous date: "28-DEC-83 09:03:34" {INDIGO}SOURCES>LOOPSUID.;6) DB-InitUI D1 (P 10Q nsHostNumber P 7 temp P 6 startIndex P 5 dateCode P 4 monthCode P 3 day P 2 month P 1 year P 0 date F 11Q DB.UICOUNT F 12Q DB.FRONTUI)  g-_jdh_Xdll YHll ZHkl dd Hld [H Hkl o ^n JgJdgggJdgggJdgggJdgggJdgggJdggtgJdggbgJdggPgJdgg>gJdgg,gJdgggJdggo \jcLKl@ I O gOO gN g c(605Q CONCAT 576Q RADIX64NUM 567Q RADIX64NUM 537Q RADIX64NUM 530Q CHARACTER 524Q CHARACTER 510Q ERROR 144Q WAITMS 134Q IDATE 131Q CONCAT 122Q SUBSTRING 113Q IDATE 106Q SUBATOM 63Q SUBATOM 53Q SUBATOM 42Q SUBATOM 31Q DATE 15Q DAYTIME) (601Q %. 572Q %. 542Q %. 500Q D 472Q DEC 463Q Dec 456Q N 450Q NOV 441Q Nov 434Q O 426Q OCT 417Q Oct 412Q S 404Q SEP 375Q Sep 370Q G 362Q AUG 353Q Aug 346Q L 340Q JUL 331Q Jul 324Q U 316Q JUN 307Q Jun 301Q Y 273Q MAY 264Q May 256Q A 250Q APR 241Q Apr 233Q M 225Q MAR 216Q Mar 210Q F 202Q FEB 173Q Feb 165Q J 157Q JAN 150Q Jan 5 \MY.NSHOSTNUMBER) ( 505Q "IS NOT A MONTH" 126Q "00:00:00") DB-PackUI D1 (F 0 DB.UICOUNT F 1 DB.FRONTUI) QPkc (10Q PACK*) NIL NIL DB-UnpackUI D1 (P 10Q dateCode P 7 charCodes P 6 uiCount P 5 year P 4 month P 3 day P 2 partiton P 1 hostNumber P 0 netNumber I 0 UI) @ _dOl _Ol ]Ol l@[O dggdggdggsdgggdgg[dggOdggCdgg7dgg+dggdggggLo \oKLMh(314Q ERROR 65Q CHARACTER 52Q NTH 41Q NTH 27Q LSH 6 CHCON) (303Q DEC 276Q D 271Q NOV 263Q N 255Q OCT 247Q O 241Q SEP 233Q S 225Q AUG 217Q G 211Q JUL 203Q L 175Q JUN 167Q U 161Q MAY 153Q Y 145Q APR 137Q A 131Q MAR 123Q M 114Q FEB 106Q F 77Q JAN 71Q J) (321Q "Created" 311Q "IS NOT A MONTH") RADIX64NUM D1 (P 2 rem P 1 num P 0 chars I 0 inputNum) 5hh@Il?l0dl`lzHJ IYdjݿH (62Q CONCATLIST 36Q TCONC 33Q CHARACTER) NIL NIL UID D1 (P 0 uid I 1 nameFlg I 0 obj) %@HH `@H AH H (42Q MKSTRING 35Q MKATOM 26Q CreateEntity 13Q GetEntityFromUID) (17Q EntityTYPE#) NIL (PRETTYCOMPRINT LOOPSUIDCOMS) (RPAQQ LOOPSUIDCOMS ((* Copyright (c) 1983 by Xerox Corporation) (* Creates unique identifiers for instances) (RECORDS UIREC) (VARS * UIVARS) (FNS * UIFNS) (P (DB-InitUI)))) (RECORD UIREC (NetNumber HostNumber PartitionNumber Day Month Year UICount)) (RPAQQ UIVARS ((DB.PRINTDESTINATION PROMPTWINDOW) (DB.UIFILENAME (COND ((FMEMB (SYSTEMTYPE) (QUOTE ( ALTO D))) (QUOTE {DSK}Lore-UI.SAVE)) (T (QUOTE Lore-UI.SAVE)))) (DB.UIREC NIL) (DB.FRONTUI NIL) ( DB.UICOUNT 0) (DB.UIDUMPINCR 1000) (DB.NEXTUIDUMP NIL) (DB.ENVIRONMENT NIL) (UIDPRINTFLG) (NETNUMBER 0 ))) (RPAQ DB.PRINTDESTINATION PROMPTWINDOW) (RPAQ DB.UIFILENAME (COND ((FMEMB (SYSTEMTYPE) (QUOTE (ALTO D))) (QUOTE {DSK}Lore-UI.SAVE)) (T (QUOTE Lore-UI.SAVE)))) (RPAQQ DB.UIREC NIL) (RPAQQ DB.FRONTUI NIL) (RPAQQ DB.UICOUNT 0) (RPAQQ DB.UIDUMPINCR 1000) (RPAQQ DB.NEXTUIDUMP NIL) (RPAQQ DB.ENVIRONMENT NIL) (RPAQQ UIDPRINTFLG NIL) (RPAQQ NETNUMBER 0) (RPAQQ UIFNS (DB-InitUI DB-PackUI DB-UnpackUI RADIX64NUM UID)) (DB-InitUI) NIL