home *** CD-ROM | disk | FTP | other *** search
/ Magic Disk 64 / Magic_Disk_64_91-07_1991_-_de_Side_B.d64 / Bakchart < prev    next >
Encoding:
Text File  |  1996-01-01  |  2.6 KB  |  224 lines
  1. {$f3}/clr
  2. scnclr
  3. sign40
  4. zz$="$%ABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890 "
  5. zz$=zz$+"abcdefghijklmnopqrstuvwxyz"
  6. cursor15,0
  7. modus1
  8. print"Bankchart"
  9. modus0
  10. window 7,4,25,3
  11. q=0
  12. dountilq=5
  13. q=q+1
  14. line1,63,32-q,255,32-q
  15. line1,255+q,27,255+q,48
  16. loop
  17. q=0
  18. cursor8,5
  19. print"Datenanzahl (max.07):"
  20. :eingabe
  21. cursor29,5
  22. input1,"1234567 ",n
  23. ifn<1:eingabe
  24. dime(n),f(n),g(n),p(n),q(n),r(n)
  25. window2,10,36,9
  26. sign40
  27. dountilq=5
  28. q=q+1
  29. line1,23,80-q,303,80-q
  30. line1,303+q,75,303+q,144
  31. loop
  32. q=0
  33. i=0
  34. dountili=6
  35. i=i+2
  36. cursor10,10+i
  37. print"Name Bank";i/2;":"
  38. cursor23,10+i
  39. j=i/2
  40. input9,zz$,na$(j)
  41. loop
  42. i=0
  43. j=0
  44. dountili=6
  45. i=i+2
  46. cursor10,10+i
  47. print"                          "
  48. loop
  49. i=0
  50. dountili=n
  51. i=i+1
  52. cursor7,10+i
  53. print"Bank 1 / Wert Nr.";i;":"
  54. cursor28,10+i
  55. input4,"1234567890. ",e(i)
  56. loop
  57. i=0
  58. dountili=n
  59. i=i+1
  60. cursor7,10+i
  61. print"                         "
  62. loop
  63. i=0
  64. dountili=n
  65. i=i+1
  66. cursor7,10+i
  67. print"Bank 2 / Wert Nr.";i;":"
  68. cursor28,10+i
  69. input4,"1234567890. ",f(i)
  70. loop
  71. i=0
  72. dountili=n
  73. i=i+1
  74. cursor7,10+i
  75. print"                         "
  76. loop
  77. i=0
  78. dountili=n
  79. i=i+1
  80. cursor7,10+i
  81. print"Bank 3 / Wert Nr.";i;":"
  82. cursor28,10+i
  83. input4,"1234567890. ",g(i)
  84. loop
  85. i=0
  86. window1,15,38,3
  87. dountili=5
  88. i=i+1
  89. line1,15,114+i,311,114+i
  90. line1,310+i,115,310+i,137
  91. loop
  92. i=0
  93. cursor2,16
  94. print"Leg:"
  95. cursor6,16
  96. input32,zz$,te$
  97. window8,14,25,5
  98. dountili=5
  99. i=i+1
  100. line1,71,112-i,263,112-i
  101. line1,263+i,107,263+i,144
  102. loop
  103. cursor10,15
  104. print"Hoechster Skalenwert:"
  105. :korrektur
  106. cursor17,17
  107. input4,"0123456789 ",m
  108. ifm<10:korrektur
  109. window1,1,1,1
  110. window
  111. i=0
  112. dountili=n
  113. i=i+1
  114. p(i)=int(180-e(i)/m*150)
  115. q(i)=int(180-f(i)/m*150)
  116. r(i)=int(180-g(i)/m*150)
  117. loop
  118. i=0
  119. scnclr
  120. cursor15,0
  121. modus1
  122. print"Bankchart"
  123. modus0
  124. line1,35,180,35,30
  125. dountili=6
  126. u=180-i*30
  127. line1,33,u,37,u
  128. i=i+1
  129. loop
  130. i=0
  131. dountili=6
  132. we=int(m/10*i*2)
  133. w1$=str$(we)
  134. we$=mid$(w1$,2,4)
  135. ifwe<1000
  136. begin
  137. l=1
  138. else
  139. l=0
  140. end
  141. po=int((180-i*30)/8)
  142. cursorl,po
  143. printwe$
  144. i=i+1
  145. loop
  146. i=0
  147. line1,35,180,45+38*n,180
  148. box1,33,192,38,198
  149. dountili=5
  150. i=i+1
  151. j=i+192
  152. line1,33,j,38,j
  153. loop
  154. i=0
  155. j=0
  156. box1,128,192,134,198
  157. box1,224,192,230,198
  158. box1,224,194,230,198
  159. box1,224,196,230,198
  160. cursor5,24
  161. print"=";na$(1)
  162. cursor17,24
  163. print"=";na$(2)
  164. cursor29,24
  165. print"=";na$(3)
  166. px=40
  167. df=40
  168. i=0
  169. dountili=n
  170. j=0
  171. k=0
  172. l=0
  173. i=i+1
  174. ife(i)<1:rekurs1
  175. box1,px,p(i),px+5,180
  176. l=180-p(i)
  177. dountilj=l
  178. j=j+1
  179. k=180-j
  180. line1,px,k,px+5,k
  181. loop
  182. :rekurs1
  183. px=px+df
  184. loop
  185. i=0
  186. px=50
  187. df=40
  188. dountili=n
  189. i=i+1
  190. iff(i)<1:rekurs2
  191. box1,px,q(i),px+5,180
  192. :rekurs2
  193. px=px+df
  194. loop
  195. i=0
  196. px=60
  197. df=40
  198. dountili=n
  199. j=0
  200. k=0
  201. l=0
  202. i=i+1
  203. ifg(i)<1:rekurs3
  204. box1,px,r(i),px+5,180
  205. l=(180-r(i))-3
  206. dountilj>l
  207. j=j+3
  208. k=180-j
  209. line1,px,k,px+5,k
  210. loop
  211. :rekurs3
  212. px=px+df
  213. loop
  214. cursor6,1
  215. printte$
  216. cursor4,23
  217. input35,zz$,tx$
  218. cursor4,23
  219. printtx$
  220. do
  221. loop
  222. end.
  223.  
  224.  
  225. z