;*Pinabfrage

sh aufxy 550 600 sa
schreibe [Bitte geben sie ihren Pin ein]
Pause 20
bild GeldautomatB


;*PineingabeFenster

pin
Pause 20



Prozedur für richtige Pineingabe:


PR pin :Pin

bild
GeldautomatB
wenn :Pin=1804 dann Pin1 sonst wenn
:Pin=0673 dann Pin2 sonst wenn
:Pin=4401 dann Pin3 sonst
sh aufxy 550 600 sa schreibe [Pin ist falsch]
sh aufxy 550 570 sa schreibe [bitte versuchen sie es erneut] Versuch1

ENDE



Prozedur für falsche Pineingabe:


PR Versuch1 :Pin

bild
GeldautomatB
wenn :Pin=1804
dann Pin1 sonst wenn :Pin=0673
dann Pin2 sonst wenn :Pin=4401
dann Pin3 sonst sh aufxy 550 600 sa schreibe [Pin ist falsch]
sh aufxy 550 570 sa schreibe [bitte versuchen sie es erneut] Versuch2
Pause 20

ENDE

PR Versuch3

bild
GeldautomatB

;*Karte einbehalten
sh aufxy 550 600 sa schreibe [Pin ist falsch]
sh aufxy 550 570 sa schreibe [Ihre karte]
sh aufxy 550 540 sa schreibe [wird eingezogen]
Pause 30

;*Verabschiedung
bild GeldautomatB
farbe 0 0 0
sh aufxy 625 600 sa
schreibe [Danke]
sh aufxy 633 570 sa
schreibe [auf]
sh aufxy 599 540 sa
schreibe [Wiedersehen]

Pause 20

bild GeldautomatB
ENDE

Zurück

Zur nächsten Prozedur="Die Pinbesitzer"