1 e1=5000:e2=e1 2 fora=826to837:readt:pokea,t:next 3 poke59490,255 4 poke59467,16:poke59466,15:poke59464,0 5 print"{clr}" 6 f$="{rght}{rght}@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@" 7 t$="{rght}{rght} " 10 a$=" {down}{left}{left}{left} {CBM-I} {down}{left}{left}{left}{rvon}{CBM-I}{CBM-I}{CBM-I}{rvof}{down}{left}{left}{left}{left} " 20 b$="{home}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}{down}" 30 c$="{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{up}"+a$ 40 a1=19:a2=3 50 printleft$(b$,a1);a$;left$(b$,a2);c$ 51 e1=e1-5:e2=e2-5:ife2<0thene2=0 52 ife1<0thene1=0 53 print"{home} energy= {left} "e2" {left}{left} energy= {left} "e1"{left} " 54 ife1=e2ande1=0thenprint"{home}{down}{down}draw":fort=0to900:next:goto40000 55 ife1=<0thenprint"{home}{down}{down} left won":fort=0to900:next:goto40000 56 ife2=<0thenprint"{home}{down}{down} right won":fort=0to900:next:goto40000 60 poke827,5:sys826:v=peek(1017) 61 poke827,3:sys826:w=peek(1017) 62 poke827,7:sys826:u=peek(1017) 63 ifv=191thengosub2000:tt=1 64 ifv=254thengosub1000:tu=1 65 ifv=190thengosub1000:gosub2000:tu=1:tt=1 66 pokernd(ti)*920+32848,46 70 iftt=0and(w=191orw=190)thena2=a2-1:ifa2<3thena2=3 80 iftt=0and(u=191oru=190)thena2=a2+1:ifa2>20thena2=20 90 iftu=0and(w=254orw=190)thena1=a1-1:ifa1<2thena1=2 100 iftu=0and(u=254oru=190)thena1=a1+1:ifa1>19thena1=19 125 tt=0:tu=0 130 goto50 1000 printleft$(b$,a1+1);f$:forcx=1to10:next:gosub30000:printleft$(b$,a1+1);t$ 1005 e2=e2-100 1008 poke59464,0 1020 ifa1=a2ora1=a2-1thene1=e1-500:poke59459,255:poke59459,0 1030 return 2000 printleft$(b$,a2);f$:forcx=1to10:next:gosub20000:printleft$(b$,a2);t$ 2002 e1=e1-100 2003 poke59464,0 2005 ifa1=a2-1ora1=a2-2thene2=e2-500:poke59459,255:poke59459,0 2010 return 10000 data162,7,142,16,232,173,18,232,141,249,3,96 20000 poke59464,a2*4 20010 return 30000 poke59464,a1*4 30010 return 40000 print"{home}{down}another go?" 40010 poke158,0 40020 geta$:ifa$=""then40020 40025 ifa$="y"thenrun 40030 poke59464,0:poke59466,254:poke59467,0:poke59490,30