11UP   "11UP" >>  MACBRIDE 1983 <<  T=17:G$ (R=07:B 2 G$+R,B <R:T A 70F F"A",1,3,7,15,31,63?,127,255,"B",128,192,224,240,248,252,254,255,"C",255,255,126~,126~,60<,60<,24,24 P@"D",129,165,36$,36$,36$,0,82R,74J,"E",255,248,248,200,196,224,144,128,"F",255,31,31,19,35#,7,9 ,1,"G",255,129,129,129,129,129,129,255 Z1:1:7: d23692\,64@ n8,15;"" s15;"" x)15;"":15;1;"11" }15;"" )15;"":15;1;"UP" 15;"" "15;"":14;"" 14;"" ?14;"":14;"":14;1;"" (" Please  ENTER your name";n$ 4n$>96`n$(1)=(n$(1)-32 ) n$>12 n$=n$(12 ) -n=1̱n$:8+n,15;n$(n):n Ln=10 0-1:21,0;n;" ":1,-12 :n 21,0;" " 23692\,64@ ;f=-20:3000 :15;6;2;"" .3000 :15;7;6;"" ;f=-18:3000 :15;7;1;"" .3000 :15;7;1;"" =f=-16:3000 :14;7;1;"" 23000 :13 ;7;1;" " T=12 0-1 f=-(4+T):3000 *T;7;1;"";31-T;"" T DT=122:f=T-4:3000 :7:0::T 2392X ,0  b(20,2) .st=0:1505:e=1600X  7: , c=-1 6!t=10 20:1000 @"e=1t=20:400 Jc=c+2:1200 N,t=200,22;t:340T P20-n,c;t T#1505:e=1t=20 t X7no=10 :s=0:c=5:i=110 Z7:7:0: ]t=(*11 )+10 bz=0:1000 l 2000 q!z=1700:670 v 1200  2000 !z=1700:670 +t=200,6;t:670 20-n,c;t st=1:1500 i  1600@ Melody by Jake McBride Ʃz=10,2;"WELL DONE ,";N$:.4L,7:.4L,6:.4L,4:.4L,2:.4L,7:.9ffff,9 :670   n=1t b(n,1)=(*20) *b(n,2)=(*(29-c))+c+3 3(b(n,1),b(n,2))>64@1010  Ie=0b(n,1),b(n,2);1;4;"":1070. Gx=13:.15~,10 :b(n,1),b(n,2);" " .15~,22 $5b(n,1),b(n,2);1;4;"":x ) 10 .n B n=1t:p=2 #n/2=(n/2)p=5 x=15 ,b(n,1),b(n,2);1;p;"" .1}L,-12  b(n,1),b(n,2);" " .1}L,-7 x 20-n,c;1;p;"" .5,0 n  J20,0;" Press  S  to Stop the program ":1510 Ie=0:20,0;" Press  E  for the Exercises " K21,0;" Press  ENTER  to go on. ":0 $="e"Ŧ="E"e=1:1540 5st=1Ʀ="s"st=1Ʀ="S"no=i:1600@ 13 1510 9l=2021:y=031:l,y;" ":y:l  @1:6: JB7:l=10 14:c=525:l,c;" ":c:l T78:11 ,7;"Score - ";s;" out of ";no ^.13 ,11 -n$/2;"Goodbye ";n$ h"Anyone else there ?";a$ ra$="yes"a$="YES"90Z |a$="no"a$="NO"1700 ="Please  ENTER  yes or no ";a$:1650r 420,8;"END OF PROGRAM":1700  go=0 ""  ENTER  How many ";h$ h$=""2005 0go=go+1:21,0;" " ^h=1̱h$:h$(h)<480ůh$(h)>579h=10 :2,-20:h:2005 H !h$=ts=s+1:z=1: go2 $21,0;"Try again "  2005 Lm=16-(f>-16)-(f>0)-(f>12 ):.01z# =,f:m: (b~N Frederickgeof        eJ sJ XzH20AnoGC