basicGames/SIMMOO.BAS at master · bdfranck/basicGames · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64

SCREEN 9
FOR I% = 1 TO 10
COLOR I%
NEXT I%
PRINT "                          SIM ORBIT"
PRINT "                       BY: BEN FRANCK"
PRINT
PRINT "         PRESS ANY KEY TO SEE THE MOON ORBIT THE EARTH "
INPUT S$
1 SCREEN 10
BEEP
PRINT
PRINT
PRINT
PRINT
PRINT "                              EEEEE"
PRINT "                              EEEEE"
PRINT "                              EEEEE"
PRINT
PRINT "                                  "
PRINT "                               MMM"
BEEP
SCREEN 9
PRINT
PRINT
PRINT
PRINT
PRINT "                              EEEEE"
PRINT "                              EEEEE     MMM"
PRINT "                              EEEEE"
PRINT
PRINT
PRINT
BEEP
SCREEN 10
PRINT
PRINT "                               MMM"
PRINT
PRINT "                      "
PRINT "                              EEEEE"
PRINT "                              EEEEE"
PRINT "                              EEEEE"
PRINT
PRINT
PRINT
BEEP
SCREEN 9
PRINT
PRINT
PRINT
PRINT "                            "
PRINT "                              EEEEE"
PRINT "                       MMM    EEEEE"
PRINT "                              EEEEE"
PRINT
PRINT
PRINT
BEEP
PRINT "THAT IS THE END. PRESS V TO VEIW IT AGAIN OR ANY KEY TO EXIT"
INPUT A$
IF A$ = "V" THEN 1
END