XProfan

Hauptprog
blablabla
Print "Der Timer startet ..."
Schlafe 3000
Print "... und weiter gehts",
WaitKey

Proc Schlafe

    Parameters N&
    Declare Ende%
    SetTimer N&
    Clear Ende%

    WhileNot Ende%

        hier sollte Proc Lesen stehen, um während der Schlafzeit
        wiederholt readdigi1& zu lesen, aber alles ohne Tasteneingabe
        aber mit
        WindowStyle 112
        Window %MaxX, %MaxY - 0, 0
        wobei am Ende von Proc Schlafen wieder eventuelle Fehlermeldungen angezeigt werde.
        WaitInput
        Case %wmTimer:Ende% = 1

    EndWhile

    KillTimer

EndProc

Proc lesen

    readdigi1&

endproc

Var Datei$ = "E:\print.txt"
assign #1, Datei$
rewrite #1
Var zu_drucken$ = @Date$(1),@Time$(0)irgenwas soll der Drucker ja drucken
zu_drucken$ = zu_drucken$ + ""siehe unten !!!
print #1, zu_drucken$
close #1
Winexecwait ("cmd.exe /c copy E:\print.txt lpt1",1)
Erase #1
end

copy "E:\print.txt" > "lpt1"

assign #2,"lpt1"
append #2
print #2,zu_drucken$
close #2