ZXTape! 0Created with Ramsoft MakeTZXCHEMISTRY EEg7G ""  0  400 7:0: "" !Vchemistry @ " @?p|@q""@qϾ>0 @! " 0"((0`qǀ! BA"qǀ`D((B " " D"p" "r/<" `0< ``D"<B (* !@ "" x" ! () @0oAq"!po@@qR(@08"!!p@1?pp?ppppqpppp?pp?pp8pppp?pp?pp8?pp?pppppqpp8?pp?pppppqppp?pp?pppppqpppppppqpppppppqpppp|88|@@@9<  `@DEPQ@@@@EB @DDA@X8y1841250 z$="XXX"z$="xxx"1320(  n=n+1  ;7:2:3+n*2,6;z$:y$(n)=z$ n=81320(  1250 (7m$=" LET'S SEE HOW YOU DID":m=2:3000 2$i=18:c$(i)=" ":i < n1=0 F"c$(s(1))=i$(f(f1,1)) P"c$(s(2))=i$(f(f1,2)) Z"c$(s(3))=i$(f(f2,1)) d"c$(s(4))=i$(f(f2,2)) n.f30c$(s(5))=i$(f(f3,1)) x.f30c$(s(6))=i$(f(f3,2)) ch11480 x=0:y=0 i=16 !c$(s(i))=i$(2)x=1 "c$(s(i))=i$(12 )y=1 i 'x=0c$(s(7))=i$(2) (y=0c$(s(8))=i$(12 ) i=18 c$(i)=" "1540 rj=1n:y$(j)=c$(i,2)3+i*2,22;6;3;c$(i,2):j=n:1500 j ?7:1:3+i*2,22;c$(i,2);  502  j=1n gy$(j)=c$(i,2)5:3+j*2,6;" ";:k=1480:.01z# =,k:k j i ;m=2:m$=" Any of yours left are errors":3000  200 "5::3200 , m=2:m$="":3000 6i=195-1:5:2:1;i,2;" ";:.01z# =,60<-1:4:1;i,29;" ";:.01z# =,502-i:i @70:4,2;"+":4,29;"-"; J7m=2:m$=" ELECTROLYTE SYSTEM":3000 T 100d ^7:1 hi=18 r c$(i)=" "1670 |,3+i*2,14;c$(i,2) i do the solution i=18 c$(i)=" "1800 6m=0:m$=c$(i,2)+" migrates to + or - ?" 20,0;m$ z$= z$=""1730 z$"+"z$"-"1730 Bz$="+"c$(i,11)"-".05|L,-6:1730 Bz$="-"c$(i,11)"+".05|L,-6:1730  z$="+"4500:1800  4000 i lget preferred ions v.m=2:m$=" IDENTIFYING PREFERRED IONS"  3000  500 f1=0:f2=0 i=117 x$=i$(i,11) j=18 %i$(i)=c$(j)x$="+"f1=0f1=i %i$(i)=c$(j)x$="-"f2=0f2=i j i 8m=2:m$="AT THE (REDUCED) ?":3000 ;20,7;7;4;"CATHODE":3025 z$=""2010 8z$i$(f1)(2k(f1)).1}L,0:2010 )20,11 ;7;"WELL DONE"  4700\ 7m=2:m$="AT THE (OXIDISED) ?":3000 920,7;7;2;"ANODE":3025  z$=""2050 8z$i$(f2)(2k(f2)).1}L,0:2050 )20,11 ;7;"WELL DONE"  4700\ *e=12 4f=f1 >e=2f=f2 H5::3200 Rpaper=5:ink=1 \-4,4;"ENTER THE IONIC EQUATION" f$5,10 ;"OR USE THE '?'" p6,14;"FOR" u5:t$=e$(f) z,1;7,13 ;i$(f,2); i=1̱t$ a$=e$(f,ii) ce=15-(.5*t$) <a$="+"a$="-"a$=" "a$=""9 ,ce+i;a$;:2220 9 ,ce+i;"-"; .1}L,6+i i .m=0:m$=" (ONE character at a time)" i=1̱t$  hpos=i+ce a$=e$(f,ii) <a$="+"a$="-"a$=" "a$=""9 ,ce+i;a$;:2340$  3000 z$=""2280 'z$="?"9 ,ce+i;a$;:2340$ &z$a$.1}L,-4:2280 Wj=209 -1:j,ce+i;a$:.02{# =,32 -j*e:j+1,ce+i;" "; j $i )hpos=0 .(m=1:m$="Press the enter button" 0 3000 3z$13 23520 8e B 1000 0 input routine z$="":gron=0 Ppaper:ink:20,0;s$;:21,0;s$:20,0;m$; m=2m=0: x$=:x$=""3030 m=1z$=x$: Sx$=151;21,24;1;"GRAPHICS";:.1}L,480 ]x$=15gron=1gron=0:21,24;s$(18):3030 5x$=15gron=0gron=1:3030 "gron=1x$=(x$+47/) ox$=13 .05|L,8:20,0;s$;:.05|L,0:21,0;s$;:m=0: px$=12 Ʊz$>0z$=z$(1̱z$-1):.05|L,-12 :21,hpos+z$;" ";:31200 m13090 :x$<480ůx$>579.05|L,0:3030 x$="?"z$=x$: 9z$321,hpos+z$;x$;:.05|L,480 1z$=z$+x$:z$>4x$=12 :3060 0 100d : 3030 print the menu in top 3 T6:2:0,0;s$;:1,0;s$;:2,0;s$; 22,1;"i = j = k = l = " 21,1;"e = f = g = h = " *0,4;"b = c = d = " i1:3,16:0,133:249,0:0,-133:-249,0  move to - elctrode j=1423 $5:3+i*2,j;" "; @7:1:3+i*2,j+1;c$(i,2); .05|L,j*2 j  move to + electrode j=13 4-1 ,5:3+i*2,j+4;" "; 87:1:3+i*2,j;c$(i,2); .05|L,j*2 j  \ whistle f%j=164@:.005y# =,j:j p.j=64@1-1:.005y# =,j:j z X3,7,0 b12 ,14,0 l16,17,0 v18,11 ,0 8,19,0 24,6,0 25,23,0 27,20,0 15,7,0 13 ,21,0 17,22,0 9 ,20,0 10 ,23,0 4,28,0 5,29,0 30,31,0 32 ,10 ,0 32 ,13 ,0  35#,26,0 2,19,0  1,34",0 *33!,3,0 434",10 ,0 >15,12 ,0 H6,20,25 R3,10 ,20 \1,7,34" f7,18,25 p10 ,31,33! z8,21,26 12 ,20,28 "CaBr",9 ,14 "Ca(OH)",9 ,12 "CuSO",1,17 "Cu(NO)",1,16 "CuCl",1,15 "KNO",11 ,16 $"KCl",11 ,15 ."KOH",11 ,12 8"KI",11 ,13 L"KSO",11 ,17 V"KBr",11 ,14 `"Mg(NO)",8,16 j"MgCl",8,15 t"AlBr",7,14 ~"Al(SO)",7,17 "SnCl",4,15 "Ca(NO)",9 ,16 "NaSO",10 ,17 "NaNO",10 ,16 "NaCl",10 ,15 "NaI",10 ,13 "NaBr",10 ,14 "HCl",2,15 "PbCl",3,15 "Fe(SO)",5,17 "CaCl",9 ,15 "Zn(NO)",6,16 "FeCl",5,16  "Pb(NO)",3,16 "HSO",2,17 "Al(NO)",7,16 ("Fe(NO)",5,16 2"ZnCl",6,15 <"NaOH",10 ,12 F"Sn(NO)",4,16 @"+Cu" J"+H" T"+Pb" ^"+Sn" h"+Fe" r"+Zn" |"+Al" "+Mg" "+Ca" "+Na" "+K" "-OH" "-I" "-Br" "-Cl"  "-NO"  "-SO" !4"Cu + 2e Cu" !>"2H + 2e H" !H"Pb + 2e Pb" !R"Sn + 4e Sn" !\"Fe + 3e Fe" !f"Zn + 2e Zn" !p"Al + 3e Al" !z"Mg + 2e Mg" !"Ca + 2e Ca" !"Na + e Na" !"K + e K" !"4OH - 4e O + 2HO" !"2I - 2e I" !"2Br - 2e Br" !"2Cl - 2e Cl" !"2NO - 2e 2NO + O" !"SO - 2e SO + O" ' 0 'Vstkend=23653e\+256*23654f\:"elect"23552\,stkend-23500[: tken9999' elect L8\ \L84app 11@3 -7:0:7:0:0 "23785",ç:"23659",1: messages/instructions  ( 2 < F P Z63000:7 d"" n x '=SAVEing instructions RUN 9999  '"23785","255":"app"ʰ"1": -Qapp \# # <@T''8cnc\\\c\ccccdd\3fX![!@P!!88W K SR P 10 23659k\,0 e205,124|,0,59;,59;,225,1,15,0,9 ,235,42*,61=,92\,115s,35#,114r,201,59;,59;,205,142,2,123{,254,255,32 ,248,58:,58:,92\,254,255,40(,33!,254,7,40(,29,254,8,40(,25,60<,502,129,92\,253,546,0,255,33!,14,39',34",66B,92\,175,502,68D,92\,253,203,1,254,195,125},27,513,513,195,3,19,205,124|,0,59;,59;,225,1,15,0,9 ,235,42*,61=,92\,115s,35#,114r,201,118v,205,142,2,123{,254,255,32 ,248,58:,58:,92\,254,12 ,40(,10 ,254,16,40(,6,254,20,40(,2,24,25,60<,502,129,92\,253,546,0,255,33!,14,39',34",66B,92\,33!,0,0,34",68D,92\,59;,59;,195,125},27,195,3,19,0,205,142,2,123{ &g=6300163150:a:g,a:g 63074b #23659k\,2 -/0:7:7:0:0: 2&1;"PLEASE LEAVE TAPE RUNNING" Z 7 d"" n '<2,-30:0:or any routine for errors 'kstkend=23653e\+256*23654f\:"app"23552\,stkend-23500[:60000`,133: tkenc9999' app \\4 &e  app Q\ Q# # <@T''8ͬz\\\ͬ\٬ެʬQ\3fX![!@P!!88W K SR Pg23561 \,255:23562 \,255:23658j\,0:(60000`)1330 7:7:0:0:0::1;10 ,10 ;"STOP THE TAPE":12 ,8;"THEN PRESS A KEY"; =""3 dg$(14,21):c$(13 ,7):s(6,2):l(7,3):o$(7,3,22):q$(7,28):a(7,3):d(7,3):o(6) n9700%: xi=114 g$(i) I I=113 c$(i) i i=16 s(i,1),s(i,2) i i=17 Oa(i,1),d(i,1),a(i,2),d(i,2),a(i,3),d(i,3) i "HYDROGEN","NITROGEN MONOXIDE","NITROGEN DIOXIDE","CARBON DIOXIDE","DRY HYDROGEN CHLORIDE","CARBON MONOXIDE","DRY SULPHUR DIOXIDE","DRY CHLORINE","DINITROGEN MONOXIDE","NITROGEN","OXYGEN","DRY AMMONIA","ETHYNE","LEAVE PROGRAM" ܃"2331922","2331922","2333921","2333921","2323923","3231922","2323913","2313919","1931912","1931912","2331922","1932112","3221924" i5,0,12 ,0,17,10 ,18,13 ,14,26,7,26 24,80P,24,40(,24,40(,26,120x,26,120x,26,120x,84T,80P,84T,80P,84T,80P,120x,80P,120x,100d,152,80P,120x,80P,27,28,29,30,22,20,33!,34",35#,36$,88X,80P,88X,80P,116t,80P Ki=14:j=07:x:m$=(143+i):m$+j,x:j:i E0,0,0,24,36$,8,16,60< D0,0,0,568,4,28,4,568 D0,0,0,32 ,40(,60<,8,8 C0,4,2,255,2,4,0,0 X>i=17:l(i,1),l(i,2),l(i,3):i b5100,5140,5180<,5200P,5240x,5280,5300,5340,5380,5400,5440@,5480h,5500|,5540,0,5600,5640,0,5700D,5740l,5780 i=17:q$(i):i |"TYPE OF REACTION VESSEL","ENTRY SYSTEM","SCRUBBING BOTTLES","COLLECTION METHOD","DRYING COLUMN","HEAT REACTION VESSEL",""  Ai=17:o$(i,1),o$(i,2),o$(i,3):i *<"INCLINED","UPRIGHT (bottom tube)","UPRIGHT (middle tube)" 44"CLOSED - NO FUNNEL","TAP FUNNEL","THISTLE FUNNEL" 9"TWO","ONE","NONE" ><"OVER WATER","DOWNWARD DISPLACEMENT","UPWARD DISPLACEMENT" H"YES","NO","" R"YES","NO","" \ "","","" 's$=" "  main menu 0:2:0: 27:1,6;"PREPARATION OF GASES" i=114 5:0 ,1;i+3,5;(i+64@);  7 $i+3,7;g$(i); .i 82:7 B*20,6;"PRESS A KEY (A to M)" L=""1100L Vi$= `choice=0 ei$="N"0 ji=113 t-i$=(i+64@)i$=(i+96`)choice=i ~i 1choice=0.05|L,-12 :1100L main question section t$="" i=16 :range=0:len=0 "1;0,0;q$(i); j=13 l(i,j)=02130R 11;1;21,2;g$(choice);  1;j+15,7;j j+15,9 ;o$(i,j)  range=j *2u=((j-1)*10 +2)*8+8 4 v=90Z > 8000@ H51;13 ,((j-1)*10 +6);j Rj \(p$="PLEASE CHOOSE NUMBER":len=1 f 9000(# p t$=t$+z$ z*i=1z$="1"t$=t$+"9":i=i+1 *i=4z$="1"t$=t$+"9":i=i+1 *i=4z$="3"t$=t$+"9":i=i+1 i display the t$apparatus 85004! or t$=c$(choice) V20,0;" "; &1;0,4;g$(choice) i=16 o(i)=13100 t$=c$(choice) t$(ii)="9"3100 'choice=12 i=43100 j=t$(ii) u=a(i,j)  v=d(i,j)  8000@ i routine for connector j=t$(77) j=9 4000 #j=47500L:4000 u=a(7,j) v=d(7,j) 8000@ routine to get labels x=9490%+choice*10 x:5000 i=16  e$="":e$ e$="x"4210r 3range=0:len=1:p$="ENTER LABEL or ?" s(i,1),s(i,2); j=1̱e$  x$=e$(jj) hx$="+"x$="-"s(i,1)+1,s(i,2);"+":s(i,1)+2,s(i,2);:4120 "-"; j "%line=s(i,1):col=s(i,2) ,j=1̱e$ 6 y$=e$(jj) @_y$="+"y$="-"line+1,s(i,2);y$:line=line+2:col=s(i,2):4200h J 9000(# T:z$="?"z$=y$line,col;y$;:COL=COL+1:4200h ^!.05|L,-12 :4170J hj ri routine to get equation -choice=13 17,0;s$;s$;s$ #p$="ENTER REACTION EQUATION or ?" x=6990N+choice*10 x  e$:range=0:len=1 i=1̱e$  y$=e$(ii) :y$="+"y$="-"y$=""y$=" "19,i;y$;:4590 19,i;"-"; .05|L,6+i i  COL=0 i=1̱e$  y$=e$(ii):col=col+1 )y$=""y$="+"y$=" "y$="-"4680H  9000(# *-z$=y$z$="?"19,col;y$;:4670> 4 .05|L,12 :4640  > Hi R len=0 \p$="Press the ENTER button" f 9000(# p=""4720p u x$=:x$13 4720p z 1000 ,routine to display graphics menu in line 2 21;1,10 ;"a = b = c = "  "p",36$,13 ,"c",-4,10 ,-14.2c333*/8,"p",36$,13 ,"d",2,2,"d",18,6,"d",2,-2,"p",32 ,24,"d",2,-2,"d",18,6,"d",2,2 "p",480,21,"d",14,4,"d",2,0,"p",47/,24,"d",14,4,"d",3,0 *"p",8,6,"d",26,0 '"p",502,22,"d",7,2,"p",502,21,"d",7,2,"p",502,20,"d",7,2,"p",502,19,"d",7,2,"p",480,25,"d",7,2,"p",480,26,"d",7,2,"p",480,27,"d",7,2 "e" <"p",18,4,"c",0,24,-/2,"p",38&,4,"c",0,24,/2,"p",18,4,"d",20,0,"p",18,28,"d",4,4,"d",0,16,"d",-2,4,"p",38&,28,"d",-4,4,"d",0,16,"d",2,4 W"p",25,10 ,"d",0,70F,"p",27,10 ,"d",0,70F "p",29,42*,"d",0,26,"d",36$,0,"p",31,42*,"d",0,24,"d",34",0 #W"p",13 ,14,"d",12 ,0,"p",27,14,"d",14,0 (."p",22,44,,"d",0,10 ,"p",23,44,,"d",0,10 ,"p",24,44,,"d",0,10 ,"p",28,44,,"d",0,10 ,"p",32 ,44,,"d",0,10 ,"p",33!,44,,"d",0,10 ,"p",34",44,,"d",0,10 -"e" <<"p",18,4,"c",0,24,-/2,"p",38&,4,"c",0,24,/2,"p",18,4,"d",20,0,"p",18,28,"d",4,4,"d",0,16,"d",-2,4,"p",38&,28,"d",-4,4,"d",0,16,"d",2,4 >W"p",25,42*,"d",0,38&,"p",27,42*,"d",0,38& @"p",29,42*,"d",0,26,"d",36$,0,"p",31,42*,"d",0,24,"d",34",0 B,"p",13 ,14,"d",28,0 D."p",22,44,,"d",0,10 ,"p",23,44,,"d",0,10 ,"p",24,44,,"d",0,10 ,"p",28,44,,"d",0,10 ,"p",32 ,44,,"d",0,10 ,"p",33!,44,,"d",0,10 ,"p",34",44,,"d",0,10 F"e" P"x" x"p",23,0,"d",0,3,"d",-4,1,"d",0,2,"d",4,1,"d",0,6,"d",-4,2,"d",0,20,"d",2,2,"d",0,5,"d",-2,1 "p",25,0,"d",0,3,"d",-2,0,"d",2,0,"d",4,-1,"d",0,2,"d",1,0,"d",1,-2,"d",1,0,"d",1,2,"d",0,2,"d",-1,2,"d",-1,0,"d",-1,-2,"d",-1,0,"d",0,2,"d",-4,-1,"d",0,6,"d",4,2,"d",0,20,"d",-2,2,"d",0,5,"d",2,1,"p",19,24,"d",9 ,0,"e" "p",23,0,"d",0,14,"c",-1,7,-/2,"d",-1,1,"p",25,0,"d",0,14,"c",1,7,/2,"d",1,1,"e" "p",0,26,"d",13 ,0,"d",0,-546,"p",0,28,"d",15,0,"d",0,-568,"p",13 ,16,"c",-3,-8,2*/3,"d",0,-6,"d",-3,-3,"d",-2,-2,"d",0,-32 ,"p",15,16,"c",4,-4,-/2,"d",10 ,0,"d",0,16,"d",4,0,"p",19,10 ,"d",12 ,0,"d",0,16,"d",2,0 "p",19,10 ,"c",-2,-4,-/4,"d",0,-3,"d",3,-3,"d",2,-2,"d",0,-33!,"d",-16,0 V"p",5,-18,"d",8,0,"p",15,-18,"d",6,0 "p",34",26,"d",13 ,0,"d",0,-546,"p",34",28,"d",15,0,"d",0,-568,"p",47/,16,"c",-3,-8,2*/3,"d",0,-6,"d",-3,-3,"d",-2,-2,"d",0,-32 ,"p",491,16,"c",4,-4,-/2,"d",10 ,0,"d",0,16,"d",4,0,"p",535,10 ,"d",12 ,0,"d",0,16,"d",2,0 "p",535,10 ,"c",-2,-4,-/4,"d",0,-3,"d",3,-3,"d",2,-2,"d",0,-33!,"d",-16,0 ["p",39',-18,"d",8,0,"p",491,-18,"d",6,0,"e" "p",0,26,"d",13 ,0,"d",0,-546,"p",0,28,"d",15,0,"d",0,-568,"p",13 ,16,"c",-3,-8,2*/3,"d",0,-6,"d",-3,-3,"d",-2,-2,"d",0,-32 ,"p",15,16,"c",4,-4,-/2,"d",10 ,0,"d",0,16,"d",4,0,"p",19,10 ,"d",12 ,0,"d",0,16,"d",2,0 "p",19,10 ,"c",-2,-4,-/4,"d",0,-3,"d",3,-3,"d",2,-2,"d",0,-33!,"d",-16,0 Z"p",5,-18,"d",8,0,"p",15,-18,"d",6,0,"e" "x" "p",0,0,"d",34",-34","d",16,0,"p",0,3,"d",35#,-35#,"d",15,0,"p",12 ,-20,"d",0,-16,"d",76L,0,"d",0,16,"p",43+,-30,"d",0,2,"d",-1,1,"d",6,0,"p",60<,-36$,"d",0,8,"d",1,1,"d",-6,0,"p",44,,-26,"d",0,524,"d",-1,1,"d",16,0,"d",-1,-1,"d",0,-524,"p",44,,0,"d",14,0,"p",12 ,-24,"d",12 ,0,"p",27,-24,"d",16,0,"p",58:,-24,"d",28,0,"e" @"p",502,-32 ,"d",0,45-,"p",480,-32 ,"d",0,45-,"p",42*,-28,"d",1,1,"d",0,480,"d",-2,1,"d",16,0,"d",-2,-1,"d",0,-480,"d",1,-1,"e" h/"p",0,26,"d",16,0,"d",0,-58:,"p",0,28,"d",18,0,"d",0,-60<,"p",10 ,17,"d",1,-1,"d",0,-524,"d",-2,-2,"d",18,0,"d",-2,2,"d",0,524,"d",1,1,"e" |"p",0,0,"d",34",-34","d",9 ,0,"p",0,3,"d",35#,-35#,"d",8,0 ~#"p",38&,-36$,"d",2,0,"d",0,-2,"d",14,0,"d",0,10 ,"d",-2,1,"d",-3,1,"d",0,2,"d",2,0,"d",2,2,"d",0,38&,"d",-2,3,"d",0,8,"d",1,1 "p",38&,-30,"d",2,0,"d",0,2,"d",2,1,"d",3,1,"d",0,2,"d",-3,0,"d",-2,2,"d",0,38&,"d",2,3,"d",0,8,"d",-1,1 W"p",45-,14,"d",0,546,"p",47/,14,"d",0,546 "p",39',32 ,"d",1,1,"d",0,42*,"d",-2,1,"d",16,0,"d",-2,-1,"d",0,-42*,"d",1,-1 W"p",38&,-35#,"d",3,0,"p",38&,-31,"d",3,0 ."p",42*,20,"d",0,10 ,"p",43+,20,"d",0,10 ,"p",44,,20,"d",0,10 ,"p",480,20,"d",0,10 ,"p",491,20,"d",0,10 ,"p",502,20,"d",0,10 ,"p",513,20,"d",0,10 +"p",40(,6,"d",12 ,0 "e" "x" "p",20,15,"d",-1,6,"d",4,-6,"d",3,6,"d",3,-6,"d",3,6,"d",3,-6,"d",2,6,"d",1,-6,"d",3,6,"d",1,-6 "e" "x" DY"p",0,26,"d",64@,0,"p",0,28,"d",64@,0,"e" l"p",0,26,"d",6,0,"d",26,-26,"p",0,28,"d",7,0,"d",25,-25,"e" Y"p",0,26,"d",40(,0,"p",0,28,"d",40(,0,"e" ["p",0,0,"d",34",-34","p",0,3,"d",35#,-35#,"e" proutine to draw arcs zx,y,z x,y,z  jroutine to draw lines tx,y ~x,y  droutine to move +x,+y n z:x=u+z x z:y=v+z x,y  Ndata for 13 equations X" Zn+2HCl ZnCl+H" b""3Cu+8HNO 3Cu(NO)+2NO+4HO" l!"Cu+4HNO Cu(NO)+2HO+2NO" v " CaCO+2HCl CaCl+HO+CO" " NaCl+HSO NaHSO+HCl" !" HCONa+HSO NaHSO+HO+CO"  " Cu+2HSO CuSO+2HO+SO"  " MnO+4HCl MnCl+2HO+Cl" !" NHCl+NaNO NaCl+2HO+NO"  " NHCl+NaNO NaCl+2HO+N" " 2HO 2HO+O"  " NHCl+NaOH NaCl+HO+NH" " CaC+2HO Ca(OH)+CH" Ldraw routine for connector 4 Su=111o:v=89Y V 5800 [1;117u,106j \1;-2,0:1;0,-16:1;-4,0:1;117u,108l:1;-4,0:1;0,-16:1;-1,0 ` 8080 j @main drawing routine Ji=apparatus type Tj=type option ^x,y=start (top left) huse l(i,j)as data line rall points relative |l(i,j)  1;x,y e$  e$="x" e$="c"6000p e$="d"6250j e$="p"6500d  e$="e"  8080 !46routine to display correct pieces of users apparatus !> !H)1,5;"CORRECTLY IDENTIFIED" !Ri=16 !W c$(choice,ii)="9"8560p! !\ i+3,2;q$(i); !f1t$(ii)=c$(choice,ii)i+3,0;">"; !pi !u418,0;" The '>' shows correct element" !zV20,0;"Press a key to see your correct picture elements (no connectors)" !=""8580! ! !i=16 !o(i)=0 !7t$(ii)c$(choice,ii)c$(choice,ii)="9"8700! !?choice=12 i=4t$(55)="1"8700! ! j=t$(ii) ! u=a(i,j) ! v=d(i,j) ! 8000@ !choice12 o(i)=1 !i "P20,0;"Press a key for a full and correct apparatus picture"; "=""8720" " #(general input routine #2range 0-text else range #<p$ prompt returns z$ #Flen-max input length #Pz$="":gron=0 #Z20,0;s$ #d21,0;s$ #n1;20,0;p$ #xlen=0 #=""9090# #x$= #&x$=13 Ʊz$>09230$ #Kx$=151;21,24;"GRAPHICS";:.05|L,480 #5x$=15gron=1gron=0:9090# #5x$=15gron=0gron=1:9090# #"gron=1x$=(x$+47/) #mx$=12 Ʊz$>0z$=z$(̱z$-1):.05|L,-12 :21,10 +z$;" ";:9210# #range=09180# #@x$<491ůx$>480+range.05|L,0:9090# #021,10 +z$;x$;:.05|L,480 # z$=z$+x$ #z$len9230$ # 100d $ 9090# $ 502 $.20,0;s$;:21,0;s$; $" %13 sets of labels here %!"x","Zn+HCl","x","x","HO","H" %&""x","Cu+HNO","x","x","HO","NO" %0"x","HNO","x","x","NO","x" %:#"x","CaCO+HCl","x","x","CO","x" %D("x","NaCl+HSO","HSO","x","HCl","x" %N+"HSO","HCONa+HSO","x","x","HO","CO" %X&"x","Cu+HSO","HSO","x","SO","x" %b("x","MnO+HCl","HO","HSO","Cl","x" %l'"x","NHCl+NaNO","x","x","HO","NO" %v&"x","NHCl+NaNO","x","x","HO","N" %$"x","HO+MnO","x","x","HO","O" %&"x","NHCl+NaOH","x","x","CaO","NH" %1"HO","CaC+HO","CuSO+HSO","x","HO","CH" %E1:7::10 ,7;1;"CHEMICAL APPARATUS" %2:150 %2:7:7::1,0;0;"In this program you are asked toselect the component pieces of apparatus for the most common laboratory preparation of gases." &6,0;2;"For each piece you will be required to select from up to three components. These will bedisplayed on the screen and you will then be asked to make your choice." & 13 ,0;1;"When all your selections have been made, the computer will identify your correct ones and then draw them. It will then draw the complete commonest apparatus." &+21,10 ;1;"PRESS A KEY" &i=130:i & x$=:x$=""9760 & &*7::1,0;1;"When the completed diagram is onthe screen, you will be invited to add the labels. A dash (-) is displayed for each letter." &4}6,0;2;"Finally you will be required to complete the correct equation for the preparation of the gas." &>x10 ,0;0;"If you have trouble with the labels or equation, the computerwill help if you press ?." &H14,0;1;"You will need subscript letters for formulae. These are provided on the graphics keys and a graphics menu is displayedwhen it is required." &R321,5;1;"PRESS A KEY TO START" &Wi=130:i &\x$=:x$=""9820\& &f ' 0 'Tstkend=23653e\+256*23654f\:"app"23552\,stkend-23500[: tken۬9999' app Q\ \Q4