'
' Bankkommunikationsskript für POSTBANK.
'
' Erste Erstellung: 01.07.1993
' Letzte Änderung : 14.12.1998
' Autor: Christian Kaben
'

LISTFILE$ := "BankManager:LISTFILE.PBK"
EINUEB$ := "BankManager:EINUEB"
SAMUEB$ := "BankManager:SAMUEB"
SAMLST$ := "BankManager:SAMLST"
EINUEBE$ := "BankManager:EINUEBE"
SAMUEBE$ := "BankManager:SAMUEBE"
SAMLSTE$ := "BankManager:SAMLSTE"
KSTAND$ := "BankManager:KTOSTAND.PBK"
AUSZUG$ := "BankManager:AUSZUG.PBK"
UEBEXTENSION$ := ".PBK"

'Maximale Länge von Empfänger- und Textfeldern.
MAX_EM_LEN:=27
MAX_TX_LEN:=27

open #1,LISTFILE$,"r"
'Version
INPUT$:=input$ #1
'Einzelüberweisung
INPUT$:=input$ #1
EINUEB := val(INPUT$)
'überweisung
INPUT$:=input$ #1
'überweisung
INPUT$:=input$ #1
'überweisung
INPUT$:=input$ #1
'überweisung
INPUT$:=input$ #1
'Sammelüberweisung
INPUT$:=input$ #1
SAMUEB := val(INPUT$)
'Sammellastschrift
INPUT$:=input$ #1
SAMLAS := val(INPUT$)
'Kontoauszüge holen?
INPUT$:=input$ #1
AUSZUG := val(INPUT$)
'Datum letzter Kontoauszug
INPUT$:=input$ #1
LAUSZUG$ := INPUT$
'Kontostand abfragen?
INPUT$:=input$ #1
STAND := val(INPUT$)
'PIN
INPUT$:=input$ #1
PIN$ := INPUT$
'Startseite
INPUT$:=input$ #1
STARTSEITE$ := INPUT$
'Kontonummer
INPUT$:=input$ #1
KONTONR$ := INPUT$
'Kennwort 1
INPUT$:=input$ #1
'Kennwort 2
INPUT$:=input$ #1
'Kennwort 3
INPUT$:=input$ #1
'Kennwort 4
INPUT$:=input$ #1
'Einzelüberweisung EURO
INPUT$:=input$ #1
EINUEBE := val(INPUT$)
'Sammelüberweisung EURO
INPUT$:=input$ #1
SAMUEBE := val(INPUT$)
'Sammellastschrift EURO
INPUT$:=input$ #1
SAMLASE := val(INPUT$)

close #1



if(STARTSEITE$ <> "")
'		Erst einmal auf die Nullseite springen. Damit
'		verlasse ich ggf. auch einen ER (normalerweise).
	send(ini$+"0"+ter$)
	wait(1,0,0,30000)
'		Bankrechner aufrufen.
	send(ini$+STARTSEITE$+ter$)
	wait(1,0,0,30000)
	send(KONTONR$)
	if(len(KONTONR$) < 10)
		send(ter$)
	endif
	wait(1,0,0,30000)
	send(PIN$)
	wait(1,0,0,30000)
	send("10")
	wait(1,0,0,30000)
	send("19")
	wait(1,0,0,30000)
	ZEILE$ := line$(24)
'		Prüfung auf fehlgeschlagenen Versuch.
	if((left$(ZEILE$,1) <> "") and (left$(ZEILE$,1) <> " "))
		split(2)
		print "Zugang fehlgeschlagen!"
		sleep(5000)
		split(0)
		goto ENDE:
	endif
	send("0")
	wait(1,0,0,30000)
endif

if(STAND > 0)
	gosub KTOSTAND:
endif
MAXUEB := EINUEB
if(MAXUEB > 0)
	gosub EINUEB:
endif
MAXUEB := EINUEBE
if(MAXUEB > 0)
	gosub EINUEBE:
endif
MAXUEB := SAMUEB
if(MAXUEB > 0)
	gosub SAMUEB:
