Dies ist die Prozedur für den Karteneinschub
PR Karte
bild
GeldautomatB
;*Bildschirm ausgabe
farbe 0 0 0
sh aufxy 550 600 sa
schreibe "Bitte geben sie ihre Karte ein"
Pause 10
;*Karte 1
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
;*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 10] sh re 135 vw 10 sa farbe 0 0 0 fülle 0
ENDE
