/ APDL Public Domain 2 / APDL_PD2A.iso / demos / demo_1 / border / !Border / Border

< prev

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 17 f4 20 3e 24 | 2e 21 42 6f 72 64 65 72 |..... >$|.!Border|
|00000010| 2e 42 6f 72 64 65 72 0d | 00 14 12 f4 20 44 65 75 |.Border.|.... Deu|
|00000020| 6e 61 6e 20 4b 6e 75 74 | 65 0d 00 1e 1d f4 20 53 |nan Knut|e..... S|
|00000030| 65 65 20 64 69 73 63 6c | 61 69 6d 65 72 20 69 6e |ee discl|aimer in|
|00000040| 20 21 48 65 6c 70 0d 00 | 28 04 0d 00 32 2d f4 20 | !Help..|(...2-. |
|00000050| 49 27 6d 20 6e 6f 74 20 | 6f 6e 65 20 6f 66 20 74 |I'm not |one of t|
|00000060| 68 6f 73 65 20 74 79 70 | 65 20 6f 66 20 70 72 6f |hose typ|e of pro|
|00000070| 67 72 61 6d 65 72 73 0d | 00 3c 41 f4 20 28 4f 6e |gramers.|.<A. (On|
|00000080| 65 27 73 20 77 68 6f 20 | 6c 6f 76 65 20 70 75 74 |e's who |love put|
|00000090| 74 69 6e 67 20 63 6f 6d | 6d 65 6e 74 73 20 61 74 |ting com|ments at|
|000000a0| 20 74 68 65 20 73 74 61 | 72 74 20 61 6e 64 20 74 | the sta|rt and t|
|000000b0| 68 65 20 77 68 6f 6c 65 | 0d 00 46 1c f4 20 77 61 |he whole|..F.. wa|
|000000c0| 79 20 74 68 72 6f 75 67 | 68 20 70 72 6f 67 72 61 |y throug|h progra|
|000000d0| 6d 73 21 29 0d 00 50 04 | 0d 00 5a 27 ee 20 85 20 |ms!)..P.|..Z'. . |
|000000e0| ff 28 22 45 52 52 4f 52 | 20 22 2b f6 24 2b 22 20 |.("ERROR| "+.$+" |
|000000f0| 61 74 20 6c 69 6e 65 20 | 22 2b c3 28 9e 29 29 0d |at line |"+.(.)).|
|00000100| 00 64 2a 41 25 3d 30 3a | 42 25 3d 30 3a 43 25 3d |.d*A%=0:|B%=0:C%=|
|00000110| 30 3a 53 57 49 54 43 48 | 25 3d 31 3a 4e 55 4d 25 |0:SWITCH|%=1:NUM%|
|00000120| 3d 31 3a 54 57 4f 25 3d | 30 0d 00 6e 3b c8 99 20 |=1:TWO%=|0..n;.. |
|00000130| 22 57 69 6d 70 5f 49 6e | 69 74 69 61 6c 69 73 65 |"Wimp_In|itialise|
|00000140| 22 2c 32 30 30 2c 26 34 | 42 35 33 34 31 35 34 2c |",200,&4|B534154,|
|00000150| 22 42 6f 72 64 65 72 21 | 22 20 b8 20 2c 48 61 6e |"Border!|" . ,Han|
|00000160| 64 6c 65 25 0d 00 78 3c | de 20 62 75 66 66 65 72 |dle%..x<|. buffer|
|00000170| 25 20 32 35 36 20 2c 77 | 69 6e 64 62 75 66 66 25 |% 256 ,w|indbuff%|
|00000180| 20 26 31 30 30 30 20 2c | 69 63 64 61 74 61 25 20 | &1000 ,|icdata% |
|00000190| 26 31 30 30 30 20 2c 6d | 65 6e 75 25 20 32 35 36 |&1000 ,m|enu% 256|
|000001a0| 0d 00 82 67 21 62 75 66 | 66 65 72 25 3d 2d 31 3a |...g!buf|fer%=-1:|
|000001b0| 62 75 66 66 65 72 25 21 | 34 3d 30 3a 62 75 66 66 |buffer%!|4=0:buff|
|000001c0| 65 72 25 21 38 3d 30 3a | 62 75 66 66 65 72 25 21 |er%!8=0:|buffer%!|
|000001d0| 31 32 3d 37 30 3a 62 75 | 66 66 65 72 25 21 31 36 |12=70:bu|ffer%!16|
|000001e0| 3d 37 30 3a 62 75 66 66 | 65 72 25 21 32 30 3d 32 |=70:buff|er%!20=2|
|000001f0| 3a 24 28 62 75 66 66 65 | 72 25 2b 32 34 29 3d 22 |:$(buffe|r%+24)="|
|00000200| 73 68 61 64 65 73 22 0d | 00 8c 2a c8 99 20 22 57 |shades".|..*.. "W|
|00000210| 69 6d 70 5f 43 72 65 61 | 74 65 49 63 6f 6e 22 2c |imp_Crea|teIcon",|
|00000220| 2c 62 75 66 66 65 72 25 | 20 b8 20 62 61 72 69 63 |,buffer%| . baric|
|00000230| 25 0d 00 96 33 c8 99 20 | 22 57 69 6d 70 5f 4f 70 |%...3.. |"Wimp_Op|
|00000240| 65 6e 54 65 6d 70 6c 61 | 74 65 22 2c 2c 22 3c 4f |enTempla|te",,"<O|
|00000250| 62 65 79 24 44 69 72 3e | 2e 21 54 65 6d 70 6c 61 |bey$Dir>|.!Templa|
|00000260| 74 65 73 22 0d 00 a0 49 | c8 99 20 22 57 69 6d 70 |tes"...I|.. "Wimp|
|00000270| 5f 4c 6f 61 64 54 65 6d | 70 6c 61 74 65 22 2c 2c |_LoadTem|plate",,|
|00000280| 77 69 6e 64 62 75 66 66 | 25 2c 69 63 64 61 74 61 |windbuff|%,icdata|
|00000290| 25 2c 69 63 64 61 74 61 | 25 2b 26 31 30 30 30 2c |%,icdata|%+&1000,|
|000002a0| 2d 31 2c 22 53 68 69 72 | 6f 77 22 2c 30 0d 00 aa |-1,"Shir|ow",0...|
|000002b0| 33 c8 99 20 22 57 69 6d | 70 5f 43 72 65 61 74 65 |3.. "Wim|p_Create|
|000002c0| 57 69 6e 64 6f 77 22 2c | 2c 77 69 6e 64 62 75 66 |Window",|,windbuf|
|000002d0| 66 25 20 b8 20 49 6e 66 | 6f 68 61 6e 64 6c 65 25 |f% . Inf|ohandle%|
|000002e0| 0d 00 b4 e5 24 6d 65 6e | 75 25 3d 22 42 6f 72 64 |....$men|u%="Bord|
|000002f0| 65 72 22 3a 6d 65 6e 75 | 25 3f 31 32 3d 37 3a 6d |er":menu|%?12=7:m|
|00000300| 65 6e 75 25 3f 31 33 3d | 32 3a 6d 65 6e 75 25 3f |enu%?13=|2:menu%?|
|00000310| 31 34 3d 37 3a 6d 65 6e | 75 25 3f 31 35 3d 30 3a |14=7:men|u%?15=0:|
|00000320| 6d 65 6e 75 25 21 31 36 | 3d 39 36 3a 6d 65 6e 75 |menu%!16|=96:menu|
|00000330| 25 21 32 30 3d 34 34 3a | 6d 65 6e 75 25 21 32 34 |%!20=44:|menu%!24|
|00000340| 3d 30 3a 6d 65 6e 75 25 | 21 32 38 3d 30 3a 6d 65 |=0:menu%|!28=0:me|
|00000350| 6e 75 25 21 33 32 3d 49 | 6e 66 6f 68 61 6e 64 6c |nu%!32=I|nfohandl|
|00000360| 65 25 3a 6d 65 6e 75 25 | 21 33 36 3d 26 37 30 30 |e%:menu%|!36=&700|
|00000370| 30 30 32 31 3a 24 28 6d | 65 6e 75 25 2b 34 30 29 |0021:$(m|enu%+40)|
|00000380| 3d 22 49 6e 66 6f 22 3a | 6d 65 6e 75 25 21 35 32 |="Info":|menu%!52|
|00000390| 3d 31 32 38 3a 6d 65 6e | 75 25 21 35 36 3d 2d 31 |=128:men|u%!56=-1|
|000003a0| 3a 6d 65 6e 75 25 21 36 | 30 3d 26 37 30 30 30 30 |:menu%!6|0=&70000|
|000003b0| 32 31 3a 24 28 6d 65 6e | 75 25 2b 36 34 29 3d 22 |21:$(men|u%+64)="|
|000003c0| 51 75 69 74 22 0d 00 be | 1c f4 20 4e 6f 2c 20 63 |Quit"...|.. No, c|
|000003d0| 65 72 74 61 69 6e 6c 79 | 2c 20 6e 6f 74 20 6d 65 |ertainly|, not me|
|000003e0| 2e 0d 00 c8 05 f5 0d 00 | d2 26 c8 99 20 22 57 69 |........|.&.. "Wi|
|000003f0| 6d 70 5f 50 6f 6c 6c 22 | 2c 30 2c 62 75 66 66 65 |mp_Poll"|,0,buffe|
|00000400| 72 25 20 b8 20 72 65 61 | 73 6f 6e 25 0d 00 dc 10 |r% . rea|son%....|
|00000410| c8 8e 20 72 65 61 73 6f | 6e 25 20 ca 0d 00 e6 11 |.. reaso|n% .....|
|00000420| c9 20 30 20 3a 20 f2 62 | 6f 72 64 65 72 0d 00 f0 |. 0 : .b|order...|
|00000430| 59 c9 20 36 20 3a 20 e7 | 20 62 75 66 66 65 72 25 |Y. 6 : .| buffer%|
|00000440| 21 38 3d 32 20 80 20 62 | 75 66 66 65 72 25 21 31 |!8=2 . b|uffer%!1|
|00000450| 36 3d 62 61 72 69 63 25 | 20 8c 20 c8 99 20 22 57 |6=baric%| . .. "W|
|00000460| 69 6d 70 5f 43 72 65 61 | 74 65 4d 65 6e 75 22 2c |imp_Crea|teMenu",|
|00000470| 2c 6d 65 6e 75 25 2c 21 | 62 75 66 66 65 72 25 2d |,menu%,!|buffer%-|
|00000480| 36 34 2c 31 37 36 0d 00 | fa 4d c9 20 39 20 3a 20 |64,176..|.M. 9 : |
|00000490| e7 20 21 62 75 66 66 65 | 72 25 3d 31 20 8c 20 c8 |. !buffe|r%=1 . .|
|000004a0| 99 20 22 57 69 6d 70 5f | 43 6c 6f 73 65 44 6f 77 |. "Wimp_|CloseDow|
|000004b0| 6e 22 2c 48 61 6e 64 6c | 65 25 2c 26 34 42 35 33 |n",Handl|e%,&4B53|
|000004c0| 34 31 35 34 3a c8 99 20 | 22 4f 53 5f 45 78 69 74 |4154:.. |"OS_Exit|
|000004d0| 22 3a e0 0d 01 04 53 c9 | 20 31 37 2c 31 38 20 3a |":....S.| 17,18 :|
|000004e0| 20 e7 20 62 75 66 66 65 | 72 25 21 31 36 3d 30 20 | . buffe|r%!16=0 |
|000004f0| 8c 20 c8 99 20 22 57 69 | 6d 70 5f 43 6c 6f 73 65 |. .. "Wi|mp_Close|
|00000500| 44 6f 77 6e 22 2c 48 61 | 6e 64 6c 65 25 2c 26 34 |Down",Ha|ndle%,&4|
|00000510| 42 35 33 34 31 35 34 3a | c8 99 20 22 4f 53 5f 45 |B534154:|.. "OS_E|
|00000520| 78 69 74 22 3a e0 0d 01 | 0e 05 cb 0d 01 18 07 fd |xit":...|........|
|00000530| 20 a3 0d 01 22 05 e0 0d | 01 2c 0c dd f2 62 6f 72 | ..."...|.,...bor|
|00000540| 64 65 72 0d 01 36 16 ef | 20 31 39 2c 30 2c 32 34 |der..6..| 19,0,24|
|00000550| 2c 41 25 2c 42 25 2c 43 | 25 0d 01 40 22 e7 20 4e |,A%,B%,C|%..@". N|
|00000560| 55 4d 25 20 83 20 32 20 | 3d 20 31 20 8c 20 41 25 |UM% . 2 |= 1 . A%|
|00000570| 3d 41 25 2b 53 57 49 54 | 43 48 25 0d 01 4a 3a e7 |=A%+SWIT|CH%..J:.|
|00000580| 20 4e 55 4d 25 3d 32 20 | 84 20 4e 55 4d 25 20 3d | NUM%=2 |. NUM% =|
|00000590| 33 20 84 20 4e 55 4d 25 | 20 3d 36 20 84 20 4e 55 |3 . NUM%| =6 . NU|
|000005a0| 4d 25 20 3d 37 20 8c 20 | 42 25 3d 42 25 2b 53 57 |M% =7 . |B%=B%+SW|
|000005b0| 49 54 43 48 25 0d 01 54 | 3a e7 20 4e 55 4d 25 3d |ITCH%..T|:. NUM%=|
|000005c0| 34 20 84 20 4e 55 4d 25 | 20 3d 35 20 84 20 4e 55 |4 . NUM%| =5 . NU|
|000005d0| 4d 25 20 3d 36 20 84 20 | 4e 55 4d 25 20 3d 37 20 |M% =6 . |NUM% =7 |
|000005e0| 8c 20 43 25 3d 43 25 2b | 53 57 49 54 43 48 25 0d |. C%=C%+|SWITCH%.|
|000005f0| 01 5e 56 e7 20 41 25 3d | 2d 31 20 84 20 42 25 3d |.^V. A%=|-1 . B%=|
|00000600| 2d 31 20 84 20 43 25 3d | 2d 31 20 84 20 41 25 3d |-1 . C%=|-1 . A%=|
|00000610| 32 35 36 20 84 20 42 25 | 3d 32 35 36 20 84 20 43 |256 . B%|=256 . C|
|00000620| 25 3d 32 35 36 20 8c 20 | 53 57 49 54 43 48 25 3d |%=256 . |SWITCH%=|
|00000630| 30 2d 53 57 49 54 43 48 | 25 3a 54 57 4f 25 2b 3d |0-SWITCH|%:TWO%+=|
|00000640| 31 20 8b 20 e1 0d 01 68 | 30 e7 20 41 25 3d 2d 31 |1 . ...h|0. A%=-1|
|00000650| 20 8c 20 41 25 3d 30 3a | e7 20 42 25 3d 2d 31 20 | . A%=0:|. B%=-1 |
|00000660| 8c 20 42 25 3d 30 3a e7 | 20 43 25 3d 2d 31 20 8c |. B%=0:.| C%=-1 .|
|00000670| 20 43 25 3d 30 0d 01 72 | 39 e7 20 41 25 3d 32 35 | C%=0..r|9. A%=25|
|00000680| 36 20 8c 20 41 25 3d 32 | 35 35 3a e7 20 42 25 3d |6 . A%=2|55:. B%=|
|00000690| 32 35 36 20 8c 20 42 25 | 3d 32 35 35 3a e7 20 43 |256 . B%|=255:. C|
|000006a0| 25 3d 32 35 36 20 8c 20 | 43 25 3d 32 35 35 0d 01 |%=256 . |C%=255..|
|000006b0| 7c 39 e7 20 54 57 4f 25 | 3d 32 20 8c 20 4e 55 4d ||9. TWO%|=2 . NUM|
|000006c0| 25 2b 3d 31 3a 54 57 4f | 25 3d 30 3a e7 20 4e 55 |%+=1:TWO|%=0:. NU|
|000006d0| 4d 25 3d 38 20 8c 20 4e | 55 4d 25 3d 31 3a 53 57 |M%=8 . N|UM%=1:SW|
|000006e0| 49 54 43 48 25 3d 31 0d | 01 86 05 e1 0d ff       |ITCH%=1.|......  |
+--------+-------------------------+-------------------------+--------+--------+