endif
MAXUEB := SAMUEBE
if(MAXUEB > 0)
	gosub SAMUEBE:
endif
MAXUEB := SAMLAS
if(MAXUEB > 0)
	gosub SAMLAS:
endif
MAXUEB := SAMLASE
if(MAXUEB > 0)
	gosub SAMLASE:
endif
if(AUSZUG > 0)
	gosub UMSAETZE:
endif


ENDE:
end




'
' K O N T O S T A N D
'

KTOSTAND:
' Kontostandmaske aufrufen.
send("10")
wait(1,0,0,30000)
DATUM$ := ""
ZEIT$ := ""
STAND$ := ""
STANDE$ := ""
' Datum und Uhrzeit auslesen
LINE$ := line$(8)
if(len(LINE$) > 9)
	LINE$ := mid$(LINE$,10,40)
endif
if(len(LINE$) = 0)
	return
endif
while(left$(LINE$,1) = " ")
	LINE$ := mid$(LINE$,2,40)
wend
if(len(LINE$) = 0)
	return
endif
while(left$(LINE$,1) <> " ")
	LINE$ := mid$(LINE$,2,40)
wend
if(len(LINE$) = 0)
	return
endif
while(left$(LINE$,1) = " ")
	LINE$ := mid$(LINE$,2,40)
wend
if(len(LINE$) = 0)
	return
endif
while(left$(LINE$,1) <> " ")
	DATUM$ := DATUM$ + left$(LINE$,1)
	LINE$ := mid$(LINE$,2,40)
wend
if(len(LINE$) = 0)
	return
endif
while(left$(LINE$,1) = " ")
	LINE$ := mid$(LINE$,2,40)
wend
if(len(LINE$) = 0)
	return
endif
while(left$(LINE$,1) <> " ")
	ZEIT$ := ZEIT$ + left$(LINE$,1)
	LINE$ := mid$(LINE$,2,40)
wend
' Betrag DM auslesen
LINE$ := line$(10)
if(len(LINE$) > 9)
	LINE$ := mid$(LINE$,11,40)
endif
if(len(LINE$) = 0)
	return
endif
while(left$(LINE$,1) = " ")
	LINE$ := mid$(LINE$,2,40)
wend
if(len(LINE$) = 0)
	return
endif
while(left$(LINE$,1) <> " ")
	STAND$ := STAND$ + left$(LINE$,1)
	LINE$ := mid$(LINE$,2,40)
wend
' Betrag EURO auslesen
LINE$ := line$(11)
if(len(LINE$) > 9)
	LINE$ := mid$(LINE$,11,40)
endif
if(len(LINE$) = 0)
	return
endif
while(left$(LINE$,1) = " ")
	LINE$ := mid$(LINE$,2,40)
wend
if(len(LINE$) = 0)
	return
endif
while(left$(LINE$,1) <> " ")
	STANDE$ := STANDE$ + left$(LINE$,1)
	LINE$ := mid$(LINE$,2,40)
wend
open #1,KSTAND$,"w"
print #1,DATUM$
print #1,ZEIT$
print #1,STAND$
print #1,STANDE$
close #1
send("0")
wait(1,0,0,30000)
return





'
' E I N Z E L Ü B E R W E I S U N G E N
'

EINUEB:
' Test, ob nicht schon alle versandt worden sind.
COUNTMAX := MAXUEB
COUNTNAME$ := EINUEB$
gosub COUNTOPEN:
if(COUNTMAX = 0)
	return
endif
ISEURO := 0
ANWFILENAME$ := EINUEB$
gosub EUEB:
return

EINUEBE:
' Test, ob nicht schon alle versandt worden sind.
COUNTMAX := MAXUEB
COUNTNAME$ := EINUEBE$
gosub COUNTOPEN:
if(COUNTMAX = 0)
	return
endif
ISEURO := 1
ANWFILENAME$ := EINUEBE$
gosub EUEB:
return


EUEB:

' Überweisungseingabemaske aufrufen.
send("20")
wait(1,0,0,30000)
TAN$ := ""
UNTERSCHRIFT$ := ""
BASELINE := 6
BASECOL := 10
SESENDCURR := 1

