7m…ôcU\cdÝ@PROC drug:GLOBAL choice%,drug%,dose,eq,name$(17),maxd,drugeqAT 10,5 :PRINT "Convert:"AT 20,5 :PRINT "1. Chlorpromazine to other drug"AT 20,6 :PRINT "2. Other drug to Chlorpromazine"AT 20,7 :PRINT "3. Oral Chlorpromazine to depot antipsychotic"AT 20,8 :PRINT "4. Depot antipsychotic to Chlorpromazine"AT 20,11 :PRINT "(Q)uit"choice%=GETIF choice%=%1 drugeq:ELSEIF choice%=%2 cpzeq:ELSEIF choice%=%3 depoteq:ELSEIF choice%=%4 cpzdepeq:ELSEIF choice%=%q OR choice%=%Q STOPENDIFENDPPROC drugeq:CLSDO dINIT dTEXT "","Enter the Dose",2 dTEXT "","of Chlorpromazine (mg):",$202 dFLOAT dose,"Dose: ",0,2400 dTEXT "","Choose the drug",2 dTEXT "","You wish to prescribe :",$202 dCHOICE drug%,"Drug: ","Clozapine,Haloperidol,Risperidone,Sulpiride,Thioridazine,Trifluoperazine,Fluphenazine,Zuclopenthixol,Droperidol,Flupenthixol" IF DIALOG=0 BREAK ENDIFIF drug%=1  eq=0.5 maxd=900 name$="Clozapine"ELSEIF drug%=2 eq=0.03 maxd=120 name$="Haloperidol"ELSEIF drug%=3 eq=0.005 maxd=16 name$="Risperidone"ELSEIF drug%=4 eq=2 maxd=2400 name$="Sulpiride"ELSEIF drug%=5 eq=1 maxd=800 name$="Thioridazine"ELSEIF drug%=6 eq=0.05 maxd=50 name$="Trifluoperazine"ELSEIF drug%=7 eq=0.02 maxd=20 name$="Fluphenazine"ELSEIF drug%=8 eq=0.25 maxd=150 name$="Zuclopenthixol"ELSEIF drug%=9 eq=0.04 maxd=120 name$="Droperidol"ELSEIF drug%=10 eq=0.03 maxd=18 name$="Flupenthixol"ENDIFdrugeq=eq*doseIF drugeq<=maxd AT 7,8 :PRINT "The equivalent dose of",name$,"is",drugeq, "mg"ELSEIF drugeq>maxd AT 7,8: PRINT "The equivalent dose of",name$,"is",drugeq, "mg" AT 7,10: PRINT "That exceeds the maximum dose of",name$ AT 7,11: PRINT "which is",maxd,"mg per day"ENDIFGETCLSdINIT "Again ?"dBUTTONS "No",%n,"Yes",%yUNTIL DIALOG<>%ydrug:ENDPPROC cpzeq:DOCLS dINIT dTEXT "","Choose the drug",2 dTEXT "","you wish to convert: ",$202 dCHOICE drug%,"Drug: ","Clozapine,Haloperidol,Risperidone,Sulpiride,Thioridazine,Trifluoperazine,Fluphenazine,Zuclopenthixol,Droperidol,Flupenthixol" dFLOAT dose,"Dose(mg): ",0,2400 IF DIALOG=0 BREAK ENDIF IF drug%=1 eq=2 ELSEIF drug%=2 eq=33.3 ELSEIF drug%=3 eq=200 ELSEIF drug%=4 eq=0.5 ELSEIF drug%=5 eq=1 ELSEIF drug%=6 eq=20 ELSEIF drug%=7 eq=50 ELSEIF drug%=8 eq=4 ELSEIF drug%=9 eq=25 ELSEIF drug%=10 eq=33.3 ELSE cpzeq: ENDIFdrugeq=eq*doseCLSAT 7,8 :PRINT "The equivalent dose of Chlorpromazine is",drugeq,"mg"GETCLSdINIT "Again ?"dBUTTONS "No",%N,"Yes",%YUNTIL DIALOG<>%ydrug:ENDPPROC depoteq:CLSDO dINIT dTEXT "","Enter the Dose",2 dTEXT "","of Chlorpromazine per day (mg):",$202 dFLOAT dose,"Dose: ",0,2400 dTEXT "","Choose the depot",2 dTEXT "","You wish to prescribe: ",$202 dCHOICE drug%,"Drug: ","Fluphenazine,Pipothiazine,Flupenthixol,Zuclopenthixol,Haloperidol" IF DIALOG=0 BREAK ENDIFIF drug%=1  eq=0.05 maxd=50 name$="Fluphenazine"ELSEIF drug%=2 eq=0.1 maxd=50 name$="Pipothiazine"ELSEIF drug%=3 eq=0.1 maxd=400 name$="Flupenthixol"ELSEIF drug%=4 eq=1 maxd=600 name$="Zuclopenthixol"ELSEIF drug%=5 eq=0.15 maxd=75 name$="Haloperidol"ENDIFdrugeq=eq*doseIF drugeq<=maxd AT 7,8 :PRINT "The equivalent dose of",name$,"is",drugeq, "mg per week"ELSEIF drugeq>maxd AT 7,8: PRINT "The equivalent dose of",name$,"is",drugeq, "mg per week" AT 7,10: PRINT "That exceeds the maximum dose of",name$ AT 7,11: PRINT "which is",maxd,"mg per week"ENDIFGETCLSdINIT "Again ?"dBUTTONS "No",%N,"Yes",%YUNTIL DIALOG<>%ydrug:ENDPPROC cpzdepeq:DOCLS dINIT dTEXT "","Choose the depot you wish",2 dTEXT "","to convert to Chlorpromazine:",$202 dCHOICE drug%,"Drug: ","Fluphenazine,Pipothiazine,Flupenthixol,Zuclopenthixol,Haloperidol" dTEXT "","Enter the dose PER WEEK (mg):",$202 dFLOAT dose,"Dose: ",0,600 IF DIALOG=0 BREAK ENDIF IF drug%=1 eq=20 ELSEIF drug%=2 eq=10 ELSEIF drug%=3 eq=10 ELSEIF drug%=4 eq=1 ELSEIF drug%=5 eq=6.667 ELSE cpzdepeq: ENDIFdrugeq=eq*doseCLSAT 7,8 :PRINT "The equivalent dose of oral Chlorpromazine is",drugeq,"mg per day"GETCLSdINIT "Again ?"dBUTTONS "No",%N,"Yes",%YUNTIL DIALOG<>%ydrug:ENDPÐР   \c]efd\ceefdý‚.ÆA…*TextEd.app…m‰ô