/ RISC DISC 2 / RISC_DISC_2.iso / pd_share / web / webster / !Webster / MakeCut

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1d f4 20 3e 20 | 3c 57 65 62 73 74 65 72 |..... > |<Webster|
|00000010| 24 44 69 72 3e 2e 4d 61 | 6b 65 43 75 74 0d 00 14 |$Dir>.Ma|keCut...|
|00000020| 05 f4 0d 00 1e 47 f4 20 | 4d 61 6b 65 73 20 61 20 |.....G. |Makes a |
|00000030| 63 75 74 20 64 6f 77 6e | 20 76 65 72 73 69 6f 6e |cut down| version|
|00000040| 20 6f 66 20 57 65 62 73 | 74 65 72 20 63 61 6c 6c | of Webs|ter call|
|00000050| 65 64 20 3c 57 65 62 73 | 74 65 72 24 44 69 72 3e |ed <Webs|ter$Dir>|
|00000060| 2e 43 75 74 49 6d 61 67 | 65 0d 00 28 05 f4 0d 00 |.CutImag|e..(....|
|00000070| 32 1d f4 20 2b 20 53 74 | 72 69 70 73 20 4c 65 61 |2.. + St|rips Lea|
|00000080| 64 69 6e 67 20 73 70 61 | 63 65 73 0d 00 3c 1d f4 |ding spa|ces..<..|
|00000090| 20 2b 20 53 6b 69 70 73 | 20 61 6c 6c 20 62 6c 61 | + Skips| all bla|
|000000a0| 6e 6b 20 6c 69 6e 65 73 | 0d 00 46 43 f4 20 2b 20 |nk lines|..FC. + |
|000000b0| 43 68 61 6e 67 65 73 20 | 74 68 65 20 6c 69 6e 65 |Changes |the line|
|000000c0| 20 73 74 61 72 74 69 6e | 67 20 22 63 75 74 25 3d | startin|g "cut%=|
|000000d0| 46 41 4c 53 45 22 20 74 | 6f 20 73 74 61 72 74 20 |FALSE" t|o start |
|000000e0| 22 63 75 74 25 3d 54 52 | 55 45 22 0d 00 50 41 f4 |"cut%=TR|UE"..PA.|
|000000f0| 20 2b 20 52 65 6d 6f 76 | 65 73 20 74 68 65 20 63 | + Remov|es the c|
|00000100| 6f 6e 74 65 6e 74 73 20 | 6f 66 20 70 72 6f 63 65 |ontents |of proce|
|00000110| 64 75 72 65 73 20 70 72 | 65 63 65 65 64 65 64 20 |dures pr|eceeded |
|00000120| 62 79 20 22 52 45 4d 24 | 63 75 74 22 0d 00 5a 3a |by "REM$|cut"..Z:|
|00000130| f4 20 20 20 54 68 65 20 | 70 72 6f 63 65 64 75 72 |.   The |procedur|
|00000140| 65 20 69 73 20 73 74 69 | 6c 6c 20 74 68 65 72 65 |e is sti|ll there|
|00000150| 2c 20 69 74 20 6a 75 73 | 74 20 64 6f 65 73 20 6e |, it jus|t does n|
|00000160| 6f 74 68 69 6e 67 0d 00 | 64 04 0d 00 6e 0c de 20 |othing..|d...n.. |
|00000170| 4d 43 20 31 30 30 0d 00 | 78 07 f2 4d 43 0d 00 82 |MC 100..|x..MC...|
|00000180| 04 0d 00 8c 23 49 25 3d | 8e 28 22 3c 57 65 62 73 |....#I%=|.("<Webs|
|00000190| 74 65 72 24 44 69 72 3e | 2e 21 52 75 6e 49 6d 61 |ter$Dir>|.!RunIma|
|000001a0| 67 65 22 29 0d 00 96 0e | 53 3d 31 30 30 2f a2 23 |ge")....|S=100/.#|
|000001b0| 49 25 0d 00 a0 22 4f 25 | 3d ae 28 22 3c 57 65 62 |I%..."O%|=.("<Web|
|000001c0| 73 74 65 72 24 44 69 72 | 3e 2e 43 75 74 49 6d 61 |ster$Dir|>.CutIma|
|000001d0| 67 65 22 29 0d 00 aa 3b | 5a 25 3d 9a 23 49 25 3a |ge")...;|Z%=.#I%:|
|000001e0| e7 5a 25 3c 3e 31 33 20 | f2 43 6f 6d 6d 65 6e 74 |.Z%<>13 |.Comment|
|000001f0| 28 22 54 68 69 73 20 69 | 73 20 4e 4f 54 20 61 20 |("This i|s NOT a |
|00000200| 42 61 73 69 63 20 70 72 | 6f 67 72 61 6d 22 29 0d |Basic pr|ogram").|
|00000210| 00 b4 11 d5 23 4f 25 2c | 5a 25 3a 73 74 25 3d 30 |....#O%,|Z%:st%=0|
|00000220| 0d 00 be 0c 64 65 66 25 | 3d 26 44 44 0d 00 c8 11 |....def%|=&DD....|
|00000230| 65 6e 64 24 3d 22 3d 22 | 2b bd 26 45 31 0d 00 d2 |end$="="|+.&E1...|
|00000240| 14 c8 99 22 48 6f 75 72 | 67 6c 61 73 73 5f 4f 6e |..."Hour|glass_On|
|00000250| 22 0d 00 dc 0d 50 25 3d | 26 34 30 36 43 34 0d 00 |"....P%=|&406C4..|
|00000260| e6 15 63 75 74 24 3d 22 | 63 75 74 25 3d 22 2b bd |..cut$="|cut%="+.|
|00000270| 26 41 33 0d 00 f0 05 f5 | 0d 00 fa 0c 20 61 25 3d |&A3.....|.... a%=|
|00000280| 9a 23 49 25 0d 01 04 16 | 20 e7 41 25 3c 3e 26 46 |.#I%....| .A%<>&F|
|00000290| 46 20 80 ac c5 23 49 25 | 20 8c 0d 01 0e 2b 20 20 |F ...#I%| ....+  |
|000002a0| 62 25 3d 9a 23 49 25 3a | 6c 69 25 3d 61 25 2a 32 |b%=.#I%:|li%=a%*2|
|000002b0| 35 36 2b 62 25 3a 4c 25 | 3d 9a 23 49 25 3a 41 24 |56+b%:L%|=.#I%:A$|
|000002c0| 3d be 23 49 25 0d 01 18 | 20 20 20 c8 95 97 41 24 |=.#I%...|   ...A$|
|000002d0| 3d 33 32 3a 4c 25 2d 3d | 31 3a 41 24 3d c1 41 24 |=32:L%-=|1:A$=.A$|
|000002e0| 2c 32 29 3a ce 0d 01 22 | 16 20 20 e7 a7 41 24 2c |,2):..."|.  ..A$,|
|000002f0| 22 24 63 75 74 22 29 3e | 30 20 8c 0d 01 2c 0c 20 |"$cut")>|0 ...,. |
|00000300| 20 20 73 74 25 3d 31 0d | 01 36 07 20 20 cc 0d 01 |  st%=1.|.6.  ...|
|00000310| 40 0e 20 20 20 e7 a9 41 | 24 3e 30 8c 0d 01 4a 0e |@.   ..A|$>0...J.|
|00000320| 20 20 20 20 c8 8e 73 74 | 25 ca 0d 01 54 25 20 20 |    ..st|%...T%  |
|00000330| 20 20 c9 30 3a e7 c0 41 | 24 2c 36 29 3d 63 75 74 |  .0:..A|$,6)=cut|
|00000340| 24 20 c1 41 24 2c 36 2c | 31 29 3d bd 26 42 39 0d |$ .A$,6,|1)=.&B9.|
|00000350| 01 5e 2d 20 20 20 20 20 | d5 23 4f 25 2c 61 25 3a |.^-     |.#O%,a%:|
|00000360| d5 23 4f 25 2c 62 25 3a | d5 23 4f 25 2c 4c 25 3a |.#O%,b%:|.#O%,L%:|
|00000370| d5 23 4f 25 2c 41 24 2b | bd 31 33 3b 0d 01 68 0b |.#O%,A$+|.13;..h.|
|00000380| 20 20 20 20 c9 31 3a 0d | 01 72 2d 20 20 20 20 20 |    .1:.|.r-     |
|00000390| d5 23 4f 25 2c 61 25 3a | d5 23 4f 25 2c 62 25 3a |.#O%,a%:|.#O%,b%:|
|000003a0| d5 23 4f 25 2c 4c 25 3a | d5 23 4f 25 2c 41 24 2b |.#O%,L%:|.#O%,A$+|
|000003b0| bd 31 33 3b 0d 01 7c 1a | 20 20 20 20 20 e7 a7 41 |.13;..|.|     ..A|
|000003c0| 24 2c bd 64 65 66 25 29 | 20 73 74 25 3d 32 0d 01 |$,.def%)| st%=2..|
|000003d0| 86 0b 20 20 20 20 c9 32 | 3a 0d 01 90 1b 20 20 20 |..    .2|:....   |
|000003e0| 20 20 e7 a7 65 6e 64 24 | 2c c0 41 24 2c 31 29 29 |  ..end$|,.A$,1))|
|000003f0| 3e 30 20 8c 0d 01 9a 2e | 20 20 20 20 20 20 d5 23 |>0 .....|      .#|
|00000400| 4f 25 2c 61 25 3a d5 23 | 4f 25 2c 62 25 3a d5 23 |O%,a%:.#|O%,b%:.#|
|00000410| 4f 25 2c 4c 25 3a d5 23 | 4f 25 2c 41 24 2b bd 31 |O%,L%:.#|O%,A$+.1|
|00000420| 33 3b 0d 01 a4 0f 20 20 | 20 20 20 20 73 74 25 3d |3;....  |    st%=|
|00000430| 30 0d 01 ae 0a 20 20 20 | 20 20 cd 0d 01 b8 09 20 |0....   |  ..... |
|00000440| 20 20 20 cb 0d 01 c2 08 | 20 20 20 cd 0d 01 cc 07 |   .....|   .....|
|00000450| 20 20 cd 0d 01 d6 06 20 | cd 0d 01 e0 10 20 c8 99 |  ..... |..... ..|
|00000460| 50 25 2c 8f 23 49 25 2a | 53 0d 01 ea 0b fd 61 25 |P%,.#I%*|S.....a%|
|00000470| 3d 26 46 46 0d 01 f4 0b | d5 23 4f 25 2c 61 25 0d |=&FF....|.#O%,a%.|
|00000480| 01 fe 08 d9 23 49 25 0d | 02 08 08 d9 23 4f 25 0d |....#I%.|....#O%.|
|00000490| 02 12 2b ff 22 53 65 74 | 54 79 70 65 20 3c 57 65 |..+."Set|Type <We|
|000004a0| 62 73 74 65 72 24 44 69 | 72 3e 2e 43 75 74 49 6d |bster$Di|r>.CutIm|
|000004b0| 61 67 65 20 42 61 73 69 | 63 22 0d 02 1c 15 c8 99 |age Basi|c"......|
|000004c0| 22 48 6f 75 72 67 6c 61 | 73 73 5f 4f 66 66 22 0d |"Hourgla|ss_Off".|
|000004d0| 02 26 05 e0 0d 02 30 04 | 0d 02 3a 08 dd f2 4d 43 |.&....0.|..:...MC|
|000004e0| 0d 02 44 0d e3 4f 25 3d | 30 b8 32 88 32 0d 02 4e |..D..O%=|0.2.2..N|
|000004f0| 09 50 25 3d 4d 43 0d 02 | 58 0a 5b 4f 50 54 4f 25 |.P%=MC..|X.[OPTO%|
|00000500| 0d 02 62 25 4c 44 52 20 | 52 30 2c 5b 52 31 34 2c |..b%LDR |R0,[R14,|
|00000510| 23 26 34 38 5d 3a 54 53 | 54 20 52 30 2c 23 26 38 |#&48]:TS|T R0,#&8|
|00000520| 30 30 30 30 30 0d 02 6c | 1a 42 49 43 45 51 20 52 |00000..l|.BICEQ R|
|00000530| 30 2c 52 30 2c 23 26 46 | 46 30 30 30 30 30 30 0d |0,R0,#&F|F000000.|
|00000540| 02 76 19 84 52 4e 45 20 | 52 30 2c 52 30 2c 23 26 |.v..RNE |R0,R0,#&|
|00000550| 46 46 30 30 30 30 30 30 | 0d 02 80 13 41 44 44 20 |FF000000|....ADD |
|00000560| 52 31 2c 52 31 34 2c 23 | 26 35 30 0d 02 8a 17 41 |R1,R14,#|&50....A|
|00000570| 44 44 20 52 30 2c 52 31 | 2c 52 30 2c 4c 53 4c 20 |DD R0,R1|,R0,LSL |
|00000580| 23 32 0d 02 94 1b 41 44 | 52 20 52 31 2c 74 65 6d |#2....AD|R R1,tem|
|00000590| 70 3a 53 54 52 20 52 30 | 2c 5b 52 31 5d 0d 02 9e |p:STR R0|,[R1]...|
|000005a0| 0e 4d 4f 56 20 50 43 2c | 52 31 34 0d 02 a8 10 2e |.MOV PC,|R14.....|
|000005b0| 74 65 6d 70 20 45 51 55 | 44 20 30 0d 02 b2 07 5d |temp EQU|D 0....]|
|000005c0| 3a ed 0d 02 bc 15 d6 20 | 4d 43 3a 6d 61 74 63 68 |:...... |MC:match|
|000005d0| 25 3d 21 74 65 6d 70 0d | 02 c6 09 50 25 3d 4d 43 |%=!temp.|...P%=MC|
|000005e0| 0d 02 d0 05 e1 0d ff    |                         |....... |        |
+--------+-------------------------+-------------------------+--------+--------+