/ InterCD 2000 February / february_2000.iso / games / WoTDemo / System / UBrowser.u / UBrowserServerList_UBrowserHTTPClient_ScriptText.TextBuffer

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 00 00 00 00 00 00 00 | 5f 2d 63 6c 61 73 73 20 |........|_-class |
|00000010| 55 42 72 6f 77 73 65 72 | 48 54 54 50 43 6c 69 65 |UBrowser|HTTPClie|
|00000020| 6e 74 20 65 78 74 65 6e | 64 73 20 55 42 72 6f 77 |nt exten|ds UBrow|
|00000030| 73 65 72 42 75 66 66 65 | 72 65 64 54 63 70 4c 69 |serBuffe|redTcpLi|
|00000040| 6e 6b 3b 0d 0a 0d 0a 76 | 61 72 20 49 70 41 64 64 |nk;....v|ar IpAdd|
|00000050| 72 09 09 53 65 72 76 65 | 72 49 70 41 64 64 72 3b |r..Serve|rIpAddr;|
|00000060| 0d 0a 76 61 72 20 73 74 | 72 69 6e 67 09 09 53 65 |..var st|ring..Se|
|00000070| 72 76 65 72 41 64 64 72 | 65 73 73 3b 0d 0a 76 61 |rverAddr|ess;..va|
|00000080| 72 20 73 74 72 69 6e 67 | 09 09 53 65 72 76 65 72 |r string|..Server|
|00000090| 55 52 49 3b 0d 0a 76 61 | 72 20 69 6e 74 09 09 09 |URI;..va|r int...|
|000000a0| 53 65 72 76 65 72 50 6f | 72 74 3b 0d 0a 76 61 72 |ServerPo|rt;..var|
|000000b0| 20 69 6e 74 09 09 09 43 | 75 72 72 65 6e 74 53 74 | int...C|urrentSt|
|000000c0| 61 74 65 3b 0d 0a 76 61 | 72 20 69 6e 74 09 09 09 |ate;..va|r int...|
|000000d0| 45 72 72 6f 72 43 6f 64 | 65 3b 0d 0a 0d 0a 63 6f |ErrorCod|e;....co|
|000000e0| 6e 73 74 20 43 6f 6e 6e | 65 63 74 69 6e 67 09 09 |nst Conn|ecting..|
|000000f0| 3d 20 30 3b 0d 0a 63 6f | 6e 73 74 20 57 61 69 74 |= 0;..co|nst Wait|
|00000100| 69 6e 67 46 6f 72 48 65 | 61 64 65 72 09 3d 20 31 |ingForHe|ader.= 1|
|00000110| 3b 0d 0a 63 6f 6e 73 74 | 20 52 65 63 65 69 76 69 |;..const| Receivi|
|00000120| 6e 67 48 65 61 64 65 72 | 09 3d 20 32 3b 0d 0a 63 |ngHeader|.= 2;..c|
|00000130| 6f 6e 73 74 20 52 65 63 | 65 69 76 69 6e 67 44 61 |onst Rec|eivingDa|
|00000140| 74 61 09 09 3d 20 33 3b | 0d 0a 63 6f 6e 73 74 20 |ta..= 3;|..const |
|00000150| 48 61 64 45 72 72 6f 72 | 09 09 09 3d 20 34 3b 0d |HadError|...= 4;.|
|00000160| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 50 6f 73 74 |...funct|ion Post|
|00000170| 42 65 67 69 6e 50 6c 61 | 79 28 29 0d 0a 7b 0d 0a |BeginPla|y()..{..|
|00000180| 09 53 75 70 65 72 2e 50 | 6f 73 74 42 65 67 69 6e |.Super.P|ostBegin|
|00000190| 50 6c 61 79 28 29 3b 0d | 0a 09 53 65 72 76 65 72 |Play();.|..Server|
|000001a0| 49 70 41 64 64 72 2e 41 | 64 64 72 20 3d 20 30 3b |IpAddr.A|ddr = 0;|
|000001b0| 0d 0a 09 44 69 73 61 62 | 6c 65 28 27 54 69 63 6b |...Disab|le('Tick|
|000001c0| 27 29 3b 0d 0a 7d 0d 0a | 0d 0a 66 75 6e 63 74 69 |');..}..|..functi|
|000001d0| 6f 6e 20 42 72 6f 77 73 | 65 28 73 74 72 69 6e 67 |on Brows|e(string|
|000001e0| 20 49 6e 41 64 64 72 65 | 73 73 2c 20 73 74 72 69 | InAddre|ss, stri|
|000001f0| 6e 67 20 49 6e 55 52 49 | 2c 20 6f 70 74 69 6f 6e |ng InURI|, option|
|00000200| 61 6c 20 69 6e 74 20 49 | 6e 50 6f 72 74 2c 20 6f |al int I|nPort, o|
|00000210| 70 74 69 6f 6e 61 6c 20 | 69 6e 74 20 49 6e 54 69 |ptional |int InTi|
|00000220| 6d 65 6f 75 74 29 0d 0a | 7b 0d 0a 09 43 75 72 72 |meout)..|{...Curr|
|00000230| 65 6e 74 53 74 61 74 65 | 20 3d 20 43 6f 6e 6e 65 |entState| = Conne|
|00000240| 63 74 69 6e 67 3b 0d 0a | 0d 0a 09 53 65 72 76 65 |cting;..|...Serve|
|00000250| 72 41 64 64 72 65 73 73 | 20 3d 20 49 6e 41 64 64 |rAddress| = InAdd|
|00000260| 72 65 73 73 3b 0d 0a 09 | 53 65 72 76 65 72 55 52 |ress;...|ServerUR|
|00000270| 49 20 3d 20 49 6e 55 52 | 49 3b 0d 0a 09 69 66 28 |I = InUR|I;...if(|
|00000280| 49 6e 50 6f 72 74 20 3d | 3d 20 30 29 0d 0a 09 09 |InPort =|= 0)....|
|00000290| 53 65 72 76 65 72 50 6f | 72 74 20 3d 20 38 30 3b |ServerPo|rt = 80;|
|000002a0| 0d 0a 09 65 6c 73 65 0d | 0a 09 09 53 65 72 76 65 |...else.|...Serve|
|000002b0| 72 50 6f 72 74 20 3d 20 | 49 6e 50 6f 72 74 3b 0d |rPort = |InPort;.|
|000002c0| 0a 09 0d 0a 09 69 66 28 | 49 6e 54 69 6d 65 6f 75 |.....if(|InTimeou|
|000002d0| 74 20 3e 20 30 20 29 0d | 0a 09 09 53 65 74 54 69 |t > 0 ).|...SetTi|
|000002e0| 6d 65 72 28 49 6e 54 69 | 6d 65 6f 75 74 2c 20 46 |mer(InTi|meout, F|
|000002f0| 61 6c 73 65 29 3b 0d 0a | 0d 0a 09 52 65 73 65 74 |alse);..|...Reset|
|00000300| 42 75 66 66 65 72 28 29 | 3b 0d 0a 09 53 65 72 76 |Buffer()|;...Serv|
|00000310| 65 72 49 70 41 64 64 72 | 2e 50 6f 72 74 20 3d 20 |erIpAddr|.Port = |
|00000320| 53 65 72 76 65 72 50 6f | 72 74 3b 0d 0a 09 69 66 |ServerPo|rt;...if|
|00000330| 28 53 65 72 76 65 72 49 | 70 41 64 64 72 2e 41 64 |(ServerI|pAddr.Ad|
|00000340| 64 72 20 3d 3d 20 30 29 | 0d 0a 09 09 52 65 73 6f |dr == 0)|....Reso|
|00000350| 6c 76 65 28 20 53 65 72 | 76 65 72 41 64 64 72 65 |lve( Ser|verAddre|
|00000360| 73 73 20 29 3b 0d 0a 09 | 65 6c 73 65 0d 0a 09 09 |ss );...|else....|
|00000370| 44 6f 42 69 6e 64 28 29 | 3b 0d 0a 7d 0d 0a 0d 0a |DoBind()|;..}....|
|00000380| 66 75 6e 63 74 69 6f 6e | 20 52 65 73 6f 6c 76 65 |function| Resolve|
|00000390| 64 28 20 49 70 41 64 64 | 72 20 41 64 64 72 20 29 |d( IpAdd|r Addr )|
|000003a0| 0d 0a 7b 0d 0a 09 2f 2f | 20 53 65 74 20 74 68 65 |..{...//| Set the|
|000003b0| 20 61 64 64 72 65 73 73 | 0d 0a 09 53 65 72 76 65 | address|...Serve|
|000003c0| 72 49 70 41 64 64 72 2e | 41 64 64 72 20 3d 20 41 |rIpAddr.|Addr = A|
|000003d0| 64 64 72 2e 41 64 64 72 | 3b 0d 0a 0d 0a 09 69 66 |ddr.Addr|;.....if|
|000003e0| 28 20 53 65 72 76 65 72 | 49 70 41 64 64 72 2e 41 |( Server|IpAddr.A|
|000003f0| 64 64 72 20 3d 3d 20 30 | 20 29 0d 0a 09 7b 0d 0a |ddr == 0| )...{..|
|00000400| 09 09 4c 6f 67 28 20 22 | 55 42 72 6f 77 73 65 72 |..Log( "|UBrowser|
|00000410| 48 54 54 50 43 6c 69 65 | 6e 74 3a 20 49 6e 76 61 |HTTPClie|nt: Inva|
|00000420| 6c 69 64 20 6d 61 73 74 | 65 72 20 73 65 72 76 65 |lid mast|er serve|
|00000430| 72 20 61 64 64 72 65 73 | 73 22 20 29 3b 0d 0a 09 |r addres|s" );...|
|00000440| 09 53 65 74 45 72 72 6f | 72 28 2d 31 29 3b 0d 0a |.SetErro|r(-1);..|
|00000450| 09 09 72 65 74 75 72 6e | 3b 0d 0a 09 7d 0d 0a 09 |..return|;...}...|
|00000460| 0d 0a 09 44 6f 42 69 6e | 64 28 29 3b 0d 0a 7d 0d |...DoBin|d();..}.|
|00000470| 0a 0d 0a 66 75 6e 63 74 | 69 6f 6e 20 44 6f 42 69 |...funct|ion DoBi|
|00000480| 6e 64 28 29 0d 0a 7b 0d | 0a 09 69 66 28 20 42 69 |nd()..{.|..if( Bi|
|00000490| 6e 64 50 6f 72 74 28 29 | 20 3d 3d 20 30 20 29 0d |ndPort()| == 0 ).|
|000004a0| 0a 09 7b 0d 0a 09 09 4c | 6f 67 28 20 22 55 42 72 |..{....L|og( "UBr|
|000004b0| 6f 77 73 65 72 48 54 54 | 50 4c 69 6e 6b 3a 20 45 |owserHTT|PLink: E|
|000004c0| 72 72 6f 72 20 62 69 6e | 64 69 6e 67 20 6c 6f 63 |rror bin|ding loc|
|000004d0| 61 6c 20 70 6f 72 74 2e | 22 20 29 3b 0d 0a 09 09 |al port.|" );....|
|000004e0| 53 65 74 45 72 72 6f 72 | 28 2d 32 29 3b 0d 0a 09 |SetError|(-2);...|
|000004f0| 09 72 65 74 75 72 6e 3b | 0d 0a 09 7d 0d 0a 0d 0a |.return;|...}....|
|00000500| 09 4f 70 65 6e 28 20 53 | 65 72 76 65 72 49 70 41 |.Open( S|erverIpA|
|00000510| 64 64 72 20 29 3b 0d 0a | 7d 0d 0a 0d 0a 65 76 65 |ddr );..|}....eve|
|00000520| 6e 74 20 54 69 6d 65 72 | 28 29 0d 0a 7b 0d 0a 09 |nt Timer|()..{...|
|00000530| 53 65 74 45 72 72 6f 72 | 28 2d 33 29 3b 09 0d 0a |SetError|(-3);...|
|00000540| 7d 0d 0a 0d 0a 65 76 65 | 6e 74 20 4f 70 65 6e 65 |}....eve|nt Opene|
|00000550| 64 28 29 0d 0a 7b 0d 0a | 09 45 6e 61 62 6c 65 28 |d()..{..|.Enable(|
|00000560| 27 54 69 63 6b 27 29 3b | 0d 0a 0d 0a 09 53 65 6e |'Tick');|.....Sen|
|00000570| 64 42 75 66 66 65 72 65 | 64 44 61 74 61 28 22 47 |dBuffere|dData("G|
|00000580| 45 54 20 22 24 53 65 72 | 76 65 72 55 52 49 24 22 |ET "$Ser|verURI$"|
|00000590| 20 48 54 54 50 2f 31 2e | 30 22 24 43 52 24 4c 46 | HTTP/1.|0"$CR$LF|
|000005a0| 29 3b 0d 0a 09 53 65 6e | 64 42 75 66 66 65 72 65 |);...Sen|dBuffere|
|000005b0| 64 44 61 74 61 28 22 55 | 73 65 72 2d 41 67 65 6e |dData("U|ser-Agen|
|000005c0| 74 3a 20 55 6e 72 65 61 | 6c 22 24 43 52 24 4c 46 |t: Unrea|l"$CR$LF|
|000005d0| 29 3b 0d 0a 09 53 65 6e | 64 42 75 66 66 65 72 65 |);...Sen|dBuffere|
|000005e0| 64 44 61 74 61 28 22 48 | 6f 73 74 3a 22 24 53 65 |dData("H|ost:"$Se|
|000005f0| 72 76 65 72 41 64 64 72 | 65 73 73 24 22 3a 22 24 |rverAddr|ess$":"$|
|00000600| 53 65 72 76 65 72 50 6f | 72 74 24 43 52 24 4c 46 |ServerPo|rt$CR$LF|
|00000610| 24 43 52 24 4c 46 29 3b | 0d 0a 0d 0a 09 43 75 72 |$CR$LF);|.....Cur|
|00000620| 72 65 6e 74 53 74 61 74 | 65 20 3d 20 57 61 69 74 |rentStat|e = Wait|
|00000630| 69 6e 67 46 6f 72 48 65 | 61 64 65 72 3b 0d 0a 7d |ingForHe|ader;..}|
|00000640| 0d 0a 0d 0a 66 75 6e 63 | 74 69 6f 6e 20 53 65 74 |....func|tion Set|
|00000650| 45 72 72 6f 72 28 69 6e | 74 20 43 6f 64 65 29 0d |Error(in|t Code).|
|00000660| 0a 7b 0d 0a 09 44 69 73 | 61 62 6c 65 28 27 54 69 |.{...Dis|able('Ti|
|00000670| 63 6b 27 29 3b 0d 0a 09 | 53 65 74 54 69 6d 65 72 |ck');...|SetTimer|
|00000680| 28 30 2c 20 46 61 6c 73 | 65 29 3b 0d 0a 09 52 65 |(0, Fals|e);...Re|
|00000690| 73 65 74 42 75 66 66 65 | 72 28 29 3b 0d 0a 0d 0a |setBuffe|r();....|
|000006a0| 09 43 75 72 72 65 6e 74 | 53 74 61 74 65 20 3d 20 |.Current|State = |
|000006b0| 48 61 64 45 72 72 6f 72 | 3b 0d 0a 09 45 72 72 6f |HadError|;...Erro|
|000006c0| 72 43 6f 64 65 20 3d 20 | 43 6f 64 65 3b 0d 0a 0d |rCode = |Code;...|
|000006d0| 0a 09 69 66 28 21 49 73 | 43 6f 6e 6e 65 63 74 65 |..if(!Is|Connecte|
|000006e0| 64 28 29 20 7c 7c 20 21 | 43 6c 6f 73 65 28 29 29 |d() || !|Close())|
|000006f0| 0d 0a 09 09 48 54 54 50 | 45 72 72 6f 72 28 45 72 |....HTTP|Error(Er|
|00000700| 72 6f 72 43 6f 64 65 29 | 3b 0d 0a 7d 0d 0a 0d 0a |rorCode)|;..}....|
|00000710| 65 76 65 6e 74 20 43 6c | 6f 73 65 64 28 29 0d 0a |event Cl|osed()..|
|00000720| 7b 0d 0a 09 44 69 73 61 | 62 6c 65 28 27 54 69 63 |{...Disa|ble('Tic|
|00000730| 6b 27 29 3b 0d 0a 09 69 | 66 28 43 75 72 72 65 6e |k');...i|f(Curren|
|00000740| 74 53 74 61 74 65 20 3d | 3d 20 52 65 63 65 69 76 |tState =|= Receiv|
|00000750| 69 6e 67 44 61 74 61 29 | 0d 0a 09 09 48 54 54 50 |ingData)|....HTTP|
|00000760| 52 65 63 65 69 76 65 64 | 44 61 74 61 28 49 6e 70 |Received|Data(Inp|
|00000770| 75 74 42 75 66 66 65 72 | 29 3b 0d 0a 0d 0a 09 69 |utBuffer|);.....i|
|00000780| 66 28 43 75 72 72 65 6e | 74 53 74 61 74 65 20 3d |f(Curren|tState =|
|00000790| 3d 20 48 61 64 45 72 72 | 6f 72 29 0d 0a 09 09 48 |= HadErr|or)....H|
|000007a0| 54 54 50 45 72 72 6f 72 | 28 45 72 72 6f 72 43 6f |TTPError|(ErrorCo|
|000007b0| 64 65 29 3b 0d 0a 7d 0d | 0a 0d 0a 66 75 6e 63 74 |de);..}.|...funct|
|000007c0| 69 6f 6e 20 48 54 54 50 | 52 65 63 65 69 76 65 64 |ion HTTP|Received|
|000007d0| 44 61 74 61 28 73 74 72 | 69 6e 67 20 44 61 74 61 |Data(str|ing Data|
|000007e0| 29 0d 0a 7b 0d 0a 7d 0d | 0a 0d 0a 66 75 6e 63 74 |)..{..}.|...funct|
|000007f0| 69 6f 6e 20 48 54 54 50 | 45 72 72 6f 72 28 69 6e |ion HTTP|Error(in|
|00000800| 74 20 43 6f 64 65 29 0d | 0a 7b 0d 0a 7d 0d 0a 0d |t Code).|.{..}...|
|00000810| 0a 65 76 65 6e 74 20 54 | 69 63 6b 28 66 6c 6f 61 |.event T|ick(floa|
|00000820| 74 20 44 65 6c 74 61 54 | 69 6d 65 29 0d 0a 7b 0d |t DeltaT|ime)..{.|
|00000830| 0a 09 6c 6f 63 61 6c 20 | 73 74 72 69 6e 67 20 4c |..local |string L|
|00000840| 69 6e 65 3b 0d 0a 09 6c | 6f 63 61 6c 20 62 6f 6f |ine;...l|ocal boo|
|00000850| 6c 20 62 47 6f 74 44 61 | 74 61 3b 0d 0a 09 6c 6f |l bGotDa|ta;...lo|
|00000860| 63 61 6c 20 69 6e 74 20 | 4e 65 78 74 53 74 61 74 |cal int |NextStat|
|00000870| 65 3b 0d 0a 09 6c 6f 63 | 61 6c 20 69 6e 74 20 69 |e;...loc|al int i|
|00000880| 3b 0d 0a 09 6c 6f 63 61 | 6c 20 69 6e 74 20 52 65 |;...loca|l int Re|
|00000890| 73 75 6c 74 3b 0d 0a 0d | 0a 09 53 75 70 65 72 2e |sult;...|..Super.|
|000008a0| 54 69 63 6b 28 44 65 6c | 74 61 54 69 6d 65 29 3b |Tick(Del|taTime);|
|000008b0| 0d 0a 0d 0a 09 44 6f 42 | 75 66 66 65 72 51 75 65 |.....DoB|ufferQue|
|000008c0| 75 65 49 4f 28 29 3b 0d | 0a 0d 0a 09 64 6f 0d 0a |ueIO();.|....do..|
|000008d0| 09 7b 0d 0a 09 09 4e 65 | 78 74 53 74 61 74 65 20 |.{....Ne|xtState |
|000008e0| 3d 20 43 75 72 72 65 6e | 74 53 74 61 74 65 3b 0d |= Curren|tState;.|
|000008f0| 0a 09 09 73 77 69 74 63 | 68 28 43 75 72 72 65 6e |...switc|h(Curren|
|00000900| 74 53 74 61 74 65 29 0d | 0a 09 09 7b 0d 0a 09 09 |tState).|...{....|
|00000910| 63 61 73 65 20 57 61 69 | 74 69 6e 67 46 6f 72 48 |case Wai|tingForH|
|00000920| 65 61 64 65 72 3a 0d 0a | 09 09 09 62 47 6f 74 44 |eader:..|...bGotD|
|00000930| 61 74 61 20 3d 20 52 65 | 61 64 42 75 66 66 65 72 |ata = Re|adBuffer|
|00000940| 65 64 4c 69 6e 65 28 4c | 69 6e 65 29 3b 0d 0a 09 |edLine(L|ine);...|
|00000950| 09 09 69 66 28 62 47 6f | 74 44 61 74 61 29 0d 0a |..if(bGo|tData)..|
|00000960| 09 09 09 7b 0d 0a 09 09 | 09 09 69 20 3d 20 49 6e |...{....|..i = In|
|00000970| 53 74 72 28 4c 69 6e 65 | 2c 20 22 20 22 29 3b 0d |Str(Line|, " ");.|
|00000980| 0a 09 09 09 09 52 65 73 | 75 6c 74 20 3d 20 49 6e |.....Res|ult = In|
|00000990| 74 28 4d 69 64 28 4c 69 | 6e 65 2c 20 69 2b 31 29 |t(Mid(Li|ne, i+1)|
|000009a0| 29 3b 0d 0a 09 09 09 09 | 69 66 28 52 65 73 75 6c |);......|if(Resul|
|000009b0| 74 20 21 3d 20 32 30 30 | 29 0d 0a 09 09 09 09 7b |t != 200|)......{|
|000009c0| 0d 0a 09 09 09 09 09 53 | 65 74 45 72 72 6f 72 28 |.......S|etError(|
|000009d0| 52 65 73 75 6c 74 29 3b | 0d 0a 09 09 09 09 09 72 |Result);|.......r|
|000009e0| 65 74 75 72 6e 3b 0d 0a | 09 09 09 09 7d 0d 0a 09 |eturn;..|....}...|
|000009f0| 09 09 09 09 0d 0a 09 09 | 09 09 4e 65 78 74 53 74 |........|..NextSt|
|00000a00| 61 74 65 20 3d 20 52 65 | 63 65 69 76 69 6e 67 48 |ate = Re|ceivingH|
|00000a10| 65 61 64 65 72 3b 0d 0a | 09 09 09 7d 09 0d 0a 09 |eader;..|...}....|
|00000a20| 09 09 62 72 65 61 6b 3b | 0d 0a 09 09 63 61 73 65 |..break;|....case|
|00000a30| 20 52 65 63 65 69 76 69 | 6e 67 48 65 61 64 65 72 | Receivi|ngHeader|
|00000a40| 3a 0d 0a 09 09 09 62 47 | 6f 74 44 61 74 61 20 3d |:.....bG|otData =|
|00000a50| 20 52 65 61 64 42 75 66 | 66 65 72 65 64 4c 69 6e | ReadBuf|feredLin|
|00000a60| 65 28 4c 69 6e 65 29 3b | 0d 0a 09 09 09 69 66 28 |e(Line);|.....if(|
|00000a70| 62 47 6f 74 44 61 74 61 | 29 0d 0a 09 09 09 7b 0d |bGotData|).....{.|
|00000a80| 0a 09 09 09 09 69 66 28 | 4c 69 6e 65 20 3d 3d 20 |.....if(|Line == |
|00000a90| 22 22 29 0d 0a 09 09 09 | 09 09 4e 65 78 74 53 74 |"").....|..NextSt|
|00000aa0| 61 74 65 20 3d 20 52 65 | 63 65 69 76 69 6e 67 44 |ate = Re|ceivingD|
|00000ab0| 61 74 61 3b 0d 0a 09 09 | 09 7d 09 0d 0a 09 09 09 |ata;....|.}......|
|00000ac0| 62 72 65 61 6b 3b 0d 0a | 09 09 63 61 73 65 20 52 |break;..|..case R|
|00000ad0| 65 63 65 69 76 69 6e 67 | 44 61 74 61 3a 0d 0a 09 |eceiving|Data:...|
|00000ae0| 09 09 62 47 6f 74 44 61 | 74 61 20 3d 20 46 61 6c |..bGotDa|ta = Fal|
|00000af0| 73 65 3b 0d 0a 09 09 09 | 62 72 65 61 6b 3b 0d 0a |se;.....|break;..|
|00000b00| 09 09 64 65 66 61 75 6c | 74 3a 0d 0a 09 09 09 62 |..defaul|t:.....b|
|00000b10| 47 6f 74 44 61 74 61 20 | 3d 20 46 61 6c 73 65 3b |GotData |= False;|
|00000b20| 0d 0a 09 09 09 62 72 65 | 61 6b 3b 0d 0a 09 09 7d |.....bre|ak;....}|
|00000b30| 0d 0a 09 09 43 75 72 72 | 65 6e 74 53 74 61 74 65 |....Curr|entState|
|00000b40| 20 3d 20 4e 65 78 74 53 | 74 61 74 65 3b 0d 0a 09 | = NextS|tate;...|
|00000b50| 7d 20 75 6e 74 69 6c 28 | 21 62 47 6f 74 44 61 74 |} until(|!bGotDat|
|00000b60| 61 29 3b 0d 0a 7d 0d 0a | 00                      |a);..}..|.       |
+--------+-------------------------+-------------------------+--------+--------+