/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / s / signpost / !SignPost / XBM2Spr

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1b f4 20 58 42 | 4d 20 74 6f 20 53 70 72 |..... XB|M to Spr|
|00000010| 69 74 65 20 44 65 63 6f | 64 65 72 0d 00 14 0a f4 |ite Deco|der.....|
|00000020| 20 76 2e 30 32 0d 00 1e | 05 f4 0d 00 28 3d f4 20 | v.02...|....(=. |
|00000030| 53 79 6e 74 61 78 3a 20 | 58 42 4d 32 73 70 72 20 |Syntax: |XBM2spr |
|00000040| 3c 6d 6f 64 65 3e 20 3c | 73 6f 75 72 63 65 5f 66 |<mode> <|source_f|
|00000050| 69 6c 65 3e 20 3c 64 65 | 73 74 69 6e 61 74 69 6f |ile> <de|stinatio|
|00000060| 6e 5f 66 69 6c 65 3e 0d | 00 32 04 0d 00 3c 11 f2 |n_file>.|.2...<..|
|00000070| 73 65 74 75 70 68 65 61 | 70 28 93 29 0d 00 46 16 |setuphea|p(.)..F.|
|00000080| c8 99 22 4f 53 5f 47 65 | 74 45 6e 76 22 20 b8 20 |.."OS_Ge|tEnv" . |
|00000090| 63 24 0d 00 50 29 50 25 | 3d a7 63 24 2c 22 22 22 |c$..P)P%|=.c$,"""|
|000000a0| 22 2c a7 63 24 2c 22 22 | 22 22 29 2b 31 29 3a 63 |",.c$,""|"")+1):c|
|000000b0| 24 3d c1 63 24 2c 50 25 | 2b 31 29 0d 00 5a 1c c8 |$=.c$,P%|+1)..Z..|
|000000c0| 95 c0 63 24 2c 31 29 3d | 22 20 22 3a 63 24 3d c1 |..c$,1)=|" ":c$=.|
|000000d0| 63 24 2c 32 29 3a ce 0d | 00 64 2c 50 25 3d a7 63 |c$,2):..|.d,P%=.c|
|000000e0| 24 2c 22 20 22 29 3a 6d | 6f 64 65 24 3d c0 63 24 |$," "):m|ode$=.c$|
|000000f0| 2c 50 25 2d 31 29 3a 63 | 24 3d c1 63 24 2c 50 25 |,P%-1):c|$=.c$,P%|
|00000100| 2b 31 29 0d 00 6e 18 c8 | 95 97 63 24 3d 33 32 3a |+1)..n..|..c$=32:|
|00000110| 63 24 3d c1 63 24 2c 32 | 29 3a ce 0d 00 78 2b 50 |c$=.c$,2|):...x+P|
|00000120| 25 3d a7 63 24 2c 22 20 | 22 29 3a 53 72 63 24 3d |%=.c$," |"):Src$=|
|00000130| c0 63 24 2c 50 25 2d 31 | 29 3a 63 24 3d c1 63 24 |.c$,P%-1|):c$=.c$|
|00000140| 2c 50 25 2b 31 29 0d 00 | 82 18 c8 95 97 63 24 3d |,P%+1)..|.....c$=|
|00000150| 33 32 3a 63 24 3d c1 63 | 24 2c 32 29 3a ce 0d 00 |32:c$=.c|$,2):...|
|00000160| 8c 0c 44 65 73 74 24 3d | 63 24 0d 00 96 2b 50 25 |..Dest$=|c$...+P%|
|00000170| 3d a7 44 65 73 74 24 2c | 22 20 22 29 3a e7 50 25 |=.Dest$,|" "):.P%|
|00000180| 3e 30 20 44 65 73 74 24 | 3d c0 44 65 73 74 24 2c |>0 Dest$|=.Dest$,|
|00000190| 50 25 2d 31 29 0d 00 a0 | 04 0d 00 aa 09 f2 69 6e |P%-1)...|......in|
|000001a0| 69 74 0d 00 b4 04 0d 00 | be 16 ee 85 f2 65 72 72 |it......|.....err|
|000001b0| 6f 72 28 f6 24 2c 9f 2c | 9e 29 3a e0 0d 00 c8 04 |or(.$,.,|.):.....|
|000001c0| 0d 00 d2 1d 54 25 3d a4 | 78 62 6d 74 6f 73 70 72 |....T%=.|xbmtospr|
|000001d0| 28 53 72 63 24 2c bb 6d | 6f 64 65 24 29 0d 00 dc |(Src$,.m|ode$)...|
|000001e0| 1f e7 54 25 3e 30 20 c8 | 99 53 4f 25 2c 32 35 36 |..T%>0 .|.SO%,256|
|000001f0| 2b 31 32 2c 54 25 2c 44 | 65 73 74 24 0d 00 e6 05 |+12,T%,D|est$....|
|00000200| e0 0d 00 f0 04 0d 00 fa | 1b dd a4 78 62 6d 74 6f |........|...xbmto|
|00000210| 73 70 72 28 46 24 2c 78 | 62 6d 6d 6f 64 65 25 29 |spr(F$,x|bmmode%)|
|00000220| 0d 01 04 24 ea 20 73 25 | 2c 61 24 2c 57 25 2c 48 |...$. s%|,a$,W%,H|
|00000230| 25 2c 78 25 2c 79 25 2c | 43 25 2c 4d 25 2c 48 24 |%,x%,y%,|C%,M%,H$|
|00000240| 2c 66 69 25 0d 01 0e 13 | 66 69 25 3d 8e 28 46 24 |,fi%....|fi%=.(F$|
|00000250| 29 3a 73 25 3d 2d 31 0d | 01 18 0b e7 66 69 25 3e |):s%=-1.|....fi%>|
|00000260| 30 8c 0d 01 22 0c c8 95 | ac c5 23 66 69 25 0d 01 |0..."...|..#fi%..|
|00000270| 2c 23 20 61 24 3d be 23 | 66 69 25 3a 48 24 3d 22 |,# a$=.#|fi%:H$="|
|00000280| 30 31 32 33 34 35 36 37 | 38 39 41 42 43 44 45 46 |01234567|89ABCDEF|
|00000290| 22 0d 01 36 18 20 e7 c0 | 61 24 2c 37 29 3d 22 23 |"..6. ..|a$,7)="#|
|000002a0| 64 65 66 69 6e 65 22 20 | 8c 0d 01 40 24 20 20 61 |define" |...@$  a|
|000002b0| 24 3d c1 61 24 2c 38 29 | 3a c8 95 97 61 24 3d 33 |$=.a$,8)|:...a$=3|
|000002c0| 32 3a 61 24 3d c1 61 24 | 2c 32 29 3a ce 0d 01 4a |2:a$=.a$|,2):...J|
|000002d0| 2a 20 20 50 25 3d a7 61 | 24 2c 22 5f 77 69 64 74 |*  P%=.a|$,"_widt|
|000002e0| 68 22 29 3a e7 50 25 3e | 30 20 57 25 3d bb c1 61 |h"):.P%>|0 W%=..a|
|000002f0| 24 2c 50 25 2b 36 29 0d | 01 54 2b 20 20 50 25 3d |$,P%+6).|.T+  P%=|
|00000300| a7 61 24 2c 22 5f 68 65 | 69 67 68 74 22 29 3a e7 |.a$,"_he|ight"):.|
|00000310| 50 25 3e 30 20 48 25 3d | bb c1 61 24 2c 50 25 2b |P%>0 H%=|..a$,P%+|
|00000320| 37 29 0d 01 5e 06 20 cc | 0d 01 68 18 20 20 e7 c0 |7)..^. .|..h.  ..|
|00000330| 61 24 2c 36 29 3d 22 73 | 74 61 74 69 63 22 20 8c |a$,6)="s|tatic" .|
|00000340| 0d 01 72 25 20 20 20 61 | 24 3d c1 61 24 2c 37 29 |..r%   a|$=.a$,7)|
|00000350| 3a c8 95 97 61 24 3d 33 | 32 3a 61 24 3d c1 61 24 |:...a$=3|2:a$=.a$|
|00000360| 2c 32 29 3a ce 0d 01 7c | 18 20 20 20 e7 20 c0 61 |,2):...||.   . .a|
|00000370| 24 2c 34 29 3d 22 63 68 | 61 72 22 20 8c 0d 01 86 |$,4)="ch|ar" ....|
|00000380| 22 20 20 20 20 4c 25 3d | 28 28 57 25 81 38 29 2b |"    L%=|((W%.8)+|
|00000390| 38 2b 28 57 25 2a 48 25 | 29 2b 32 30 29 2a 32 0d |8+(W%*H%|)+20)*2.|
|000003a0| 01 90 3c 20 20 20 20 78 | 25 3d 30 3a 79 25 3d 30 |..<    x|%=0:y%=0|
|000003b0| 3a 73 25 3d a4 64 69 6d | 28 4c 25 29 3a 21 73 25 |:s%=.dim|(L%):!s%|
|000003c0| 3d 4c 25 3a 73 25 21 34 | 3d 30 3a 73 25 21 38 3d |=L%:s%!4|=0:s%!8=|
|000003d0| 31 36 3a 73 25 21 31 32 | 3d 31 36 0d 01 9a 35 20 |16:s%!12|=16...5 |
|000003e0| 20 20 20 21 73 25 3d 4c | 25 3a c8 99 53 4f 25 2c |   !s%=L|%:..SO%,|
|000003f0| 32 35 36 2b 31 35 2c 73 | 25 2c 22 53 50 52 22 2c |256+15,s|%,"SPR",|
|00000400| 30 2c 57 25 2c 48 25 2c | 78 62 6d 6d 6f 64 65 25 |0,W%,H%,|xbmmode%|
|00000410| 0d 01 a4 23 20 20 20 20 | c8 99 53 4f 25 2c 32 35 |...#    |..SO%,25|
|00000420| 36 2b 32 39 2c 73 25 2c | 22 53 50 52 22 3a 48 25 |6+29,s%,|"SPR":H%|
|00000430| 2d 3d 31 0d 01 ae 24 20 | 20 20 20 c8 99 53 4f 25 |-=1...$ |   ..SO%|
|00000440| 2c 32 35 36 2b 32 34 2c | 73 25 2c 22 53 50 52 22 |,256+24,|s%,"SPR"|
|00000450| b8 2c 2c 73 70 72 25 0d | 01 b8 1f 20 20 20 20 c8 |.,,spr%.|...    .|
|00000460| 95 a7 61 24 2c 22 7b 22 | 29 3d 30 3a 61 24 3d be |..a$,"{"|)=0:a$=.|
|00000470| 23 66 69 25 3a ce 0d 01 | c2 24 20 20 20 20 61 24 |#fi%:...|.$    a$|
|00000480| 3d a4 63 28 c1 61 24 2c | a7 61 24 2c 22 7b 22 29 |=.c(.a$,|.a$,"{")|
|00000490| 2b 31 29 29 3a 79 25 3d | 48 25 0d 01 cc 1b 20 20 |+1)):y%=|H%....  |
|000004a0| 20 20 c8 95 c0 61 24 2c | 31 29 3c 3e 22 7d 22 80 |  ...a$,|1)<>"}".|
|000004b0| 79 25 3e 2d 31 0d 01 d6 | 1d 20 20 20 20 20 c8 95 |y%>-1...|.     ..|
|000004c0| 97 61 24 3d 33 32 3a 61 | 24 3d c1 61 24 2c 32 29 |.a$=32:a|$=.a$,2)|
|000004d0| 3a ce 0d 01 e0 46 20 20 | 20 20 20 e7 a9 61 24 3d |:....F  |   ..a$=|
|000004e0| 30 20 f5 3a 61 24 3d be | 23 66 69 25 3a c8 95 97 |0 .:a$=.|#fi%:...|
|000004f0| 61 24 3d 33 32 3a 61 24 | 3d c1 61 24 2c 32 29 3a |a$=32:a$|=.a$,2):|
|00000500| ce 3a fd a9 61 24 3e 30 | 84 c5 23 66 69 25 3a 61 |.:..a$>0|..#fi%:a|
|00000510| 24 3d a4 63 28 61 24 29 | 0d 01 ea 78 20 20 20 20 |$=.c(a$)|...x    |
|00000520| 20 e7 c0 61 24 2c 32 29 | 3d 22 30 58 22 20 56 25 | ..a$,2)|="0X" V%|
|00000530| 3d 28 28 a7 48 24 2c c1 | 61 24 2c 33 2c 31 29 29 |=((.H$,.|a$,3,1))|
|00000540| 2d 31 29 3c 3c 34 29 2b | 28 a7 48 24 2c c1 61 24 |-1)<<4)+|(.H$,.a$|
|00000550| 2c 34 2c 31 29 29 2d 31 | 29 3a 61 24 3d c1 61 24 |,4,1))-1|):a$=.a$|
|00000560| 2c 36 29 8b 56 25 3d bb | 61 24 3a c8 95 a7 22 30 |,6).V%=.|a$:..."0|
|00000570| 31 32 33 34 35 36 37 38 | 39 22 2c c0 61 24 2c 31 |12345678|9",.a$,1|
|00000580| 29 29 3e 30 3a 61 24 3d | c1 61 24 2c 32 29 3a ce |))>0:a$=|.a$,2):.|
|00000590| 0d 01 f4 52 20 20 20 20 | 20 4d 25 3d 31 3a e3 51 |...R    | M%=1:.Q|
|000005a0| 25 3d 30 b8 37 3a e7 28 | 56 25 80 4d 25 29 c8 99 |%=0.7:.(|V%.M%)..|
|000005b0| 53 4f 25 2c 35 35 34 2c | 73 25 2c 73 70 72 25 2c |SO%,554,|s%,spr%,|
|000005c0| 78 25 2c 79 25 2c 31 20 | 8b c8 99 53 4f 25 2c 35 |x%,y%,1 |...SO%,5|
|000005d0| 35 36 2c 73 25 2c 73 70 | 72 25 2c 78 25 2c 79 25 |56,s%,sp|r%,x%,y%|
|000005e0| 2c 30 0d 01 fe 2f 20 20 | 20 20 20 4d 25 3d 4d 25 |,0.../  |   M%=M%|
|000005f0| 3c 3c 31 3a 78 25 2b 3d | 31 3a e7 78 25 3d 57 25 |<<1:x%+=|1:.x%=W%|
|00000600| 20 78 25 3d 30 3a 79 25 | 2d 3d 31 3a 51 25 3d 39 | x%=0:y%|-=1:Q%=9|
|00000610| 39 0d 02 08 0a 20 20 20 | 20 20 ed 0d 02 12 1a 20 |9....   |  ..... |
|00000620| 20 20 20 20 e7 97 61 24 | 3d 34 34 20 61 24 3d c1 |    ..a$|=44 a$=.|
|00000630| 61 24 2c 32 29 0d 02 1c | 09 20 20 20 20 ce 0d 02 |a$,2)...|.    ...|
|00000640| 26 08 20 20 20 cd 0d 02 | 30 07 20 20 cd 0d 02 3a |&.   ...|0.  ...:|
|00000650| 06 20 cd 0d 02 44 05 ce | 0d 02 4e 09 d9 23 66 69 |. ...D..|..N..#fi|
|00000660| 25 0d 02 58 05 cd 0d 02 | 62 07 3d 73 25 0d 02 6c |%..X....|b.=s%..l|
|00000670| 04 0d 02 76 13 dd f2 73 | 65 74 75 70 68 65 61 70 |...v...s|etupheap|
|00000680| 28 48 25 29 0d 02 80 08 | ea 20 53 25 0d 02 8a 35 |(H%)....|. S%...5|
|00000690| c8 99 26 35 31 b8 70 73 | 25 3a c8 99 26 34 30 30 |..&51.ps|%:..&400|
|000006a0| 45 43 2c 2d 31 2c 2d 31 | b8 53 25 3a c8 99 26 34 |EC,-1,-1|.S%:..&4|
|000006b0| 30 30 45 43 2c 53 25 2b | 70 73 25 2c 2d 31 b8 53 |00EC,S%+|ps%,-1.S|
|000006c0| 25 0d 02 94 3f 53 25 3d | 28 53 25 2d 48 25 2b 26 |%...?S%=|(S%-H%+&|
|000006d0| 38 30 30 30 29 2d 31 36 | 3a e7 53 25 3c 32 34 20 |8000)-16|:.S%<24 |
|000006e0| 85 20 31 2c 22 48 65 61 | 70 20 74 6f 20 73 6d 61 |. 1,"Hea|p to sma|
|000006f0| 6c 6c 20 28 22 2b c3 53 | 25 2b 22 3c 32 34 29 22 |ll ("+.S|%+"<24)"|
|00000700| 0d 02 9e 1a 68 65 25 3d | 48 25 3a c8 99 26 31 44 |....he%=|H%:..&1D|
|00000710| 2c 30 2c 68 65 25 2c 2c | 53 25 0d 02 a8 2d 53 25 |,0,he%,,|S%...-S%|
|00000720| 3d 70 73 25 3a 50 53 25 | 3d 30 3a c8 95 28 53 25 |=ps%:PS%|=0:..(S%|
|00000730| 80 31 29 3d 30 3a 50 53 | 25 2b 3d 31 3a 53 25 3d |.1)=0:PS|%+=1:S%=|
|00000740| 53 25 3e 3e 31 3a ce 0d | 02 b2 05 e1 0d 02 bc 04 |S%>>1:..|........|
|00000750| 0d 02 c6 0d dd a4 64 69 | 6d 28 4c 25 29 0d 02 d0 |......di|m(L%)...|
|00000760| 12 ea 50 25 3a e7 4c 25 | 3c 38 20 4c 25 3d 38 0d |..P%:.L%|<8 L%=8.|
|00000770| 02 da 89 c8 99 26 32 30 | 30 31 44 2c 32 2c 68 65 |.....&20|01D,2,he|
|00000780| 25 2c 2c 4c 25 b8 2c 2c | 50 25 3a e7 50 25 3d 30 |%,,L%.,,|P%:.P%=0|
|00000790| 20 c8 99 26 34 30 30 45 | 43 2c 2d 31 2c 2d 31 b8 | ..&400E|C,-1,-1.|
|000007a0| 50 25 3a c8 99 26 34 30 | 30 45 43 2c 28 28 50 25 |P%:..&40|0EC,((P%|
|000007b0| 2b 4c 25 2b 70 73 25 2d | 31 29 81 70 73 25 29 3c |+L%+ps%-|1).ps%)<|
|000007c0| 3c 50 53 25 2c 2d 31 b8 | 50 25 3a 68 65 25 21 26 |<PS%,-1.|P%:he%!&|
|000007d0| 43 3d 28 50 25 2b 26 38 | 30 30 30 29 2d 68 65 25 |C=(P%+&8|000)-he%|
|000007e0| 2d 31 36 3a c8 99 26 31 | 44 2c 32 2c 68 65 25 2c |-16:..&1|D,2,he%,|
|000007f0| 2c 4c 25 b8 2c 2c 50 25 | 0d 02 e4 07 3d 50 25 0d |,L%.,,P%|....=P%.|
|00000800| 02 ee 04 0d 02 f8 10 dd | f2 66 72 65 65 28 f8 20 |........|.free(. |
|00000810| 48 25 29 0d 03 02 8d c8 | 99 26 31 44 2c 33 2c 68 |H%).....|.&1D,3,h|
|00000820| 65 25 2c 48 25 3a e7 28 | 68 65 25 2b 68 65 25 21 |e%,H%:.(|he%+he%!|
|00000830| 26 38 2b 70 73 25 2d 31 | 29 81 70 73 25 3c 28 68 |&8+ps%-1|).ps%<(h|
|00000840| 65 25 2b 68 65 25 21 26 | 43 2b 70 73 25 2d 31 29 |e%+he%!&|C+ps%-1)|
|00000850| 81 70 73 25 20 c8 99 26 | 34 30 30 45 43 2c 28 28 |.ps% ..&|400EC,((|
|00000860| 68 65 25 2d 26 38 30 30 | 30 2b 68 65 25 21 26 38 |he%-&800|0+he%!&8|
|00000870| 2b 70 73 25 2d 31 29 81 | 70 73 25 29 3c 3c 50 53 |+ps%-1).|ps%)<<PS|
|00000880| 25 2c 2d 31 b8 48 25 3a | 68 65 25 21 26 43 3d 28 |%,-1.H%:|he%!&C=(|
|00000890| 48 25 2b 26 38 30 30 30 | 29 2d 68 65 25 2d 31 36 |H%+&8000|)-he%-16|
|000008a0| 0d 03 0c 08 48 25 3d 30 | 0d 03 16 05 e1 0d 03 20 |....H%=0|....... |
|000008b0| 04 0d 03 2a 0a dd f2 69 | 6e 69 74 0d 03 34 3b c8 |...*...i|nit..4;.|
|000008c0| 99 22 4f 53 5f 53 57 49 | 4e 75 6d 62 65 72 46 72 |."OS_SWI|NumberFr|
|000008d0| 6f 6d 53 74 72 69 6e 67 | 22 2c 2c 22 4f 53 5f 53 |omString|",,"OS_S|
|000008e0| 57 49 4e 75 6d 62 65 72 | 46 72 6f 6d 53 74 72 69 |WINumber|FromStri|
|000008f0| 6e 67 22 b8 53 25 0d 03 | 3e 34 c8 99 53 25 2c 2c |ng".S%..|>4..S%,,|
|00000900| 22 58 4f 53 5f 53 70 72 | 69 74 65 4f 70 22 b8 58 |"XOS_Spr|iteOp".X|
|00000910| 53 25 3a c8 99 53 25 2c | 2c 22 4f 53 5f 53 70 72 |S%:..S%,|,"OS_Spr|
|00000920| 69 74 65 4f 70 22 b8 53 | 4f 25 0d 03 48 05 e1 0d |iteOp".S|O%..H...|
|00000930| 03 52 04 0d 03 5c 15 dd | f2 65 72 72 6f 72 28 45 |.R...\..|.error(E|
|00000940| 24 2c 45 25 2c 4c 25 29 | 0d 03 66 17 f1 45 24 2b |$,E%,L%)|..f..E$+|
|00000950| 22 20 61 74 20 6c 69 6e | 65 20 22 2b c3 4c 25 0d |" at lin|e "+.L%.|
|00000960| 03 70 05 e1 0d 03 7a 04 | 0d 03 84 0b dd a4 63 28 |.p....z.|......c(|
|00000970| 41 24 29 0d 03 8e 07 ea | 51 25 0d 03 98 44 e3 51 |A$).....|Q%...D.Q|
|00000980| 25 3d 30 b8 a9 41 24 3a | e7 97 c1 41 24 2c 51 25 |%=0..A$:|...A$,Q%|
|00000990| 2c 31 29 3e 39 36 80 97 | c1 41 24 2c 51 25 29 3c |,1)>96..|.A$,Q%)<|
|000009a0| 31 32 33 20 c1 41 24 2c | 51 25 2c 31 29 3d bd 28 |123 .A$,|Q%,1)=.(|
|000009b0| 97 c1 41 24 2c 51 25 2c | 31 29 2d 33 32 29 0d 03 |..A$,Q%,|1)-32)..|
|000009c0| a2 05 ed 0d 03 ac 07 3d | 41 24 0d ff             |.......=|A$..    |
+--------+-------------------------+-------------------------+--------+--------+