/ The Datafile PD-CD 3 / PDCD_3.iso / languages / panebasic / lib / blib2 / Blib / Template

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 04 0d 00 14 14 | 2a 7c 73 74 61 72 74 20 |........|*|start |
|00000010| 54 65 6d 70 6c 61 74 65 | 0d 00 1e 17 2a 7c 21 54 |Template|....*|!T|
|00000020| 65 6d 70 6c 61 74 65 20 | 4c 69 62 72 61 72 79 0d |emplate |Library.|
|00000030| 00 28 07 2a 7c 21 0d 00 | 32 40 2a 7c 21 54 68 69 |.(.*|!..|2@*|!Thi|
|00000040| 73 20 6c 69 62 72 61 72 | 79 20 63 6f 6e 74 61 69 |s librar|y contai|
|00000050| 6e 73 20 72 6f 75 74 69 | 6e 65 73 20 74 6f 20 68 |ns routi|nes to h|
|00000060| 61 6e 64 6c 65 20 74 65 | 6d 70 6c 61 74 65 73 20 |andle te|mplates |
|00000070| 66 69 6c 65 73 2e 0d 00 | 3c 42 2a 7c 21 49 74 20 |files...|<B*|!It |
|00000080| 63 61 6e 20 72 65 61 64 | 20 6f 6e 65 2c 20 6f 72 |can read| one, or|
|00000090| 20 6d 6f 72 65 2c 20 74 | 65 6d 70 6c 61 74 65 73 | more, t|emplates|
|000000a0| 20 66 69 6c 65 28 73 29 | 20 69 6e 74 6f 20 6d 65 | file(s)| into me|
|000000b0| 6d 6f 72 79 20 61 6e 64 | 0d 00 46 42 2a 7c 21 6d |mory and|..FB*|!m|
|000000c0| 61 6b 65 20 63 6f 70 69 | 65 73 20 28 63 6c 6f 6e |ake copi|es (clon|
|000000d0| 65 73 29 20 6f 66 20 74 | 68 65 20 74 65 6d 70 6c |es) of t|he templ|
|000000e0| 61 74 65 73 20 66 6f 72 | 20 75 73 65 20 69 6e 20 |ates for| use in |
|000000f0| 74 68 65 20 57 49 4e 44 | 4f 57 0d 00 50 0f 2a 7c |the WIND|OW..P.*||
|00000100| 21 6c 69 62 72 61 72 79 | 2e 0d 00 5a 04 0d 00 64 |!library|...Z...d|
|00000110| 13 2a 7c 73 74 6f 70 20 | 54 65 6d 70 6c 61 74 65 |.*|stop |Template|
|00000120| 0d 00 6e 04 0d 00 78 04 | 0d 00 82 1e 2a 7c 73 74 |..n...x.|....*|st|
|00000130| 61 72 74 20 46 4e 74 65 | 6d 70 5f 67 65 74 74 65 |art FNte|mp_gette|
|00000140| 6d 70 6c 61 74 65 0d 00 | 8c 2a 2a 7c 21 46 4e 74 |mplate..|.**|!FNt|
|00000150| 65 6d 70 5f 67 65 74 74 | 65 6d 70 6c 61 74 65 28 |emp_gett|emplate(|
|00000160| 20 74 65 6d 70 6c 61 74 | 65 5f 6e 61 6d 65 20 29 | templat|e_name )|
|00000170| 0d 00 96 07 2a 7c 21 0d | 00 a0 43 2a 7c 21 52 65 |....*|!.|..C*|!Re|
|00000180| 74 75 72 6e 73 20 70 6f | 69 6e 74 65 72 20 74 6f |turns po|inter to|
|00000190| 20 77 69 6e 64 6f 77 20 | 62 6c 6f 63 6b 20 66 6f | window |block fo|
|000001a0| 72 20 74 68 65 20 67 69 | 76 65 6e 20 74 65 6d 70 |r the gi|ven temp|
|000001b0| 6c 61 74 65 2e 20 4e 6f | 74 65 0d 00 aa 41 2a 7c |late. No|te...A*||
|000001c0| 21 74 68 65 20 70 6f 69 | 6e 74 65 72 20 72 65 74 |!the poi|nter ret|
|000001d0| 75 72 6e 65 64 20 62 79 | 20 74 68 69 73 20 66 75 |urned by| this fu|
|000001e0| 6e 63 74 69 6f 6e 20 63 | 61 6e 20 4e 4f 54 20 62 |nction c|an NOT b|
|000001f0| 65 20 70 61 73 73 65 64 | 20 74 6f 0d 00 b4 3b 2a |e passed| to...;*|
|00000200| 7c 21 57 49 4e 44 4f 57 | 20 72 6f 75 74 69 6e 65 ||!WINDOW| routine|
|00000210| 73 20 72 65 71 75 69 72 | 69 6e 67 20 61 20 27 77 |s requir|ing a 'w|
|00000220| 69 6e 64 6f 77 27 20 61 | 73 20 61 20 70 61 72 61 |indow' a|s a para|
|00000230| 6d 65 74 65 72 2e 0d 00 | be 33 2a 7c 21 49 74 20 |meter...|.3*|!It |
|00000240| 63 61 6e 2c 20 68 6f 77 | 65 76 65 72 2c 20 62 65 |can, how|ever, be|
|00000250| 20 70 61 73 73 65 64 20 | 74 6f 20 46 4e 77 69 6e | passed |to FNwin|
|00000260| 5f 66 61 6b 65 77 69 6e | 2e 0d 00 c8 48 2a 7c 21 |_fakewin|....H*|!|
|00000270| 54 65 6d 70 6c 61 74 65 | 20 6e 61 6d 65 20 6d 61 |Template| name ma|
|00000280| 74 63 68 69 6e 67 20 69 | 73 20 6e 6f 74 20 63 61 |tching i|s not ca|
|00000290| 73 65 20 73 65 6e 73 61 | 74 69 76 65 2c 20 61 6e |se sensa|tive, an|
|000002a0| 64 20 69 66 20 74 68 65 | 20 74 65 6d 70 6c 61 74 |d if the| templat|
|000002b0| 65 0d 00 d2 32 2a 7c 21 | 63 61 6e 20 6e 6f 74 20 |e...2*|!|can not |
|000002c0| 62 65 20 6c 6f 63 61 74 | 65 64 20 74 68 65 20 76 |be locat|ed the v|
|000002d0| 61 6c 75 65 20 30 20 69 | 73 20 72 65 74 75 72 6e |alue 0 i|s return|
|000002e0| 65 64 2e 0d 00 dc 1a dd | a4 74 65 6d 70 5f 67 65 |ed......|.temp_ge|
|000002f0| 74 74 65 6d 70 6c 61 74 | 65 28 4e 24 29 0d 00 e6 |ttemplat|e(N$)...|
|00000300| 1b ea 20 46 25 2c 50 25 | 3a 4e 24 3d a4 74 6f 6c |.. F%,P%|:N$=.tol|
|00000310| 6f 77 65 72 28 4e 24 29 | 0d 00 f0 17 46 25 3d 30 |ower(N$)|....F%=0|
|00000320| 3a 50 25 3d 5f 74 65 6d | 70 5f 6c 69 73 74 25 0d |:P%=_tem|p_list%.|
|00000330| 00 fa 11 c8 95 20 50 25 | 20 80 20 ac 28 46 25 29 |..... P%| . .(F%)|
|00000340| 0d 01 04 1d 20 20 e7 20 | 24 28 50 25 2b 31 36 29 |....  . |$(P%+16)|
|00000350| 3d 4e 24 20 8c 20 46 25 | 3d 50 25 21 38 0d 01 0e |=N$ . F%|=P%!8...|
|00000360| 0c 20 20 50 25 3d 21 50 | 25 0d 01 18 05 ce 0d 01 |.  P%=!P|%.......|
|00000370| 22 07 3d 46 25 0d 01 2c | 04 0d 01 36 1d 2a 7c 73 |".=F%..,|...6.*|s|
|00000380| 74 6f 70 20 46 4e 74 65 | 6d 70 5f 67 65 74 74 65 |top FNte|mp_gette|
|00000390| 6d 70 6c 61 74 65 0d 01 | 40 04 0d 01 4a 04 0d 01 |mplate..|@...J...|
|000003a0| 54 1d 2a 7c 73 74 61 72 | 74 20 50 52 4f 43 74 65 |T.*|star|t PROCte|
|000003b0| 6d 70 5f 72 65 61 64 66 | 69 6c 65 0d 01 5e 2c 2a |mp_readf|ile..^,*|
|000003c0| 7c 21 50 52 4f 43 74 65 | 6d 70 5f 72 65 61 64 66 ||!PROCte|mp_readf|
|000003d0| 69 6c 65 28 20 66 69 6c | 65 5f 6e 61 6d 65 20 2c |ile( fil|e_name ,|
|000003e0| 20 73 69 7a 65 20 29 0d | 01 68 07 2a 7c 21 0d 01 | size ).|.h.*|!..|
|000003f0| 72 44 2a 7c 21 4c 6f 61 | 64 73 20 74 68 65 20 67 |rD*|!Loa|ds the g|
|00000400| 69 76 65 6e 20 74 65 6d | 70 6c 61 74 65 73 20 66 |iven tem|plates f|
|00000410| 69 6c 65 20 69 6e 74 6f | 20 6d 65 6d 6f 72 79 20 |ile into| memory |
|00000420| 72 65 61 64 79 20 66 6f | 72 20 75 73 65 2e 20 54 |ready fo|r use. T|
|00000430| 68 65 0d 01 7c 44 2a 7c | 21 66 69 6c 65 5f 6e 61 |he..|D*||!file_na|
|00000440| 6d 65 20 73 68 6f 75 6c | 64 20 62 65 20 74 68 65 |me shoul|d be the|
|00000450| 20 66 75 6c 6c 20 70 61 | 74 68 20 6e 61 6d 65 2e | full pa|th name.|
|00000460| 20 27 53 69 7a 65 27 20 | 73 68 6f 75 6c 64 20 63 | 'Size' |should c|
|00000470| 6f 6e 74 61 69 6e 0d 01 | 86 44 2a 7c 21 61 6e 20 |ontain..|.D*|!an |
|00000480| 65 73 74 69 6d 61 74 65 | 64 20 73 69 7a 65 20 66 |estimate|d size f|
|00000490| 6f 72 20 73 63 72 61 74 | 63 68 20 73 70 61 63 65 |or scrat|ch space|
|000004a0| 20 74 68 61 74 20 74 68 | 69 73 20 70 72 6f 63 64 | that th|is procd|
|000004b0| 75 72 65 20 73 68 6f 75 | 6c 64 0d 01 90 43 2a 7c |ure shou|ld...C*||
|000004c0| 21 63 6c 61 69 6d 2e 20 | 49 74 20 73 68 6f 75 6c |!claim. |It shoul|
|000004d0| 64 20 62 65 20 62 69 67 | 67 65 72 20 74 68 61 6e |d be big|ger than|
|000004e0| 20 74 68 65 20 6c 61 72 | 67 65 73 74 20 61 6d 6f | the lar|gest amo|
|000004f0| 75 6e 74 20 6f 66 20 6d | 65 6d 6f 72 79 0d 01 9a |unt of m|emory...|
|00000500| 41 2a 7c 21 6e 65 65 64 | 65 64 20 66 6f 72 20 61 |A*|!need|ed for a|
|00000510| 20 73 69 6e 67 6c 65 20 | 74 65 6d 70 6c 61 74 65 | single |template|
|00000520| 27 73 20 69 6e 64 69 72 | 65 63 74 65 64 20 64 61 |'s indir|ected da|
|00000530| 74 61 2e 20 54 68 65 20 | 61 6d 6f 75 6e 74 0d 01 |ta. The |amount..|
|00000540| a4 41 2a 7c 21 72 65 71 | 75 69 72 65 64 20 64 65 |.A*|!req|uired de|
|00000550| 70 65 6e 64 73 20 75 70 | 6f 6e 20 74 68 65 20 74 |pends up|on the t|
|00000560| 65 6d 70 6c 61 74 65 73 | 2e 20 54 68 69 73 20 70 |emplates|. This p|
|00000570| 72 6f 63 65 64 75 72 65 | 20 63 61 6e 20 62 65 0d |rocedure| can be.|
|00000580| 01 ae 3f 2a 7c 21 63 61 | 6c 6c 65 64 20 6d 6f 72 |..?*|!ca|lled mor|
|00000590| 65 20 74 68 61 6e 20 6f | 6e 63 65 2c 20 62 75 74 |e than o|nce, but|
|000005a0| 20 6f 6e 6c 79 20 6f 6e | 63 65 20 70 65 72 20 74 | only on|ce per t|
|000005b0| 65 6d 70 6c 61 74 65 73 | 20 66 69 6c 65 2e 0d 01 |emplates| file...|
|000005c0| b8 1a dd f2 74 65 6d 70 | 5f 72 65 61 64 66 69 6c |....temp|_readfil|
|000005d0| 65 28 46 24 2c 45 25 29 | 0d 01 c2 1a ea 20 43 25 |e(F$,E%)|..... C%|
|000005e0| 2c 41 25 2c 44 25 2c 4e | 25 2c 54 25 2c 46 25 2c |,A%,D%,N|%,T%,F%,|
|000005f0| 5a 25 0d 01 cc 0b 43 25 | 3d 8e 20 46 24 0d 01 d6 |Z%....C%|=. F$...|
|00000600| 3e e7 20 43 25 3d 30 20 | 8c 20 f2 77 69 6d 70 5f |>. C%=0 |. .wimp_|
|00000610| 65 72 72 6f 72 28 31 2c | 32 31 34 2c 22 43 61 6e |error(1,|214,"Can|
|00000620| 27 74 20 6f 70 65 6e 20 | 74 61 6d 70 6c 61 74 65 |'t open |tamplate|
|00000630| 20 66 69 6c 65 20 22 2b | 46 24 29 0d 01 e0 2d e3 | file "+|F$)...-.|
|00000640| 20 41 25 3d 30 20 b8 20 | 31 35 3a 44 25 3d 9a 23 | A%=0 . |15:D%=.#|
|00000650| 43 25 3a ed 3a 54 25 3d | 30 3a 5a 25 3d a4 6d 61 |C%:.:T%=|0:Z%=.ma|
|00000660| 6c 6c 6f 63 28 45 25 29 | 0d 01 ea 1e f5 3a e3 20 |lloc(E%)|.....:. |
|00000670| 41 25 3d 30 20 b8 20 32 | 33 3a 5a 25 3f 41 25 3d |A%=0 . 2|3:Z%?A%=|
|00000680| 9a 23 43 25 3a ed 0d 01 | f4 0b e7 20 21 5a 25 20 |.#C%:...|... !Z% |
|00000690| 8c 0d 01 fe 2b 20 20 4e | 25 3d a4 6d 61 6c 6c 6f |....+  N|%=.mallo|
|000006a0| 63 28 33 32 29 3a 21 4e | 25 3d 54 25 3a 54 25 3d |c(32):!N|%=T%:T%=|
|000006b0| 4e 25 3a 4e 25 21 34 3d | 5a 25 21 34 0d 02 08 38 |N%:N%!4=|Z%!4...8|
|000006c0| 20 20 e3 20 41 25 3d 30 | 20 b8 20 31 31 3a 46 25 |  . A%=0| . 11:F%|
|000006d0| 3d 3f 28 5a 25 2b 31 32 | 2b 41 25 29 3a e7 20 46 |=?(Z%+12|+A%):. F|
|000006e0| 25 3d 30 20 8c 20 3f 28 | 5a 25 2b 41 25 2b 31 32 |%=0 . ?(|Z%+A%+12|
|000006f0| 29 3d 31 33 0d 02 12 2f | 20 20 ed 3a 3f 28 5a 25 |)=13.../|  .:?(Z%|
|00000700| 2b 32 34 29 3d 31 33 3a | 24 28 4e 25 2b 31 36 29 |+24)=13:|$(N%+16)|
|00000710| 3d a4 74 6f 6c 6f 77 65 | 72 28 24 28 5a 25 2b 31 |=.tolowe|r($(Z%+1|
|00000720| 32 29 29 0d 02 1c 05 cd | 0d 02 26 10 fd 20 21 5a |2)).....|..&.. !Z|
|00000730| 25 3d 30 3a d9 23 43 25 | 0d 02 30 0f 44 25 3d 54 |%=0:.#C%|..0.D%=T|
|00000740| 25 3a 41 25 3d 5a 25 0d | 02 3a 11 c8 99 20 26 34 |%:A%=Z%.|.:... &4|
|00000750| 30 30 44 39 2c 2c 46 24 | 0d 02 44 09 c8 95 20 44 |00D9,,F$|..D... D|
|00000760| 25 0d 02 4e 1e 20 20 4e | 25 3d a4 6d 61 6c 6c 6f |%..N.  N|%=.mallo|
|00000770| 63 28 44 25 21 34 29 3a | 44 25 21 38 3d 4e 25 0d |c(D%!4):|D%!8=N%.|
|00000780| 02 58 3c 20 20 c8 99 20 | 26 34 30 30 44 42 2c 2c |.X<  .. |&400DB,,|
|00000790| 4e 25 2c 41 25 2c 41 25 | 2b 45 25 2c 2d 31 2c 24 |N%,A%,A%|+E%,-1,$|
|000007a0| 28 44 25 2b 31 36 29 2c | 30 20 b8 20 2c 2c 43 25 |(D%+16),|0 . ,,C%|
|000007b0| 3a 46 25 3d 34 2b 43 25 | 2d 41 25 0d 02 62 42 20 |:F%=4+C%|-A%..bB |
|000007c0| 20 43 25 3d a4 6d 61 6c | 6c 6f 63 28 46 25 29 3a | C%=.mal|loc(F%):|
|000007d0| 44 25 21 31 32 3d 43 25 | 3a c8 99 20 26 34 30 30 |D%!12=C%|:.. &400|
|000007e0| 44 42 2c 2c 4e 25 2c 43 | 25 2c 43 25 2b 46 25 2c |DB,,N%,C|%,C%+F%,|
|000007f0| 2d 31 2c 24 28 44 25 2b | 31 36 29 2c 30 0d 02 6c |-1,$(D%+|16),0..l|
|00000800| 3c 20 20 e7 20 21 44 25 | 3d 30 20 8c 20 21 44 25 |<  . !D%|=0 . !D%|
|00000810| 3d 5f 74 65 6d 70 5f 6c | 69 73 74 25 3a 5f 74 65 |=_temp_l|ist%:_te|
|00000820| 6d 70 5f 6c 69 73 74 25 | 3d 54 25 3a 44 25 3d 30 |mp_list%|=T%:D%=0|
|00000830| 3a 8b 20 44 25 3d 21 44 | 25 0d 02 76 05 ce 0d 02 |:. D%=!D|%..v....|
|00000840| 80 17 c8 99 20 26 34 30 | 30 44 41 3a f2 66 72 65 |.... &40|0DA:.fre|
|00000850| 65 28 5a 25 29 0d 02 8a | 05 e1 0d 02 94 04 0d 02 |e(Z%)...|........|
|00000860| 9e 1c 2a 7c 73 74 6f 70 | 20 50 52 4f 43 74 65 6d |..*|stop| PROCtem|
|00000870| 70 5f 72 65 61 64 66 69 | 6c 65 0d 02 a8 04 0d 02 |p_readfi|le......|
|00000880| b2 04 0d 02 bc 19 2a 7c | 73 74 61 72 74 20 50 52 |......*||start PR|
|00000890| 4f 43 74 65 6d 70 5f 69 | 6e 69 74 0d 02 c6 1c 2a |OCtemp_i|nit....*|
|000008a0| 7c 21 50 52 4f 43 74 65 | 6d 70 5f 69 6e 69 74 28 ||!PROCte|mp_init(|
|000008b0| 20 6e 6f 6e 65 20 29 0d | 02 d0 07 2a 7c 21 0d 02 | none ).|...*|!..|
|000008c0| da 35 2a 7c 21 54 6f 20 | 62 65 20 63 61 6c 6c 65 |.5*|!To |be calle|
|000008d0| 64 20 42 45 46 4f 52 45 | 20 61 6e 79 20 63 61 6c |d BEFORE| any cal|
|000008e0| 6c 20 74 6f 20 74 65 6d | 70 5f 72 65 61 64 66 69 |l to tem|p_readfi|
|000008f0| 6c 65 2e 0d 02 e4 0f dd | f2 74 65 6d 70 5f 69 6e |le......|.temp_in|
|00000900| 69 74 0d 02 ee 11 5f 74 | 65 6d 70 5f 6c 69 73 74 |it...._t|emp_list|
|00000910| 25 3d 30 0d 02 f8 05 e1 | 0d 03 02 04 0d 03 0c 18 |%=0.....|........|
|00000920| 2a 7c 73 74 6f 70 20 50 | 52 4f 43 74 65 6d 70 5f |*|stop P|ROCtemp_|
|00000930| 69 6e 69 74 0d 03 16 04 | 0d 03 20 04 0d 03 2a 17 |init....|.. ...*.|
|00000940| 2a 7c 73 74 61 72 74 20 | 46 4e 74 65 6d 70 5f 63 |*|start |FNtemp_c|
|00000950| 6f 70 79 0d 03 34 23 2a | 7c 21 46 4e 74 65 6d 70 |opy..4#*||!FNtemp|
|00000960| 5f 63 6f 70 79 28 20 74 | 65 6d 70 6c 61 74 65 5f |_copy( t|emplate_|
|00000970| 6e 61 6d 65 20 29 0d 03 | 3e 07 2a 7c 21 0d 03 48 |name )..|>.*|!..H|
|00000980| 43 2a 7c 21 52 65 74 75 | 72 6e 73 20 61 20 70 6f |C*|!Retu|rns a po|
|00000990| 69 6e 74 65 72 20 74 6f | 20 74 68 65 20 73 74 61 |inter to| the sta|
|000009a0| 72 74 20 6f 66 20 74 68 | 65 20 77 69 6e 64 6f 77 |rt of th|e window|
|000009b0| 20 64 65 66 69 6e 69 74 | 69 6f 6e 20 6f 66 20 61 | definit|ion of a|
|000009c0| 0d 03 52 43 2a 7c 21 63 | 6f 70 79 20 6f 66 20 74 |..RC*|!c|opy of t|
|000009d0| 68 65 20 67 69 76 65 6e | 20 74 65 6d 70 6c 61 74 |he given| templat|
|000009e0| 65 20 6e 61 6d 65 2e 20 | 54 68 69 73 20 70 6f 69 |e name. |This poi|
|000009f0| 6e 74 65 72 20 73 68 6f | 75 6c 64 20 62 65 20 75 |nter sho|uld be u|
|00000a00| 73 65 64 0d 03 5c 37 2a | 7c 21 69 6e 20 63 61 6c |sed..\7*||!in cal|
|00000a10| 6c 73 20 74 6f 20 27 77 | 69 6e 5f 63 72 65 61 74 |ls to 'w|in_creat|
|00000a20| 65 77 69 6e 27 20 61 6e | 64 20 27 77 69 6e 5f 64 |ewin' an|d 'win_d|
|00000a30| 65 6c 65 74 65 77 69 6e | 27 2e 0d 03 66 4a 2a 7c |eletewin|'...fJ*||
|00000a40| 21 4d 61 74 63 68 69 6e | 67 20 6f 66 20 74 65 6d |!Matchin|g of tem|
|00000a50| 70 6c 61 74 65 20 6e 61 | 6d 65 20 69 73 20 63 61 |plate na|me is ca|
|00000a60| 73 65 20 69 6e 73 65 6e | 73 61 74 69 76 65 2e 20 |se insen|sative. |
|00000a70| 49 66 20 74 68 65 20 74 | 65 6d 70 6c 61 74 65 20 |If the t|emplate |
|00000a80| 6e 61 6d 65 0d 03 70 2f | 2a 7c 21 63 61 6e 20 6e |name..p/|*|!can n|
|00000a90| 6f 74 20 62 65 20 6c 6f | 63 61 74 65 64 20 61 6e |ot be lo|cated an|
|00000aa0| 20 65 72 72 6f 72 20 69 | 73 20 70 72 6f 64 75 63 | error i|s produc|
|00000ab0| 65 64 2e 0d 03 7a 13 dd | a4 74 65 6d 70 5f 63 6f |ed...z..|.temp_co|
|00000ac0| 70 79 28 4e 24 29 0d 03 | 84 26 ea 20 46 25 2c 50 |py(N$)..|.&. F%,P|
|00000ad0| 25 2c 53 25 2c 41 25 2c | 54 25 2c 44 25 2c 4c 25 |%,S%,A%,|T%,D%,L%|
|00000ae0| 2c 4e 25 2c 42 25 2c 43 | 25 2c 49 25 0d 03 8e 27 |,N%,B%,C|%,I%...'|
|00000af0| 46 25 3d 30 3a 50 25 3d | 5f 74 65 6d 70 5f 6c 69 |F%=0:P%=|_temp_li|
|00000b00| 73 74 25 3a 4e 24 3d a4 | 74 6f 6c 6f 77 65 72 28 |st%:N$=.|tolower(|
|00000b10| 4e 24 29 0d 03 98 11 c8 | 95 20 50 25 20 80 20 ac |N$).....|. P% . .|
|00000b20| 28 46 25 29 0d 03 a2 1b | 20 20 e7 20 24 28 50 25 |(F%)....|  . $(P%|
|00000b30| 2b 31 36 29 3d 4e 24 20 | 8c 20 46 25 3d 50 25 0d |+16)=N$ |. F%=P%.|
|00000b40| 03 ac 0c 20 20 50 25 3d | 21 50 25 0d 03 b6 3b ce |...  P%=|!P%...;.|
|00000b50| 3a e7 20 46 25 3d 30 20 | 8c 20 f2 77 69 6d 70 5f |:. F%=0 |. .wimp_|
|00000b60| 65 72 72 6f 72 28 31 2c | 30 2c 22 43 61 6e 27 74 |error(1,|0,"Can't|
|00000b70| 20 6c 6f 63 61 74 65 20 | 74 65 6d 70 6c 61 74 65 | locate |template|
|00000b80| 20 22 2b 4e 24 29 0d 03 | c0 4f 53 25 3d a4 73 69 | "+N$)..|.OS%=.si|
|00000b90| 7a 65 5f 6f 66 28 46 25 | 21 38 29 3a 50 25 3d a4 |ze_of(F%|!8):P%=.|
|00000ba0| 6d 61 6c 6c 6f 63 28 53 | 25 2b 32 30 29 2b 31 36 |malloc(S|%+20)+16|
|00000bb0| 3a 54 25 3d 46 25 21 38 | 3a 21 28 50 25 2d 31 36 |:T%=F%!8|:!(P%-16|
|00000bc0| 29 3d 26 37 36 43 30 30 | 30 30 3a 21 28 50 25 2d |)=&76C00|00:!(P%-|
|00000bd0| 31 32 29 3d 30 0d 03 ca | 3b e3 20 41 25 3d 30 20 |12)=0...|;. A%=0 |
|00000be0| b8 20 53 25 2d 31 20 88 | 20 34 3a 21 28 50 25 2b |. S%-1 .| 4:!(P%+|
|00000bf0| 41 25 2b 34 29 3d 54 25 | 21 41 25 3a ed 3a 53 25 |A%+4)=T%|!A%:.:S%|
|00000c00| 3d a4 73 69 7a 65 5f 6f | 66 28 46 25 21 31 32 29 |=.size_o|f(F%!12)|
|00000c10| 0d 03 d4 30 44 25 3d a4 | 6d 61 6c 6c 6f 63 28 53 |...0D%=.|malloc(S|
|00000c20| 25 29 3a 21 28 50 25 2d | 34 29 3d 44 25 3a 21 28 |%):!(P%-|4)=D%:!(|
|00000c30| 50 25 2d 38 29 3d 30 3a | 21 50 25 3d 50 25 2b 34 |P%-8)=0:|!P%=P%+4|
|00000c40| 0d 03 de 4a e7 20 28 54 | 25 21 35 36 29 80 20 32 |...J. (T|%!56). 2|
|00000c50| 35 36 20 8c 20 4c 25 3d | 54 25 21 38 30 3a e3 20 |56 . L%=|T%!80:. |
|00000c60| 41 25 3d 30 20 b8 20 4c | 25 2d 31 20 88 20 34 3a |A%=0 . L|%-1 . 4:|
|00000c70| 44 25 21 41 25 3d 21 28 | 54 25 2b 37 32 2b 41 25 |D%!A%=!(|T%+72+A%|
|00000c80| 29 3a ed 3a 44 25 2b 3d | 4c 25 0d 03 e8 19 4e 25 |):.:D%+=|L%....N%|
|00000c90| 3d 54 25 21 38 34 3a e7 | 20 4e 25 3d 30 20 8c 20 |=T%!84:.| N%=0 . |
|00000ca0| 3d 50 25 0d 03 f2 24 e3 | 20 42 25 3d 30 20 b8 20 |=P%...$.| B%=0 . |
|00000cb0| 4e 25 2d 31 3a 49 25 3d | 21 28 54 25 2b 31 30 34 |N%-1:I%=|!(T%+104|
|00000cc0| 2b 33 32 2a 42 25 29 0d | 03 fc 33 e7 20 28 49 25 |+32*B%).|..3. (I%|
|00000cd0| 20 80 20 32 35 36 29 3c | 3e 30 20 80 20 28 28 49 | . 256)<|>0 . ((I|
|00000ce0| 25 20 80 20 31 29 3c 3e | 30 20 84 20 28 49 25 20 |% . 1)<>|0 . (I% |
|00000cf0| 80 20 32 29 3c 3e 30 29 | 20 8c 0d 04 06 29 20 20 |. 2)<>0)| ....)  |
|00000d00| 43 25 3d 31 30 38 2b 33 | 32 2a 42 25 3a 4c 25 3d |C%=108+3|2*B%:L%=|
|00000d10| 21 28 54 25 2b 43 25 2b | 38 29 3a e7 20 4c 25 3e |!(T%+C%+|8):. L%>|
|00000d20| 30 20 8c 0d 04 10 2d 20 | 20 20 20 e3 20 41 25 3d |0 ....- |   . A%=|
|00000d30| 30 20 b8 20 4c 25 2d 31 | 20 88 20 34 3a 44 25 21 |0 . L%-1| . 4:D%!|
|00000d40| 41 25 3d 21 28 41 25 2b | 54 25 21 43 25 29 3a ed |A%=!(A%+|T%!C%):.|
|00000d50| 0d 04 1a 47 20 20 20 20 | 21 28 50 25 2b 43 25 2b |...G    |!(P%+C%+|
|00000d60| 34 29 3d 44 25 3a 21 28 | 50 25 2b 43 25 2b 31 32 |4)=D%:!(|P%+C%+12|
|00000d70| 29 3d 4c 25 3a 44 25 2b | 3d 4c 25 3a 21 28 50 25 |)=L%:D%+|=L%:!(P%|
|00000d80| 2b 43 25 2b 38 29 3d 2d | 31 3a 41 25 3d 21 28 54 |+C%+8)=-|1:A%=!(T|
|00000d90| 25 2b 43 25 2b 34 29 0d | 04 24 62 20 20 20 20 e7 |%+C%+4).|.$b    .|
|00000da0| 20 28 49 25 20 80 20 31 | 29 3c 3e 30 20 80 20 41 | (I% . 1|)<>0 . A|
|00000db0| 25 3e 31 20 8c 20 21 28 | 50 25 2b 43 25 2b 38 29 |%>1 . !(|P%+C%+8)|
|00000dc0| 3d 44 25 3a 54 24 3d a4 | 6f 73 5f 67 65 74 73 74 |=D%:T$=.|os_getst|
|00000dd0| 72 69 6e 67 28 41 25 29 | 3a f2 6f 73 5f 70 75 74 |ring(A%)|:.os_put|
|00000de0| 73 74 72 69 6e 67 28 44 | 25 2c 54 24 29 3a 44 25 |string(D|%,T$):D%|
|00000df0| 2b 3d 31 2b a9 28 54 24 | 29 0d 04 2e 07 20 20 cd |+=1+.(T$|)....  .|
|00000e00| 0d 04 38 07 cd 3a ed 0d | 04 42 07 3d 50 25 0d 04 |..8..:..|.B.=P%..|
|00000e10| 4c 04 0d 04 56 16 2a 7c | 73 74 6f 70 20 46 4e 74 |L...V.*||stop FNt|
|00000e20| 65 6d 70 5f 63 6f 70 79 | 0d 04 60 04 0d 04 6a 04 |emp_copy|..`...j.|
|00000e30| 0d 04 74 1c 2a 7c 73 74 | 61 72 74 20 50 52 4f 43 |..t.*|st|art PROC|
|00000e40| 74 65 6d 70 5f 64 65 6c | 63 6f 70 79 0d 04 7e 21 |temp_del|copy..~!|
|00000e50| 2a 7c 21 50 52 4f 43 74 | 65 6d 70 5f 64 65 6c 63 |*|!PROCt|emp_delc|
|00000e60| 6f 70 79 28 20 77 69 6e | 64 6f 77 20 29 0d 04 88 |opy( win|dow )...|
|00000e70| 07 2a 7c 21 0d 04 92 28 | 2a 7c 21 47 65 74 73 20 |.*|!...(|*|!Gets |
|00000e80| 72 69 64 20 6f 66 20 61 | 20 63 6f 70 79 20 6f 66 |rid of a| copy of|
|00000e90| 20 61 20 74 65 6d 70 6c | 61 74 65 2e 0d 04 9c 16 | a templ|ate.....|
|00000ea0| dd f2 74 65 6d 70 5f 64 | 65 6c 63 6f 70 79 28 57 |..temp_d|elcopy(W|
|00000eb0| 25 29 0d 04 a6 63 e7 20 | 28 21 28 57 25 2d 31 36 |%)...c. |(!(W%-16|
|00000ec0| 29 20 80 20 26 46 46 46 | 46 30 30 30 30 29 3c 3e |) . &FFF|F0000)<>|
|00000ed0| 26 37 36 43 30 30 30 30 | 20 a4 6f 73 5f 67 65 74 |&76C0000| .os_get|
|00000ee0| 73 74 72 69 6e 67 28 31 | 2c 30 2c 22 41 74 74 65 |string(1|,0,"Atte|
|00000ef0| 6d 70 74 20 74 6f 20 64 | 65 6c 65 74 65 20 69 6e |mpt to d|elete in|
|00000f00| 76 61 6c 69 64 20 74 65 | 6d 70 6c 61 74 65 20 63 |valid te|mplate c|
|00000f10| 6f 70 79 22 29 0d 04 b0 | 1e e7 20 21 28 57 25 2d |opy")...|.. !(W%-|
|00000f20| 34 29 20 8c 20 f2 66 72 | 65 65 28 21 28 57 25 2d |4) . .fr|ee(!(W%-|
|00000f30| 34 29 29 0d 04 ba 10 f2 | 66 72 65 65 28 57 25 2d |4)).....|free(W%-|
|00000f40| 31 36 29 0d 04 c4 05 e1 | 0d 04 ce 04 0d 04 d8 1b |16).....|........|
|00000f50| 2a 7c 73 74 6f 70 20 50 | 52 4f 43 74 65 6d 70 5f |*|stop P|ROCtemp_|
|00000f60| 64 65 6c 63 6f 70 79 0d | ff                      |delcopy.|.       |
+--------+-------------------------+-------------------------+--------+--------+