home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Dark Star 2
/
Dark_Star_02_1995_-_de_Side_A.d64
/
intro_lukian
(
.txt
)
< prev
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
28 lines
0 print chr$(8)
1 print"[147] ein tip von lukian [146]"
2 poke56,076:clr:ti$="000003":wait161,1:
5 poke53280,.:poke53281,.:forf=1to10:poke646,f
10 forz=54272to54296:pokez,0 :next:s=54272:
15 pokes+24,15:pokes+5,9 :pokes+6,15
17 print"[164][175][185] was man gegen langeweile macht?? [185][175][164]";:ti$="000003":wait161,1
18 print"===== da wuesste ich schon was...: =====[145][145][145][145]";:nextf:
20 i=i+1:ifi=5then fort=1to5000:next: pokes+24,0:goto90
25 readl,h,d :ifh<0goto80
30 pokes+4,h:pokes+1,l:pokes+4,33
34 print"[147][150] besorg' dir mal 'ne gute disk !! ";:forx=1tod:next
35 pokes+4,32:fort=1to45:next
36 print" [223][169] [223][169] ";
50 data13,154,25,18,152,26,16,61,124,14,151, 300
51 data13,176,31,14,162,32,15,61,134,14,172, 102,15,171,400,-1,-1,-1
52 data15,179,33,16,161,34,17,63,130,15,175, 500
53 data24,154,35,26,153,35,24,71,124,19,152,300,17,36,500 ,-1,-1,-1
80 a=a+1:ifa=1then restore:goto25
81 ifa=2thenrestore:goto25
82 ifa=3then: goto25
83 ifa=4then:a=0:goto20
90 print"[147] zum beispiel [151]d a r k s t a r "
100 print" bei: sven t e w e s"
101 print"[156] am lullberg 29"
102 print" 34434 borgentreich-borgholz";
103 poke161,0:poke162,0:wait161,1: print:load"boot intro",8,1