' Ab hier Einspielen der Datensätze.
for i:=1 to MAXUEB
'		TAN als leer initialisieren, da jeder Auftrag ja seine
'		eigene TAN hat (im Gegensatz zu den Sammlern).
	TAN$ := ""
	GLOBALERROR := 0
	FILENAME$ := ANWFILENAME$+str$(i-1)+UEBEXTENSION$
'		Einspielen des aktuellen Datensatzes.
	gosub SENDENTRY:
'split(10)
'print GLOBALERROR
'sleep(5000)
'split(0)
	if(GLOBALERROR = -1)
'split(10)
'print "NEXT erkannt"
'sleep(3000)
'split(0)
goto LABEL11:
		next
	endif
'	Auftragsbestätigung j/n
send(ter$)
'	Als Abrufüberweisung speichern j/n
send(ter$)
wait(1,0,0,30000)
'	Termin (Tag, Monat, Jahr)
send(ter$)
send(ter$)
send(ter$)
wait(1,0,0,30000)

LABEL11:

'		Vergleich des aktuellen Datensatzes mit der Anzeige seitens Btx.
	GLOBALERROR := 0
	FILENAME$ := ANWFILENAME$+str$(i-1)+UEBEXTENSION$
'split(5)
'print "1"
'sleep(1000)
'split(0)
loop11:
	gosub CHECK:
	if(GLOBALERROR=-1)
goto LABEL12:
		next
	endif

'split(5)
'print "2"
'sleep(1000)
'split(0)
	if(GLOBALERROR <> 0)
'			Anzeige weicht vom Eingespielten ab. Also erneut einspielen.
		send("1")
		wait(1,0,0,30000)
		gosub SENDENTRY:
		if(GLOBALERROR=-1)
goto LABEL12:
			next
		endif
		goto loop11:
	endif
'split(5)
'print "3"
'sleep(1000)
'split(0)

	if(TAN$ = "")
		split(5)
		print "Keine TAN vorhanden !!!"
		sleep(10000)
		split(0)
		goto ENDE:
	endif
	send(TAN$)
	wait(1,0,0,30000)
'		Erfolgreich eingespielten Datensatz als erledigt markieren.
	gosub DELETEENTRY:

	if(i < MAXUEB)
'			Es kommen noch mehr Überweisungen.
		send(ter$)
	else
		send("0")
	endif
	wait(1,0,0,30000)
LABEL12:
next

return





'
' S A M M E L Ü B E R W E I S U N G E N
'

SAMUEB:
' Test, ob nicht schon alle versandt worden sind.
COUNTMAX := 1
COUNTNAME$ := SAMUEB$
gosub COUNTOPEN:
if(COUNTMAX = 0)
	return
endif
ISEURO := 0
ANWFILENAME$ := SAMUEB$
gosub SUEB:
return

SAMUEBE:
' Test, ob nicht schon alle versandt worden sind.
COUNTMAX := 1
COUNTNAME$ := SAMUEBE$
gosub COUNTOPEN:
if(COUNTMAX = 0)
	return
endif
ISEURO := 1
ANWFILENAME$ := SAMUEBE$
gosub SUEB:
return


SUEB:

send("21")
wait(1,0,0,30000)

gosub CLEAROLD:

send("90")
wait(1,0,0,30000)
if(errno<>0)
	wait(1,0,0,30000)
endif
LINE$ := line$(7)
LSTNR$ := mid$(LINE$,15,6)
'split(10)
'print LSTNR$
'sleep(2000)
'split(0)
TAN$ := ""
UNTERSCHRIFT$ := ""
BASELINE := 8
BASECOL := 8
SESENDCURR := 1

' Ab hier Einspielen der Datensätze.
for i:=1 to MAXUEB
	GLOBALERROR := 0
	FILENAME$ := ANWFILENAME$+str$(i-1)+UEBEXTENSION$

	gosub SENDENTRY:
	SESENDCURR := 0
'split(10)
'print GLOBALERROR
'sleep(5000)
'split(0)
	if(GLOBALERROR=-1)
