rem ******************************** L'CALL DEF **********************
rem * 1. *
DEF weiter
    print line$
print in$;tab(20);"W E I T E R  bitte  L E E R T A S T E  druecken!";tab(83);ni$
print in$;tab(20);"LOCOMDAT.COM    by  (C) HERBERT MOSCHITZ  (1987)";tab(83);ni$
    print line$
    weiter.schleife:
    k%=inkey
    if k%<>32 then goto weiter.schleife: ELSE print cls$
FEND
rem ------------------------------------------------------------------
rem * 2. *