T$jL?fo!6-D:\!6=12345=:k,23;"":k W7;2;0,23;"NEG:";1;7;0,28;"POS:" *7:2:b=23:5000 *7:1:b=28:5000 /b=2:c$="SORT 1 COMMENCING":9000(# 9c=12:9200#:c:b=2:9100# *7:1:b=28:5000 -b=3:c$="KEY ANY MATCHES":9000(# !60<:b=3:9100# "d:k=13:p(k)=(*4)+1:k:k=13:r(k)=(*4)+1:k *o0:x=1:y=4:6000p+(10 *p(1)):y=13 :6000p+(10 *r(1)) /fx=7:y=4:6040+(10 *p(2)):y=13 :6040+(10 *r(2)) 4gx=13 :y=4:6080+(10 *p(3)):y=13 :6080+(10 *r(3)) >M.01z# =,0:.01z# =,4:.01z# =,7:.01z# =,12 ?&1;20,8;"RESPOND" @!i=6+(4lev=1) A23560\,32 C c=1i Dr$=(23560\) Er$="Z"8000@ FUr$" "p(1)r(1)p(2)r(2)p(3)r(3)880p H)r$" "p(1)=r(1)850R I)r$" "p(2)=r(2)850R J)r$" "p(3)=r(3)850R Klev=1c=10 p(1)=r(1)lev=1c=10 p(2)=r(2)lev=1c=10 p(3)=r(3)900 Llev=2c=6p(1)=r(1)lev=2c=6p(2)=r(2)lev=2c=6p(3)=r(3)900 M4c:0;20,8;" ":800  R&0;20,8;" " SIp(2)=r(2)7;1;1;9 ,11 ;"*" TJp(3)=r(3)7;1;1;15,11 ;"*" UIp(1)=r(1)7;1;1;3,11 ;"*" W.b=2:c$="CORRECT RESPONSE":9000(# Y7p(1)=r(1)0;3,11 ;" " Z7p(2)=r(2)0;9 ,11 ;" " [8p(3)=r(3)0;15,11 ;" " ^tbs=bs+1:7:1:a=0:b=28:9600%+(10 *bs):c=12:9200#:c `/b=2:9100#:bs=10 950 f 800  pV0;20,8;" ":b=1:c$="INCORRECT RESPONSE":9000(# rtrs=rs+1:7:2:a=0:b=23:9600%+(10 *rs):c=12:9200#:c t/b=1:9100#:rs=10 950 z 800  &0;20,8;" " Ip(2)=r(2)7;2;1;9 ,11 ;"*" Jp(3)=r(3)7;2;1;15,11 ;"*" Ip(1)=r(1)7;2;1;3,11 ;"*" -b=3:c$="RESPONSE MISSED":9000(# 7p(1)=r(1)0;3,11 ;" " 7p(2)=r(2)0;9 ,11 ;" " 8p(3)=r(3)0;15,11 ;" " trs=rs+1:7:2:a=0:b=23:9600%+(10 *rs):c=12:9200#:c /b=3:9100#:rs=10 950  800  -b=3:c$="TEST TERMINATED":9000(# 8c=140(:.03{u\,-12 :c:9100# .sc1=1100L+(100d*bs)-(100d*rs) ]b=3:c$="SORT 1 SCORE":9000(#:0;7;1;20,17;sc1  testc=1300,:c: ?#0;6;0;" KEY IN: R-REPEAT OR S-SELECTOR " ""991 23658j\,0:r$= r$="r"700 r$="s"8000@  992 FULL TEST test=1  lev=2 0:0:7: Ca=1:b=2:c$="SPACE OBSERVER RECRUITMENT":9800H& .a=2:b=13 :c$="TEST":9800H& >a=7:b=2:c$="KEY IN YOUR CODE NAME":9800H& =a=9 :b=2:c$="MAXIMUM 6 CHARACTERS":9800H& :a=11 :b=2:c$="THEN PRESS ENTER":9800H& >9200#:1;17,3;" RESPONSE REQUIRED " 23658j\,8 20:r$:10 23658j\,0 !dr$=""#0;1,0;1;"CODE NAME IS REQUIRED-TRY AGAIN":150:1045 $ur$<1űr$>6#0;1,0;1;"CODE NAME TOO LONG - TRY AGAIN":150:1045 )c=1̱r$:r$(c)32 Ưr$(c)<480ůr$(c)32 Ưr$(c)>90Z#0;1,0;1;"CODE UNACCEPTABLE - TRY AGAIN":150:1045 *c . n$(can)=r$ 3*17,3;" " 8Wa=17:b=2:c$="PREPARE YOURSELF ":9800H&:17,20;n$(can) ="c=13:9200#:c L 700 Q t(can)=sc1 V 400 [ u(can)=sc2 ` 100d e v(can)=sc3:w(can)=sc1+sc2+sc3 j7:7:0: o<a=0:b=-1:c$="SORT STATUS UPDATE":9800H& t7;1;3,0;"";4,0;"C.NAMESORT1SORT2SORT3TOTAL";5,0;"":k=615:7;1;k,0;"";k,7;"";k,13 ;"";k,19;"";k,25;"";k,31;"":k:7;1;16,0;"" yc=1can:7;2;5+c,1;n$(c);5+c,8;t(c);5+c,14;u(c);5+c,20;v(c);5+c,26;w(c):c zcan=10 a=19:b=-1:c$="TESTING TERNINATED":9800H&:a=21:b=-1:c$="PRESS ANY KEY":9800H&:0:1500 ~a=19:b=-1:c$="ARE THERE ANY FURTHER CANDIDATES":9800H&:a=20:b=-1:c$="FOR TESTING ?":9800H& 5#0;" KEY IN Y-YES N-NO " "c=13:9200#:c 23658j\,0 r$= %r$="y"can=can+1:8000@ r$="n"1500 r$="Z"8000@  1170 x=w(1):x$=n$(1) )c=1can:w(c)>xx=w(c):x$=n$(c) c 0:0:7: Va=0:b=-1:c$="CANDIDATE SELECTED IS ":9800H&:0,22;x$ Pcan=1a=1:b=-1:c$="THERE WASNT MUCH CHOICE !":9800H& fcan>1a=1:b=-1:c$="GOOD LUCK ON YOUR MISSION":9800H&:1,26;x$ a=2:7  b=0:1:5000  b=4:2:5000  b=8:1:5000  !b=12 :2:5000  !b=16:1:5000 !b=20:2:5000 !b=24:1:5000 !b=28:2:5000 "c=15:9200#:c U0,0;"@ "  b=0:1:9500%  b=4:2:9500%  b=8:1:9500% !b=12 :2:9500% !b=16:1:9500% !b=20:2:9500% !b=24:1:9500% !b=28:2:9500% ""c=17:9200#:c ,5#0;" KEY IN 0-TO END 1-TO RESTART " 6r$= 8#r$="0"9200#:65367W: :r$="1"7000X ? 15906  INSTR 46:6:0: 8Ca=0:b=-1:c$="SORT 3-VISUAL MEMORY TEST":9800H& 9a=2:c$="ARE INSTRUCTIONS REQUIRED ?":9800H&:a=19:c$="KEY IN Y-YES N-NO":9800H&:1;19,8;"Y";19,15;"N":9200# :r$=:r$="Z"8000@ ;~r$="y"2,0;" ";19,0;" ":2110> <~r$="n"2,0;" ";19,0;" ":2170z = 2106: >:a=2:c$="A PICTURE IS DISPLAYED WHICH":9800H& C1a=3:c$="MUST BE REMEMBERED.":9800H& H;a=5:c$="THE AIM IS TO RECONSTRUCT THE":9800H& M5a=6:c$="ORIGINAL PICTURE AS THE":9800H& R<a=7:c$="INDIVIDUAL ELEMENTS ARE SHOWN.":9800H& W;a=9 :c$="PRESSING ANY KEY HALTS AT THE":9800H& \/a=10 :c$="ELEMENT ON VIEW.":9800H& a=a=12 :c$="CORRECT RESPONSES ARE SHOWN IN":9800H& f:a=13 :c$="BLUE,INCORRECT ONES IN RED.":9800H& k>a=14:c$="TEST TERMINATES WHEN EITHER RED":9800H& p8a=15:c$="OR BLUE INDICATOR REACHES":9800H& u'a=16:c$="MAXIMUM.":9800H& z=a=19:c$="KEY IN - 1 PRACTICE EASY LEVEL":9800H& ?a=21:b=8:c$="2 PRACTICE TEST LEVEL":9800H& B1;19,9 ;"1";21,9 ;"2":9200# r$= r$="Z"8000@  r$="1"lev=1:100d  r$="2"lev=2:100d  2190 6:6:0: Fa=0:b=-1:c$="SORT 2-VISUAL DISCRIMINATION":9800H& a=2:c$="ARE INSTRUCTIONS REQUIRED ?":9800H&:a=19:c$="KEY IN Y-YES N-NO":9800H&:1;19,8;"Y";19,15;"N":9200# r$=:r$="Z"8000@ ~r$="y"2,0;" ";19,0;" ":2210 ~r$="n"2,0;" ";19,0;" ":2270  2206 >a=2:c$="SIX VERSIONS OF THE SAME PICTURE":9800H& =a=3:c$="ARE SHOWN.ONE IS DIFFERENT FROM":9800H& -a=4:c$="THE OTHER FIVE.":9800H& <a=6:c$="THE AIM IS TO INDICATE THE ODD":9800H& "a=7:c$="ONE.":9800H& :a=9 :c$="PRESSING ANY KEY CHOOSES THE":9800H& >a=10 :c$="PICTURE SHOWN BY THE POINTER-^.":9800H& =a=12 :c$="CORRECT RESPONSES ARE SHOWN IN":9800H& :a=13 :c$="BLUE,INCORRECT ONES IN RED.":9800H& >a=14:c$="TEST TERMINATES WHEN EITHER RED":9800H& 8a=15:c$="OR BLUE INDICATOR REACHES":9800H& 'a=16:c$="MAXIMUM.":9800H& =a=19:c$="KEY IN - 1 PRACTICE EASY LEVEL":9800H& ?a=21:b=8:c$="2 PRACTICE TEST LEVEL":9800H& B1;19,9 ;"1";21,9 ;"2":9200# r$= r$="Z"8000@  r$="1"lev=1:400  r$="2"lev=2:400  2290 6:6:0: Ga=0:b=-1:c$="SORT 1-VISUAL PERCEPTION TEST":9800H& a=2:c$="ARE INSTRUCTIONS REQUIRED ?":9800H&:a=19:c$="KEY IN Y-YES N-NO":9800H&:1;19,8;"Y";19,15;"N":9200# r$=:r$="Z"8000@ ~r$="y"2,0;" ";19,0;" ":2310 ~r$="n"2,0;" ";19,0;" ":2370B  2306 :a=2:c$="TWO COLUMNS OF THREE PICTURE":9800H& 1a=3:c$="ELEMENTS ARE SHOWN.":9800H& 9a=5:c$="THE AIM IS TO SPOT WHEN THE":9800H& -a=6:c$="PICTURES MATCH.":9800H& ;a=8:c$="PRESS ANY KEY WHEN TOP,MIDDLE":9800H& >a=9 :c$="OR BOTTOM PICTURES ARE THE SAME.":9800H& $:a=10 :c$="RAPID RESPONSE IS REQUIRED.":9800H& )=a=12 :c$="CORRECT RESPONSES ARE SHOWN IN":9800H& .:a=13 :c$="BLUE,INCORRECT ONES IN RED.":9800H& 3>a=14:c$="TEST TERMINATES WHEN EITHER RED":9800H& 88a=15:c$="OR BLUE INDICATOR REACHES":9800H& ='a=16:c$="MAXIMUM.":9800H& B=a=19:c$="KEY IN - 1 PRACTICE EASY LEVEL":9800H& G?a=21:b=8:c$="2 PRACTICE TEST LEVEL":9800H& LB1;19,9 ;"1";21,9 ;"2":9200# Vr$= Wr$="Z"8000@ X r$="1"lev=1:700 Z r$="2"lev=2:700 \ 2390V PRINT ROCKET !2,b;" ";(34");"# " 3,b;" $% " 4,b;" &( " 5,b;" )+ " 6,b;" ;< " 7,b;" => " 8,b;" @_ " 9 ,b;" `a " 10 ,b;" bc " 11 ,b;" de " 12 ,b;" fg " 13 ,b;" hi " 14,b;" jk " 15,b;" lm " 16,b;" no " 17,b;" pq " 18,b;" rs " 19,b;"tuvw" 20,b;"xyz{" 21,b;"|}~"  p PICS zx,y;"*";x+1,y;"";x+2,y;"*";x+3,y;"*";x+4,y;"";x+5,y;"": {x,y;"";x+1,y;"";x+2,y;"*";x+3,y;"*";x+4,y;"";x+5,y;"": |x,y;"*";x+1,y;"";x+2,y;"*";x+3,y;"*";x+4,y;"";x+5,y;"": }x,y;"*";x+1,y;"";x+2,y;"*";x+3,y;"*";x+4,y;"";x+5,y;"": ~x,y;"*";x+1,y;"";x+2,y;"*";x+3,y;"*";x+4,y;"";x+5,y;"": x,y;"*";x+1,y;"*";x+2,y;"*";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"*";x+1,y;"*";x+2,y;"*";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"*";x+1,y;"*";x+2,y;"*";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"*";x+1,y;"*";x+2,y;"*";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"*";x+1,y;"*";x+2,y;"*";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"*";x+1,y;"";x+2,y;"";x+3,y;"*";x+4,y;"*";x+5,y;"": x,y;"*";x+1,y;"";x+2,y;"";x+3,y;"*";x+4,y;"*";x+5,y;"": x,y;"*";x+1,y;"";x+2,y;"";x+3,y;"*";x+4,y;"";x+5,y;"": x,y;"*";x+1,y;"";x+2,y;"";x+3,y;"*";x+4,y;"*";x+5,y;"": x,y;"*";x+1,y;"";x+2,y;"";x+3,y;"*";x+4,y;"*";x+5,y;"": x,y;"*";x+1,y;"*";x+2,y;"";x+3,y;"*";x+4,y;"";x+5,y;"": x,y;"";x+1,y;"*";x+2,y;"";x+3,y;"*";x+4,y;"";x+5,y;"": x,y;"*";x+1,y;"*";x+2,y;"";x+3,y;"*";x+4,y;"";x+5,y;"": x,y;"*";x+1,y;"*";x+2,y;"";x+3,y;"*";x+4,y;"";x+5,y;"": ~/x,y;"*";x+1,y;"*";x+2,y;"";x+3,y;"*";x+4,y;"";x+5,y;"": x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"*";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"*";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"*";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"*";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"*";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": ©x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": íx,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": īx,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": ʝx,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": ˛x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": ̝x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": ͝x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": Νx,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": ԏx,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": Տx,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": ֏x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": ׏x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": ؏x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": ޝx,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": ߝx,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": x,y;"";x+1,y;"";x+2,y;"";x+3,y;"";x+4,y;"";x+5,y;"": X INTRO Y can=1 ]6:0:6: bDa=0:b=-1:c$="BUREAU OF SPACE SELECTION.":9800H& g8a=2:c$="SITUATION UPDATE: 2.9.2049":9800H& l9a=4:c$="A VACANCY EXISTS ON MISSION":9800H& q:a=5:c$="OBZ-R4 TO THE SPIRAL GALAXY.":9800H& v;a=6:c$="PERSON SELECTED WILL FILL THE":9800H& {;a=7:c$="ROLE OF MISSION OBSERVER - NO":9800H& >a=8:c$="TECHNICAL KNOWLEDGE IS REQUIRED.":9800H& =a=10 :c$="SELECTION WILL BE ON THE BASIS":9800H& >a=11 :c$="OF STANDARD SORT-SPACE OBSERVER":9800H& ;a=12 :c$="RECRUITMENT TEST-PROCEDURES.":9800H& ;a=14:c$="CANDIDATES FOR SELECTION MAY":9800H& >a=15:c$="PRACTICE EACH TEST INDIVIDUALLY":9800H& ?a=16:c$="BUT FINAL SELECTION WILL BE MADE":9800H& =a=17:c$="ONLY FROM THOSE COMPLETING THE":9800H& 2a=18:c$="FULL SORT SEQUENCE.":9800H& <a=20:c$="INSTRUCTIONS PRECEDE PRACTICE":9800H& Ua=21:c$="TESTS. GOOD LUCK CANDIDATES !!":9800H&:9200#:9200#  300, @ MENU Atest=0 B23658j\,0 E0:6:0: J-1,4;"S.O.R.T. OPTION SELECTOR" L95;3,3;"CAPS Z ESCAPES BACK TO HERE" O6,5;"KEY IN :-" Tw1;8,5;"1";10 ,5;"2";12 ,5;"3";14,5;"4";16,5;"0" Y'8,7;"TO PRACTICE SORT 1" ^(10 ,7;"TO PRACTICE SORT 2" c(12 ,7;"TO PRACTICE SORT 3" h'14,7;"TO TAKE FULL TEST" m)16,7;"TO END THIS PROGRAM" n"c=12:9200#:c r21;19,5;" RESPONSE REQUIRED " |r$= ~*r$="0"9200#:85004!:0 r$="1"2300 r$="2"2200 r$="3"21004 r$="4"1000  8060| !46:6::0 !>KA=10 :B=-1:c$="ARE YOU SURE YOU WANT TO FINISH?":9800H& !H5A=16:C$="KEY IN - Y-YES N-NO":9800H& !R2:0 !\="Y"Ŧ="y" !f10 :8000@ !p #(COMP MESSAGE #+Nk=1̱c$:0;7;20,b+k;c$(k):.001wn,30:k #- #BLANK OUT COMP MESS #;k=1̱c$:0;7;20,b+k;" ":k # #COMP NOISE #79210#:k=110 :nt:.01z# =,nt:k: #[30,0,25,-5,16,502,12 ,28,-12 ,27 %ROCKET TAKE OFF %!c=010 %" a=0 %&9600%+(10 *c) %+.005y# =,(2*c) %0c %5 %a,b;" ";(34");"# " %a+1,b;" $% " % a=a+2 % a,b;" &( " %a+1,b;" )+ " % a=a+2 % a,b;" ;< " %a+1,b;" => " % a=a+2 % a,b;" @_ " %a+1,b;" `a " % a=a+2 % a,b;" bc " %a+1,b;" de " % a=a+2 % a,b;" fg " %a+1,b;" hi " % a=a+2 % a,b;" jk " %a+1,b;" lm " % a=a+2 % a,b;" no " %a+1,b;" pq " % a=a+2 % a,b;" rs " %a+1,b;"tuvw" % a=a+2 % a,b;"xyz{" %a+1,b;"|}~" % a=a+2 %1;a,b;"[]" %1;a+1,b;"[]" % &HPRINT INST &K5k=1̱c$:a,b+k;c$(k):.001wn,30:k &M &y &z+stack=23653e\+256*23654f\ &{RND=(*256) &|,"SP"23552\-RND,STACK-23500[+RND &} 1 ' ''20:7:7:0: #bnax y Wccczqraesei@ gh !      dcl pkXGORDONtac"nA KK: 5 35 35 35 30  0  CKEY ANY MATCHESRZ"100":1 100d d P 3s3snjn3io3,'66Mo%jT>vnL> @@@@  >h> ~FJRb~ ||``||~~```f~~@~~~B@~B~|D>"~bb~~B~hhh~B ?@@>"b~bbxD~FF~|D@@@~|bbbb|> |``~> |```>"`nb~""~bbb LL<$(phdb ```|6*jjbb"bbbb>"""">>"b~``~BBJF~<"b|db< >~|DDFFF~D8DTTTT8B$$BFF~>$00>??8TQQ IIIIIIImmA@@  @@AA(((((( BB"$$<~~<<~~<3$fbf#< ?J @R(@ "888888 # <@N'88\\]dS]Zeoo\#.\XfpX!^!@P!!88!PW! {"\ P'c=23613=\+256*23614 K SR P'c=23613=\+256*23614>\ c,0:c+1,0  10 :2:2:0::8,7;7;"":9 ,7;7;"":10 ,7;7;"STOP THE TAPE ":11 ,7;7;"":12 ,7;7;"":150 Jn$(10 ,6):t(10 ):u(10 ):v(10 ):w(10 ) p(9 ):r(9 ) 7000X F236066\,23730\+1:236077\,23731\-1: -236066\,0:236077\,60<: d0:0:7: frs=-1:bs=-1 iFk=021:7;k,0;" ";k,28;" ":k ni0,6;"":k=118:k,6;" ":k s19,4;"";20,4;" ";21,4;"" x>0,0;"NEG:";0,28;"POS:" })7:2:b=0:5000 *7:1:b=28:5000 1b=6:c$="SORT 3 COMMENCING !":9000(# 9c=12:9200#:c:b=6:9100# 3:k=19 :p(k)=(*4)+1:k A0:x=1:y=7:6000p+(10 *p(1)) .y=13 :6000p+(10 *p(2)) .y=19:6000p+(10 *p(3)) 8x=7:y=7:6040+(10 *p(4)) .y=13 :6040+(10 *p(5)) .y=19:6040+(10 *p(6)) 9x=13 :y=7:6080+(10 *p(7)) .y=13 :6080+(10 *p(8)) .y=19:6080+(10 *p(9 )) rs=10 ?lev=1b=5:c$="PRESS KEY WHEN READY":9000(# 'lev=1r$=:r$="Z"8000@ lev=1r$=""217 $lev=19100#:235 .b=7:c$="COMMIT TO MEMORY":9000(# %c=11000:c:9100# <k=118:k,7;" ":k 0b=6:c$="MAKE YOUR CHOICES.":9000(# g=19 !g=1x=1:y=7 "g=2x=1:y=13 "g=3x=1:y=19 !g=4x=7:y=7 "g=5x=7:y=13 "g=6x=7:y=19 "g=7x=13 :y=7 #g=8x=13 :y=13 #g=9 x=13 :y=19 ""260  w=16/lev d=14 L0:6000p+(10 *d)+(40(g4)+(40(g7) k=130/lev r$=:r$="Z"8000@ Ir$""r(g)=d:v=1g:p(v)r(v)b=6:9100#:350^  r$""v r$""g:300,  3k=1.01z# =,30:.01z# =,10 " k:d:w #ab=6:9100#:rs=rs+1:b=6:c$="FAILURE TO RESPOND":9000(#:355c ,b=6:9100# @=bs=bs+1:b=7:c$="CORRECT RESPONSE":9000(# ECa=0:b=28:7:1:9600%+(10 *bs) J"c=12:9200#:c Lb=7:9100# Obs=10 380| T 170 ^?rs=rs+1:b=6:c$="INCORRECT RESPONSE":9000(# cBa=0:b=0:7:2:9600%+(10 *rs) h"c=12:9200#:c jb=6:9100# m#rs=10 190:380| r 190 |-b=7:c$="TEST TERMINATED":9000(# ~,c=140(:.03{u\,-12 :c  9100# .sc3=1100L+(100d*bs)-(100d*rs) ]b=6:c$="SORT 3 SCORE":9000(#:0;7;1;20,21;sc3  testc=1300,:c: ?#0;6;0;" KEY IN: R-REPEAT OR S-SELECTOR " 23658j\,0 r$= r$="r"100d r$="s"8000@  392 0:0:7: rs=-1:bs=-1 d0,10 ;"":k=118:k,10 ;"";k,31;"":k 19,10 ;"":20,10 ;"";20,31;"":21,10 ;"" /k=021:k,0;"":k U7;2;0,0;"NEG:";7;1;0,5;"POS:" )b=0:7:2:5000 )b=5:7:1:5000 1b=11 :c$="SORT 2 COMMENCING!":9000(# :c=12:9200#:c:b=11 :9100# 1b=11 :c$="SELECT THE ODD ONE":9000(# Gk=16:p(k)=0:k::p((*6)+1)=1 7z=(*12 )+1:z=z*10 :z=z+6000p q=(*4)+1 20:x=1:y=11 :z+(qp(1))  )x=1:y=18:z+(qp(2))  )x=1:y=25:z+(qp(3))  )x=9 :y=11 :z+(qp(4))  )x=9 :y=18:z+(qp(5))  )x=9 :y=25:z+(qp(6)) !i=3+(3lev=1) g=1i:r=1:0:7:23560\,33!:699:699:k=05:7,11 +k;"^":c=12/lev:j=15:j:c:r$=(23560\):r$="Z"8000@ r$"!"600X 7,11 +k;" ":k r=2:23560\,33!:699:699:k=05:7,18+k;"^":c=12/lev:j=15:j:c:r$=(23560\):r$="Z"8000@ r$"!"600X !7,18+k;" ":k &r=3:23560\,33!:699:699:k=05:7,25+k;"^":c=12/lev:j=15:j:c:r$=(23560\):r$="Z"8000@ 'r$"!"600X +7,25+k;" ":k 0r=4:23560\,33!:699:699:k=05:15,11 +k;"^":c=12/lev:j=15:j:c:r$=(23560\):r$="Z"8000@ 1r$"!"600X 515,11 +k;" ":k :r=5:23560\,33!:699:699:k=05:15,18+k;"^":c=12/lev:j=15:j:c:r$=(23560\):r$="Z"8000@ ;r$"!"600X ?15,18+k;" ":k Dr=6:23560\,33!:699:699:k=05:15,25+k;"^":c=12/lev:j=15:j:c:r$=(23560\):r$="Z"8000@ Er$"!"600X I15,25+k;" ":k NWg:b=11 :9100#:b=11 :c$="FAILURE TO RESPOND":9000(#:650 Xp(r)640 bGb=11 :9100#:b=12 :c$="CORRECT RESPONSE":9000(# dbs=bs+1 gBa=0:b=5:7:1:9600%+(10 *bs) l"c=12:9200#:c qb=12 :9100# s]0;7,11 ;" ";15,11 ;" " tbs=10 680 v 500 Ib=11 :9100#:b=11 :c$="INCORRECT RESPONSE":9000(# rs=rs+1 Cp(1)0;7;1;7,11 ;"^" Cp(2)0;7;1;7,18;"^" Cp(3)0;7;1;7,25;"^" Dp(4)0;7;1;15,11 ;"^" Dp(5)0;7;1;15,18;"^" Dp(6)0;7;1;15,25;"^" db=0:a=0:7:2:9600%+(10 *rs):c=15:9200#:c u0;7,11 ;" ";15,11 ;" ":b=11 :9100# rs=10 680  500 .b=12 :c$="TEST TERMINATED":9000(# ,c=140(:.03{u\,-12 :c  9100# .sc2=1100L+(100d*bs)-(100d*rs) ^b=12 :c$="SORT 2 SCORE":9000(#:0;7;1;20,26;sc2  testc=1300,:c: ?#0;6;0;" KEY IN: R-REPEAT OR S-SELECTOR " 23658j\,0 r$= r$="r"400 r$="s"8000@  692 R.01z# =,12 :.01z# =,16:.01z# =,19:.01z# =,24: 0:0:7: bs=-1:rs=-1 }0,3;" ":k=118:k,3;"";k,10 ;"";k,12 ;"";k,19;"":k Ɔ19,0;"";20,0;"";20,22;"";21,0;"" 0k=021