home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Digital Talk 55
/
Digital_Talk_55_2002-06-10_Digital_Talk_de_Side_D.d64
/
ship_ad.3_dt2002
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
47 lines
10 rem the ship adventure
15 a=0
20 if m=1 goto 65
25 if m=2 goto 70
30 if m=3 goto 80
35 if m=4 goto 85
40 if m=5 goto 95
45 if m=6 goto 175
50 open 1,8,15,"m-w"+chr$(7)+chr$(28)+chr$(1)+chr$(15):close 1
55 poke 53280,0:poke 53281,0:print"[147]"chr$(142);chr$(8);""
60 if m=0 then m=1:load"show*",8,1
65 if m=1 then m=2:load"split*",8,1
70 sys 52480,8,"[b]ship/grafik1",1
75 if m=2 then m=3:load"ship/zeichensatz",8,1
80 if m=3 then m=4:load"ship/sprites",8,1
85 sys 52480,8,"",0
90 if m=4 then m=5:load"ship/sprite-move",8,1
95 poke 198,0
100 poke 53272,27
105 print""
110 a$(1)=" great adventure 3 "
115 a$(2)=" [195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]"
120 a$(3)="[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195] "
125 a$(4)=" karamba soft zeigt: "
130 for i=1 to 32
135 s$=mid$(a$(3),i,39)
140 m$=mid$(a$(4),i,39)
145 print"[145][145][145]";right$(a$(1),i):print"";right$(a$(2),i)
150 print"[145]";s$:print"[158]";m$
155 next i
160 :
165 if m=5 then m=6:load"ship/musik",8,1
170 :
175 sys 52480,8,"[b]ship/grafik2",1
180 poke 198,0
185 sys 4096
190 sys 4099:for x=1 to 3:next x:get a$:if a$="" then 190
195 for n=0 to 24:poke 54272+n,0:next
200 sys 52480,8,"",0
205 poke 53272,27
210 print"[147][158] gleich erfaehrst du mehr ueber"
215 print" die geschichte..."
220 print"[144]load";chr$(34);"ship/einleitung";chr$(34);",8"
225 print"[144]run"
230 print""
235 poke 631,13:poke 632,13:poke 198,2:end