/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / j / jfs_std / !JFShared / BasicLib / CGILibrary

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 12 f4 20 3e 20 | 43 47 49 4c 69 62 72 61 |..... > |CGILibra|
|00000010| 72 79 0d 00 14 17 f4 20 | a9 20 4a 75 73 74 69 6e |ry..... |. Justin|
|00000020| 20 46 6c 65 74 63 68 65 | 72 0d 00 1e 20 f4 20 56 | Fletche|r... . V|
|00000030| 65 72 73 69 6f 6e 20 31 | 2e 30 30 20 28 30 35 20 |ersion 1|.00 (05 |
|00000040| 4a 75 6e 20 31 39 39 36 | 29 0d 00 28 05 f4 0d 00 |Jun 1996|)..(....|
|00000050| 32 38 f4 20 42 61 73 69 | 63 20 52 6f 75 74 69 6e |28. Basi|c Routin|
|00000060| 65 73 20 74 6f 20 61 6c | 6c 6f 77 20 43 47 49 20 |es to al|low CGI |
|00000070| 70 72 6f 67 72 61 6d 73 | 20 74 6f 20 62 65 20 77 |programs| to be w|
|00000080| 72 69 74 74 65 6e 0d 00 | 3c 3a f4 20 41 73 73 75 |ritten..|<:. Assu|
|00000090| 6d 65 73 20 73 69 6d 69 | 6c 61 72 20 70 72 6f 74 |mes simi|lar prot|
|000000a0| 6f 63 6f 6c 73 20 74 6f | 20 74 68 61 74 20 75 73 |ocols to| that us|
|000000b0| 65 64 20 62 79 20 74 68 | 65 20 73 65 72 76 65 72 |ed by th|e server|
|000000c0| 0d 00 46 3e f4 20 49 20 | 75 73 65 20 61 74 20 75 |..F>. I |use at u|
|000000d0| 6e 69 2c 20 77 68 69 63 | 68 20 49 20 61 73 73 75 |ni, whic|h I assu|
|000000e0| 6d 65 20 69 73 20 70 72 | 65 74 74 79 20 73 74 61 |me is pr|etty sta|
|000000f0| 6e 64 61 72 64 20 28 41 | 70 61 63 68 65 29 0d 00 |ndard (A|pache)..|
|00000100| 50 05 f4 0d 00 5a 24 85 | 20 30 2c 22 44 6f 20 6e |P....Z$.| 0,"Do n|
|00000110| 6f 74 20 72 75 6e 20 74 | 68 65 20 43 47 49 20 4c |ot run t|he CGI L|
|00000120| 69 62 72 61 72 79 22 0d | 00 64 05 e0 0d 00 6e 05 |ibrary".|.d....n.|
|00000130| 3a 0d 00 78 2e f4 20 50 | 52 4f 43 69 6e 69 74 63 |:..x.. P|ROCinitc|
|00000140| 67 69 20 3a 20 49 6e 69 | 74 69 61 6c 69 73 65 20 |gi : Ini|tialise |
|00000150| 74 68 65 20 43 47 49 20 | 6c 69 62 72 61 72 79 0d |the CGI |library.|
|00000160| 00 82 0d dd f2 69 6e 69 | 74 63 67 69 0d 00 8c 19 |.....ini|tcgi....|
|00000170| ee 20 85 20 f2 63 67 69 | 65 72 72 6f 72 28 f6 24 |. . .cgi|error(.$|
|00000180| 2c 9e 29 3a e0 0d 00 96 | 0c 68 65 61 64 65 64 3d |,.):....|.headed=|
|00000190| a3 0d 00 a0 11 de 20 62 | 75 66 66 65 72 25 20 32 |...... b|uffer% 2|
|000001a0| 35 36 0d 00 aa 2e 73 63 | 72 69 70 74 64 69 72 24 |56....sc|riptdir$|
|000001b0| 3d a4 73 79 73 74 65 6d | 76 61 72 28 22 52 49 53 |=.system|var("RIS|
|000001c0| 43 4f 53 5f 53 43 52 49 | 50 54 5f 44 49 52 22 29 |COS_SCRI|PT_DIR")|
|000001d0| 0d 00 b4 13 63 67 69 64 | 69 76 69 64 65 72 24 3d |....cgid|ivider$=|
|000001e0| 22 26 22 0d 00 be 05 e1 | 0d 00 c8 05 3a 0d 00 d2 |"&".....|....:...|
|000001f0| 3f f4 20 50 52 4f 43 63 | 67 69 65 72 72 6f 72 20 |?. PROCc|gierror |
|00000200| 3a 20 4e 6f 74 69 66 79 | 20 74 68 65 20 75 73 65 |: Notify| the use|
|00000210| 72 20 6f 66 20 61 6e 20 | 65 72 72 6f 72 20 68 61 |r of an |error ha|
|00000220| 76 69 6e 67 20 6f 63 63 | 75 72 65 64 0d 00 dc 1c |ving occ|ured....|
|00000230| f4 20 55 73 65 20 2d 31 | 20 66 6f 72 20 75 73 65 |. Use -1| for use|
|00000240| 72 20 65 72 72 6f 72 73 | 0d 00 e6 19 dd f2 63 67 |r errors|......cg|
|00000250| 69 65 72 72 6f 72 28 65 | 72 72 24 2c 6c 69 6e 65 |ierror(e|rr$,line|
|00000260| 29 0d 00 f0 2f ff 28 22 | 2a 53 65 74 20 43 47 49 |).../.("|*Set CGI|
|00000270| 45 72 72 6f 72 24 20 22 | 2b 65 72 72 24 2b 22 20 |Error$ "|+err$+" |
|00000280| 61 74 20 6c 69 6e 65 20 | 22 2b c3 6c 69 6e 65 29 |at line |"+.line)|
|00000290| 0d 00 fa 1d f2 63 67 69 | 68 65 61 64 65 72 28 22 |.....cgi|header("|
|000002a0| 74 65 78 74 22 2c 22 68 | 74 6d 6c 22 29 0d 01 04 |text","h|tml")...|
|000002b0| 0d f1 22 3c 68 65 61 64 | 3e 22 0d 01 0e 38 f1 22 |.."<head|>"...8."|
|000002c0| 3c 74 69 74 6c 65 3e 41 | 6e 20 65 72 72 6f 72 20 |<title>A|n error |
|000002d0| 6f 63 63 75 72 65 64 20 | 69 6e 20 74 68 65 20 43 |occured |in the C|
|000002e0| 47 49 20 53 63 72 69 70 | 74 3c 2f 74 69 74 6c 65 |GI Scrip|t</title|
|000002f0| 3e 22 0d 01 18 0e f1 22 | 3c 2f 68 65 61 64 3e 22 |>"....."|</head>"|
|00000300| 0d 01 22 0d f1 22 3c 62 | 6f 64 79 3e 22 0d 01 2c |..".."<b|ody>"..,|
|00000310| 0f e7 20 6c 69 6e 65 3d | 2d 31 20 8c 0d 01 36 19 |.. line=|-1 ...6.|
|00000320| 20 f1 22 3c 68 31 3e 22 | 2b 65 72 72 24 2b 22 3c | ."<h1>"|+err$+"<|
|00000330| 2f 68 31 3e 22 0d 01 40 | 05 cc 0d 01 4a 25 20 f1 |/h1>"..@|....J% .|
|00000340| 22 3c 68 31 3e 22 2b 65 | 72 72 24 2b 22 20 28 22 |"<h1>"+e|rr$+" ("|
|00000350| 2b c3 6c 69 6e 65 2b 22 | 29 3c 2f 68 31 3e 22 0d |+.line+"|)</h1>".|
|00000360| 01 54 05 cd 0d 01 5e 86 | f1 22 57 68 69 6c 73 74 |.T....^.|."Whilst|
|00000370| 20 70 72 6f 63 65 73 73 | 69 6e 67 20 74 68 65 20 | process|ing the |
|00000380| 43 47 49 20 73 63 72 69 | 70 74 2c 20 61 6e 20 65 |CGI scri|pt, an e|
|00000390| 72 72 6f 72 20 6f 63 63 | 75 72 65 64 20 77 68 69 |rror occ|ured whi|
|000003a0| 63 68 20 63 6f 75 6c 64 | 20 6e 6f 74 20 62 65 20 |ch could| not be |
|000003b0| 72 65 73 6f 6c 76 65 64 | 2e 20 50 6c 65 61 73 65 |resolved|. Please|
|000003c0| 20 72 65 70 6f 72 74 20 | 74 68 69 73 20 74 6f 20 | report |this to |
|000003d0| 74 68 65 20 53 79 73 74 | 65 6d 20 41 64 6d 69 6e |the Syst|em Admin|
|000003e0| 69 73 74 72 61 74 6f 72 | 2e 22 0d 01 68 0b f1 22 |istrator|."..h.."|
|000003f0| 3c 68 72 3e 22 0d 01 72 | 05 e1 0d 01 7c 05 3a 0d |<hr>"..r|....|.:.|
|00000400| 01 86 1b dd f2 63 67 69 | 68 65 61 64 65 72 28 74 |.....cgi|header(t|
|00000410| 79 70 65 24 2c 65 78 74 | 24 29 0d 01 90 10 e7 20 |ype$,ext|$)..... |
|00000420| ac 20 68 65 61 64 65 64 | 20 8c 0d 01 9a 2e 20 f1 |. headed| ..... .|
|00000430| 22 43 6f 6e 74 65 6e 74 | 2d 54 79 70 65 3a 20 22 |"Content|-Type: "|
|00000440| 2b 74 79 70 65 24 2b 22 | 2f 22 2b 65 78 74 24 3b |+type$+"|/"+ext$;|
|00000450| bd 31 30 3b bd 31 30 3b | 0d 01 a4 0d 20 68 65 61 |.10;.10;|.... hea|
|00000460| 64 65 64 3d b9 0d 01 ae | 05 cd 0d 01 b8 05 e1 0d |ded=....|........|
|00000470| 01 c2 05 3a 0d 01 cc 35 | f4 20 46 4e 63 67 69 72 |...:...5|. FNcgir|
|00000480| 61 77 64 61 74 61 20 3a | 20 52 65 61 64 20 72 61 |awdata :| Read ra|
|00000490| 77 20 71 75 65 72 79 20 | 64 61 74 61 20 28 3c 32 |w query |data (<2|
|000004a0| 35 36 20 63 68 61 72 73 | 29 0d 01 d6 10 dd a4 63 |56 chars|)......c|
|000004b0| 67 69 72 61 77 64 61 74 | 61 0d 01 e0 16 ea 20 73 |girawdat|a..... s|
|000004c0| 74 72 24 2c 6c 65 6e 3a | 73 74 72 24 3d 22 22 0d |tr$,len:|str$="".|
|000004d0| 01 ea 15 e7 20 a4 63 67 | 69 6d 65 74 68 6f 64 67 |.... .cg|imethodg|
|000004e0| 65 74 20 8c 0d 01 f4 24 | 20 73 74 72 24 3d a4 73 |et ....$| str$=.s|
|000004f0| 79 73 74 65 6d 76 61 72 | 28 22 51 55 45 52 59 5f |ystemvar|("QUERY_|
|00000500| 53 54 52 49 4e 47 22 29 | 0d 01 fe 05 cc 0d 02 08 |STRING")|........|
|00000510| 28 20 6c 65 6e 3d bb 28 | a4 73 79 73 74 65 6d 76 |( len=.(|.systemv|
|00000520| 61 72 28 22 43 4f 4e 54 | 45 4e 54 5f 4c 45 4e 47 |ar("CONT|ENT_LENG|
|00000530| 54 48 22 29 29 0d 02 12 | 17 20 e3 49 3d 30 b8 6c |TH"))...|. .I=0.l|
|00000540| 65 6e 3a 73 74 72 24 2b | 3d be 3a ed 0d 02 1c 05 |en:str$+|=.:.....|
|00000550| cd 0d 02 26 09 3d 73 74 | 72 24 0d 02 30 05 3a 0d |...&.=st|r$..0.:.|
|00000560| 02 3a 44 f4 20 50 52 4f | 43 63 67 69 64 69 76 69 |.:D. PRO|Ccgidivi|
|00000570| 64 65 72 20 3a 20 43 68 | 61 6e 67 65 20 64 69 76 |der : Ch|ange div|
|00000580| 69 64 65 72 20 28 75 73 | 65 64 20 69 6e 20 73 6f |ider (us|ed in so|
|00000590| 6d 65 20 61 70 70 73 20 | 61 73 20 7c 20 6e 6f 74 |me apps |as | not|
|000005a0| 20 26 29 0d 02 44 14 dd | f2 63 67 69 64 69 76 69 | &)..D..|.cgidivi|
|000005b0| 64 65 72 28 64 24 29 0d | 02 4e 12 63 67 69 64 69 |der(d$).|.N.cgidi|
|000005c0| 76 69 64 65 72 24 3d 64 | 24 0d 02 58 05 e1 0d 02 |vider$=d|$..X....|
|000005d0| 62 05 3a 0d 02 6c 3a f4 | 20 50 52 4f 43 63 67 69 |b.:..l:.| PROCcgi|
|000005e0| 70 61 72 73 65 64 61 74 | 61 20 3a 20 50 72 6f 63 |parsedat|a : Proc|
|000005f0| 65 73 73 20 72 65 71 75 | 65 73 74 20 61 6e 64 20 |ess requ|est and |
|00000600| 73 65 74 20 76 61 72 69 | 61 62 6c 65 73 0d 02 76 |set vari|ables..v|
|00000610| 2e f4 20 53 68 6f 75 6c | 64 20 70 72 6f 63 65 73 |.. Shoul|d proces|
|00000620| 73 20 63 6f 72 72 65 63 | 74 6c 79 20 69 66 20 47 |s correc|tly if G|
|00000630| 45 54 2c 20 6f 72 20 50 | 4f 53 54 0d 02 80 12 dd |ET, or P|OST.....|
|00000640| f2 63 67 69 70 61 72 73 | 65 64 61 74 61 0d 02 8a |.cgipars|edata...|
|00000650| 15 e7 20 a4 63 67 69 6d | 65 74 68 6f 64 67 65 74 |.. .cgim|ethodget|
|00000660| 20 8c 0d 02 94 30 20 73 | 74 72 24 3d a4 73 79 73 | ....0 s|tr$=.sys|
|00000670| 74 65 6d 76 61 72 28 22 | 51 55 45 52 59 5f 53 54 |temvar("|QUERY_ST|
|00000680| 52 49 4e 47 22 29 3a 6c | 65 6e 3d 31 3a 67 65 74 |RING"):l|en=1:get|
|00000690| 3d b9 0d 02 9e 05 cc 0d | 02 a8 36 20 6c 65 6e 3d |=.......|..6 len=|
|000006a0| bb 28 a4 73 79 73 74 65 | 6d 76 61 72 28 22 43 4f |.(.syste|mvar("CO|
|000006b0| 4e 54 45 4e 54 5f 4c 45 | 4e 47 54 48 22 29 29 3a |NTENT_LE|NGTH")):|
|000006c0| 73 74 72 24 3d 22 22 3a | 67 65 74 3d a3 0d 02 b2 |str$="":|get=....|
|000006d0| 05 cd 0d 02 bc 1a 76 61 | 72 24 3d 22 22 3a 76 61 |......va|r$="":va|
|000006e0| 6c 24 3d 22 22 3a 74 79 | 70 65 3d 30 0d 02 c6 2e |l$="":ty|pe=0....|
|000006f0| c8 95 20 28 6c 65 6e 3e | 30 20 80 20 ac 20 67 65 |.. (len>|0 . . ge|
|00000700| 74 29 20 84 20 28 6c 65 | 6e 3c a9 28 73 74 72 24 |t) . (le|n<.(str$|
|00000710| 29 2b 31 20 80 20 67 65 | 74 29 0d 02 d0 22 20 e7 |)+1 . ge|t)..." .|
|00000720| 20 67 65 74 20 8c 47 3d | 97 28 c1 73 74 72 24 2c | get .G=|.(.str$,|
|00000730| 6c 65 6e 2c 31 29 29 20 | 8b 47 3d a5 0d 02 da 0c |len,1)) |.G=.....|
|00000740| 20 61 64 64 65 64 3d a3 | 0d 02 e4 0b 20 c8 8e 20 | added=.|.... .. |
|00000750| 47 20 ca 0d 02 ee 29 20 | 20 c9 20 97 28 63 67 69 |G ....) | . .(cgi|
|00000760| 64 69 76 69 64 65 72 24 | 29 3a f4 20 41 20 76 61 |divider$|):. A va|
|00000770| 72 69 61 62 6c 65 20 62 | 72 65 61 6b 0d 02 f8 29 |riable b|reak...)|
|00000780| 20 20 20 f2 61 73 73 69 | 67 6e 28 22 5f 22 2b a4 |   .assi|gn("_"+.|
|00000790| 75 70 70 65 72 28 76 61 | 72 24 29 2b 22 24 22 2c |upper(va|r$)+"$",|
|000007a0| 76 61 6c 24 29 0d 03 02 | 12 20 20 20 74 79 70 65 |val$)...|.   type|
|000007b0| 3d 31 2d 74 79 70 65 0d | 03 0c 1e 20 20 20 61 64 |=1-type.|...   ad|
|000007c0| 64 65 64 3d b9 3a 76 61 | 72 24 3d 22 22 3a 76 61 |ded=.:va|r$="":va|
|000007d0| 6c 24 3d 22 22 0d 03 16 | 18 20 20 c9 20 97 28 22 |l$=""...|.  . .("|
|000007e0| 2b 22 29 3a f4 20 41 20 | 73 70 61 63 65 0d 03 20 |+"):. A |space.. |
|000007f0| 15 20 20 20 47 3d 33 32 | 3a 61 64 64 65 64 65 64 |.   G=32|:addeded|
|00000800| 3d a3 0d 03 2a 25 20 20 | c9 20 97 28 22 25 22 29 |=...*%  |. .("%")|
|00000810| 3a f4 20 41 6e 20 65 73 | 63 61 70 65 64 20 63 68 |:. An es|caped ch|
|00000820| 61 72 61 63 74 65 72 0d | 03 34 22 20 20 20 47 3d |aracter.|.4"   G=|
|00000830| a0 28 22 26 22 2b be 2b | be 29 3a 6c 65 6e 2d 3d |.("&"+.+|.):len-=|
|00000840| 32 3a 61 64 64 65 64 3d | a3 0d 03 3e 0e 20 20 c9 |2:added=|...>.  .|
|00000850| 20 97 28 22 3d 22 29 0d | 03 48 1f 20 20 20 e7 20 | .("=").|.H.   . |
|00000860| 74 79 70 65 3d 30 20 8c | 74 79 70 65 3d 31 3a 61 |type=0 .|type=1:a|
|00000870| 64 64 65 64 3d b9 0d 03 | 52 06 20 cb 0d 03 5c 10 |dded=...|R. ...\.|
|00000880| 20 e7 20 ac 20 61 64 64 | 65 64 20 8c 0d 03 66 22 | . . add|ed ...f"|
|00000890| 20 20 e7 20 74 79 70 65 | 3d 30 20 8c 76 61 72 24 |  . type|=0 .var$|
|000008a0| 2b 3d bd 47 20 8b 76 61 | 6c 24 2b 3d bd 47 0d 03 |+=.G .va|l$+=.G..|
|000008b0| 70 06 20 cd 0d 03 7a 1a | 20 e7 20 67 65 74 20 8c |p. ...z.| . get .|
|000008c0| 6c 65 6e 2b 3d 31 20 8b | 6c 65 6e 2d 3d 31 0d 03 |len+=1 .|len-=1..|
|000008d0| 84 05 ce 0d 03 8e 26 f2 | 61 73 73 69 67 6e 28 22 |......&.|assign("|
|000008e0| 5f 22 2b a4 75 70 70 65 | 72 28 76 61 72 24 29 2b |_"+.uppe|r(var$)+|
|000008f0| 22 24 22 2c 76 61 6c 24 | 29 0d 03 98 05 e1 0d 03 |"$",val$|).......|
|00000900| a2 05 3a 0d 03 a3 30 f4 | 20 50 52 4f 43 61 73 73 |..:...0.| PROCass|
|00000910| 69 67 6e 20 3a 20 41 73 | 73 69 67 6e 20 75 73 65 |ign : As|sign use|
|00000920| 72 20 64 65 66 69 6e 65 | 64 20 76 61 72 69 61 62 |r define|d variab|
|00000930| 6c 65 73 0d 03 ac 17 dd | f2 61 73 73 69 67 6e 28 |les.....|.assign(|
|00000940| 76 61 72 24 2c 76 61 6c | 24 29 0d 03 b6 0b ea 20 |var$,val|$)..... |
|00000950| 64 75 6d 6d 79 0d 03 c0 | 29 64 75 6d 6d 79 3d a0 |dummy...|)dummy=.|
|00000960| 28 22 46 4e 61 73 73 69 | 67 6e 76 61 72 28 22 2b |("FNassi|gnvar("+|
|00000970| 76 61 72 24 2b 22 2c 76 | 61 6c 24 29 22 29 0d 03 |var$+",v|al$)")..|
|00000980| ca 05 e1 0d 03 d4 1c dd | a4 61 73 73 69 67 6e 76 |........|.assignv|
|00000990| 61 72 28 f8 20 76 61 72 | 24 2c 76 61 6c 24 29 0d |ar(. var|$,val$).|
|000009a0| 03 de 10 76 61 72 24 3d | 76 61 6c 24 3a 3d 30 0d |...var$=|val$:=0.|
|000009b0| 03 e8 05 3a 0d 03 f2 31 | f4 20 46 4e 63 67 69 6d |...:...1|. FNcgim|
|000009c0| 65 74 68 6f 64 20 3a 20 | 52 65 74 75 72 6e 20 54 |ethod : |Return T|
|000009d0| 52 55 45 20 69 66 20 6d | 65 74 68 6f 64 20 77 61 |RUE if m|ethod wa|
|000009e0| 73 20 47 45 54 0d 03 fc | 35 dd a4 63 67 69 6d 65 |s GET...|5..cgime|
|000009f0| 74 68 6f 64 67 65 74 3d | a4 73 79 73 74 65 6d 76 |thodget=|.systemv|
|00000a00| 61 72 28 22 52 45 51 55 | 45 53 54 5f 4d 45 54 48 |ar("REQU|EST_METH|
|00000a10| 4f 44 22 29 3d 22 47 45 | 54 22 0d 04 06 05 3a 0d |OD")="GE|T"....:.|
|00000a20| 04 07 39 f4 20 46 4e 63 | 67 69 65 78 74 72 61 70 |..9. FNc|giextrap|
|00000a30| 61 74 68 20 3a 20 52 65 | 74 75 72 6e 20 74 68 65 |ath : Re|turn the|
|00000a40| 20 72 65 73 74 20 6f 66 | 20 74 68 65 20 70 61 74 | rest of| the pat|
|00000a50| 68 20 70 61 73 73 65 64 | 0d 04 10 2a dd a4 63 67 |h passed|...*..cg|
|00000a60| 69 65 78 74 72 61 70 61 | 74 68 3d a4 73 79 73 74 |iextrapa|th=.syst|
|00000a70| 65 6d 76 61 72 28 22 50 | 41 54 48 5f 49 4e 46 4f |emvar("P|ATH_INFO|
|00000a80| 22 29 0d 04 1a 05 3a 0d | 04 24 40 f4 20 46 4e 75 |")....:.|.$@. FNu|
|00000a90| 6e 69 78 74 6f 72 6f 66 | 69 6c 65 20 3a 20 43 6f |nixtorof|ile : Co|
|00000aa0| 6e 76 65 72 74 20 61 20 | 75 6e 69 78 20 66 69 6c |nvert a |unix fil|
|00000ab0| 65 6e 61 6d 65 20 74 6f | 20 61 20 52 69 73 63 4f |ename to| a RiscO|
|00000ac0| 73 20 73 74 79 6c 65 0d | 04 2e 19 dd a4 75 6e 69 |s style.|.....uni|
|00000ad0| 78 74 6f 72 6f 66 69 6c | 65 28 66 69 6c 65 24 29 |xtorofil|e(file$)|
|00000ae0| 0d 04 38 16 ea 20 62 24 | 2c 49 2c 63 24 3a 62 24 |..8.. b$|,I,c$:b$|
|00000af0| 3d 66 69 6c 65 24 0d 04 | 42 24 c8 95 20 28 a7 62 |=file$..|B$.. (.b|
|00000b00| 24 2c 22 2f 2f 22 29 3c | 3e 30 29 3a f4 20 2f 2f |$,"//")<|>0):. //|
|00000b10| 20 62 65 63 6f 6d 65 73 | 20 2f 0d 04 4c 27 20 62 | becomes| /..L' b|
|00000b20| 24 3d c0 62 24 2c a7 62 | 24 2c 22 2f 2f 22 29 29 |$=.b$,.b|$,"//"))|
|00000b30| 2b c1 62 24 2c a7 62 24 | 2c 22 2f 2f 22 29 2b 32 |+.b$,.b$|,"//")+2|
|00000b40| 29 0d 04 56 05 ce 0d 04 | 60 24 c8 95 20 28 a7 62 |)..V....|`$.. (.b|
|00000b50| 24 2c 22 2e 2e 22 29 3c | 3e 30 29 3a f4 20 2e 2e |$,"..")<|>0):. ..|
|00000b60| 20 62 65 63 6f 6d 65 73 | 20 5e 0d 04 6a 2d 20 62 | becomes| ^..j- b|
|00000b70| 24 3d c0 62 24 2c a7 62 | 24 2c 22 2e 2e 22 29 2d |$=.b$,.b|$,"..")-|
|00000b80| 31 29 2b 22 5e 22 2b c1 | 62 24 2c a7 62 24 2c 22 |1)+"^"+.|b$,.b$,"|
|00000b90| 2e 2e 22 29 2b 32 29 0d | 04 74 05 ce 0d 04 7e 2a |..")+2).|.t....~*|
|00000ba0| c8 95 20 28 a7 62 24 2c | 22 2e 2f 22 29 3c 3e 30 |.. (.b$,|"./")<>0|
|00000bb0| 29 3a f4 20 2e 2f 20 62 | 65 63 6f 6d 65 73 20 6e |):. ./ b|ecomes n|
|00000bc0| 6f 74 68 69 6e 67 0d 04 | 88 27 20 62 24 3d c0 62 |othing..|.' b$=.b|
|00000bd0| 24 2c a7 62 24 2c 22 2e | 2f 22 29 29 2b c1 62 24 |$,.b$,".|/"))+.b$|
|00000be0| 2c a7 62 24 2c 22 2e 2f | 22 29 2b 32 29 0d 04 92 |,.b$,"./|")+2)...|
|00000bf0| 05 ce 0d 04 93 09 63 24 | 3d 22 22 0d 04 9c 0e e3 |......c$|="".....|
|00000c00| 49 3d 31 b8 a9 28 62 24 | 29 0d 04 a6 12 20 c8 8e |I=1..(b$|).... ..|
|00000c10| 20 c1 62 24 2c 49 2c 31 | 29 20 ca 0d 04 b0 13 20 | .b$,I,1|) ..... |
|00000c20| 20 c9 20 22 2e 22 3a 63 | 24 2b 3d 22 2f 22 0d 04 | . ".":c|$+="/"..|
|00000c30| ba 13 20 20 c9 20 22 2f | 22 3a 63 24 2b 3d 22 2e |..  . "/|":c$+=".|
|00000c40| 22 0d 04 bb 4b 20 20 c9 | 20 22 5e 22 3a 63 24 3d |"...K  .| "^":c$=|
|00000c50| c0 63 24 29 3a e7 20 c2 | 63 24 29 3d 22 5e 22 20 |.c$):. .|c$)="^" |
|00000c60| 8c 63 24 2b 3d 22 2e 5e | 22 20 8b 63 24 3d a4 70 |.c$+=".^|" .c$=.p|
|00000c70| 61 74 68 6e 61 6d 65 28 | 63 24 29 3a e7 20 63 24 |athname(|c$):. c$|
|00000c80| 3d 22 40 22 20 8c 63 24 | 3d 22 5e 22 0d 04 bc 14 |="@" .c$|="^"....|
|00000c90| 20 20 7f 3a 63 24 2b 3d | c1 62 24 2c 49 2c 31 29 |  .:c$+=|.b$,I,1)|
|00000ca0| 0d 04 c4 06 20 cb 0d 04 | ce 05 ed 0d 04 d8 1c e7 |.... ...|........|
|00000cb0| 20 63 24 3d 22 2f 22 20 | 84 20 63 24 3d 22 22 20 | c$="/" |. c$="" |
|00000cc0| 8c 63 24 3d 22 40 22 0d | 04 e2 07 3d 63 24 0d 04 |.c$="@".|...=c$..|
|00000cd0| ec 05 3a 0d 04 f6 3c f4 | 20 46 4e 72 6f 74 6f 75 |..:...<.| FNrotou|
|00000ce0| 6e 69 78 66 69 6c 65 20 | 3a 20 43 6f 6e 76 65 72 |nixfile |: Conver|
|00000cf0| 74 20 52 69 73 63 4f 73 | 20 66 69 6c 65 6e 61 6d |t RiscOs| filenam|
|00000d00| 65 20 74 6f 20 75 6e 69 | 78 20 73 74 79 6c 65 0d |e to uni|x style.|
|00000d10| 05 00 19 dd a4 72 6f 74 | 6f 75 6e 69 78 66 69 6c |.....rot|ounixfil|
|00000d20| 65 28 66 69 6c 65 24 29 | 0d 05 0a 13 ea 20 62 24 |e(file$)|..... b$|
|00000d30| 2c 49 3a 62 24 3d 66 69 | 6c 65 24 0d 05 14 0e e3 |,I:b$=fi|le$.....|
|00000d40| 49 3d 31 b8 a9 28 62 24 | 29 0d 05 1e 12 20 c8 8e |I=1..(b$|).... ..|
|00000d50| 20 c1 62 24 2c 49 2c 31 | 29 20 ca 0d 05 28 18 20 | .b$,I,1|) ...(. |
|00000d60| 20 c9 20 22 2e 22 3a c1 | 62 24 2c 49 2c 31 29 3d | . ".":.|b$,I,1)=|
|00000d70| 22 2f 22 0d 05 32 18 20 | 20 c9 20 22 2f 22 3a c1 |"/"..2. | . "/":.|
|00000d80| 62 24 2c 49 2c 31 29 3d | 22 2e 22 0d 05 3c 06 20 |b$,I,1)=|"."..<. |
|00000d90| cb 0d 05 46 05 ed 0d 05 | 50 23 c8 95 20 28 a7 62 |...F....|P#.. (.b|
|00000da0| 24 2c 22 5e 22 29 3c 3e | 30 29 3a f4 20 5e 20 62 |$,"^")<>|0):. ^ b|
|00000db0| 65 63 6f 6d 65 73 20 2e | 2e 0d 05 5a 2c 20 62 24 |ecomes .|...Z, b$|
|00000dc0| 3d c0 62 24 2c a7 62 24 | 2c 22 5e 22 29 2d 31 29 |=.b$,.b$|,"^")-1)|
|00000dd0| 2b 22 2e 2e 22 2b c1 62 | 24 2c a7 62 24 2c 22 5e |+".."+.b|$,.b$,"^|
|00000de0| 22 29 2b 31 29 0d 05 64 | 05 ce 0d 05 6e 15 e7 20 |")+1)..d|....n.. |
|00000df0| 62 24 3d 22 40 22 20 8c | 20 62 24 3d 22 2e 22 0d |b$="@" .| b$=".".|
|00000e00| 05 78 07 3d 62 24 0d 05 | 82 05 3a 0d 05 8c 05 3a |.x.=b$..|..:....:|
|00000e10| 0d 05 96 37 f4 20 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...7. **|********|
|00000e20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000e30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000e40| 2a 2a 2a 2a 2a 2a 2a 0d | 05 a0 37 f4 20 2a 2a 2a |*******.|..7. ***|
|00000e50| 2a 2a 2a 2a 2a 20 52 6f | 75 74 69 6e 65 73 20 73 |***** Ro|utines s|
|00000e60| 74 6f 6c 65 6e 20 66 72 | 6f 6d 20 57 69 6d 70 4c |tolen fr|om WimpL|
|00000e70| 69 62 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 05 |ib *****|******..|
|00000e80| aa 37 f4 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.7. ****|********|
|00000e90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ea0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000eb0| 2a 2a 2a 2a 2a 0d 05 b4 | 05 3a 0d 05 be 40 f4 20 |*****...|.:...@. |
|00000ec0| 46 4e 73 79 73 74 65 6d | 76 61 72 20 3a 20 52 65 |FNsystem|var : Re|
|00000ed0| 74 75 72 6e 20 74 68 65 | 20 63 6f 6e 74 65 6e 74 |turn the| content|
|00000ee0| 73 20 6f 66 20 61 6e 79 | 20 73 74 72 69 6e 67 20 |s of any| string |
|00000ef0| 73 79 73 74 65 6d 20 76 | 61 72 0d 05 c8 1b dd a4 |system v|ar......|
|00000f00| 73 79 73 74 65 6d 76 61 | 72 28 56 61 72 24 29 3a |systemva|r(Var$):|
|00000f10| ea 20 6c 65 6e 0d 05 d2 | 32 c8 99 20 22 58 4f 53 |. len...|2.. "XOS|
|00000f20| 5f 52 65 61 64 56 61 72 | 56 61 6c 22 2c 56 61 72 |_ReadVar|Val",Var|
|00000f30| 24 2c 62 75 66 66 65 72 | 25 2c 32 35 35 2c 30 2c |$,buffer|%,255,0,|
|00000f40| 33 b8 2c 2c 6c 65 6e 0d | 05 dc 1c 62 75 66 66 65 |3.,,len.|...buffe|
|00000f50| 72 25 3f 6c 65 6e 3d 31 | 33 3a 3d 24 62 75 66 66 |r%?len=1|3:=$buff|
|00000f60| 65 72 25 0d 05 e6 05 3a | 0d 05 f0 37 f4 20 2a 2a |er%....:|...7. **|
|00000f70| 2a 2a 2a 2a 2a 2a 20 53 | 74 72 69 6e 67 20 6d 61 |****** S|tring ma|
|00000f80| 6e 69 70 75 6c 61 74 69 | 6f 6e 20 72 6f 75 74 69 |nipulati|on routi|
|00000f90| 6e 65 73 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 0d |nes ****|*******.|
|00000fa0| 05 fa 05 3a 0d 06 04 38 | f4 20 46 4e 73 74 72 69 |...:...8|. FNstri|
|00000fb0| 6e 67 30 20 3a 20 52 65 | 74 75 72 6e 20 30 2d 74 |ng0 : Re|turn 0-t|
|00000fc0| 65 72 6d 69 6e 61 74 65 | 64 20 73 74 72 69 6e 67 |erminate|d string|
|00000fd0| 20 61 74 20 6c 6f 63 61 | 74 69 6f 6e 0d 06 0e 22 | at loca|tion..."|
|00000fe0| dd a4 73 74 72 69 6e 67 | 30 28 61 25 29 3a ea 20 |..string|0(a%):. |
|00000ff0| 61 24 3a e7 20 61 25 3d | 30 20 8c 3d 22 22 0d 06 |a$:. a%=|0 .=""..|
|00001000| 18 2c c8 95 3f 61 25 3e | 33 31 20 80 a9 28 61 24 |.,..?a%>|31 ..(a$|
|00001010| 29 3c 32 35 35 3a 61 24 | 3d 61 24 2b bd 3f 61 25 |)<255:a$|=a$+.?a%|
|00001020| 3a 61 25 3d 61 25 2b 31 | 3a ce 0d 06 22 07 3d 61 |:a%=a%+1|:...".=a|
|00001030| 24 0d 06 2c 05 3a 0d 06 | 36 37 f4 20 46 4e 6c 6f |$..,.:..|67. FNlo|
|00001040| 77 65 72 20 20 20 20 20 | 20 20 3a 20 52 65 74 75 |wer     |  : Retu|
|00001050| 72 6e 20 67 69 76 65 6e | 20 73 74 72 69 6e 67 20 |rn given| string |
|00001060| 69 6e 20 6c 6f 77 65 72 | 20 63 61 73 65 0d 06 40 |in lower| case..@|
|00001070| 37 f4 20 46 4e 75 70 70 | 65 72 20 20 20 20 20 20 |7. FNupp|er      |
|00001080| 20 3a 20 52 65 74 75 72 | 6e 20 67 69 76 65 6e 20 | : Retur|n given |
|00001090| 73 74 72 69 6e 67 20 69 | 6e 20 75 70 70 65 72 20 |string i|n upper |
|000010a0| 63 61 73 65 0d 06 4a 38 | f4 20 46 4e 74 69 64 79 |case..J8|. FNtidy|
|000010b0| 20 20 20 20 20 20 20 20 | 3a 20 52 65 74 75 72 6e |        |: Return|
|000010c0| 20 67 69 76 65 6e 20 73 | 74 72 69 6e 67 20 69 6e | given s|tring in|
|000010d0| 20 74 69 64 79 20 66 6f | 72 6d 61 74 0d 06 54 40 | tidy fo|rmat..T@|
|000010e0| f4 20 46 4e 73 74 72 69 | 70 73 70 61 63 65 73 20 |. FNstri|pspaces |
|000010f0| 3a 20 52 65 6d 6f 76 65 | 20 73 70 61 63 65 73 20 |: Remove| spaces |
|00001100| 66 72 6f 6d 20 73 74 61 | 72 74 20 61 6e 64 20 65 |from sta|rt and e|
|00001110| 6e 64 20 6f 66 20 73 74 | 72 69 6e 67 0d 06 5e 19 |nd of st|ring..^.|
|00001120| dd a4 6c 6f 77 65 72 28 | 61 24 29 3a ea 20 63 24 |..lower(|a$):. c$|
|00001130| 2c 62 24 2c 49 0d 06 68 | 0e e3 49 3d 31 b8 a9 28 |,b$,I..h|..I=1..(|
|00001140| 61 24 29 0d 06 72 0f 63 | 24 3d c1 61 24 2c 49 2c |a$)..r.c|$=.a$,I,|
|00001150| 31 29 0d 06 7c 24 e7 20 | 63 24 3e 3d 22 41 22 80 |1)..|$. |c$>="A".|
|00001160| 63 24 3c 3d 22 5a 22 8c | 63 24 3d bd 28 97 28 63 |c$<="Z".|c$=.(.(c|
|00001170| 24 29 2b 33 32 29 0d 06 | 86 10 62 24 2b 3d 63 24 |$)+32)..|..b$+=c$|
|00001180| 3a ed 3a 3d 62 24 0d 06 | 90 19 dd a4 75 70 70 65 |:.:=b$..|....uppe|
|00001190| 72 28 61 24 29 3a ea 20 | 63 24 2c 62 24 2c 49 0d |r(a$):. |c$,b$,I.|
|000011a0| 06 9a 0e e3 49 3d 31 b8 | a9 28 61 24 29 0d 06 a4 |....I=1.|.(a$)...|
|000011b0| 0f 63 24 3d c1 61 24 2c | 49 2c 31 29 0d 06 ae 24 |.c$=.a$,|I,1)...$|
|000011c0| e7 20 63 24 3e 3d 22 61 | 22 80 63 24 3c 3d 22 7a |. c$>="a|".c$<="z|
|000011d0| 22 8c 63 24 3d bd 28 97 | 28 63 24 29 2d 33 32 29 |".c$=.(.|(c$)-32)|
|000011e0| 0d 06 b8 10 62 24 2b 3d | 63 24 3a ed 3a 3d 62 24 |....b$+=|c$:.:=b$|
|000011f0| 0d 06 c2 1c dd a4 74 69 | 64 79 28 61 24 29 3a ea |......ti|dy(a$):.|
|00001200| 20 63 61 70 2c 62 24 2c | 49 2c 63 24 0d 06 cc 09 | cap,b$,|I,c$....|
|00001210| 63 61 70 3d b9 0d 06 d6 | 0e e3 49 3d 31 b8 a9 28 |cap=....|..I=1..(|
|00001220| 61 24 29 0d 06 e0 32 20 | 62 24 3d c1 61 24 2c 49 |a$)...2 |b$=.a$,I|
|00001230| 2c 31 29 3a e7 20 62 24 | 3e 3d 22 61 22 80 62 24 |,1):. b$|>="a".b$|
|00001240| 3c 3d 22 7a 22 20 8c 62 | 24 3d bd 28 97 28 62 24 |<="z" .b|$=.(.(b$|
|00001250| 29 2d 33 32 29 0d 06 ea | 23 20 e7 20 28 62 24 3c |)-32)...|# . (b$<|
|00001260| 22 41 22 20 84 62 24 3e | 22 5a 22 29 20 80 20 62 |"A" .b$>|"Z") . b|
|00001270| 24 3c 3e 22 27 22 20 8c | 0d 06 f4 0b 20 20 63 61 |$<>"'" .|....  ca|
|00001280| 70 3d b9 0d 06 fe 06 20 | cc 0d 07 08 2e 20 20 e7 |p=..... |.....  .|
|00001290| 20 63 61 70 3d a3 20 80 | 20 62 24 3c 3e 22 27 22 | cap=. .| b$<>"'"|
|000012a0| 20 8c 62 24 3d bd 28 97 | 28 62 24 29 2b 33 32 29 | .b$=.(.|(b$)+32)|
|000012b0| 20 8b 63 61 70 3d a3 0d | 07 12 0d 20 cd 3a 63 24 | .cap=..|... .:c$|
|000012c0| 2b 3d 62 24 0d 07 1c 09 | ed 3a 3d 63 24 0d 07 26 |+=b$....|.:=c$..&|
|000012d0| 15 dd a4 73 74 72 69 70 | 73 70 61 63 65 73 28 66 |...strip|spaces(f|
|000012e0| 24 29 0d 07 30 1d c8 95 | 20 c2 66 24 2c 31 29 3d |$)..0...| .f$,1)=|
|000012f0| 22 20 22 20 84 20 c2 66 | 24 2c 31 29 3d bd 39 0d |" " . .f|$,1)=.9.|
|00001300| 07 3a 0c 20 66 24 3d c0 | 66 24 29 0d 07 44 05 ce |.:. f$=.|f$)..D..|
|00001310| 0d 07 4e 1d c8 95 20 c0 | 66 24 2c 31 29 3d 22 20 |..N... .|f$,1)=" |
|00001320| 22 20 84 20 c0 66 24 2c | 31 29 3d bd 39 0d 07 58 |" . .f$,|1)=.9..X|
|00001330| 0e 20 66 24 3d c1 66 24 | 2c 32 29 0d 07 62 05 ce |. f$=.f$|,2)..b..|
|00001340| 0d 07 6c 07 3d 66 24 0d | 07 76 05 3a 0d 07 80 32 |..l.=f$.|.v.:...2|
|00001350| f4 20 46 4e 6c 65 61 66 | 6e 61 6d 65 20 3a 20 52 |. FNleaf|name : R|
|00001360| 65 74 75 72 6e 20 74 68 | 65 20 6c 65 61 66 6e 61 |eturn th|e leafna|
|00001370| 6d 65 20 6f 66 20 74 68 | 65 20 66 69 6c 65 0d 07 |me of th|e file..|
|00001380| 8a 3b f4 20 46 4e 70 61 | 74 68 6e 61 6d 65 20 3a |.;. FNpa|thname :|
|00001390| 20 52 65 74 75 72 6e 20 | 74 68 65 20 64 69 72 65 | Return |the dire|
|000013a0| 63 74 6f 72 79 20 63 6f | 6e 74 61 69 6e 69 6e 67 |ctory co|ntaining|
|000013b0| 20 74 68 65 20 66 69 6c | 65 0d 07 94 18 dd 20 a4 | the fil|e..... .|
|000013c0| 6c 65 61 66 6e 61 6d 65 | 28 66 24 29 3a ea 20 72 |leafname|(f$):. r|
|000013d0| 24 0d 07 9e 24 e7 20 a7 | 66 24 2c 22 3a 22 29 3e |$...$. .|f$,":")>|
|000013e0| 30 20 8c 66 24 3d c1 66 | 24 2c a7 66 24 2c 22 3a |0 .f$=.f|$,.f$,":|
|000013f0| 22 29 2b 31 29 0d 07 a8 | 11 c8 8e 20 a7 66 24 2c |")+1)...|... .f$,|
|00001400| 22 2e 22 29 20 ca 0d 07 | b2 12 20 c9 20 30 20 20 |".") ...|.. . 0  |
|00001410| 20 20 3a 72 24 3d 66 24 | 0d 07 bc 29 20 7f 20 3a |  :r$=f$|...) . :|
|00001420| 72 24 3d a4 6c 65 61 66 | 6e 61 6d 65 28 c2 66 24 |r$=.leaf|name(.f$|
|00001430| 2c a9 28 66 24 29 2d a7 | 66 24 2c 22 2e 22 29 29 |,.(f$)-.|f$,"."))|
|00001440| 29 0d 07 c6 05 cb 0d 07 | d0 07 3d 72 24 0d 07 da |).......|..=r$...|
|00001450| 13 dd 20 a4 70 61 74 68 | 6e 61 6d 65 28 66 24 29 |.. .path|name(f$)|
|00001460| 0d 07 e4 4e e7 20 a7 66 | 24 2c 22 3a 22 29 3e 30 |...N. .f|$,":")>0|
|00001470| 20 80 20 a7 66 24 2c 22 | 2e 22 29 3d 30 20 8c 3d | . .f$,"|.")=0 .=|
|00001480| c0 66 24 2c a7 66 24 2c | 22 3a 22 29 29 20 8b e7 |.f$,.f$,|":")) ..|
|00001490| 20 a7 66 24 2c 22 3a 22 | 29 3d 30 20 80 20 a7 66 | .f$,":"|)=0 . .f|
|000014a0| 24 2c 22 2e 22 29 3d 30 | 20 8c 3d 22 40 22 0d 07 |$,".")=0| .="@"..|
|000014b0| ee 22 3d c0 66 24 2c a9 | 28 66 24 29 2d a9 28 a4 |."=.f$,.|(f$)-.(.|
|000014c0| 6c 65 61 66 6e 61 6d 65 | 28 66 24 29 29 2d 31 29 |leafname|(f$))-1)|
|000014d0| 0d ff                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+