/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / h / hiper / HC

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 09 f4 20 3e 48 | 43 0d 00 14 19 f4 20 48 |..... >H|C..... H|
|00000010| 69 70 65 72 20 48 65 6c | 70 20 63 6f 6d 70 69 6c |iper Hel|p compil|
|00000020| 65 72 0d 00 1e 1b f4 20 | a9 20 41 6e 64 72 65 77 |er..... |. Andrew|
|00000030| 20 48 75 6e 74 65 72 2c | 20 31 39 39 35 0d 00 28 | Hunter,| 1995..(|
|00000040| 05 3a 0d 00 32 11 6d 65 | 6d 66 72 65 65 25 3d 93 |.:..2.me|mfree%=.|
|00000050| 2d b8 50 0d 00 3c 1f 62 | 75 66 73 69 7a 65 25 3d |-.P..<.b|ufsize%=|
|00000060| 6d 65 6d 66 72 65 65 25 | 2d 28 34 38 2a 31 30 32 |memfree%|-(48*102|
|00000070| 34 29 0d 00 46 0f 6c 69 | 6e 6b 63 6f 6c 73 25 3d |4)..F.li|nkcols%=|
|00000080| a3 0d 00 50 3e ee 20 85 | 20 c8 99 20 22 48 6f 75 |...P>. .| .. "Hou|
|00000090| 72 67 6c 61 73 73 5f 53 | 6d 61 73 68 22 3a fb 20 |rglass_S|mash":. |
|000000a0| 31 3a f6 3a f1 20 22 20 | 28 70 72 6f 67 72 61 6d |1:.:. " |(program|
|000000b0| 20 6c 69 6e 65 20 22 3b | 9e 3b 22 29 22 3a e0 0d | line ";|.;")":..|
|000000c0| 00 5a 25 eb 20 33 31 3a | e7 20 eb 3c 3e 33 31 20 |.Z%. 31:|. .<>31 |
|000000d0| 8c 20 eb 20 32 37 3a e7 | 20 eb 3c 3e 32 37 20 8c |. . 27:.| .<>27 .|
|000000e0| 20 eb 31 32 0d 00 64 09 | f2 69 6e 69 74 0d 00 6e | .12..d.|.init..n|
|000000f0| 2a f1 20 22 2d 2d 2d 2d | 20 48 69 70 65 72 20 48 |*. "----| Hiper H|
|00000100| 65 6c 70 20 66 69 6c 65 | 20 63 6f 6d 70 69 6c 65 |elp file| compile|
|00000110| 72 20 2d 2d 2d 2d 22 0d | 00 78 25 f1 20 22 a9 20 |r ----".|.x%. ". |
|00000120| 41 6e 64 72 65 77 20 48 | 75 6e 74 65 72 2c 20 31 |Andrew H|unter, 1|
|00000130| 39 39 36 20 28 76 31 2e | 31 32 29 22 0d 00 82 1d |996 (v1.|12)"....|
|00000140| f1 3b 62 75 66 73 69 7a | 65 25 3b 22 20 62 79 74 |.;bufsiz|e%;" byt|
|00000150| 65 73 20 66 72 65 65 22 | 27 0d 00 8c 07 f2 67 6f |es free"|'.....go|
|00000160| 0d 00 96 18 2a 73 65 74 | 74 79 70 65 20 48 65 6c |....*set|type Hel|
|00000170| 70 4f 75 74 20 31 33 61 | 0d 00 a0 07 fb 20 37 0d |pOut 13a|..... 7.|
|00000180| 00 aa 12 f1 27 27 22 46 | 69 6e 69 73 68 65 64 21 |....''"F|inished!|
|00000190| 22 0d 00 b4 18 c8 99 20 | 22 48 6f 75 72 67 6c 61 |"...... |"Hourgla|
|000001a0| 73 73 5f 53 6d 61 73 68 | 22 0d 00 be 05 e0 0d 00 |ss_Smash|".......|
|000001b0| c8 05 3a 0d 00 d2 0a dd | f2 69 6e 69 74 0d 00 dc |..:.....|.init...|
|000001c0| 42 de 20 6c 69 6e 65 24 | 28 32 30 30 30 29 2c 66 |B. line$|(2000),f|
|000001d0| 6f 6e 74 24 28 35 30 29 | 2c 66 73 69 7a 65 25 28 |ont$(50)|,fsize%(|
|000001e0| 35 30 29 2c 61 72 74 69 | 63 6c 65 24 28 32 35 30 |50),arti|cle$(250|
|000001f0| 29 2c 61 72 74 69 63 6c | 65 25 28 32 35 30 29 0d |),articl|e%(250).|
|00000200| 00 e6 17 de 20 77 24 28 | 35 30 29 2c 62 6c 6f 63 |.... w$(|50),bloc|
|00000210| 6b 25 20 32 35 36 0d 00 | f0 1d de 20 73 74 79 6c |k% 256..|... styl|
|00000220| 65 25 28 35 30 2c 31 29 | 2c 73 74 79 6c 65 24 28 |e%(50,1)|,style$(|
|00000230| 35 30 29 0d 00 fa 27 6e | 6f 66 6f 6e 74 73 25 3d |50)...'n|ofonts%=|
|00000240| 30 3a 6e 6f 6c 69 6e 65 | 73 25 3d 2d 31 3a 6e 6f |0:noline|s%=-1:no|
|00000250| 73 74 79 6c 65 73 25 3d | 2d 31 0d 01 04 05 e1 0d |styles%=|-1......|
|00000260| 01 0e 05 3a 0d 01 18 08 | dd f2 67 6f 0d 01 22 14 |...:....|..go..".|
|00000270| e8 20 22 46 69 6c 65 6e | 61 6d 65 3a 22 66 6e 24 |. "Filen|ame:"fn$|
|00000280| 0d 01 2c 15 c8 99 20 22 | 48 6f 75 72 67 6c 61 73 |..,... "|Hourglas|
|00000290| 73 5f 4f 6e 22 0d 01 36 | 07 fb 20 32 0d 01 40 17 |s_On"..6|.. 2..@.|
|000002a0| f1 20 22 52 65 61 64 69 | 6e 67 20 66 69 6c 65 2e |. "Readi|ng file.|
|000002b0| 2e 2e 22 0d 01 4a 0d 4f | 25 3d 8e 28 66 6e 24 29 |.."..J.O|%=.(fn$)|
|000002c0| 0d 01 54 04 0d 01 5e 05 | f5 0d 01 68 0f 6e 6f 6c |..T...^.|...h.nol|
|000002d0| 69 6e 65 73 25 2b 3d 31 | 0d 01 72 18 6c 69 6e 65 |ines%+=1|..r.line|
|000002e0| 24 28 6e 6f 6c 69 6e 65 | 73 25 29 3d be 23 4f 25 |$(noline|s%)=.#O%|
|000002f0| 0d 01 7c 0a fd 20 c5 23 | 4f 25 0d 01 86 04 0d 01 |..|.. .#|O%......|
|00000300| 90 08 d9 23 4f 25 0d 01 | 9a 1a f1 20 22 4f 62 74 |...#O%..|... "Obt|
|00000310| 61 69 6e 69 6e 67 20 66 | 6f 6e 74 73 2e 2e 2e 22 |aining f|onts..."|
|00000320| 0d 01 a4 07 fb 20 36 0d | 01 ae 0d f2 67 65 74 66 |..... 6.|....getf|
|00000330| 6f 6e 74 73 0d 01 b8 04 | 0d 01 c2 07 fb 20 32 0d |onts....|..... 2.|
|00000340| 01 cc 1c f1 20 22 43 68 | 65 63 6b 69 6e 67 20 61 |.... "Ch|ecking a|
|00000350| 72 74 69 63 6c 65 73 2e | 2e 2e 22 0d 01 d6 07 fb |rticles.|..".....|
|00000360| 20 36 0d 01 e0 1b f2 67 | 65 74 61 72 74 69 63 6c | 6.....g|etarticl|
|00000370| 65 73 3a 6e 6f 61 72 74 | 73 25 2b 3d 31 0d 01 ea |es:noart|s%+=1...|
|00000380| 04 0d 01 f4 07 fb 20 32 | 0d 01 fe 1a f1 20 22 43 |...... 2|..... "C|
|00000390| 6f 6e 76 65 72 74 69 6e | 67 20 74 65 78 74 2e 2e |onvertin|g text..|
|000003a0| 2e 22 0d 02 08 07 fb 20 | 36 0d 02 12 0c f2 63 6f |."..... |6.....co|
|000003b0| 6e 76 65 72 74 0d 02 1c | 04 0d 02 26 07 fb 20 32 |nvert...|...&.. 2|
|000003c0| 0d 02 30 17 f1 20 22 57 | 72 69 74 69 6e 67 20 66 |..0.. "W|riting f|
|000003d0| 69 6c 65 2e 2e 2e 22 0d | 02 3a 07 fb 20 36 0d 02 |ile...".|.:.. 6..|
|000003e0| 44 13 4a 25 3d ae 28 22 | 48 65 6c 70 4f 75 74 22 |D.J%=.("|HelpOut"|
|000003f0| 29 0d 02 4e 15 f4 20 27 | 48 45 4c 50 27 20 2d 20 |)..N.. '|HELP' - |
|00000400| 48 65 61 64 65 72 0d 02 | 58 0e f1 20 22 48 65 61 |Header..|X.. "Hea|
|00000410| 64 65 72 22 0d 02 62 27 | d5 23 4a 25 2c 26 34 38 |der"..b'|.#J%,&48|
|00000420| 3a d5 23 4f 25 2c 26 34 | 35 3a d5 23 4f 25 2c 26 |:.#O%,&4|5:.#O%,&|
|00000430| 34 43 3a d5 23 4f 25 2c | 26 35 30 0d 02 6c 28 74 |4C:.#O%,|&50..l(t|
|00000440| 73 74 61 72 74 25 3d 6e | 6f 66 6f 6e 74 73 25 2a |start%=n|ofonts%*|
|00000450| 32 38 2b 34 34 2b 6e 6f | 61 72 74 73 25 2a 32 38 |28+44+no|arts%*28|
|00000460| 2b 32 38 0d 02 76 1d f2 | 77 72 69 74 65 66 6f 75 |+28..v..|writefou|
|00000470| 72 28 4a 25 2c 6e 6f 66 | 6f 6e 74 73 25 2b 31 29 |r(J%,nof|onts%+1)|
|00000480| 0d 02 80 28 f2 77 72 69 | 74 65 66 6f 75 72 28 4a |...(.wri|tefour(J|
|00000490| 25 2c 61 72 74 69 63 6c | 65 25 28 30 29 2b 74 73 |%,articl|e%(0)+ts|
|000004a0| 74 61 72 74 25 2b 32 29 | 0d 02 8a 21 f2 77 72 69 |tart%+2)|...!.wri|
|000004b0| 74 65 66 6f 75 72 28 4a | 25 2c 6e 6f 66 6f 6e 74 |tefour(J|%,nofont|
|000004c0| 73 25 2a 32 38 2b 34 34 | 29 0d 02 94 04 0d 02 9e |s%*28+44|).......|
|000004d0| 0d f1 20 22 46 6f 6e 74 | 73 22 0d 02 a8 15 e3 20 |.. "Font|s"..... |
|000004e0| 71 25 3d 30 20 b8 20 6e | 6f 66 6f 6e 74 73 25 0d |q%=0 . n|ofonts%.|
|000004f0| 02 b2 1a f2 77 72 69 74 | 65 32 34 28 4a 25 2c 66 |....writ|e24(J%,f|
|00000500| 6f 6e 74 24 28 71 25 29 | 29 0d 02 bc 20 f2 77 72 |ont$(q%)|)... .wr|
|00000510| 69 74 65 66 6f 75 72 28 | 4a 25 2c 66 73 69 7a 65 |itefour(|J%,fsize|
|00000520| 25 28 71 25 29 2a 31 36 | 29 0d 02 c6 05 ed 0d 02 |%(q%)*16|).......|
|00000530| d0 07 fb 20 36 0d 02 da | 0d f1 20 22 49 6e 64 65 |... 6...|.. "Inde|
|00000540| 78 22 0d 02 e4 16 e3 20 | 71 25 3d 30 20 b8 20 6e |x"..... |q%=0 . n|
|00000550| 6f 61 72 74 73 25 2d 31 | 0d 02 ee 1d f2 77 72 69 |oarts%-1|.....wri|
|00000560| 74 65 32 34 28 4a 25 2c | 61 72 74 69 63 6c 65 24 |te24(J%,|article$|
|00000570| 28 71 25 29 29 0d 02 f8 | 29 f2 77 72 69 74 65 66 |(q%))...|).writef|
|00000580| 6f 75 72 28 4a 25 2c 61 | 72 74 69 63 6c 65 25 28 |our(J%,a|rticle%(|
|00000590| 71 25 29 2b 74 73 74 61 | 72 74 25 2b 32 29 0d 03 |q%)+tsta|rt%+2)..|
|000005a0| 02 05 ed 0d 03 0c 13 f2 | 77 72 69 74 65 32 34 28 |........|write24(|
|000005b0| 4a 25 2c 22 22 29 0d 03 | 16 22 f2 77 72 69 74 65 |J%,"")..|.".write|
|000005c0| 66 6f 75 72 28 4a 25 2c | 74 6c 65 6e 25 2b 74 73 |four(J%,|tlen%+ts|
|000005d0| 74 61 72 74 25 2b 32 29 | 0d 03 20 07 fb 20 36 0d |tart%+2)|.. .. 6.|
|000005e0| 03 2a 0c f1 20 22 54 65 | 78 74 22 0d 03 34 21 c8 |.*.. "Te|xt"..4!.|
|000005f0| 99 20 22 4f 53 5f 47 42 | 50 42 22 2c 32 2c 4a 25 |. "OS_GB|PB",2,J%|
|00000600| 2c 66 69 6c 65 25 2c 74 | 6c 65 6e 25 0d 03 3e 04 |,file%,t|len%..>.|
|00000610| 0d 03 48 08 d9 23 4f 25 | 0d 03 52 05 e1 0d 03 5c |..H..#O%|..R....\|
|00000620| 05 3a 0d 03 66 0e dd f2 | 67 65 74 66 6f 6e 74 73 |.:..f...|getfonts|
|00000630| 0d 03 70 44 e7 20 c0 6c | 69 6e 65 24 28 30 29 2c |..pD. .l|ine$(0),|
|00000640| 36 29 3c 3e 22 7b 46 4f | 4e 54 53 22 20 8c 20 85 |6)<>"{FO|NTS" . .|
|00000650| 20 31 2c 22 46 6f 6e 74 | 73 20 6d 75 73 74 20 62 | 1,"Font|s must b|
|00000660| 65 20 61 74 20 73 74 61 | 72 74 20 6f 66 20 66 69 |e at sta|rt of fi|
|00000670| 6c 65 21 22 0d 03 7a 2b | 66 6f 6e 74 6c 69 73 74 |le!"..z+|fontlist|
|00000680| 24 3d c1 6c 69 6e 65 24 | 28 30 29 2c 31 2c a7 6c |$=.line$|(0),1,.l|
|00000690| 69 6e 65 24 28 30 29 2c | 22 7d 22 29 2d 31 29 0d |ine$(0),|"}")-1).|
|000006a0| 03 84 1b 66 6f 6e 74 6c | 69 73 74 24 3d c1 66 6f |...fontl|ist$=.fo|
|000006b0| 6e 74 6c 69 73 74 24 2c | 38 29 0d 03 8e 21 f2 73 |ntlist$,|8)...!.s|
|000006c0| 70 6c 69 74 28 66 6f 6e | 74 6c 69 73 74 24 29 3a |plit(fon|tlist$):|
|000006d0| 6e 6f 66 6f 6e 74 73 25 | 3d 2d 31 0d 03 98 04 0d |nofonts%|=-1.....|
|000006e0| 03 a2 17 e3 20 78 25 3d | 30 20 b8 20 77 6f 72 64 |.... x%=|0 . word|
|000006f0| 73 25 20 88 20 32 0d 03 | ac 0f 6e 6f 66 6f 6e 74 |s% . 2..|..nofont|
|00000700| 73 25 2b 3d 31 0d 03 b6 | 15 f1 20 77 24 28 78 25 |s%+=1...|.. w$(x%|
|00000710| 29 2c 77 24 28 78 25 2b | 31 29 0d 03 c0 37 66 6f |),w$(x%+|1)...7fo|
|00000720| 6e 74 24 28 6e 6f 66 6f | 6e 74 73 25 29 3d 77 24 |nt$(nofo|nts%)=w$|
|00000730| 28 78 25 29 3a 66 73 69 | 7a 65 25 28 6e 6f 66 6f |(x%):fsi|ze%(nofo|
|00000740| 6e 74 73 25 29 3d bb 28 | 77 24 28 78 25 2b 31 29 |nts%)=.(|w$(x%+1)|
|00000750| 29 0d 03 ca 05 ed 0d 03 | d4 05 e1 0d 03 de 05 3a |).......|.......:|
|00000760| 0d 03 e8 12 dd f2 73 70 | 6c 69 74 28 6c 69 6e 65 |......sp|lit(line|
|00000770| 24 29 0d 03 f2 08 ea 20 | 6c 24 0d 03 fc 0b 77 24 |$)..... |l$....w$|
|00000780| 28 29 3d 22 22 0d 04 06 | 2d 77 6f 72 64 73 25 3d |()=""...|-words%=|
|00000790| 2d 31 3a 6c 69 6e 65 24 | 3d a4 73 74 72 69 70 28 |-1:line$|=.strip(|
|000007a0| 6c 69 6e 65 24 29 3a 63 | 6f 6d 6d 61 6e 64 24 3d |line$):c|ommand$=|
|000007b0| 22 22 0d 04 10 12 e7 20 | 6c 69 6e 65 24 3d 22 22 |""..... |line$=""|
|000007c0| 20 8c 20 e1 0d 04 1a 04 | 0d 04 24 0c 6c 24 3d 6c | . .....|..$.l$=l|
|000007d0| 69 6e 65 24 0d 04 2e 0f | c8 95 20 a7 6c 24 2c 22 |ine$....|.. .l$,"|
|000007e0| 20 22 29 0d 04 38 0d 77 | 6f 72 64 73 25 2b 3d 31 | ")..8.w|ords%+=1|
|000007f0| 0d 04 42 1e 77 24 28 77 | 6f 72 64 73 25 29 3d c0 |..B.w$(w|ords%)=.|
|00000800| 6c 24 2c a7 6c 24 2c 22 | 20 22 29 2d 31 29 0d 04 |l$,.l$,"| ")-1)..|
|00000810| 4c 16 6c 24 3d c1 6c 24 | 2c a7 6c 24 2c 22 20 22 |L.l$=.l$|,.l$," "|
|00000820| 29 2b 31 29 0d 04 56 11 | 6c 24 3d a4 73 74 72 69 |)+1)..V.|l$=.stri|
|00000830| 70 28 6c 24 29 0d 04 60 | 05 ce 0d 04 6a 04 0d 04 |p(l$)..`|....j...|
|00000840| 74 1b 77 6f 72 64 73 25 | 2b 3d 31 3a 77 24 28 77 |t.words%|+=1:w$(w|
|00000850| 6f 72 64 73 25 29 3d 6c | 24 0d 04 7e 12 63 6f 6d |ords%)=l|$..~.com|
|00000860| 6d 61 6e 64 24 3d 77 24 | 28 30 29 0d 04 88 20 70 |mand$=w$|(0)... p|
|00000870| 61 72 61 6d 24 3d c1 6c | 69 6e 65 24 2c a7 6c 69 |aram$=.l|ine$,.li|
|00000880| 6e 65 24 2c 22 20 22 29 | 2b 31 29 0d 04 92 19 70 |ne$," ")|+1)....p|
|00000890| 61 72 61 6d 24 3d a4 73 | 74 72 69 70 28 70 61 72 |aram$=.s|trip(par|
|000008a0| 61 6d 24 29 0d 04 9c 04 | 0d 04 a6 05 e1 0d 04 b0 |am$)....|........|
|000008b0| 04 0d 04 ba 05 e1 0d 04 | c4 05 3a 0d 04 ce 12 dd |........|..:.....|
|000008c0| a4 73 74 72 69 70 28 6c | 69 6e 65 24 29 0d 04 d8 |.strip(l|ine$)...|
|000008d0| 11 ea 20 6c 24 3a 6c 24 | 3d 6c 69 6e 65 24 0d 04 |.. l$:l$|=line$..|
|000008e0| e2 1d c8 95 20 c0 6c 24 | 2c 31 29 3d 22 20 22 3a |.... .l$|,1)=" ":|
|000008f0| 6c 24 3d c1 6c 24 2c 32 | 29 3a ce 0d 04 ec 23 c8 |l$=.l$,2|):....#.|
|00000900| 95 20 c2 6c 24 2c 31 29 | 3d 22 20 22 3a 6c 24 3d |. .l$,1)|=" ":l$=|
|00000910| c0 6c 24 2c a9 28 6c 24 | 29 2d 31 29 3a ce 0d 04 |.l$,.(l$|)-1):...|
|00000920| f6 07 3d 6c 24 0d 05 00 | 05 3a 0d 05 0a 11 dd f2 |..=l$...|.:......|
|00000930| 67 65 74 61 72 74 69 63 | 6c 65 73 0d 05 14 0e 6e |getartic|les....n|
|00000940| 6f 61 72 74 73 25 3d 2d | 31 0d 05 1e 04 0d 05 28 |oarts%=-|1......(|
|00000950| 15 e3 20 71 25 3d 30 20 | b8 20 6e 6f 6c 69 6e 65 |.. q%=0 |. noline|
|00000960| 73 25 0d 05 32 1f 70 6f | 73 25 3d a7 6c 69 6e 65 |s%..2.po|s%=.line|
|00000970| 24 28 71 25 29 2c 22 7b | 41 52 54 49 43 4c 45 22 |$(q%),"{|ARTICLE"|
|00000980| 29 0d 05 3c 04 0d 05 46 | 35 e7 20 70 6f 73 25 3e |)..<...F|5. pos%>|
|00000990| 30 20 80 20 28 c1 6c 69 | 6e 65 24 28 71 25 29 2c |0 . (.li|ne$(q%),|
|000009a0| 70 6f 73 25 2d 31 2c 31 | 29 3c 3e 22 7b 22 20 84 |pos%-1,1|)<>"{" .|
|000009b0| 20 70 6f 73 25 3d 31 29 | 20 8c 0d 05 50 19 71 24 | pos%=1)| ...P.q$|
|000009c0| 3d c1 6c 69 6e 65 24 28 | 71 25 29 2c 70 6f 73 25 |=.line$(|q%),pos%|
|000009d0| 2b 39 29 0d 05 5a 16 71 | 24 3d c0 71 24 2c a7 71 |+9)..Z.q|$=.q$,.q|
|000009e0| 24 2c 22 7d 22 29 2d 31 | 29 0d 05 64 08 f1 20 71 |$,"}")-1|)..d.. q|
|000009f0| 24 0d 05 6e 0e 6e 6f 61 | 72 74 73 25 2b 3d 31 0d |$..n.noa|rts%+=1.|
|00000a00| 05 78 18 61 72 74 69 63 | 6c 65 24 28 6e 6f 61 72 |.x.artic|le$(noar|
|00000a10| 74 73 25 29 3d 71 24 0d | 05 82 05 cd 0d 05 8c 04 |ts%)=q$.|........|
|00000a20| 0d 05 96 05 ed 0d 05 a0 | 05 e1 0d 05 aa 05 3a 0d |........|......:.|
|00000a30| 05 b4 0d dd f2 63 6f 6e | 76 65 72 74 0d 05 be 22 |.....con|vert..."|
|00000a40| fb 20 34 3a f1 20 22 42 | 75 66 66 65 72 20 73 69 |. 4:. "B|uffer si|
|00000a50| 7a 65 3a 20 22 3b 62 75 | 66 73 69 7a 65 25 0d 05 |ze: ";bu|fsize%..|
|00000a60| c8 1e de 20 66 69 6c 65 | 25 20 62 75 66 73 69 7a |... file|% bufsiz|
|00000a70| 65 25 3a 61 72 74 6f 6e | 25 3d 2d 31 0d 05 d2 07 |e%:arton|%=-1....|
|00000a80| fb 20 36 0d 05 dc 0b 70 | 6f 73 25 3d 2d 31 0d 05 |. 6....p|os%=-1..|
|00000a90| e6 18 e3 20 6c 69 6e 65 | 25 3d 30 20 b8 20 6e 6f |... line|%=0 . no|
|00000aa0| 6c 69 6e 65 73 25 0d 05 | f0 18 f2 63 6c 69 6e 65 |lines%..|...cline|
|00000ab0| 28 6c 69 6e 65 24 28 6c | 69 6e 65 25 29 29 0d 05 |(line$(l|ine%))..|
|00000ac0| fa 32 e7 20 a9 28 6c 69 | 6e 65 24 28 6c 69 6e 65 |.2. .(li|ne$(line|
|00000ad0| 25 29 29 3c 3e 32 35 35 | 20 70 6f 73 25 2b 3d 31 |%))<>255| pos%+=1|
|00000ae0| 3a 66 69 6c 65 25 3f 70 | 6f 73 25 3d 31 30 3a f1 |:file%?p|os%=10:.|
|00000af0| 0d 06 04 05 ed 0d 06 0e | 1a 70 6f 73 25 2b 3d 31 |........|.pos%+=1|
|00000b00| 3a 66 69 6c 65 25 3f 70 | 6f 73 25 3d 26 31 46 0d |:file%?p|os%=&1F.|
|00000b10| 06 18 10 74 6c 65 6e 25 | 3d 70 6f 73 25 2b 31 0d |...tlen%|=pos%+1.|
|00000b20| 06 22 05 e1 0d 06 2c 05 | 3a 0d 06 36 18 dd f2 63 |."....,.|:..6...c|
|00000b30| 6c 69 6e 65 28 6c 69 6e | 65 24 29 3a 78 70 25 3d |line(lin|e$):xp%=|
|00000b40| 30 0d 06 40 14 e7 20 a9 | 28 6c 69 6e 65 24 29 3c |0..@.. .|(line$)<|
|00000b50| 31 20 8c 20 e1 0d 06 4a | 15 e3 20 78 25 3d 31 20 |1 . ...J|.. x%=1 |
|00000b60| b8 20 a9 28 6c 69 6e 65 | 24 29 0d 06 54 18 63 68 |. .(line|$)..T.ch|
|00000b70| 72 25 3d 97 28 c1 6c 69 | 6e 65 24 2c 78 25 2c 31 |r%=.(.li|ne$,x%,1|
|00000b80| 29 29 0d 06 5e 04 0d 06 | 68 13 e7 20 63 68 72 25 |))..^...|h.. chr%|
|00000b90| 3d 97 28 22 7b 22 29 20 | 8c 0d 06 72 1a 63 68 32 |=.("{") |...r.ch2|
|00000ba0| 25 3d 97 28 c1 6c 69 6e | 65 24 2c 78 25 2b 31 2c |%=.(.lin|e$,x%+1,|
|00000bb0| 31 29 29 0d 06 7c 04 0d | 06 86 14 e7 20 63 68 32 |1))..|..|.... ch2|
|00000bc0| 25 3c 3e 97 28 22 7b 22 | 29 20 8c 0d 06 90 0c 63 |%<>.("{"|) .....c|
|00000bd0| 6f 6d 6d 24 3d 22 22 0d | 06 9a 05 f5 0d 06 a4 1e |omm$="".|........|
|00000be0| 78 25 2b 3d 31 3a 63 68 | 72 25 3d 97 28 c1 6c 69 |x%+=1:ch|r%=.(.li|
|00000bf0| 6e 65 24 2c 78 25 2c 31 | 29 29 0d 06 ae 10 63 6f |ne$,x%,1|))....co|
|00000c00| 6d 6d 24 2b 3d bd 63 68 | 72 25 0d 06 b8 1f fd 20 |mm$+=.ch|r%..... |
|00000c10| 78 25 3e a9 28 6c 69 6e | 65 24 29 20 84 20 63 68 |x%>.(lin|e$) . ch|
|00000c20| 72 25 3d 97 28 22 7d 22 | 29 0d 06 c2 04 0d 06 cc |r%=.("}"|).......|
|00000c30| 31 e7 20 78 25 3e a9 28 | 6c 69 6e 65 24 29 20 85 |1. x%>.(|line$) .|
|00000c40| 20 31 2c 22 4d 69 73 73 | 69 6e 67 20 7d 20 61 74 | 1,"Miss|ing } at|
|00000c50| 20 6c 69 6e 65 20 22 2b | c3 6c 69 6e 65 25 0d 06 | line "+|.line%..|
|00000c60| d6 11 63 6f 6d 6d 24 3d | c0 63 6f 6d 6d 24 29 0d |..comm$=|.comm$).|
|00000c70| 06 e0 04 0d 06 ea 11 f2 | 73 70 6c 69 74 28 63 6f |........|split(co|
|00000c80| 6d 6d 24 29 0d 06 f4 13 | f2 63 6f 6d 6d 61 6e 64 |mm$)....|.command|
|00000c90| 28 77 24 28 30 29 29 0d | 06 fe 04 0d 07 08 05 cc |(w$(0)).|........|
|00000ca0| 0d 07 12 2a 78 25 2b 3d | 31 3a 70 6f 73 25 2b 3d |...*x%+=|1:pos%+=|
|00000cb0| 31 3a 66 69 6c 65 25 3f | 70 6f 73 25 3d 97 28 22 |1:file%?|pos%=.("|
|00000cc0| 7b 22 29 3a f1 20 22 7b | 22 3b 0d 07 1c 05 cd 0d |{"):. "{|";......|
|00000cd0| 07 26 04 0d 07 30 05 cc | 0d 07 3a 0e e7 20 63 68 |.&...0..|..:.. ch|
|00000ce0| 72 25 3d 39 20 8c 0d 07 | 44 14 78 70 25 2b 3d 33 |r%=9 ...|D.xp%+=3|
|00000cf0| 31 32 3a 70 6f 73 25 2b | 3d 32 0d 07 4e 14 66 69 |12:pos%+|=2..N.fi|
|00000d00| 6c 65 25 3f 28 70 6f 73 | 25 2d 31 29 3d 37 0d 07 |le%?(pos|%-1)=7..|
|00000d10| 58 10 66 69 6c 65 25 3f | 70 6f 73 25 3d 34 0d 07 |X.file%?|pos%=4..|
|00000d20| 62 0b 70 6f 73 25 2b 3d | 34 0d 07 6c 16 66 69 6c |b.pos%+=|4..l.fil|
|00000d30| 65 25 21 28 70 6f 73 25 | 2d 33 29 3d 78 70 25 0d |e%!(pos%|-3)=xp%.|
|00000d40| 07 76 05 cc 0d 07 80 15 | e7 20 63 68 72 25 3c 33 |.v......|. chr%<3|
|00000d50| 32 20 63 68 72 25 3d 33 | 32 0d 07 8a 26 70 6f 73 |2 chr%=3|2...&pos|
|00000d60| 25 2b 3d 31 3a 66 69 6c | 65 25 3f 70 6f 73 25 3d |%+=1:fil|e%?pos%=|
|00000d70| 63 68 72 25 3a f1 20 bd | 28 63 68 72 25 29 3b 0d |chr%:. .|(chr%);.|
|00000d80| 07 94 05 cd 0d 07 9e 04 | 0d 07 a8 05 cd 0d 07 b2 |........|........|
|00000d90| 04 0d 07 bc 05 ed 0d 07 | c6 05 e1 0d 07 d0 05 3a |........|.......:|
|00000da0| 0d 07 da 1e dd f2 77 72 | 69 74 65 66 6f 75 72 28 |......wr|itefour(|
|00000db0| 68 61 6e 64 6c 65 25 2c | 66 6f 75 72 25 29 0d 07 |handle%,|four%)..|
|00000dc0| e4 11 21 62 6c 6f 63 6b | 25 3d 66 6f 75 72 25 0d |..!block|%=four%.|
|00000dd0| 07 ee 23 c8 99 20 22 4f | 53 5f 47 42 50 42 22 2c |..#.. "O|S_GBPB",|
|00000de0| 32 2c 68 61 6e 64 6c 65 | 25 2c 62 6c 6f 63 6b 25 |2,handle|%,block%|
|00000df0| 2c 34 0d 07 f8 05 e1 0d | 08 02 05 3a 0d 08 0c 1b |,4......|...:....|
|00000e00| dd f2 77 72 69 74 65 32 | 34 28 68 61 6e 64 6c 65 |..write2|4(handle|
|00000e10| 25 2c 73 74 72 24 29 0d | 08 16 08 ea 20 78 25 0d |%,str$).|.... x%.|
|00000e20| 08 20 13 d5 23 68 61 6e | 64 6c 65 25 2c 73 74 72 |. ..#han|dle%,str|
|00000e30| 24 3b 0d 08 2a 14 e7 20 | a9 28 73 74 72 24 29 3d |$;..*.. |.(str$)=|
|00000e40| 32 34 20 8c 20 e1 0d 08 | 34 34 e7 20 a9 28 73 74 |24 . ...|44. .(st|
|00000e50| 72 24 29 3e 32 34 20 8c | 20 85 20 31 2c 22 53 74 |r$)>24 .| . 1,"St|
|00000e60| 72 69 6e 67 20 6c 6f 6e | 67 65 72 20 74 68 61 6e |ring lon|ger than|
|00000e70| 20 32 34 20 63 68 61 72 | 73 22 0d 08 3e 17 e3 20 | 24 char|s"..>.. |
|00000e80| 78 25 3d 31 20 b8 20 32 | 34 2d a9 28 73 74 72 24 |x%=1 . 2|4-.(str$|
|00000e90| 29 0d 08 48 0f d5 23 68 | 61 6e 64 6c 65 25 2c 30 |)..H..#h|andle%,0|
|00000ea0| 0d 08 52 05 ed 0d 08 5c | 05 e1 0d 08 66 05 3a 0d |..R....\|....f.:.|
|00000eb0| 08 70 14 dd f2 63 6f 6d | 6d 61 6e 64 28 63 6f 6d |.p...com|mand(com|
|00000ec0| 6d 24 29 0d 08 7a 0e c8 | 8e 20 63 6f 6d 6d 24 20 |m$)..z..|. comm$ |
|00000ed0| ca 0d 08 84 10 c9 20 22 | 41 52 54 49 43 4c 45 22 |...... "|ARTICLE"|
|00000ee0| 3a 0d 08 8e 23 61 72 74 | 6f 6e 25 2b 3d 31 3a 61 |:...#art|on%+=1:a|
|00000ef0| 72 74 69 63 6c 65 25 28 | 61 72 74 6f 6e 25 29 3d |rticle%(|arton%)=|
|00000f00| 70 6f 73 25 0d 08 98 1f | fb 20 35 3a f1 27 61 72 |pos%....|. 5:.'ar|
|00000f10| 74 69 63 6c 65 24 28 61 | 72 74 6f 6e 25 29 27 3a |ticle$(a|rton%)':|
|00000f20| fb 20 36 0d 08 a2 1a 70 | 6f 73 25 2b 3d 31 3a 66 |. 6....p|os%+=1:f|
|00000f30| 69 6c 65 25 3f 70 6f 73 | 25 3d 26 31 46 0d 08 ac |ile%?pos|%=&1F...|
|00000f40| 04 0d 08 b6 0e c9 20 22 | 46 4f 4e 54 53 22 3a 0d |...... "|FONTS":.|
|00000f50| 08 c0 04 0d 08 ca 0d c9 | 20 22 46 4f 4e 54 22 3a |........| "FONT":|
|00000f60| 0d 08 d4 2d 70 6f 73 25 | 2b 3d 33 3a 66 69 6c 65 |...-pos%|+=3:file|
|00000f70| 25 3f 28 70 6f 73 25 2d | 32 29 3d 31 3a 66 69 6c |%?(pos%-|2)=1:fil|
|00000f80| 65 25 3f 28 70 6f 73 25 | 2d 31 29 3d 31 0d 08 de |e%?(pos%|-1)=1...|
|00000f90| 17 66 69 6c 65 25 3f 70 | 6f 73 25 3d bb 28 77 24 |.file%?p|os%=.(w$|
|00000fa0| 28 31 29 29 0d 08 e8 04 | 0d 08 f2 0d c9 20 22 4c |(1))....|..... "L|
|00000fb0| 49 4e 4b 22 3a 0d 08 fc | 1a 70 6f 73 25 2b 3d 33 |INK":...|.pos%+=3|
|00000fc0| 3a 6c 69 6e 6b 25 3d bb | 28 77 24 28 31 29 29 0d |:link%=.|(w$(1)).|
|00000fd0| 09 06 26 e7 20 6c 69 6e | 6b 25 3d 30 20 8c 20 6c |..&. lin|k%=0 . l|
|00000fe0| 69 6e 6b 25 3d a4 66 69 | 6e 64 6c 69 6e 6b 28 77 |ink%=.fi|ndlink(w|
|00000ff0| 24 28 31 29 29 0d 09 10 | 3d e7 20 6c 69 6e 6b 25 |$(1))...|=. link%|
|00001000| 3c 3d 30 20 8c 20 85 20 | 31 2c 22 55 6e 61 62 6c |<=0 . . |1,"Unabl|
|00001010| 65 20 74 6f 20 72 65 73 | 6f 6c 76 65 20 6c 69 6e |e to res|olve lin|
|00001020| 6b 20 61 74 20 6c 69 6e | 65 20 22 2b c3 6c 69 6e |k at lin|e "+.lin|
|00001030| 65 25 0d 09 1a 28 fb 20 | 35 3a f1 20 22 3e 3e 20 |e%...(. |5:. ">> |
|00001040| 22 3b 61 72 74 69 63 6c | 65 24 28 6c 69 6e 6b 25 |";articl|e$(link%|
|00001050| 2d 31 29 3b 22 20 3e 3e | 22 3b 0d 09 24 14 66 69 |-1);" >>|";..$.fi|
|00001060| 6c 65 25 3f 28 70 6f 73 | 25 2d 32 29 3d 32 0d 09 |le%?(pos|%-2)=2..|
|00001070| 2e 18 66 69 6c 65 25 3f | 28 70 6f 73 25 2d 31 29 |..file%?|(pos%-1)|
|00001080| 3d 6c 69 6e 6b 25 0d 09 | 38 19 66 69 6c 65 25 3f |=link%..|8.file%?|
|00001090| 28 70 6f 73 25 29 3d 6c | 69 6e 6b 25 3e 3e 38 0d |(pos%)=l|ink%>>8.|
|000010a0| 09 42 07 fb 20 33 0d 09 | 4c 11 e7 20 6c 69 6e 6b |.B.. 3..|L.. link|
|000010b0| 63 6f 6c 73 25 20 8c 0d | 09 56 0b 70 6f 73 25 2b |cols% ..|.V.pos%+|
|000010c0| 3d 38 0d 09 60 16 66 69 | 6c 65 25 3f 28 70 6f 73 |=8..`.fi|le%?(pos|
|000010d0| 25 2d 37 29 3d 26 31 33 | 0d 09 6a 3c 66 69 6c 65 |%-7)=&13|..j<file|
|000010e0| 25 3f 28 70 6f 73 25 2d | 36 29 3d 26 44 44 3a 66 |%?(pos%-|6)=&DD:f|
|000010f0| 69 6c 65 25 3f 28 70 6f | 73 25 2d 35 29 3d 26 44 |ile%?(po|s%-5)=&D|
|00001100| 44 3a 66 69 6c 65 25 3f | 28 70 6f 73 25 2d 34 29 |D:file%?|(pos%-4)|
|00001110| 3d 26 44 44 0d 09 74 38 | 66 69 6c 65 25 3f 28 70 |=&DD..t8|file%?(p|
|00001120| 6f 73 25 2d 33 29 3d 30 | 3a 66 69 6c 65 25 3f 28 |os%-3)=0|:file%?(|
|00001130| 70 6f 73 25 2d 32 29 3d | 31 32 38 3a 66 69 6c 65 |pos%-2)=|128:file|
|00001140| 25 3f 28 70 6f 73 25 2d | 31 29 3d 30 0d 09 7e 11 |%?(pos%-|1)=0..~.|
|00001150| 66 69 6c 65 25 3f 70 6f | 73 25 3d 31 34 0d 09 88 |file%?po|s%=14...|
|00001160| 1d 70 6f 73 25 2b 3d 33 | 3a 66 69 6c 65 25 3f 28 |.pos%+=3|:file%?(|
|00001170| 70 6f 73 25 2d 32 29 3d | 32 35 0d 09 92 22 66 69 |pos%-2)=|25..."fi|
|00001180| 6c 65 25 3f 28 70 6f 73 | 25 2d 31 29 3d 30 3a 66 |le%?(pos|%-1)=0:f|
|00001190| 69 6c 65 25 3f 70 6f 73 | 25 3d 32 30 0d 09 9c 05 |ile%?pos|%=20....|
|000011a0| cd 0d 09 a6 04 0d 09 b0 | 10 c9 20 22 45 4e 44 4c |........|.. "ENDL|
|000011b0| 49 4e 4b 22 3a 0d 09 ba | 18 70 6f 73 25 2b 3d 31 |INK":...|.pos%+=1|
|000011c0| 3a 66 69 6c 65 25 3f 70 | 6f 73 25 3d 33 0d 09 c4 |:file%?p|os%=3...|
|000011d0| 13 fb 20 35 3a f1 20 22 | 3c 3c 22 3b 3a fb 20 36 |.. 5:. "|<<";:. 6|
|000011e0| 0d 09 ce 11 e7 20 6c 69 | 6e 6b 63 6f 6c 73 25 20 |..... li|nkcols% |
|000011f0| 8c 0d 09 d8 0b 70 6f 73 | 25 2b 3d 38 0d 09 e2 16 |.....pos|%+=8....|
|00001200| 66 69 6c 65 25 3f 28 70 | 6f 73 25 2d 37 29 3d 26 |file%?(p|os%-7)=&|
|00001210| 31 33 0d 09 ec 3c 66 69 | 6c 65 25 3f 28 70 6f 73 |13...<fi|le%?(pos|
|00001220| 25 2d 36 29 3d 26 44 44 | 3a 66 69 6c 65 25 3f 28 |%-6)=&DD|:file%?(|
|00001230| 70 6f 73 25 2d 35 29 3d | 26 44 44 3a 66 69 6c 65 |pos%-5)=|&DD:file|
|00001240| 25 3f 28 70 6f 73 25 2d | 34 29 3d 26 44 44 0d 09 |%?(pos%-|4)=&DD..|
|00001250| f6 36 66 69 6c 65 25 3f | 28 70 6f 73 25 2d 33 29 |.6file%?|(pos%-3)|
|00001260| 3d 30 3a 66 69 6c 65 25 | 3f 28 70 6f 73 25 2d 32 |=0:file%|?(pos%-2|
|00001270| 29 3d 30 3a 66 69 6c 65 | 25 3f 28 70 6f 73 25 2d |)=0:file|%?(pos%-|
|00001280| 31 29 3d 30 0d 0a 00 11 | 66 69 6c 65 25 3f 70 6f |1)=0....|file%?po|
|00001290| 73 25 3d 31 34 0d 0a 0a | 05 cd 0d 0a 14 04 0d 0a |s%=14...|........|
|000012a0| 1e 0f c9 20 22 43 4f 4c | 4f 55 52 22 3a 0d 0a 28 |... "COL|OUR":..(|
|000012b0| 0b 70 6f 73 25 2b 3d 38 | 0d 0a 32 16 66 69 6c 65 |.pos%+=8|..2.file|
|000012c0| 25 3f 28 70 6f 73 25 2d | 37 29 3d 26 31 33 0d 0a |%?(pos%-|7)=&13..|
|000012d0| 3c 3c 66 69 6c 65 25 3f | 28 70 6f 73 25 2d 36 29 |<<file%?|(pos%-6)|
|000012e0| 3d 26 44 44 3a 66 69 6c | 65 25 3f 28 70 6f 73 25 |=&DD:fil|e%?(pos%|
|000012f0| 2d 35 29 3d 26 44 44 3a | 66 69 6c 65 25 3f 28 70 |-5)=&DD:|file%?(p|
|00001300| 6f 73 25 2d 34 29 3d 26 | 44 44 0d 0a 46 4b 66 69 |os%-4)=&|DD..FKfi|
|00001310| 6c 65 25 3f 28 70 6f 73 | 25 2d 33 29 3d bb 28 77 |le%?(pos|%-3)=.(w|
|00001320| 24 28 31 29 29 3a 66 69 | 6c 65 25 3f 28 70 6f 73 |$(1)):fi|le%?(pos|
|00001330| 25 2d 32 29 3d bb 28 77 | 24 28 32 29 29 3a 66 69 |%-2)=.(w|$(2)):fi|
|00001340| 6c 65 25 3f 28 70 6f 73 | 25 2d 31 29 3d bb 28 77 |le%?(pos|%-1)=.(w|
|00001350| 24 28 33 29 29 0d 0a 50 | 11 66 69 6c 65 25 3f 70 |$(3))..P|.file%?p|
|00001360| 6f 73 25 3d 31 34 0d 0a | 5a 04 0d 0a 64 0c c9 20 |os%=14..|Z...d.. |
|00001370| 22 55 4f 4e 22 3a 0d 0a | 6e 1d 70 6f 73 25 2b 3d |"UON":..|n.pos%+=|
|00001380| 33 3a 66 69 6c 65 25 3f | 28 70 6f 73 25 2d 32 29 |3:file%?|(pos%-2)|
|00001390| 3d 32 35 0d 0a 78 22 66 | 69 6c 65 25 3f 28 70 6f |=25..x"f|ile%?(po|
|000013a0| 73 25 2d 31 29 3d 30 3a | 66 69 6c 65 25 3f 70 6f |s%-1)=0:|file%?po|
|000013b0| 73 25 3d 32 30 0d 0a 82 | 04 0d 0a 8c 0d c9 20 22 |s%=20...|...... "|
|000013c0| 55 4f 46 46 22 3a 0d 0a | 96 1d 70 6f 73 25 2b 3d |UOFF":..|..pos%+=|
|000013d0| 33 3a 66 69 6c 65 25 3f | 28 70 6f 73 25 2d 32 29 |3:file%?|(pos%-2)|
|000013e0| 3d 32 35 0d 0a a0 21 66 | 69 6c 65 25 3f 28 70 6f |=25...!f|ile%?(po|
|000013f0| 73 25 2d 31 29 3d 30 3a | 66 69 6c 65 25 3f 70 6f |s%-1)=0:|file%?po|
|00001400| 73 25 3d 30 0d 0a aa 04 | 0d 0a b4 10 c9 20 22 49 |s%=0....|..... "I|
|00001410| 4e 43 4c 55 44 45 22 3a | 0d 0a be 0f 4f 25 3d 8e |NCLUDE":|....O%=.|
|00001420| 28 77 24 28 31 29 29 0d | 0a c8 0e 66 6c 65 6e 25 |(w$(1)).|...flen%|
|00001430| 3d a2 23 4f 25 0d 0a d2 | 08 d9 23 4f 25 0d 0a dc |=.#O%...|..#O%...|
|00001440| 20 70 6f 73 25 2b 3d 31 | 3a 66 69 6c 65 25 3f 70 | pos%+=1|:file%?p|
|00001450| 6f 73 25 3d 34 3a 70 6f | 73 25 2b 3d 31 0d 0a e6 |os%=4:po|s%+=1...|
|00001460| 29 e7 20 28 70 6f 73 25 | 20 83 20 34 29 3c 3e 30 |). (pos%| . 4)<>0|
|00001470| 20 8c 20 70 6f 73 25 3d | 28 70 6f 73 25 20 81 20 | . pos%=|(pos% . |
|00001480| 34 29 2a 34 2b 34 0d 0a | f0 14 66 69 6c 65 25 21 |4)*4+4..|..file%!|
|00001490| 70 6f 73 25 3d 66 6c 65 | 6e 25 0d 0a fa 0b 70 6f |pos%=fle|n%....po|
|000014a0| 73 25 2b 3d 34 0d 0b 04 | 25 c8 99 20 22 4f 53 5f |s%+=4...|%.. "OS_|
|000014b0| 46 69 6c 65 22 2c 26 46 | 46 2c 77 24 28 31 29 2c |File",&F|F,w$(1),|
|000014c0| 66 69 6c 65 25 2b 70 6f | 73 25 0d 0b 0e 0f 70 6f |file%+po|s%....po|
|000014d0| 73 25 2b 3d 66 6c 65 6e | 25 0d 0b 18 34 fb 20 34 |s%+=flen|%...4. 4|
|000014e0| 3a f1 20 22 49 6e 63 6c | 75 64 65 64 20 22 2b 77 |:. "Incl|uded "+w|
|000014f0| 24 28 31 29 2b 22 20 2d | 20 22 3b 66 6c 65 6e 25 |$(1)+" -| ";flen%|
|00001500| 3b 22 20 62 79 74 65 73 | 22 3a fb 20 36 0d 0b 22 |;" bytes|":. 6.."|
|00001510| 04 0d 0b 2c 0f c9 20 22 | 53 50 52 49 54 45 22 3a |...,.. "|SPRITE":|
|00001520| 0d 0b 36 1c 70 6f 73 25 | 2b 3d 32 3a 66 69 6c 65 |..6.pos%|+=2:file|
|00001530| 25 3f 28 70 6f 73 25 2d | 31 29 3d 35 0d 0b 40 10 |%?(pos%-|1)=5..@.|
|00001540| 66 69 6c 65 25 3f 70 6f | 73 25 3d 31 0d 0b 4a 33 |file%?po|s%=1..J3|
|00001550| fb 20 35 3a f1 20 22 28 | 53 70 72 69 74 65 20 66 |. 5:. "(|Sprite f|
|00001560| 72 6f 6d 20 22 3b 77 24 | 28 31 29 3b 22 20 2d 20 |rom ";w$|(1);" - |
|00001570| 22 3b 77 24 28 32 29 22 | 29 22 3b 3a fb 20 36 0d |";w$(2)"|)";:. 6.|
|00001580| 0b 54 1b 70 6f 73 25 2b | 3d 32 3a 73 70 6e 75 6d |.T.pos%+|=2:spnum|
|00001590| 25 3d bb 28 77 24 28 31 | 29 29 0d 0b 5e 36 66 69 |%=.(w$(1|))..^6fi|
|000015a0| 6c 65 25 3f 70 6f 73 25 | 3d 73 70 6e 75 6d 25 3e |le%?pos%|=spnum%>|
|000015b0| 3e 38 3a 66 69 6c 65 25 | 3f 28 70 6f 73 25 2d 31 |>8:file%|?(pos%-1|
|000015c0| 29 3d 73 70 6e 75 6d 25 | 3a 70 6f 73 25 2b 3d 31 |)=spnum%|:pos%+=1|
|000015d0| 0d 0b 68 0f e3 20 71 25 | 3d 31 20 b8 20 31 32 0d |..h.. q%|=1 . 12.|
|000015e0| 0b 72 15 66 69 6c 65 25 | 3f 28 70 6f 73 25 2b 71 |.r.file%|?(pos%+q|
|000015f0| 25 29 3d 30 0d 0b 7c 05 | ed 0d 0b 86 17 24 28 66 |%)=0..|.|.....$(f|
|00001600| 69 6c 65 25 2b 70 6f 73 | 25 29 3d 77 24 28 32 29 |ile%+pos|%)=w$(2)|
|00001610| 0d 0b 90 0c 70 6f 73 25 | 2b 3d 31 32 0d 0b 9a 04 |....pos%|+=12....|
|00001620| 0d 0b a4 11 c9 20 22 53 | 50 52 49 54 45 48 49 22 |..... "S|PRITEHI"|
|00001630| 3a 0d 0b ae 1c 70 6f 73 | 25 2b 3d 32 3a 66 69 6c |:....pos|%+=2:fil|
|00001640| 65 25 3f 28 70 6f 73 25 | 2d 31 29 3d 35 0d 0b b8 |e%?(pos%|-1)=5...|
|00001650| 10 66 69 6c 65 25 3f 70 | 6f 73 25 3d 34 0d 0b c2 |.file%?p|os%=4...|
|00001660| 33 fb 20 35 3a f1 20 22 | 28 53 70 72 69 74 65 20 |3. 5:. "|(Sprite |
|00001670| 66 72 6f 6d 20 22 3b 77 | 24 28 31 29 3b 22 20 2d |from ";w|$(1);" -|
|00001680| 20 22 3b 77 24 28 32 29 | 22 29 22 3b 3a fb 20 36 | ";w$(2)|")";:. 6|
|00001690| 0d 0b cc 1b 70 6f 73 25 | 2b 3d 32 3a 73 70 6e 75 |....pos%|+=2:spnu|
|000016a0| 6d 25 3d bb 28 77 24 28 | 31 29 29 0d 0b d6 2e 66 |m%=.(w$(|1))....f|
|000016b0| 69 6c 65 25 3f 70 6f 73 | 25 3d 73 70 6e 75 6d 25 |ile%?pos|%=spnum%|
|000016c0| 3e 3e 38 3a 66 69 6c 65 | 25 3f 28 70 6f 73 25 2d |>>8:file|%?(pos%-|
|000016d0| 31 29 3d 73 70 6e 75 6d | 25 0d 0b e0 1b 70 6f 73 |1)=spnum|%....pos|
|000016e0| 25 2b 3d 32 3a 73 70 6e | 75 6d 25 3d bb 28 77 24 |%+=2:spn|um%=.(w$|
|000016f0| 28 32 29 29 0d 0b ea 36 | 66 69 6c 65 25 3f 70 6f |(2))...6|file%?po|
|00001700| 73 25 3d 73 70 6e 75 6d | 25 3e 3e 38 3a 66 69 6c |s%=spnum|%>>8:fil|
|00001710| 65 25 3f 28 70 6f 73 25 | 2d 31 29 3d 73 70 6e 75 |e%?(pos%|-1)=spnu|
|00001720| 6d 25 3a 70 6f 73 25 2b | 3d 31 0d 0b f4 0f e3 20 |m%:pos%+|=1..... |
|00001730| 71 25 3d 31 20 b8 20 31 | 32 0d 0b fe 15 66 69 6c |q%=1 . 1|2....fil|
|00001740| 65 25 3f 28 70 6f 73 25 | 2b 71 25 29 3d 30 0d 0c |e%?(pos%|+q%)=0..|
|00001750| 08 05 ed 0d 0c 12 17 24 | 28 66 69 6c 65 25 2b 70 |.......$|(file%+p|
|00001760| 6f 73 25 29 3d 77 24 28 | 33 29 0d 0c 1c 0c 70 6f |os%)=w$(|3)....po|
|00001770| 73 25 2b 3d 31 32 0d 0c | 26 04 0d 0c 30 11 c9 20 |s%+=12..|&...0.. |
|00001780| 22 44 52 41 57 46 49 4c | 45 22 3a 0d 0c 3a 1c 70 |"DRAWFIL|E":..:.p|
|00001790| 6f 73 25 2b 3d 32 3a 66 | 69 6c 65 25 3f 28 70 6f |os%+=2:f|ile%?(po|
|000017a0| 73 25 2d 31 29 3d 35 0d | 0c 44 10 66 69 6c 65 25 |s%-1)=5.|.D.file%|
|000017b0| 3f 70 6f 73 25 3d 32 0d | 0c 4e 2a fb 20 35 3a f1 |?pos%=2.|.N*. 5:.|
|000017c0| 20 22 28 44 72 61 77 46 | 69 6c 65 20 66 72 6f 6d | "(DrawF|ile from|
|000017d0| 20 22 3b 77 24 28 31 29 | 3b 22 29 22 3b 3a fb 20 | ";w$(1)|;")";:. |
|000017e0| 36 0d 0c 58 1b 70 6f 73 | 25 2b 3d 32 3a 73 70 6e |6..X.pos|%+=2:spn|
|000017f0| 75 6d 25 3d bb 28 77 24 | 28 31 29 29 0d 0c 62 2e |um%=.(w$|(1))..b.|
|00001800| 66 69 6c 65 25 3f 70 6f | 73 25 3d 73 70 6e 75 6d |file%?po|s%=spnum|
|00001810| 25 3e 3e 38 3a 66 69 6c | 65 25 3f 28 70 6f 73 25 |%>>8:fil|e%?(pos%|
|00001820| 2d 31 29 3d 73 70 6e 75 | 6d 25 0d 0c 6c 04 0d 0c |-1)=spnu|m%..l...|
|00001830| 76 0f c9 20 22 48 53 46 | 49 4c 45 22 3a 0d 0c 80 |v.. "HSF|ILE":...|
|00001840| 1c 70 6f 73 25 2b 3d 32 | 3a 66 69 6c 65 25 3f 28 |.pos%+=2|:file%?(|
|00001850| 70 6f 73 25 2d 31 29 3d | 35 0d 0c 8a 10 66 69 6c |pos%-1)=|5....fil|
|00001860| 65 25 3f 70 6f 73 25 3d | 33 0d 0c 94 2e fb 20 35 |e%?pos%=|3..... 5|
|00001870| 3a f1 20 22 28 48 6f 74 | 53 70 6f 74 20 66 69 6c |:. "(Hot|Spot fil|
|00001880| 65 20 66 72 6f 6d 20 22 | 3b 77 24 28 31 29 3b 22 |e from "|;w$(1);"|
|00001890| 29 22 3b 3a fb 20 36 0d | 0c 9e 1b 70 6f 73 25 2b |)";:. 6.|...pos%+|
|000018a0| 3d 32 3a 73 70 6e 75 6d | 25 3d bb 28 77 24 28 31 |=2:spnum|%=.(w$(1|
|000018b0| 29 29 0d 0c a8 2e 66 69 | 6c 65 25 3f 70 6f 73 25 |))....fi|le%?pos%|
|000018c0| 3d 73 70 6e 75 6d 25 3e | 3e 38 3a 66 69 6c 65 25 |=spnum%>|>8:file%|
|000018d0| 3f 28 70 6f 73 25 2d 31 | 29 3d 73 70 6e 75 6d 25 |?(pos%-1|)=spnum%|
|000018e0| 0d 0c b2 04 0d 0c bc 10 | c9 20 22 48 4f 54 53 50 |........|. "HOTSP|
|000018f0| 4f 54 22 3a 0d 0c c6 18 | 70 6f 73 25 2b 3d 31 3a |OT":....|pos%+=1:|
|00001900| 66 69 6c 65 25 3f 70 6f | 73 25 3d 36 0d 0c d0 12 |file%?po|s%=6....|
|00001910| 68 6e 75 6d 25 3d bb 28 | 77 24 28 31 29 29 0d 0c |hnum%=.(|w$(1))..|
|00001920| da 34 70 6f 73 25 2b 3d | 32 3a 66 69 6c 65 25 3f |.4pos%+=|2:file%?|
|00001930| 28 70 6f 73 25 2d 31 29 | 3d 68 6e 75 6d 25 3a 66 |(pos%-1)|=hnum%:f|
|00001940| 69 6c 65 25 3f 70 6f 73 | 25 3d 68 6e 75 6d 25 3e |ile%?pos|%=hnum%>|
|00001950| 3e 38 0d 0c e4 0c 70 6f | 73 25 2b 3d 31 36 0d 0c |>8....po|s%+=16..|
|00001960| ee 12 6d 69 6e 78 25 3d | bb 28 77 24 28 32 29 29 |..minx%=|.(w$(2))|
|00001970| 0d 0c f8 12 6d 69 6e 79 | 25 3d bb 28 77 24 28 33 |....miny|%=.(w$(3|
|00001980| 29 29 0d 0d 02 12 6d 61 | 78 78 25 3d bb 28 77 24 |))....ma|xx%=.(w$|
|00001990| 28 34 29 29 0d 0d 0c 12 | 6d 61 78 79 25 3d bb 28 |(4))....|maxy%=.(|
|000019a0| 77 24 28 35 29 29 0d 0d | 16 20 e7 20 6d 69 6e 78 |w$(5))..|. . minx|
|000019b0| 25 3e 6d 61 78 78 25 20 | c8 94 20 6d 69 6e 78 25 |%>maxx% |.. minx%|
|000019c0| 2c 6d 61 78 78 25 0d 0d | 20 20 e7 20 6d 69 6e 79 |,maxx%..|  . miny|
|000019d0| 25 3e 6d 61 78 79 25 20 | c8 94 20 6d 69 6e 79 25 |%>maxy% |.. miny%|
|000019e0| 2c 6d 61 78 79 25 0d 0d | 2a 19 66 69 6c 65 25 21 |,maxy%..|*.file%!|
|000019f0| 28 70 6f 73 25 2d 31 35 | 29 3d 6d 69 6e 78 25 0d |(pos%-15|)=minx%.|
|00001a00| 0d 34 19 66 69 6c 65 25 | 21 28 70 6f 73 25 2d 31 |.4.file%|!(pos%-1|
|00001a10| 31 29 3d 6d 69 6e 79 25 | 0d 0d 3e 18 66 69 6c 65 |1)=miny%|..>.file|
|00001a20| 25 21 28 70 6f 73 25 2d | 37 29 3d 6d 61 78 78 25 |%!(pos%-|7)=maxx%|
|00001a30| 0d 0d 48 18 66 69 6c 65 | 25 21 28 70 6f 73 25 2d |..H.file|%!(pos%-|
|00001a40| 33 29 3d 6d 61 78 79 25 | 0d 0d 52 07 fb 20 35 0d |3)=maxy%|..R.. 5.|
|00001a50| 0d 5c 2c f1 20 22 28 48 | 6f 74 53 70 6f 74 20 74 |.\,. "(H|otSpot t|
|00001a60| 6f 20 22 3b 61 72 74 69 | 63 6c 65 24 28 68 6e 75 |o ";arti|cle$(hnu|
|00001a70| 6d 25 2d 31 29 3b 22 29 | 20 22 3b 0d 0d 66 07 fb |m%-1);")| ";..f..|
|00001a80| 20 36 0d 0d 70 04 0d 0d | 7a 1c c9 20 22 44 45 46 | 6..p...|z.. "DEF|
|00001a90| 41 55 4c 54 53 22 3a 6c | 69 6e 6b 63 6f 6c 73 25 |AULTS":l|inkcols%|
|00001aa0| 3d b9 0d 0d 84 04 0d 0d | 8e 16 c9 20 22 43 45 4e |=.......|... "CEN|
|00001ab0| 54 45 52 22 3a 70 6f 73 | 25 2b 3d 32 0d 0d 98 14 |TER":pos|%+=2....|
|00001ac0| 66 69 6c 65 25 3f 28 70 | 6f 73 25 2d 31 29 3d 37 |file%?(p|os%-1)=7|
|00001ad0| 0d 0d a2 10 66 69 6c 65 | 25 3f 70 6f 73 25 3d 32 |....file|%?pos%=2|
|00001ae0| 0d 0d ac 1a fb 20 35 3a | f1 22 20 28 43 45 4e 54 |..... 5:|." (CENT|
|00001af0| 45 52 29 20 22 3b 3a fb | 20 36 0d 0d b6 04 0d 0d |ER) ";:.| 6......|
|00001b00| c0 15 c9 20 22 52 49 47 | 48 54 22 3a 70 6f 73 25 |... "RIG|HT":pos%|
|00001b10| 2b 3d 32 0d 0d ca 14 66 | 69 6c 65 25 3f 28 70 6f |+=2....f|ile%?(po|
|00001b20| 73 25 2d 31 29 3d 37 0d | 0d d4 10 66 69 6c 65 25 |s%-1)=7.|...file%|
|00001b30| 3f 70 6f 73 25 3d 31 0d | 0d de 19 fb 20 35 3a f1 |?pos%=1.|.... 5:.|
|00001b40| 22 20 28 52 49 47 48 54 | 29 20 22 3b 3a fb 20 36 |" (RIGHT|) ";:. 6|
|00001b50| 0d 0d e8 04 0d 0d f2 14 | c9 20 22 4c 45 46 54 22 |........|. "LEFT"|
|00001b60| 3a 70 6f 73 25 2b 3d 32 | 0d 0d fc 14 66 69 6c 65 |:pos%+=2|....file|
|00001b70| 25 3f 28 70 6f 73 25 2d | 31 29 3d 37 0d 0e 06 10 |%?(pos%-|1)=7....|
|00001b80| 66 69 6c 65 25 3f 70 6f | 73 25 3d 30 0d 0e 10 18 |file%?po|s%=0....|
|00001b90| fb 20 35 3a f1 22 20 28 | 4c 45 46 54 29 20 22 3b |. 5:." (|LEFT) ";|
|00001ba0| 3a fb 20 36 0d 0e 1a 04 | 0d 0e 24 17 c9 20 22 43 |:. 6....|..$.. "C|
|00001bb0| 4f 4d 4d 41 4e 44 22 3a | 70 6f 73 25 2b 3d 31 0d |OMMAND":|pos%+=1.|
|00001bc0| 0e 2e 10 66 69 6c 65 25 | 3f 70 6f 73 25 3d 38 0d |...file%|?pos%=8.|
|00001bd0| 0e 38 1f 24 28 66 69 6c | 65 25 2b 70 6f 73 25 2b |.8.$(fil|e%+pos%+|
|00001be0| 31 29 3d 70 61 72 61 6d | 24 2b bd 28 30 29 0d 0e |1)=param|$+.(0)..|
|00001bf0| 42 15 70 6f 73 25 2b 3d | a9 28 70 61 72 61 6d 24 |B.pos%+=|.(param$|
|00001c00| 29 2b 31 0d 0e 4c 11 e7 | 20 6c 69 6e 6b 63 6f 6c |)+1..L..| linkcol|
|00001c10| 73 25 20 8c 0d 0e 56 0b | 70 6f 73 25 2b 3d 38 0d |s% ...V.|pos%+=8.|
|00001c20| 0e 60 16 66 69 6c 65 25 | 3f 28 70 6f 73 25 2d 37 |.`.file%|?(pos%-7|
|00001c30| 29 3d 26 31 33 0d 0e 6a | 3c 66 69 6c 65 25 3f 28 |)=&13..j|<file%?(|
|00001c40| 70 6f 73 25 2d 36 29 3d | 26 44 44 3a 66 69 6c 65 |pos%-6)=|&DD:file|
|00001c50| 25 3f 28 70 6f 73 25 2d | 35 29 3d 26 44 44 3a 66 |%?(pos%-|5)=&DD:f|
|00001c60| 69 6c 65 25 3f 28 70 6f | 73 25 2d 34 29 3d 26 44 |ile%?(po|s%-4)=&D|
|00001c70| 44 0d 0e 74 38 66 69 6c | 65 25 3f 28 70 6f 73 25 |D..t8fil|e%?(pos%|
|00001c80| 2d 33 29 3d 30 3a 66 69 | 6c 65 25 3f 28 70 6f 73 |-3)=0:fi|le%?(pos|
|00001c90| 25 2d 32 29 3d 31 32 38 | 3a 66 69 6c 65 25 3f 28 |%-2)=128|:file%?(|
|00001ca0| 70 6f 73 25 2d 31 29 3d | 30 0d 0e 7e 11 66 69 6c |pos%-1)=|0..~.fil|
|00001cb0| 65 25 3f 70 6f 73 25 3d | 31 34 0d 0e 88 1d 70 6f |e%?pos%=|14....po|
|00001cc0| 73 25 2b 3d 33 3a 66 69 | 6c 65 25 3f 28 70 6f 73 |s%+=3:fi|le%?(pos|
|00001cd0| 25 2d 32 29 3d 32 35 0d | 0e 92 22 66 69 6c 65 25 |%-2)=25.|.."file%|
|00001ce0| 3f 28 70 6f 73 25 2d 31 | 29 3d 30 3a 66 69 6c 65 |?(pos%-1|)=0:file|
|00001cf0| 25 3f 70 6f 73 25 3d 32 | 30 0d 0e 9c 05 cd 0d 0e |%?pos%=2|0.......|
|00001d00| a6 04 0d 0e b0 19 c9 20 | 22 50 41 4e 45 53 54 41 |....... |"PANESTA|
|00001d10| 52 54 22 3a 70 6f 73 25 | 2b 3d 32 0d 0e ba 14 66 |RT":pos%|+=2....f|
|00001d20| 69 6c 65 25 3f 28 70 6f | 73 25 2d 31 29 3d 39 0d |ile%?(po|s%-1)=9.|
|00001d30| 0e c4 10 66 69 6c 65 25 | 3f 70 6f 73 25 3d 30 0d |...file%|?pos%=0.|
|00001d40| 0e ce 04 0d 0e d8 17 c9 | 20 22 50 41 4e 45 46 49 |........| "PANEFI|
|00001d50| 4e 22 3a 70 6f 73 25 2b | 3d 32 0d 0e e2 18 fb 20 |N":pos%+|=2..... |
|00001d60| 32 3a f1 20 27 c4 38 30 | 2c 22 2d 22 29 3b 3a fb |2:. '.80|,"-");:.|
|00001d70| 20 36 0d 0e ec 14 66 69 | 6c 65 25 3f 28 70 6f 73 | 6....fi|le%?(pos|
|00001d80| 25 2d 31 29 3d 39 0d 0e | f6 10 66 69 6c 65 25 3f |%-1)=9..|..file%?|
|00001d90| 70 6f 73 25 3d 31 0d 0f | 00 04 0d 0f 0a 16 c9 20 |pos%=1..|....... |
|00001da0| 22 49 4e 44 45 4e 54 22 | 3a 70 6f 73 25 2b 3d 32 |"INDENT"|:pos%+=2|
|00001db0| 0d 0f 14 14 66 69 6c 65 | 25 3f 28 70 6f 73 25 2d |....file|%?(pos%-|
|00001dc0| 31 29 3d 37 0d 0f 1e 10 | 66 69 6c 65 25 3f 70 6f |1)=7....|file%?po|
|00001dd0| 73 25 3d 33 0d 0f 28 0b | 70 6f 73 25 2b 3d 34 0d |s%=3..(.|pos%+=4.|
|00001de0| 0f 32 1b 66 69 6c 65 25 | 21 28 70 6f 73 25 2d 33 |.2.file%|!(pos%-3|
|00001df0| 29 3d bb 28 77 24 28 31 | 29 29 0d 0f 3c 15 f1 8a |)=.(w$(1|))..<...|
|00001e00| bb 28 77 24 28 31 29 29 | 2f 31 36 2c bc 29 3b 0d |.(w$(1))|/16,.);.|
|00001e10| 0f 46 04 0d 0f 50 14 c9 | 20 22 58 50 4f 53 22 3a |.F...P..| "XPOS":|
|00001e20| 70 6f 73 25 2b 3d 32 0d | 0f 5a 14 66 69 6c 65 25 |pos%+=2.|.Z.file%|
|00001e30| 3f 28 70 6f 73 25 2d 31 | 29 3d 37 0d 0f 64 10 66 |?(pos%-1|)=7..d.f|
|00001e40| 69 6c 65 25 3f 70 6f 73 | 25 3d 34 0d 0f 6e 0b 70 |ile%?pos|%=4..n.p|
|00001e50| 6f 73 25 2b 3d 34 0d 0f | 78 1b 66 69 6c 65 25 21 |os%+=4..|x.file%!|
|00001e60| 28 70 6f 73 25 2d 33 29 | 3d bb 28 77 24 28 31 29 |(pos%-3)|=.(w$(1)|
|00001e70| 29 0d 0f 82 15 f1 8a bb | 28 77 24 28 31 29 29 2f |).......|(w$(1))/|
|00001e80| 31 36 2c bc 29 3b 0d 0f | 8c 04 0d 0f 96 1f c9 20 |16,.);..|....... |
|00001e90| 22 53 54 41 52 54 53 54 | 59 4c 45 22 3a 6e 6f 73 |"STARTST|YLE":nos|
|00001ea0| 74 79 6c 65 73 25 2b 3d | 31 0d 0f a0 1e 73 74 79 |tyles%+=|1....sty|
|00001eb0| 6c 65 25 28 6e 6f 73 74 | 79 6c 65 73 25 2c 30 29 |le%(nost|yles%,0)|
|00001ec0| 3d 70 6f 73 25 2b 31 0d | 0f aa 1b 73 74 79 6c 65 |=pos%+1.|...style|
|00001ed0| 24 28 6e 6f 73 74 79 6c | 65 73 25 29 3d 77 24 28 |$(nostyl|es%)=w$(|
|00001ee0| 31 29 0d 0f b4 24 fb 20 | 32 3a f1 20 22 53 74 79 |1)...$. |2:. "Sty|
|00001ef0| 6c 65 20 22 3b 77 24 28 | 31 29 3b 22 20 2d 2d 3e |le ";w$(|1);" -->|
|00001f00| 22 3b 3a fb 20 36 0d 0f | be 04 0d 0f c8 29 c9 20 |";:. 6..|.....). |
|00001f10| 22 45 4e 44 53 54 59 4c | 45 22 3a 73 74 79 6c 65 |"ENDSTYL|E":style|
|00001f20| 25 28 6e 6f 73 74 79 6c | 65 73 25 2c 31 29 3d 70 |%(nostyl|es%,1)=p|
|00001f30| 6f 73 25 0d 0f d2 14 fb | 20 32 3a f1 20 22 3c 2d |os%.....| 2:. "<-|
|00001f40| 2d 22 3b 3a fb 20 36 0d | 0f dc 04 0d 0f e6 0e c9 |-";:. 6.|........|
|00001f50| 20 22 53 54 59 4c 45 22 | 3a 0d 0f f0 14 e7 20 6e | "STYLE"|:..... n|
|00001f60| 6f 73 74 79 6c 65 73 25 | 3e 3d 30 20 8c 0d 0f fa |ostyles%|>=0 ....|
|00001f70| 0d 73 74 79 6c 65 25 3d | 2d 31 0d 10 04 16 e3 20 |.style%=|-1..... |
|00001f80| 69 25 3d 30 20 b8 20 6e | 6f 73 74 79 6c 65 73 25 |i%=0 . n|ostyles%|
|00001f90| 0d 10 0e 22 e7 20 73 74 | 79 6c 65 24 28 69 25 29 |...". st|yle$(i%)|
|00001fa0| 3d 77 24 28 31 29 20 8c | 20 73 74 79 6c 65 25 3d |=w$(1) .| style%=|
|00001fb0| 69 25 0d 10 18 05 ed 0d | 10 22 04 0d 10 2c 11 e7 |i%......|."...,..|
|00001fc0| 20 73 74 79 6c 65 25 3e | 2d 31 20 8c 0d 10 36 1e | style%>|-1 ...6.|
|00001fd0| fb 20 37 3a f1 20 22 55 | 73 65 64 20 73 74 79 6c |. 7:. "U|sed styl|
|00001fe0| 65 20 22 3b 77 24 28 31 | 29 3b 0d 10 40 04 0d 10 |e ";w$(1|);..@...|
|00001ff0| 4a 2e 73 74 6c 65 6e 25 | 3d 73 74 79 6c 65 25 28 |J.stlen%|=style%(|
|00002000| 73 74 79 6c 65 25 2c 31 | 29 2d 73 74 79 6c 65 25 |style%,1|)-style%|
|00002010| 28 73 74 79 6c 65 25 2c | 30 29 2b 31 0d 10 54 1b |(style%,|0)+1..T.|
|00002020| 73 74 70 6f 73 25 3d 73 | 74 79 6c 65 25 28 73 74 |stpos%=s|tyle%(st|
|00002030| 79 6c 65 25 2c 30 29 0d | 10 5e 13 e3 20 69 25 3d |yle%,0).|.^.. i%=|
|00002040| 31 20 b8 20 73 74 6c 65 | 6e 25 0d 10 68 20 66 69 |1 . stle|n%..h fi|
|00002050| 6c 65 25 3f 28 70 6f 73 | 25 2b 69 25 29 3d 66 69 |le%?(pos|%+i%)=fi|
|00002060| 6c 65 25 3f 73 74 70 6f | 73 25 0d 10 72 0d 73 74 |le%?stpo|s%..r.st|
|00002070| 70 6f 73 25 2b 3d 31 0d | 10 7c 05 ed 0d 10 86 10 |pos%+=1.|.|......|
|00002080| 70 6f 73 25 2b 3d 73 74 | 6c 65 6e 25 0d 10 90 04 |pos%+=st|len%....|
|00002090| 0d 10 9a 07 fb 20 36 0d | 10 a4 05 cd 0d 10 ae 04 |..... 6.|........|
|000020a0| 0d 10 b8 05 cd 0d 10 c2 | 04 0d 10 cc 06 7f 3a 0d |........|......:.|
|000020b0| 10 d6 2d 85 20 31 2c 22 | 4d 69 73 74 61 6b 65 20 |..-. 1,"|Mistake |
|000020c0| 61 74 20 6c 69 6e 65 20 | 22 2b c3 6c 69 6e 65 25 |at line |"+.line%|
|000020d0| 2b 22 20 2d 20 22 2b 63 | 6f 6d 6d 24 0d 10 e0 05 |+" - "+c|omm$....|
|000020e0| cb 0d 10 ea 05 e1 0d 10 | f4 05 3a 0d 10 fe 12 dd |........|..:.....|
|000020f0| a4 75 70 63 61 73 65 28 | 73 74 72 24 29 0d 11 08 |.upcase(|str$)...|
|00002100| 10 ea 20 69 25 2c 73 24 | 2c 63 68 72 25 0d 11 12 |.. i%,s$|,chr%...|
|00002110| 09 73 24 3d 22 22 0d 11 | 1c 14 e3 20 69 25 3d 30 |.s$=""..|... i%=0|
|00002120| 20 b8 20 a9 28 73 74 72 | 24 29 0d 11 26 17 63 68 | . .(str|$)..&.ch|
|00002130| 72 25 3d 97 28 c1 73 74 | 72 24 2c 69 25 2c 31 29 |r%=.(.st|r$,i%,1)|
|00002140| 29 0d 11 30 25 e7 20 63 | 68 72 25 3e 3d 39 37 20 |)..0%. c|hr%>=97 |
|00002150| 80 20 63 68 72 25 3c 3d | 31 32 32 20 8c 20 63 68 |. chr%<=|122 . ch|
|00002160| 72 25 2d 3d 33 32 0d 11 | 3a 0d 73 24 2b 3d bd 63 |r%-=32..|:.s$+=.c|
|00002170| 68 72 25 0d 11 44 05 ed | 0d 11 4e 07 3d 73 24 0d |hr%..D..|..N.=s$.|
|00002180| 11 58 05 3a 0d 11 62 12 | dd a4 66 69 6e 64 6c 69 |.X.:..b.|..findli|
|00002190| 6e 6b 28 6c 24 29 0d 11 | 6c 0f ea 20 69 25 2c 66 |nk(l$)..|l.. i%,f|
|000021a0| 6f 75 6e 64 25 0d 11 76 | 12 6c 24 3d a4 75 70 63 |ound%..v|.l$=.upc|
|000021b0| 61 73 65 28 6c 24 29 0d | 11 80 0c 66 6f 75 6e 64 |ase(l$).|...found|
|000021c0| 25 3d 30 0d 11 8a 16 e3 | 20 69 25 3d 30 20 b8 20 |%=0.....| i%=0 . |
|000021d0| 6e 6f 61 72 74 73 25 2d | 31 0d 11 94 2c e7 20 a4 |noarts%-|1...,. .|
|000021e0| 75 70 63 61 73 65 28 61 | 72 74 69 63 6c 65 24 28 |upcase(a|rticle$(|
|000021f0| 69 25 29 29 3d 6c 24 20 | 8c 20 66 6f 75 6e 64 25 |i%))=l$ |. found%|
|00002200| 3d 69 25 2b 31 0d 11 9e | 05 ed 0d 11 a8 0b 3d 66 |=i%+1...|......=f|
|00002210| 6f 75 6e 64 25 0d ff    |                         |ound%.. |        |
+--------+-------------------------+-------------------------+--------+--------+