home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 1B / DATAFILE_PDCD1B.iso / _pocketbk / pocketbook / 001 / killap_zip / KILLAPPS.OPL < prev    next >
Text File  |  1992-04-30  |  3KB  |  191 lines
  1.  
  2. REM ---- S3kill.opo needed to run this program
  3. REM ---- S3kill is found in the Psion Library 
  4. REM ---- on Compuserve.
  5. REM ---- Mark Esposito - 1992 Pelican Software
  6.  
  7. PROC killapps:
  8. local g%,serr%,aerr%,derr%,werr%,wlderr%,cerr%,d%,err%,fl%
  9. local agenda%,data%,word%,world%,calc%,sav$(27),spy%,spread%,chess%,prog%
  10. giprint"Pelican Software"
  11. gfont 2 :gstyle 8
  12. gat 150,48
  13. gprint"APP KILLER!"
  14. sav$="Does not save changes!"
  15. loader:("s3kill")
  16. dinit"Kill All or Individual"
  17. dposition -1,0
  18. dbuttons "All",%A,"Individual",%I
  19. d%=dialog
  20. if d%=%a or d%=%A
  21.  fl%=1
  22.  busy "Killing All Apps..."
  23. endif
  24. do
  25. aerr%=appid%:("AGENDA",ADDR(agenda%))
  26. if aerr%=0
  27. if fl%=0
  28.  dinit"Quit AGENDA?"
  29.  dposition -1,0
  30.  dbuttons "Yes",%Y,"No",%N,"System",27
  31.  d%=dialog
  32. endif
  33.  if d%=%Y or d%=%y or fl%=1
  34.   appkill%:(agenda%)
  35.  elseif d%=0
  36.   return
  37.  endif
  38. endif
  39. until aerr%<0 or d%=%n or d%=%N
  40. do
  41. derr%=appid%:("DATA",ADDR(data%))
  42. if derr%=0
  43. if fl%=0
  44.  dinit"Quit DATA?"
  45.  dposition -1,0
  46.  dbuttons "Yes",%Y,"No",%N,"System",27
  47.  d%=dialog
  48. endif
  49.  if d%=%Y or d%=%y or fl%=1
  50.   appkill%:(data%)
  51.  elseif d%=0
  52.   return
  53.  endif
  54. endif
  55. until derr%<0 or d%=%n or d%=%N
  56. do
  57. werr%=appid%:("WORD",ADDR(word%))
  58. if werr%=0
  59. if fl%=0
  60.  dinit"Quit WORD/Prog Editor?"
  61.  dposition -1,0
  62.  dtext "",sav$,2
  63.  dbuttons "Yes",%Y,"No",%N,"System",27
  64.  d%=dialog
  65. endif
  66.  if d%=%Y or d%=%y or fl%=1
  67.   appkill%:(Word%)
  68.  elseif d%=0
  69.   return
  70.  endif
  71. endif
  72. until werr%<0 or d%=%n or d%=%N
  73. do
  74. wlderr%=appid%:("WORLD",ADDR(world%))
  75. if wlderr%=0
  76. if fl%=0
  77.   dinit"Quit WORLD?"
  78.  dposition -1,0
  79.  dbuttons "Yes",%Y,"No",%N,"System",27
  80.  d%=dialog
  81. endif
  82.  if d%=%Y or d%=%y or fl%=1
  83.   appkill%:(world%)
  84.  elseif d%=0
  85.   return
  86.  endif
  87. endif
  88. until wlderr%<0 or d%=%n or d%=%N
  89. do
  90. cerr%=appid%:("CALC",ADDR(calc%))
  91. if cerr%=0
  92. if fl%=0
  93.   dinit"Quit CALC?"
  94.  dposition -1,0
  95.  dbuttons "Yes",%Y,"No",%N,"System",27
  96.  d%=dialog
  97. endif
  98.  if d%=%Y or d%=%y or fl%=1
  99.   appkill%:(calc%)
  100.  elseif d%=0
  101.   return
  102.  endif
  103. endif
  104. until cerr%<0 or d%=%n or d%=%N
  105. serr%=appid%:("SPY",ADDR(spy%))
  106. if serr%=0
  107. if fl%=0
  108.   dinit"Quit SPY?"
  109.  dposition -1,0
  110.  dbuttons "Yes",%Y,"No",%N,"System",27
  111.  d%=dialog
  112. endif
  113.  if d%=%Y or d%=%y or fl%=1
  114.   appkill%:(spy%)
  115.  elseif d%=0
  116.   return
  117.  endif
  118. endif
  119. do
  120. serr%=appid%:("SH3",ADDR(spread%))
  121. if serr%=0
  122. if fl%=0
  123.   dinit"Quit SREADSHEET?"
  124.  dposition -1,0
  125.  dbuttons "Yes",%Y,"No",%N,"System",27
  126.  d%=dialog
  127. endif
  128.  if d%=%Y or d%=%y or fl%=1
  129.   appkill%:(spread%)
  130.  endif
  131. endif
  132. until serr%<0 or d%=%n or d%=%N
  133. do
  134. err%=appid%:("CHESS",ADDR(chess%))
  135. if err%=0
  136. if fl%=0
  137.   dinit"Quit CHESS?"
  138.  dposition -1,0
  139.  dbuttons "Yes",%Y,"No",%N,"System",27
  140.  d%=dialog
  141. endif
  142.  if d%=%Y or d%=%y or fl%=1
  143.   appkill%:(chess%)
  144.  elseif d%=0
  145.   return
  146.  endif
  147. endif
  148. until err%<0 or d%=%n or d%=%N
  149. do
  150. err%=appid%:("SYS$PRGO",ADDR(prog%))
  151. if err%=0
  152. if fl%=0
  153.   dinit"Quit Running Program?"
  154.  dposition -1,0
  155.  dbuttons "Yes",%Y,"No",%N,"System",27
  156.  d%=dialog
  157. endif
  158.  if d%=%Y or d%=%y or fl%=1
  159.   appkill%:(prog%)
  160.  elseif d%=0
  161.   return
  162.  endif
  163. endif
  164. until err%<0 or d%=%n or d%=%N
  165. busy off
  166. ENDP
  167.  
  168. proc loader:(f$)
  169. local dev$(2),path$(6),ext$(4)
  170. path$="\opo\" :ext$=".opo"
  171. dev$="m:"
  172. do
  173.  trap loadm dev$+path$+f$+ext$
  174.  if err
  175.   dev$="A:"
  176.  else break
  177.  endif
  178.  trap loadm dev$+path$+f$+ext$
  179.  if err
  180.   dev$="B:"
  181.  else break
  182.  endif
  183.  trap loadm dev$+path$+f$+ext$
  184.  if err
  185.   giprint err$(err)
  186.   return
  187.  endif
  188.  break
  189. until 0
  190. endp
  191.