home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / misc / abank_11.lha / AGUI / Development / ABank / ABank.prog < prev   
Encoding:
Text File  |  1995-02-04  |  8.3 KB  |  209 lines
  1.  
  2. PROGRAM 1 Main Interface
  3.  
  4. SISX,SY;SS0,0,0,1,1,1,1,1;IN1,0,0;
  5. BO0,13,1,36 8*,77;
  6. BO36 8*,13,1,640,77 15-24-;
  7. BO36 8*,77 15-24-,1,640,77 15-;
  8. BO8,17,1,8 8*,17 3 8*+4+;
  9. BO8,22 24+,1,8 8*,22 3 8*+4+24+;
  10. BU11,36 8*,77 15-,32,16,0,0,1;[UN0,0,100BP+;][BR0;]
  11. BU12,40 8*,77 15-,32,16,0,0,1;[UN0,0,102BP+;][]
  12. BU13,44 8*,77 15-,32,16,0,0,1;[UN0,0,104BP+;][BR0;]
  13. BU14,48 8*,77 15-,32,16,0,0,1;[UN0,0,106BP+;][BR0;]
  14. BU15,52 8*,77 15-,32,16,0,0,1;[UN0,0,108BP+;][BR0;]
  15. BU16,56 8*,77 15-,32,16,0,0,1;[UN0,0,110BP+;][BR0;]
  16. BU17,60 8*,77 15-,32,16,0,0,1;[UN0,0,112BP+;][BR0;]
  17. BU18,64 8*,77 15-,32,16,0,0,1;[UN0,0,114BP+;][BR0;]
  18. BU19,68 8*,77 15-,32,16,0,0,1;[UN0,0,116BP+;][BR0;]
  19. BU20,72 8*,77 15-,32,16,0,0,1;[UN0,0,118BP+;][BR0;]
  20. BU21,76 8*,77 15-,32,16,0,0,1;[UN0,0,120BP+;][BR0;]PR10 8*,18,9ME,2;
  21. PR10 8*,34 4+,10ME,2;
  22. PR10 8*,58,11ME,2;
  23. LI66 8*,13 2+,93,66 13+8*;
  24. LI44 8*,13 13+,93,44 13+8*;
  25. LI66 8*,13 13+,93,66 13+8*;
  26. PO37 8*,13 4+,46ME,1,2;
  27. PR59 8*,13 4+,5ME,1;
  28. PR37 8*4-,13 15+,45ME,1;
  29. PR59 8*4-,13 15+,6ME,1;
  30. LI66 8*,13 2+24+,93,66 13+8*;
  31. LI44 8*,13 13+24+,93,44 13+8*;
  32. LI66 8*,13 13+24+,93,66 13+8*;
  33. PO37 8*,13 4+24+,47ME,1,2;
  34. PR59 8*,13 4+24+,5ME,1;
  35. PR37 8*4-,13 15+24+,45ME,1;
  36. PR59 8*4-,13 15+24+,6ME,1;
  37. LI8,78,90,8 7*;
  38. PR16,79,2ME,2;
  39. LI8 7*,78,90,8 39*;
  40. PR8 8*,79,3ME,2;
  41. LI8 39*,78,90,8 51*;
  42. PR8 40*,79,4ME,2;
  43. LI8 51*,78,90,8 77*;
  44. PR8 52*,79,5ME,2;
  45. PR8 77 6METL1+-*,79,6ME,2;
  46. LI8 77*,78,90,640;
  47. PR8 78*,79,5VA,2;
  48. BO8,SH10VA1+8*-,1,8 7*,SH;
  49. BO8 7*,SH10VA1+8*-,1,8 39*,SH;
  50. BO8 39*,SH10VA1+8*-,1,8 51*,SH;
  51. BO8 51*,SH10VA1+8*-,1,640 20-,SH;
  52. AL1,16,SH10VA8*-4-,4,10VA,1VA,8VA,0,0,1;[]
  53. AL2,8 8*,SH10VA8*-4-,30,10VA,0VA,8VA,0,0,1;[]
  54. AL3,40 8*,SH10VA8*-4-,10,10VA,2VA,8VA,0,0,1;[]
  55. AL4,52 8*,SH10VA8*-4-,23,10VA,3VA,8VA,0,0,1;[]
  56. AL8,78 8*,SH10VA8*-4-,1,10VA,4VA,8VA,0,0,7;[]
  57. VS10,0,SH10VA1+8*-,8,10VA1+8*,8VA,10VA,9VA10VA2--10VA+1-,10VA;[ZC1,ZP;ZC2,ZP;ZC3,ZP;ZC4,ZP;ZC8,ZP;]EX;
  58.  
  59. END PROGRAM
  60.  
  61. PROGRAM 3 ABank windows
  62.  
  63. LA1;EX;
  64.  
  65. LA4;BASW200-2/,SH144-2/;SI200,144;SA1;SV1,4ME;RSSX,SY,4ME;
  66. BJ1,8,SY14-,19ME,1;KY13,0;BJ2,SX20METW-24-,SY14-,20ME,1;KY27,0;SS0,0,0,1,1,1,1,1;
  67. IN0,2,0;BO8,14,1,23 8*,13 8*14+;LI8,14 13 8*+,28,23 8*;AL9,16,16,20,12,3VA,0,0,0,1;
  68. [SV7,ZP;SW1;IN0,0,0;PR12,15 8*1-,3VA7VAAR,1;SW0;]VL16 21 8*+,14,59,14 12 8*+2+;
  69. VS10,16 21 8*+4+,16,8,13 8*8-2-,0,1,4VA,1;[SV2,2VA;ZC9,ZP;SW1;IN0,0,0;
  70. PR12,15 8*1-,3VA7VAAR,1;SW0;]BU8,16 21 8*+,112,16,8,0,0,1;[UN0,0,65BP+;
  71. ][SV2,2VA1-0MA;ZC10,2VA;BR0;]BU7,16 21 8*+,120,16,8,0,0,1;[UN0,0,67BP+;
  72. ][SV2,2VA1+4VAMI;ZC10,2VA;BR0;]EX;
  73.  
  74. LA5; BASW484 8--2/,SH144-2/;SI484 8-,144;
  75. SA1;RSSX,SY,41ME;BJ1,8,SY14-,19ME,1;KY13,0;BJ2,SX20METW-24-,SY14-,20ME,1;
  76. KY27,0;SS0,0,0,1,1,1,1,1;IN0,2,0;BO8,14,81,33 8*,SY16-;PR28,18 6+,2ME,2;
  77. LI24,26 6+,17,31 8*;ED3,32,28 6+,25,25,"",0,1;PR28,42 6+,3ME,2;LI24,50 6+,17,31 8*;
  78. ED4,32,52 6+,25,30,"",0,1;PR28,66 6+,5ME"/"!6ME!,2;LI24,74 6+,17,31 8*;
  79. ED5,32,76 6+,25,25,"",0,1;PR28,90 6+,15ME,2;BU11,28,104,28 8*,10,0,0,1;
  80. [UN0,0,96BP+;LI16,0,90BP3*+,28 8*;PR20,1,6VAME,1;][BR0;]SV1,272;
  81. BO8 1VA+,14,1,23 8*1VA+,13 8*14+;LI8 1VA+,14 13 8*+,28,23 8*1VA+;
  82. AL9,16 1VA+,16,20,12,3VA,0,0,0,1;[SV15,ZP;SW1;IN0,0,0;PR12 1VA+,15 8*1-,3VA15VAAR,1;
  83. SW0;]VL16 21 8*+1VA+,14,59,14 12 8*+2+;VS10,16 21 8*+4+1VA+,16,8,13 8*8-2-,0,1,4VA,1;
  84. [SV2,ZP;ZC9,ZP;SW1;IN0,0,0;PR12 1VA+,15 8*1-,3VA15VAAR,1;SW0;]BU8,16 21 8*+1VA+,112,16,8,0,0,1;
  85. [UN0,0,65BP+;][SV2,2VA1-0MA;ZC10,2VA;BR0;]BU7,16 21 8*+1VA+,120,16,8,0,0,1;
  86. [UN0,0,67BP+;][SV2,2VA1+4VAMI;ZC10,2VA;BR0;]EX;
  87.  
  88. LA6;
  89. BA SW368-2/,SH152-2/;
  90. SI 368,152;
  91. SA1;
  92. RSSX,SY,42ME;
  93. BJ1,8,SY14-,19ME,1;KY13,0;
  94. BJ2,SX20METW-24-,SY14-,20ME,1;KY27,0;
  95.  
  96. IN0,2,0;
  97. BO 8,18,81,SX 8-,SY 16-;
  98. PR 16,26,9ME,2; LI 15 8*,24,17,44 8*;ED 3,16 8*,26,25,25,12VA,0,1;
  99. PR 16,42,10ME,2;LI 15 8*,40,17,44 8*;ED 4,16 8*,42,25,25,13VA,0,1;
  100. PR 16,58,11ME,2;LI 15 8*,56,17,44 8*;ED 5,16 8*,58,25,25,14VA,0,1;
  101. PR 16,74,13ME,2;LI 15 8*,72,17,41 8*;ED 8,16 8*,74,23,255,10VA,0,1;
  102. BU 7,41 8*,72,24,12,0,0,1;[UN 0,0,122BP+;][BR0;]
  103. PR 16,90,14ME,2;LI 15 8*,88,17,41 8*;ED 9,16 8*,90,23,255,11VA,0,1;
  104. BU 10,41 8*,88,24,12,0,0,1;[UN 0,0,122BP+;][BR0;]
  105. PR 16,106,12ME,2;LI 15 8*,104,17,27 8*;ED 6,16 8*,106,10,9,15VA,0,1;
  106. PR 16,122,18ME,2;LI 15 8*,120,17,27 8*;ED 12,16 8*,122,10,9,17VA,0,1;
  107.  
  108. EX;
  109.  
  110. LA7;BASW140 12VA8*+-2/,SH144-2/;
  111. SI140 12VA8*+,144;SA1;RSSX,SY,0VA;BJ1,8,SY14-,19ME,1;KY13,0;BJ2,SX20METW-24-,SY14-,20ME,1;
  112. KY27,0;SS0,0,0,1,1,1,1,1;IN0,2,0;BO8,15,81,12 8*,SY16-;SV1,34ME;
  113. BJ3,16,20,1VA,0;SV1,35ME;BJ4,16,35,1VA,0;SV1,36ME;BJ11,16,50,1VA,0;
  114. SV1,37ME;BJ12,16,65,1VA,0;SV1,38ME;BJ13,16,80,1VA,0;SV1,39ME;BJ14,16,95,1VA,0;
  115. SV1,40ME;BJ6,16,110,1VA,0;SV1,112 16-;BO8 1VA+,14,1,3 12VA+8*1VA+,13 8*14+;
  116. ED5,16 1VA+,15 13 8*+,12VA,12VA,"",0,1;LI8 1VA+,14 13 8*+,28,3 12VA+8*1VA+;
  117. AL9,16 1VA+,16,12VA,12,3VA,0,0,0,1;[SV15,ZP;]VL24 12VA8*+1VA+,14,59,14 12 8*+2+;
  118. VS10,24 12VA8*+4+1VA+,16,8,13 8*8-2-,0,1,4VA,1;[SV2,ZP;ZC9,ZP;]BU8,24 12VA8*+1VA+,112,16,8,0,0,1;
  119. [UN0,0,65BP+;][SV2,2VA1-0MA;ZC10,2VA;BR0;]BU7,24 12VA8*+1VA+,120,16,8,0,0,1;
  120. [UN0,0,67BP+;][SV2,2VA1+4VAMI;ZC10,2VA;BR0;]EX;
  121.  
  122. LA8;BASW208-2/,SH130-2/;
  123. SI208,130;SA1;RSSX,SY,0VA;BJ1,8,SY14-,1VA,1;KY13,0;BJ2,SX20METW-24-,SY14-,20ME,1;
  124. KY27,0;SS0,0,0,1,1,1,1,1;IN0,2,0;SV2,0;BU3,8,10 6+,11 8*,10,0,0,1;
  125. [UN0,0,96BP+;LI16,0,90BP3*+,11 8*;PR24,1,6VA,1;][BR0;]BU4,108,10 6+,12 8*,10,0,0,1;
  126. [UN0,0,96BP+;LI16,0,90BP3*+,12 8*;PR16,1,7VAME,1;][BR0;]SV12,19;
  127. BO8,28,1,4 12VA+8*,14 8*;AL5,16,30,12VA,10,5VA,0,4,0,1;[SV15,ZP;
  128. ]VL32 12VA8*+,28,59,12 8*;VS10,32 12VA8*+4+2VA+,30,8,8 8*,0,1,4VA,1;
  129. [SV2,ZP;ZC5,ZP;]BU8,32 12VA8*+2VA+,96,16,8,0,0,1;[UN0,0,65BP+;][SV2,2VA1-0MA;
  130. ZC10,2VA;BR0;]BU7,32 12VA8*+2VA+,104,16,8,0,0,1;[UN0,0,67BP+;][SV2,2VA1+4VAMI;
  131. ZC10,2VA;BR0;]EX;
  132.  
  133. LA9;
  134. SV0,SH140-2/;SV1,SW468 88+-2/;BA1VA,0VA;SI468 88+,140;
  135. SA1;RSSX,SY,43ME;
  136. BJ1,SX 19METW-24-,SY14-,19ME,1;KY13,0;
  137. BJ2,SX 5VATW-24- 19METW-24-,SY14-,5VA,1;
  138. SS0,0,0,1,1,1,1,1;IN0,2,0;
  139. BO8,14,81,32 8*,SY16-;SV2,208 80+24-;
  140. BO 2VA8+,14,1,SX8-,SY16-;
  141. BU3,2VA16+,18,10 8*,10,0,0,1;[UN0,0,96BP+;LI16,0,90BP3*+,10 8*;PR 20,1,6VAME,1;][BR0;]
  142. BU4,2VA108+,18,12 8*,10,0,0,1;[UN0,0,96BP+;LI16,0,90BP3*+,12 8*;PR16,1,7VAME,1;][BR0;]
  143. BU5,2VA212+,18,9 8*,10,0,0,1;[UN0,0,96BP+;LI16,0,90BP3*+,9 8*;PR 16,1,8VAME,1;][BR0;]
  144.  
  145. SV 12,30;
  146. BO 16 2VA+,12VA,1,SX 28-,14 8*8+;
  147. VL SX 28-,12VA,59,12 8* 8+;
  148. VS 10,SX 28-,12VA 2+,8,8 9*2-,0,1,4VA,1;[SV2,ZP;]
  149. BU 8,SX 28-,104,16,8,0,0,1;[UN0,0,65BP+;][SV2,2VA1-0MA;ZC10,2VA;BR0;]
  150. BU 7,SX 28-,112,16,8,0,0,1;[UN0,0,67BP+;][SV2,2VA1+4VAMI;ZC10,2VA;BR0;]
  151. EX;
  152.  
  153. LA10;SV0,SH148-2/;
  154. SV1,SW400-2/;BA1VA,0VA;SI400,148;SA1;RSSX,SY,44ME;BJ1,SX19METW-24-,SY14-,19ME,1;
  155. KY13,0;LI8,SY14-,10,SX32-19METW-;BO8,14,81,SX8-,SY16-;IN2,0,0;GB24,SY12-,40,SY6-;
  156. IN1,0,0;GS24,SY12-,40,SY6-;PR48,SY12-,5ME,1;IN3,0,0;GB24 80+,SY12-,40 80+,SY6-;
  157. IN1,0,0;GS24 80+,SY12-,40 80+,SY6-;PR48 80+,SY12-,6ME,1;EX;
  158.  
  159. UI BJ,5;[SZP4;IFP5P1=;[BUP1,P2,P3,ZVTW16+,12,0,0,1;[LI0,0,43BP3*+,ZVTW16+;
  160. SF0,2;PRZVCX,2,ZV,1;SF0,0;][BR0;]]IFP5P1\;[BUP1,P2,P3,ZVTW16+,12,0,0,1;
  161. [LI0,0,43BP3*+,ZVTW16+;PRZVCX,2,ZV,1;][BR0;]]]
  162.  
  163. UI RS,3;[BO0,0,69,P1,P2;LI0,0,31,P1;PR4,1,P3,1;]
  164.  
  165. END PROGRAM
  166.  
  167. PROGRAM 5 Titlebar
  168.  
  169. SISX,SY;IN1,0,0;GB0,1,640,11;PR4,2,0VA,0;
  170. BU 1,620,1,23,11,0,0,1;[UN0,0,98BP+;][BR0;]
  171. EX;
  172.  
  173. END PROGRAM
  174.  
  175. PROGRAM 6 AGUI requesters
  176.  
  177. LA 0; EX;
  178.  
  179. LA 5;
  180. SI7VA8*40+450MI230MA,41 0VA9*+24+;
  181. BASWSX-2/,SHSY-2/;SA1;RSSX,SY,13VA;IF0VA0\;[BO8,13,81,SX8-,SY14-;
  182. ]SV15,10VATL8+;IF0VA0>;[PR1VACX,18,1VA,1;]IF0VA1>;[PR2VACX,18 9+,2VA,1;
  183. ]IF0VA2>;[PR3VACX,18 18+,3VA,1;]IF0VA3>;[PR4VACX,18 27+,4VA,1;]IF0VA4>;
  184. [PR5VACX,18 36+,5VA,1;]IF0VA5>;[PR6VACX,18 45+,6VA,1;]UN16,SY14-30-,13;
  185. UNSX72-,SY14-30-,14;BJ1,SX9VATW16+-2/,SY14-,9VA,12VA;KY$FF,0;EX;
  186.  
  187. LA 7;
  188. BASW140 12VA8*+-2/,SH144-2/;SI140 12VA8*+,144;SA1;RSSX,SY,0VA;
  189. BJ1,8,SY14-,19ME,1;KY13,0;BJ2,SX20METW-24-,SY14-,20ME,1;KY27,0;SS0,0,0,1,1,1,1,1;
  190. IN0,2,0;BO8,15,81,12 8*,SY16-;SV1,34ME;BJ3,16,20,1VA,0;SV1,35ME;
  191. BJ4,16,35,1VA,0;SV1,36ME;BJ11,16,50,1VA,0;SV1,37ME;BJ12,16,65,1VA,0;
  192. SV1,38ME;BJ13,16,80,1VA,0;SV1,39ME;BJ14,16,95,1VA,0;SV1,40ME;BJ6,16,110,1VA,0;
  193. SV1,112 16-;BO8 1VA+,14,1,3 12VA+8*1VA+,13 8*14+;ED5,16 1VA+,15 13 8*+,12VA,12VA,"",0,1;
  194. LI8 1VA+,14 13 8*+,28,3 12VA+8*1VA+;AL9,16 1VA+,16,12VA,12,3VA,0,0,0,1;
  195. [SV15,ZP;]VL24 12VA8*+1VA+,14,59,14 12 8*+2+;VS10,24 12VA8*+4+1VA+,16,8,13 8*8-2-,0,1,4VA,1;
  196. [SV2,ZP;ZC9,ZP;]BU8,24 12VA8*+1VA+,112,16,8,0,0,1;[UN0,0,65BP+;][SV2,2VA1-0MA;
  197. ZC10,2VA;BR0;]BU7,24 12VA8*+1VA+,120,16,8,0,0,1;[UN0,0,67BP+;][SV2,2VA1+4VAMI;
  198. ZC10,2VA;BR0;]
  199. EX;
  200.  
  201. UI BJ,5;[SZP4;IFP5P1=;[BUP1,P2,P3,ZVTW16+,12,0,0,1;
  202. [LI0,0,43BP3*+,ZVTW16+;SF0,2;PRZVCX,2,ZV,1;SF0,0;][BR0;]]IFP5P1\;
  203. [BUP1,P2,P3,ZVTW16+,12,0,0,1;[LI0,0,43BP3*+,ZVTW16+;PRZVCX,2,ZV,1;
  204. ][BR0;]]SF0,0;]
  205.  
  206. UI RS,3;[BO0,0,69,P1,P2;LI0,0,31,P1;PR4,1,P3,1;]
  207.  
  208. END PROGRAM
  209.