Die BASIC-Retro-Party

    • Fun-Text

    Lieber Besucher, Herzlich Willkommen bei: Radio PARALAX - Community Forum. Falls dies ihr erster Besuch auf dieser Seite ist, sollten Sie sich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutzen Sie das Registrierungsformular, um sich zu registrieren. Falls Sie sich bereits zu einem früheren Zeitpunkt registriert haben, können Sie sich hier anmelden.

    Diese Seite verwendet Cookies. Durch die Nutzung unserer Seite erklären Sie sich damit einverstanden, dass wir Cookies setzen. Weitere Informationen

    • Die BASIC-Retro-Party

      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

      Dieser Beitrag wurde bereits 6 mal editiert, zuletzt von Synth ()

    • Mhhh würde auf nem C64 nicht laufen, aber trotzdem cool :) Und jetzt

      OPEN1,8,15,"S:MONTAGMORGEN"
      PRINT#1,"R:MONTAGMORGEN=PARTY MOS 6510":CLOSE1

      und nun ohne Besorgnis und voller Freude

      LOAD"MONTAGMORGEN",8,1

      ---------

      oder für Risikofreudige und Datenkiller...

      LOAD"PARTY MOS 6510",8,1
      SAVE"@:MONTAGMORGEN",8