% VAX-11 Librarian V04-00 hэ@%hэ!no }>>:  W ADDGOLD ARMORASCIIhASCIITONUMERICpCHAIN CHANGESTATS CHECKLEVEL* CLEARSCREEN CLOSEFILECODEITCOUNTCHARACTERCURRENT DATER!DEATH%<DICE&ENCRIPT'EXITR(< FINDMAGIC) FINDPLAYER+\FORMAT,GETNAME.( GETPLAYER/* GETTEMPCORE1 GET_PROCESS2HEADER4IEXPER6IFIELD6INCHK9INPUT;INPUT1<  INPUTNUMBER=IPICK>n IPOSITION? KILLPLAYER[ ADDGOLD ARMORASCIIhASCIITONUMERICpCHAIN CHANGESTATS CHECKLEVEL* CLEARSCREEN CLOSEFILECODEITCOUNTCHARACTERCURRENT DATER!DEATH%<DICE&ENCRIPT'EXITR(< FINDMAGIC) FINDPLAYER+\FORMAT6GETINPUT_NOECHO,GETNAME.( GETPLAYER/* GETTEMPCORE1GET_PROCESS_COUNT2HEADER4IEXPER6IFIELD6INCHK9INPUT;INPUT1<  INPUTNUMBER=IPICKa/* GETTEMPCORE1GET_PROCESS_COUNT2HEADER4IEXPER6IFIELD6INCHK9INPUT;INPUT1<  INPUTNUMBER=IPICK>n IPOSITION? KILLPLAYERALLENGTHA LISTMAGICD@ LOCATEMAGICL@LOGOUTM MAGICPERLEVELMMAGIC_POSITIONO MAGIC_RANGEP:NUMERICTOASCIITBOFIELDU  OPENCHARFILEV OPENMAGICWOUTNUMXPERSONALZPROMPT[ PUTPLAYER] PUTTEMPCORE] QUEST_ERROR`f REMOVEMAGICb REPLACEPLAYER3 GETPLAYER OPENCHARFILE VARFORMATESERf1 GET_PROCESS2HEADER4IEXPER6IFIELD6INCHK9INPUT;INPUT1<  INPUTNUMBER=IPICK>n IPOSITION? KILLPLAYERALLENGTHA LISTMAGICD@ LOCATEMAGICL@LOGOUTM MAGICPERLEVELMMAGIC_POSITIONO MAGIC_RANGEP:NUMERICTOASCIITBOFIELDU  OPENCHARFILEV OPENMAGICWOUTNUMXPERSONALZPROMPT[ PUTPLAYER] PUTTEMPCORE] QUEST_ERROR`f REMOVEMAGICb REPLACEPLAYERdb SAVINGTHROW/ GETTEMPCOREOUTNUM VARFORMATESV OPENMAGICWOUTNUMXPERSONALZPROMPT[ PUTPLAYER] PUTTEMPCORE] QUEST_ERROR`f REMOVEMAGICb REPLACEPLAYERdb SAVINGTHROWf4 SET_CHARGESg SINGLEhSLEEPhSPELLjTRIMMERk UPPERCASElfUSERINFOmR VARFORMATXPERSONALZPROMPT[ PUTPLAYER] PUTTEMPCORE] QUEST_ERROR`f REMOVEMAGICb REPLACEPLAYERdb SAVINGTHROWf4 SET_CHARGESg SINGLEhSLEEPhSPELLjTRIMMERk UPPERCASElfUSERINFOmR VARFORMAT 1@Iiύ012ADDGOLD0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45ADDGOLDWPYou have all the gold you can carry. You leave!/behind what you cannot keep.ADDGOLDyPL FORMAT@PH[ŏ Pŏ@QQPPPFORMAT0 HADDGOLDFORMATE$CODEQ$PDATA$LOCAL;BLOCK1BLOCK2(BLOC K3LBLOCK4BLOCK5BLOCK6BLOCK7YBLOCK8BLOCK9BLOCK08 BLOCKABLOCKBBLOCKC< BLOCKDBLOCKE4P #Eww1@.hύ010ARMOR0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45 ARMOR>P&*,:ABVY[ ARMORgP  $(,04PH[\D DDPPPP  PPPPP FINDMAGICP FINDMAGICP FINDMAGICP֬ FINDMAGICP֬$ FINDMAGICP, FINDMAGICP4 FINDMAGICP< FINDMAGICP׬D FINDMAGICPL FINDMAGICPT MAGIC_RANGEPQPQ` MAGIC_RANGEPklMAGIC_POSITION@ѬP HARMOR FINDMAGIC MAGIC_RANGEMAGIC_POSITIONo$CODE8$PDATAt$LOCAL;BLOCK1BLOCK2(BLOCK3LBLOCK4BLOCK5BLOCK6BLOCK7YBLOCK8BLOCK9BLOCK08 BLOCKABLOCKBBLOCKC< BLOCKDBLOCKEPP(P 1P7PFPWP\PhPuPPPPPPP PPPP'P7P NPiP?3 #oww1zdύ010ASCII0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45 ASCIISP%QSTOTS - Error on ASCII input. Please reenter the string.!/@ ASCIIP= FORMAT@PH[}PQP LIB$LENPkF  FOR$READ_SF FOR$IO_T_DS FOR$IO_ENDռ UPPERCASESINGLE$FORMAT@P HASCIILIB$LEN UPPERCASESINGLEFORMATp$CODEM$PDATA0$LOCAL FOR$IO_END FOR$IO_T_DS FOR$READ_SFHPf"PTJP  pww1fύ019ASCIITONUMERIC0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45ASCIITONUMERICP,-./017<?BIPASCIITONUMERICP /37   $ (,0,48<8@D@HDDLDPDHTDXD\D `DdDhDlDpD tDx|D$, , 4 P@@FORMAT1e\FORMAT P QaaсP3 @ CHECKLEVEL LSLEEPpFOR$OPENNˠDICEP FOR$READ_DF FOR$IO_T_DS FOR$IO_ENDˬ CLOSEFILE%˴TRIMMER OPENCHARFILE˼ KILLPLAYERFORMATˬ CLOSEFILELSLEEP,n  @  PUTTEMPCORECHAIN   $ 8ww1@cύ01/DICE0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45 DICE DICEXPP H[ԫм'RSռ MTH$RANDOMNQDQPJPPPPRSЫP3 HDICE MTH$RANDOM<$CODE$PDATA$LOCAL;BLOCK1BLOCK2(BLOCK3LBLOCK4BLOCK5BLOCK6BLOCK7YBLOCK8BLOCK9BLOCK08 BLOCKABLOCKBBLOCKC< BLOCKDBLOCKEP  (<ww1yeύ012ENCRIPT0114-May-1985 15:0814-May-19 (85 15:08VAX FORTRAN V4.1-45ENCRIPTENCRIPTPQXj?.#CK/\~@*+!-PI[}PQP VLIB$LENPWXWVVVXRBP Pkk^VP@P P޼(CODEITkBWX] IENCRIPTLIB$LENCODEITs$CODE$PDATA<$LOCAL(PI2PDP)MP  sww1mfύ010EXITR0114-M)ay-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45 EXITR P  EXITRRP FORMAT@PH[FORMATFOR$EXITV HEXITRFORMATFOR$EXIT$CODE$PDATA$LOCAL  ww1hύ014 FINDMAGIC0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45 FINDMAGIC FINDMAGICUP@P*H[ԫ MAGICPERLEVELQPRт֫PQЫP9 H FINDMAGIC MAGICPERLEVEL6$CODE$PDATA$LOCAL;BLOCK1BLOCK2(BLOCK3LBLOCK4BLOCK5BLOCK6BLOCK7YBLOCK8BLOCK9BLOCK08 BLOCKABLOCKBBLOCKC< BLOCKDBLOCKE P)P $6ww1`gύ015 FINDPL+AYER0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45 FINDPLAYER FINDPLAYER_PPH[}PQԼ~~k FOR$READ_KU FOR$IO_ENDI H FINDPLAYER9$CODE$PDATA$LOCAL;BLOCK1BLOCK2(BLOCK3LBLOCK4BLOCK5BLOCK6BLOCK7YBLOCK8BLOCK9BLOCK08 BLOCKABLOCKBBLOCKC< BLOCKDBL,OCKE FOR$IO_END FOR$READ_KU P4 #9ww1 ʩJX012FORMATX0126-NOV-1984 11:54 VAX-11 Macro V03-00FORMAT*-- Routine to do things with strings/OGA[ IO$_WRITEVBLKSCR$SET_CURSOR SYS$ASSIGNSYS$EXITSYS$FAOSYS$QIOW . ABS . . BLANK .P< <FORMAT&u0lUU1|мR6 |~|~|~-< IO$_WRITEVBLK&~<~ SYS$QIOW R?SYS$FAO|~|~|~< IO$_WRITEVBLK&~<~ SYS$QIOWݼݼ SCR$SET_CURSOR|~? SYS$ASSIGNP PSYS$EXIT3TTQ&QQQQ" FORMAT FORMAT . BLANK .ww1`nE01GETNAME019-NOV-1984 15:17 VAX-11 Macro. V03-00 GETNAME.MAR >JPI$_UIC JPI$_USERNAME SYS$GETJPI SYS$WAITFR . ABS . . BLANK .Pb _GETNAME_CODEP< <GETNAME&|~F SYS$GETJPIP) SYS$WAITFRP}Q . BLANK .P GET_PROCESS_COUNT&[ԼЏ:|~ߏ: SYS$GETJPISS$_NOMOREPROCPּQ2 GET_PROCESSGET_PROCESS_COUNT . BLANK .>ww1 Mhύ0114HEADER0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45 HEADERGP - a Fighter!/ - a Cleric!/ - a Thief!/ - a Magician!/ HEADERLP FORMAT@ $ FORMAT@ !8! FORMAT@.L. FORMAT@PH[> FOR$WRITE_SF FOR$IO_ENDTRIMMERD FORMATD,FORMATD@FORMATTF5ORMATW HHEADERTRIMMERFORMATm$CODEA$PDATA`$LOCAL;BLOCK1BLOCK2(BLOCK3LBLOCK4BLOCK5BLOCK6BLOCK7YBLOCK8BLOCK9BLOCK08 BLOCKABLOCKBBLOCKC< BLOCKDBLOCKE FOR$IO_END FOR$WRITE_SF%/P 9P2DP NPXP bP ! #mww1gύ011IEXPER60114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45 IEXPER IEXPERP H[мQԫѼPѼ <PѼ number.!/, INPUTNUMBERP> FORMAT@PH[G FOR$READ_SF߼ FOR$IO_L_R FOR$IO_ENDkSINGLEFORMATnj H INPUTNUMBERSINGLEFORMATE$CODEI$PDATA$LOCAL FOR$IO_END FOR$IO_L_R FOR$READ_SF P4 Eww1@ dύ010IPICK0114-May-1985 15:0814-May-1985 15:08 ?VAX FORTRAN V4.1-45 IPICK IPICKPH[ռ ~  OTS$POWJJPPzPP{ Pԫм RмSѼRS~  OTS$POWJJPPzPP{ PTTüS~  OTS$POWJJPTTRSЫPT HIPICK~$CODE$PDATA$LOCAL OTS$POWJJ P".PJ@P8~ww1@Edύ014 IPOSITION0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45 IPOS@ITION IPOSITIONFPH[ռԫмPռμPP P֫ЫPPF H IPOSITION@$CODE$PDATA$LOCAL P PP+P)  @ww1@`gύ015 KILLPLAYER0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45 KILLPLAYER P KILLPLAYERPPH[}PQԼ~~kA FOR$READ_KU FOR$IO_ENDPRR4SLEEPR FOR$DELETEPRR4SLEEPRּּb H KILLPLAYERSLEEP{$CODE$PDATA$LOCAL;BLOCK1BLOCK2(BLOCK3LBLOCK4BLOCK5BLOCK6BLOCK7YBLOCK8BLOCK9BLOCK08 BLOCKABLOCKBBLOCKC< BLOCKDBLOCKE FOR$DELETE FOR$IO_END FOR$READ_KU'P07P GPBIP-^P oP' z{ww1cύ011LENGTH0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45 LENGTH LENGTH\PPH[}PQPkLIB$LENPTTP@ TTPPO HLENGTHLIB$LEN;$CODE$PDATA$LOCAL P.P3P%  ;ww1@hύ01C4 LISTMAGIC0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45 LISTMAGICVPYou are currently carrying the following magic items:!/!/)  $ LISTMAGICY(P$9 0 FORMAT@$FLF FORMAT@(PH$[FORMAT OPENMAGIC\R\kՂJݢ FOR$READ_DF FOR$IO_T_DS FOR$IO_END OUTNUM0FORMADT<TRIMMERO FOR$WRITE_SF FOR$IO_END\D CLOSEFILE H LISTMAGICFORMAT OPENMAGICOUTNUMTRIMMER CLOSEFILE$CODEP$PDATAp$LOCAL;BLOCK1BLOCK2(BLOCK3LBLOCK4BLOCK5BLOCK6BLOCK7YBLOCK8BLOCK9BLOCK08 BLOCKABLOCKBBLOCKC< BLOCKDBLOCKE FOR$IO_END FOR$IO_T_DS FOR$READ_DF FOR$WRITE_SF E*PQ' $ww1iύ016 LOCATEMAGIC0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45 LOCATEMAGIClP[(dYou have found a magic item: Your Helm of True Seeing has detected that this is a bad item.!/You do not take it.!/Would you like to take it? NoYes!/!/It is a(n) They are Eyes of Petrification !!!!!!!/You were able to withstand theF shock.!/You have thrown the eyes to the ground and crushed them.You were not of high enough constitution to withstand the shock.You have been frozen by the gem. You have taken points of damage.All statistics have dropped 3.You are of the wrong class to have that item.You already had a magical weapon so you decided to keep the!/better of the two.You were already protected by a magical shield so you decided!/to keep the better of the two.You already have all the magic you can carry.!/WouldG you like to drop something? Number of the item you wish to drop?  $ LOCATEMAGICXP $  ,, FORMAT@XUJ J FORMAT@  FORMAT@D FORMAT@ FORMAT@`'  FORMAT@_8 FORMAT@@H\L\ FORMAT@$0l FORMAT@D FORMAT@ FORMAT@(-  FORMAT@@O. . FORMAT@]~ ~ FORMAT@@D S FORMAT@D &000 FORMAT@PH0[RռмS8DICEPSSQSTDDICEIP OPENMAGICWS FOR$READ_DF( FOR$IO_T_DS0 FOR$IO_T_DSk FOR$IO_L_R߫ FOR$IO_L_R߫ FOR$IO_L_R߫  FOR$IO_L_R FOR$IO_ENDP CLOSEFILE`FORMATlTRIMMERSSS!S$S8SNSOt FINDMAGICP|DICEP<ːFORMATռ1ˤFORMAT˰INPUTѫNFORMATѫY1cFORMATTRIMMERS"FORMAT SAVINGTHROWPFORMAT3$FORMATJS80DICE P« 3DFORMATPOUTNUM`FORMATSUtFORMATˀ CHANGESTATSѢD ѢDѢDkѢD˔FORMATѼ1ˠ MAGICPERLEVELPTS SYS[TUVUbWՇѧѧYѧ[˰FORMATSѧ ѧSVUV1STUVUbWчѧYѧ[SVUVSTUVUbWчѧSSVFORMATSѧSVUVTUUbVՆЫWSKGS SET_CHARGESUFORMATINPUTѫNիѫYa LISTMAGICFORMATP INPUTNUMBERիѫTЫWSGS SET_CHARGES& H LOCATEMAGICDICE OPENMAGIC CLOSEFILEFORMATTRIMMER FINDMAGICINPUT SAVINGTHROWOUTNUM CHANGESTATS MAGICPERLEVEL SET_CHARGES LISTMAGIC INPUTNUMBER$CODE`$PDATAD$LOCAL;BLOCK1BLOCK2(BLOCK3LLBLOCK4BLOCK5BLOCK6BLOCK7YBLOCK8BLOCK9BLOCK08 BLOCKABLOCKBBLOCKC< BLOCKDBLOCKE FOR$IO_END FOR$IO_L_R FOR$IO_T_DS FOR$READ_DFPP /P8P P&P!PPPP P-P!P+P AP^P1sP ~PP;PPP-P&P P0P9PbBPYLPKSP@YPcP0mP&|P P PPP; MP-PPP PVPOPEP7P1P P P:P&CPPPPP%ww1odύ011LOGOUT0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45 LOGOUT LOGOUT1PPNH[k SYS$DELPRCN HLOGOUT SYS$DELPRC$CODE$PDATA $LOCAL  ww1K2jύ018 MAGICPERLEVEL0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45 MAGICPERLEVEL MAGICPERLEVEL'PH[ѼЫPJ H MAGICPERLEVEL!$CODE$PDATA$LOCAL P P !ww1O@mjύ019MAGIC_POSITION0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45MAGIC_POSITIONMAGIC_POSITIONZP@P H[ԫ MAGICPERLEVELPQRQSуRPQRP> HMAGIC_POSITION MAGICPERLEVEL;$CODE$PDATA$LOCAL;BLOCK1BLOCK2(BLOCK3LBLOCK4BLOCK5BLOCK6BLOCK7YBLOCK8BLOC PK9BLOCK08 BLOCKABLOCKBBLOCKC< BLOCKDBLOCKE P-P$;ww1+jύ016 MAGIC_RANGE0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45 MAGIC_RANGE MAGIC_RANGEbP@P H[ԫ MAGICPERLEVELPQRQSуѣУPQRP= H MAGIC_RANGE MAGICPERLEVELC$CODE$PD QATA$LOCAL;BLOCK1BLOCK2(BLOCK3LBLOCK4BLOCK5BLOCK6BLOCK7YBLOCK8BLOCK9BLOCK08 BLOCKABLOCKBBLOCKC< BLOCKDBLOCKEP"-P4P $Cww1fύ019NUMERICTOASCII0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45NUMERICTOASCIIP,-./01R7<?BIPNUMERICTOASCIIP /37   $ (,0,48<8@D@HDDLDPDSHTDXD\D `DdDhDlDpD tDx|D$, , 4 P&*ABN SAVINGTHROW2P  PH[ԫüRk FINDMAGICPR FINDMAGICPR FINDMAGICPR FINDMAGICPfR FINDMAGICPR( FINDMAGICPR0 FINDMAGICP R8DICE@PQQRPPԫЫP@ H SAVINGTHROW FINDMAGICDICE$CODE$$PDATAH$LOCAL;BLOCK1BLOCK2(BLOCK3LBLOCK4BLOCK5BLOCK6BLOCK7YBLOCK8BLOCK9BLOCK08 BLOCKABLOCKBBLOCKC< BLOCKDBLOCKE@P*P9PGPUPcPrPPPP g" $ww1-jύ016 SET_CHARGES0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45 SET_CHARGES&P2c SET_CHARGES#P    PH[Ь  ޻RѼ4DICEмQPAb1ѼJ DICEмQPAbѼL,DICEмQPAbѼ68DICEмQPAb hѼYѼ[мQAbDDICEмQPAbU H SET_CHARGESDICE$CODE $PDATAP$LOCALHP/P=POPdYPkPHqPP0PP P! ww1٬gύ011SINGLE0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45 SINGLE P+ SINGLEGP@ FOR$WRITE_SFݼ FOR$IO_L_V FOiR$IO_ENDr @SINGLE#$CODE$PDATA$LOCAL FOR$IO_END FOR$IO_L_V FOR$WRITE_SF  #ww1`*fύ010SLEEP0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45 SLEEP SLEEP1PPH[мk BAS$SLEEPP HSLEEP BAS$SLEEP$CODE$PDATA$LOCAL  ww1Jjhύ010SPELL0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45 SPELL P SPELLPPH[ԼD Dk FINDMAGIC@ d+L''P'LPeePd  P ּPּ1 HSPELL FINDMAGIC$CODE$PDATA$LOCAL;BLOCK1kBLOCK2(BLOCK3LBLOCK4BLOCK5BLOCK6BLOCK7YBLOCK8BLOCK9BLOCK08 BLOCKABLOCKBBLOCKC< BLOCKDBLOCKEP P/P1P3P5P7Pr9Pj;PV=PN?P:AP2CP*EP"GPtPPPPP0$ #ww12eύ012TRIMMER0114-May-1985 15:0814-May-1985 1 l5:08VAX FORTRAN V4.1-45TRIMMERP+@TRIMMERPPH[}PQP LENGTHPk FOR$WRITE_SF FOR$IO_T_DS FOR$IO_END@P HTRIMMERLENGTHM$CODE $PDATA$LOCAL FOR$IO_END FOR$IO_T_DS FOR$WRITE_SFPC!P  Mww1 cύ014 UPPERCASE0114-May-1985 15:0m814-May-1985 15:08VAX FORTRAN V4.1-45 UPPERCASE UPPERCASEqPPH[}PQP LIB$LENPVWVWP@QQ`Q{ QQ@VWR H UPPERCASELIB$LENP$CODE$PDATA$LOCAL&P(9PBPPww1gύ013USERINFO0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45USERINFO nPUSERINFO P   PH [}PQ}PQ GETNAME22IFIELD0IFIELD^ HUSERINFOGETNAMEIFIELD<$CODE $PDATAP$LOCAL  <ww1 gύ014 VARFORMAT0114-May-1985 15:0814-May-1985 15:08VAX FORTRAN V4.1-45 VARFORMATP+@@ VARFORMATPQ PH [޼  IPOSITIONPkk FOR$WRITE_SF FOR$IO_T_DSݼ FOR$IO_L_V FOR$IO_END@P@ P H VARFORMAT IPOSITIONh$CODE$PDATA$$LOCAL FOR$IO_END FOR$IO_L_V FOR$IO_T_DS FOR$WRITE_SFPT P^  hww