00000000: 9B 04 70 00 00 00 00 00 00 00 5F 00 0A 2B CB 4B |..p......._..+.K|
00000010: 24 28 33 32 29 2A 38 3A 47 3D 30 3A 52 52 3D 30 |$(32)*8:G=0:RR=0|
00000020: 3A 53 53 3D 30 3A DD 22 20 2A 2A 2A 2A 20 31 37 |:SS=0:." **** 17|
00000030: 2B 34 20 2A 2A 2A 2A 22 0D 00 0F 19 DD 22 20 2A |+4 ****"....." *|
00000040: 2A 49 43 48 20 4D 49 53 43 48 45 2A 2A 22 3A C5 |*ICH MISCHE**":.|
00000050: 31 35 3A C0 0D 00 14 1D D5 4E 3D 31 D0 33 32 3A |15:......N=1.32:|
00000060: DB 4B 24 28 4E 29 3A D4 98 28 4E 2F 38 29 3D 4E |.K$(N):..(N/8)=N|
00000070: 2F 38 D2 E4 0D 00 19 03 D9 4E 0D 00 1E 08 D5 4E |/8.......N.....N|
00000080: 3D 31 D0 31 32 0D 00 28 2A 59 3D A0 33 32 3A 4B |=1.12..(*Y=.32:K|
00000090: 24 28 30 29 3D 4B 24 28 4E 29 3A 4B 24 28 4E 29 |$(0)=K$(N):K$(N)|
000000A0: 3D 4B 24 28 59 29 3A 4B 24 28 59 29 3D 4B 24 28 |=K$(Y):K$(Y)=K$(|
000000B0: 30 29 0D 00 32 06 D9 4E 3A C4 31 0D 00 64 0C 53 |0)..2..N:.1..d.S|
000000C0: 3D 30 3A 47 3D 30 3A 42 3D 30 0D 00 6E 07 D5 4E |=0:G=0:B=0..n..N|
000000D0: 3D 31 D0 36 0D 00 78 09 D4 4E 3C 33 D2 31 35 30 |=1.6..x..N<3.150|
000000E0: 0D 00 82 35 DE 22 20 2A 4B 41 52 54 45 3F 20 3C |...5." *KARTE? <|
000000F0: 4A 2F 4E 3E 2A 22 3A 4A 24 3D AD 3A D4 4A 24 3C |J/N>*":J$=.:.J$<|
00000100: 3E 22 4A 22 A1 4A 24 3C 3E 22 4E 22 A1 4A 24 3C |>"J".J$<>"N".J$<|
00000110: 3E 22 53 22 D2 31 33 30 0D 00 87 26 D4 4A 24 3D |>"S".130...&.J$=|
00000120: 22 53 22 D2 DD 22 20 2A 53 55 4D 4D 45 3A 20 20 |"S".." *SUMME: |
00000130: 28 22 3B A9 28 53 29 3B 22 29 2A 22 3A C6 31 33 |(";.(S);")*":.13|
00000140: 30 0D 00 8C 15 D4 4A 24 3D 22 4E 22 D2 D6 4E 3D |0.....J$="N"..N=|
00000150: 36 3A D9 4E 3A C6 33 30 30 0D 00 96 39 53 3D 53 |6:.N:.300...9S=S|
00000160: 2B A5 28 AC 28 4B 24 28 4E 29 2C 32 29 29 3A DD |+.(.(K$(N),2)):.|
00000170: 22 20 20 20 22 3B AB 28 4B 24 28 4E 29 2C A6 4B |" ";.(K$(N),.K|
00000180: 24 28 4E 29 2D 32 29 3B 22 20 28 22 3B A9 28 53 |$(N)-2);" (";.(S|
00000190: 29 3B 22 29 22 0D 00 A0 2D D4 53 3D 32 32 A1 4E |);")"...-.S=22.N|
000001A0: 3D 32 D2 D6 4E 3D 36 3A D9 4E 3A DD 22 20 20 2A |=2..N=6:.N:." *|
000001B0: 2A 2A 46 45 55 45 52 2A 2A 2A 22 3A D6 47 3D 31 |**FEUER***":.G=1|
000001C0: 3A C6 22 45 22 0D 00 AA 18 D4 53 3D 32 31 D2 D6 |:."E".....S=21..|
000001D0: 4E 3D 36 3A D9 4E 3A D6 47 3D 31 3A C6 22 45 22 |N=6:.N:.G=1:."E"|
000001E0: 0D 00 B4 18 D4 53 3E 32 31 D2 D6 4E 3D 36 3A D9 |.....S>21..N=6:.|
000001F0: 4E 3A D6 47 3D 32 3A C6 22 45 22 0D 00 B9 18 D4 |N:.G=2:."E".....|
00000200: A5 28 AC 28 4B 24 28 4E 29 2C 32 29 29 3C 35 D2 |.(.(K$(N),2))<5.|
00000210: D6 42 3D 42 2B 31 0D 00 BE 29 D4 42 3D 35 D2 D6 |.B=B+1...).B=5..|
00000220: 4E 3D 36 3A D9 4E 3A DD 22 2A 2A 2A 35 20 42 49 |N=6:.N:."***5 BI|
00000230: 4C 44 45 52 2A 2A 2A 22 3A D6 47 3D 31 3A C6 22 |LDER***":.G=1:."|
00000240: 45 22 0D 00 C8 05 D9 4E 3A D8 0D 01 2C 08 52 3D |E".....N:...,.R=|
00000250: 30 3A 42 3D 30 0D 01 36 08 D5 4E 3D 37 D0 31 32 |0:B=0..6..N=7.12|
00000260: 0D 01 40 39 52 3D 52 2B A5 28 AC 28 4B 24 28 4E |..@9R=R+.(.(K$(N|
00000270: 29 2C 32 29 29 3A DD 22 20 20 20 22 3B AB 28 4B |),2)):." ";.(K|
00000280: 24 28 4E 29 2C A6 4B 24 28 4E 29 2D 32 29 3B 22 |$(N),.K$(N)-2);"|
00000290: 20 28 22 3B A9 28 52 29 3B 22 29 22 0D 01 4A 19 | (";.(R);")"..J.|
000002A0: D4 52 3D 32 31 D2 D6 4E 3D 31 32 3A D9 4E 3A D6 |.R=21..N=12:.N:.|
000002B0: 47 3D 32 3A C6 22 45 22 0D 01 54 2E D4 52 3D 32 |G=2:."E"..T..R=2|
000002C0: 32 A1 4E 3D 38 D2 D6 4E 3D 31 32 3A D9 4E 3A DD |2.N=8..N=12:.N:.|
000002D0: 22 20 20 2A 2A 2A 46 45 55 45 52 2A 2A 2A 22 3A |" ***FEUER***":|
000002E0: D6 47 3D 32 3A C6 22 45 22 0D 01 59 18 D4 A5 28 |.G=2:."E"..Y...(|
000002F0: AC 28 4B 24 28 4E 29 2C 32 29 29 3C 35 D2 D6 42 |.(K$(N),2))<5..B|
00000300: 3D 42 2B 31 0D 01 5E 2A D4 42 3D 35 D2 D6 4E 3D |=B+1..^*.B=5..N=|
00000310: 31 32 3A D9 4E 3A D6 47 3D 32 3A DD 22 2A 2A 2A |12:.N:.G=2:."***|
00000320: 35 20 42 49 4C 44 45 52 2A 2A 2A 22 3A C6 22 45 |5 BILDER***":."E|
00000330: 22 0D 01 68 20 D4 52 2B A5 28 AC 28 4B 24 28 4E |"..h .R+.(.(K$(N|
00000340: 2B 31 29 2C 32 29 29 3E 32 31 A1 4E 3E 37 D2 D6 |+1),2))>21.N>7..|
00000350: 4E 3D 31 32 0D 01 72 03 D9 4E 0D 01 7C 13 DD 22 |N=12..r..N..|.."|
00000360: 20 4B 41 52 54 45 4E 20 52 45 49 43 48 45 4E 22 | KARTEN REICHEN"|
00000370: 0D 01 90 0D 22 45 22 D4 47 3C 3E 30 D2 34 34 30 |...."E".G<>0.440|
00000380: 0D 01 9A 0F D4 53 3E 52 D2 D6 47 3D 31 3A C6 34 |.....S>R..G=1:.4|
00000390: 34 30 0D 01 A4 39 D4 53 3D 52 D2 D6 47 3D 31 3A |40...9.S=R..G=1:|
000003A0: DD 22 2A 2A 47 4C 45 49 43 48 53 54 41 4E 44 2A |."**GLEICHSTAND*|
000003B0: 2A 22 3A C4 33 3A DD 22 2A 2A 2A 53 50 49 45 4C |*":.3:."***SPIEL|
000003C0: 45 52 20 2B 31 2A 2A 2A 22 3A C6 34 34 30 0D 01 |ER +1***":.440..|
000003D0: AE 04 47 3D 32 0D 01 B8 29 D4 47 3D 31 D2 C4 31 |..G=2...).G=1..1|
000003E0: 3A DD 22 53 50 49 45 4C 45 52 20 47 45 57 49 4E |:."SPIELER GEWIN|
000003F0: 4E 54 21 22 3A 53 53 3D 53 53 2B 31 3A C6 34 36 |NT!":SS=SS+1:.46|
00000400: 30 0D 01 C2 24 D4 47 3D 32 D2 C4 32 3A DD 22 50 |0...$.G=2..2:."P|
00000410: 43 2D 31 34 30 31 20 47 45 57 49 4E 4E 54 21 22 |C-1401 GEWINNT!"|
00000420: 3A 52 52 3D 52 52 2B 31 0D 01 CC 21 DD 22 20 53 |:RR=RR+1...!." S|
00000430: 50 3A 22 3B A9 28 53 53 29 3B 22 20 2F 20 50 43 |P:";.(SS);" / PC|
00000440: 3A 22 3B A9 28 52 52 29 3A C6 31 35 0D 01 F4 4B |:";.(RR):.15...K|
00000450: DC 22 41 53 31 31 22 2C 22 5A 45 48 4E 31 30 22 |."AS11","ZEHN10"|
00000460: 2C 22 4E 45 55 4E 30 39 22 2C 22 41 43 48 54 30 |,"NEUN09","ACHT0|
00000470: 38 22 2C 22 53 49 45 42 45 4E 30 37 22 2C 22 4B |8","SIEBEN07","K|
00000480: 4F 45 4E 49 47 30 34 22 2C 22 44 41 4D 45 30 33 |OENIG04","DAME03|
00000490: 22 2C 22 42 55 42 45 30 32 22 0D FF FF |","BUBE02"... |
..P......._..+KK$(32)*8:G=0:RR=0:SS=0:."
**** 17+4 ****"....." **ICH MISCHE**":E
15:.....UN=1P32:.K$(N):T.(N/8)=N/8R.....
YN....UN=1P12..(*Y= 32:K$(0)=K$(N):K$(N)
=K$(Y):K$(Y)=K$(0)..2.YN:D1..D.S=0:G=0:B
=0..N.UN=1P6..X.TN<3R150...5." *KARTE? <
J/N>*":J$=.:TJ$<>"J".J$<>"N".J$<>"S"R130
...&TJ$="S"R." *SUMME: (";.(S);")*":F13
0....TJ$="N"RVN=6:YN:F300...9S=S+.(.(K$(
N),2)):." ";.(K$(N),.K$(N)-2);" (";.(S
);")".. -TS=22.N=2RVN=6:YN:." ***FEUER*
**":VG=1:F"E"....TS=21RVN=6:YN:VG=1:F"E"
....TS>21RVN=6:YN:VG=2:F"E"....T.(.(K$(N
),2))<5RVB=B+1...)TB=5RVN=6:YN:."***5 BI
LDER***":VG=1:F"E"..H.YN:X..,.R=0:B=0..6
.UN=7P12..@9R=R+.(.(K$(N),2)):." ";.(K
$(N),.K$(N)-2);" (";.(R);")"..J.TR=21RVN
=12:YN:VG=2:F"E"..T.TR=22.N=8RVN=12:YN:.
" ***FEUER***":VG=2:F"E"..Y.T.(.(K$(N),
2))<5RVB=B+1..^*TB=5RVN=12:YN:VG=2:."***
5 BILDER***":F"E"..H TR+.(.(K$(N+1),2))>
21.N>7RVN=12..R.YN..|.." KARTEN REICHEN"
...."E"TG<>0R440....TS>RRVG=1:F440...9TS
=RRVG=1:."**GLEICHSTAND**":D3:."***SPIEL
ER +1***":F440....G=2...)TG=1RD1:."SPIEL
ER GEWINNT!":SS=SS+1:F460..B$TG=2RD2:."P
C-1401 GEWINNT!":RR=RR+1..L!." SP:";.(SS
);" / PC:";.(RR):F15...K."AS11","ZEHN10"
,"NEUN09","ACHT08","SIEBEN07","KOENIG04"
,"DAME03","BUBE02"...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL