home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 25
/
Tiger_Disk_025_19xx_Tiger-Crew-Disk_de_Side_C.d64
/
b.splrzahl
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
388b
|
14 lines
10 code=7*4096:vars=5*4096+6*256
20 sys code,3:rem clearnorm scn
30 print"[215]@hlen[160][211]ie[160]die[160][193]nzahl[160]der[160][211]pieler!"
35 print"[160]1[160][160]2[160][160]3[160][160]4[160]"
40 sys code,6,5
50 cl=peek(2):if cl=0 then 50
55 poke 2,0
60 if cl=1 then poke vars+0,cl
70 if cl=2 then poke vars+0,cl
80 if cl=3 then poke vars+0,cl
90 if cl=4 then poke vars+0,cl
95 poke vars+1,1:rem actual player 1
100 sys code,1,"l.voreinst",8