Rev 5 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed
Rev | Author | Line No. | Line |
---|---|---|---|
5 | daniel-mar | 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 " Drcke 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" |
||
6 | daniel-mar | 46 | PRINT |
47 | PRINT "Spiel zu Ende!" |
||
48 | PRINT |
||
49 | SLEEP 5 |
||
50 | CLS |
||
5 | daniel-mar | 51 | RETURN |
52 | |||
53 | AyDos2: |
||
54 | CLS |
||
55 | SHELL "AyDos2.exe" |
||
6 | daniel-mar | 56 | PRINT |
57 | PRINT "Spiel zu Ende!" |
||
58 | PRINT |
||
59 | SLEEP 5 |
||
60 | CLS |
||
5 | daniel-mar | 61 | RETURN |
62 |