'split(10)
'print "NEXT erkannt"
'sleep(3000)
'split(0)
goto LABEL21:
		next
	endif

	if(i < MAXUEB)
'			Es folgen noch weitere Überweisungen.
		send(ter$)
	else
'			Es folgen keine weitere Überweisungen.
		send("9")
	endif
	wait(1,0,0,30000)
	if(cur_y = (BASELINE - 1))
		BS := BASELINE - 1
		PR$ := line$(BS)
		PR$ := mid$(PR$,34,3)
		if(len(PR$) > 0)
			if(PR$ <> "   ")
'					Dann ist der Auftrag fehlerhaft, da seitens
'					der Bank die verwendete Kombination BLZ und
'					Kontonummer abgelehnt wurde.
				split(5)
				print "Auftrag fehlerhaft!"
				sleep(10000)
				split(0)
'					Wenn ich dann BLZ und Kontonummer noch einmal
'					schlicht bestätige, wird das dann trotzdem
'					angenommen. Ausnahme bildet dann nur eine
'					falsche Kontoverbindung bei einem Postbankkonto.
'					Das läßt sich damit leider nicht austricksen.
				send(ter$)
				send(ter$)
				wait(1,0,0,30000)
			endif
		endif
	endif
LABEL21:
next
' Anzeigen/Ändern/Löschen
send("82")
wait(1,0,0,30000)

' Ab hier Vergleich der Datensätze mit der Anzeige seitens Btx.
for i:=1 to MAXUEB
	GLOBALERROR := 0
	FILENAME$ := ANWFILENAME$+str$(i-1)+UEBEXTENSION$
'split(5)
'print "1"
'sleep(1000)
'split(0)
loop21:
	gosub CHECK:
	if(GLOBALERROR=-1)
goto LABEL22:
		next
	endif

'split(5)
'print "2"
'sleep(1000)
'split(0)
	if(GLOBALERROR <> 0)
		send("1")
		wait(1,0,0,30000)
		gosub SENDENTRY:
		if(GLOBALERROR=-1)
goto LABEL22:
			next
		endif
		goto loop21:
	endif
'split(5)
'print "3"
'sleep(1000)
'split(0)
	send(ter$)
	gosub DELETEENTRY:
	wait(1,0,0,30000)
LABEL22:
next
if(TAN$ = "")
	split(5)
	print "Keine TAN vorhanden !!!"
	sleep(10000)
	split(0)
	end
endif

send("83")
wait(1,0,0,30000)
'	Termin (Tag, Monat, Jahr)
send(ter$)
send(ter$)
send(ter$)
wait(1,0,0,30000)
send(TAN$)
wait(1,0,0,30000)
send("0")

return






'
' S A M M E L L A S T S C H R I F T E N
'

SAMLAS:
' Test, ob nicht schon alle versandt worden sind.
COUNTMAX := 1
COUNTNAME$ := SAMLST$
gosub COUNTOPEN:
if(COUNTMAX = 0)
	return
endif
ISEURO := 0
ANWFILENAME$ := SAMLST$
gosub SLAS:
return

SAMLASE:
' Test, ob nicht schon alle versandt worden sind.
COUNTMAX := 1
COUNTNAME$ := SAMLSTE$
gosub COUNTOPEN:
if(COUNTMAX = 0)
	return
endif
ISEURO := 1
ANWFILENAME$ := SAMLSTE$
gosub SLAS:
return


SLAS:

send("40")
wait(1,0,0,30000)
send("83")
wait(1,0,0,30000)

gosub CLEAROLD:

send("90")
wait(1,0,0,30000)
if(errno<>0)
	wait(1,0,0,30000)
endif
LINE$ := line$(7)
LSTNR$ := mid$(LINE$,15,6)
'split(10)
'print LSTNR$
'sleep(2000)
'split(0)
TAN$ := ""
UNTERSCHRIFT$ := ""
BASELINE := 8
BASECOL := 8
SESENDCURR := 1

' Ab hier Einspielen der Datensätze.
for i:=1 to MAXUEB
	GLOBALERROR := 0
	FILENAME$ := ANWFILENAME$+str$(i-1)+UEBEXTENSION$

	gosub SENDENTRY:
	SESENDCURR := 0
