HPROGA 00000000007F
DLISTA 000060ENDA 000070
RLISTB ENDB LISTC ENDC