home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB20.ZIP / PIBPICT.LIS < prev    next >
Encoding:
File List  |  1985-03-07  |  12.0 KB  |  341 lines
  1. Number is       -1234.78000
  2. Picture is 9999999999
  3. Result is  0000001235     Ierr = 1
  4. --------------------------------------------------
  5. Number is       -1234.78000
  6. Picture is ZZZZZZZZZZ
  7. Result is        1235     Ierr = 1
  8. --------------------------------------------------
  9. Number is       -1234.78000
  10. Picture is 999,999,999.99
  11. Result is  000,001,234.78     Ierr = 1
  12. --------------------------------------------------
  13. Number is       -1234.78000
  14. Picture is ZZZ,ZZZ,ZZZ.ZZ
  15. Result is        1,234.78     Ierr = 1
  16. --------------------------------------------------
  17. Number is       -1234.78000
  18. Picture is ---,---,---.99
  19. Result is       -1,234.78     Ierr = 0
  20. --------------------------------------------------
  21. Number is       -1234.78000
  22. Picture is ---,---,---.ZZ
  23. Result is       -1,234.78     Ierr = 0
  24. --------------------------------------------------
  25. Number is       -1234.78000
  26. Picture is +++,+++,+++.99
  27. Result is       -1,234.78     Ierr = 0
  28. --------------------------------------------------
  29. Number is       -1234.78000
  30. Picture is +++,+++,+++.ZZ
  31. Result is       -1,234.78     Ierr = 0
  32. --------------------------------------------------
  33. Number is       -1234.78000
  34. Picture is ZZZ,ZZZ,ZZZ.ZZZZ
  35. Result is        1,234.7800     Ierr = 1
  36. --------------------------------------------------
  37. Number is       -1234.78000
  38. Picture is ZZZ,999,999.Z
  39. Result is      001,234.8     Ierr = 1
  40. --------------------------------------------------
  41. Number is       -1234.78000
  42. Picture is ZZZ,ZZZ,ZZZ.ZZZ-
  43. Result is        1,234.780-     Ierr = 0
  44. --------------------------------------------------
  45. Number is       -1234.78000
  46. Picture is ZZZ,ZZZ,ZZZ.ZZZ+
  47. Result is        1,234.780      Ierr = 0
  48. --------------------------------------------------
  49. Number is       -1234.78000
  50. Picture is $$$,$$$,$$$.99
  51. Result is       $1,234.78     Ierr = 1
  52. --------------------------------------------------
  53. Number is       -1234.78000
  54. Picture is -$$,$$$,$$$.99
  55. Result is  -    $1,234.78     Ierr = 0
  56. --------------------------------------------------
  57. Number is       -1234.78000
  58. Picture is $$$,$$$,$$$.99+
  59. Result is       $1,234.78      Ierr = 0
  60. --------------------------------------------------
  61. Number is       -1234.78000
  62. Picture is $$$,$$$,$$$.99-
  63. Result is       $1,234.78-     Ierr = 0
  64. --------------------------------------------------
  65. Number is        1234.78000
  66. Picture is $$$,$$$,$$$.99+
  67. Result is       $1,234.78+     Ierr = 0
  68. --------------------------------------------------
  69. Number is        1234.78000
  70. Picture is $$$,$$$,$$$.99-
  71. Result is       $1,234.78      Ierr = 0
  72. --------------------------------------------------
  73. Number is       -1234.78000
  74. Picture is $**,***,***.99
  75. Result is  $*****1,234.78     Ierr = 1
  76. --------------------------------------------------
  77. Number is       -1234.78000
  78. Picture is -$*,***,***.99
  79. Result is  -$****1,234.78     Ierr = 0
  80. --------------------------------------------------
  81. Number is       -1234.78000
  82. Picture is $**,***,***.99-
  83. Result is  $*****1,234.78-     Ierr = 0
  84. --------------------------------------------------
  85. Number is       -1234.78000
  86. Picture is $**,***,***.99+
  87. Result is  $*****1,234.78      Ierr = 0
  88. --------------------------------------------------
  89. Number is       -1234.78000
  90. Picture is +$*,***,***.99
  91. Result is  -$****1,234.78     Ierr = 0
  92. --------------------------------------------------
  93. Number is       -1234.78000
  94. Picture is (ZZZZ.99)
  95. Result is  (1234.78)     Ierr = 1
  96. --------------------------------------------------
  97. Number is       -1234.78000
  98. Picture is (((((.99)
  99. Result is  (1234.78)     Ierr = 1
  100. --------------------------------------------------
  101. Number is       -1234.78000
  102. Picture is (ZZZZ.99)
  103. Result is  (1234.78)     Ierr = 1
  104. --------------------------------------------------
  105. Number is       -1234.78000
  106. Picture is (((((.99)
  107. Result is  (1234.78)     Ierr = 1
  108. --------------------------------------------------
  109. Number is       -1234.78000
  110. Picture is $ZZZZZ.99CR
  111. Result is  $ 1234.78CR     Ierr = 0
  112. --------------------------------------------------
  113. Number is       -1234.78000
  114. Picture is $ZZZZZ.99DB
  115. Result is  $ 1234.78DB     Ierr = 0
  116. --------------------------------------------------
  117. Number is        1234.78000
  118. Picture is $ZZZZZ.99CR
  119. Result is  $ 1234.78       Ierr = 0
  120. --------------------------------------------------
  121. Number is        1234.78000
  122. Picture is $ZZZZZ.99DB
  123. Result is  $ 1234.78       Ierr = 0
  124. --------------------------------------------------
  125. Number is        -234.78000
  126. Picture is 9999999999
  127. Result is  0000000235     Ierr = 1
  128. --------------------------------------------------
  129. Number is        -234.78000
  130. Picture is ZZZZZZZZZZ
  131. Result is         235     Ierr = 1
  132. --------------------------------------------------
  133. Number is        -234.78000
  134. Picture is 999,999,999.99
  135. Result is  000,000,234.78     Ierr = 1
  136. --------------------------------------------------
  137. Number is        -234.78000
  138. Picture is ZZZ,ZZZ,ZZZ.ZZ
  139. Result is          234.78     Ierr = 1
  140. --------------------------------------------------
  141. Number is        -234.78000
  142. Picture is ---,---,---.99
  143. Result is         -234.78     Ierr = 0
  144. --------------------------------------------------
  145. Number is        -234.78000
  146. Picture is ---,---,---.ZZ
  147. Result is         -234.78     Ierr = 0
  148. --------------------------------------------------
  149. Number is        -234.78000
  150. Picture is +++,+++,+++.99
  151. Result is         -234.78     Ierr = 0
  152. --------------------------------------------------
  153. Number is        -234.78000
  154. Picture is +++,+++,+++.ZZ
  155. Result is         -234.78     Ierr = 0
  156. --------------------------------------------------
  157. Number is        -234.78000
  158. Picture is ZZZ,ZZZ,ZZZ.ZZZZ
  159. Result is          234.7800     Ierr = 1
  160. --------------------------------------------------
  161. Number is        -234.78000
  162. Picture is ZZZ,999,999.Z
  163. Result is      000,234.8     Ierr = 1
  164. --------------------------------------------------
  165. Number is        -234.78000
  166. Picture is ZZZ,ZZZ,ZZZ.ZZZ-
  167. Result is          234.780-     Ierr = 0
  168. --------------------------------------------------
  169. Number is        -234.78000
  170. Picture is ZZZ,ZZZ,ZZZ.ZZZ+
  171. Result is          234.780      Ierr = 0
  172. --------------------------------------------------
  173. Number is        -234.78000
  174. Picture is $$$,$$$,$$$.99
  175. Result is         $234.78     Ierr = 1
  176. --------------------------------------------------
  177. Number is        -234.78000
  178. Picture is -$$,$$$,$$$.99
  179. Result is  -      $234.78     Ierr = 0
  180. --------------------------------------------------
  181. Number is        -234.78000
  182. Picture is $$$,$$$,$$$.99+
  183. Result is         $234.78      Ierr = 0
  184. --------------------------------------------------
  185. Number is        -234.78000
  186. Picture is $$$,$$$,$$$.99-
  187. Result is         $234.78-     Ierr = 0
  188. --------------------------------------------------
  189. Number is         234.78000
  190. Picture is $$$,$$$,$$$.99+
  191. Result is         $234.78+     Ierr = 0
  192. --------------------------------------------------
  193. Number is         234.78000
  194. Picture is $$$,$$$,$$$.99-
  195. Result is         $234.78      Ierr = 0
  196. --------------------------------------------------
  197. Number is        -234.78000
  198. Picture is $**,***,***.99
  199. Result is  $*******234.78     Ierr = 1
  200. --------------------------------------------------
  201. Number is        -234.78000
  202. Picture is -$*,***,***.99
  203. Result is  -$******234.78     Ierr = 0
  204. --------------------------------------------------
  205. Number is        -234.78000
  206. Picture is $**,***,***.99-
  207. Result is  $*******234.78-     Ierr = 0
  208. --------------------------------------------------
  209. Number is        -234.78000
  210. Picture is $**,***,***.99+
  211. Result is  $*******234.78      Ierr = 0
  212. --------------------------------------------------
  213. Number is        -234.78000
  214. Picture is +$*,***,***.99
  215. Result is  -$******234.78     Ierr = 0
  216. --------------------------------------------------
  217. Number is        -234.78000
  218. Picture is (ZZZZ.99)
  219. Result is  ( 234.78)     Ierr = 1
  220. --------------------------------------------------
  221. Number is        -234.78000
  222. Picture is (((((.99)
  223. Result is   (234.78)     Ierr = 1
  224. --------------------------------------------------
  225. Number is        -234.78000
  226. Picture is (ZZZZ.99)
  227. Result is  ( 234.78)     Ierr = 1
  228. --------------------------------------------------
  229. Number is        -234.78000
  230. Picture is (((((.99)
  231. Result is   (234.78)     Ierr = 1
  232. --------------------------------------------------
  233. Number is         234.78000
  234. Picture is (ZZZZ.99)
  235. Result is    234.78     Ierr = 0
  236. --------------------------------------------------
  237. Number is         234.78000
  238. Picture is (((((.99)
  239. Result is    234.78     Ierr = 0
  240. --------------------------------------------------
  241. Number is         234.78000
  242. Picture is (ZZZZ.99)
  243. Result is    234.78     Ierr = 0
  244. --------------------------------------------------
  245. Number is         234.78000
  246. Picture is (((((.99)
  247. Result is    234.78     Ierr = 0
  248. --------------------------------------------------
  249. Number is        -234.78000
  250. Picture is $ZZZZZ.99CR
  251. Result is  $  234.78CR     Ierr = 0
  252. --------------------------------------------------
  253. Number is        -234.78000
  254. Picture is $ZZZZZ.99DB
  255. Result is  $  234.78DB     Ierr = 0
  256. --------------------------------------------------
  257. Number is         234.78000
  258. Picture is $ZZZZZ.99CR
  259. Result is  $  234.78       Ierr = 0
  260. --------------------------------------------------
  261. Number is         234.78000
  262. Picture is $ZZZZZ.99DB
  263. Result is  $  234.78       Ierr = 0
  264. --------------------------------------------------
  265. Number is   111111111.00000
  266. Picture is 999-99-9999
  267. Result is  111-11-1111     Ierr = 0
  268. --------------------------------------------------
  269. Number is   111111111.00000
  270. Picture is 999+99+9999
  271. Result is  111+11+1111     Ierr = 0
  272. --------------------------------------------------
  273. Number is   111111111.00000
  274. Picture is 999/99/9999
  275. Result is  111/11/1111     Ierr = 0
  276. --------------------------------------------------
  277. Number is  -111111111.00000
  278. Picture is 999-99-9999-
  279. Result is  111-11-1111-     Ierr = 0
  280. --------------------------------------------------
  281. Number is  -111111111.00000
  282. Picture is -999-99-9999
  283. Result is  -111-11-1111     Ierr = 0
  284. --------------------------------------------------
  285. Number is  -111111111.00000
  286. Picture is -999-99-9999-
  287. Result is   111-11-1111-     Ierr = 0
  288. --------------------------------------------------
  289. Number is  -111111111.00000
  290. Picture is -999-99-9999+
  291. Result is   111-11-1111      Ierr = 0
  292. --------------------------------------------------
  293. Number is   111111111.00000
  294. Picture is 999B99B9999
  295. Result is  111 11 1111     Ierr = 0
  296. --------------------------------------------------
  297. Number is           0.00000
  298. Picture is Z,ZZZ,ZZZ
  299. Result is          0     Ierr = 0
  300. --------------------------------------------------
  301. Number is         123.00000
  302. Picture is Z,ZZZ,ZZZ
  303. Result is        123     Ierr = 0
  304. --------------------------------------------------
  305. Number is        1234.00000
  306. Picture is Z,ZZZ,ZZZ
  307. Result is      1,234     Ierr = 0
  308. --------------------------------------------------
  309. Number is       10345.00000
  310. Picture is Z,ZZZ,ZZZ
  311. Result is     10,345     Ierr = 0
  312. --------------------------------------------------
  313. Number is      100345.00000
  314. Picture is Z,ZZZ,ZZZ
  315. Result is    100,345     Ierr = 0
  316. --------------------------------------------------
  317. Number is     1000245.00000
  318. Picture is Z,ZZZ,ZZZ
  319. Result is  1,000,245     Ierr = 0
  320. --------------------------------------------------
  321. Number is         100.23000
  322. Picture is SZZZ.99
  323. Result is  +100.23     Ierr = 0
  324. --------------------------------------------------
  325. Number is        -100.23000
  326. Picture is SZZZ.99
  327. Result is  -100.23     Ierr = 0
  328. --------------------------------------------------
  329. Number is           0.00100
  330. Picture is ZZZZZ.ZZZZ
  331. Result is      0.0010     Ierr = 0
  332. --------------------------------------------------
  333. Number is          12.50000
  334. Picture is SSSSS.99
  335. Result is    +12.50     Ierr = 0
  336. --------------------------------------------------
  337. Number is         -12.50000
  338. Picture is SSSSS.99
  339. Result is    -12.50     Ierr = 0
  340. --------------------------------------------------
  341.