'split(10)
'print GLOBALERROR
'sleep(5000)
'split(0)
	if(GLOBALERROR=-1)
'split(10)
'print "NEXT erkannt"
'sleep(3000)
'split(0)
goto LABEL31:
		next
	endif

'		Es liegt eine Einzugsermächtigung vor.
	send("05")
	if(i < MAXUEB)
'			Es folgen noch weitere Lastschriften.
		send(ter$)
	else
'			Es folgen keine weitere Lastschriften.
		send("9")
	endif
	wait(1,0,0,30000)
	if(cur_y = BASELINE)
		BS := BASELINE
		PR$ := line$(BS)
		PR$ := mid$(PR$,34,3)
		if(len(PR$) > 0)
			if(PR$ <> "   ")
'					Dann ist der Auftrag fehlerhaft, da seitens
'					der Bank die verwendete Kombination BLZ und
'					Kontonummer abgelehnt wurde.
				split(5)
				print "Auftrag fehlerhaft!"
				sleep(10000)
				split(0)
'					Wenn ich dann BLZ und Kontonummer noch einmal
'					schlicht bestätige, wird das dann trotzdem
'					angenommen. Ausnahme bildet dann nur eine
'					falsche Kontoverbindung bei einem Postbankkonto.
'					Das läßt sich damit leider nicht austricksen.
				send(ter$)
				send(ter$)
				wait(1,0,0,30000)
			endif
		endif
	endif
LABEL31:
next
' Anzeigen/Ändern/Löschen
send("82")
wait(1,0,0,30000)

' Ab hier Vergleich der Datensätze mit der Anzeige seitens Btx.
for i:=1 to MAXUEB
	GLOBALERROR := 0
	FILENAME$ := ANWFILENAME$+str$(i-1)+UEBEXTENSION$
'split(5)
'print "1"
'sleep(1000)
'split(0)
loop31:
	gosub CHECK:
	if(GLOBALERROR=-1)
goto LABEL32:
		next
	endif

'split(5)
'print "2"
'sleep(1000)
'split(0)
	if(GLOBALERROR <> 0)
		send("1")
		wait(1,0,0,30000)
		gosub SENDENTRY:
		if(GLOBALERROR=-1)
goto LABEL32:
			next
		endif
		goto loop31:
	endif
'split(5)
'print "3"
'sleep(1000)
'split(0)
	send(ter$)
	gosub DELETEENTRY:
	wait(1,0,0,30000)
LABEL32:
next
if(TAN$ = "")
	split(5)
	print "Keine TAN vorhanden !!!"
	sleep(10000)
	split(0)
	end
endif

send("83")
wait(1,0,0,30000)
'	Termin (Tag, Monat, Jahr)
send(ter$)
send(ter$)
send(ter$)
send(TAN$)
wait(1,0,0,30000)
send("0")

return





'
' U M S Ä T Z E
'

UMSAETZE:
' Umsatzmaske aufrufen.
send("11")
wait(1,0,0,30000)
' Datumsmaske aufrufen.
send("90")
wait(1,0,0,30000)
'split(20)
FOUNDAUSZUG := 0
FOUNDSP := 0
FOUNDZE := 0
for SPALTE := 1 to 27 step 11
	for ZEILE := 1 to 9
		SP := SPALTE + 10
		ZE := ZEILE + 8
		ZEILE$ := line$(ZE)
print SPALTE;" ";ZEILE;" ";ZEILE$
		if((mid$(ZEILE$,SP,6) = left$(LAUSZUG$,6)) or (mid$(ZEILE$,SP,6) = "      "))
			ZEILE := 9
			SPALTE := 27
		else
			FOUNDAUSZUG := 1
			FOUNDSP := SPALTE
			FOUNDZE := ZEILE
		endif
	next
next
if(FOUNDAUSZUG > 0)
	if((FOUNDSP = 0) and (FOUNDZE = 0))
