home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Game On
/
Game_On_91-05_1991_-_de_Side_B.d64
/
cesar!
(
.txt
)
next >
Wrap
Commodore BASIC
|
2023-02-26
|
4KB
|
147 lines
1 rem *** c e s a r ***
2 rem *** edmund wisniewski ***
3 poke56,40:poke657,128:poke808,225
4 ifa=0thena=1:load"c.gr",8,1
5 poke53281,8:poke53280,0
6 data120,169,51,133,1,169,0,133,95,133,90,133,88,169,208,133,96,169,240,133
7 data89,169,224,133,91,32,191,163,169,55,133,1,88,96
8 fori=832to865:readq:pokei,q:next:sys832:n$="edmund wisniewski"
9 poke56576,peek(56576)and252:poke53272,8:poke648,192:sys13660
10 print"[147][158] c e s a r [158] "
11 c1=23:c2=7:gosub107:print"1990 by "n$
12 ifa=1thena=2:load"c.sp",8,1
13 v=53248:sx=830:op=19989:ot=19990:si=54272
14 a=rnd(-ti):print"[147]":sys13393
15 print"[147][144] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][158]"
16 fori1=1to4
17 fori2=1to2
18 print"[144] [167][158] [146] [146] [146] [146] [144][165]"
19 next
20 fori2=1to2
21 print"[144] [167][158] [146] [146] [146] [146][144][165]"
22 next
23 next
24 print"[144] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
25 print" a b c d e f g h "
26 c1=21:c2=0:gosub107:print"[158][213][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][201]";
27 c1=22:gosub107:print"[221] zug: [221] best: [221] tiefe: [221] eingabe: [221]";
28 c1=23:gosub107:print"[221] [221] [221] [221] [221]";
29 c1=24:gosub107:print"[202][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][177][192][192][192][192][192][192][192][192][192][192][192]"
30 poke50151,75:poke56295,7
31 c1=1:fort=8to1step-1:c1=c1+2:c2=3:gosub107:printt:next:print"[158]"
32 poke50168,17:poke50169,18:poke50170,19:poke50171,20:poke50172,21
33 pokev+28,0:pokev+16,255:pokev+21,255
34 fort=0to4:pokev+39+t,2:next
35 pokev+0,45:pokev+2,45:pokev+4,45:pokev+6,45:pokev+8,45
36 pokev+1,65:pokev+3,95:pokev+5,125:pokev+7,155:pokev+9,185
37 poke20020,0:poke20039,1:poke19994,0:poke20040,3
38 fort=0to40:poke19950+t,0:next:pokeot,0
39 sys12528:print"[146]":goto41
40 poke20020,peek(20020)+2
41 c1=23:c2=31:gosub107:print"[146]..-.. [157][157][157][157][157][157]";
42 f1=1:gosub76:f1=0
43 ifx1$="l"then72
44 ifx1$="m"then60
45 ifx1$="n"then95
46 ifx1$=""then41
47 ifx1$="x"then108
48 c2=32:gosub81:if x2$="" then41
49 v=val(x2$)*10+10+asc(x1$)-64:poke19997,v
50 c2=33:gosub107:print"-.[157]";
51 c2=34:gosub76:if x1$="" then41
52 c2=35:gosub81:ifx2$="" then41
53 v=val(x2$)*10+10+asc(x1$)-64:poke19998,v
54 sys13158
55 ifpeek(12011)<>0thengosub87:goto41
56 gosub96
57 ifpeek(19999)=52thengosub99
58 print"[158]";:sys12050:print"[146]";
59 poke20039,(1-peek(20039))
60 sys15100:gosub143:ax=peek(20047)
61 ifpeek(op)=1then71
62 ifpeek(19994)=1 then90
63 ifax>=254orax<=1then91
64 ifax=253orax=2thenprint"[158]":sys12050:print"":goto91
65 ifpeek(20039)=0then69
66 ifax<16thengosub88
67 ifax>246thenx=254/2-(ax/2)+.5:gosub86
68 goto71
69 ifax<16thenx=ax/2:gosub86:goto71
70 ifax>246thengosub88
71 print"[158]";:sys12050:print"";:poke20039,(1-peek(20039)):goto40
72 c2=31:gosub107:print"l [157][157][157][157]"peek(20040)"[157]";
73 getx$:if x$<chr$(49) or x$>chr$(56) then73
74 print"[157]"x$;:fort=1to2000:next
75 poke20040,val(x$):goto41
76 getx1$:if f1=0 then78
77 if x1$="l" or x1$="m" or x1$="n" orx1$="x" then80
78 if x1$="" thenreturn
79 if x1$<chr$(65) or x1$>chr$(72) then76
80 gosub 107:printx1$".[157]";:return
81 getx2$:if x2$="" thenreturn
82 if x2$<chr$(49) or x2$>chr$(56) then81
83 gosub107:printx2$;
84 return
85 print" eingabefehler":y=3000:goto89
86 print" matt in";x;"zuegen":y=5000:goto89
87 print" illegaler zug":y=3000:goto89
88 print" ich gebe auf":y=5000
89 fort=1toy:next:print" ":return
90 x1$="patt":goto92
91 x1$="matt"
92 c1=0:c2=16:gosub107:printx1$:fort=1to1000:next
93 getx$:ifx$=""then93
94 c1=0:c2=16:gosub107:print" "
95 print"[158]":sys13393:goto37
96 ifpeek(ot)>18thenreturn
97 poke19950+peek(ot),peek(19997):poke19968+peek(ot),peek(19998)
98 pokeot,peek(ot)+1:return
99 x$="":c2=36:gosub107:print".[157]";
100 getx$
101 ifx$="d"thenx=52:goto106
102 ifx$="t"thenx=48:goto106
103 ifx$="s"thenx=44:goto106
104 ifx$="l"thenx=40:goto106
105 goto100
106 poke19999,x:printx$;:return
107 poke214,c1:poke211,c2:sys58640:return
108 print" n[146]: weiss s[146]: bauer l[146]: loeschen"
109 c1=23:c2=31:gosub107:print" ..";
110 fa=0:se=1
111 getv$:ifv$=""then111
112 ifv$="l"then124
113 ifv$="n"thenfa=10-fa:gosub139:goto111
114 ifv$="s"then128
115 ifv$="x"then141
116 ifv$<chr$(65)orv$>chr$(72)then111
117 c1=23:c2=34:gosub107:printv$;
118 getv2$:ifv2$=""then118
119 ifv2$<chr$(49)orv2$>chr$(56)then118
120 c2=35:gosub107:printv2$;
121 z1=asc(v$)-44:z2=(asc(v2$)-48)*10-10
122 ifse=0andfa=10thense=-10
123 poke830+z1+z2,se+fa:v$="":goto127
124 fori1=20to90step10
125 fori2=1to8
126 pokesx+i1+i2,0:nexti2,i1
127 print"[158]":sys12528:print"":goto111
128 se=se+1:ifse=7thense=0
129 onse+1gosub132,133,134,135,136,137,138
130 print"";d$
131 goto111
132 d$="null ":return
133 d$="bauer ":return
134 d$="turm ":return
135 d$="springer":return
136 d$="laeufer ":return
137 d$="dame ":return
138 d$="koenig ":return
139 iffa=0thenprint"weiss ":return
140 print"schwarz":return
141 print" ";
142 pokeot,40:poke20039,abs(sgn(fa-10)):goto41
143 fort1=1to2
144 pokesi+24,8:pokesi+5,25:pokesi+6,20:pokesi+1,16:pokesi,20:pokesi+4,17
145 fort2=0to200:next:pokesi+4,0:next:return
0