ZXTape! 0Created with Ramsoft MakeTZXtime : ).':> X <:\&o{0_[\x0_Ð time / TIME &Microelectronics Education Programme MICRO PRIMER Software Pack 4  CET 1983 Program idea:Joe Telford ?Programmers..ICL Software, from an origional by Rob Pickering $Editors: Bob Coates, Rob Pickering Version 1.0 / 10 Aug 83 Spectrum 48K version 1BBC Model B & RML 480Z Versions also available. ( 100d Reg1;f(g),g(g):1;f(g+n4),g(g+n4):1;-f(g),-g(g):1;-f(g+n4),-g(g+n4): Sg=60<:82R Vel1;i(l),j(l):1;i(l+n2),j(l+n2):1;-i(l),-j(l):1;-i(l+n2),-j(l+n2): Wl=60<:86V [ss.2~L,-8:ss=o \Qi=:i=72Hi=104h82R:g=n1+(gg60<):82R:91[ ]Ki=77Mi=109m86V:l=n1+(ll60<):86V:91[ ^ss=soi:i=13 _ 92\ c_i=n1̱a$:23764\,a$(i):k=double:vp,hp;target;vp+n1,hp;(target+n1):hp=hp+n1:i: d[0:0:7::10 ,2;"Please wait half a minute.":9000(#: HP=m3:VP=n8:A$="Time":n4:9900&:n7:2490 ::1320(:op=v$:wt=t1:2380L ::1420:le=v$:wt=t1:2380L o:o::n7:pu=n88204 R:1610J:n$=v$:n$="Score"5310:wt=t0:2380L :putype=o:len=n1:3760:v=v$:v<"1"v>"3"1520 , THP=m4:VP=n5:A$="Time":n3:1280:HP=n8:VP=n9:A$="Type your name":n4:1280:HP=n8:VP=m2:A$="on the dotted line":n4:1280:n6:x=n9:y=m6 rutype=n7:len=m4:3760:v$59;):(ml=OL>mU)(mu=OLmULmu)(mlmu))4970j hl=cg-li+(60<cg59;):(hl=Og>hU)(hu=OghUghu)(hlhu))4970j 4880 lclgcg4970j * 4880 Hn1;128,96`: z$3530 :3600:3680` ʄT=ho*360000/+mi*6000p:a=(T/6000p):b=60<:1190:L=d:a=(T/72000 ):b=60<:1190:G=d:  82R ` 86V 9v$="":y,x;:i=n1len:".";:i:i=n1len:8;:i ""3820 ch=:ch3825 ch=m34050 chm23880(  +.0005vn,34.3 333:v$=""3820 *v$=v$(̱v$-n1):n8;".";n8;:3820 (v$=len4030 2typetypen63930Z <type=n63920P F%ch>47/ch<58:4020 G 4030 PK(ch>47/ch<58:)ch=32 ch=58:ch=46.4020 Q 4030 ZKch=ch+32 *(ch>64@ch<96`):ch=32 type=n74020 ntypen13980 x@(ch<97ach32 ch39')ch>122z4030  4020 &ch<97ach>122z4030 3type=n2ch=ch-32 *(ch>95_):4020 type=n34020 %v$=""ch=ch-32 *(ch>95_) 5.0005vn,34.3 333:v$=v$+ch:ch;:3820 .25~,o:3820  test=0 !k3k6k9 k=9 hr=ho k=k/3+12 ""c$=h$(hr,h(hr))+" "+m$(k,m(k)) ,3A$="":i=n1̱c$:c$(i)" "c$(i)"'"A$=A$+c$(i) 6i: hhr=ho+(mi>30):hr=hr-m2*(hr>m2):mi=60<mic$=h$(hr,h(hr))+" "+m$(m2,m(m2)):4340 .k=(mi/n5):c$=m$(k,m(k))+" "+h$(hr,h(hr)) 3a$="":i=n1̱c$:c$(i)" "c$(i)"'"a$=a$+c$(i) i: N#hr=ho+(mi=60<):hr=m3hr=n1 Xvc$=hr+":00"(n1+n2*(mi=60<)+(mit0,n1;"Wrong.";:i=1150:i:t0,n1;"It is ";c$  #hr=ho+(mi=60<):hr=m3hr=n1 #n1,t5;hr;:mi=60<":00 ": mi):j(62>) $^i=n160<:si=(i*/30):co=(i*/30):u$(i)=(128+65A*si):s$(i)=(96`+65A*co):f(i+n2)=(m7*si):g(i+n2)=(m7*co):i(i+n1)=(t6*si):j(i+n1)=(t6*co):i $c"b$(65A):double=23765\ $hf(n1)=f(61=):f(n2)=f(62>):g(n1)=g(61=):g(n2)=g(62>):f(63?)=f(n3):f(64@)=f(n4):g(63?)=g(n3):g(64@)=g(n4) $rNi(n1)=i(61=):j(n1)=j(61=):i(62>)=i(n2):j(62>)=j(n2): & procdbL &starget=144:addt=((target)/256):23763\,addt:23762\,(target-addt*256):99c &i=1̱a$ &itarget=144:addt=((target)/256):23763\,addt:23762\,(target-addt*256) &23764\,a$(i) & k=double &Hxpos=hp-1+i:vp,xpos;target;vp+1,xpos;(target+1) &i & ' '"time"10 o  owdowd #oubl\ argeddkxyypev2NFredr<;  -estV;b<d0l-g0 P945C9:45& ? N     ` Exactly rightVery good Well done Excellent Jolly good Great stuff Good show PTry harder Keep going Pay attention Be careful Make an effort M one two three four five six seven eight nine ten eleventwelvefive past ten past quarter past twenty past twenty five pasthalf past twenty five to twenty to quarter to ten to five to o'clock fifteen thirty forty five ڑ  5 5 MTell the time in words Tell the time in numbersSet the clock hands 5 Y?<yrlf_ZUPKHEB@???@BEHKPUZ_flry?<ztng`YRLF@:50+(%"  "%(+05:@FLRY`gntzC@  C@  9>  9>  DA A(3) Set the clock hands V spike IOnGhU+KO> e<:\&o{0_[\x0_Ð SPIKE /Spike Abacus Microelectronics Education Programme MICRO PRIMER Software Pack 4  CET 1983 Program idea..Anita Straker Programmers..ICL Software..from an original by I Drysdale, Rob Pickering, and David Tee Version 1.00/10 Aug 83 Works with 48K Spectrum BBC Model B and RML480Z versions also available. *true=-1:false=0:sound=true snd=false:***input/toggle*** 9100#:define ball  0 gpi=7800x proci=390 procd=7600 proctu=7200  procs=7000X procin=500 op1=1150~ op2=2000 op3=4000 fin=350^ proca=600X procc=700 procr=850R cnvt=1050 presd=6000p procfin=350^ procn=960 procfnw=6100 procnp=62008 procwd=6350 procsp=7700 procfnnq=7500L !procval=9000(# "procball=9600% #dbl=9900& $sndscroll=4500 d0:0:6: isnd=false130 nF10 ,10 ;"SOUND Y/N? ";:gpi1=2:gpi2=1:gpi s x*sound=true:a$"y" a$"Y" sound=false proci:procball Jvp=10 :hp=10 :j$="SPIKE ABACUS":ct=3:cb=2:dbl sound=trueproctu .sound=falsesnd=trueprocd1=502:procd snd=falsesndscroll npf=0:i$="SCORE"procs 0:0:5 L:j$="Choice Page":vp=4:hp=3:6;5,7:dbl 18,3;"1) Count from given number" *10 ,3;"2) Number question" (12 ,3;"3) Bead question" '3;14,3;"4) End" }gpi1=0:gpi2=1:4;1;17,3;"Your choice?";:" ";:2:gpi:v$=a$:procval:ip=val "ip<1ip>4170 op=ip >cff=trueop4op1cff=false:procfnnq:qu=fnnq (op=1cf=0:op1:320@ "op=2op2:320@ ,op=3op3:320@ 6op=4fin @pl>9 procs:fin Jcf=true170 T 260 [ \ ] ^ +++ DEF PROCFIN +++ c7:7:0: h:16,14;"BYE" r    +++ DEF PROCI +++ 3 pl=1:qu=1:cf=0:cff=-1 a(3):x(3):n(3):o(10 ):q(10 ):r(10 ):t(10 ):k$(10 ,10 ):r$(3,8):c(3) e$(3,116t) Ar$(1)="UNITS":r$(2)="TENS":r$(3)="HUNDREDS" "x$="":z$="j"+134:i$="" <c(1)=0:c(2)=2:c(3)=7     +++ DEF PROCIN +++ )gpi1=2:gpi2=10 :gpi:i$=a$ i$=""510 i$="SCORE"cf=-1 )i$="CHANGE" cf=-1:cff=-1 i$="END"fin &v$=i$:procval:ip=val N U V W X +++ DEF PROCA +++ b l%32 ,7:190,0 vJ63?,7:0,160:1,0:0,-160 K127,7:0,160:1,0:0,-160 K191,7:0,160:1,0:0,-160     +++ DEF PROCC(b,d) +++ $x=31-procc1*8:a=20-(x(procc1)*2) a=31-procc1*8 m$=e$(procc1) 750+x(procc1) 4,a;m$;6,a;m$;8,a;m$;10 ,a;m$;12 ,a;m$;14,a;m$;16,a;m$;18,a;m$;20,a;m$:790 4,a;m$;6,a;m$;8,a;m$;10 ,a;m$;12 ,a;m$;14,a;m$;16,a;m$;18,a;m$:790 r4,a;m$;6,a;m$;8,a;m$;10 ,a;m$;12 ,a;m$;14,a;m$;16,a;m$:790 c4,a;m$;6,a;m$;8,a;m$;10 ,a;m$;12 ,a;m$;14,a;m$:790 T4,a;m$;6,a;m$;8,a;m$;10 ,a;m$;12 ,a;m$:790 E4,a;m$;6,a;m$;8,a;m$;10 ,a;m$:790 64,a;m$;6,a;m$;8,a;m$:790 (4,a;m$;6,a;m$:790 4,a;m$:790 x(procc1)=x(procc1)+1 sound=false840H procc1=procc1+1  c=30  .015zu\,procc1*15-c *.005y# =,procc1*15-c >.005y# =,procc1*15-c H O P Q R+++ DEF PROCR(v) +++ \(20,31-(procr1*8);u$ f    +++ DEF PROCN(u) +++ j$=x(procn1) Lvp=19:hp=30-(procn1*8):ct=c(procn1):cb=c(procn1):dbl     +++DEF PROCCNVT(n$)+++ .+z$="000"+n$:lz=z$:z$=z$(lz-2lz) 82v$=z$(33):procval:n(1)=val B2v$=z$(22):procval:n(2)=val L2v$=z$(11):procval:n(3)=val V { | } ~+++ DEF OP1 +++ $i=13:x(i)=0:i 44::6,4;"Please select option" '9 ,4;"Auto count 1" (10 ,4;"Manual count 2" (13 ,4;"Your choice? "; rgpi1=1:gpi2=1:gpi:v$=a$:procval:ip=val:(ip=1ip=2)(8a$"");:1200 au=-ip cf=-1 H16,2;"Number to count from please ";:18,21; procin cf=-1  n$=i$:cnvt ip9991230 4:4:0  cf=-1  proca -i=13:n(i)=01320( 4j=1n(i):procc1=i:procc2=1:procc:j (procn1=i:procn 2 x(i)=n(i) <i Fprocd1=502:procd Zau-11390n d0#0;" Press E to exit":1400x n-#0;" Press ENTER for next, E to exit" xau=true1430 Cprocfnw:j=flag:(j=13 j=69Ej=101e)1410 j13  x(1)=9 1520 i=19 -x(1) 'procc1=1:procc2=8:procc procn1=1:procn presd:flg=true au=true1510 8j=:(j=13 j=69Ej=101e)1490 j13 i procr1=1:procr x(1)=0 procn1=1:procn  x(2)=9 1580, >procc1=2:procc2=8:procc:procn1=2:procn " 1630^ ,procr1=2:procr 6x(2)=0 @procn1=2:procn E5x(3)=9 x(3)=10 :1640h J'procc1=3:procc2=8:procc T,x(3)10 procn1=3:procn ^presd:flg=true h!x(3)10 1400x rprocr1=1:procr |procr1=2:procr procr1=3:procr x(3)=0 procn1=3:procn procsp1=21:procsp     +++ DEF PROCOP2 +++ op3op=2 cf=truecf=false pl>12070  pl=1 op=3 Hnpf=falsecf=falseprocnp1=pl:procnp:cf=trueop=3npf=true:  !o(pl)=2:q(pl)=qu*4 *q=1qu 4!ss=(*999):n$=ss:cnvt 94:4:0 > proca:0,0;k$(pl) H,i=13:x(i)=0:a(i)=n(i) RBn(i)0j=1n(i):procc1=i:procc2=1:procc:j \i fs=31-1 z n$=r$(s) }621,0;" " 5n$(n$)=" "n$=n$(1̱n$-1):2175 B1;21,0;" "(14-n$/2); _1;" How many ";n$;" are there? ";:gpi1=1:gpi2=1:gpi:a$=""2173} v$=a$:procval:ans=val ans=a(s)procwd:2270 0,13 ;"WRONG";  sound=true.5,-30  s$=r$(s) 5s$(s$)=" "s$=s$(1̱s$-1):2221 @a(s)=1f$="is ":s$=s$(1̱s$-1):2235  f$="are " o$="There "+f$+a(s)+" "+s$ 5o$(o$)=" "o$=o$(1̱o$-1):2237 621,0;" " ,1;21,16-o$/2;o$ /#0;" Look carefully! ";l$; procd1=75K:procd Ar$(1)="UNITS":r$(2)="TENS":r$(3)="HUNDREDS" procsp1=1:procsp s 621,0;" " :1;21,2;"What is the whole number? "; 9gpi1=1:gpi2=3:gpi:v$=a$:procval:wn=val 621,0;" " wn=ssprocwd:2400` $ sound=true.5,-30 .0,13 ;"WRONG" 8procd1=502:procd B2i=13:x(i)=a(i):procn1=i:procn:i G621,0;" " L?1;21,0;" LOOK CAREFULLY! " Vprocsp1=1:procsp `q jproca:q$=r(pl) o!t$="Here is your score "+k$(pl) q5t$(t$)=" "t$=t$(1̱t$-1):2417q t.1;21,(32 -t$)/2;t$ ~ n$=q$:cnvt ci=13:x(i)=0:n(i)0j=1n(i):procc1=i:procc2=8:procc:j i procsp1=1:procsp (pl=pl+1:pl10 2050     +++ DEF PROCOP3 +++ op2op=3 cf=truecf=false pl>14050  pl=1 op=2 Hnpf=falsecf=falseprocnp1=pl:procnp:cf=trueop=2npf=true: o(pl)=3:q(pl)=qu  qn=1 Bss=(*999):n$=ss:cnvt:j=13:a(j)=n(j):j 4:4:0 proca:k$(pl) Eh=0:t=0:u=0:j=13:x(j)=0:j 31;21,6;"Press H or T or U to" +#0;" add beads to make ";ss;l$ "82:w$=:t(pl)=t(pl)+.1}L:w$=""4130" ,w$"h"w$"H"4160@ 1h=9 4130" 6@h=h+1:procc1=3:procc2=8:procc:4130" @w$"t"w$"T"4180T Et=9 4130" J@t=t+1:procc1=2:procc2=8:procc:4130" Tw$"u"w$"U"4200h Yu=9 4130" ^@u=u+1:procc1=1:procc2=8:procc:4130" hw$13 4130" rHans=h*100d+t*10 +u:n(3)=h:n(2)=t:n(1)=u |4ans=ssprocwd:procd1=502:procd:4286 0,13 ;"WRONG";  sound=true.5,-30 procd1=502:procd  proca:0,0;k$(pl) 621,0;" " .1;21,9 ;"LOOK CAREFULLY!" nj=13:x(j)=0:n(j)=a(j):n(j)0i=1n(j):procc1=j:procc2=8:procc:i procn1=j:procn j procsp1=2:procsp "qn=qn+1:qnqu4080 proca:p$=r(pl) !t$="Here is your score "+k$(pl) 5t$(t$)=" "t$=t$(1̱t$-1):4300 $0,(32 -t$)/2;t$ pn$=p$:cnvt:i=13:x(i)=0:n(i)0j=1n(i):procc1=i:procc2=8:procc:j i procsp1=2:procsp (pl=pl+1:pl10 4050     +++ sndscroll +++  t=-1 ,#0;" Press SPACE Key " w$=" " w$="" t$=:t$=""4520  t$=" " t$"s"t$"S"4520 $t=t+1:t=1t=-1 2lw=w$:lw>32 *7lw=32 *7 *w$32 *7w$=w$(33!lw) Iw$=w$+"SOUND "+("ON "t=true)+("OFF"t=false)+" " t=falsesound=false 14,0;w$  4520 m n o p+++ DEF FNEPRESD +++ z flg=false 55:a$=:a$=69Ea$=101eflg=true      +++ DEF FNW +++  flag= ;(flag=13 flag=69Eflag=101e)6110  5 6 7 8+++ DEF PROCNP(i) +++ =2:2:0 B%:10 ,6;"Name Please "; L:procin:(ip=99999COip=0cf=true)6210B V cf=true `k$(procnp1)=i$ jt$="Thank you "+i$ o5t$(t$)=" "t$=t$(1̱t$-1):6255o t%13 ,(32 -t$)/2;t$ ~procd1=502:procd     +++ DEF PROCWD +++ r(pl)=r(pl)+1 621,0;" " )1;21,12 ;"WELL DONE"  sound=trueproctu:6430 9B=12:F=07:F:10 :F:B  4 621,0;" " ( U V W X+++ DEF PROCS +++ ]0:0: b90,0;"" v+t$=" " {1,0;t$ 6;1,1;"NAME";1,13 ;"OP";1,17;"SET";1,22;"COR";1,27;"TIME" -2;"" -2;"" l=1pl-1  t=l+3 t,0;t$;4;1;t,1;k$(l);5;t,13 ;o(l);t,17;q(l);t,22;r(l);t,27;t(l) l -2;"" procsp1=23:procsp :     +++ DEF PROCTU +++ *key=12 4.4L,11 +key >.4L,11 +key H.17~.z,9 +key R.22~aG,7+key \.27 =p,7+key B I J K L+++ DEF FNNQ +++ VP:10 ,7;"How many questions";12 ,7;"for each pupil? "; `!gpi1=1:gpi2=2:gpi j>:v$=a$:procval:ip=val:ip>502ip=07510V o fnnq=ip t    +++ DEF PROCD(t) +++ t=1procd1:t     +++ DEF PROCSP(k) +++ #0;l$; -#0;" Press SPACE ";l$; (" "7720( 21#0;" ";l$; 70,13 ;" " < u v w x+++ DEF PROC_GPI(f2,ml) +++ a$="":f1=0 i=1gpi2:".";:i i=1gpi2:8;:i t$="":a$""t$=a$(a$̱a$) %b$=:b=b$:b=13 8020T b$=""7840 .01z# =,-20 Mf1=0:(a$=""(t$=" "b=12 )b=32 )gpi1=4f1=1 b=12 a$=""7840 Lb=12 a$=a$(1̱a$-1):8;".";8;:7840 %b=32 gpi1=4f1=1 -a$=gpi2b<32 b>126~79906 Hgpi1=0b=32 b=46.(b480b579)8010J Hgpi1=2(b>96`b<123{)b=b-32 :b$=b:8010J 2gpi1=2(b>64@b<91[)8010J Ggpi1=3(b>64@b<91[)b=b+32 :b$=b:8010J 3gpi1=3(b>96`b<123{)8010J Wgpi1=4f1(b>96`b<123{)b=b-32 :b$=b:f1=0:8010J Agpi1=4f1(b>64@b<91[)f1=0:8010J "Rgpi1=4f1=0(b>64@b<91[)b=b+32 :b$=b:8010J ,>gpi1=4f1=0(b>96`b<123{)8010J 6.2~L,0 @ 7840 Jb$;:a$=a$+b$:7840 T #% #& #' #(+++ DEF PROC VAL(v$) +++ #2val=0:v$="" #<z=1̱v$ #F:c$=v$(zz):c$<480ůc$>579val=99999CO: #Pval=10 *val+c$ #Zz #d # # # #"a"+0,00000011 #"a"+1,00011111 #"a"+2,00111111? #"a"+3,01111111 #"a"+4,01111111 #"a"+5,01111111 #"a"+6,11111111 #"a"+7,11111111 # #"b"+0,11000000 #"b"+1,11111000 $"b"+2,11111100 $"b"+3,11001110 $"b"+4,11001110 $""b"+5,11111110 $,"b"+6,11111111 $6"b"+7,11111111 $@ $T"c"+0,11111111 $^"c"+1,11111111 $h"c"+2,01111111 $r"c"+3,01111111 $|"c"+4,01111111 $"c"+5,00111111? $"c"+6,00011111 $"c"+7,00000011 $ $"d"+0,11111111 $"d"+1,11111111 $"d"+2,11111110 $"d"+3,11111110 $"d"+4,11111110 $"d"+5,11111100 $"d"+6,11111000 $"d"+7,11000000 % %i=07 %&"e"+i,00000001 %0"f"+i,10000000 %5"g"+i,00000000 %:i %?"g"+0,11111111 %D %} %~ % %+++ test routine +++ %Pb$=8:b$=b$+b$+b$+b$:b$=b$+b$+b$+b$:b$=b$+b$+8+8:l$=b$ %0e$(1)=""+b$+""+b$+""+b$+"" %0e$(2)=""+b$+""+b$+""+b$+"" %0e$(3)=""+b$+""+b$+""+b$+"" %u$="" %i=118 %u$=u$+""+b$ %i % & & & & procdbl &parameters are.... &j$ string to print &vp,hp start print posn &Uuses target to contain the ASCII of UDG & UDG+1 which are lost. Also uses xpos  &Oaddt=(("s")/256):23763\,addt:23762\,("s"-addt*256) &u=1̱j$ &23764\,j$(u) &dummy=23765\ &>xpos=hp-1+u:vp,xpos;ct;"";vp+1,xpos;cb;"" &u & ' '"spike"3 rualsounnpxrocrocroct rocXrocip~ppi^rocXrocrocRnvresprocfi^rocrocfnrocn8rocwrocsrocfnnLrocva(#rocbal%b&ndscrolfdd &ummpo e t5 5 5 5 i UNITS TENS HUNDREDSatXZjIL"UWpJ Choice PagepipiATbB_ testc d H^ testc / TEST CARD &Microelectronics Education Programme   CET 1983 Version 1.0 15 May 83 d1000:init ntitle xcircle square colour hash end OKend=0110n 7:7:0:  init variables title=1500 circle=2000 square=2500 colour=3000 hash=3500 end=9000(# $centre=8000@ .space=8100 8doit=3600 L(r=07:"A"+r,255:r Vr=07 `"B"+r,15 jr<4"B"+r,240 tr ~#r=07:a:"C"+r,a:r #r=07:a:"D"+r,a:r M204,204,513,513,204,204,513,513 M170,85U,170,85U,170,85U,170,85U 0s$="":n=114:s$=s$+144:n  title 0:0:5: *a$="M E P Testcard":y=10 :centre space   circles 0:1:4: 128,90Z,80P ,a$="Please adjust your":y=8:centre -a$="set until you see ":y=10 :centre )a$="perfect circle":y=12 :centre space  ::r=80P10 -10 :128,90Z,r:r space    squares 0:4:7: _0,0:255,0:0,175:-255,0:0,-175 2 8x=69E189:x,28:0,120x:x 52:7:a$="This is a":y=6:centre (a$="perfect square":y=8:centre 4:space (/y=68:y,9 ;2;s$;:y 27x=99c159:x,58::0,60<:x <space  colour sqaures 0:0:7: 1,2;"Colour test" ̃4,2;2;"RED ";4;"GRN ";6;"YEL ";1;"BLU ";3;"MAG ";5;"CYN ";7;"WHT "; ֓n=68:n,2;2;" ";4;" ";6;" ";1;" ";3;" ";5;" ";7;" ";:n 13 ,2;"Adjust BRIGHTNESS";14,10 ;"CONTRAST and";15,10 ;"COLOUR controls";17,2;"for best results." space  hashing patterns b=0:f=7:doit b=3:f=5:doit b=1:f=6:doit b=2:f=6:doit  do it 0:b:f: U"If you are using a TV set adjustthe tuning controls to obtain the best picture." B)y=4:s=144147:t$="" L+t=16:t$=t$+s+s+s+" ":t V"c=yy+2:c,2;t$;:c ` y=y+4 js tspace ~ @#y,(16-(a$)/2);a$;: 37:a$="Press SPACE key":y=21:centre " "8110 ,a$=" ":y=21:centre: #'end (or not!) #(0:0:7: #2-a$="Do you wish to run":y=10 :centre #<-a$="the test again? ":y=12 :centre #""9110# #=""9120# #k$= #!k$="Y"k$="y" OKend=0: #!k$="N"k$="n" OKend=1: # 9110# '"testc"100d itlirclquar olou as n(#entr@pacoiaU( 2 bfBLVT KnkenSA