'			Dann ist es der erste Auszug und den habe ich schon.
		return
	endif
	open #4,AUSZUG$,"a"
	ZE := FOUNDZE + 8
	ZEILE$ := line$(ZE)
	SP := FOUNDSP + 7
	AUSWAHL$ := mid$(ZEILE$,SP,2)
	send(AUSWAHL$)
	wait(1,0,0,30000)
	gosub LESEUMSATZ:
	close #4
endif
'split(0)
send("0")
wait(1,0,0,30000)
return






'
' B I B L I O T H E K
' ===================
'
' ===================
CHECKENTRY:
STRIPBLANKS$ := MID$
gosub STRIPBLANKS:
gosub STRIPLEADS:
if(INPUT$ <> STRIPBLANKS$)
	split(5)
	print "Soll: [";INPUT$;"] Ist: [";STRIPBLANKS$;"]"
	print "UNGLEICH !!!"
	sleep(2000)
	split(0)
'else
'	print "============ (gleich)"
endif
return
if(INPUT$ <> STRIPBLANKS$)
	GLOBALERROR := 1
endif
return


' ===================
STRIPBLANKS:
STRIPLEN := len(STRIPBLANKS$)
while(mid$(STRIPBLANKS$,STRIPLEN,1)=" ")
	STRIPBLANKS$ := left$(STRIPBLANKS$,STRIPLEN-1)
	STRIPLEN := len(STRIPBLANKS$)
wend
return


' ===================
STRIPLEADS:
STRIPLEN := len(STRIPBLANKS$)
while(left$(STRIPBLANKS$,1)=" ")
	STRIPBLANKS$ := mid$(STRIPBLANKS$,2,STRIPLEN)
	STRIPLEN := len(STRIPBLANKS$)
wend
return


' ===================
SENDENTRY:
open #1,FILENAME$,"r"

'split(5)
'print "5"
'sleep(2000)
'split(0)
INPUT$ := input$ #1
'	Eintrag schon gelöscht ?
if(left$(INPUT$,1)="D")
	GLOBALERROR:=-1
'		Wenn es der erste Satz ist, dann trotzdem die TAN auslesen.
	if(TAN$ = "")
		INPUT$ := input$ #1
		INPUT$ := input$ #1
		INPUT$ := input$ #1
		INPUT$ := input$ #1
		INPUT$ := input$ #1
		INPUT$ := input$ #1
		INPUT$ := input$ #1
		INPUT$ := input$ #1
		TAN$ := input$ #1
	endif
	close #1
	return
endif
'	Versionsnummer
INPUT$ := input$ #1
'	Bankleitzahl
INPUT$ := input$ #1
send(INPUT$)
'	Kontonummer
INPUT$ := input$ #1
send(INPUT$)
if(len(INPUT$)<10)
	send(ter$)
endif
'	Empfänger
INPUT$ := input$ #1
send(INPUT$)
if(len(INPUT$)<MAX_EM_LEN)
	send(ter$)
endif
'	DM
INPUT$ := input$ #1
send(INPUT$)
if(len(INPUT$)<9)
	send(ter$)
endif
'	Pf
INPUT$ := input$ #1
send(INPUT$)
if(len(INPUT$)<2)
	send(ter$)
endif
if(SESENDCURR = 1)
	if(ISEURO = 1)
		send("EUR")
	else
		send("DM ")
	endif
endif
'	Zweck 1
INPUT$ := input$ #1
send(INPUT$)
if(len(INPUT$)<MAX_TX_LEN)
	send(ter$)
endif
'	Zweck 2
INPUT$ := input$ #1
send(INPUT$)
if(len(INPUT$)<MAX_TX_LEN)
	send(ter$)
endif
'	TAN
if(TAN$="")
	TAN$ := input$ #1
endif
''	Unterschrift
'UNTERSCHRIFT$ := input$ #1
'send(INPUT$)

close #1
return


' ===================
CHECK:
'split(5)
'print FILENAME$
'sleep(1000)
'split(0)
open #1,FILENAME$,"r"

INPUT$ := input$ #1
'	Eintrag schon gelöscht ?
if(left$(INPUT$,1)="D")
	GLOBALERROR:=-1
	close #1
	return
