home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / cpm / turbopas / tp-util.ark / FACTRIAL.SRC < prev    next >
Unknown  |  1986-01-06  |  256 b 
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
100% file data default
100% gt2 Kopftext: 'FUNCTION FACTORIAL(N' default (weak)
100% disktype Blank disk/medium default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 46 55 4e 43 54 49 4f 4e | 20 46 41 43 54 4f 52 49 |FUNCTION| FACTORI|
|00000010| 41 4c 28 4e 3a 20 49 4e | 54 45 47 45 52 29 20 3a |AL(N: IN|TEGER) :|
|00000020| 20 49 4e 54 45 47 45 52 | 3b 0d 0a 0d 0a 42 45 47 | INTEGER|;....BEG|
|00000030| 49 4e 0d 0a 20 20 49 46 | 20 4e 20 3e 20 31 20 54 |IN..  IF| N > 1 T|
|00000040| 48 45 4e 20 46 41 43 54 | 4f 52 49 41 4c 20 3a 3d |HEN FACT|ORIAL :=|
|00000050| 20 4e 20 2a 20 46 41 43 | 54 4f 52 49 41 4c 28 4e | N * FAC|TORIAL(N|
|00000060| 2d 31 29 0d 0a 20 20 20 | 20 45 4c 53 45 20 46 41 |-1)..   | ELSE FA|
|00000070| 43 54 4f 52 49 41 4c 20 | 3a 3d 20 31 0d 0a 45 4e |CTORIAL |:= 1..EN|
|00000080| 44 3b 0d 0a 1a a0 05 5b | c0 05 5d e0 05 5f 00 06 |D;.....[|..].._..|
|00000090| 61 20 06 63 40 06 65 60 | 06 67 80 06 69 a0 06 6b |a .c@.e`|.g..i..k|
|000000a0| c0 06 6d e0 06 6f 00 07 | 71 20 07 73 f0 ff 75 f0 |..m..o..|q .s..u.|
|000000b0| ff ff 8f 07 79 f0 ff 7b | f0 ff ff ff ff ff ff ff |....y..{|........|
|000000c0| ff 2f 08 83 f0 ff ff ff | ff 87 f0 ff 89 a0 08 ff |./......|........|
|000000d0| 0f 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+