/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / PROG / BASIC / UBAS821.ZIP / REALQF.UB

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 1c 00 0a 00 03 98 b1 0a | 52 45 41 4c 51 46 20 20 |........|REALQF  |
|00000010| 76 65 72 73 69 6f 6e 20 | 32 2e 33 0d 43 00 14 00 |version |2.3.C...|
|00000020| 03 98 d8 0a 20 31 73 74 | 20 76 65 72 73 69 6f 6e |.... 1st| version|
|00000030| 20 20 20 20 20 20 20 20 | 20 62 79 20 59 2e 4b 49 |        | by Y.KI|
|00000040| 44 41 0d 73 00 1e 00 03 | 98 08 0b 20 63 6f 72 72 |DA.s....|... corr|
|00000050| 65 63 74 65 64 20 26 20 | 72 65 76 69 73 65 64 20 |ected & |revised |
|00000060| 62 79 20 41 2e 4b 55 44 | 4f 20 26 20 59 2e 4b 49 |by A.KUD|O & Y.KI|
|00000070| 44 41 0d 7c 00 28 00 03 | 98 11 0b 0d 86 00 32 00 |DA.|.(..|......2.|
|00000080| 03 9f f1 03 00 0d a1 00 | 3c 00 03 83 02 58 46 d1 |........|<....XF.|
|00000090| f1 88 13 c0 83 02 4f 46 | d1 f1 02 00 ef f1 17 00 |......OF|........|
|000000a0| 0d bb 00 46 00 03 a4 84 | 02 58 00 83 02 58 46 29 |...F....|.X...XF)|
|000000b0| c2 82 02 4d 58 83 02 58 | 46 29 0d 02 01 50 00 03 |...MX..X|F)...P..|
|000000c0| 99 c0 99 22 46 75 6e 64 | 61 6d 65 6e 74 61 6c 20 |..."Fund|amental |
|000000d0| 75 6e 69 74 73 20 61 6e | 64 20 63 6c 61 73 73 20 |units an|d class |
|000000e0| 6e 75 6d 62 65 72 73 20 | 6f 66 20 72 65 61 6c 20 |numbers |of real |
|000000f0| 71 75 61 64 72 61 74 69 | 63 20 66 69 65 6c 64 73 |quadrati|c fields|
|00000100| 22 0d 51 01 5a 00 03 99 | 22 44 69 73 70 6c 61 79 |".Q.Z...|"Display|
|00000110| 73 20 66 75 6e 64 61 6d | 65 6e 74 61 6c 20 75 6e |s fundam|ental un|
|00000120| 69 74 73 20 61 73 20 63 | 6f 65 66 66 69 63 69 65 |its as c|oefficie|
|00000130| 6e 74 73 20 6f 66 20 63 | 61 6e 6f 6e 69 63 61 6c |nts of c|anonical|
|00000140| 20 69 6e 74 65 67 72 61 | 6c 20 62 61 73 69 73 22 | integra|l basis"|
|00000150| 0d 81 01 64 00 03 f5 05 | 49 4e 50 55 54 00 00 99 |...d....|INPUT...|
|00000160| c0 a7 22 49 6e 73 69 64 | 65 20 74 68 65 20 73 71 |.."Insid|e the sq|
|00000170| 75 61 72 65 20 72 6f 6f | 74 3d 22 c1 83 02 4d 00 |uare roo|t="...M.|
|00000180| 0d 8a 01 6e 00 03 a8 80 | 9a 0d 9d 01 78 00 03 8d |...n....|....x...|
|00000190| 00 00 83 02 4d 00 d4 f1 | 02 00 8e bf 0d c2 01 82 |....M...|........|
|000001a0| 00 03 8d 00 00 83 02 4d | 00 d2 f1 02 00 ef f1 22 |.......M|......."|
|000001b0| 00 8e 99 22 54 6f 6f 20 | 62 69 67 22 c0 87 f1 64 |..."Too |big"...d|
|000001c0| 00 0d 00 02 8c 00 03 8d | 00 00 b3 f5 05 53 71 44 |........|.....SqD|
|000001d0| 69 76 00 00 28 83 02 4d | 00 29 d2 f1 01 00 8e 99 |iv..(..M|.)......|
|000001e0| 22 49 74 20 68 61 73 20 | 61 20 73 71 75 61 72 65 |"It has |a square|
|000001f0| 20 64 69 76 69 73 6f 72 | 2e 22 c0 87 f1 64 00 0d | divisor|."...d..|
|00000200| 1e 02 96 00 03 88 f5 0d | 52 65 61 6c 51 75 61 64 |........|RealQuad|
|00000210| 72 61 74 69 63 00 00 28 | 83 02 4d 00 29 0d 4f 02 |ratic..(|..M.).O.|
|00000220| a0 00 03 99 22 46 75 6e | 64 61 6d 65 6e 74 61 6c |...."Fun|damental|
|00000230| 20 75 6e 69 74 73 20 69 | 73 20 28 22 c1 85 02 55 | units i|s ("...U|
|00000240| 41 c1 22 2c 22 c1 85 02 | 55 42 c1 22 29 22 0d 72 |A.","...|UB.")".r|
|00000250| 02 aa 00 03 99 22 43 6c | 61 73 73 20 6e 75 6d 62 |....."Cl|ass numb|
|00000260| 65 72 20 69 73 20 20 20 | 20 20 20 22 c1 83 02 48 |er is   |   "...H|
|00000270| 00 0d 92 02 b4 00 03 99 | 22 28 20 46 3d 22 c1 83 |........|"( F="..|
|00000280| 02 46 00 c1 22 29 22 c1 | 80 e2 f1 14 00 29 c1 80 |.F..")".|.....)..|
|00000290| 9a 0d a2 02 be 00 03 87 | f5 05 49 4e 50 55 54 00 |........|..INPUT.|
|000002a0| 00 0d ab 02 c8 00 03 98 | 00 00 0d b9 02 d2 00 03 |........|........|
|000002b0| 98 00 00 50 41 52 54 31 | 0d c2 02 dc 00 03 98 00 |...PART1|........|
|000002c0| 00 0d df 02 e6 00 03 f5 | 0d 52 65 61 6c 51 75 61 |........|.RealQua|
|000002d0| 64 72 61 74 69 63 00 00 | 28 83 02 4d 00 29 0d 1e |dratic..|(..M.)..|
|000002e0| 03 f0 00 03 83 02 44 00 | d1 83 02 4d 00 c0 83 02 |......D.|...M....|
|000002f0| 41 00 d1 f1 01 00 c0 8d | 00 00 83 02 4d 00 e7 f1 |A.......|....M...|
|00000300| 04 00 d6 f1 01 00 8e 83 | 02 44 00 d1 f1 04 00 e5 |........|.D......|
|00000310| 83 02 4d 00 c0 83 02 41 | 00 d1 f1 02 00 0d 27 03 |..M....A|......'.|
|00000320| fa 00 03 98 00 00 0d 7e | 03 04 01 03 98 00 00 50 |.......~|.......P|
|00000330| 41 52 54 20 32 20 3a 20 | 52 65 67 69 73 74 65 72 |ART 2 : |Register|
|00000340| 20 69 72 72 65 64 75 63 | 69 62 6c 65 20 71 75 61 | irreduc|ible qua|
|00000350| 64 72 61 74 69 63 20 69 | 72 72 61 74 69 6f 6e 61 |dratic i|rrationa|
|00000360| 6c 20 6e 75 6d 62 65 72 | 73 20 28 68 61 6c 66 20 |l number|s (half |
|00000370| 6e 75 6d 62 65 72 73 20 | 6f 6e 6c 79 29 0d 87 03 |numbers |only)...|
|00000380| 0e 01 03 98 00 00 0d a0 | 03 18 01 03 83 02 51 44 |........|......QD|
|00000390| d1 80 c6 83 02 44 00 29 | c0 83 02 46 00 d1 f0 0d |.....D.)|...F....|
|000003a0| a9 03 22 01 03 b8 00 00 | 0d df 03 2c 01 04 83 02 |..".....|...,....|
|000003b0| 59 00 d1 28 83 02 44 00 | de 83 02 41 00 ef f1 02 |Y..(..D.|...A....|
|000003c0| 00 29 e8 f1 04 00 c0 8d | 00 00 83 02 59 00 d5 f0 |.)......|....Y...|
|000003d0| 87 f5 09 45 58 50 41 4e | 44 5f 49 4e 00 00 0d f9 |...EXPAN|D_IN....|
|000003e0| 03 36 01 04 83 02 49 41 | d1 28 83 02 51 44 de 83 |.6....IA|.(..QD..|
|000003f0| 02 41 00 29 e8 f1 02 00 | 0d 0a 04 40 01 04 8d 00 |.A.)....|...@....|
|00000400| 00 80 e6 83 02 59 00 29 | 8e 0d 27 04 4a 01 07 c0 |.....Y.)|..'.J...|
|00000410| 89 83 02 43 00 d1 83 02 | 49 41 dd f1 01 00 8a 80 |...C....|IA......|
|00000420| c6 83 02 59 00 29 0d 60 | 04 54 01 0b c0 8d 00 00 |...Y.).`|.T......|
|00000430| 83 02 59 00 e7 83 02 43 | 00 8f 00 00 a0 83 02 46 |..Y....C|.......F|
|00000440| 00 c0 84 02 58 00 83 02 | 46 00 29 d1 83 02 41 00 |....X...|F.)...A.|
|00000450| e5 83 02 4f 46 dd f1 02 | 00 e5 83 02 43 00 97 0d |...OF...|....C...|
|00000460| 68 04 5e 01 07 c0 8c 0d | 72 04 68 01 04 c0 8f 00 |h.^.....|r.h.....|
|00000470| 00 0d 9c 04 72 01 07 c0 | 89 83 02 43 00 d1 83 02 |....r...|...C....|
|00000480| 49 41 dd 83 02 49 41 e7 | f1 02 00 dd f1 01 00 8a |IA...IA.|........|
|00000490| 80 c6 83 02 59 00 29 8b | f1 02 00 0d d5 04 7c 01 |....Y.).|......|.|
|000004a0| 0b c0 8d 00 00 83 02 59 | 00 e7 83 02 43 00 8f 00 |.......Y|....C...|
|000004b0| 00 a0 83 02 46 00 c0 84 | 02 58 00 83 02 46 00 29 |....F...|.X...F.)|
|000004c0| d1 83 02 41 00 e5 83 02 | 4f 46 dd f1 02 00 e5 83 |...A....|OF......|
|000004d0| 02 43 00 97 0d dd 04 86 | 01 07 c0 8c 0d f0 04 90 |.C......|........|
|000004e0| 01 04 83 02 41 00 d1 83 | 02 41 00 dd f1 02 00 0d |....A...|.A......|
|000004f0| f9 04 9a 01 03 b9 00 00 | 0d 02 05 a4 01 03 98 00 |........|........|
|00000500| 00 0d 3c 05 ae 01 03 98 | 00 00 50 41 52 54 20 33 |..<.....|..PART 3|
|00000510| 20 3a 20 45 78 70 61 6e | 64 20 69 6e 20 6f 6e 74 | : Expan|d in ont|
|00000520| 69 6e 75 65 64 20 66 72 | 61 63 74 69 6f 6e 20 61 |inued fr|action a|
|00000530| 6e 64 20 63 6c 61 73 73 | 69 66 79 0d 7e 05 b8 01 |nd class|ify.~...|
|00000540| 03 98 00 00 20 20 20 20 | 20 20 20 20 20 43 61 6c |....    |     Cal|
|00000550| 63 75 6c 61 74 65 20 66 | 75 6e 64 61 6d 65 6e 74 |culate f|undament|
|00000560| 61 6c 20 75 6e 69 74 73 | 20 73 69 6d 75 6c 74 61 |al units| simulta|
|00000570| 6e 65 6f 75 73 6c 79 20 | 66 69 72 73 74 0d 87 05 |neously |first...|
|00000580| c2 01 03 98 00 00 0d 9a | 05 cc 01 03 f5 09 45 58 |........|......EX|
|00000590| 50 41 4e 44 5f 49 4e 00 | 00 0d bb 05 d6 01 03 84 |PAND_IN.|........|
|000005a0| 02 58 00 83 02 46 00 dd | f1 01 00 29 d1 f0 c0 98 |.X...F..|...)....|
|000005b0| 00 00 73 65 6e 74 69 6e | 65 6c 0d d9 05 e0 01 03 |..sentin|el......|
|000005c0| 83 02 48 00 d1 f0 c0 81 | 02 49 49 d1 f1 01 00 c0 |..H.....|.II.....|
|000005d0| 83 02 4e 00 d1 f1 01 00 | 0d 03 06 ea 01 03 83 02 |..N.....|........|
|000005e0| 58 30 d1 84 02 58 00 81 | 02 49 49 29 c0 83 02 41 |X0...X..|.II)...A|
|000005f0| 00 d1 83 02 58 30 e8 83 | 02 4f 46 c0 83 02 43 00 |....X0..|.OF...C.|
|00000600| d1 a3 0d 25 06 f4 01 03 | 85 02 55 41 d1 83 02 41 |...%....|..UA...A|
|00000610| 00 c0 85 02 55 42 d1 f1 | 01 00 c0 85 02 55 43 d1 |....UB..|.....UC.|
|00000620| 83 02 43 00 0d 2e 06 fe | 01 03 98 00 00 0d 37 06 |..C.....|......7.|
|00000630| 08 02 03 b8 00 00 0d 7b | 06 12 02 04 83 02 43 30 |.......{|......C0|
|00000640| d1 83 02 43 00 c0 83 02 | 41 00 d1 83 02 51 44 de |...C....|A....QD.|
|00000650| 28 83 02 41 00 dd 83 02 | 51 44 29 e7 83 02 43 00 |(..A....|QD)...C.|
|00000660| c0 83 02 43 00 d1 28 83 | 02 44 00 de 83 02 41 00 |...C..(.|.D....A.|
|00000670| ef f1 02 00 29 e8 83 02 | 43 00 0d a1 06 1c 02 04 |....)...|C.......|
|00000680| 8d 00 00 83 02 43 00 d2 | 83 02 43 30 87 f1 44 02 |.....C..|..C0..D.|
|00000690| c0 98 00 00 75 6e 72 65 | 67 69 73 74 65 72 65 64 |....unre|gistered|
|000006a0| 0d ba 06 26 02 04 83 02 | 58 00 d1 83 02 41 00 e5 |...&....|X....A..|
|000006b0| 83 02 4f 46 dd 83 02 43 | 00 0d ec 06 30 02 04 8d |..OF...C|....0...|
|000006c0| 00 00 83 02 58 00 d1 83 | 02 58 30 87 f5 08 45 58 |....X...|.X0...EX|
|000006d0| 50 31 5f 45 4e 44 00 00 | 98 00 00 65 78 70 61 6e |P1_END..|...expan|
|000006e0| 73 69 6f 6e 20 63 79 63 | 6c 65 73 0d 33 07 3a 02 |sion cyc|les.3.:.|
|000006f0| 04 81 02 49 00 d1 80 e4 | 83 02 58 00 c2 84 02 58 |...I....|..X....X|
|00000700| 00 f1 01 00 29 c2 83 02 | 46 00 29 dd f1 01 00 c0 |....)...|F.).....|
|00000710| 82 02 4d 58 81 02 49 00 | 29 d1 f1 01 00 c0 98 00 |..MX..I.|).......|
|00000720| 00 64 65 6c 65 74 65 20 | 73 61 6d 65 20 63 6c 61 |.delete |same cla|
|00000730| 73 73 0d 74 07 44 02 04 | 85 02 57 41 d1 85 02 55 |ss.t.D..|..WA...U|
|00000740| 41 e5 83 02 41 00 dd 85 | 02 55 42 e5 83 02 44 00 |A...A...|.UB...D.|
|00000750| c0 85 02 57 42 d1 85 02 | 55 41 dd 85 02 55 42 e5 |...WB...|UA...UB.|
|00000760| 83 02 41 00 c0 85 02 57 | 43 d1 85 02 55 43 e5 83 |..A....W|C...UC..|
|00000770| 02 43 00 0d 93 07 4e 02 | 04 85 02 47 00 d1 80 c4 |.C....N.|...G....|
|00000780| 85 02 57 41 c2 80 c4 85 | 02 57 42 c2 85 02 57 43 |..WA....|.WB...WC|
|00000790| 29 29 0d c5 07 58 02 04 | 85 02 55 41 d1 85 02 57 |))...X..|..UA...W|
|000007a0| 41 e8 85 02 47 00 c0 85 | 02 55 42 d1 85 02 57 42 |A...G...|.UB...WB|
|000007b0| e8 85 02 47 00 c0 85 02 | 55 43 d1 85 02 57 43 e8 |...G....|UC...WC.|
|000007c0| 85 02 47 00 0d d0 07 62 | 02 04 a0 83 02 4e 00 0d |..G....b|.....N..|
|000007d0| d9 07 6c 02 03 b9 00 00 | 0d e2 07 76 02 03 98 00 |..l.....|...v....|
|000007e0| 00 0d f4 07 80 02 03 f5 | 08 45 58 50 31 5f 45 4e |........|.EXP1_EN|
|000007f0| 44 00 00 0d 06 08 8a 02 | 03 8d 00 00 83 02 44 00 |D.......|......D.|
|00000800| e7 f1 04 00 8e 0d 35 08 | 94 02 04 c0 8d 00 00 85 |......5.|........|
|00000810| 02 55 43 d6 f1 02 00 8e | 85 02 55 41 d1 f1 02 00 |.UC.....|..UA....|
|00000820| e5 85 02 55 41 c0 85 02 | 55 42 d1 f1 02 00 e5 85 |...UA...|UB......|
|00000830| 02 55 42 97 0d 50 08 9e | 02 04 c0 85 02 55 41 d1 |.UB..P..|.....UA.|
|00000840| 28 85 02 55 41 de 85 02 | 55 42 29 e8 f1 02 00 0d |(..UA...|UB).....|
|00000850| 5a 08 a8 02 03 c0 8f 00 | 00 0d 7a 08 b2 02 04 c0 |Z.......|..z.....|
|00000860| 8d 00 00 85 02 55 43 d1 | f1 01 00 8e 85 02 55 42 |.....UC.|......UB|
|00000870| d1 f1 02 00 e5 85 02 55 | 42 0d 92 08 bc 02 04 c0 |.......U|B.......|
|00000880| 8f 00 00 85 02 55 41 d1 | 85 02 55 41 e8 f1 02 00 |.....UA.|..UA....|
|00000890| 97 0d 9b 08 c6 02 03 98 | 00 00 0d ad 08 d0 02 03 |........|........|
|000008a0| f5 08 41 4c 4c 44 4f 4e | 45 3f 00 00 0d cb 08 da |..ALLDON|E?......|
|000008b0| 02 03 92 00 00 c0 a0 81 | 02 49 49 c0 93 00 00 82 |........|.II.....|
|000008c0| 02 4d 58 81 02 49 49 29 | d1 f0 0d f2 08 e4 02 03 |.MX..II)|........|
|000008d0| a0 83 02 48 00 c0 8d 00 | 00 81 02 49 49 d5 83 02 |...H....|...II...|
|000008e0| 46 00 87 f5 0a 4e 45 58 | 54 5f 43 4c 41 53 53 00 |F....NEX|T_CLASS.|
|000008f0| 00 0d 0e 09 ee 02 03 8d | 00 00 83 02 4e 00 e7 f1 |........|....N...|
|00000900| 02 00 8e 83 02 48 00 d1 | de 83 02 48 00 0d 22 09 |.....H..|...H..".|
|00000910| f8 02 03 a2 82 02 4d 58 | f0 c3 83 02 46 00 29 d1 |......MX|....F.).|
|00000920| f0 0d 29 09 02 03 03 95 | 0d 32 09 0c 03 03 98 00 |..).....|.2......|
|00000930| 00 0d 46 09 16 03 03 f5 | 0a 4e 45 58 54 5f 43 4c |..F.....|.NEXT_CL|
|00000940| 41 53 53 00 00 0d 70 09 | 20 03 03 83 02 58 30 d1 |ASS...p.| ....X0.|
|00000950| 84 02 58 00 81 02 49 49 | 29 c0 83 02 41 00 d1 83 |..X...II|)...A...|
|00000960| 02 58 30 e8 83 02 4f 46 | c0 83 02 43 00 d1 a3 0d |.X0...OF|...C....|
|00000970| 79 09 2a 03 03 98 00 00 | 0d 82 09 34 03 03 b8 00 |y.*.....|...4....|
|00000980| 00 0d 8b 09 3e 03 04 92 | 00 00 0d cf 09 48 03 07 |....>...|.....H..|
|00000990| 83 02 43 30 d1 83 02 43 | 00 c0 83 02 41 00 d1 83 |..C0...C|....A...|
|000009a0| 02 51 44 de 28 83 02 41 | 00 dd 83 02 51 44 29 e7 |.QD.(..A|....QD).|
|000009b0| 83 02 43 00 c0 83 02 43 | 00 d1 28 83 02 44 00 de |..C....C|..(..D..|
|000009c0| 83 02 41 00 ef f1 02 00 | 29 e8 83 02 43 00 0d e1 |..A.....|)...C...|
|000009d0| 09 52 03 04 93 00 00 83 | 02 43 00 d5 83 02 43 30 |.R......|.C....C0|
|000009e0| 0d fa 09 5c 03 04 83 02 | 58 00 d1 83 02 41 00 e5 |...\....|X....A..|
|000009f0| 83 02 4f 46 dd 83 02 43 | 00 0d 19 0a 66 03 04 8d |..OF...C|....f...|
|00000a00| 00 00 83 02 58 00 d1 83 | 02 58 30 87 f5 08 41 4c |....X...|.X0...AL|
|00000a10| 4c 44 4f 4e 45 3f 00 00 | 0d 4b 0a 70 03 04 81 02 |LDONE?..|.K.p....|
|00000a20| 49 00 d1 80 e4 83 02 58 | 00 c2 84 02 58 00 f1 01 |I......X|....X...|
|00000a30| 00 29 c2 83 02 46 00 29 | dd f1 01 00 c0 82 02 4d |.)...F.)|.......M|
|00000a40| 58 81 02 49 00 29 d1 f1 | 01 00 0d 54 0a 7a 03 03 |X..I.)..|...T.z..|
|00000a50| b9 00 00 0d 5d 0a 84 03 | 03 98 00 00 0d 7b 0a 8e |....]...|.....{..|
|00000a60| 03 03 98 00 00 20 67 65 | 74 20 61 20 73 71 75 61 |..... ge|t a squa|
|00000a70| 72 65 20 64 69 76 69 73 | 6f 72 0d 84 0a 98 03 03 |re divis|or......|
|00000a80| 98 00 00 0d 9a 0a a2 03 | 03 b3 f5 05 53 71 44 69 |........|....SqDi|
|00000a90| 76 00 00 28 83 02 4e 00 | 29 0d a5 0a ac 03 03 ba |v..(..N.|).......|
|00000aa0| 83 02 53 44 0d c6 0a b6 | 03 04 83 02 53 44 d1 80 |..SD....|....SD..|
|00000ab0| d1 83 02 4e 00 29 c0 83 | 02 4e 00 d1 83 02 4e 00 |...N.)..|.N....N.|
|00000ac0| e8 83 02 53 44 0d f3 0a | c0 03 04 8d 00 00 83 02 |...SD...|........|
|00000ad0| 4e 00 d1 f1 01 00 8e 83 | 02 53 44 d1 f1 01 00 8f |N.......|.SD.....|
|00000ae0| 00 00 8d 00 00 83 02 4e | 00 e7 83 02 53 44 8e f1 |.......N|....SD..|
|00000af0| b6 03 0d 00 0b ca 03 03 | 95 28 83 02 53 44 29 0d |........|.(..SD).|
|00000b00| 00 00                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+