Subversion Repositories aysalia

Rev

Rev 5 | Go to most recent revision | Blame | Last modification | View Log | RSS feed

  1. DIM MenuIn$
  2.  
  3. SCREEN 12
  4.  
  5. DO
  6.         GOSUB MainMenu
  7.         SELECT CASE MenuIn$
  8.         CASE "1"
  9.                 GOSUB AyDos1
  10.         CASE "2"
  11.                 GOSUB AyDos2
  12.         END SELECT
  13. LOOP UNTIL MenuIn$ = "9"
  14.  
  15. CLOSE   'Close any open files
  16. END     'End of program
  17.  
  18. MainMenu:
  19.         CLS
  20.         PRINT
  21.         PRINT
  22.         PRINT
  23.         PRINT
  24.         PRINT "                          Aysalia DOS"
  25.         PRINT
  26.         PRINT
  27.         PRINT "              Welches Spiel soll gestartet werden?"
  28.         PRINT
  29.         PRINT "              DrĀcke eine der folgenden Tasten:"
  30.         PRINT
  31.         PRINT "              1  Aysalia DOS I"
  32.         PRINT "              2  Aysalia DOS II"
  33.         PRINT
  34.         PRINT "              9  Beenden"
  35.         PRINT
  36.         PRINT
  37.         PRINT
  38.         DO
  39.                 LET MenuIn$ = INKEY$
  40.         LOOP UNTIL MenuIn$ <> ""
  41.         RETURN
  42.  
  43. AyDos1:
  44.         CLS
  45.         SHELL "AyDos1.exe"
  46.         PRINT
  47.         PRINT "Spiel zu Ende!"
  48.         PRINT
  49.         SLEEP 5
  50.         CLS
  51.         RETURN
  52.  
  53. AyDos2:
  54.         CLS
  55.         SHELL "AyDos2.exe"
  56.         PRINT
  57.         PRINT "Spiel zu Ende!"
  58.         PRINT
  59.         SLEEP 5
  60.         CLS
  61.         RETURN
  62.  
  63.