4ô ---------------------------------------------- ô MAIN 4ô ---------------------------------------------- (ë 7 2 T%=¸P < Ò=¸P+&100 FÞ proc$(3), mod$(3) Pcurrmod$=" " Zã I%=1 ¸ 3 d ó proc$(I%) n ó mod$(I%) xí ‚òcall("printa") Œòcall("printb") –òcall("printc") à ª ´Ýòcall(P$) ¾I%=0 Èõ Ò I%=I%+1 Üý I%=3 „ proc$(I%)=P$ æ"ç proc$(I%)<>P%:ñ "Bad PROC":à ð+ç mod$(I%)<>currmod$:òoverlay(mod$(I%)) úç P$="printa":òprinta:á ç P$="printb":òprintb:á ç P$="printc":òprintc:á á " ,Ýòoverlay(M$) 6currmod$=M$ @ÿ"LOAD "+M$+" "+Ã~(T%-2) Já T ^Ü "printa","MODULEA" hÜ "printb","MODULEB" rÜ "printc","MODULEC" ÿ