UPTO10 !! "UPTO10" >> MACBRIDE 1983 <<  7000X d#100d:t=118:g$ nr=07:b x g$+r,b r:t "d",123{,7,127,143,61=,79O,151,16,"e",222,224,254,241,188,242,233,8 "f",24,44,,78N,255,255,114r,524,24,"j",24,568,120x,120x,120x,120x,124|,124|,"h",252,252,254,255,243,0,0,0,"i",0,3,15,127,255,0,0,0,"g",24,60<,122z,249,159,94^,60<,24 "k",0,0,7,15,31,63?,127,191,"l",14,15,255,247,247,247,246,245,"m",0,248,252,252,252,236,252,252,"n",191,191,191,63?,30,30,30,30,"o",243,255,255,7,7,7,7,7,"p",252,252,188,154,155,143,134,128 O"q",130,16,40(,68D,146,68D,40(,16 3"t",24,24,24,60<,60<,60<,60<,60<,"u",0,0,0,0,31,255,255,31,"a",255,128,128,128,128,128,128,255,"b",255,1,1,1,1,1,1,255 /ex=0:5000:ex=1190 9:e=0:d=610 :1000+d*100d 0ex=0:5000:ex=1d=10 d  !:e=1:z=110 2g=(*4)+6:1000+(g*100d) 5010 Z " 5100 @0:5:0: J'l=120:s=16 Ol-1,s*4;" " T:8+32 *s,183-8*l:0,-8 ^l,s*4;"" c.01z# =,45- hs:l mU1:x=40(20032 :x,175:0,-160:x:0 o#e=17400:1650r r'n$=" 1 2 3 4 5 6 " w!18,0;n$:300, |'s$=" " \c=031:20,c;s$(131-c):18,c;n$(131-c) -t=13:.01z# =,45-:t:c  0:2:6: $1700:s=17:l,c >l,c;"":l+1,c;"":l+2,c-1;"":s 'n=124:t=12 $1700:b=17:l,c l,c;2;(148+t)  b:t:n e=17400 $1700:n=17:l,c 3l,c;" ":l-1,c;"":1,-12 Ql-1,c;" ":c*8+4,187-l*8,8:l-2,c;n n y3,11 ,3,19,9 ,7,9 ,15,9 ,23,15,11 ,15,19  )1800:4:4:7:  `c=.6:q=.3:f$=" ":e$=" " ps=291-1:12 ,0;f$(s29):13 ,0;e$(s29):1850::s #e=17400:1815 En$=" 1 2 3 4 5 6 7 8 ":15,0;n$:300, 1800:f=291-1:12 ,29-f;f$(1f):13 ,29-f;e$(1f):15,29-f;n$(1f):1850::f 0 :n:i=1n:t,p:t,p:i: D(2,q,-1,q,0,1,q,2,2,q,-1,q,-3,1,q,-5,1,c,-1,1,q,-1,1,.6,2,1,q,2,1,c,4,1,q,4,2,q,7,q,6,1,q,4,1,c,2,1,q,2 I51,c,-1,1,q,-1,1,c,0,1,q,0,2,q,-3,q,-3,1,q,-3,2,q,2,q,2,1,q,2,1,c,-1,1,q,-1,1,c,4,1,q,4,1,c,-6,1,q,-6,1,1.8ffff,-5 b l4:6:0: vPc=19 :3+24*c,102f,11 :.5,10 :c e=17400 c=19 :9 ,3*c;c:-5+24*c,108l:t=14:2,-2:2,2:t j2+24*c,116t,7:7,3*c;"":k=14:.4L,30:k:c  6:7:0: ol=156-2:c=0312:l,c;2;"":l+1,c;2;"":c:l %2,15;6;10 ;b=110 :6,b*3-1;"":b b=10 1-1: B2000:n=141):t,p:t,p:n=32 2000 n=306,b*3-1;" ":i=300-3:.1}L,i:i:17,b*3-1;"":2,15;6;b-1;" " n 4.6,0,.6,0,.3,0,.9ffff,4,.4L,2,.2~L,0,.4L,2,.2~L,4,1.2,0,.6,4,.6,4,.3,4,.9ffff,7,.4L,5,.2~L,4,.4L,5,.2~L,7,.6,4 .4L,0,.2~L,0,.6,9 ,.6,9 ,.3,7,.6,4,.3,0,.4L,2,.2~L,4,.4L,2,.2~L,0,.6,-3,.3,-5,.3,-3  /ex=0:5005:ex=1b=1 b / =20,0;" Press  E  to go to Exercises " 419,5;"Press  S  to Stop " O21,0;" Press  ENTER  to go on. ":0 ="s"Ŧ="S"5100 %="e"Ŧ="E"ex=1:5050 13 5020 *z$(32 ):19,0;z$;z$;z$  V6:0::10 ,1;"Press  R RUN  to run it again":0 "r"Ʀ"R"5110  X#7000X:n=13:g$ br=07:b l g$+r,b vr:n "a",15,31,31,31,30,224,96`,32 ,"b",28,60<,28,8,28,188,92\,28,"c",28,28,20,20,20,20,20,60< 6:7: l=12 21 *c=025:l,c;1;" ":c 5g=31-l/231:l,g;4;" ":g l '11 ,25;4;" " j9 ,25;"":10 ,25;"":199,99c:-12 ,4:-8,-24  7110 c=.8L:q=.4L 6n=124:t,p:t,p:n12 7160 1:199,99c:-12 ,4:-8,-24:199,99c:-4,12 :-4,-16:10 ,23;"" Qx=15:3,3*x;" ";x+5;" ":1,0:x R0:8,23;" ":9 ,23;" ":10 ,23;" " N 010 ,24;" ":11 ,24;""  "25:11 ,24;" "  zc,4,c,4,q,2,q,0,c,0,q,-5,q,0,q,4,q,7,q,7,q,5,c,5 *|c,5,c,5,q,4,q,2,c,2,q,0,q,-1,q,-3,q,-1,q,2,q,0,c,0 4 _go=0:1,0;" how many ? ";3,0;"Press the number" 50:go=go+1:=ggo=37430 D1,-12 :1,0;" Try again. ":7410 N2,0;" ";g;" is right ":x=1g:.8L,10 :x: e qXpN 1 2 3 4 5 6 7 8 <F E bGc9