home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Input 64
/
Input_64_85-11_1985_Verlag_Heinz_Weise_de.d64
/
planetarium
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
20KB
|
14 lines
10 ifpeek(50307)<>120then110
20 poke50258,64:poke50255,peek(50255)+1
30 poke50257,24:poke50259,1:poke50260,8
40 poke50261,0:poke50262,86
50 poke53280,0:poke53281,5:printchr$(14)chr$(8)
55 print"[147][144] [208][204][193][206][197][212][193][210][201][213][205][160]- [214][207][206][160][198][210][193][206][203][160][194][207][197][210][206][195][203][197] "
60 print"[215]enn [211]ie das [208]rogramm sichern wollen,"
70 print"tun [211]ie das bitte [202][197][212][218][212] mit [195][212][210][204][146]+s[146] !"
71 print"[163][163][163][163][163]"
80 print"[196]ruecken [211]ie irgendeine [212]aste, um"
90 print" mit dem [208]rogramm zu beginnen.";
100 poke198,0:wait198,1:poke50257,20:print"[147]"
110 sys2560