home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / s1 / status / !Status / !RunImage (.txt) < prev    next >
RISC OS BBC BASIC V Source  |  1993-05-16  |  3KB  |  164 lines
  1.  ><Status$Dir>.!RunImage
  2. "Error : "+
  3. $+" at line "+
  4.  window% 1024,mu% 80,q% 4096:windowend%=window%+1024:finished%=
  5. :log%=
  6.  "Hourglass_On"
  7.  "Wimp_Initialise",200,&4B534154,"Status" 
  8.  ,taskh%
  9.  "Wimp_OpenTemplate",,"<Status$Dir>.Templates"
  10.  "Wimp_LoadTemplate",,q%,window%,windowend%,-1,"prog_info",0 
  11.  ,,window%
  12.  "Wimp_CreateWindow",,q% 
  13.  info%
  14.  "Wimp_LoadTemplate",,q%,window%,windowend%,-1,"main",0 
  15.  ,,window%
  16.  "Wimp_CreateWindow",,q% 
  17.  main%
  18.  "Wimp_CloseTemplate"
  19.  "Load <Status$Dir>.Menu "+
  20. ~mu%:mu%!32=info%
  21.  "Hourglass_Off"
  22. error
  23. L!q%=main%:
  24.  "Wimp_GetWindowState",,q%:q%!28=-1:
  25.  "Wimp_OpenWindow",,q%
  26.  log% h%=
  27. ("<Status$Dir>.MsgLog")
  28.  "Wimp_Poll",,q% 
  29.  reason%
  30.  reason% 
  31.  "Wimp_RedrawWindow",,q% 
  32.  flg%:
  33.  flg%:
  34.  "Interface_Render3dWindow",,q%:
  35.  "Wimp_GetRectangle",,q% 
  36.  flg%:
  37.  "Wimp_OpenWindow",,q%
  38.  6:x%=!q%:y%=q%!4:buttons%=q%!8:window%=q%!12:icon%=q%!16:
  39.  window% 
  40.  main%:
  41.  buttons% 
  42.  4,1:
  43.  icon% 
  44.  "Interface_SlabButton",,q%:q%!128=main%:
  45.  "Wimp_GetWindowState",,q%+128:q%!156=-2:
  46.  "Wimp_OpenWindow",,q%+128:q%!8=0:
  47.  "Interface_SlabButton",,q%
  48.  "Interface_SlabButton",,q%:finished%=
  49. :q%!8=0:
  50.  "Interface_SlabButton",,q%
  51. :!q%=main%:q%!4=1:
  52.  "Wimp_DragBox",,q%
  53.  "Wimp_CreateMenu",,mu%,x%-96,y%
  54.  !q%=1 finished%=
  55.  "Wimp_GetPointerInfo",,q%:
  56.  q%!8=1 
  57.  "Wimp_CreateMenu",,mu%,x%-96,y%
  58.  17,18:
  59.  q%!16 
  60.  0:finished%=
  61. i("DataSave, "+
  62. var(q%+44)+", &"+
  63. ~q%!40)
  64. i("DataSaveAck, "+
  65. var(q%+44)+", &"+
  66. ~q%!40)
  67. i("DataLoad, "+
  68. var(q%+44)+", &"+
  69. ~q%!40)
  70. i("DataLoadAck, "+
  71. var(q%+44)+", &"+
  72. ~q%!40)
  73. i("DataOpen, "+
  74. var(q%+44)+", &"+
  75. ~q%!40)
  76. i("RAMFetch, "+
  77. ~q%!20+", &"+
  78. ~q%!24)
  79. i("RAMTransmit, "+
  80. ~q%!20+", &"+
  81. ~q%!24)
  82. i("This application is about to be shut down")
  83. i("The desktop palette has changed")
  84. i("The desktop state is being saved")
  85. i("DeviceClaim, "+
  86. q%!20+", "+
  87. q%!24+", "+
  88. var(q%+28))
  89. i("DeviceInUse, "+
  90. q%!20+", "+
  91. q%!24+", "+
  92. var(q%+28))
  93.  &400:
  94. i("FilerOpenDir, "+
  95. var(q%+28))
  96.  &401:
  97. i("FilerCloseDir, "+
  98. var(q%+28))
  99.  &502:
  100. i("The !Help application is on the scrounge")
  101.  &503:
  102. i("Some swine's replied to the !Help application")
  103.  &400C0:
  104. i("MenuWarning")
  105.  &400C1:
  106. i("The Wimp has changed to mode "+
  107.  &400C2:
  108. i("Task '"+
  109. var(q%+28)+"' (&"+
  110. ~q%!4+") has started up. SlotSize "+
  111. (q%!24/1024)+"K")
  112.  &400C3:
  113. i("Task &"+
  114. ~q%!4+" has closed down")
  115.  log% 
  116.  &400C4:
  117. i("SlotSize")
  118.  log% 
  119.  &400C5:
  120. i("SetSlot")
  121.  log% 
  122.  &400C6:
  123. i("TasknameRequest")
  124.  log% 
  125.  &400C7:
  126. i("TasknameIs")
  127.  log% 
  128.  &400CA:
  129. i("Iconize")
  130.  log% 
  131.  &400CB:
  132. i("WindowClosed")
  133.  log% 
  134.  &400CC:
  135. i("WindowInfo")
  136.  log% 
  137. i("Message &"+
  138. ~q%!16+" received")
  139.  finished%
  140. i("You killed me, aaaaaarrrrrrgh!"):
  141.  die%=0 
  142.  "Wimp_Poll",,q%:
  143.  log% 
  144.  "Wimp_CloseDown",taskh%,&4B534154
  145. var(ptr%):string$="":
  146.  ?ptr%>31:string$+=
  147. ?ptr%:ptr%+=1:
  148. :=string$
  149. i(text$)
  150.  log% 
  151. $,17,8)+" : "+text$
  152. Lxq%!128=main%:q%!132=2:
  153.  "Wimp_GetIconState",,q%+128:$q%!156=text$::q%!136=0:q%!140=0:
  154.  "Wimp_SetIconState",,q%+128
  155. error
  156. P(!q%=
  157. :$(q%+4)=
  158. $+" (IEC "+
  159. +")"+
  160.  "Wimp_ReportError",q%,3,"Status" 
  161.  ,mb%
  162.  mb%=2 
  163.  "Wimp_CloseDown",taskh%,&4B534154:
  164.