Ž§#VAX Bliss-32 V4.5-862 4-May-1990 11:39:49Þ  8 \ p ” ¨ ¼ Ô ø  @ P d ˆ ˜ ¼ Ð è ü  $ 8 P d x Œ   Ä Ø ð   !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!4 """"""""""""X ###`CONSOLIO_OWNCTY_LINKAGE€Ò CON_PUTSTRINGŒCONSOLIO_RELEASECTY_LINKAGE€ª CON_OUTHEXCONSOLIO_GETCHAR_LINKAGE€¾ CON_OWNCTY DO _PUTSTRING€âCON_RELEASECTY5CONSOLIO_OUTCSTRING_LINKAGECONSOLIO_OUTCHAR_LINKAGEoCONSOLIO_PUTCHAR_LINKAGE Dj_OUTHEX€x CON_GETCHAR(CONSOLIO_OUTCRLF_LINKAGE D _OWNCTYRCONSOLIO_OUTZSTRING_LINKAGE DN _RELEASECTY€ CON_OUTCSTRING€Œ CON_OUTCHAR€È CON_PUTCHAR ›_GETCHAR€– CON_OUTCRLF€´CON_OUTZSTRING Dï _OUTCSTRING DÀ_OUTCHAR D2_PUTCHAR Ý_OUTCRLF CONSOLIO_OUTBLANK_LINKAGE D› _OUTZSTRINGÜCON_READ_PROMPT€‚ CON_OUTBLANK D _READ_PROMPT ­ _OUTBLANK}CONSOLIO_PUTSTRING_LINKAGECCONSOLIO_OUTHEX_LINKAGE  ø ø ø ø ø ø ! ü þ ø ü CON_GETCHAR() CON_OUTBLANK() CON_OUTCHAR( )CHAR CON_OUTCRLF()%IF %ISSTRING( )%THENCON_OUTCSTRING(j`( %CHARCOUNT( ), ))%ELSECON_OUTCSTRING( )%FISTRING CON_OUTHEX( , )VALUEZERO_SUP%IF %ISSTRING( )%THENCON_OUTZSTRING(j`( ,))%ELSECON_OUTZSTRING( )%FISTRING CON_OWNCTY(; , )TXCSRXCS CON_PUTCHAR( )CHAR%IF %ISSTRING( )%THEN CON_PUTSTRING(j`( ), )%ELSE CON_PUTSTRING( , )%FISTRINGLEN%IF %ISSTRING( )%THENCON_READ_PROMPT(j`( ,), , )%ELSECON_READ_PROMPT( , , )%FIPROMPTLENSTRINGCON_RELEASECTY( , )TXCSRXCSD p D   D ø D d D Ô D X D ˜ D D  D 4 D D 8