Dies ist die Prozedur für den Kartenausschub





PR Karte2
bild
GeldautomatB

;*Karte 1

bild
GeldautomatB
sh aufxy 870 490 sa
farbe 0 0 0 re 180 wh 2 [re 90 vw 40 re 90 vw 10] sh re 135 vw 10 sa farbe 0 0 0 fülle 0
Pause 10

;*Karte 2

bild
GeldautomatB
sh aufxy 870 490 sa
farbe 0 0 0 re 180 wh 2 [re 90 vw 40 re 90 vw 45] sh re 135 vw 10 sa farbe 0 0 0 fülle 0 sh vw 10 sa fülle 0
Pause 10

;*Karte 3

bild
GeldautomatB
sh aufxy 870 490 sa
farbe 0 0 0 re 180 wh 2 [re 90 vw 40 re 90 vw 70] sh re 135 vw 10 sa farbe 0 0 0 fülle 0 sh vw 10 sa fülle 0
Pause 10

;*Bildschirmausgabe

sh aufxy 550 600 sa
schreibe "Bitte entnehemen sie ihre Karte"
Pause 10

ENDE


Zurück

Zur nächsten Prozedur="Die Verabschiedung"