/ CP/M / CPM_CDROM.iso / simtel / cpmug / cpmug037.ark / CHAIN.INT

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 02 31 24 2a 00 32 0d 16 | 00 c8 01 13 00 00 80 02 |.1$*.2..|........|
|00000010| 61 7e 01 01 01 01 00 00 | 7e 80 04 61 2f 80 04 61 |a~......|~..a/..a|
|00000020| 1c 50 6c 65 61 73 65 20 | 68 69 74 20 72 65 74 75 |.Please |hit retu|
|00000030| 72 6e 00 6e 3b 80 06 68 | 1b 80 06 61 4d 80 06 61 |rn.n;..h|...aM..a|
|00000040| 36 00 37 c0 07 43 02 80 | 01 70 00 42 1f 80 08 61 |6.7..C..|.p.B...a|
|00000050| 80 08 61 c0 04 80 01 18 | 70 15 01 37 00 4b 36 00 |..a.....|p..7.K6.|
|00000060| cf 80 09 61 80 08 80 32 | 80 08 20 01 1b 80 0a 61 |...a...2|.. ....a|
|00000070| 80 04 80 01 18 70 14 80 | 0b 61 1c 57 48 41 54 20 |.....p..|.a.WHAT |
|00000080| 49 53 20 59 4f 55 52 20 | 4e 41 4d 45 3f 20 00 6e |IS YOUR |NAME? .n|
|00000090| 3b 80 00 31 1b 27 80 0c | 61 80 03 c0 00 32 1b 80 |;..1.'..|a....2..|
|000000a0| 0d 61 80 01 60 00 ab 80 | 0e 61 c0 03 80 00 80 01 |.a..`...|.a......|
|000000b0| 80 01 80 80 6a 80 0f 61 | 80 01 40 80 10 61 36 00 |....j..a|..@..a6.|
|000000c0| bf 80 11 61 c0 03 80 00 | 80 01 80 01 80 80 6b 80 |...a....|......k.|
|000000d0| 12 61 80 01 40 80 13 61 | c0 00 54 80 03 17 02 37 |.a..@..a|..T....7|
|000000e0| 00 cf 36 00 cf 80 14 61 | 80 0c 52 24 64 34 80 15 |..6....a|..R$d4..|
|000000f0| 61 1c 31 20 20 20 41 44 | 44 49 54 49 4f 4e 20 4f |a.1   AD|DITION O|
|00000100| 46 20 46 52 41 43 54 49 | 4f 4e 53 00 24 64 34 80 |F FRACTI|ONS.$d4.|
|00000110| 16 61 1c 32 20 20 20 53 | 55 42 54 52 41 43 54 49 |.a.2   S|UBTRACTI|
|00000120| 4f 4e 20 4f 46 20 46 52 | 41 43 54 49 4f 4e 53 00 |ON OF FR|ACTIONS.|
|00000130| 24 64 34 80 17 61 1c 33 | 20 20 20 4d 55 4c 54 49 |$d4..a.3|   MULTI|
|00000140| 50 4c 49 43 41 54 49 4f | 4e 20 4f 46 20 46 52 41 |PLICATIO|N OF FRA|
|00000150| 43 54 49 4f 4e 53 00 24 | 64 34 80 18 61 1c 34 20 |CTIONS.$|d4..a.4 |
|00000160| 20 20 44 49 56 49 53 49 | 4f 4e 20 4f 46 20 46 52 |  DIVISI|ON OF FR|
|00000170| 41 43 54 49 4f 4e 53 00 | 24 64 34 80 19 61 1c 35 |ACTIONS.|$d4..a.5|
|00000180| 20 20 20 52 4f 55 4e 44 | 49 4e 47 20 4f 46 20 44 |   ROUND|ING OF D|
|00000190| 45 43 49 4d 41 4c 53 00 | 24 64 34 80 1a 61 1c 36 |ECIMALS.|$d4..a.6|
|000001a0| 20 20 20 43 48 41 4e 47 | 45 20 4d 49 58 45 44 20 |   CHANG|E MIXED |
|000001b0| 46 52 41 43 54 49 4f 4e | 53 20 54 4f 20 44 45 43 |FRACTION|S TO DEC|
|000001c0| 49 4d 41 4c 53 00 24 64 | 34 80 1b 61 1c 37 20 20 |IMALS.$d|4..a.7  |
|000001d0| 20 53 55 42 54 52 41 43 | 54 49 4f 4e 20 4f 46 20 | SUBTRAC|TION OF |
|000001e0| 44 45 43 49 4d 41 4c 20 | 4e 55 4d 42 45 52 53 00 |DECIMAL |NUMBERS.|
|000001f0| 24 64 34 80 1c 61 1c 38 | 20 20 20 41 44 44 49 54 |$d4..a.8|   ADDIT|
|00000200| 49 4f 4e 20 4f 46 20 44 | 45 43 49 4d 41 4c 20 4e |ION OF D|ECIMAL N|
|00000210| 55 4d 42 45 52 53 00 24 | 64 34 80 1d 61 1c 39 20 |UMBERS.$|d4..a.9 |
|00000220| 20 20 4d 55 4c 54 49 50 | 4c 49 43 41 54 49 4f 4e |  MULTIP|LICATION|
|00000230| 20 4f 46 20 44 45 43 49 | 4d 41 4c 20 4e 55 4d 42 | OF DECI|MAL NUMB|
|00000240| 45 52 53 00 24 64 34 80 | 1e 61 1c 31 30 20 20 44 |ERS.$d4.|.a.10  D|
|00000250| 49 56 49 53 49 4f 4e 20 | 4f 46 20 44 45 43 49 4d |IVISION |OF DECIM|
|00000260| 41 4c 20 4e 55 4d 42 45 | 52 53 00 24 64 34 80 1f |AL NUMBE|RS.$d4..|
|00000270| 61 1c 31 31 20 20 43 4f | 4e 56 45 52 53 49 4f 4e |a.11  CO|NVERSION|
|00000280| 20 4f 46 20 41 52 45 41 | 20 54 4f 20 4d 45 54 52 | OF AREA| TO METR|
|00000290| 49 43 20 45 51 55 49 56 | 41 4c 45 4e 54 53 00 24 |IC EQUIV|ALENTS.$|
|000002a0| 64 34 80 20 61 1c 31 32 | 20 20 43 4f 4d 50 55 54 |d4. a.12|  COMPUT|
|000002b0| 41 54 49 4f 4e 20 4f 46 | 20 53 49 4d 50 4c 45 20 |ATION OF| SIMPLE |
|000002c0| 41 52 45 41 53 20 42 59 | 20 46 4f 52 4d 55 4c 41 |AREAS BY| FORMULA|
|000002d0| 00 24 64 34 80 21 61 1c | 31 33 20 20 53 49 4d 50 |.$d4.!a.|13  SIMP|
|000002e0| 4c 45 20 45 51 55 41 54 | 49 4f 4e 53 20 57 49 54 |LE EQUAT|IONS WIT|
|000002f0| 48 20 44 45 43 49 4d 41 | 4c 20 4e 55 4d 42 45 52 |H DECIMA|L NUMBER|
|00000300| 53 00 24 64 34 80 22 61 | 1c 31 34 20 20 53 49 4d |S.$d4."a|.14  SIM|
|00000310| 50 4c 45 20 45 51 55 41 | 54 49 4f 4e 53 20 57 49 |PLE EQUA|TIONS WI|
|00000320| 54 48 20 57 48 4f 4c 45 | 20 4e 55 4d 42 45 52 53 |TH WHOLE| NUMBERS|
|00000330| 00 24 64 34 80 23 61 1c | 31 35 20 20 43 4f 4e 56 |.$d4.#a.|15  CONV|
|00000340| 45 52 53 49 4f 4e 20 4f | 46 20 56 4f 4c 55 4d 45 |ERSION O|F VOLUME|
|00000350| 20 54 4f 20 4d 45 54 52 | 49 43 20 45 51 55 49 56 | TO METR|IC EQUIV|
|00000360| 41 4c 45 4e 54 53 00 24 | 64 34 80 24 61 1c 31 36 |ALENTS.$|d4.$a.16|
|00000370| 20 20 43 4f 4e 56 45 52 | 53 49 4f 4e 20 4f 46 20 |  CONVER|SION OF |
|00000380| 44 49 53 54 41 4e 43 45 | 20 54 4f 20 4d 45 54 52 |DISTANCE| TO METR|
|00000390| 49 43 20 45 51 55 49 56 | 41 4c 45 4e 54 53 00 24 |IC EQUIV|ALENTS.$|
|000003a0| 64 34 80 25 61 1c 31 37 | 20 20 53 49 4d 50 4c 45 |d4.%a.17|  SIMPLE|
|000003b0| 20 45 51 55 41 54 49 4f | 4e 53 20 57 49 54 48 20 | EQUATIO|NS WITH |
|000003c0| 46 52 41 43 54 49 4f 4e | 53 00 24 64 34 80 26 61 |FRACTION|S.$d4.&a|
|000003d0| 1c 31 38 20 20 43 4f 4e | 56 45 52 53 49 4f 4e 20 |.18  CON|VERSION |
|000003e0| 4f 46 20 57 45 49 47 48 | 54 20 54 4f 20 4d 45 54 |OF WEIGH|T TO MET|
|000003f0| 52 49 43 20 45 51 55 49 | 56 41 4c 45 4e 54 53 00 |RIC EQUI|VALENTS.|
|00000400| 24 64 34 80 27 61 1c 31 | 39 20 20 50 45 52 43 45 |$d4.'a.1|9  PERCE|
|00000410| 4e 54 41 47 45 53 00 24 | 64 34 80 28 61 1c 32 30 |NTAGES.$|d4.(a.20|
|00000420| 20 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |  ******|********|
|00000430| 2a 2a 2a 2a 51 55 49 54 | 2a 2a 2a 2a 2a 2a 2a 2a |****QUIT|********|
|00000440| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 00 24 64 |********|*****.$d|
|00000450| 34 80 2a 61 64 34 80 2a | 61 c0 00 24 1c 2c 20 53 |4.*ad4.*|a..$., S|
|00000460| 4f 4d 45 20 4f 46 20 54 | 48 45 53 45 20 50 52 4f |OME OF T|HESE PRO|
|00000470| 47 52 41 4d 53 20 57 49 | 4c 4c 20 47 49 56 45 20 |GRAMS WI|LL GIVE |
|00000480| 59 4f 55 20 48 45 4c 50 | 20 57 48 45 4e 20 59 4f |YOU HELP| WHEN YO|
|00000490| 55 20 41 4e 53 57 45 52 | 20 57 49 54 48 20 2d 31 |U ANSWER| WITH -1|
|000004a0| 00 24 64 34 80 2b 61 1c | 59 6f 75 20 63 61 6e 20 |.$d4.+a.|You can |
|000004b0| 71 75 69 74 20 61 6e 79 | 20 70 72 6f 67 72 61 6d |quit any| program|
|000004c0| 20 62 79 20 61 6e 73 77 | 65 72 69 6e 67 20 77 69 | by answ|ering wi|
|000004d0| 74 68 20 61 20 27 51 55 | 49 54 27 2e 00 24 64 34 |th a 'QU|IT'..$d4|
|000004e0| 80 2c 61 1c 50 55 54 20 | 49 4e 20 54 48 45 20 4e |.,a.PUT |IN THE N|
|000004f0| 55 4d 42 45 52 20 4f 46 | 20 54 48 45 20 50 52 4f |UMBER OF| THE PRO|
|00000500| 47 52 41 4d 20 54 48 41 | 54 20 59 4f 55 20 57 49 |GRAM THA|T YOU WI|
|00000510| 53 48 3a 00 6e 3b 80 09 | 22 3a 1a 27 80 2d 61 c0 |SH:.n;..|":.'.-a.|
|00000520| 09 70 23 64 34 80 2e 61 | c0 09 80 14 5e 39 36 05 |.p#d4..a|....^96.|
|00000530| 57 36 05 62 36 05 6d 36 | 05 78 36 05 83 36 05 8d |W6.b6.m6|.x6..6..|
|00000540| 36 05 97 36 05 a1 36 05 | ab 36 05 b5 36 05 bf 36 |6..6..6.|.6..6..6|
|00000550| 05 c9 36 05 d6 36 05 e3 | 36 05 ee 36 05 fa 36 06 |..6..6..|6..6..6.|
|00000560| 08 36 06 16 36 06 22 36 | 06 2f 80 31 61 80 31 61 |.6..6."6|./.1a.1a|
|00000570| 1c 46 52 41 43 31 00 79 | 80 32 61 1c 46 52 41 43 |.FRAC1.y|.2a.FRAC|
|00000580| 32 00 79 80 33 61 1c 46 | 52 41 43 33 00 79 80 34 |2.y.3a.F|RAC3.y.4|
|00000590| 61 1c 46 52 41 43 34 00 | 79 80 35 61 1c 44 45 43 |a.FRAC4.|y.5a.DEC|
|000005a0| 31 00 79 80 36 61 1c 44 | 45 43 32 00 79 80 37 61 |1.y.6a.D|EC2.y.7a|
|000005b0| 1c 44 45 43 33 00 79 80 | 38 61 1c 44 45 43 34 00 |.DEC3.y.|8a.DEC4.|
|000005c0| 79 80 39 61 1c 44 45 43 | 35 00 79 80 3a 61 1c 44 |y.9a.DEC|5.y.:a.D|
|000005d0| 45 43 36 00 79 80 3b 61 | 1c 41 52 45 41 00 79 80 |EC6.y.;a|.AREA.y.|
|000005e0| 3c 61 1c 46 4f 52 4d 55 | 4c 41 00 79 80 3d 61 1c |<a.FORMU|LA.y.=a.|
|000005f0| 44 45 43 49 4d 41 4c 00 | 79 80 3e 61 1c 57 48 4f |DECIMAL.|y.>a.WHO|
|00000600| 4c 45 00 79 80 3f 61 1c | 56 4f 4c 55 4d 45 00 79 |LE.y.?a.|VOLUME.y|
|00000610| 80 40 61 1c 44 49 53 54 | 41 4e 43 45 00 79 80 41 |.@a.DIST|ANCE.y.A|
|00000620| 61 1c 46 52 41 43 54 49 | 4f 4e 00 79 80 42 61 1c |a.FRACTI|ON.y.Ba.|
|00000630| 57 45 49 47 48 54 00 79 | 80 43 61 1c 50 45 52 43 |WEIGHT.y|.Ca.PERC|
|00000640| 45 4e 54 00 79 80 44 61 | 80 45 61 c0 03 80 00 80 |ENT.y.Da|.Ea.....|
|00000650| 01 80 08 80 80 6a 80 46 | 61 80 0a 80 01 18 1a 80 |.....j.F|a.......|
|00000660| 47 61 80 0c 52 24 64 34 | 80 48 61 1c 49 66 20 79 |Ga..R$d4|.Ha.If y|
|00000670| 6f 75 20 77 61 6e 74 20 | 79 6f 75 72 20 73 63 6f |ou want |your sco|
|00000680| 72 65 73 20 70 72 69 6e | 74 65 64 20 6f 6e 20 74 |res prin|ted on t|
|00000690| 68 65 20 70 72 69 6e 74 | 65 72 20 00 24 64 34 80 |he print|er .$d4.|
|000006a0| 49 61 1c 70 6c 65 61 73 | 65 20 70 75 74 20 69 6e |Ia.pleas|e put in|
|000006b0| 20 61 20 27 59 27 20 65 | 6c 73 65 20 68 69 74 20 | a 'Y' e|lse hit |
|000006c0| 72 65 74 75 72 6e 2e 2e | 2e 00 6e 3b 80 0b 68 1b |return..|..n;..h.|
|000006d0| 80 4a 61 c0 0b 1c 59 00 | 16 01 37 06 c8 66 80 4b |.Ja...Y.|..7..f.K|
|000006e0| 61 1c 44 52 49 4c 4c 20 | 54 59 50 45 00 24 80 1e |a.DRILL |TYPE.$..|
|000006f0| 4a 1c 25 20 43 4f 52 52 | 45 43 54 00 24 35 1c 4e |J.% CORR|ECT.$5.N|
|00000700| 55 4d 42 45 52 20 4f 46 | 20 50 52 4f 42 4c 45 4d |UMBER OF| PROBLEM|
|00000710| 53 00 24 64 34 80 4c 61 | 80 01 60 07 40 80 4d 61 |S.$d4.La|..`.@.Ma|
|00000720| 80 4d 61 c0 0a 37 07 40 | 80 4e 61 80 01 26 80 0c |.Ma..7.@|.Na..&..|
|00000730| 2a 1b 80 0d 29 14 80 0e | 29 14 3e 80 4f 61 c0 0c |*...)...|).>.Oa..|
|00000740| 24 80 1e 4a c0 0d 23 35 | c0 0e 23 64 34 80 51 61 |$..J..#5|..#d4.Qa|
|00000750| 80 51 61 36 07 0a 80 52 | 61 80 01 40 80 54 61 80 |.Qa6...R|a..@.Ta.|
|00000760| 54 61 10 7f 80 00 20 54 | 48 45 53 45 20 50 52 4f |Ta.... T|HESE PRO|
|00000770| 47 52 41 4d 53 20 57 49 | 4c 4c 20 47 49 56 45 20 |GRAMS WI|LL GIVE |
+--------+-------------------------+-------------------------+--------+--------+