home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 25
/
Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_C.d64
/
b.bank
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
1KB
|
33 lines
10 code=7*4096:vars=5*4096+6*256
20 sys code,3:rem clearnorm scn
30 print"[144][204]etzter[160][203]ontoauszug:"
31 print"[203]ontostand[160][160]:[160][160][160][160][160][160][160][160][160][160][196][205]"
32 print"[203]reditrahmen:[160][160][160][160][160][160][160][160][160][160][196][205]"
33 print"[218]insen[160][160][160][160][160][160]:[160][160][160][160][160][160][160][160][160][160][196][205]"
34 if peek(vars+1)=1 then print"[211]pieler[160]1"
35 if peek(vars+1)=2 then print"[211]pieler[160]2"
36 if peek(vars+1)=3 then print"[211]pieler[160]3"
37 if peek(vars+1)=4 then print"[211]pieler[160]4"
40 sys code,6,5
41 b=vars+7+2+((peek(vars+1)-1)*67)
42 x=peek(b+3) and 128
43 k=peek(b+0)
44 k=k+(peek(b+1)*256)
45 k=k+(peek(b+2)*65536)
46 k=k+((peek(b+3) and 127)*16777216)
47 if x=128 then k=-k
48 sys code,3:print"[203]ontostand[160][160]:";k:sys code,6,5
49 sys code,3:print"[218]insen[160][160][160][160][160][160]:";int(k/100*5):sys code,6,5
51 b=vars+7+6+((peek(vars+1)-1)*67)
52 x=peek(b+3) and 128
53 k=peek(b+0)
54 k=k+(peek(b+1)*256)
55 k=k+(peek(b+2)*65536)
56 k=k+((peek(b+3) and 127)*16777216)
57 if x=128 then k=-k
58 sys code,3:print"[203]reditrahmen:";k:sys code,6,5
69 poke 2,255
70 cl=peek(2):if cl=255 then 70
75 poke 2,0
80 z=peek(vars+2):a$="l.city"+str$(z):sys code,1,a$,8