Dies ist die Prozedur für die Geldwahl





PR Geldwahl0

bild
GeldautomatB

;*Wahl 1
sh aufxy 550 617 sa
schreibe "10 Euro"

;*Wahl 2
sh aufxy 550 577 sa
schreibe "25 Euro"

;*Wahl 3
sh aufxy 550 537 sa
schreibe "50 Euro"

;*Wahl 4
sh aufxy 550 497 sa
schreibe "100 Euro"

;*Wahl 5
sh aufxy 680 617 sa
schreibe "250 Euro"

;*Wahl 6
sh aufxy 680 577
schreibe "500 Euro"

;*Wahl 7
sh aufxy 680 537 sa
schreibe "1000 Euro"

;*Wahl 8
sh aufxy 680 497 sa
schreibe "5000 Euro"

ENDE



PR Geldwahl :Wahl

wenn :Wahl=10
dann Geldausgabe sonst wenn :Wahl=25
dann Geldausgabe sonst wenn :Wahl=50
dann Geldausgabe sonst wenn :Wahl=100
dann Geldausgabe sonst wenn :Wahl=250
dann Geldausgabe sonst wenn :Wahl=500
dann Geldausgabe sonst wenn :Wahl=1000
dann Geldausgabe sonst wenn :Wahl=5000
dann Geldausgabe sonst sh aufxy 550 600 sa [Falscher Berag] Geldwahl
ENDE


Zurück

Zur nächsten Prozedur="Die Geldausgabe"