1 rem defender of the crown (mirrorsoft)
2 rem easy start by mick mills and al
3 rem disk -v1- zzapp64 iss.37
4 rem modified by allen monks 2026, commodore cheetah
10 print:print "start game with... (0 to 255)"
15 input "soldiers...";c1
20 if c1<0 or c1>255 then 15
25 input "knights...";c2
30 if c2<0 or c2>255 then 25
35 input "catapults...";c3
40 if c3<0 or c3>255 then 35
45 print"loadding..."
100 for a=4096 to 4203:read b:t=t+b:poke a,b:next
101 read b
102 if b=300 then b=c1 :rem soldiers
103 if b=400 then b=c2 :rem knights
104 if b=500 then b=c3 :rem catapults
105 if b=999 then goto 107 :rem exit
106 poke 51788+c,b:s=s+b:c=c+1:goto 101
107 if t=12036 and s>3133 and s<3900 then sys 4156
108 print "data error"
109 data 169,15,141,56,83,76,0,80,33,42,169,16,141,177,69,76,66,65,169
110 data 32,141,63,194,169,36,141,64,194,169,16,141,65,194,76,18,193
111 data 133,173,165,175,201,1,208,10,104,104,169,16,72,169,9,72,208,4
112 data 165,173,145,174,200,96,169,8,170,160,0,32,186,255,160,16,32
113 data 189,255,169,0,162,2,200,32,213,255,120,162,255,154,189,1,17,157
114 data 1,1,189,131,17,157,131,1,202,208,241,169,16,141,134,1,76,3,2
115 data 169,89,141,53,8,169,202,141,54,8,76,46,8,169,80,141,53,8
116 data 169,9,141,54,8,169
117 data 300:rem soldiers
118 data 141,6,2,169
119 data 400:rem knights
120 data 141,12,2,169
121 data 500:rem catapults
122 data 141,18,2,76,80,9,1
123 data 999
Download PRG...
