home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 119
/
Tiger_Disk_119_2004_Tiger-Crew-Disk_de_Side_B.d64
/
blockbusters
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
935b
|
31 lines
100 rem *******************************
105 rem * *
110 rem * blockbusters *
115 rem * *
120 rem * (c)1987 by michael stickler *
125 rem * *
130 rem * elsa-braendstroemstr.30 *
135 rem * *
140 rem * 6500 mainz-gonsenheim *
145 rem * *
150 rem * tel.:06131/688986 *
155 rem * *
160 rem *******************************
165 :
170 :
175 :
200 a=a+1
210 if a=1 then load "teil 1",8,1
220 if a=2 then sys 12288
230 if a=2 then load "teil 2",8,1
240 :
250 print"[147][156] do you want to change speed of ball? n[157]";
255 gosub300:if a$="n" then sys 12288
260 ifa$<>"y"then 250
265 print"[156] normal speed of ball? 15[157][157]";:gosub300:poke14117,w:poke 16928,w
270 print"[156] after reaching top? 10[157][157]";:gosub300:poke16098,w
275 print"[156] after 's' has been caught? 20[157][157]";:gosub300:poke17065,w
290 sys 12288
295 :
300 poke204,0:open 1,0:input#1,a$:close 1:print:w=val(a$):return