endif
'split(10)
'	Versionsnummer
INPUT$ := input$ #1
'	Bankleitzahl
INPUT$ := input$ #1
LINELINE := BASELINE
LINECOL := BASECOL
LINE$ := line$(LINELINE)
MID$ := mid$(LINE$,LINECOL + 13,8)
gosub CHECKENTRY:
'gosub DUDDEL:
'	Kontonummer
INPUT$ := input$ #1
LINELINE := BASELINE + 2
LINE$ := line$(LINELINE)
LI := len(INPUT$)
LR := 10 - len(INPUT$)
MID$ := mid$(LINE$,LINECOL + 11 + LR,LI)
'print MID$
gosub CHECKENTRY:
'	Empfänger
INPUT$ := input$ #1
LINELINE := BASELINE + 4
LINE$ := line$(LINELINE)
MID$ := mid$(LINE$,LINECOL,MAX_EM_LEN)
gosub CHECKENTRY:
'	DM
INPUT$ := input$ #1
LINELINE := BASELINE + 6
LINE$ := line$(LINELINE)
MID$ := mid$(LINE$,LINECOL + 2,9)
while(left$(MID$,1)=" ")
	MID$ := mid$(MID$,2,99)
wend
'print MID$
'if(INPUT$ <> MID$)
'	GLOBALERROR := 1
'endif
'	Pf
INPUT$ := input$ #1
LINELINE := BASELINE + 6
LINE$ := line$(LINELINE)
MID$ := mid$(LINE$,LINECOL + 12,2)
while(left$(MID$,1)=" ")
	MID$ := mid$(MID$,2,99)
wend
'print MID$
'if(INPUT$ <> MID$)
'	GLOBALERROR := 1
'endif
'	Zweck 1
INPUT$ := input$ #1
LINELINE := BASELINE + 9
LINE$ := line$(LINELINE)
MID$ := mid$(LINE$,LINECOL,MAX_TX_LEN)
gosub CHECKENTRY:
'	Zweck 2
INPUT$ := input$ #1
LINELINE := BASELINE + 10
LINE$ := line$(LINELINE)
MID$ := mid$(LINE$,LINECOL,MAX_TX_LEN)
gosub CHECKENTRY:

'sleep(5000)
'split(0)
close #1
return


' ===================
DELETEENTRY:
open #1,FILENAME$,"r+"
print #1,"D";
close #1
return


' ===================

DUDDEL:
split(5)
print "99"
sleep(2000)
split(0)
return



' ===================
' Anzahl der noch nicht versandten Aufträge zählen.
COUNTOPEN:
CMAX := 0
for i:=1 to COUNTMAX
	FILENAME$ := COUNTNAME$+str$(i-1)+UEBEXTENSION$
	open #1,FILENAME$,"r"
	INPUT$ := input$ #1
'		Eintrag noch nicht gelöscht ?
	if(left$(INPUT$,1) <> "D")
		CMAX := CMAX + 1
	endif
	close #1
next
COUNTMAX := CMAX
return




' ===================
' Umsätze eines Datums lesen.
LESEUMSATZ:
LUZEILE$ := ""
LABLUZE:
if(mid$(LUZEILE$,1,4) = "Ende")
	LAUSZUG$ := LUDATUM$
	gosub RESETADATE:
	return
endif
LUZEILE$ := line$(8)
LUDATUM$ := mid$(LUZEILE$,14,6)
LUZEILE$ := line$(20)
SC$ := mid$(LUZEILE$,38,2)
for LUZE := 10 to 18 step 3
	LUZEILE$ := line$(LUZE)
	if((len(LUZEILE$) > 35) and (mid$(LUZEILE$,12,5) <> "     "))
		print #4,LUDATUM$
		print #4,mid$(LUZEILE$,12,35);
		TMPLUZE := LUZE + 1
		LUZEILE$ := line$(TMPLUZE)
		print #4,mid$(LUZEILE$,25,35)
		TMPLUZE := LUZE + 2
		LUZEILE$ := line$(TMPLUZE)
		print #4,mid$(LUZEILE$,12,35)
	endif
