/ The Datafile PD-CD 4 / DATAFILE_PDCD4.iso / utilities / utilsc / computils / !CompUtils / Resources / ExpCode / Example

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1f f4 20 3e 20 | 3c 42 61 73 69 63 53 61 |..... > |<BasicSa|
|00000010| 76 65 24 44 69 72 3e 2e | 45 78 61 6d 70 6c 65 0d |ve$Dir>.|Example.|
|00000020| 00 14 04 0d 00 1e 16 69 | 6e 24 3d 22 52 41 4d 3a |.......i|n$="RAM:|
|00000030| 24 2e 49 6e 46 69 6c 65 | 22 0d 00 28 18 6f 75 74 |$.InFile|"..(.out|
|00000040| 24 3d 22 52 41 4d 3a 24 | 2e 4f 75 74 46 69 6c 65 |$="RAM:$|.OutFile|
|00000050| 22 0d 00 32 27 63 6f 64 | 65 24 3d 22 43 6f 6d 70 |"..2'cod|e$="Comp|
|00000060| 55 74 69 6c 73 3a 45 78 | 70 43 6f 64 65 2e 55 6e |Utils:Ex|pCode.Un|
|00000070| 69 76 65 72 73 61 6c 22 | 0d 00 3c 04 0d 00 46 1a |iversal"|..<...F.|
|00000080| f4 20 2d 2d 2d 20 6c 6f | 61 64 20 75 74 69 6c 69 |. --- lo|ad utili|
|00000090| 74 79 20 2d 2d 2d 0d 00 | 50 27 c8 99 20 22 4f 53 |ty ---..|P'.. "OS|
|000000a0| 5f 46 69 6c 65 22 2c 35 | 2c 63 6f 64 65 24 20 b8 |_File",5|,code$ .|
|000000b0| 20 61 25 2c 2c 2c 2c 6c | 25 20 3b 66 25 0d 00 5a | a%,,,,l|% ;f%..Z|
|000000c0| 13 e7 20 61 25 3c 3e 31 | 20 8c 20 6c 25 3d 31 36 |.. a%<>1| . l%=16|
|000000d0| 0d 00 64 0e de 20 63 6f | 64 65 25 20 6c 25 0d 00 |..d.. co|de% l%..|
|000000e0| 6e 28 c8 99 20 22 4f 53 | 5f 46 69 6c 65 22 2c 32 |n(.. "OS|_File",2|
|000000f0| 35 35 2c 63 6f 64 65 24 | 2c 63 6f 64 65 25 2c 30 |55,code$|,code%,0|
|00000100| 20 b8 20 3b 66 25 0d 00 | 78 04 0d 00 82 22 f4 20 | . ;f%..|x....". |
|00000110| 2d 2d 2d 20 73 65 74 20 | 75 70 20 73 6f 75 72 63 |--- set |up sourc|
|00000120| 65 20 62 75 66 66 65 72 | 20 2d 2d 2d 0d 00 8c 16 |e buffer| ---....|
|00000130| 73 6f 75 72 63 65 6c 65 | 6e 25 3d 31 30 32 34 2a |sourcele|n%=1024*|
|00000140| 31 30 0d 00 96 1e de 20 | 73 6f 75 72 63 65 62 75 |10..... |sourcebu|
|00000150| 66 66 65 72 25 20 73 6f | 75 72 63 65 6c 65 6e 25 |ffer% so|urcelen%|
|00000160| 0d 00 a0 04 0d 00 aa 1d | f4 20 2d 2d 2d 20 73 65 |........|. --- se|
|00000170| 74 20 75 70 20 70 6f 69 | 6e 74 65 72 73 20 2d 2d |t up poi|nters --|
|00000180| 2d 0d 00 b4 1a 63 6f 64 | 65 25 21 31 32 3d 73 6f |-....cod|e%!12=so|
|00000190| 75 72 63 65 62 75 66 66 | 65 72 25 0d 00 be 17 63 |urcebuff|er%....c|
|000001a0| 6f 64 65 25 21 31 36 3d | 73 6f 75 72 63 65 6c 65 |ode%!16=|sourcele|
|000001b0| 6e 25 0d 00 c8 13 de 20 | 66 69 6c 65 6e 61 6d 65 |n%..... |filename|
|000001c0| 25 20 32 35 36 0d 00 d2 | 12 24 66 69 6c 65 6e 61 |% 256...|.$filena|
|000001d0| 6d 65 25 3d 69 6e 24 0d | 00 dc 16 63 6f 64 65 25 |me%=in$.|...code%|
|000001e0| 21 32 38 3d 66 69 6c 65 | 6e 61 6d 65 25 0d 00 e6 |!28=file|name%...|
|000001f0| 04 0d 00 f0 1e f4 20 2d | 2d 2d 20 73 65 74 20 6f |...... -|-- set o|
|00000200| 75 74 70 75 74 20 66 6c | 61 67 73 20 2d 2d 2d 0d |utput fl|ags ---.|
|00000210| 00 fa 11 63 6f 64 65 25 | 21 33 36 3d 25 30 30 30 |...code%|!36=%000|
|00000220| 0d 01 04 32 f4 20 69 65 | 2e 20 6c 6f 67 61 72 69 |...2. ie|. logari|
|00000230| 74 68 6d 69 63 20 38 2d | 62 69 74 20 66 6f 72 6d |thmic 8-|bit form|
|00000240| 61 74 2c 20 6e 6f 20 65 | 6e 68 61 6e 63 65 6d 65 |at, no e|nhanceme|
|00000250| 6e 74 0d 01 0e 04 0d 01 | 18 22 f4 20 2d 2d 2d 20 |nt......|.". --- |
|00000260| 73 65 74 20 6f 66 66 73 | 65 74 20 69 6e 74 6f 20 |set offs|et into |
|00000270| 66 69 6c 65 20 2d 2d 2d | 0d 01 22 0e 63 6f 64 65 |file ---|..".code|
|00000280| 25 21 34 34 3d 30 0d 01 | 2c 04 0d 01 36 1e d1 20 |%!44=0..|,...6.. |
|00000290| 3d 20 30 20 3a 20 f4 20 | 6a 75 73 74 20 66 6f 72 |= 0 : . |just for|
|000002a0| 20 74 69 6d 69 6e 67 21 | 0d 01 40 04 0d 01 4a 1d | timing!|..@...J.|
|000002b0| f4 20 2d 2d 2d 20 69 6e | 69 74 69 61 6c 69 73 65 |. --- in|itialise|
|000002c0| 20 63 6f 64 65 20 2d 2d | 2d 0d 01 54 0d d6 20 63 | code --|-..T.. c|
|000002d0| 6f 64 65 25 2b 30 0d 01 | 68 04 0d 01 72 25 f4 20 |ode%+0..|h...r%. |
|000002e0| 2d 2d 2d 20 69 6e 69 74 | 69 61 6c 69 73 61 74 69 |--- init|ialisati|
|000002f0| 6f 6e 20 63 6f 6d 70 6c | 65 74 65 20 2d 2d 2d 0d |on compl|ete ---.|
|00000300| 01 7c 04 0d 01 86 34 f4 | 20 2d 2d 2d 20 73 65 74 |.|....4.| --- set|
|00000310| 20 75 70 20 64 65 73 74 | 69 6e 61 74 69 6f 6e 20 | up dest|ination |
|00000320| 62 75 66 66 65 72 20 61 | 6e 64 20 70 6f 69 6e 74 |buffer a|nd point|
|00000330| 65 72 73 20 2d 2d 2d 0d | 01 90 15 64 65 73 74 6c |ers ---.|...destl|
|00000340| 65 6e 25 3d 63 6f 64 65 | 25 21 34 30 0d 01 9a 18 |en%=code|%!40....|
|00000350| de 20 64 65 73 74 62 75 | 66 66 25 20 64 65 73 74 |. destbu|ff% dest|
|00000360| 6c 65 6e 25 0d 01 a4 16 | 63 6f 64 65 25 21 32 30 |len%....|code%!20|
|00000370| 3d 64 65 73 74 62 75 66 | 66 25 0d 01 ae 15 63 6f |=destbuf|f%....co|
|00000380| 64 65 25 21 32 34 3d 64 | 65 73 74 6c 65 6e 25 0d |de%!24=d|estlen%.|
|00000390| 01 b8 04 0d 01 c2 1c f4 | 20 2d 2d 2d 20 70 72 6f |........| --- pro|
|000003a0| 63 65 73 73 20 73 61 6d | 70 6c 65 20 2d 2d 2d 0d |cess sam|ple ---.|
|000003b0| 01 cc 0d d6 20 63 6f 64 | 65 25 2b 34 0d 01 e0 04 |.... cod|e%+4....|
|000003c0| 0d 01 ea 35 f1 22 54 69 | 6d 65 20 74 61 6b 65 6e |...5."Ti|me taken|
|000003d0| 3a 20 22 3b a8 28 91 2f | 35 30 2b 30 2e 35 29 2f |: ";.(./|50+0.5)/|
|000003e0| 32 3b 22 20 73 65 63 73 | 22 20 3a 20 f4 20 74 69 |2;" secs|" : . ti|
|000003f0| 6d 69 6e 67 21 0d 01 f4 | 04 0d 01 fe 2d f4 20 2d |ming!...|....-. -|
|00000400| 2d 2d 20 73 61 76 65 20 | 64 65 73 74 69 6e 61 74 |-- save |destinat|
|00000410| 69 6f 6e 20 62 75 66 66 | 65 72 20 74 6f 20 64 69 |ion buff|er to di|
|00000420| 73 63 20 2d 2d 2d 0d 02 | 08 32 f4 20 6f 66 66 73 |sc ---..|.2. offs|
|00000430| 65 74 20 2b 34 30 20 63 | 6f 6e 74 61 69 6e 73 20 |et +40 c|ontains |
|00000440| 6c 65 6e 67 74 68 20 6f | 66 20 64 61 74 61 20 69 |length o|f data i|
|00000450| 6e 20 62 75 66 66 65 72 | 0d 02 12 3b c8 99 20 22 |n buffer|...;.. "|
|00000460| 4f 53 5f 46 69 6c 65 22 | 2c 31 30 2c 6f 75 74 24 |OS_File"|,10,out$|
|00000470| 2c 26 46 46 44 2c 2c 64 | 65 73 74 62 75 66 66 25 |,&FFD,,d|estbuff%|
|00000480| 2c 64 65 73 74 62 75 66 | 66 25 2b 63 6f 64 65 25 |,destbuf|f%+code%|
|00000490| 21 34 30 0d 02 1c 04 0d | 02 26 18 f4 20 20 20 41 |!40.....|.&..   A|
|000004a0| 6c 6c 20 64 6f 6e 65 2c | 20 73 6f 20 65 6e 64 0d |ll done,| so end.|
|000004b0| 02 30 04 0d 02 3a 34 f4 | 20 20 20 49 66 20 79 6f |.0...:4.|   If yo|
|000004c0| 75 20 77 61 6e 74 20 74 | 6f 20 63 68 65 63 6b 20 |u want t|o check |
|000004d0| 74 68 65 20 6f 75 74 70 | 75 74 20 66 69 6c 65 20 |the outp|ut file |
|000004e0| 6c 6f 61 64 20 69 74 0d | 02 44 2a f4 20 20 20 69 |load it.|.D*.   i|
|000004f0| 6e 74 6f 20 61 6e 20 65 | 64 69 74 6f 72 20 61 73 |nto an e|ditor as|
|00000500| 20 6c 6f 67 61 72 69 74 | 68 6d 69 63 20 64 61 74 | logarit|hmic dat|
|00000510| 61 0d 02 4e 04 0d 02 58 | 1b f4 20 20 20 54 68 61 |a..N...X|..   Tha|
|00000520| 74 27 73 20 61 6c 6c 20 | 66 6f 6c 6b 73 21 21 21 |t's all |folks!!!|
|00000530| 0d 02 62 05 e0 0d ff    |                         |..b.... |        |
+--------+-------------------------+-------------------------+--------+--------+