/ Acorn RISC PD-CD 1 / Acorn RISC PD-CD 1.iso / utilities / powerbase / userfuncs

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 17 f4 20 3e 26 | 2e 4b 65 65 70 2e 55 73 |..... >&|.Keep.Us|
|00000010| 65 72 46 75 6e 63 73 0d | 00 14 05 3a 0d 00 1e 1f |erFuncs.|...:....|
|00000020| dd 20 a4 55 61 67 65 69 | 6e 79 72 73 28 64 61 74 |. .Uagei|nyrs(dat|
|00000030| 65 31 24 2c 64 61 74 65 | 32 24 29 0d 00 28 0f 20 |e1$,date|2$)..(. |
|00000040| f4 20 2d 2d 2d 20 76 2e | 30 32 0d 00 32 41 20 f4 |. --- v.|02..2A .|
|00000050| 20 2d 2d 2d 20 64 61 74 | 65 31 24 20 26 20 64 61 | --- dat|e1$ & da|
|00000060| 74 65 32 24 20 69 6e 20 | 66 6f 72 6d 61 74 20 3a |te2$ in |format :|
|00000070| 20 22 44 44 2d 4d 4d 2d | 59 59 22 20 6f 72 20 22 | "DD-MM-|YY" or "|
|00000080| 44 44 2d 4d 4d 2d 59 59 | 59 59 22 0d 00 3c 31 20 |DD-MM-YY|YY"..<1 |
|00000090| f4 20 2d 2d 2d 20 44 6f | 65 73 20 4e 4f 54 20 68 |. --- Do|es NOT h|
|000000a0| 61 6e 64 6c 65 20 63 65 | 6e 74 75 72 79 20 77 72 |andle ce|ntury wr|
|000000b0| 61 70 2d 61 72 6f 75 6e | 64 20 21 21 0d 00 46 32 |ap-aroun|d !!..F2|
|000000c0| 20 ea 20 64 31 25 2c 64 | 32 25 2c 6d 31 25 2c 6d | . d1%,d|2%,m1%,m|
|000000d0| 32 25 2c 79 31 25 2c 79 | 32 25 2c 61 67 65 25 2c |2%,y1%,y|2%,age%,|
|000000e0| 61 67 65 24 20 3a 20 61 | 67 65 24 3d 22 22 0d 00 |age$ : a|ge$=""..|
|000000f0| 50 20 20 e7 20 64 61 74 | 65 31 24 3c 3e 22 22 20 |P  . dat|e1$<>"" |
|00000100| 80 20 64 61 74 65 32 24 | 3c 3e 22 22 20 8c 0d 00 |. date2$|<>"" ...|
|00000110| 5a 3e 20 20 20 64 31 25 | 3d bb 28 c0 64 61 74 65 |Z>   d1%|=.(.date|
|00000120| 31 24 2c 32 29 29 3a 6d | 31 25 3d bb 28 c1 64 61 |1$,2)):m|1%=.(.da|
|00000130| 74 65 31 24 2c 34 2c 32 | 29 29 3a 79 31 25 3d bb |te1$,4,2|)):y1%=.|
|00000140| 28 c2 64 61 74 65 31 24 | 2c 32 29 29 0d 00 64 3e |(.date1$|,2))..d>|
|00000150| 20 20 20 64 32 25 3d bb | 28 c0 64 61 74 65 32 24 |   d2%=.|(.date2$|
|00000160| 2c 32 29 29 3a 6d 32 25 | 3d bb 28 c1 64 61 74 65 |,2)):m2%|=.(.date|
|00000170| 32 24 2c 34 2c 32 29 29 | 3a 79 32 25 3d bb 28 c2 |2$,4,2))|:y2%=.(.|
|00000180| 64 61 74 65 32 24 2c 32 | 29 29 0d 00 6e 48 20 20 |date2$,2|))..nH  |
|00000190| 20 e7 20 79 32 25 3c 79 | 31 25 20 84 20 28 79 32 | . y2%<y|1% . (y2|
|000001a0| 25 3d 79 31 25 20 80 20 | 6d 32 25 3c 6d 31 25 29 |%=y1% . |m2%<m1%)|
|000001b0| 20 84 20 28 79 32 25 3d | 79 31 25 20 80 20 6d 32 | . (y2%=|y1% . m2|
|000001c0| 25 3d 6d 31 25 20 80 20 | 64 32 25 3c 64 31 25 29 |%=m1% . |d2%<d1%)|
|000001d0| 20 8c 0d 00 78 12 20 20 | 20 20 20 61 67 65 24 3d | ...x.  |   age$=|
|000001e0| 22 2d 2d 22 0d 00 82 08 | 20 20 20 cc 0d 00 8c 15 |"--"....|   .....|
|000001f0| 20 20 20 20 20 61 67 65 | 25 3d 79 32 25 2d 79 31 |     age|%=y2%-y1|
|00000200| 25 0d 00 96 0f 20 20 20 | 20 20 c8 8e 20 b9 20 ca |%....   |  .. . .|
|00000210| 0d 00 a0 20 20 20 20 20 | 20 20 20 c9 20 28 6d 32 |...     |   . (m2|
|00000220| 25 3c 6d 31 25 29 20 3a | 20 61 67 65 25 2d 3d 31 |%<m1%) :| age%-=1|
|00000230| 0d 00 aa 2c 20 20 20 20 | 20 20 20 c9 20 28 6d 32 |...,    |   . (m2|
|00000240| 25 3d 6d 31 25 29 20 80 | 20 28 64 32 25 3c 64 31 |%=m1%) .| (d2%<d1|
|00000250| 25 29 20 3a 20 61 67 65 | 25 2d 3d 31 0d 00 b4 0a |%) : age|%-=1....|
|00000260| 20 20 20 20 20 cb 0d 00 | be 15 20 20 20 20 20 61 |     ...|..     a|
|00000270| 67 65 24 3d c3 28 61 67 | 65 25 29 0d 00 c8 08 20 |ge$=.(ag|e%).... |
|00000280| 20 20 cd 0d 00 d2 06 20 | cd 0d 00 dc 09 3d 61 67 |  ..... |.....=ag|
|00000290| 65 24 0d 00 e6 05 3a 0d | 00 f0 17 dd 20 a4 55 64 |e$....:.|.... .Ud|
|000002a0| 61 74 65 38 28 64 25 2c | 6d 25 2c 79 25 29 0d 00 |ate8(d%,|m%,y%)..|
|000002b0| fa 0f 20 f4 20 2d 2d 2d | 20 76 2e 30 31 0d 01 04 |.. . ---| v.01...|
|000002c0| 43 20 f4 20 2d 2d 2d 20 | 52 65 74 75 72 6e 73 20 |C . --- |Returns |
|000002d0| 61 20 73 74 72 69 6e 67 | 20 28 44 44 2d 4d 4d 2d |a string| (DD-MM-|
|000002e0| 59 59 29 20 66 72 6f 6d | 20 74 68 65 20 64 61 79 |YY) from| the day|
|000002f0| 2c 20 6d 6f 6e 74 68 20 | 61 6e 64 20 79 65 61 72 |, month |and year|
|00000300| 0d 01 0e 3a 20 f4 20 20 | 20 20 20 69 6e 74 65 67 |...: .  |   integ|
|00000310| 65 72 20 70 61 72 61 6d | 65 74 65 72 73 20 64 25 |er param|eters d%|
|00000320| 2c 20 6d 25 2c 20 61 6e | 64 20 79 25 20 72 65 73 |, m%, an|d y% res|
|00000330| 70 65 63 74 69 76 65 6c | 79 2e 0d 01 18 4a 20 f4 |pectivel|y....J .|
|00000340| 20 20 20 20 20 52 65 74 | 75 72 6e 73 20 6e 75 6c |     Ret|urns nul|
|00000350| 6c 20 73 74 72 69 6e 67 | 20 69 66 20 61 6e 79 20 |l string| if any |
|00000360| 70 61 72 61 6d 65 74 65 | 72 20 3d 20 30 20 28 6f |paramete|r = 0 (o|
|00000370| 72 20 69 73 20 61 6e 20 | 65 6d 70 74 79 20 66 69 |r is an |empty fi|
|00000380| 65 6c 64 29 0d 01 22 20 | 20 ea 20 64 61 74 65 24 |eld).." | . date$|
|00000390| 2c 64 24 2c 6d 24 2c 79 | 24 20 3a 20 64 61 74 65 |,d$,m$,y|$ : date|
|000003a0| 24 3d 22 22 0d 01 2c 34 | 20 e7 20 64 25 3e 30 20 |$=""..,4| . d%>0 |
|000003b0| 80 20 64 25 3c 33 32 20 | 80 20 6d 25 3e 30 20 80 |. d%<32 |. m%>0 .|
|000003c0| 20 6d 25 3c 31 33 20 80 | 20 79 25 3e 30 20 80 20 | m%<13 .| y%>0 . |
|000003d0| 79 25 3c 31 30 30 20 8c | 0d 01 36 21 20 20 20 64 |y%<100 .|..6!   d|
|000003e0| 24 3d c3 28 64 25 29 3a | 6d 24 3d c3 28 6d 25 29 |$=.(d%):|m$=.(m%)|
|000003f0| 3a 79 24 3d c3 28 79 25 | 29 0d 01 40 18 20 20 20 |:y$=.(y%|)..@.   |
|00000400| e7 20 64 25 3c 31 30 20 | 64 24 3d 22 30 22 2b 64 |. d%<10 |d$="0"+d|
|00000410| 24 0d 01 4a 18 20 20 20 | e7 20 6d 25 3c 31 30 20 |$..J.   |. m%<10 |
|00000420| 6d 24 3d 22 30 22 2b 6d | 24 0d 01 54 18 20 20 20 |m$="0"+m|$..T.   |
|00000430| e7 20 79 25 3c 31 30 20 | 79 24 3d 22 30 22 2b 79 |. y%<10 |y$="0"+y|
|00000440| 24 0d 01 5e 1d 20 20 20 | 64 61 74 65 24 3d 64 24 |$..^.   |date$=d$|
|00000450| 2b 22 2d 22 2b 6d 24 2b | 22 2d 22 2b 79 24 0d 01 |+"-"+m$+|"-"+y$..|
|00000460| 68 06 20 cd 0d 01 72 0a | 3d 64 61 74 65 24 0d 01 |h. ...r.|=date$..|
|00000470| 7c 05 3a 0d 01 86 0b dd | 20 a4 55 6e 6f 77 0d 01 ||.:.....| .Unow..|
|00000480| 90 0f 20 f4 20 2d 2d 2d | 20 76 2e 30 31 0d 01 9a |.. . ---| v.01...|
|00000490| 36 20 f4 20 2d 2d 2d 20 | 52 65 74 75 72 6e 73 20 |6 . --- |Returns |
|000004a0| 63 75 72 72 65 6e 74 20 | 64 61 74 65 20 69 6e 20 |current |date in |
|000004b0| 66 6f 72 6d 61 74 20 3a | 20 22 44 44 2d 4d 4d 2d |format :| "DD-MM-|
|000004c0| 59 59 22 0d 01 a4 1e 20 | ea 20 6d 6f 6e 24 2c 6d |YY".... |. mon$,m|
|000004d0| 24 20 3a 20 6d 6f 6e 24 | 3d c1 91 24 2c 38 2c 33 |$ : mon$|=..$,8,3|
|000004e0| 29 0d 01 ae 0e 20 c8 8e | 20 6d 6f 6e 24 20 ca 0d |).... ..| mon$ ..|
|000004f0| 01 b8 18 20 20 20 c9 20 | 22 4a 61 6e 22 20 3a 20 |...   . |"Jan" : |
|00000500| 6d 24 3d 22 30 31 22 0d | 01 c2 18 20 20 20 c9 20 |m$="01".|...   . |
|00000510| 22 46 65 62 22 20 3a 20 | 6d 24 3d 22 30 32 22 0d |"Feb" : |m$="02".|
|00000520| 01 cc 18 20 20 20 c9 20 | 22 4d 61 72 22 20 3a 20 |...   . |"Mar" : |
|00000530| 6d 24 3d 22 30 33 22 0d | 01 d6 18 20 20 20 c9 20 |m$="03".|...   . |
|00000540| 22 41 70 72 22 20 3a 20 | 6d 24 3d 22 30 34 22 0d |"Apr" : |m$="04".|
|00000550| 01 e0 18 20 20 20 c9 20 | 22 4d 61 79 22 20 3a 20 |...   . |"May" : |
|00000560| 6d 24 3d 22 30 35 22 0d | 01 ea 18 20 20 20 c9 20 |m$="05".|...   . |
|00000570| 22 4a 75 6e 22 20 3a 20 | 6d 24 3d 22 30 36 22 0d |"Jun" : |m$="06".|
|00000580| 01 f4 18 20 20 20 c9 20 | 22 4a 75 6c 22 20 3a 20 |...   . |"Jul" : |
|00000590| 6d 24 3d 22 30 37 22 0d | 01 fe 18 20 20 20 c9 20 |m$="07".|...   . |
|000005a0| 22 41 75 67 22 20 3a 20 | 6d 24 3d 22 30 38 22 0d |"Aug" : |m$="08".|
|000005b0| 02 08 18 20 20 20 c9 20 | 22 53 65 70 22 20 3a 20 |...   . |"Sep" : |
|000005c0| 6d 24 3d 22 30 39 22 0d | 02 12 18 20 20 20 c9 20 |m$="09".|...   . |
|000005d0| 22 4f 63 74 22 20 3a 20 | 6d 24 3d 22 31 30 22 0d |"Oct" : |m$="10".|
|000005e0| 02 1c 18 20 20 20 c9 20 | 22 4e 6f 76 22 20 3a 20 |...   . |"Nov" : |
|000005f0| 6d 24 3d 22 31 31 22 0d | 02 26 18 20 20 20 c9 20 |m$="11".|.&.   . |
|00000600| 22 44 65 63 22 20 3a 20 | 6d 24 3d 22 31 32 22 0d |"Dec" : |m$="12".|
|00000610| 02 30 13 20 20 20 7f 20 | 20 3a 20 6d 24 3d 22 3f |.0.   . | : m$="?|
|00000620| 3f 22 0d 02 3a 06 20 cb | 0d 02 44 22 3d c1 91 24 |?"..:. .|..D"=..$|
|00000630| 2c 35 2c 32 29 2b 22 2d | 22 2b 6d 24 2b 22 2d 22 |,5,2)+"-|"+m$+"-"|
|00000640| 2b c1 91 24 2c 31 34 2c | 32 29 0d 02 4e 05 3a 0d |+..$,14,|2)..N.:.|
|00000650| 02 58 2d dd 20 a4 55 6e | 61 6d 65 28 73 75 72 6e |.X-. .Un|ame(surn|
|00000660| 61 6d 65 24 2c 66 6f 72 | 65 6e 61 6d 65 24 2c 6d |ame$,for|ename$,m|
|00000670| 69 64 64 6c 65 6e 61 6d | 65 73 24 29 0d 02 62 46 |iddlenam|es$)..bF|
|00000680| f4 20 23 23 23 20 52 65 | 74 75 72 6e 73 20 6e 61 |. ### Re|turns na|
|00000690| 6d 65 20 61 73 20 66 6f | 72 65 6e 61 6d 65 24 20 |me as fo|rename$ |
|000006a0| 3c 73 70 61 63 65 3e 20 | 73 75 72 6e 61 6d 65 24 |<space> |surname$|
|000006b0| 20 55 4e 4c 45 53 53 20 | 6f 6e 65 20 6f 66 20 23 | UNLESS |one of #|
|000006c0| 23 23 0d 02 6c 45 f4 20 | 23 23 23 20 6d 69 64 64 |##..lE. |### midd|
|000006d0| 6c 65 20 6e 61 6d 65 73 | 20 69 73 20 69 6d 6d 65 |le names| is imme|
|000006e0| 64 69 61 74 65 6c 79 20 | 66 6f 6c 6c 6f 77 65 64 |diately |followed|
|000006f0| 20 62 79 20 61 6e 20 61 | 73 74 65 72 69 73 6b 2c | by an a|sterisk,|
|00000700| 20 69 6e 20 23 23 23 0d | 02 76 49 f4 20 23 23 23 | in ###.|.vI. ###|
|00000710| 20 77 68 69 63 68 20 63 | 61 73 65 20 74 68 65 20 | which c|ase the |
|00000720| 69 6e 64 69 63 61 74 65 | 64 20 6e 61 6d 65 20 69 |indicate|d name i|
|00000730| 73 20 75 73 65 64 20 69 | 6e 20 70 6c 61 63 65 20 |s used i|n place |
|00000740| 6f 66 20 66 6f 72 65 6e | 61 6d 65 24 20 23 23 23 |of foren|ame$ ###|
|00000750| 0d 02 80 0e ea 20 50 25 | 2c 51 25 2c 4e 24 0d 02 |..... P%|,Q%,N$..|
|00000760| 8a 19 50 25 3d a7 6d 69 | 64 64 6c 65 6e 61 6d 65 |..P%=.mi|ddlename|
|00000770| 73 24 2c 22 2a 22 29 0d | 02 94 0c e7 20 50 25 3d |s$,"*").|.... P%=|
|00000780| 30 20 8c 0d 02 9e 1f 20 | 20 4e 24 3d 66 6f 72 65 |0 ..... | N$=fore|
|00000790| 6e 61 6d 65 24 2b 22 20 | 22 2b 73 75 72 6e 61 6d |name$+" |"+surnam|
|000007a0| 65 24 0d 02 a8 07 20 20 | cc 0d 02 b2 0b 20 20 51 |e$....  |.....  Q|
|000007b0| 25 3d 50 25 0d 02 bc 0d | 20 20 f5 20 51 25 2d 3d |%=P%....|  . Q%-=|
|000007c0| 31 0d 02 c6 26 20 20 fd | 20 51 25 3d 30 20 84 20 |1...&  .| Q%=0 . |
|000007d0| c1 6d 69 64 64 6c 65 6e | 61 6d 65 73 24 2c 51 25 |.middlen|ames$,Q%|
|000007e0| 2c 31 29 3d 22 20 22 0d | 02 d0 31 20 20 4e 24 3d |,1)=" ".|..1  N$=|
|000007f0| c1 6d 69 64 64 6c 65 6e | 61 6d 65 73 24 2c 51 25 |.middlen|ames$,Q%|
|00000800| 2b 31 2c 50 25 2d 51 25 | 2d 31 29 2b 22 20 22 2b |+1,P%-Q%|-1)+" "+|
|00000810| 73 75 72 6e 61 6d 65 24 | 0d 02 da 05 cd 0d 02 e4 |surname$|........|
|00000820| 07 3d 4e 24 0d ff       |                         |.=N$..  |        |
+--------+-------------------------+-------------------------+--------+--------+