#A4# #Begynd OPKALD_IND.# #Inkrementer NYE.# #Udskriv nummer eller fejlmeddelelse.# #Er listen tom?# # ja, _liste_tom:# # nej# #Nulstil antal opkald fra denne abonnent: ANTAL = 0# #_sidste_post:# #_gem:# #Er listen tom?# # ja, _liste_tom:# # nej# #Slet liste-tom-flag.# #_liste_tom_:# #Inkrementer LISTE_TOP.# #Indlæs tid og dato fra ur.# #Gem (tilføj) post ved LISTE_TOP.# #Hop til VENTE_TILSTAND.# #Initier pointere (1): I7 = ^LISTE_BUND.# #Initier pointere (2): I3 = ^NUMMER I6 = I7# #_ny_post:# #_nyt_ciffer:# #Cifre ens?# # nej, _nummre_forsk:# #Sidste post?# # nej# # ja# #Fortsæt med med næste post, inkrementer I7.# #Er listen fyldt?# # ja# # nej# #_max_antal_:# #Inkrementer ANTAL.# #Sidste ciffer?# # ja# # nej# # ja, _numre_ens:# #Indlæs ANTAL# #Slet udvalgte post (udpeget af I7).#