home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 25
/
Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_C.d64
/
b.sel.fahr
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
31 lines
1 code=7*4096:vars=5*4096+6*256:gr=peek(code+3)+peek(code+4)*256
3 actg=8*4096+15*256+254:syscode,16:poke53281,11:syscode,12
30 syscode,11,0,1,20,9:syscode,3
50 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
51 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
52 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
53 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
54 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";:poke1024+24*40+39,96
56 syscode,4,5,7,20:syscode,21,1:syscode,4,5,7,21:syscode,21,2
58 syscode,4,5,27,20:syscode,21,3:syscode,4,5,27,21:syscode,21,4
60 syscode,6,5:print"[160][152][160]"
61 print"[160][160]":syscode,15
66 gosub300:poke2,0
80 cl=peek(2):ifcl=0then80
90 poke2,0:ifcl=99thenz=peek(vars+2):a$="l.city"+str$(z):syscode,1,a$,8
110 ifcl>0andcl<7thenpokeactg,cl:goto200
120 goto80
200 w=gr+(peek(vars+2)-1)*31*6+(peek(actg)-1)*31:x=peek(w+2)and240:z=peek(w+2)and15
230 ifx=peek(vars+1)*16andz=2then1000
240 goto80
300 x=0:poke2,255:syscode,3:poke1024+24*40+39,96
302 print"[215]@hlen[160][211]ie[160]bitte[160]eines[160][201]hrer[160][160][160][160][160][160][160][160][160][160][160][160]";
303 print"[210]estaurants[160]an...[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
304 syscode,6,5
305 cl=peek(2):ifcl<>255then308
306 x=x+1:ifx<300then305
308 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
309 print"[160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160][160]";
310 poke1024+24*40+39,96:syscode,6,5:syscode,15:return
1000 syscode,25,2:syscode,1,"l.fahrzeuge*",8