man kann nach der until abfrage die do loop schleife durch goto main1
ersetzten , sonst ist es ja doppelt gemobbelt.

hallo linux_80 :
ist dein prog-beitrag auf meinen code gemünzt,oder ?