next
send(ter$)
wait(1,0,0,30000)
LUZEILE$ := line$(20)
if(mid$(LUZEILE$,38,2) = SC$)
	LUZEILE$ := line$(8)
	if(LUDATUM$ = mid$(LUZEILE$,14,6))
'			Dann hat sich seit dem letzten Auszug keine Änderung mehr ergeben.
		LUZEILE$ := "Ende"
	endif
endif
goto LABLUZE:
return





' ===================
' Auszugsdatum neu setzen.
RESETADATE:
open #1,LISTFILE$,"r"
RAZEILE$ := ""
'Version
INPUT$:=input$ #1
RAZEILE$ := RAZEILE$ + INPUT$ + chr$(10)
'Einzelüberweisung
INPUT$:=input$ #1
RAZEILE$ := RAZEILE$ + INPUT$ + chr$(10)
'überweisung
INPUT$:=input$ #1
RAZEILE$ := RAZEILE$ + INPUT$ + chr$(10)
'überweisung
INPUT$:=input$ #1
RAZEILE$ := RAZEILE$ + INPUT$ + chr$(10)
'überweisung
INPUT$:=input$ #1
RAZEILE$ := RAZEILE$ + INPUT$ + chr$(10)
'überweisung
INPUT$:=input$ #1
RAZEILE$ := RAZEILE$ + INPUT$ + chr$(10)
'Sammelüberweisung
INPUT$:=input$ #1
RAZEILE$ := RAZEILE$ + INPUT$ + chr$(10)
'Sammellastschrift
INPUT$:=input$ #1
RAZEILE$ := RAZEILE$ + INPUT$ + chr$(10)
'Kontoauszüge holen?
INPUT$:=input$ #1
RAZEILE$ := RAZEILE$ + INPUT$ + chr$(10)
'Datum letzter Kontoauszug
INPUT$:=input$ #1
RAZEILE$ := RAZEILE$ + LAUSZUG$ + chr$(10)
'Kontostand abfragen?
INPUT$:=input$ #1
RAZEILE$ := RAZEILE$ + INPUT$ + chr$(10)
'PIN
INPUT$:=input$ #1
RAZEILE$ := RAZEILE$ + INPUT$ + chr$(10)
'Startseite
INPUT$:=input$ #1
RAZEILE$ := RAZEILE$ + INPUT$ + chr$(10)
'Kontonummer
INPUT$:=input$ #1
RAZEILE$ := RAZEILE$ + INPUT$ + chr$(10)
'Kennwort1
INPUT$:=input$ #1
RAZEILE$ := RAZEILE$ + INPUT$ + chr$(10)
'Kennwort2
INPUT$:=input$ #1
RAZEILE$ := RAZEILE$ + INPUT$ + chr$(10)
'Kennwort3
INPUT$:=input$ #1
RAZEILE$ := RAZEILE$ + INPUT$ + chr$(10)
'Kennwort4
INPUT$:=input$ #1
RAZEILE$ := RAZEILE$ + INPUT$ + chr$(10)
'Einzelüberweisung Euro
INPUT$:=input$ #1
RAZEILE$ := RAZEILE$ + INPUT$ + chr$(10)
'Sammelüberweisung Euro
INPUT$:=input$ #1
RAZEILE$ := RAZEILE$ + INPUT$ + chr$(10)
'Sammellastschrift Euro
INPUT$:=input$ #1
RAZEILE$ := RAZEILE$ + INPUT$ + chr$(10)
close #1
open #1,LISTFILE$,"w"
print #1,RAZEILE$;
close #1
return



' ===================
' Alte noch offene Sammelaufträge löschen. Diese dürften wohl aus
' abgebrochenen Einspielskripten stammen.
CLEAROLD:
ZEILE$ := line$(8)
while(mid$(ZEILE$,14,4) <> "    ")
	send("80")
	wait(1,0,0,3000)
	send("89")
	wait(1,0,0,3000)
	send("89")
	wait(1,0,0,3000)
	ZEILE$ := line$(8)
wend
return