home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 25
/
Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_C.d64
/
b.architek
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
43 lines
10 code=7*4096:vars=5*4096+6*256:gr=peek(code+3)+peek(code+4)*256
12 ac=peek(36862):syscode,3:print"[144]-----"
31 print"[144]-----"
32 print"[144]-----"
33 print"[144]-----"
34 print"[144][197]xtras"
36 print"[144][203]osten"
40 syscode,6,5:ifpeek(36857)=1then400
42 ifpeek(36857)=2then300
43 ifpeek(36857)=3then200
44 ifpeek(36857)=4then100
45 poke2,0
50 cl=peek(2):ifcl=0then50
55 poke2,0:w=gr+(ac-1)*31+(peek(vars+2)-1)*31*6:y=(peek(w+3)and240)/16
60 ifcl=99thenz=peek(vars+2):a$="l.city"+str$(z):syscode,1,a$,8
61 ifcl=1andy>5then100
62 ifcl=2andy>3then200
63 ifcl=3andy>1then300
64 ifcl=4then400
70 ifcl=5thensyscode,1,"l.extras",8
80 ifcl=7thensyscode,1,"l.hauskost",8
90 goto50
100 syscode,3:print"[212]yp[160][193]"
111 print"[144]-----"
112 print"[144]-----"
113 print"[144]-----"
120 syscode,6,5:poke(36857),4:goto50
200 syscode,3:print"-----"
211 print"[144][212]yp[160][194]"
212 print"[144]-----"
213 print"[144]-----"
220 syscode,6,5:poke(36857),3:goto50
300 syscode,3:print"-----"
311 print"[144]-----"
312 print"[144][212]yp[160][195]"
313 print"[144]-----"
320 syscode,6,5:poke(36857),2:goto50
400 syscode,3:print"-----"
411 print"[144]-----"
412 print"[144]-----"
413 print"[144][212]yp[160][196]"
420 syscode,6,5:poke(36857),1:goto50