home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 25
/
Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_C.d64
/
b.grundst
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
63 lines
1 code=7*4096:vars=5*4096+6*256
2 gr=peek(code+3)+peek(code+4)*256
3 actg=8*4096+15*256+254
10 sys code,16:rem load act. citymap
11 poke53281,11
20 sys code,12:rem copy restaurants
30 sys code,11,0,1,20,9:rem showmap
40 sys code,3:rem clr norm
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]";
55 poke 1024+24*40+39,96:rem space
56 sys code,4,5,7,20:sys code,21,1
57 sys code,4,5,7,21:sys code,21,2
58 sys code,4,5,27,20:sys code,21,3
59 sys code,4,5,27,21:sys code,21,4
60 sys code,6,5:print"[160][152][160]"
61 print"[160][160]"
65 sys code,15
66 gosub 300
70 poke2,0
80 cl=peek(2):if cl=0 then 80
90 poke2,0
100 if cl=99 then z=peek(vars+2):a$="l.city"+str$(z):sys code,1,a$,8
110 if cl>0 and cl<7 then poke actg,cl-1:goto 200
120 goto 80
200 w=gr+(peek(vars+2)-1)*31*6+peek(actg)*31
210 x=peek(w+2) and 240:rem eigner
220 if x=0 then goto 1500
230 if x=peek(vars+1)*16 then 1400
240 goto 80
300 x=0:poke 2,255
301 sys code,3:poke1024+24*40+39,96
302 print"[215]@hlen[160][211]ie[160]bitte[160]ein[160]leeres[160]oder[160]eigenes";
303 print"[199]rundst^ck[160]an[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]";
304 sys code,6,5
305 cl=peek(2):if cl<>255 then 308
306 x=x+1
307 if x<300 then 305
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:sys code,6,5:sys code,15:return
400 poke w+2,0
401 rem status leer
410 sys code,12:rem copy restaurants
420 sys code,11,0,1,20,9:rem showmap
430 goto 80
500 poke(w+2),peek(w+2) or peek(vars+1)*16
501 rem eigner setzen
502 poke w+2,peek(w+2) or 1
503 rem status gekauft
510 sys code,12:rem copy restaurants
520 sys code,11,0,1,20,9:rem showmap
530 goto 80
1400 z=peek(w+2) and 15
1401 if z=0 then 80:rem leer
1402 if z=1 then 1410:rem gekauft
1410 sys code,1,"l.verkaufn",8
1500 sys code,1,"l.kaufen",8
1610 goto 66