home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-2.iso / Files II / Prog / A / AxoCalculator Packag1.1.sit / AxoCalculator Package / AxoCalculator Documentation / Programming in Pascal / Example Programs < prev    next >
MacBinary  |  1993-03-14  |  7.1 KB  |  [TEXT/AxoC]
open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, Sun Mar 14 14:51:18 1993, modified Sun Mar 14 14:51:18 1993, creator 'AxoC', type ASCII, 5513 bytes "Example Programs" , at 0x1609 1532 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[AxoC]


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 10 45 78 61 6d 70 6c | 65 20 50 72 6f 67 72 61 |..Exampl|e Progra|
|00000010| 6d 73 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |ms......|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 78 6f | 43 00 00 00 00 00 00 00 |.TEXTAxo|C.......|
|00000050| 00 00 00 00 00 15 89 00 | 00 05 fc a7 c9 3d 36 a7 |........|.....=6.|
|00000060| c9 3d 36 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.=6.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 3f b3 00 00 |........|....?...|
|00000080| 4c 6f 63 61 6c 4c 61 6e | 67 75 61 67 65 20 50 61 |LocalLan|guage Pa|
|00000090| 73 63 61 6c 0d 7b 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |scal.{ -|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 0d 20 20 54 68 65 20 |--------|..  The |
|000000d0| 66 6f 6c 6c 6f 77 69 6e | 67 20 37 20 70 72 6f 67 |followin|g 7 prog|
|000000e0| 72 61 6d 73 20 64 65 6d | 6f 6e 73 74 72 61 74 65 |rams dem|onstrate|
|000000f0| 20 76 61 72 69 6f 75 73 | 20 61 73 70 65 63 74 73 | various| aspects|
|00000100| 20 6f 66 20 0d 20 20 41 | 78 6f 43 61 6c 63 75 6c | of .  A|xoCalcul|
|00000110| 61 74 6f 72 27 73 20 50 | 61 73 63 61 6c 20 70 72 |ator's P|ascal pr|
|00000120| 6f 67 72 61 6d 6d 69 6e | 67 20 6c 61 6e 67 75 61 |ogrammin|g langua|
|00000130| 67 65 2e 20 0d 0d a5 20 | 20 54 6f 20 6c 6f 61 64 |ge. ... | To load|
|00000140| 20 61 6c 6c 20 37 20 70 | 72 6f 67 72 61 6d 73 2c | all 7 p|rograms,|
|00000150| 20 63 68 6f 6f 73 65 20 | 22 53 65 6c 65 63 74 20 | choose |"Select |
|00000160| 41 6c 6c 22 20 75 6e 64 | 65 72 20 0d 20 20 20 20 |All" und|er .    |
|00000170| 74 68 65 20 22 45 64 69 | 74 22 20 6d 65 6e 75 2c |the "Edi|t" menu,|
|00000180| 20 74 68 65 6e 20 70 72 | 65 73 73 20 22 65 6e 74 | then pr|ess "ent|
|00000190| 65 72 22 2e 20 0d 0d a5 | 20 20 54 6f 20 72 75 6e |er". ...|  To run|
|000001a0| 20 61 20 70 72 6f 67 72 | 61 6d 2c 20 65 69 74 68 | a progr|am, eith|
|000001b0| 65 72 20 73 65 6c 65 63 | 74 20 69 74 20 75 6e 64 |er selec|t it und|
|000001c0| 65 72 20 74 68 65 20 0d | 20 20 20 20 22 43 61 6c |er the .|    "Cal|
|000001d0| 63 75 6c 61 74 6f 72 22 | 20 6d 65 6e 75 2c 20 6f |culator"| menu, o|
|000001e0| 72 20 74 79 70 65 20 69 | 74 73 20 6e 61 6d 65 20 |r type i|ts name |
|000001f0| 61 6e 64 20 70 72 65 73 | 73 20 22 65 6e 74 65 72 |and pres|s "enter|
|00000200| 22 2e 0d 0d a5 20 20 41 | 66 74 65 72 20 74 68 65 |"....  A|fter the|
|00000210| 20 70 72 6f 67 72 61 6d | 73 20 61 72 65 20 6c 6f | program|s are lo|
|00000220| 61 64 65 64 2c 20 74 68 | 69 73 20 66 69 6c 65 20 |aded, th|is file |
|00000230| 64 6f 65 73 20 6e 6f 74 | 20 6e 65 65 64 0d 20 20 |does not| need.  |
|00000240| 20 20 74 6f 20 72 65 6d | 61 69 6e 20 6f 70 65 6e |  to rem|ain open|
|00000250| 20 69 6e 20 6f 72 64 65 | 72 20 74 6f 20 75 73 65 | in orde|r to use|
|00000260| 20 74 68 65 6d 2e 0d 0d | 2d 2d 2d 2d 2d 2d 2d 2d | them...|--------|
|00000270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000290| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 7d 0d 0d 7b 20 2d |--------|--}..{ -|
|000002a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000002b0| 20 47 6c 6f 62 61 6c 20 | 56 61 72 69 61 62 6c 65 | Global |Variable|
|000002c0| 73 20 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |s  -----|--------|
|000002d0| 2d 2d 2d 2d 2d 0d 20 20 | 54 68 65 20 66 6f 6c 6c |-----.  |The foll|
|000002e0| 6f 77 69 6e 67 20 33 20 | 6c 69 6e 65 73 20 64 65 |owing 3 |lines de|
|000002f0| 6d 6f 6e 73 74 72 61 74 | 65 20 68 6f 77 20 74 6f |monstrat|e how to|
|00000300| 20 64 65 63 6c 61 72 65 | 0d 20 20 67 6c 6f 62 61 | declare|.  globa|
|00000310| 6c 20 76 61 72 69 61 62 | 6c 65 73 2e 20 53 65 65 |l variab|les. See|
|00000320| 20 22 54 68 65 20 50 72 | 6f 67 72 61 6d 6d 69 6e | "The Pr|ogrammin|
|00000330| 67 20 4c 61 6e 67 75 61 | 67 65 22 20 66 6f 72 20 |g Langua|ge" for |
|00000340| 6d 6f 72 65 0d 20 20 6f | 6e 20 76 61 72 69 61 62 |more.  o|n variab|
|00000350| 6c 65 20 64 65 63 6c 61 | 72 61 74 69 6f 6e 2e 20 |le decla|ration. |
|00000360| 42 65 63 61 75 73 65 20 | 67 6c 6f 62 61 6c 20 22 |Because |global "|
|00000370| 52 65 61 6c 22 20 0d 20 | 20 76 61 72 69 61 62 6c |Real" . | variabl|
|00000380| 65 73 20 63 61 6e 20 62 | 65 20 63 72 65 61 74 65 |es can b|e create|
|00000390| 64 20 6f 6e 20 74 68 65 | 20 66 6c 79 2c 20 67 6c |d on the| fly, gl|
|000003a0| 6f 62 61 6c 0d 20 20 64 | 65 63 6c 61 72 61 74 69 |obal.  d|eclarati|
|000003b0| 6f 6e 73 20 77 69 6c 6c | 20 6d 6f 73 74 20 63 6f |ons will| most co|
|000003c0| 6d 6d 6f 6e 6c 79 20 62 | 65 20 75 73 65 64 20 66 |mmonly b|e used f|
|000003d0| 6f 72 20 63 72 65 61 74 | 69 6e 67 0d 20 20 22 42 |or creat|ing.  "B|
|000003e0| 6f 6f 6c 65 61 6e 22 2c | 20 22 49 6e 74 65 67 65 |oolean",| "Intege|
|000003f0| 72 22 20 6f 72 20 22 41 | 72 72 61 79 22 20 76 61 |r" or "A|rray" va|
|00000400| 72 69 61 62 6c 65 73 2e | 20 0d 2d 2d 2d 2d 2d 2d |riables.| .------|
|00000410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000420| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 7d |--------|-------}|
|00000440| 0d 76 61 72 0d 09 69 20 | 3a 20 49 6e 74 65 67 65 |.var..i |: Intege|
|00000450| 72 0d 09 67 6c 6f 62 61 | 6c 41 72 72 20 3a 20 41 |r..globa|lArr : A|
|00000460| 72 72 61 79 5b 31 2e 2e | 31 30 5d 0d 0d 0d 7b 20 |rray[1..|10]...{ |
|00000470| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000480| 2d 2d 2d 20 44 6f 43 6f | 75 6e 74 20 2d 2d 2d 2d |--- DoCo|unt ----|
|00000490| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000004a0| 2d 2d 2d 0d 20 20 41 20 | 76 65 72 79 20 73 69 6d |---.  A |very sim|
|000004b0| 70 6c 65 20 70 72 6f 67 | 72 61 6d 20 77 68 69 63 |ple prog|ram whic|
|000004c0| 68 20 63 6f 75 6e 74 73 | 20 74 6f 20 31 30 2e 0d |h counts| to 10..|
|000004d0| 20 20 49 74 20 64 65 6d | 6f 6e 73 74 72 61 74 65 |  It dem|onstrate|
|000004e0| 73 20 68 6f 77 20 74 6f | 20 64 65 63 6c 61 72 65 |s how to| declare|
|000004f0| 20 61 20 70 72 6f 67 72 | 61 6d 2c 20 61 6e 64 20 | a progr|am, and |
|00000500| 61 73 73 69 67 6e 20 69 | 74 20 61 20 0d 20 20 6d |assign i|t a .  m|
|00000510| 65 6e 75 20 73 74 72 69 | 6e 67 20 28 43 6f 75 6e |enu stri|ng (Coun|
|00000520| 74 20 54 6f 20 31 30 29 | 20 77 69 74 68 20 61 20 |t To 10)| with a |
|00000530| 63 6f 6d 6d 61 6e 64 20 | 6b 65 79 20 6f 70 74 69 |command |key opti|
|00000540| 6f 6e 20 28 2f 31 29 2e | 0d 2d 2d 2d 2d 2d 2d 2d |on (/1).|.-------|
|00000550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000560| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000570| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 7d 0d 70 |--------|-----}.p|
|00000580| 72 6f 67 72 61 6d 20 44 | 6f 43 6f 75 6e 74 20 27 |rogram D|oCount '|
|00000590| 43 6f 75 6e 74 20 54 6f | 20 31 30 2f 34 27 0d 62 |Count To| 10/4'.b|
|000005a0| 65 67 69 6e 0d 09 66 6f | 72 20 69 20 3d 20 31 20 |egin..fo|r i = 1 |
|000005b0| 74 6f 20 31 30 20 64 6f | 20 77 72 69 74 65 20 28 |to 10 do| write (|
|000005c0| 69 29 0d 09 77 72 69 74 | 65 6c 6e 0d 65 6e 64 0d |i)..writ|eln.end.|
|000005d0| 0d 7b 20 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.{ -----|--------|
|000005e0| 2d 2d 2d 20 46 61 63 74 | 6f 72 69 61 6c 20 2d 2d |--- Fact|orial --|
|000005f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000600| 2d 2d 2d 2d 0d 20 20 41 | 20 73 6c 69 67 68 74 6c |----.  A| slightl|
|00000610| 79 20 6d 6f 72 65 20 63 | 6f 6d 70 6c 65 78 20 70 |y more c|omplex p|
|00000620| 72 6f 67 72 61 6d 20 77 | 68 69 63 68 20 63 61 6c |rogram w|hich cal|
|00000630| 63 75 6c 61 74 65 73 0d | 20 20 61 6c 6c 20 74 68 |culates.|  all th|
|00000640| 65 20 20 66 61 63 74 6f | 72 69 61 6c 20 6e 75 6d |e  facto|rial num|
|00000650| 62 65 72 73 20 66 72 6f | 6d 20 31 20 74 6f 20 31 |bers fro|m 1 to 1|
|00000660| 35 2e 0d 20 20 49 74 20 | 64 65 6d 6f 6e 73 74 72 |5..  It |demonstr|
|00000670| 61 74 65 73 20 68 6f 77 | 20 74 6f 20 64 65 63 6c |ates how| to decl|
|00000680| 61 72 65 20 61 20 6c 6f | 63 61 6c 20 76 61 72 69 |are a lo|cal vari|
|00000690| 61 62 6c 65 20 28 20 66 | 20 29 2c 0d 20 20 61 6e |able ( f| ),.  an|
|000006a0| 64 20 75 73 65 73 20 61 | 20 6d 75 6c 74 69 2d 70 |d uses a| multi-p|
|000006b0| 61 72 61 6d 65 74 65 72 | 20 22 57 72 69 74 65 4c |arameter| "WriteL|
|000006c0| 6e 22 20 73 74 61 74 65 | 6d 65 6e 74 2e 0d 2d 2d |n" state|ment..--|
|000006d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000006f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 7d |--------|-------}|
|00000700| 0d 70 72 6f 67 72 61 6d | 20 46 61 63 74 20 27 46 |.program| Fact 'F|
|00000710| 61 63 74 6f 72 69 61 6c | 20 31 20 74 6f 20 31 30 |actorial| 1 to 10|
|00000720| 2f 35 27 0d 76 61 72 0d | 09 66 20 3a 20 72 65 61 |/5'.var.|.f : rea|
|00000730| 6c 0d 62 65 67 69 6e 0d | 09 66 20 3d 20 31 0d 09 |l.begin.|.f = 1..|
|00000740| 66 6f 72 20 69 20 3d 20 | 31 20 74 6f 20 31 30 20 |for i = |1 to 10 |
|00000750| 64 6f 0d 09 62 65 67 69 | 6e 0d 09 7b a5 20 43 61 |do..begi|n..{. Ca|
|00000760| 6c 63 75 6c 61 74 65 20 | 66 61 63 74 6f 72 69 61 |lculate |factoria|
|00000770| 6c 20 a5 7d 0d 09 09 66 | 20 3d 20 66 20 2a 20 69 |l .}...f| = f * i|
|00000780| 0d 09 09 77 72 69 74 65 | 6c 6e 20 28 27 46 61 63 |...write|ln ('Fac|
|00000790| 74 6f 72 69 61 6c 20 27 | 2c 69 2c 27 20 3d 20 27 |torial '|,i,' = '|
|000007a0| 2c 66 29 0d 09 65 6e 64 | 0d 65 6e 64 0d 0d 0d 7b |,f)..end|.end...{|
|000007b0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|000007c0| 2d 2d 2d 20 54 72 69 67 | 6f 6e 6f 6d 65 74 72 79 |--- Trig|onometry|
|000007d0| 20 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d | -------|--------|
|000007e0| 0d 20 20 54 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |.  This |program |
|000007f0| 75 73 65 73 20 61 6e 20 | 69 6e 74 65 72 6e 61 6c |uses an |internal|
|00000800| 20 74 72 69 67 6f 6e 6f | 6d 65 74 72 69 63 20 66 | trigono|metric f|
|00000810| 75 6e 63 74 69 6f 6e 2e | 0d 20 20 49 74 20 75 73 |unction.|.  It us|
|00000820| 65 73 20 22 70 72 69 6e | 74 22 20 69 6e 73 74 65 |es "prin|t" inste|
|00000830| 61 64 20 6f 66 20 22 57 | 72 69 74 65 4c 6e 22 2e |ad of "W|riteLn".|
|00000840| 0d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.-------|--------|
|00000850| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000860| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000870| 2d 2d 7d 0d 70 72 6f 67 | 72 61 6d 20 54 72 69 67 |--}.prog|ram Trig|
|00000880| 20 27 43 6f 73 20 30 20 | 74 6f 20 39 30 2f 36 27 | 'Cos 0 |to 90/6'|
|00000890| 0d 76 61 72 0d 09 63 6f | 73 52 65 73 75 6c 74 2c |.var..co|sResult,|
|000008a0| 20 64 65 67 72 65 65 73 | 20 3a 20 72 65 61 6c 0d | degrees| : real.|
|000008b0| 62 65 67 69 6e 0d 7b a5 | 20 43 61 6c 63 75 6c 61 |begin.{.| Calcula|
|000008c0| 74 65 20 74 68 65 20 63 | 6f 73 69 6e 65 20 6f 66 |te the c|osine of|
|000008d0| 20 61 6e 67 6c 65 73 20 | 66 72 6f 6d 20 30 20 74 | angles |from 0 t|
|000008e0| 6f 20 39 30 20 69 6e 20 | 73 74 65 70 73 20 6f 66 |o 90 in |steps of|
|000008f0| 20 31 30 20 a5 7d 0d 09 | 66 6f 72 20 69 20 3d 20 | 10 .}..|for i = |
|00000900| 30 20 74 6f 20 39 20 64 | 6f 0d 09 62 65 67 69 6e |0 to 9 d|o..begin|
|00000910| 0d 09 09 64 65 67 72 65 | 65 73 20 3d 20 69 20 2a |...degre|es = i *|
|00000920| 20 31 30 0d 09 09 63 6f | 73 52 65 73 75 6c 74 20 | 10...co|sResult |
|00000930| 3d 20 63 6f 73 20 28 64 | 65 67 72 65 65 73 29 0d |= cos (d|egrees).|
|00000940| 09 09 70 72 69 6e 74 20 | 28 27 63 6f 73 20 28 20 |..print |('cos ( |
|00000950| 27 2c 64 65 67 72 65 65 | 73 2c 27 29 20 3d 20 27 |',degree|s,') = '|
|00000960| 2c 63 6f 73 52 65 73 75 | 6c 74 29 0d 09 65 6e 64 |,cosResu|lt)..end|
|00000970| 0d 65 6e 64 0d 0d 0d 7b | 20 2d 2d 2d 2d 2d 2d 2d |.end...{| -------|
|00000980| 2d 2d 2d 2d 2d 20 53 74 | 72 69 6e 67 20 56 61 72 |----- St|ring Var|
|00000990| 69 61 62 6c 65 73 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |iables -|--------|
|000009a0| 2d 2d 2d 0d 20 20 54 68 | 69 73 20 70 72 6f 67 72 |---.  Th|is progr|
|000009b0| 61 6d 20 73 68 6f 77 73 | 20 68 6f 77 20 74 6f 20 |am shows| how to |
|000009c0| 63 72 65 61 74 65 20 61 | 6e 64 20 69 6e 69 74 69 |create a|nd initi|
|000009d0| 61 6c 69 7a 65 0d 20 20 | 73 74 72 69 6e 67 20 76 |alize.  |string v|
|000009e0| 61 72 69 61 62 6c 65 73 | 2e 20 49 74 20 73 68 6f |ariables|. It sho|
|000009f0| 77 73 20 68 6f 77 20 74 | 6f 20 70 61 73 73 20 74 |ws how t|o pass t|
|00000a00| 68 65 6d 20 61 73 20 0d | 20 20 61 72 67 75 6d 65 |hem as .|  argume|
|00000a10| 6e 74 73 20 74 6f 20 61 | 20 70 72 6f 63 65 64 75 |nts to a| procedu|
|00000a20| 72 65 20 6f 72 20 66 75 | 6e 63 74 69 6f 6e 2e 0d |re or fu|nction..|
|00000a30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000a50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 7d |--------|-------}|
|00000a60| 0d 50 72 6f 63 65 64 75 | 72 65 20 50 72 69 6e 74 |.Procedu|re Print|
|00000a70| 32 53 74 72 69 6e 67 73 | 20 28 61 53 74 72 69 6e |2Strings| (aStrin|
|00000a80| 67 2c 20 62 53 74 72 69 | 6e 67 3a 09 53 74 72 32 |g, bStri|ng:.Str2|
|00000a90| 35 35 29 0d 62 65 67 69 | 6e 0d 09 77 72 69 74 65 |55).begi|n..write|
|00000aa0| 6c 6e 20 28 27 31 29 20 | 27 2c 20 61 53 74 72 69 |ln ('1) |', aStri|
|00000ab0| 6e 67 29 0d 09 77 72 69 | 74 65 6c 6e 20 28 27 32 |ng)..wri|teln ('2|
|00000ac0| 29 20 27 2c 20 62 53 74 | 72 69 6e 67 29 0d 65 6e |) ', bSt|ring).en|
|00000ad0| 64 0d 0d 70 72 6f 67 72 | 61 6d 20 44 65 6d 6f 53 |d..progr|am DemoS|
|00000ae0| 74 72 69 6e 67 20 27 53 | 74 72 69 6e 67 20 56 61 |tring 'S|tring Va|
|00000af0| 72 69 61 62 6c 65 20 45 | 78 61 6d 70 6c 65 2f 37 |riable E|xample/7|
|00000b00| 27 0d 56 61 72 0d 09 61 | 53 74 72 69 6e 67 3a 09 |'.Var..a|String:.|
|00000b10| 53 74 72 32 35 35 09 09 | 09 7b a5 20 41 20 73 74 |Str255..|.{. A st|
|00000b20| 61 6e 64 61 72 64 20 73 | 74 72 69 6e 67 20 64 65 |andard s|tring de|
|00000b30| 63 6c 61 72 61 74 69 6f | 6e 20 a5 7d 0d 09 62 53 |claratio|n .}..bS|
|00000b40| 74 72 69 6e 67 3a 09 53 | 74 72 69 6e 67 09 09 09 |tring:.S|tring...|
|00000b50| 7b a5 20 4d 6f 72 65 20 | 6d 65 6d 6f 72 61 62 6c |{. More |memorabl|
|00000b60| 65 20 61 6c 74 65 72 6e | 61 74 69 76 65 20 74 6f |e altern|ative to|
|00000b70| 20 22 53 74 72 32 35 35 | 22 20 a5 7d 0d 62 65 67 | "Str255|" .}.beg|
|00000b80| 69 6e 0d 09 61 53 74 72 | 69 6e 67 20 3d 20 27 41 |in..aStr|ing = 'A|
|00000b90| 6e 68 79 64 72 6f 68 79 | 64 72 6f 78 79 70 72 6f |nhydrohy|droxypro|
|00000ba0| 67 65 73 74 65 72 6f 6e | 65 27 0d 09 62 53 74 72 |gesteron|e'..bStr|
|00000bb0| 69 6e 67 20 3d 20 27 73 | 79 6e 74 68 65 74 69 63 |ing = 's|ynthetic|
|00000bc0| 20 66 65 6d 61 6c 65 20 | 68 6f 72 6d 6f 6e 65 27 | female |hormone'|
|00000bd0| 0d 09 0d 09 7b a5 20 53 | 74 72 69 6e 67 20 63 72 |....{. S|tring cr|
|00000be0| 65 61 74 65 64 20 22 6f | 6e 20 74 68 65 20 66 6c |eated "o|n the fl|
|00000bf0| 79 22 2e 20 a5 7d 0d 09 | 7b a5 20 54 68 65 20 22 |y". .}..|{. The "|
|00000c00| 43 6f 6e 63 61 74 22 20 | 66 75 6e 63 74 69 6f 6e |Concat" |function|
|00000c10| 20 63 6f 6d 62 69 6e 65 | 73 20 32 20 6f 72 20 6d | combine|s 2 or m|
|00000c20| 6f 72 65 20 73 74 72 69 | 6e 67 73 2e 20 a5 7d 0d |ore stri|ngs. .}.|
|00000c30| 09 63 53 74 72 69 6e 67 | 20 3d 20 63 6f 6e 63 61 |.cString| = conca|
|00000c40| 74 20 28 61 53 74 72 69 | 6e 67 2c 27 3a 20 20 27 |t (aStri|ng,':  '|
|00000c50| 2c 62 53 74 72 69 6e 67 | 29 0d 09 0d 09 61 53 74 |,bString|)....aSt|
|00000c60| 72 69 6e 67 20 3d 20 27 | 54 72 69 6e 69 74 72 6f |ring = '|Trinitro|
|00000c70| 70 68 65 6e 79 6c 6d 65 | 74 68 79 6c 6e 69 74 72 |phenylme|thylnitr|
|00000c80| 61 6d 69 6e 65 27 0d 09 | 62 53 74 72 69 6e 67 20 |amine'..|bString |
|00000c90| 3d 20 27 61 20 74 79 70 | 65 20 6f 66 20 65 78 70 |= 'a typ|e of exp|
|00000ca0| 6c 6f 73 69 76 65 2e 27 | 0d 09 0d 09 7b a5 20 53 |losive.'|....{. S|
|00000cb0| 74 72 69 6e 67 20 63 72 | 65 61 74 65 64 20 70 72 |tring cr|eated pr|
|00000cc0| 6f 63 65 64 75 72 61 6c | 6c 79 20 a5 7d 0d 09 4e |ocedural|ly .}..N|
|00000cd0| 65 77 53 74 72 69 6e 67 | 20 28 64 53 74 72 69 6e |ewString| (dStrin|
|00000ce0| 67 29 0d 09 64 53 74 72 | 69 6e 67 20 3d 20 63 6f |g)..dStr|ing = co|
|00000cf0| 6e 63 61 74 20 28 61 53 | 74 72 69 6e 67 2c 27 3a |ncat (aS|tring,':|
|00000d00| 20 20 27 2c 62 53 74 72 | 69 6e 67 29 0d 09 0d 09 |  ',bStr|ing)....|
|00000d10| 7b a5 20 53 74 72 69 6e | 67 73 20 70 61 73 73 65 |{. Strin|gs passe|
|00000d20| 64 20 61 73 20 61 72 67 | 75 6d 65 6e 74 73 20 74 |d as arg|uments t|
|00000d30| 6f 20 61 20 73 75 62 72 | 6f 75 74 69 6e 65 20 a5 |o a subr|outine .|
|00000d40| 7d 0d 09 50 72 69 6e 74 | 32 53 74 72 69 6e 67 73 |}..Print|2Strings|
|00000d50| 20 28 63 53 74 72 69 6e | 67 2c 20 64 53 74 72 69 | (cStrin|g, dStri|
|00000d60| 6e 67 29 0d 65 6e 64 0d | 0d 7b 20 2d 2d 2d 2d 2d |ng).end.|.{ -----|
|00000d70| 2d 2d 2d 2d 2d 2d 2d 20 | 54 65 73 74 20 41 72 72 |------- |Test Arr|
|00000d80| 61 79 20 41 72 69 74 68 | 6d 65 74 69 63 20 2d 2d |ay Arith|metic --|
|00000d90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 20 20 54 68 69 |--------|--.  Thi|
|00000da0| 73 20 70 72 6f 67 72 61 | 6d 20 69 6e 69 74 69 61 |s progra|m initia|
|00000db0| 6c 69 7a 65 20 74 68 65 | 20 67 6c 6f 62 61 6c 20 |lize the| global |
|00000dc0| 61 72 72 61 79 2c 20 22 | 67 6c 6f 62 61 6c 41 72 |array, "|globalAr|
|00000dd0| 72 22 2c 20 61 6e 64 0d | 20 20 63 72 65 61 74 65 |r", and.|  create|
|00000de0| 73 20 61 6e 64 20 69 6e | 69 74 69 61 6c 69 7a 65 |s and in|itialize|
|00000df0| 73 20 61 20 6c 6f 63 61 | 6c 20 61 72 72 61 79 2c |s a loca|l array,|
|00000e00| 20 22 6c 6f 63 61 6c 41 | 72 72 22 2e 0d 20 20 49 | "localA|rr"..  I|
|00000e10| 74 20 61 64 64 73 2c 20 | 74 68 65 20 74 77 6f 20 |t adds, |the two |
|00000e20| 61 72 72 61 79 73 2c 20 | 61 6e 64 20 6f 75 74 70 |arrays, |and outp|
|00000e30| 75 74 73 20 74 68 65 20 | 72 65 73 75 6c 74 2e 0d |uts the |result..|
|00000e40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000e60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 7d |--------|-------}|
|00000e70| 0d 70 72 6f 67 72 61 6d | 20 74 65 73 74 41 72 72 |.program| testArr|
|00000e80| 20 27 41 72 72 61 79 20 | 45 78 61 6d 70 6c 65 2f | 'Array |Example/|
|00000e90| 38 27 0d 76 61 72 0d 09 | 6c 6f 63 61 6c 41 72 72 |8'.var..|localArr|
|00000ea0| 20 3a 20 41 72 72 61 79 | 5b 31 2e 2e 31 30 5d 0d | : Array|[1..10].|
|00000eb0| 62 65 67 69 6e 0d 7b a5 | 20 49 6e 69 74 69 61 6c |begin.{.| Initial|
|00000ec0| 69 7a 65 20 74 68 65 20 | 6c 6f 63 61 6c 20 61 6e |ize the |local an|
|00000ed0| 64 20 67 6c 6f 62 61 6c | 20 61 72 72 61 79 73 20 |d global| arrays |
|00000ee0| a5 7d 0d 09 66 6f 72 20 | 69 20 3d 20 31 20 74 6f |.}..for |i = 1 to|
|00000ef0| 20 31 30 20 64 6f 0d 09 | 62 65 67 69 6e 0d 09 09 | 10 do..|begin...|
|00000f00| 6c 6f 63 61 6c 41 72 72 | 5b 69 5d 20 3d 20 31 30 |localArr|[i] = 10|
|00000f10| 30 0d 09 09 67 6c 6f 62 | 61 6c 41 72 72 5b 69 5d |0...glob|alArr[i]|
|00000f20| 20 3d 20 69 0d 09 65 6e | 64 0d 09 0d 7b a5 20 41 | = i..en|d...{. A|
|00000f30| 64 64 20 74 68 65 20 74 | 77 6f 20 61 72 72 61 79 |dd the t|wo array|
|00000f40| 73 20 a5 7d 0d 09 67 6c | 6f 62 61 6c 41 72 72 20 |s .}..gl|obalArr |
|00000f50| 3d 20 67 6c 6f 62 61 6c | 41 72 72 20 2b 20 6c 6f |= global|Arr + lo|
|00000f60| 63 61 6c 41 72 72 0d 09 | 77 72 69 74 65 41 72 72 |calArr..|writeArr|
|00000f70| 20 28 67 6c 6f 62 61 6c | 41 72 72 29 0d 65 6e 64 | (global|Arr).end|
|00000f80| 0d 0d 0d 7b 20 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |...{ ---|--------|
|00000f90| 2d 20 53 70 68 65 72 65 | 20 56 6f 6c 75 6d 65 20 |- Sphere| Volume |
|00000fa0| 61 6e 64 20 53 2e 41 2e | 20 2d 2d 2d 2d 2d 2d 2d |and S.A.| -------|
|00000fb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 20 20 54 68 69 73 |--------|-.  This|
|00000fc0| 20 70 72 6f 67 72 61 6d | 20 64 65 6d 6f 6e 73 74 | program| demonst|
|00000fd0| 72 61 74 65 73 20 74 68 | 65 20 22 70 6f 73 65 44 |rates th|e "poseD|
|00000fe0| 69 61 6c 6f 67 22 20 61 | 6e 64 20 22 41 6c 65 72 |ialog" a|nd "Aler|
|00000ff0| 74 22 0d 20 20 63 6f 6d | 6d 61 6e 64 73 2e 20 49 |t".  com|mands. I|
|00001000| 74 20 75 73 65 73 20 70 | 6f 73 65 44 69 61 6c 6f |t uses p|oseDialo|
|00001010| 67 20 74 6f 20 70 72 6f | 6d 70 74 20 74 68 65 20 |g to pro|mpt the |
|00001020| 75 73 65 72 20 66 6f 72 | 0d 20 20 61 20 73 70 68 |user for|.  a sph|
|00001030| 65 72 65 27 73 20 72 61 | 64 69 75 73 2c 20 74 68 |ere's ra|dius, th|
|00001040| 65 6e 20 63 61 6c 63 75 | 6c 61 74 65 73 20 74 68 |en calcu|lates th|
|00001050| 65 20 76 6f 6c 75 6d 65 | 20 61 6e 64 0d 20 20 73 |e volume| and.  s|
|00001060| 75 72 66 61 63 65 20 61 | 72 65 61 20 6f 66 20 74 |urface a|rea of t|
|00001070| 68 65 20 73 70 68 65 72 | 65 2c 20 61 6e 64 20 72 |he spher|e, and r|
|00001080| 65 74 75 72 6e 73 20 74 | 68 65 20 72 65 73 75 6c |eturns t|he resul|
|00001090| 74 73 0d 20 20 74 6f 20 | 74 68 65 20 75 73 65 72 |ts.  to |the user|
|000010a0| 20 69 6e 20 61 6e 20 61 | 6c 65 72 74 20 64 69 61 | in an a|lert dia|
|000010b0| 6c 6f 67 2e 0d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |log..---|--------|
|000010c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000010d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000010e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 7d 0d 70 72 6f 67 |--------|--}.prog|
|000010f0| 72 61 6d 20 73 70 68 65 | 72 65 20 27 56 6f 6c 75 |ram sphe|re 'Volu|
|00001100| 6d 65 20 61 6e 64 20 53 | 2e 41 2e 20 6f 66 20 53 |me and S|.A. of S|
|00001110| 70 68 65 72 65 2f 39 27 | 0d 76 61 72 0d 09 72 61 |phere/9'|.var..ra|
|00001120| 64 69 75 73 2c 20 74 68 | 65 56 6f 6c 75 6d 65 2c |dius, th|eVolume,|
|00001130| 20 74 68 65 53 41 20 3a | 20 52 65 61 6c 0d 62 65 | theSA :| Real.be|
|00001140| 67 69 6e 0d 7b a5 20 41 | 73 6b 20 74 68 65 20 75 |gin.{. A|sk the u|
|00001150| 73 65 72 20 66 6f 72 20 | 74 68 65 20 72 61 64 69 |ser for |the radi|
|00001160| 75 73 20 6f 66 20 74 68 | 65 20 73 70 68 65 72 65 |us of th|e sphere|
|00001170| 20 a5 7d 0d 09 70 6f 73 | 65 44 69 61 6c 6f 67 20 | .}..pos|eDialog |
|00001180| 28 27 5c 72 43 61 6c 63 | 75 6c 61 74 65 20 74 68 |('\rCalc|ulate th|
|00001190| 65 20 76 6f 6c 75 6d 65 | 20 61 6e 64 20 73 75 72 |e volume| and sur|
|000011a0| 66 61 63 65 20 61 72 65 | 61 20 6f 66 20 61 20 73 |face are|a of a s|
|000011b0| 70 68 65 72 65 27 2c 20 | 0d 26 09 09 09 09 09 09 |phere', |.&......|
|000011c0| 27 52 61 64 69 75 73 20 | 6f 66 20 73 70 68 65 72 |'Radius |of spher|
|000011d0| 65 20 27 2c 72 61 64 69 | 75 73 29 0d 0d 7b a5 20 |e ',radi|us)..{. |
|000011e0| 43 61 6c 63 75 6c 61 74 | 65 20 74 68 65 20 73 75 |Calculat|e the su|
|000011f0| 72 66 61 63 65 20 61 72 | 65 61 20 61 6e 64 20 76 |rface ar|ea and v|
|00001200| 6f 6c 75 6d 65 20 a5 7d | 0d 09 74 68 65 53 41 20 |olume .}|..theSA |
|00001210| 3d 20 34 20 2a 20 70 69 | 20 2a 20 72 61 64 69 75 |= 4 * pi| * radiu|
|00001220| 73 20 5e 20 32 0d 09 74 | 68 65 56 6f 6c 75 6d 65 |s ^ 2..t|heVolume|
|00001230| 20 3d 20 28 34 20 2f 20 | 33 29 20 2a 20 70 69 20 | = (4 / |3) * pi |
|00001240| 2a 20 72 61 64 69 75 73 | 20 5e 20 33 0d 0d 7b a5 |* radius| ^ 3..{.|
|00001250| 20 53 65 6e 64 20 74 68 | 65 20 72 65 73 75 6c 74 | Send th|e result|
|00001260| 73 20 74 6f 20 61 6e 20 | 61 6c 65 72 74 20 64 69 |s to an |alert di|
|00001270| 61 6c 6f 67 20 a5 7d 0d | 09 41 6c 65 72 74 20 28 |alog .}.|.Alert (|
|00001280| 27 54 68 65 20 76 6f 6c | 75 6d 65 20 61 6e 64 20 |'The vol|ume and |
|00001290| 73 75 72 66 61 63 65 20 | 61 72 65 61 20 6f 66 20 |surface |area of |
|000012a0| 61 20 5c 72 20 73 70 68 | 65 72 65 20 77 69 74 68 |a \r sph|ere with|
|000012b0| 20 72 61 64 69 75 73 20 | 27 2c 20 0d 26 09 09 09 | radius |', .&...|
|000012c0| 09 09 72 61 64 69 75 73 | 2c 27 20 61 72 65 20 3a |..radius|,' are :|
|000012d0| 20 5c 72 20 56 6f 6c 75 | 6d 65 20 3d 20 27 2c 74 | \r Volu|me = ',t|
|000012e0| 68 65 56 6f 6c 75 6d 65 | 2c 0d 26 20 20 20 20 20 |heVolume|,.&     |
|000012f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00001300| 20 27 5c 72 20 53 75 72 | 66 61 63 65 20 61 72 65 | '\r Sur|face are|
|00001310| 61 20 3d 20 27 2c 74 68 | 65 53 41 29 0d 65 6e 64 |a = ',th|eSA).end|
|00001320| 0d 0d 0d 0d 0d 7b 20 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.....{ -|--------|
|00001330| 2d 2d 2d 2d 2d 2d 2d 2d | 20 43 6f 75 6e 74 20 44 |--------| Count D|
|00001340| 6f 77 6e 20 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |own ----|--------|
|00001350| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 20 20 54 68 69 |--------|--.  Thi|
|00001360| 73 20 70 72 6f 67 72 61 | 6d 20 64 65 6d 6f 6e 73 |s progra|m demons|
|00001370| 74 72 61 74 65 73 20 74 | 68 65 20 22 46 6c 75 73 |trates t|he "Flus|
|00001380| 68 4f 75 74 70 75 74 22 | 20 61 6e 64 20 22 42 65 |hOutput"| and "Be|
|00001390| 65 70 22 0d 20 20 63 6f | 6d 6d 61 6e 64 73 2e 20 |ep".  co|mmands. |
|000013a0| 49 74 20 63 6f 75 6e 74 | 73 20 64 6f 77 6e 20 66 |It count|s down f|
|000013b0| 72 6f 6d 20 31 30 20 74 | 6f 20 30 20 62 65 65 70 |rom 10 t|o 0 beep|
|000013c0| 69 6e 67 20 61 74 20 65 | 61 63 68 0d 20 20 63 6f |ing at e|ach.  co|
|000013d0| 75 6e 74 2e 20 41 20 70 | 61 75 73 65 20 69 73 20 |unt. A p|ause is |
|000013e0| 69 6e 74 72 6f 64 75 63 | 65 73 20 62 65 74 77 65 |introduc|es betwe|
|000013f0| 65 6e 20 65 61 63 68 20 | 63 6f 75 6e 74 20 62 79 |en each |count by|
|00001400| 0d 20 20 70 65 72 66 6f | 72 6d 69 6e 67 20 73 65 |.  perfo|rming se|
|00001410| 76 65 72 61 6c 20 68 75 | 6e 64 72 65 64 20 65 78 |veral hu|ndred ex|
|00001420| 70 6f 6e 65 6e 74 69 61 | 6c 20 63 61 6c 63 75 6c |ponentia|l calcul|
|00001430| 61 74 69 6f 6e 73 2e 0d | 2d 2d 2d 2d 2d 2d 2d 2d |ations..|--------|
|00001440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001460| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 7d 0d 70 |--------|-----}.p|
|00001470| 72 6f 67 72 61 6d 20 43 | 6f 75 6e 74 44 6f 77 6e |rogram C|ountDown|
|00001480| 20 27 4c 69 66 74 20 4f | 66 66 2f 30 27 0d 62 65 | 'Lift O|ff/0'.be|
|00001490| 67 69 6e 0d 09 57 72 69 | 74 65 4c 6e 0d 09 57 72 |gin..Wri|teLn..Wr|
|000014a0| 69 74 65 4c 6e 20 28 27 | 50 72 65 70 61 72 65 20 |iteLn ('|Prepare |
|000014b0| 66 6f 72 20 63 6f 75 6e | 74 20 64 6f 77 6e 2e 27 |for coun|t down.'|
|000014c0| 29 0d 09 46 6c 75 73 68 | 4f 75 74 70 75 74 0d 7b |)..Flush|Output.{|
|000014d0| 20 50 61 75 73 65 20 7d | 0d 09 46 6f 72 20 6b 20 | Pause }|..For k |
|000014e0| 3d 20 31 20 74 6f 20 31 | 30 30 20 64 6f 20 61 20 |= 1 to 1|00 do a |
|000014f0| 3d 20 65 78 70 28 32 2e | 30 29 0d 7b 20 53 74 61 |= exp(2.|0).{ Sta|
|00001500| 72 74 20 74 68 65 20 63 | 6f 75 6e 74 20 64 6f 77 |rt the c|ount dow|
|00001510| 6e 20 7d 0d 09 6a 20 3d | 20 31 30 0d 09 57 68 69 |n }..j =| 10..Whi|
|00001520| 6c 65 20 6a 20 3e 3d 20 | 30 20 64 6f 0d 09 62 65 |le j >= |0 do..be|
|00001530| 67 69 6e 0d 09 09 69 66 | 20 28 6a 20 3d 20 33 29 |gin...if| (j = 3)|
|00001540| 20 74 68 65 6e 20 0d 09 | 09 09 57 72 69 74 65 4c | then ..|..WriteL|
|00001550| 6e 20 28 27 49 67 6e 69 | 74 69 6f 6e 27 29 0d 09 |n ('Igni|tion')..|
|00001560| 09 69 66 20 28 6a 20 3c | 3e 20 30 29 20 74 68 65 |.if (j <|> 0) the|
|00001570| 6e 20 0d 09 09 09 57 72 | 69 74 65 4c 6e 20 28 6a |n ....Wr|iteLn (j|
|00001580| 29 0d 09 09 65 6c 73 65 | 0d 09 09 09 57 72 69 74 |)...else|....Writ|
|00001590| 65 4c 6e 20 28 27 4c 69 | 66 74 20 4f 66 66 20 21 |eLn ('Li|ft Off !|
|000015a0| 21 27 29 0d 09 09 46 6c | 75 73 68 4f 75 74 70 75 |!')...Fl|ushOutpu|
|000015b0| 74 0d 09 09 42 65 65 70 | 0d 09 09 6a 20 3d 20 6a |t...Beep|...j = j|
|000015c0| 20 2d 20 31 0d 09 7b 20 | 53 6c 6f 77 20 64 6f 77 | - 1..{ |Slow dow|
|000015d0| 6e 20 74 68 65 20 63 6f | 75 6e 74 20 7d 0d 09 09 |n the co|unt }...|
|000015e0| 46 6f 72 20 6b 20 3d 20 | 31 20 74 6f 20 35 30 20 |For k = |1 to 50 |
|000015f0| 64 6f 20 61 20 3d 20 65 | 78 70 28 32 2e 30 29 0d |do a = e|xp(2.0).|
|00001600| 09 65 6e 64 0d 65 6e 64 | 0d 00 00 00 00 00 00 00 |.end.end|........|
|00001610| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001620| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001630| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001640| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001650| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001660| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001670| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001680| 00 00 01 00 00 00 05 8e | 00 00 04 8e 00 00 00 6e |........|.......n|
|00001690| 2f 2c 00 08 2f 2c 00 04 | 2f 14 2f 2c 00 0c 70 00 |/,../,..|/./,..p.|
|000016a0| 2f 00 4e ad 0f 82 26 40 | 20 0b 57 c3 44 03 67 10 |/.N...&@| .W.D.g.|
|000016b0| 10 45 78 61 6d 70 6c 65 | 20 50 72 6f 67 72 61 6d |.Example| Program|
|000016c0| 73 61 02 00 00 00 50 61 | 72 74 53 49 54 78 00 00 |sa....Pa|rtSITx..|
|000016d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000016e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000016f0| 00 00 a9 80 15 fd 00 00 | 00 00 00 00 05 fc 70 0c |........|......p.|
|00001700| 2f 00 4e ad 03 fa 58 8f | 26 1f 26 40 20 0b 66 02 |/.N...X.|&.&@ .f.|
|00001710| 76 00 4a 03 67 0a 20 2d | fa 4c 27 40 00 08 60 02 |v.J.g. -|.L'@..`.|
|00001720| 70 00 28 4b 29 6d fa 50 | 00 08 70 00 2f 00 48 6c |p.(K)m.P|..p./.Hl|
|00001730| 00 0c 4e ad 1f b2 48 6c | 00 8e 4e ad 1f ea 48 6c |..N...Hl|..N...Hl|
|00001740| 01 9c 4e ba 08 e4 48 6c | 01 f8 4e ba 0a e8 42 2c |..N...Hl|..N...B,|
|00001750| 02 19 42 2c 02 1b 42 2c | 02 1c 70 00 29 40 02 04 |..B,..B,|..p.)@..|
|00001760| 29 40 02 08 29 40 02 0c | 29 40 02 10 4e ad 1e fa |)@..)@..|)@..N...|
|00001770| 19 40 02 18 2f 3c ff ff | a8 54 4e ad 03 8a 19 40 |.@../<..|.TN....@|
|00001780| 00 00 02 da 00 00 00 00 | 00 00 00 00 01 00 06 47 |........|.......G|
|00001790| 65 6e 65 76 61 00 00 00 | 00 00 00 00 00 00 00 00 |eneva...|........|
|000017a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017b0| 00 0c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017c0| 00 00 00 00 00 00 00 00 | 02 1c 00 00 00 00 01 00 |........|........|
|000017d0| 09 48 65 6c 76 65 74 69 | 63 61 00 00 00 00 00 00 |.Helveti|ca......|
|000017e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017f0| 00 00 00 12 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001800| 00 00 00 00 00 00 00 00 | 00 00 02 1d 00 00 00 00 |........|........|
|00001810| 01 00 06 47 65 6e 65 76 | 61 00 00 00 00 00 00 00 |...Genev|a.......|
|00001820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001830| 00 00 00 00 00 0c 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001840| 00 00 00 00 00 00 00 00 | 00 00 00 00 12 a3 00 00 |........|........|
|00001850| 00 00 01 00 06 47 65 6e | 65 76 61 08 01 ef ff 70 |.....Gen|eva....p|
|00001860| 7f ff 00 03 01 ff fc d0 | 7f ff 01 f0 00 48 27 11 |........|.....H'.|
|00001870| 01 ef ff fc 00 00 00 0c | 00 00 00 00 00 00 00 00 |........|........|
|00001880| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 12 a5 |........|........|
|00001890| 00 00 00 00 01 00 06 47 | 65 6e 65 76 61 00 00 00 |.......G|eneva...|
|000018a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018b0| 00 00 00 00 00 00 00 00 | 00 0c 00 00 00 00 00 00 |........|........|
|000018c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018d0| 12 fc 00 00 00 00 01 00 | 06 47 65 6e 65 76 61 75 |........|.Genevau|
|000018e0| 70 65 72 54 45 56 69 65 | 77 00 a0 00 00 78 7f ff |perTEVie|w....x..|
|000018f0| 00 08 00 0a 00 00 00 0a | 00 00 00 0c 00 00 00 00 |........|........|
|00001900| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001910| 00 00 13 07 00 00 00 00 | 01 00 06 47 65 6e 65 76 |........|...Genev|
|00001920| 61 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |a.......|........|
|00001930| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 0c 00 00 |........|........|
|00001940| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001950| 00 00 00 00 13 0e 00 00 | 00 00 01 00 06 47 65 6e |........|.....Gen|
|00001960| 65 76 61 75 70 65 72 54 | 45 56 69 65 77 00 a0 00 |evauperT|EView...|
|00001970| 00 78 7f ff 00 08 00 0a | 00 00 00 0a 00 00 00 0c |.x......|........|
|00001980| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001990| 00 00 00 00 00 00 13 12 | 00 00 00 00 01 00 06 47 |........|.......G|
|000019a0| 65 6e 65 76 61 00 00 00 | 00 00 00 00 00 00 00 00 |eneva...|........|
|000019b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019c0| 00 0c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019d0| 00 00 00 00 00 00 00 00 | 13 f6 00 00 00 00 01 00 |........|........|
|000019e0| 06 47 65 6e 65 76 61 75 | 70 65 72 54 45 56 69 65 |.Genevau|perTEVie|
|000019f0| 77 00 a0 00 00 78 7f ff | 00 08 00 0a 00 00 00 0a |w....x..|........|
|00001a00| 00 00 00 0c 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a10| 00 00 00 00 00 00 00 00 | 00 00 15 88 00 00 00 00 |........|........|
|00001a20| 01 00 06 47 65 6e 65 76 | 61 00 00 00 00 00 00 00 |...Genev|a.......|
|00001a30| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a40| 00 00 00 00 00 0c 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001a50| 00 00 00 00 00 00 00 00 | 00 00 00 00 15 8d 00 00 |........|........|
|00001a60| 01 12 09 48 65 6c 76 65 | 74 69 63 61 2f 28 00 32 |...Helve|tica/(.2|
|00001a70| 4e ad 01 12 20 54 21 5f | 00 48 48 6e ff bc 4e ad |N... T!_|.HHn..N.|
|00001a80| 16 da 4c df 18 e0 4e 5e | 4e 74 00 0c 00 00 4e 56 |..L...N^|Nt....NV|
|00001a90| 00 00 2f 0c 28 6e 00 08 | 20 54 42 28 00 4c 2f 2e |../.(n..| TB(.L/.|
|00001aa0| 00 0e 3f 2e 00 0c 1f 3c | 00 01 2f 2e 00 08 4e ba |..?....<|../...N.|
|00001ab0| fe 6a 20 54 11 7c 00 01 | 00 0f 70 68 b0 6e 00 0c |.j T.|..|..ph.n..|
|00001ac0| 56 c0 44 00 11 40 00 0e | 28 5f 4e 5e 4e 74 00 0a |V.D..@..|(_N^Nt..|
|00001ad0| 00 00 4e 56 00 00 48 e7 | 00 18 28 6e 00 08 26 6c |..NV..H.|..(n..&l|
|00001ae0| 00 08 20 2c ff f4 20 53 | b0 a8 00 3a 67 0e 42 a7 |.. ,.. S|...:g.B.|
|00001af0| 2f 2c ff f4 4e ad 17 92 | 29 5f ff f4 20 2c ff f0 |/,..N...|)_.. ,..|
|00001b00| 20 53 b0 a8 00 3e 67 0e | 42 a7 2f 2c ff f0 4e ad | S...>g.|B./,..N.|
|00001b10| 17 92 29 5f ff f0 2f 2c | 00 08 4e ad 24 5a 4c df |..)_../,|..N.$ZL.|
|00001b20| 18 00 4e 5e 4e 74 00 0a | 00 00 4e 56 ff ae 48 e7 |..N^Nt..|..NV..H.|
|00001b30| 07 18 26 6e 00 0c 28 6e | 00 08 2f 0b 3f 3c 00 69 |..&n..(n|../.?<.i|
|00001b40| 1f 3c 00 01 2f 2e 00 08 | 4e ba fd d0 42 05 7e 00 |.<../...|N...B.~.|
|00001b50| 70 00 2d 40 ff f0 2d 40 | 00 6a c1 c8 40 81 b5 d4 |p.-@..-@|.j..@...|
|00001b60| 40 81 00 0e 00 12 00 00 | 00 00 00 00 00 00 ff ff |@.......|........|
|00001b70| ff ff ff ff 00 00 00 78 | 00 0c 00 00 00 48 00 48 |.......x|.....H.H|
|00001b80| 00 00 00 00 02 f0 02 40 | ff ec ff ee 03 04 02 52 |.......@|.......R|
|00001b90| 64 02 05 28 03 fc 01 00 | 00 00 01 68 01 68 00 00 |d..(....|...h.h..|
|00001ba0| 00 00 0e b0 0b 40 00 01 | 00 00 00 64 00 01 00 00 |.....@..|...d....|
|00001bb0| 00 01 00 00 00 00 00 01 | 27 0f 00 01 00 00 00 00 |........|'.......|
|00001bc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001bd0| 00 00 00 00 00 00 ff 9c | ff a6 0f 14 0b 9a 00 08 |........|........|
|00001be0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001bf0| 00 00 00 1a 00 00 00 34 | 00 00 00 27 00 00 01 55 |.......4|...'...U|
|00001c00| 00 00 01 e2 00 12 00 00 | 00 00 09 24 00 01 00 00 |........|...$....|
|00001c10| 01 00 00 00 05 8e 00 00 | 04 8e 00 00 00 6e 00 d2 |........|.....n..|
|00001c20| b9 b0 05 26 00 00 00 1c | 00 6e 00 03 57 53 46 4d |...&....|.n..WSFM|
|00001c30| 00 00 00 22 53 50 45 43 | 00 00 00 2e 50 52 4e 54 |..."SPEC|....PRNT|
|00001c40| 00 00 00 3a 41 53 52 54 | 00 00 00 46 00 01 ff ff |...:ASRT|...F....|
|00001c50| 00 00 00 00 00 00 00 00 | 00 01 ff ff 00 00 02 de |........|........|
|00001c60| 00 00 00 00 00 01 ff ff | 00 00 03 f4 00 00 00 00 |........|........|
|00001c70| 2e e5 ff ff 00 00 04 70 | 00 d3 01 e0 00 00 00 00 |.......p|........|
+--------+-------------------------+-------------------------+--------+--------+