COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "CNVERT"
C00005 ENDMK
C⊗;
BEGIN "CNVERT"
	INTEGER FLG,CNT,BRK,EOF,N;
	STRING WORD,FILE;

	OPEN(1,"DSK",0,3,0,CNT,BRK,EOF);
	OPEN(2,"DSK",0,0,3,0,0,0);

	DO BEGIN OUTSTR(9&"FILE = ");FILE←INCHWL;
	LOOKUP(1,FILE,FLG);END UNTIL ¬FLG;
	BREAKSET(1,"@{}<>[]()↔,;"&13&10&32&9&12,"I");
	ENTER(2,FILE,FLG);IF FLG THEN BEGIN OUTSTR("ENTER FAILED.");
	WHILE TRUE DO INCHRW;END;
WHILE TRUE DO
BEGIN
	CNT ← 200;
	WORD ← INPUT(1,1);
	IF EOF THEN DONE;
	N ← LENGTH(WORD);

IF N≥3 ∧ N≤5 THEN BEGIN
IF N=3 THEN
BEGIN
	IF EQU(WORD,"LIP") THEN WORD←"HLR";
	IF EQU(WORD,"LAP") THEN WORD←"HRR";
	IF EQU(WORD,"ZIP") THEN WORD←"HRRZS";
	IF EQU(WORD,"ZAP") THEN WORD←"HLLZS";
	IF EQU(WORD,"WIP") THEN WORD←"HRROS";
	IF EQU(WORD,"WAP") THEN WORD←"HLLOS";
	IF EQU(WORD,"NIP") THEN WORD←"HLRE";
	IF EQU(WORD,"NAP") THEN WORD←"HRRE";
	IF EQU(WORD,"NIM") THEN WORD←"HRREI";
	IF EQU(WORD,"DZM") THEN WORD←"SETZM";
	IF EQU(WORD,"DOM") THEN WORD←"SETOM";
	IF EQU(WORD,"ZAC") THEN WORD←"SETZ";
	IF EQU(WORD,"WAC") THEN WORD←"SETO";
END ELSE IF N=4 THEN
BEGIN
	IF EQU(WORD,"LIPI") THEN WORD←"HRLI";
	IF EQU(WORD,"LAPI") THEN WORD←"HRRI";
	IF EQU(WORD,"DIPZ") THEN WORD←"HRLZM";
	IF EQU(WORD,"LACI") THEN WORD←"MOVEI";
	IF EQU(WORD,"DAPZ") THEN WORD←"HRRZM";
	IF EQU(WORD,"LACN") THEN WORD←"MOVN";
	IF EQU(WORD,"LACM") THEN WORD←"MOVM";
	IF EQU(WORD,"SLAC") THEN WORD←"MOVS";
	IF EQU(WORD,"DACN") THEN WORD←"MOVNM";
	IF EQU(WORD,"DACM") THEN WORD←"MOVMM";
	IF EQU(WORD,"SDAC") THEN WORD←"MOVSM";
END ELSE IF EQU(WORD,"SLACI") THEN WORD←"MOVSI";
END;
	OUT(2,WORD&BRK);
END;
	RELEASE(1);
	RELEASE(2);
END;