/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / c / calcula / !Calcula / Calcula1

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 30 f4 20 3e 20 | 3c 43 61 6c 63 75 6c 61 |...0. > |<Calcula|
|00000010| 24 44 69 72 3e 2e 43 61 | 6c 63 75 6c 61 31 20 56 |$Dir>.Ca|lcula1 V|
|00000020| 31 2e 35 20 31 35 2d 37 | 2d 38 37 20 31 37 35 30 |1.5 15-7|-87 1750|
|00000030| 0d 00 14 1a f4 20 28 63 | 29 20 49 57 20 4c 6f 67 |..... (c|) IW Log|
|00000040| 61 6e 20 31 39 38 37 2f | 38 39 0d 00 1e 12 4d 31 |an 1987/|89....M1|
|00000050| 3d 30 3a 4d 32 3d 30 3a | 4d 33 3d 30 0d 00 28 16 |=0:M2=0:|M3=0..(.|
|00000060| 41 24 3d c4 32 35 35 2c | 22 20 22 29 3a 42 24 3d |A$=.255,|" "):B$=|
|00000070| 41 24 0d 00 32 06 eb 37 | 0d 00 3c 0d ee 20 85 20 |A$..2..7|..<.. . |
|00000080| e5 8d 64 7a 40 0d 00 46 | 2c f1 22 33 20 4d 45 4d |..dz@..F|,."3 MEM|
|00000090| 4f 52 59 20 43 41 4c 43 | 55 4c 41 54 4f 52 22 27 |ORY CALC|ULATOR"'|
|000000a0| 22 45 73 63 61 70 65 20 | 74 6f 20 51 75 69 74 22 |"Escape |to Quit"|
|000000b0| 27 0d 00 50 13 48 46 4c | 41 47 3d a3 3a 42 46 4c |'..P.HFL|AG=.:BFL|
|000000c0| 41 47 3d a3 0d 00 55 1d | e8 20 86 22 20 3a 20 22 |AG=...U.|. ." : "|
|000000d0| 41 24 3a e7 20 41 24 3d | 22 22 20 8c 20 8d 44 55 |A$:. A$=|"" . .DU|
|000000e0| 40 0d 00 5a 0d 41 24 3d | 41 24 2b 22 20 22 0d 00 |@..Z.A$=|A$+" "..|
|000000f0| 64 07 5a 3d 31 0d 00 69 | 1e e7 20 a7 41 24 2c 22 |d.Z=1..i|.. .A$,"|
|00000100| 2a 22 29 3d 31 20 8c 20 | ff 28 41 24 29 3a e5 8d |*")=1 . |.(A$):..|
|00000110| 44 50 40 0d 00 6e 42 59 | 3d a7 41 24 2c 22 25 22 |DP@..nBY|=.A$,"%"|
|00000120| 29 3a e7 20 59 3d 31 20 | 8c 20 42 24 3d c2 41 24 |):. Y=1 |. B$=.A$|
|00000130| 2c a9 28 41 24 29 2d 31 | 29 3a 41 24 3d c0 41 24 |,.(A$)-1|):A$=.A$|
|00000140| 2c 59 2d 31 29 2b a4 65 | 78 62 69 6e 2b 42 24 3a |,Y-1)+.e|xbin+B$:|
|00000150| e5 8d 44 6e 40 0d 00 78 | 25 59 3d a7 41 24 2c 22 |..Dn@..x|%Y=.A$,"|
|00000160| 25 22 29 3a e7 20 59 3e | 31 20 8c 20 f2 70 65 72 |%"):. Y>|1 . .per|
|00000170| 63 65 6e 74 3a e5 8d 44 | 78 40 0d 00 82 3f e7 20 |cent:..D|x@...?. |
|00000180| a7 41 24 2c 22 53 44 45 | 56 22 29 3d 31 20 80 20 |.A$,"SDE|V")=1 . |
|00000190| a7 41 24 2c 22 2c 22 29 | 3d 30 20 8c 20 41 24 3d |.A$,",")|=0 . A$=|
|000001a0| c2 41 24 2c a9 28 41 24 | 29 2d 34 29 3a 41 24 3d |.A$,.(A$|)-4):A$=|
|000001b0| a4 73 64 65 76 3a 5a 3d | 31 0d 00 8c 23 59 3d a7 |.sdev:Z=|1...#Y=.|
|000001c0| 41 24 2c 22 2c 22 29 3a | e7 20 59 3e 30 20 8c 20 |A$,","):|. Y>0 . |
|000001d0| 41 24 3d a4 61 76 3a e5 | 8d 74 42 40 0d 00 96 2a |A$=.av:.|.tB@...*|
|000001e0| e7 20 a7 41 24 2c 22 7e | 22 29 3d 31 20 8c 20 41 |. .A$,"~|")=1 . A|
|000001f0| 24 3d c2 41 24 2c a9 28 | 41 24 29 2d 31 29 3a 48 |$=.A$,.(|A$)-1):H|
|00000200| 46 4c 41 47 3d b9 0d 00 | a0 2c e7 20 a7 41 24 2c |FLAG=...|.,. .A$,|
|00000210| 22 42 49 4e 22 29 3d 31 | 20 8c 20 41 24 3d c2 41 |"BIN")=1| . A$=.A|
|00000220| 24 2c a9 28 41 24 29 2d | 33 29 3a 42 46 4c 41 47 |$,.(A$)-|3):BFLAG|
|00000230| 3d b9 0d 00 aa 3b e7 20 | a7 41 24 2c 22 4d 31 3d |=....;. |.A$,"M1=|
|00000240| 22 29 3d 31 20 8c 20 4d | 31 3d a0 28 c2 41 24 2c |")=1 . M|1=.(.A$,|
|00000250| a9 28 41 24 29 2d 33 29 | 29 3a f1 22 4d 31 20 4c |.(A$)-3)|):."M1 L|
|00000260| 4f 41 44 45 44 22 27 3a | e5 8d 44 50 40 0d 00 b4 |OADED"':|..DP@...|
|00000270| 3b e7 20 a7 41 24 2c 22 | 4d 32 3d 22 29 3d 31 20 |;. .A$,"|M2=")=1 |
|00000280| 8c 20 4d 32 3d a0 28 c2 | 41 24 2c a9 28 41 24 29 |. M2=.(.|A$,.(A$)|
|00000290| 2d 33 29 29 3a f1 22 4d | 32 20 4c 4f 41 44 45 44 |-3)):."M|2 LOADED|
|000002a0| 22 27 3a e5 8d 44 50 40 | 0d 00 be 3b e7 20 a7 41 |"':..DP@|...;. .A|
|000002b0| 24 2c 22 4d 33 3d 22 29 | 3d 31 20 8c 20 4d 33 3d |$,"M3=")|=1 . M3=|
|000002c0| a0 28 c2 41 24 2c a9 28 | 41 24 29 2d 33 29 29 3a |.(.A$,.(|A$)-3)):|
|000002d0| f1 22 4d 33 20 4c 4f 41 | 44 45 44 22 27 3a e5 8d |."M3 LOA|DED"':..|
|000002e0| 44 50 40 0d 00 c8 0d 58 | 3d a0 28 41 24 29 2f 5a |DP@....X|=.(A$)/Z|
|000002f0| 0d 00 d2 36 e7 20 42 46 | 4c 41 47 20 8c 20 41 24 |...6. BF|LAG . A$|
|00000300| 3d a4 74 6f 62 69 6e 3a | f1 22 3d 22 3b 41 24 3b |=.tobin:|."=";A$;|
|00000310| 22 20 42 49 4e 22 3a 42 | 46 4c 41 47 3d a3 3a f1 |" BIN":B|FLAG=.:.|
|00000320| 3a e5 8d 44 50 40 0d 00 | dc 25 e7 20 48 46 4c 41 |:..DP@..|.%. HFLA|
|00000330| 47 20 f1 22 3d 26 22 3b | 7e 58 3a 48 46 4c 41 47 |G ."=&";|~X:HFLAG|
|00000340| 3d a3 20 8b 20 f1 22 3d | 22 3b 58 0d 00 e6 05 f1 |=. . ."=|";X.....|
|00000350| 0d 00 f0 09 e5 8d 44 50 | 40 0d 00 f1 05 3a 0d 00 |......DP|@....:..|
|00000360| fa 1a e7 20 9f 3d 31 37 | 20 8c 20 f1 22 42 79 65 |... .=17| . ."Bye|
|00000370| 20 42 79 65 21 22 3a e0 | 0d 01 04 19 e7 20 9f 3d | Bye!":.|..... .=|
|00000380| 36 20 8c 20 f2 73 74 72 | 69 6e 67 3a e5 8d 44 50 |6 . .str|ing:..DP|
|00000390| 40 0d 01 0e 2b f6 3a f1 | 27 22 49 27 6d 20 6f 6e |@...+.:.|'"I'm on|
|000003a0| 6c 79 20 61 20 43 61 6c | 63 75 6c 61 74 6f 72 20 |ly a Cal|culator |
|000003b0| 2d 20 54 72 79 20 61 67 | 61 69 6e 22 0d 01 18 09 |- Try ag|ain"....|
|000003c0| e5 8d 44 50 40 0d 01 19 | 05 3a 0d 01 22 0d dd f2 |..DP@...|.:.."...|
|000003d0| 70 65 72 63 65 6e 74 0d | 01 2c 23 41 24 3d c0 41 |percent.|.,#A$=.A|
|000003e0| 24 2c 59 2d 31 29 2b 22 | 2a 2e 30 31 22 2b c2 41 |$,Y-1)+"|*.01"+.A|
|000003f0| 24 2c a9 28 41 24 29 2d | 59 29 0d 01 36 05 e1 0d |$,.(A$)-|Y)..6...|
|00000400| 01 37 05 3a 0d 01 40 0c | dd f2 73 74 72 69 6e 67 |.7.:..@.|..string|
|00000410| 0d 01 4a 1b 42 24 3d a0 | 28 41 24 29 3a f1 22 3d |..J.B$=.|(A$):."=|
|00000420| 22 22 22 3b 42 24 3b 22 | 22 22 22 0d 01 54 05 e1 |""";B$;"|"""..T..|
|00000430| 0d 01 55 05 3a 0d 01 5e | 08 dd a4 61 76 0d 01 68 |..U.:..^|...av..h|
|00000440| 26 42 24 3d c0 41 24 2c | 59 2d 31 29 2b 22 2b 22 |&B$=.A$,|Y-1)+"+"|
|00000450| 2b c2 41 24 2c a9 28 41 | 24 29 2d 59 29 3a 5a 3d |+.A$,.(A|$)-Y):Z=|
|00000460| 5a 2b 31 0d 01 72 07 3d | 42 24 0d 01 73 05 3a 0d |Z+1..r.=|B$..s.:.|
|00000470| 01 7c 0a dd a4 73 64 65 | 76 0d 01 86 0e 42 24 3d |.|...sde|v....B$=|
|00000480| 41 24 3a 5a 5a 3d 30 0d | 01 90 0e 54 32 3d a0 28 |A$:ZZ=0.|...T2=.(|
|00000490| 41 24 29 2f 5a 0d 01 9a | 05 f5 0d 01 a4 0e 59 3d |A$)/Z...|......Y=|
|000004a0| a7 42 24 2c 22 2b 22 29 | 0d 01 ae 11 54 3d a0 28 |.B$,"+")|....T=.(|
|000004b0| c0 42 24 2c 59 2d 31 29 | 29 0d 01 b8 12 5a 5a 3d |.B$,Y-1)|)....ZZ=|
|000004c0| 5a 5a 2b 28 54 2d 54 32 | 29 5e 32 0d 01 c2 13 42 |ZZ+(T-T2|)^2....B|
|000004d0| 24 3d c2 42 24 2c a9 28 | 42 24 29 2d 59 29 0d 01 |$=.B$,.(|B$)-Y)..|
|000004e0| cc 09 fd 20 59 3d 30 0d | 01 d6 0e 5a 5a 3d b6 28 |... Y=0.|...ZZ=.(|
|000004f0| 5a 5a 2f 5a 29 0d 01 e0 | 0c 42 24 3d c3 28 5a 5a |ZZ/Z)...|.B$=.(ZZ|
|00000500| 29 0d 01 ea 07 3d 42 24 | 0d 01 eb 05 3a 0d 01 f4 |)....=B$|....:...|
|00000510| 0b dd a4 74 6f 62 69 6e | 0d 01 fe 08 ea 20 42 24 |...tobin|..... B$|
|00000520| 0d 02 08 0a 59 3d 32 5e | 33 30 0d 02 12 05 f5 0d |....Y=2^|30......|
|00000530| 02 1c 0b 42 3d 58 20 81 | 20 59 0d 02 26 21 e7 20 |...B=X .| Y..&!. |
|00000540| 42 3d 31 20 8c 20 42 24 | 3d 42 24 2b 22 31 22 20 |B=1 . B$|=B$+"1" |
|00000550| 8b 20 42 24 3d 42 24 2b | 22 30 22 0d 02 30 0f 42 |. B$=B$+|"0"..0.B|
|00000560| 3d 58 20 83 20 59 3a 58 | 3d 42 0d 02 3a 09 59 3d |=X . Y:X|=B..:.Y=|
|00000570| 59 2f 32 0d 02 44 09 fd | 20 59 3c 31 0d 02 4e 20 |Y/2..D..| Y<1..N |
|00000580| 59 3d a7 42 24 2c 22 31 | 22 29 3a 42 24 3d c2 42 |Y=.B$,"1|"):B$=.B|
|00000590| 24 2c a9 28 42 24 29 2d | 59 2b 31 29 0d 02 58 16 |$,.(B$)-|Y+1)..X.|
|000005a0| e7 20 bb 28 42 24 29 3d | 30 20 8c 20 42 24 3d 22 |. .(B$)=|0 . B$="|
|000005b0| 30 22 0d 02 62 07 3d 42 | 24 0d 02 6c 05 3a 0d 02 |0"..b.=B|$..l.:..|
|000005c0| 76 0b dd a4 65 78 62 69 | 6e 0d 02 80 0d 42 3d 30 |v...exbi|n....B=0|
|000005d0| 3a 43 24 3d 22 22 0d 02 | 8a 05 f5 0d 02 94 0e 42 |:C$=""..|.......B|
|000005e0| 31 24 3d c0 42 24 2c 31 | 29 0d 02 9e 51 e7 20 42 |1$=.B$,1|)...Q. B|
|000005f0| 31 24 3d 22 31 22 20 84 | 20 42 31 24 3d 22 30 22 |1$="1" .| B1$="0"|
|00000600| 20 8c 20 43 24 3d 43 24 | 2b 42 31 24 3a 42 24 3d | . C$=C$|+B1$:B$=|
|00000610| c2 42 24 2c a9 28 42 24 | 29 2d 31 29 3a e5 8d 74 |.B$,.(B$|)-1):..t|
|00000620| 54 42 20 8b 20 fd 20 42 | 31 24 3c 3e 22 31 22 20 |TB . . B|1$<>"1" |
|00000630| 80 20 42 31 24 3c 3e 22 | 30 22 0d 02 a8 05 f5 0d |. B1$<>"|0"......|
|00000640| 02 b2 0e 59 3d a7 43 24 | 2c 22 31 22 29 0d 02 bc |...Y=.C$|,"1")...|
|00000650| 1f e7 20 59 3d 31 20 8c | 20 59 3d a9 28 43 24 29 |.. Y=1 .| Y=.(C$)|
|00000660| 2d 31 3a 42 3d 42 2b 28 | 32 5e 59 29 0d 02 c6 13 |-1:B=B+(|2^Y)....|
|00000670| 43 24 3d c2 43 24 2c a9 | 28 43 24 29 2d 31 29 0d |C$=.C$,.|(C$)-1).|
|00000680| 02 d0 13 fd 20 59 3d 30 | 20 84 20 a9 28 43 24 29 |.... Y=0| . .(C$)|
|00000690| 3d 30 0d 02 da 0c 42 32 | 24 3d c3 28 42 29 0d 02 |=0....B2|$=.(B)..|
|000006a0| e4 08 3d 42 32 24 0d 02 | ee 05 3a 0d ff          |..=B2$..|..:..   |
+--------+-------------------------+-------------------------+--------+--------+