|
Автоматизированное рабочее место оператора автоматизированного переговорного пункта и информационной системы| |s ^appstat("CMD")="WAC"_%hl | | |q | | | | | | ; | | |-----------------------------------------------------------| |caboff(%| | |numcab) | | | |n %hl,%kk | | |s %hl="1" i %numcab>16 s %hl="2" | | |i ^appstat("STATUS")="A" g caboff6 | | |s %cmd="O"_%numcab | |caboff1 | | | |i ^appstat("CMD")'="R" g caboff1 | | |s ^appstat("CMD")="WRQ"_%hl | | |i ^appstat("CMD")="WEN"_%hl g caboff3 | | |i ^appstat("CMD")="R" g caboff1 | |caboff3 | | | |s ^appstat("CMD","COM")=%cmd | | |s ^appstat("CMD")="WAC"_%hl | |caboff4 | | | |r *%kk:0.1 i %kk'=-1 g caboff5 | |caboff6 | | | |i | | |(^appcab(%numcab).1'=0)&(^appcab(%numcab).1'=2)&(^appcab(%n| | |umcab).1'=1) g caboff4 | |caboff5 | | | |q | | | ; | | |-----------------------------------------------------------| |TICKETS(| | |%cab) | | | |n %forma,%res,%sel,%sid,%id | | |i $g(%cab)="" s %cab=0 | | |s %forma("CABNUM")=$g(^appstat("CABLIST",%cab)) | | |d drscr^uf58("iap!TICKET") | | |i $$get^uf58("iap!TICKET","%forma")="ESC" q %cab | | |s %cab=$$phys(%forma("CABNUM")) | | |s %id="" f d s %id=$o(^appticket(%cab,%id)) s:%id'="" | | |%sel(%id)=%id q:%id="" | | |i (^appcab(%cab).2=2) q %cab ; ПЕЧАТЬ КВИТАНЦИЙ ПО РУЧНОЙ | | |КАБИНЕ | |tickets1| | | |s | | |%res=$$SELECT^dp58Sel("^appticket(%cab,%id)","%id","%sel(%s| | |id)","%sid",10,12,61,9,"",0,"SINGLE","Квитанции по кабине N| | |"_%cab_$c(30)_"ПРОД. КОД ГОРОД РЕГИОН | | |ТЕЛЕФОН СУММА "_$c(30)_"-ОТМЕТКА | | |-ПЕЧАТЬ","DrawTicket^iap","KEYF4") | | |i $p(%res,$c(30),2)="KEYESC" q %cab | | |i $p(%res,$c(30),2)="KEYF4" d TICKPRINT q %cab | | |g tickets1 | | | | |DrawTick| | |et | | | |i %dpINDEX="DRAWFREE" w $j("",%dpSX) q | | |w $j($p(^appticket(%cab,%id),$c(30),3),5)_" " | | |w $j($p(^appticket(%cab,%id),$c(30),4),3)_" " | | |w $j($p(^appticket(%cab,%id),$c(30),5),12)_" " | | |w $j($p(^appticket(%cab,%id),$c(30),8),14)_" " | | |w $j($p(^appticket(%cab,%id),$c(30),6),10)_" " | | |w $zzc($p(^appticket(%cab,%id),$c(30),7),12,2) | | |q | | | | |OutTCCN(| | |) | | | |n %res,%cab | | |s %cab=$$phys($p(%ufNEWDATA,$c(30),1)) | | |i $p(%ufNEWDATA,$c(30),2)="KEYESC" q %ufNEWDATA | | |i $g(^appcab(%cab))="" s %res="Неверный номер кабины !" g | | |TCCN1 | | |i ^appcab(%cab).1=-1 s %res="Кабина на ремонте !" g TCCN1 | | |i ^appcab(%cab).1=1 s %res="Кабина занята !" g TCCN1 | | |i $d(^appticket(%cab))=0 s %res="Нет квитанции !" g TCCN1 | | |i ^appcab(%cab).1=2 s %res="В кабине остаток !" g TCCN1 | | |q %ufNEWDATA | |TCCN1 | | | |s %res=$$^dp58msg(3,35,%res,0) | | |d drscr^uf58("iap!TICKET") | | |d redraw^uf58("iap!TICKET","%forma") | | |q "PROBLEM" | | | | | ; | | |--------| | |--------| | |--------| | |--------| | |--------| | |--------| | |--------| | |--- | | |TICKPRIN| | |T | | | |n %KVIT,%sid | | |s %sid=$o(%sel("")) i %sid="" q | |tickprn1| | | |i $g(%sel(%sid))=0 g tickprn3 | | |s | | |%KVIT(%sid)= | |tickprn3| | | |s %sid=$o(%sel(%sid)) i %sid'="" g tickprn1 | | |d PrintKvit^AppSysd | | |q | | | ; | | |-----------------------------------------------------------| |HISTORY(|;IAKoff;10:34 PM 26 Aug 1995; | |%cab) | | | |n %ll,%ee,%id | | |i $g(%cab)="" s %cab=0 | | |s %forma("CABNUM")=$g(^appstat("CABLIST",%cab)) | | |d drscr^uf58("iap!HISTORY") | | |i $$get^uf58("iap!HISTORY","%forma")="ESC" q %cab | | |s %cab=$$phys(%forma("CABNUM")) | | |s %ee="C"_%cab | | |i $d(^appjrn(%ee))=0 g ihlp1 | | |s %ll="^appjrn(%ee,%id)" s %id="" s | | |%id=$o(^appjrn(%ee,%id),-1) | | |s %rr=$$LIST^dp58Sel(%ll,"%id",1,10,76,12,"",0,"DOUBLE"," | | |Журнал ","DrawHist^iap") | |ihlp1 | | | |q %cab | | | | |OutHSCN(| | |) | | | |n %res,%cab | | |s %cab=$$phys($p(%ufNEWDATA,$c(30),1)) | | |i $p(%ufNEWDATA,$c(30),2)="KEYESC" q %ufNEWDATA | | |i $g(^appcab(%cab))="" s %res="Неверный номер кабины !" g | | |HSCN1 | | |i ^appcab(%cab).1=-1 s %res="Кабина на ремонте !" g HSCN1 | | |q %ufNEWDATA | |HSCN1 | | | |s %res=$$^dp58msg(3,35,%res,0) | | |d drscr^uf58("iap!HISTORY") | | |d redraw^uf58("iap!HISTORY","%forma") | | |q "PROBLEM" | | | | |DrawHist| | | |n %rrr,%time,%date | | |i %dpINDEX="DRAWFREE" w $j("",%dpSX) q | | |s %rrr=^appjrn(%ee,%id,"MSG") | | |s %time=$j($p(^appjrn(%ee,%id,"TIME"),$c(30),1),8) | | |s %date=$j($p(^appjrn(%ee,%id,"TIME"),$c(30),2),5) | | |i $p(%rrr," ",1)="ON" g drwh1 | | |i $p(%rrr," ",1)="OFF" g drwh2 | | |i $p(%rrr," ",1)="BBB" g drwh3 | | |i $p(%rrr," ",1)="EEE" g drwh4 | | |i $p(%rrr," ",1)="AAA" g drwh5 | | |w $zzr(%rrr,61)_%time_" "_%date_" " q | |drwh1 | | | |w $zzr("Вкл. "_$p(%rrr," ",2),61)_%time_" "_%date_" " q | |drwh2 | | | |w $zzr("Выкл. "_$p(%rrr," ",2),61)_%time_" "_%date_" " q | |drwh3 | | | |w $zzr("Нач. разг. тариф:"_$p(%rrr," ",4)_" тел:"_$p(%rrr,"| | |",6),61)_%time_" "_%date_" " q | |drwh4 | | | |w $zzr("Кон. разг. время:"_$p(%rrr," ",3)_" | | |сумма:"_$p(%rrr," ",5),61)_%time_" "_%date_" " | | |q | |drwh5 | | | |w $zzr("Авар. зав. время:"_$p(%rrr," ",3)_" | | |сумма:"_$p(%rrr," ",5),61)_%time_" "_%date_" " | | |q | | | | | | ; | | |-----------------------------------------------------------| |ERROR | | | |s $ztrap=%OLDTRAPER | | |s ^appstat(1)="F" | | |g @$ztrap | ПРИЛОЖЕНИЕ 3 ТЕКСТ ПРОГРАММЫ МОНИТОРА АПП-РК |iapbckg | | |iapbckg(%|;IAKoff;03:44 PM 6 Mar 1996 | |an) | | | |n | | |%cc,%free,%zone,%cmd,%i,%summ,%tsec,%tmin,%min,%hour,%sec| | |,%cod,%idev | | |n %cabspis,%to,%hl,%SHARE,%noper,%nsmen | | |s %SHARE=$$SHARE^AppSyst() | | |s $zp=$c(30) s $ztrap="errhndr^iapbckgsub" | | |s ^appstat("CMD")="WAIT" | | |s ^appstat("STATUS")="INIT" | | |o %an u | | |%an:(ixxlate=0:speed=2400:parity="none":stopbits=1) | | |d addjrn^iapbckgsub("APPRK","Запуск Апп монитор","") | | |w "E*" | | |k ^appzxcab | | |k ^appcab | | |f %i=1:1:32 d | | |. s | | |^appcab(%i)="-1"_$zp_"0"_$zp_"00.00"_$zp_"00.00"_$zp_""_$| | |zp | | |. s | | |^appcab(%i)=^appcab(%i)_"00.00"_$zp_""_$zp_"0"_$zp_"0"_$z| | |p | | |. s | | |^appcab(%i)=^appcab(%i)_"0"_$zp_"0"_$zp_"0"_$zp_"00.00"_$| | |zp | | |. s ^appcab(%i)=^appcab(%i)_"-1"_$zp_"0" | | |. w "O"_%i_"*" | | |. f %zone=0:1:20 s ^appcab(%i,%zone)="0"_$zp_"0" | | |. f %zone=128:1:148 s ^appcab(%i,%zone)="0"_$zp_"0" | | | | | |s %ws=0 | |freecab |; получить список кабин | | |s %ws=%ws+1 | | |i %ws=20 g thlt | | |s ^appstat("STATUS")="CAB OFF" | | |w "I*" | | |s ^appstat("STATUS")="LIST" | | |w "S*" | | |s %free=$$gres^iapbckgsub() i %free="HALT" g thlt | | |i %free="TIME" g thlt | | |s %i=1 | |ncab | | | |s %cmd=$p(%free," ",%i+1) | | |s %cc=$e(%cmd,1,2)+0 | | |s %cod=$e(%cmd,3,3) | | |i %cmd="" g lastcab | | |i (%cc>32)!(%cc50 g timeout | | |g mainloop | | | | |talkbeg | | | |s ^appstat("STATUS")="TB" | | |s %cc=$j($p(%free," ",2),1,0) | | |i (%cc>32)!(%cc32)!(%cc$p(^appcab(%cc),$zp,4) g| | |aie1 | | |s %summ=$zzoo($p(^appcab(%cc),$zp,6)*%tmin) | |aie1 | | | |s ^appcab(%cc).4=$p(^appcab(%cc),$zp,4)-%summ | | |s ^appcab(%cc).8=^appcab(%cc).8+1 | | |s ^appcab(%cc).9=^appcab(%cc).9+1 | | |s ^appcab(%cc).10=^appcab(%cc).10+%summ | | |s ^appcab(%cc).11=%summ | | |s ^appcab(%cc).12=^appcab(%cc).12+%summ | | |s ^appcab(%cc).13=$j(%min,2)_"."_$j(%sec,2) | | |s ^appcab(%cc).1=2 | | |i ^appcab(%cc).4=0 s ^appcab(%cc).1=0 | | |d addjrn^iapbckgsub("C"_%cc,"AAA "_%cc_" | | |"_$p(^appcab(%cc),$zp,13)_" "_%summ_" | | |"_$p(^appcab(%cc),$zp,4)_" UNKNOWN") | | |d AFTERTE | | |s ^appcab(%cc).14=-1 | |ie3 | | | |s %i=%i+1 | | |g ie1 | |ie2 | | | |s ^appstat("STATUS")="A" | | |g thlt1 | | | ; ------------------------------------ | |timeout | | | |d addjrn^iapbckgsub("APPRK","Монитор | | |остановлен.","Timeout") | | |s ^appstat("STATUS")="H" | | | ; ------------------------------------ | |thlt | | | |d addjrn^iapbckgsub("APPRK","Монитор остановлен.","") | | |s ^appstat("STATUS")="H" | |thlt1 | | | |c %an | | |k | | |%cc,%free,%zone,%cmd,%i,%summ,%tsec,%tmin,%min,%hour,%sec| | |,%cod,%idev | | |q | | | ; ---------------------------------- КОНЕЦ | |AFTERTE | | | |s %tsec=$p(^appcab(%cc),$c(30),14) | | |s %tmin=%tsec\60 ;---системное время в | | |минутах | | |s %sec=$tr($j(%tsec#60,2)," ",0) ;---кол-во секунд | | |s %min=$e(%tmin#60+100,2,3) ;---кол-во минут | | |s %hour=%tmin\60+23#24+1 ;---кол-во часов | | |s %hour=$tr($j(%hour,2)," ",0) | | |; заполнение журнала ====================================| | |i %zone=0 s | | |^appcab(%cc).5=$p(^appcab(%cc),$zp,7)_$p(^appcab(%cc),$zp| | |,5) s ^appcab(%cc).7="ГОР" | | |i %zone>127 s | | |^appcab(%cc).7=$e($p(^appcab(%cc),$zp,7),3,3)_$e($p(^appc| | |ab(%cc),$zp,5),1,2) s | | |^appcab(%cc).5=$e($p(^appcab(%cc),$zp,5),3,11) | | |; заполнение квитанций ==================================| | |s | | |^appticket(%cc,$o(^appticket(%cc,""),-1)+1)=$zd_$zp_%hour| | |_":"_%min_$zp_"0"_$zp_"КОД"_$zp_"ГОРОД"_$zp_"ТЕЛЕФОН"_$zp| | |_"0000.00" | | |s | | |^appticket(%cc,$o(^appticket(%cc,""),-1)).3=^appcab(%cc).| | |13 | | |s | | |^appticket(%cc,$o(^appticket(%cc,""),-1)).4=^appcab(%cc).| | |7 | | |s %cmd="" | | |s %cod=$p(^appcab(%cc),$c(30),7) | | |i %zone>127 g COUNTRY | | |s %i=$e($p(^appcab(%cc),$c(30),5),1,3) | | |i $e(%cod,1,1)="2" s %i=$e(%cod,2,3) s | | |%cod=^AppSys58("KOD_OBLS") | | |i $d(^app8DCAC(%cod))>0 s | | |%cmd=$p(^app8DCAC(%cod),$c(30),2) | | |s | | |^appticket(%cc,$o(^appticket(%cc,""),-1)).8=$e(%cmd,1,14)| | |i $d(^app8DCAC(%cod,$e(%i,1,2)))>0 d | | |. s %cmd=^app8DCAC(%cod,$e(%i,1,2)) | | |s | | |^appticket(%cc,$o(^appticket(%cc,""),-1)).5=$e(%cmd,1,12)| | |g cntick | |COUNTRY | | | |s %i=%cod_$p(^appcab(%cc),$c(30),5) | | |s %cmd="" | |cntry1 | | | |i %i="" g cntry2 | | |i $g(^appDCAC(%i))="" s %i=$e(%i,1,$l(%i)-1) g cntry1 | | |s %cmd=$g(^appDCAC(%i)) | |cntry2 | | | |s | | |^appticket(%cc,$o(^appticket(%cc,""),-1)).5=$e($p(%cmd,$c| | |(30),2),1,12) | | |s | | |^appticket(%cc,$o(^appticket(%cc,""),-1)).8=$e($p(%cmd,$c| | |(30),1),1,14) | |cntick | | | |s | | |^appticket(%cc,$o(^appticket(%cc,""),-1)).6=^appcab(%cc).| | |5 | | |s | | |^appticket(%cc,$o(^appticket(%cc,""),-1)).7=^appcab(%cc).| | |11 | | |; заполнение реестра | | |======================================= | | |s %gs=^appstat(1,"NOM_GOES") s %ms=^appstat(1,"NOM_MESS")| | |s %dn=^appstat(1,"NOM_DENN") | | |d inreestr^iapbckgsub(%summ,%zone) | | |s %noper=^appstat(1,"NOM_OPER") | | |s %nsmen=^appstat(1,"NOM_SMEN") | | |i $d(^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"ACAB",%cc))=0 | | |s | | |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"ACAB",%cc).1=%summ_| | |$zp_1 g after1 | | |s | | |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"ACAB",%cc).1=$p(^Re| | |estrApp(%gs,%ms,%dn,%noper,%nsmen,"ACAB",%cc),$zp,1)+%sum| | |m | | |s | | |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"ACAB",%cc).2=$p(^Re| | |estrApp(%gs,%ms,%dn,%noper,%nsmen,"ACAB",%cc),$zp,2)+1 | |after1 | | | |i | | |$d(^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"AZONE",%zone))=0| | |s | | |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"AZONE",%zone).1=%su| | |mm_$zp_1 g after2 | | |s | | |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"AZONE",%zone).1=$p(| | |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"AZONE",%zone),$zp,1| | |)+%summ | | |s | | |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"AZONE",%zone).2=$p(| | |^ReestrApp(%gs,%ms,%dn,%noper,%nsmen,"AZONE",%zone),$zp,2| | |)+1 | |after2 | | | |q | | | | | |; IAKoff Save, %n, 05/06/96 | |iapbckgsu| | |b | | |iapbckgsu|;IAKoff;09:47 PM 28 Feb 1996 | |b | | | |q | |instat(%s| | |) | | | |n %res | | |i $l(%s)>3 s %res="?" g ins1 | | |i ($l(%s)0 q %ufNEWDATA | | |s | | |%res=$$LIST^dp58Sel("^appACDC(%id)","%id",20,13,40,8,"",0| | |,"SINGLE","","DrawCOUNTRY^iaphand") | | |i $p(%res,$c(30),2)="KEYESC" q "PROBLEM" | | |q %id_$c(30)_"KEYENTER" | | | | |DrawCOUNT| | |RY | | | |i %dpINDEX="DRAWFREE" w $j("",%dpSX) q | | |w $j(%id,%dpSX) q | | | | |OutSHTAT(| | |) | | | |i $p(%ufNEWDATA,$c(30),2)="KEYESC" q | | |$p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP" | | |i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM" | | |n %id,%id1,%res | | |s %id=$p(%ufNEWDATA,$c(30),1) | | |s %id1=%f("COUNTRY") i %id1="СНГ" g OutSHT1 | | |i %id="" g OutSHT0 | | |i $d(^appACDC(%id1,%id))>0 q %ufNEWDATA | |OutSHT0 | | | |s | | |%res=$$LIST^dp58Sel("^appACDC(%id1,%id)","%id",20,13,40,8| | |,"",0,"SINGLE","","DrawCOUNTRY^iaphand") | | |g OutSHT2 | |OutSHT1 | | | |i %id="" g OutSHT3 | | |i $d(^app8ACDC(%id))>0 q %ufNEWDATA | |OutSHT3 | | | |s | | |%res=$$LIST^dp58Sel("^app8ACDC(%id)","%id",20,13,40,8,"",| | |0,"SINGLE","","DrawCOUNTRY^iaphand") | |OutSHT2 | | | |i $p(%res,$c(30),2)="KEYESC" q "PROBLEM" | | |q %id_$c(30)_"KEYENTER" | | | | | | | |InREGION(| | |) | | | |s %f("REGION")="" | | |i %f("COUNTRY")'="СНГ" q "FIELDOFF" | | |q %ufOLDDATA | | | | |OutREGION| | |() | | | |i $p(%ufNEWDATA,$c(30),2)="KEYESC" q | | |$p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP" | | |i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM" | | |n %id1,%id,%res | | |s %id1=%f("SHTAT") | | |s %id=$p(%ufNEWDATA,$c(30),1) | | |i %id="" q %ufNEWDATA | | |i $d(^app8ACDC(%id1,%id))>0 q %ufNEWDATA | | |s | | |%res=$$LIST^dp58Sel("^app8ACDC(%id1,%id)","%id",20,13,40,| | |8,"",0,"SINGLE","","DrawCOUNTRY^iaphand") | | |i $p(%res,$c(30),2)="KEYESC" q "PROBLEM" | | |q %id_$c(30)_"KEYENTER" | | | | |OutTARGET| | |() | | | |i $p(%ufNEWDATA,$c(30),2)="KEYESC" q | | |$p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP" | | |i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM" | | |q %ufNEWDATA | | | | |InCODE() | | | |i %f("COUNTRY")'="СНГ" q | | |^appACDC(%f("COUNTRY"),%f("SHTAT")) | | |i | | |(^app8ACDC(%f("SHTAT"))=^AppSys58("KOD_OBLS"))&(%f("REGIO| | |N")="") q 2 | | |i %f("REGION")="" q ^app8ACDC(%f("SHTAT")) | | |i ^app8ACDC(%f("SHTAT"))=^AppSys58("KOD_OBLS") q | | |2_^app8ACDC(%f("SHTAT"),%f("REGION")) | | |q | | |^app8ACDC(%f("SHTAT"))_^app8ACDC(%f("SHTAT"),%f("REGION")| | |) | | | | |OutCODE()| | | |i $p(%ufNEWDATA,$c(30),2)="KEYESC" q | | |$p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP" | | |i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM" | | |i $l($p(%ufNEWDATA,$c(30),1))255 q "PROBLEM" | |outime2 | | | |s %addtime=0 | | |s %addtime=$p(^SpravUsl(61+%notify),%,4) | | |i %f("CALL")'="" s | | |%addtime=%addtime+$p(^SpravUsl(61+%notify,31),%,4) | | |i %notify g outime1 | | |i %f("PH1")="" s | | |%addtime=%addtime+$p(^SpravUsl(61,32),%,4) g outime1 | | |i %f("PH5")'="" s | | |%addtime=%addtime+$p(^SpravUsl(61,35),%,4) g outime1 | | |i %f("PH4")'="" s | | |%addtime=%addtime+$p(^SpravUsl(61,34),%,4) g outime1 | | |i %f("PH3")'="" s | | |%addtime=%addtime+$p(^SpravUsl(61,33),%,4) g outime1 | |outime1 | | | |w /color(7,0),/c(38,10),$j(%addtime,3) | | |q %ufNEWDATA | | | | |OutFAST()| | | |i $p(%ufNEWDATA,$c(30),2)="KEYESC" q | | |$p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP" | | |i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM" | | |q %ufNEWDATA | | | | |InTOTAL()| | | |n %summ | | |s | | |%tarif=%tarif1*$p(^SpravUsl(61+%notify,10+%f("FAST")),%,4| | |) | | |s %summ=%tarif*(%f("TIME")+%addtime) | | |w /c(57,5),/color(7,0),$zzc(%tarif,13) | | |q $zzoo(%summ) | | | | |OutTOTAL(| | |) | | | |i $p(%ufNEWDATA,$c(30),2)="KEYESC" q | | |$p(%ufNEWDATA,$c(30),1)_$c(30)_"KEYUP" | | |i $p(%ufNEWDATA,$c(30),2)'="KEYENTER" q "PROBLEM" | | |q %ufNEWDATA | | | | |AskPrint(| | |) | | | |n %Ret | |askdel | | | |s %Ret=$$^dp58dlg(20,42,23,77,"ПОДТВЕРДИТЕ ПЕЧАТЬ"," | | |Печатать "_%_" Не печатать ","",2,"7,0,7,0,0,7,7,0") | | |w /color(0,8) | | |d ^dp58box(20,42,23,77,0," ") | | |i $p(%Ret,%,2)="KEYENTER" q (2-%Ret) | | |i $p(%Ret,%,2)="KEYESC" q 0 | | |g askdel | | | | |
|
