/ APDL Public Domain 1 / APDL_PD1A.iso / program / basic / basconv / !BasConv / GetTokens

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 20 | 47 65 74 54 6f 6b 65 6e |..... > |GetToken|
|00000010| 73 0d 00 14 0f 41 25 3d | 26 33 38 33 34 30 34 34 |s....A%=|&3834044|
|00000020| 0d 00 1e 12 4e 25 3d 30 | 3a f1 22 44 41 54 41 20 |....N%=0|:."DATA |
|00000030| 22 3b 0d 00 28 05 f5 0d | 00 32 1a 41 24 3d 22 22 |";..(...|.2.A$=""|
|00000040| 3a f5 3a 42 25 3d 3f 41 | 25 3a 41 25 3d 41 25 2b |:.:B%=?A|%:A%=A%+|
|00000050| 31 0d 00 3c 1e e7 20 42 | 25 3e 33 31 20 80 20 42 |1..<.. B|%>31 . B|
|00000060| 25 3c 31 32 37 20 41 24 | 3d 41 24 2b bd 42 25 0d |%<127 A$|=A$+.B%.|
|00000070| 00 46 0c fd 20 42 25 3e | 31 32 36 0d 00 50 15 42 |.F.. B%>|126..P.B|
|00000080| 25 3d 42 25 2b 32 35 36 | 2a a4 78 28 3f 41 25 29 |%=B%+256|*.x(?A%)|
|00000090| 0d 00 5a 1c 41 25 3d 41 | 25 2b 31 3a f1 22 26 22 |..Z.A%=A|%+1:."&"|
|000000a0| 3b 7e 42 25 3b 22 2c 22 | 3b 41 24 3b 0d 00 64 2a |;~B%;","|;A$;..d*|
|000000b0| 4e 25 3d 4e 25 2b 31 3a | e7 20 4e 25 3d 38 20 f1 |N%=N%+1:|. N%=8 .|
|000000c0| 27 22 44 41 54 41 20 22 | 3b 3a 4e 25 3d 30 20 8b |'"DATA "|;:N%=0 .|
|000000d0| 20 f1 22 2c 22 3b 0d 00 | 6e 10 fd c0 41 24 2c 32 | .",";..|n...A$,2|
|000000e0| 29 3d 22 20 75 22 0d 00 | 78 05 e0 0d 00 82 18 dd |)=" u"..|x.......|
|000000f0| a4 78 28 61 25 29 3a e7 | 28 61 25 80 38 29 3d 30 |.x(a%):.|(a%.8)=0|
|00000100| 3a 3d 30 0d 00 8c 16 e7 | 28 61 25 80 26 46 30 29 |:=0.....|(a%.&F0)|
|00000110| 3d 26 34 30 3a 3d 26 43 | 38 0d 00 96 16 e7 28 61 |=&40:=&C|8.....(a|
|00000120| 25 80 26 46 30 29 3d 26 | 30 30 3a 3d 26 43 36 0d |%.&F0)=&|00:=&C6.|
|00000130| 00 a0 08 3d 26 43 37 0d | ff                      |...=&C7.|.       |
+--------+-------------------------+-------------------------+--------+--------+