LOAD "PARTY MOS 6510",8,1
LOADING...
READY.
LIST
100 FOR BEGRUESSUNG = 1 TO BESUCHERANZAHL
110 PRINT "HALLO DU!"
120 NEXT BEGRUESSUNG
130 LABEL TRINKEN
140 GET BIER
150 OPEN LEBER, 24
160 INPUT BIER, LEBER
170 IF BIER = 5 GOTO WC
180 IF BIERVORRAT < 3 GOTO KIOSK
190 IF BIER > 20 DO LALLEN
200 OPEN BLUTWERTE
210 GET ALKOHOLPEGEL, BLUTWERTE
220 IF ALKOHOLPEGEL > 2,5 GOTO TANZEN
230 IF ALKOHOLPEGEL < 5,3 GOTO TRINKEN
240 IF ALKOHOLPEGEL > 5,3 GOTO KOMA
250 CLOSE BLUTWERTE
300 LABEL KIOSK
310 GET BIERVORRAT, KISTE
320 OUTPUT GELD$
330 RETURN
400 LABEL TANZEN
410 OPEN BEINMUSKULATUR
420 FOR TANZZEIT = 1 TO SCHWITZEN
430 BEINBEWEGUNG = BEINBEWEGUNG + X ANDOR Y
440 NEXT BEINBEWEGUNG
450 RETURN
460 LABEL KOMA
470 END
READY.
RUN
© Synth 2010
LOADING...
READY.
LIST
100 FOR BEGRUESSUNG = 1 TO BESUCHERANZAHL
110 PRINT "HALLO DU!"
120 NEXT BEGRUESSUNG
130 LABEL TRINKEN
140 GET BIER
150 OPEN LEBER, 24
160 INPUT BIER, LEBER
170 IF BIER = 5 GOTO WC
180 IF BIERVORRAT < 3 GOTO KIOSK
190 IF BIER > 20 DO LALLEN
200 OPEN BLUTWERTE
210 GET ALKOHOLPEGEL, BLUTWERTE
220 IF ALKOHOLPEGEL > 2,5 GOTO TANZEN
230 IF ALKOHOLPEGEL < 5,3 GOTO TRINKEN
240 IF ALKOHOLPEGEL > 5,3 GOTO KOMA
250 CLOSE BLUTWERTE
300 LABEL KIOSK
310 GET BIERVORRAT, KISTE
320 OUTPUT GELD$
330 RETURN
400 LABEL TANZEN
410 OPEN BEINMUSKULATUR
420 FOR TANZZEIT = 1 TO SCHWITZEN
430 BEINBEWEGUNG = BEINBEWEGUNG + X ANDOR Y
440 NEXT BEINBEWEGUNG
450 RETURN
460 LABEL KOMA
470 END
READY.
RUN
© Synth 2010
Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von Synth ()