% VAX-11 Librarian V04-00yDD!(* 2m(( U  L CHECK_STATUSCLEAReCREATE_EVENT_FLAG_CLUSTER7CREATE_GLOBAL_SECTION; DATE_TIME;DAY_NUM9DAY_STRkDBG_CALLkDBG_INIT3 DEBUG_FLAG=DEC7DELETE_GLOBAL_SECTIONgDESBLK^ERROR?EXTRACTgFORCE4 FORMATED_READ` FULL_CHAR GET_CLEAR; GET_DATE_TIME@GET_JPIbGET_POSNAHEXC IMAGE_DIRWKILL[ LOWER_CASE[ LOWER_STRING RANDOMIZEHRESET_RANDOMIZERL RMS_SIGNAL[ CASE_CONVERTCLEAReCREEFC7CRESEC9DAY;DAYTIMEkDEBUG3 DEBUGFLAG=DEC^ERROR?EXTRACT4FORMATTED_READ` FULL_CHAR GET_CLEAR@GET_JPIbGET_POSNgHANDLERAHEXC IMAGE_DIR5MAPPOSNoQIO_READQIO_READ_INTEGERQIO_READ_VARYINGv QIO_WRITEFRANDOMH RANDOMIZE RESET_SCREENARER STOPWATCHVSWAPWSYSCALLYTRIMZVT100L RMS_STATUSFRNDFSEED_INITIALIZEg SETUP_HANDLER SHOW_GRAPHEDTQSIGN{SLEEP{ SLEEP_START{ SLEEP_WAIT SMART_POSNSMART_QIO_WRITE SMART_SHIFTSQUARERSTART_DATE_TIMERSTART_STOPWATCHRSTOP_DATE_TIMERSTOP_STOPWATCHVSWAPW TERMINATETOP_TENYTRIM[ UPPER_CASE[ UPPER_STRING7 LOWER_STRING RMS_SIGNAL UPPER_STRING]5MAP_FILEg NO_HANDLERLOPEN_STATUS_NEWLOPEN_STATUS_OLDPOSNo QIO_1_CHARoQIO_1_CHAR_NOWoQIO_1_CHAR_TIMEDo QIO_PURGEo QIO_READLNQIO_READ_INTEGERQIO_READ_VARYINGv QIO_WRITEv QIO_WRITELNFRANDOMH RANDOMIZEHRESET_RANDOMIZER RESET_SCREENL RMS_SIGNALL RMS_STATUS SHOW_GRAPHEDTQSIGN{SLEEP SMART_POSNSQUARER STOPWATCHVSWAPWSYSCALLTOPTENYTRIMZVT100 RESET_SCREENVT100  !"#$%&'()*+,-./0121pr{D03 DEBUGFLAG0 4-JUN-1992 04:05 VAX MACRO T5.2V-4MACRO DEBUG_FLAG)- returns a boolean true if debug is on DEBUGFLAG . ABS .P$ABS$ PP=$CODEP  DEBUG_FLAG&=]QС RТ SУ T RQSRTSСQСRСSS SRPP DEBUG_FLAG$CODE=ww15XD019FORMATTED_READ01 4-Jun-1992 04:07 4-Jun-1992 04:07VAX Pascal V4.2-55FORMATTED_READPDEFAULT VALUE /Q/ DOES NOT MATCH PICTURE CLAUSE /Q%INTERACT-F-DVMM, DEFAULT VALUE /Q/ DOES NOT MATCH PICTURE CLAUSE /Q61z}D0-MAP0 4-JUN-1992 04:05 VAX MACRO T5.2V-4 MACRO MAPmap a file into memory  MAP SYS$CRMPSCSYS$OPEN . ABS .P$ABS$PP$$RWDATA\PPPQNQQQQ^$$CODEP   MAP_FILE&hS}PP4Q,cSYS$OPENP4^^R|~|~< ~ݏb SYS$CRMPSCP bТ MAP_FILE,$$RWDATAP$$CODE^ww81`0D011CRESEC01 4-Jun-1992 04:05 4-Jun-1992 04:05VAX Pascal V4.2-55 CRESEC-P<^ԭ PAS$HANDLERmЬP` `(`мPPƏPԭЏ?P谏쟭ݏ SYS$CRMPSCPP LIB$SIGNALЭ llЭ^мPм\P\ SYS$DELTVAPP LIB$SIGNALQEQc Q QQ/  <CREATE_GLOBAL_SECTION PAS$HANDLER S YS$CRMPSC LIB$SIGNAL DELETE_GLOBAL_SECTION SYS$DELTVA$CODEG*  $CODE CREATE_GLOBAL_SECTION !DELETE_GLOBAL_SECTION 2ww:1rD01.DAY01 4-Jun-1992 04:05 4-Jun-1992 04:05VAX Pascal V4.2-55  DAYPMONQTUEQWEDQTHUQFRIQSATQSUN<мPP1ЬP`(`ЬP`(`ЬP`(`ЬP`(`ЬP`(`ЬP`(z`ЬP`(m`Qy"3DUfwQuQdQSQBQ1Q Q" <DAY_STR$CODE3  $CODEDAY_STR ww<1eD012DAYTIME01 4-Jun-1992 04:05 4-Jun-1992 04:05VAX Pascal V4.2-55DAYTIMEP SYS$NUMTIMPP LIB$SIGNAL ^ SYS$GETTIMP\\\ LIB$SIGNALLIB$DAY_OF_WEEKP\\\ LIB$SIGNALЭPP Q Q  GET_DATE_TIME SYS$NUMTIM LIB$SIGNAL DAY_NUM SYS$GETTIMLIB$DAY_OF_WEEK  DATE_TIMEc$CODE$LOCALN $CODEc$LOCAL GET_DATE_TIME   DAY_NUM Cww>1 YTD01.DEC01 4-Jun-1992 04:05 4-Jun-1992 04:05VAX Pascal V4.2-55  DEC;P^ԭ PAS$HANDLERmмP мV^WPݏPAS$WRITEV_INTEGERVX1XX1V<^ԭ PAS$HANDLERmЬ\l l(l PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUT PAS$WRITELN2 PAS$FV_OUTPUTPAS$WRITE_STRING PAS$FV_OUTPUT PAS$WRITELN2PAS$HALTQu <ERROR PAS$HANDLER PAS$FV_OUTPUTPAS$WRITE_STRING PAS$WRITELN2PAS$HALT$CODE, $CODE ERROR vwwa1 K̢D014 FULL_CHAR01 4-Jun-1992 04:06 4-Jun-1992 04:06VAX Pascal V4.2-55 FULL_CHARPQ^ԭ PAS$HANDLERm^VWWW@XXXV^^Y(n(cXZZZY^^[(Xin(\cЬPZ`(k`1WЀP`(`1PPP$ WWWV^^[("n(cWZZZ[^^Y(Wkn( cЬPZ`(i`YYYV^^V(n(cЬPY`(f`Q`QXQQ"Q!Q Q Q _QWQQ"Q!.Q 4 T FULL_CHAR PAS$HANDLER$CODE7T  $CODET FULL_CHAR 6wwc1 D013GET_POSN01 4-Jun-1992 04:06 4-Jun-1992 04:06VAX Pascal V4.2-55GET_POSNPQ[$^ԭ PAS$HANDLERmмVм W^V1WЬP`(`1WݏdPAS$WRITEV_INTEGERQQQQQQQQww 1@D017 RESET_SCREEN01 4-Jun-1992 04:07 4-Jun-1992 04:07VAX Pascal V4.2-55 RESET_SCREENJP<(B><~~PP^(n~^^P QIO_WRITE5 < RESET_SCREEN QIO_WRITE<$CODE* $CODE< RESET_SCREEN (ww1>D015 SMART_POSN01 4-Jun-1992 04:07 4-Jun-1992 04:07VAX Pascal V4.2-55 SMART_POSNP^ԭ PAS$HANDLERmмVмW^R WVPOSN1VPW\PP\QQQQ PP \PP@*\Q;vQQjQFQ>Q;Q=QQ Q Q+QCQ Q7Q4Q QQ"Q?KQQQMQJQQ@Q Q>QQ# QQ'Q0QQEQ$ QQ Q'Q0QQKiQ, QQQ%Q Q?Q$ QQ Q'Q5QQ/Zv @ FORMATED_READ PAS$HANDLERE RROR FULL_CHARPOSN QIO_WRITE QIO_1_CHAR $CODE> s p ? / $$CODE @ FORMATED_READ GO_LEFT  GO_RIGHT  ESCAPE_SEQUENCE   DELETE   KEY_CONTROL h ww1\D01;QIO_READ_INTEGER01 4-Jun-1992 04:07 4-Jun-1992 04:07VAX Pascal V4.2-55QIO_READ_INTEGERP \\0\9\\\P|^ԭ PAS$HANDLERmЬ\l l(lP\pQQ QQ$QPQQЬP`(a`ά^ԭ PAS$HANDLERmм^ RESET_SCREEN ^( n ~^^PP^(n~^^PCLEARߏߏPOSNߏߏ͸GET_JPI͸ʹ(͸ͺͶ GET_DATE_TIME< DATE_TIME< DATE_TIME3͸Ͱ <ͰP<͸ZPZ[[[^^\(PͲn(Zͺc[ZZZ\^^V([ln(cZV̞Ğ PAS$OPEN2 PAS$STATUSP11<͸VVZZZ^^\(yn(VͺcZVVV\^^[(Zln(acV V~^^V QIO_WRITELN <ͰP<͸[P[VVV^^\(PͲn([ͺcV[[[\^^Z(Vln(c[Z̞Ğ PAS$OPEN2 PAS$STATUSP<͸Z Z[[[^^\( n(Zͺc[ZZZ\^^V([ln(cZ Z~^^Z QIO_WRITELNSYS$EXIT PAS$REWRITE2P`PЭVV  PZ@\l(>l VVV  PZ@r\ l(l VVV  PZЏ@$ VVV  ZPJX\l(lVVV PZ@ \ l(lVVV PZЏ@8VV,PƈPAS$PUT PAS$RESET21<͸VVZZZ^^\(An(VͺcZVVV\^^[(Zln(1cV V~^^V QIO_WRITELNSYS$EXIT1ߏSLEEP ^( 4n ~^^PP^(*n~^^PCLEARߏߏPOSN<ʹ[[^([Ͷn[~^^[ͬܚTRIM<ͬPP[[[^^V(Pͮn([c[ [~^^[ QIO_WRITELN PAS$STATUSP1; PAS$RESET2 PAS$STATUSPJPV`fV[kVPkPPVV1 k VP\X\FZlj(j k PV\ \@rZlj(j k PV\8@$VV  P\@XZj(MjVVV P\@ Z j()jVVV P\Џ@8VV,PƈЭkԭ֭ѭ  [PKXP-` ʹͶ  P[@X[[P-`ՠ ʹͶʹ [Pʹ`(Ͷ` P[@ V f(jf P[Џ@8 [PK P[@8 PV \Z@ƈLʈЭ \VѭL81VV V\PѭL8V1 P\@ \l(l P\@̈\ЭZV[Z[1ZX XW WPQXR RY YRSBXS@XRcb(bWPQYSRC R@ Sbc(cPQI8G8PQIG[Z_ VX XZ[ʹ JXPʹ`(Ͷ`XPH [k(k VPX\@ȈV VXЭF8 ^( ln ~^^PP^(bn~^^PCLEARߏߏPOSNߏ ؟؟ʹDEC<ʹXXVVV^^\(n(XͶcVXXX\^^[(Vln(cߏ ʹDEC<ʹ\X\VVV[^^Z(Xkn(\ͶcV\\\Z^^[(Vjn(rcʹ-<ʹZ\ZVVV[^^X(\kn(ZͶcVZZZX^^[(Vhn( cZ Z~^^Z QIO_WRITEߏ P`ʹDEC<ʹ[[ZZZ^^X(n([ͶcZ[[[X^^V(Zhn(c[XXXV^^Z([fn(cX X~^^X QIO_WRITELNÏH^(HvnH~^^P QIO_WRITELNÏP^(PnP~^^P QIO_WRITELN QIO_WRITELN1Эح  XPH$1ʹω<ʹVV[[[^^\( n(VͶc[VVV\^^W([ln(Ac XP\@\μ^ԭ PAS$HANDLERmЬP` `(`␼\^V IMAGE_DIR\QIO_1_CHAR_NOWPWWQ QZ Q Q-QQ Q[Qy  x SHOW_GRAPHEDT PAS$HANDLER IMAGE_DIRQIO_1_CHAR_NOW PAS$OPEN2 PAS$STATUS PAS$RESET2PAS$READ_VARYING PAS$READLN2 QIO_WRITEPAS$LOOK_AHEAD PAS$CLOSE2POSN QIO_1_CHARCLEAR RESET_SCREEN SHOW_GRAPHEDT SHOW_GRAPHEDT 4-Jun-1992 04:07:30PAS$ENVIRONMENT_TIME  INGRAPHEDT  IMAGE_DIR_DONE$CODE$LOCAL_u/ $CODE$LOCALx SHOW_GRAPHEDT dww