WINDOW.DBD 5.5 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442
  1. <Window
  2. {Window@CheckWindow
  3. W 4 P #F9D
  4. [F9D 50
  5. Guard 0 C2
  6. Next 2 P #F9D
  7. CursorChain 6 P #F9D
  8. WDef A #5E7
  9. XA 23 C2
  10. YA 25 C2
  11. XB 27 C2
  12. YB 29 C2
  13. OWidth 2B C2
  14. ODepth 2D C2
  15. Width 2F C2
  16. Depth 31 C2
  17. Title 33 P A50 C2[0..4F] L1
  18. TMode 37 #5F1
  19. CurrentX 38 C2
  20. CurrentY 3A C2
  21. IsPalette 3C B1
  22. PalAttr 3D AA C1[0..9] C1
  23. CurPalColor 47 C1[0..9]
  24. Buffer 48 P AFA0 C2[0..7CF] C2
  25. UserRecord 4C P C2
  26. ]
  27. (5F1 1 NoTitle,LeftUpperTitle,CenterUpperTitle,RightUpperTitle,LeftLowerTitle,CenterLowerTitle,RightLowerTitle)
  28. [5E7 19
  29. X1 0 C2
  30. Y1 2 C2
  31. X2 4 C2
  32. Y2 6 C2
  33. Foreground 8 #47A
  34. Background 9 #47A
  35. CursorOn A B1
  36. WrapOn B B1
  37. Hidden C B1
  38. FrameOn D B1
  39. FrameDef E A9 C2[0..8] L1
  40. FrameFore 17 #47A
  41. FrameBack 18 #47A
  42. ]
  43. (47A 1 Black,Blue,Green,Cyan,Red,Magenta,Brown,LightGray,DarkGray,LightBlue,LightGreen,LightCyan,LightRed,LightMagenta,Yellow,White)
  44. }
  45. {Window@ClipFrame
  46. W 4 P #F9D
  47. i -4 C2
  48. }
  49. {Window@ClipXY
  50. W C P #F9D
  51. X 8 V C2
  52. Y 4 V C2
  53. md -6 C2
  54. mw -4 C2
  55. }
  56. {Window@BufferSpaceFill
  57. W 8 P #F9D
  58. pos 6 C2
  59. len 4 C2
  60. }
  61. {Window@CurWin
  62. p -A P C2
  63. u -6 P #2CFD
  64. [2CFD C
  65. Next 0 P #2CFD
  66. Proc 4 P C2
  67. Wind 8 P #F9D
  68. ]
  69. }
  70. {Window@ResetCursor
  71. mode -18 C2
  72. R -16 #10DF
  73. [10DF 14
  74. AL 0 C1
  75. AH 1 C1
  76. BL 2 C1
  77. BH 3 C1
  78. CL 4 C1
  79. CH 5 C1
  80. DL 6 C1
  81. DH 7 C1
  82. AX 0 C2
  83. BX 2 C2
  84. CX 4 C2
  85. DX 6 C2
  86. BP 8 C2
  87. SI A C2
  88. DI C C2
  89. DS E C2
  90. ES 10 C2
  91. Flags 12 S2 C2[0..F]
  92. ]
  93. }
  94. {Window@UnlinkCursor
  95. W 4 P #F9D
  96. w -6 P #F9D
  97. }
  98. {Window$CursorOn
  99. cw -A P #F9D
  100. w -6 P #F9D
  101. }
  102. {Window$CursorOff
  103. cw -A P #F9D
  104. w -6 P #F9D
  105. }
  106. {Window@MakeWindow
  107. WD 4 V #5E7
  108. min -8 C2
  109. W -6 P #F9D
  110. }
  111. {Window$Open
  112. WD 6 #5E7
  113. W -6 P #F9D
  114. }
  115. {Window$Use
  116. W 6 P #F9D
  117. up -E P #2CFD
  118. u -A P #2CFD
  119. p -6 P C2
  120. }
  121. {Window@TakeOffStack
  122. W 4 P #F9D
  123. pw -6 P #F9D
  124. }
  125. {Window@UpdateScreen
  126. W A P #F9D
  127. X 8 C2
  128. Y 6 C2
  129. Len 4 C2
  130. a -B6 P C2
  131. buff -B2 AA0 C2[0..4F] C2
  132. bx -12 C2
  133. ax -10 C2
  134. oxb -E C2
  135. oxa -C C2
  136. w -A P #F9D
  137. NextX -6 C2
  138. NextLen -4 C2
  139. }
  140. {Window@RedrawSection
  141. W C P #F9D
  142. X1 A C2
  143. Y1 8 C2
  144. X2 6 C2
  145. Y2 4 C2
  146. Y -4 C2
  147. }
  148. {Window@RedrawWindow
  149. W 4 P #F9D
  150. }
  151. {Window@RedrawWindowPane
  152. W 4 P #F9D
  153. }
  154. {Window@DisplayBeneath
  155. W 8 P #F9D
  156. NW 4 P #F9D
  157. y2 -A C2
  158. y1 -8 C2
  159. x2 -6 C2
  160. x1 -4 C2
  161. }
  162. {Window$PutOnTop
  163. W 6 P #F9D
  164. }
  165. {Window$Hide
  166. W 6 P #F9D
  167. w -A P #F9D
  168. p -6 P #F9D
  169. }
  170. {Window$PutBeneath
  171. W A P #F9D
  172. WA 6 P #F9D
  173. w -A P #F9D
  174. p -6 P #F9D
  175. }
  176. {Window$SnapShot
  177. p -A C2
  178. y -8 C2
  179. W -6 P #F9D
  180. }
  181. {Window@DisposeTitle
  182. W 4 P #F9D
  183. }
  184. {Window$Close
  185. W 6 V P #F9D
  186. un -12 P #2CFD
  187. up -E P #2CFD
  188. u -A P #2CFD
  189. w -6 P #F9D
  190. }
  191. {Window$Used
  192. w -6 P #F9D
  193. }
  194. {Window$Top
  195. w -6 P #F9D
  196. }
  197. {Window$At
  198. X 8 C2
  199. Y 6 C2
  200. W -6 P #F9D
  201. }
  202. {Window$ObscuredAt
  203. W A P #F9D
  204. X 8 C2
  205. Y 6 C2
  206. w -7 P #F9D
  207. b -3 B1
  208. }
  209. {Window@WindowWrite
  210. W 10 P #F9D
  211. x E C2
  212. y C C2
  213. Len A C2
  214. str 6 P C2
  215. frame 4 B1
  216. Y -8 C2
  217. X -6 C2
  218. Attr -4 C2
  219. }
  220. {Window@DrawFrame
  221. {Window@PutTitle
  222. mode 6 C2
  223. row 4 C2
  224. j -8 C2
  225. i -6 C2
  226. }
  227. W 4 P #F9D
  228. i -5C C2
  229. tl -5A C2
  230. l -58 C2
  231. w -56 C2
  232. s -54 A52 C2[0..51] L1
  233. }
  234. {Window$SetFrame
  235. W 13 P #F9D
  236. Frame A A9 C2[0..8] L1
  237. Fore 8 #47A
  238. Back 6 #47A
  239. }
  240. {Window@MergeWindows
  241. s 8 P #F9D
  242. d 4 P #F9D
  243. dp -66 C2
  244. do -64 C2
  245. dd -62 C2
  246. dw -60 C2
  247. sp -5E C2
  248. so -5C C2
  249. sd -5A C2
  250. sw -58 C2
  251. wd -56 C2
  252. r -54 C2
  253. w -52 #F9D
  254. }
  255. {Window@IGotoXY
  256. W 8 P #F9D
  257. X 6 C2
  258. Y 4 C2
  259. }
  260. {Window@GetPal
  261. W 8 P #F9D
  262. Pal 4 V A14 C1[0..9] #C60
  263. [C60 2
  264. Fore 0 #47A
  265. Back 1 #47A
  266. ]
  267. i -3 C1[0..9]
  268. }
  269. {Window@SetPal
  270. W 8 P #F9D
  271. Pal 4 V A14 C1[0..9] #C60
  272. i -3 C1[0..9]
  273. }
  274. {Window$PaletteOpen
  275. WD 1A #5E7
  276. Pal 6 A14 C1[0..9] #C60
  277. W -6 P #F9D
  278. }
  279. {Window$SetPaletteColor
  280. c 6 C1[0..9]
  281. W -6 P #F9D
  282. }
  283. {Window$PaletteColor
  284. W -6 P #F9D
  285. }
  286. {Window$SetPalette
  287. W 1A P #F9D
  288. Pal 6 A14 C1[0..9] #C60
  289. }
  290. {Window$PaletteColorUsed
  291. W 8 P #F9D
  292. pc 6 C1[0..9]
  293. ba -C P A0 C2[0..FFFF] C1
  294. m -8 C2
  295. l -6 C2
  296. p -4 C2
  297. }
  298. {Window$Change
  299. W E P #F9D
  300. X1 C C2
  301. Y1 A C2
  302. X2 8 C2
  303. Y2 6 C2
  304. min -39 C2
  305. save -37 P #F9D
  306. pal -33 A14 C1[0..9] #C60
  307. wd -1F #5E7
  308. nw -6 P #F9D
  309. }
  310. {Window$NullProc
  311. }
  312. {Window$SetProcessLocks
  313. LockProc A Q4
  314. UnlockProc 6 Q4
  315. }
  316. {Window$DeleteLine
  317. W 8 P #F9D
  318. Y 6 C2
  319. p -6 C2
  320. r -4 C2
  321. }
  322. {Window$Clear
  323. W -A P #F9D
  324. p -6 C2
  325. r -4 C2
  326. }
  327. {Window$ClrEol
  328. W -6 P #F9D
  329. }
  330. {Window$Bell
  331. R -16 #10DF
  332. }
  333. {Window@WriteC
  334. W 6 P #F9D
  335. C 4 L1
  336. nx -4 C2
  337. }
  338. {Window$WriteOut
  339. S 6 O L1
  340. ss -E C2
  341. m -C C2
  342. q -A C2
  343. p -8 C2
  344. W -6 P #F9D
  345. }
  346. {Window$DirectWrite
  347. X E C2
  348. Y C C2
  349. A 8 P C2
  350. Len 6 C2
  351. W -6 P #F9D
  352. }
  353. {Window$GotoXY
  354. X 8 C2
  355. Y 6 C2
  356. W -6 P #F9D
  357. }
  358. {Window$WhereX
  359. W -6 P #F9D
  360. }
  361. {Window$WhereY
  362. W -6 P #F9D
  363. }
  364. {Window$ConvertCoords
  365. W 12 P #F9D
  366. X 10 C2
  367. Y E C2
  368. XO A V C2
  369. YO 6 V C2
  370. }
  371. {Window$InsLine
  372. p1 -C C2
  373. p -A C2
  374. r -8 C2
  375. W -6 P #F9D
  376. }
  377. {Window$DelLine
  378. W -6 P #F9D
  379. }
  380. {Window$TextColor
  381. c 6 #47A
  382. W -6 P #F9D
  383. }
  384. {Window$TextBackground
  385. c 6 #47A
  386. W -6 P #F9D
  387. }
  388. {Window$SetWrap
  389. on 6 B1
  390. W -6 P #F9D
  391. }
  392. {Window$Info
  393. W A P #F9D
  394. WD 6 V #5E7
  395. }
  396. {Window$SetTitle
  397. W E P #F9D
  398. NewTitle 8 O L1
  399. Mode 6 #5F1
  400. l -4 C2
  401. }
  402. {Window$ReadString
  403. string 6 V O L1
  404. con -5F B1
  405. W -5E P #F9D
  406. H -5A C2
  407. p -58 C2
  408. line -56 A53 C2[0..52] L1
  409. c -3 L1
  410. }
  411. {Window$RdBufferLn
  412. W 10 P #F9D
  413. X E C2
  414. Y C C2
  415. Dest 8 P C2
  416. Len 6 C2
  417. AY -6 C2
  418. AX -4 C2
  419. }
  420. {Window$WrBufferLn
  421. W 10 P #F9D
  422. X E C2
  423. Y C C2
  424. Src 8 P C2
  425. Len 6 C2
  426. AY -6 C2
  427. AX -4 C2
  428. }
  429. {Window$Init
  430. WD -2F #5E7
  431. R -16 #10DF
  432. }
  433. Window@CursorLines C2
  434. Window@Unlock Q4
  435. Window@Lock Q4
  436. Window@MultiP B1
  437. Window@CursorStack P #F9D
  438. Window@WindowStack P #F9D
  439. Window@UseList P #2CFD
  440. Window@FullScreen P #F9D
  441. >
  442.