home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1990-06-01 | 12.5 KB |
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was not able to be converted.
This format is not currently supported by dexvert.
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1f f4 20 3e 20 | 3c 44 6f 73 46 6f 72 6d |..... > |<DosForm|
|00000010| 24 44 69 72 3e 2e 21 52 | 75 6e 49 6d 61 67 65 0d |$Dir>.!R|unImage.|
|00000020| 00 14 04 0d 00 1e 0d f4 | 20 62 79 20 47 61 72 66 |........| by Garf|
|00000030| 0d 00 28 04 0d 00 32 25 | 70 72 6f 67 74 69 74 6c |..(...2%|progtitl|
|00000040| 65 24 20 3d 20 22 44 4f | 53 20 37 32 30 4b 20 46 |e$ = "DO|S 720K F|
|00000050| 6f 72 6d 61 74 74 65 72 | 22 0d 00 3c 41 c8 99 20 |ormatter|"..<A.. |
|00000060| 22 57 69 6d 70 5f 49 6e | 69 74 69 61 6c 69 73 65 |"Wimp_In|itialise|
|00000070| 22 2c 32 30 30 2c 26 34 | 42 35 33 34 31 35 34 2c |",200,&4|B534154,|
|00000080| 70 72 6f 67 74 69 74 6c | 65 24 20 b8 20 2c 54 61 |progtitl|e$ . ,Ta|
|00000090| 73 6b 5f 48 61 6e 64 6c | 65 25 0d 00 46 04 0d 00 |sk_Handl|e%..F...|
|000000a0| 50 13 de 20 68 69 65 72 | 61 72 63 68 79 20 32 30 |P.. hier|archy 20|
|000000b0| 30 0d 00 5a 1c de 20 62 | 6b 20 34 30 39 36 2c 69 |0..Z.. b|k 4096,i|
|000000c0| 63 6f 6e 73 70 61 63 65 | 20 34 30 39 36 0d 00 64 |conspace| 4096..d|
|000000d0| 2b de 20 6d 65 6e 75 73 | 70 61 63 65 20 31 30 32 |+. menus|pace 102|
|000000e0| 34 3a 6d 65 6e 75 65 6e | 64 3d 6d 65 6e 75 73 70 |4:menuen|d=menusp|
|000000f0| 61 63 65 2b 31 30 32 34 | 0d 00 6e 0c de 20 6d 62 |ace+1024|..n.. mb|
|00000100| 6b 20 32 30 0d 00 78 04 | 0d 00 82 16 de 20 62 75 |k 20..x.|..... bu|
|00000110| 66 66 65 72 20 20 20 20 | 20 26 34 30 30 30 0d 00 |ffer | &4000..|
|00000120| 8c 16 de 20 62 6f 6f 74 | 64 61 74 61 20 20 20 26 |... boot|data &|
|00000130| 32 36 30 30 0d 00 96 16 | de 20 72 65 61 64 62 75 |2600....|. readbu|
|00000140| 66 66 65 72 20 26 32 30 | 30 30 0d 00 a0 14 de 20 |ffer &20|00..... |
|00000150| 64 69 73 63 72 65 63 6f | 72 64 20 26 34 30 0d 00 |discreco|rd &40..|
|00000160| aa 04 0d 00 b4 09 f2 69 | 6e 69 74 0d 00 be 04 0d |.......i|nit.....|
|00000170| 00 c8 05 f5 0d 00 d2 11 | 20 ee 20 85 20 ea 20 f2 |........| . . . .|
|00000180| 65 72 72 6f 72 0d 00 dc | 16 20 f2 61 63 74 69 6f |error...|. .actio|
|00000190| 6e 28 a4 70 6f 6c 6c 28 | 30 29 29 0d 00 e6 07 fd |n(.poll(|0)).....|
|000001a0| 20 a3 0d 00 f0 05 e0 0d | 00 fa 04 0d 01 04 0c dd | .......|........|
|000001b0| 20 f2 65 72 72 6f 72 0d | 01 0e 19 20 c8 99 20 22 | .error.|... .. "|
|000001c0| 48 6f 75 72 67 6c 61 73 | 73 5f 53 6d 61 73 68 22 |Hourglas|s_Smash"|
|000001d0| 0d 01 18 18 20 e7 20 9f | 3d 31 20 f2 64 72 6f 6e |.... . .|=1 .dron|
|000001e0| 67 6f 28 f6 24 29 3a e1 | 0d 01 22 2c 20 e7 20 9f |go(.$):.|..", . .|
|000001f0| 3d 26 31 30 38 43 41 20 | 8c 20 f2 64 72 6f 6e 67 |=&108CA |. .drong|
|00000200| 6f 28 22 50 72 6f 74 65 | 63 74 65 64 20 64 69 73 |o("Prote|cted dis|
|00000210| 63 2e 22 29 0d 01 2c 46 | 20 e7 20 ac 20 a4 61 73 |c.")..,F| . . .as|
|00000220| 6b 28 f6 24 2b 22 20 61 | 74 20 6c 69 6e 65 20 22 |k(.$+" a|t line "|
|00000230| 2b c3 9e 2b 22 2e 20 48 | 65 79 20 44 4f 52 4b 20 |+..+". H|ey DORK |
|00000240| 64 6f 20 79 6f 75 20 77 | 61 6e 74 20 74 6f 20 71 |do you w|ant to q|
|00000250| 75 69 74 3f 22 29 20 8c | 20 e1 0d 01 36 0c 20 f2 |uit?") .| ...6. .|
|00000260| 66 69 6e 69 73 68 0d 01 | 40 05 e1 0d 01 4a 04 0d |finish..|@....J..|
|00000270| 01 54 11 dd 20 a4 70 6f | 6c 6c 28 6d 61 73 6b 29 |.T.. .po|ll(mask)|
|00000280| 0d 01 5e 08 20 ea 20 61 | 0d 01 68 0e 20 62 6b 21 |..^. . a|..h. bk!|
|00000290| 30 3d 6d 61 73 6b 0d 01 | 72 1c 20 c8 99 20 22 57 |0=mask..|r. .. "W|
|000002a0| 69 6d 70 5f 50 6f 6c 6c | 22 2c 30 2c 62 6b 20 b8 |imp_Poll|",0,bk .|
|000002b0| 20 61 0d 01 7c 06 3d 61 | 0d 01 86 04 0d 01 90 13 | a..|.=a|........|
|000002c0| dd 20 f2 61 63 74 69 6f | 6e 28 65 76 6e 74 29 0d |. .actio|n(evnt).|
|000002d0| 01 9a 0e 20 c8 8e 20 65 | 76 6e 74 20 ca 0d 01 a4 |... .. e|vnt ....|
|000002e0| 1a 20 20 c9 20 4e 75 6c | 6c 5f 52 65 61 73 6f 6e |. . Nul|l_Reason|
|000002f0| 5f 43 6f 64 65 20 3a 0d | 01 ae 33 20 20 c9 20 4f |_Code :.|..3 . O|
|00000300| 70 65 6e 5f 57 69 6e 64 | 6f 77 5f 52 65 71 75 65 |pen_Wind|ow_Reque|
|00000310| 73 74 20 20 20 3a 20 f2 | 6f 70 65 6e 77 69 6e 64 |st : .|openwind|
|00000320| 6f 77 28 62 6b 21 30 2c | b9 29 0d 01 b8 32 20 20 |ow(bk!0,|.)...2 |
|00000330| c9 20 43 6c 6f 73 65 5f | 57 69 6e 64 6f 77 5f 52 |. Close_|Window_R|
|00000340| 65 71 75 65 73 74 20 20 | 3a 20 f2 63 6c 6f 73 65 |equest |: .close|
|00000350| 77 69 6e 64 6f 77 28 62 | 6b 21 30 29 0d 01 c2 30 |window(b|k!0)...0|
|00000360| 20 20 c9 20 4d 6f 75 73 | 65 5f 42 75 74 74 6f 6e | . Mous|e_Button|
|00000370| 5f 43 68 61 6e 67 65 20 | 20 20 3a 20 f2 6d 6f 75 |_Change | : .mou|
|00000380| 73 65 63 68 61 6e 67 65 | 28 62 6b 29 0d 01 cc 3a |sechange|(bk)...:|
|00000390| 20 20 c9 20 4b 65 79 5f | 50 72 65 73 73 65 64 20 | . Key_|Pressed |
|000003a0| 20 20 20 20 20 20 20 20 | 20 20 3a 20 c8 99 20 22 | | : .. "|
|000003b0| 57 69 6d 70 5f 50 72 6f | 63 65 73 73 4b 65 79 22 |Wimp_Pro|cessKey"|
|000003c0| 2c 62 6b 21 32 34 0d 01 | d6 2f 20 20 c9 20 4d 65 |,bk!24..|./ . Me|
|000003d0| 6e 75 5f 53 65 6c 65 63 | 74 20 20 20 20 20 20 20 |nu_Selec|t |
|000003e0| 20 20 20 20 3a 20 f2 6d | 65 6e 75 73 65 6c 65 63 | : .m|enuselec|
|000003f0| 74 28 62 6b 29 0d 01 e0 | 2f 20 20 c9 20 55 73 65 |t(bk)...|/ . Use|
|00000400| 72 5f 4d 65 73 73 61 67 | 65 20 20 20 20 20 20 20 |r_Messag|e |
|00000410| 20 20 20 3a 20 f2 72 65 | 63 65 69 76 65 6d 65 73 | : .re|ceivemes|
|00000420| 73 61 67 65 0d 01 ea 2f | 20 20 c9 20 55 73 65 72 |sage.../| . User|
|00000430| 5f 4d 65 73 73 61 67 65 | 5f 52 65 63 6f 72 64 65 |_Message|_Recorde|
|00000440| 64 20 3a 20 f2 72 65 63 | 65 69 76 65 6d 65 73 73 |d : .rec|eivemess|
|00000450| 61 67 65 0d 01 f4 06 20 | cb 0d 01 fe 05 e1 0d 02 |age.... |........|
|00000460| 08 04 0d 02 12 0b dd 20 | f2 69 6e 69 74 0d 02 1c |....... |.init...|
|00000470| 0c 20 ea 20 63 6f 75 6e | 74 0d 02 26 21 20 72 65 |. . coun|t..&! re|
|00000480| 6d 61 69 6e 69 6e 67 69 | 63 6f 6e 73 70 61 63 65 |mainingi|conspace|
|00000490| 3d 69 63 6f 6e 73 70 61 | 63 65 0d 02 30 20 20 6d |=iconspa|ce..0 m|
|000004a0| 65 6e 75 74 69 74 6c 65 | 5f 66 67 63 6f 6c 20 20 |enutitle|_fgcol |
|000004b0| 20 20 20 20 20 20 20 3d | 20 37 0d 02 3a 20 20 6d | =| 7..: m|
|000004c0| 65 6e 75 74 69 74 6c 65 | 5f 62 67 63 6f 6c 20 20 |enutitle|_bgcol |
|000004d0| 20 20 20 20 20 20 20 3d | 20 32 0d 02 44 20 20 6d | =| 2..D m|
|000004e0| 65 6e 75 77 6f 72 6b 5f | 66 67 63 6f 6c 20 20 20 |enuwork_|fgcol |
|000004f0| 20 20 20 20 20 20 20 3d | 20 37 0d 02 4e 20 20 6d | =| 7..N m|
|00000500| 65 6e 75 77 6f 72 6b 5f | 62 67 63 6f 6c 20 20 20 |enuwork_|bgcol |
|00000510| 20 20 20 20 20 20 20 3d | 20 30 0d 02 58 20 20 4e | =| 0..X N|
|00000520| 75 6c 6c 5f 52 65 61 73 | 6f 6e 5f 43 6f 64 65 20 |ull_Reas|on_Code |
|00000530| 20 20 20 20 20 20 20 3d | 20 30 0d 02 62 20 20 4f | =| 0..b O|
|00000540| 70 65 6e 5f 57 69 6e 64 | 6f 77 5f 52 65 71 75 65 |pen_Wind|ow_Reque|
|00000550| 73 74 20 20 20 20 20 3d | 20 32 0d 02 6c 20 20 43 |st =| 2..l C|
|00000560| 6c 6f 73 65 5f 57 69 6e | 64 6f 77 5f 52 65 71 75 |lose_Win|dow_Requ|
|00000570| 65 73 74 20 20 20 20 3d | 20 33 0d 02 76 20 20 4d |est =| 3..v M|
|00000580| 6f 75 73 65 5f 42 75 74 | 74 6f 6e 5f 43 68 61 6e |ouse_But|ton_Chan|
|00000590| 67 65 20 20 20 20 20 3d | 20 36 0d 02 80 20 20 4b |ge =| 6... K|
|000005a0| 65 79 5f 50 72 65 73 73 | 65 64 20 20 20 20 20 20 |ey_Press|ed |
|000005b0| 20 20 20 20 20 20 20 3d | 20 38 0d 02 8a 20 20 4d | =| 8... M|
|000005c0| 65 6e 75 5f 53 65 6c 65 | 63 74 20 20 20 20 20 20 |enu_Sele|ct |
|000005d0| 20 20 20 20 20 20 20 3d | 20 39 0d 02 94 21 20 55 | =| 9...! U|
|000005e0| 73 65 72 5f 4d 65 73 73 | 61 67 65 20 20 20 20 20 |ser_Mess|age |
|000005f0| 20 20 20 20 20 20 20 3d | 20 31 37 0d 02 9e 21 20 | =| 17...! |
|00000600| 55 73 65 72 5f 4d 65 73 | 73 61 67 65 5f 52 65 63 |User_Mes|sage_Rec|
|00000610| 6f 72 64 65 64 20 20 20 | 3d 20 31 38 0d 02 a8 04 |orded |= 18....|
|00000620| 0d 02 b2 20 20 4d 65 73 | 73 61 67 65 5f 51 75 69 |... Mes|sage_Qui|
|00000630| 74 20 20 20 20 20 20 20 | 20 20 20 20 20 3d 20 30 |t | = 0|
|00000640| 0d 02 bc 20 20 4d 65 73 | 73 61 67 65 5f 44 61 74 |... Mes|sage_Dat|
|00000650| 61 4f 70 65 6e 20 20 20 | 20 20 20 20 20 3d 20 35 |aOpen | = 5|
|00000660| 0d 02 c6 23 20 48 65 6c | 70 5f 52 65 71 75 65 73 |...# Hel|p_Reques|
|00000670| 74 20 20 20 20 20 20 20 | 20 20 20 20 20 3d 20 26 |t | = &|
|00000680| 35 30 32 0d 02 d0 23 20 | 48 65 6c 70 5f 53 65 6e |502...# |Help_Sen|
|00000690| 64 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |d | |
|000006a0| 3d 20 26 35 30 33 0d 02 | da 04 0d 02 e4 16 20 63 |= &503..|...... c|
|000006b0| 6c 61 69 6d 6d 65 6e 75 | 20 20 20 20 3d 20 2d 31 |laimmenu| = -1|
|000006c0| 0d 02 ee 16 20 69 63 6f | 6e 62 61 72 20 20 20 20 |.... ico|nbar |
|000006d0| 20 20 3d 20 2d 32 0d 02 | f8 21 20 64 6f 73 66 6f | = -2..|.! dosfo|
|000006e0| 72 6d 5f 69 63 6f 6e 20 | 3d 20 a4 69 63 6f 6e 5f |rm_icon |= .icon_|
|000006f0| 69 63 6f 6e 62 61 72 0d | 03 02 04 0d 03 0c 13 20 |iconbar.|....... |
|00000700| f2 72 65 61 64 74 65 6d | 70 6c 61 74 65 73 0d 03 |.readtem|plates..|
|00000710| 16 11 20 f2 64 65 66 69 | 6e 65 6d 65 6e 75 73 0d |.. .defi|nemenus.|
|00000720| 03 20 04 0d 03 2a 18 20 | f2 64 65 73 65 6c 65 63 |. ...*. |.deselec|
|00000730| 74 28 66 6f 72 6d 61 74 | 2c 30 29 0d 03 34 18 20 |t(format|,0)..4. |
|00000740| f2 64 65 73 65 6c 65 63 | 74 28 66 6f 72 6d 61 74 |.deselec|t(format|
|00000750| 2c 31 29 0d 03 3e 18 20 | f2 64 65 73 65 6c 65 63 |,1)..>. |.deselec|
|00000760| 74 28 66 6f 72 6d 61 74 | 2c 32 29 0d 03 48 18 20 |t(format|,2)..H. |
|00000770| f2 64 65 73 65 6c 65 63 | 74 28 66 6f 72 6d 61 74 |.deselec|t(format|
|00000780| 2c 33 29 0d 03 52 04 0d | 03 5c 17 20 f2 72 65 6d |,3)..R..|.\. .rem|
|00000790| 6f 76 65 5f 64 72 69 76 | 65 69 63 6f 6e 73 0d 03 |ove_driv|eicons..|
|000007a0| 66 23 20 c8 99 20 22 58 | 41 44 46 53 5f 44 72 69 |f# .. "X|ADFS_Dri|
|000007b0| 76 65 73 22 20 b8 20 2c | 6d 61 78 64 72 69 76 65 |ves" . ,|maxdrive|
|000007c0| 73 0d 03 70 18 20 f2 72 | 65 73 74 6f 72 65 5f 64 |s..p. .r|estore_d|
|000007d0| 72 69 76 65 69 63 6f 6e | 73 0d 03 7a 04 0d 03 84 |riveicon|s..z....|
|000007e0| 1a 20 f2 73 65 6c 65 63 | 74 69 63 6f 6e 28 66 6f |. .selec|ticon(fo|
|000007f0| 72 6d 61 74 2c 30 29 0d | 03 8e 0e 20 64 72 69 76 |rmat,0).|... driv|
|00000800| 65 20 3d 20 30 0d 03 98 | 04 0d 03 a2 18 20 f2 64 |e = 0...|..... .d|
|00000810| 65 73 65 6c 65 63 74 28 | 66 6f 72 6d 61 74 2c 34 |eselect(|format,4|
|00000820| 29 0d 03 ac 18 20 f2 64 | 65 73 65 6c 65 63 74 28 |).... .d|eselect(|
|00000830| 66 6f 72 6d 61 74 2c 35 | 29 0d 03 b6 1a 20 f2 73 |format,5|).... .s|
|00000840| 65 6c 65 63 74 69 63 6f | 6e 28 66 6f 72 6d 61 74 |electico|n(format|
|00000850| 2c 34 29 0d 03 c0 17 20 | 66 6f 72 6d 61 74 5f 63 |,4).... |format_c|
|00000860| 6f 6d 6d 61 6e 64 20 3d | 20 b9 0d 03 ca 17 20 76 |ommand =| ..... v|
|00000870| 65 72 69 66 79 5f 63 6f | 6d 6d 61 6e 64 20 3d 20 |erify_co|mmand = |
|00000880| a3 0d 03 d4 04 0d 03 de | 21 20 f2 73 65 74 74 65 |........|! .sette|
|00000890| 78 74 28 66 6f 72 6d 61 | 74 2c 36 2c 22 57 65 6c |xt(forma|t,6,"Wel|
|000008a0| 63 6f 6d 65 22 29 0d 03 | e8 04 0d 03 f2 13 20 66 |come")..|...... f|
|000008b0| 6f 72 6d 61 74 74 69 6e | 67 20 3d 20 a3 0d 03 fc |ormattin|g = ....|
|000008c0| 04 0d 04 06 32 20 ff 20 | 28 22 4c 4f 41 44 20 3c |....2 . |("LOAD <|
|000008d0| 44 6f 73 46 6f 72 6d 24 | 44 69 72 3e 2e 42 6f 6f |DosForm$|Dir>.Boo|
|000008e0| 74 44 61 74 61 20 22 2b | c3 7e 62 6f 6f 74 64 61 |tData "+|.~bootda|
|000008f0| 74 61 29 0d 04 10 05 e1 | 0d 04 1a 04 0d 04 24 04 |ta).....|......$.|
|00000900| 0d 04 2e 15 dd 20 f2 72 | 65 63 65 69 76 65 6d 65 |..... .r|eceiveme|
|00000910| 73 73 61 67 65 0d 04 38 | 09 20 ea 20 71 24 0d 04 |ssage..8|. . q$..|
|00000920| 42 04 0d 04 4c 13 20 72 | 65 66 20 20 20 20 20 3d |B...L. r|ef =|
|00000930| 20 62 6b 21 38 0d 04 56 | 13 20 74 61 73 6b 20 20 | bk!8..V|. task |
|00000940| 20 20 3d 20 62 6b 21 34 | 0d 04 60 14 20 79 6f 75 | = bk!4|..`. you|
|00000950| 72 72 65 66 20 3d 20 62 | 6b 21 31 32 0d 04 6a 04 |rref = b|k!12..j.|
|00000960| 0d 04 74 0f 20 c8 8e 20 | 62 6b 21 31 36 20 ca 0d |..t. .. |bk!16 ..|
|00000970| 04 7e 22 20 20 c9 20 4d | 65 73 73 61 67 65 5f 51 |.~" . M|essage_Q|
|00000980| 75 69 74 20 20 20 20 20 | 3a 20 f2 66 69 6e 69 73 |uit |: .finis|
|00000990| 68 0d 04 88 1a 20 20 c9 | 20 4d 65 73 73 61 67 65 |h.... .| Message|
|000009a0| 5f 44 61 74 61 4f 70 65 | 6e 20 3a 0d 04 92 3f 20 |_DataOpe|n :...? |
|000009b0| 20 20 e7 20 ac 20 a6 2d | 31 20 80 20 a4 67 65 74 | . . .-|1 . .get|
|000009c0| 6c 65 61 66 6e 61 6d 65 | 28 a4 73 74 72 6e 75 6c |leafname|(.strnul|
|000009d0| 6c 74 65 72 6d 28 62 6b | 2b 34 34 29 29 3d 22 21 |lterm(bk|+44))="!|
|000009e0| 44 6f 73 46 6f 72 6d 22 | 20 8c 0d 04 9c 0e 20 20 |DosForm"| ..... |
|000009f0| 20 20 21 62 6b 3d 32 30 | 0d 04 a6 11 20 20 20 20 | !bk=20|.... |
|00000a00| 62 6b 21 31 32 3d 72 65 | 66 0d 04 b0 0f 20 20 20 |bk!12=re|f.... |
|00000a10| 20 62 6b 21 31 36 3d 34 | 0d 04 ba 23 20 20 20 20 | bk!16=4|...# |
|00000a20| c8 99 20 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 |.. "Wimp|_SendMes|
|00000a30| 73 61 67 65 22 2c 31 37 | 2c 62 6b 0d 04 c4 08 20 |sage",17|,bk.... |
|00000a40| 20 20 cd 0d 04 ce 04 0d | 04 d8 16 20 20 c9 20 48 | ......|... . H|
|00000a50| 65 6c 70 5f 52 65 71 75 | 65 73 74 20 3a 0d 04 e2 |elp_Requ|est :...|
|00000a60| 31 20 20 20 71 24 3d a4 | 67 65 74 68 65 6c 70 28 |1 q$=.|gethelp(|
|00000a70| 62 6b 21 32 30 2c 62 6b | 21 32 34 2c 62 6b 21 32 |bk!20,bk|!24,bk!2|
|00000a80| 38 2c 62 6b 21 33 32 2c | 62 6b 21 33 36 29 0d 04 |8,bk!32,|bk!36)..|
|00000a90| ec 0e 20 20 20 21 62 6b | 3d 32 35 36 0d 04 f6 10 |.. !bk|=256....|
|00000aa0| 20 20 20 62 6b 21 31 32 | 3d 72 65 66 0d 05 00 16 | bk!12|=ref....|
|00000ab0| 20 20 20 62 6b 21 31 36 | 3d 48 65 6c 70 5f 53 65 | bk!16|=Help_Se|
|00000ac0| 6e 64 0d 05 0a 12 20 20 | 20 24 28 62 6b 2b 32 30 |nd.... | $(bk+20|
|00000ad0| 29 3d 71 24 0d 05 14 15 | 20 20 20 3f 28 62 6b 2b |)=q$....| ?(bk+|
|00000ae0| 32 30 2b a9 71 24 29 3d | 30 0d 05 1e 27 20 20 20 |20+.q$)=|0...' |
|00000af0| c8 99 20 22 57 69 6d 70 | 5f 53 65 6e 64 4d 65 73 |.. "Wimp|_SendMes|
|00000b00| 73 61 67 65 22 2c 31 37 | 2c 62 6b 2c 74 61 73 6b |sage",17|,bk,task|
|00000b10| 0d 05 28 04 0d 05 32 06 | 20 cb 0d 05 3c 05 e1 0d |..(...2.| ...<...|
|00000b20| 05 46 04 0d 05 50 04 0d | 05 5a 17 dd 20 f2 64 72 |.F...P..|.Z.. .dr|
|00000b30| 6f 6e 67 6f 28 6d 65 73 | 73 61 67 65 24 29 0d 05 |ongo(mes|sage$)..|
|00000b40| 64 0b 20 62 6b 21 30 3d | 30 0d 05 6e 15 20 24 28 |d. bk!0=|0..n. $(|
|00000b50| 62 6b 2b 34 29 3d 6d 65 | 73 73 61 67 65 24 0d 05 |bk+4)=me|ssage$..|
|00000b60| 78 31 20 c8 99 20 22 57 | 69 6d 70 5f 52 65 70 6f |x1 .. "W|imp_Repo|
|00000b70| 72 74 45 72 72 6f 72 22 | 2c 62 6b 2c 25 30 30 30 |rtError"|,bk,%000|
|00000b80| 30 30 30 31 2c 70 72 6f | 67 74 69 74 6c 65 24 0d |0001,pro|gtitle$.|
|00000b90| 05 82 05 e1 0d 05 8c 04 | 0d 05 96 04 0d 05 a0 19 |........|........|
|00000ba0| dd 20 f2 6f 70 65 6e 77 | 69 6e 64 6f 77 28 77 2c |. .openw|indow(w,|
|00000bb0| 66 75 6c 6c 29 0d 05 aa | 0b 20 62 6b 21 30 3d 77 |full)...|. bk!0=w|
|00000bc0| 0d 05 b4 34 20 e7 20 ac | 20 66 75 6c 6c 20 8c 20 |...4 . .| full . |
|00000bd0| 62 6b 21 30 3d 77 3a c8 | 99 20 22 57 69 6d 70 5f |bk!0=w:.|. "Wimp_|
|00000be0| 47 65 74 57 69 6e 64 6f | 77 53 74 61 74 65 22 2c |GetWindo|wState",|
|00000bf0| 30 2c 62 6b 0d 05 be 1e | 20 c8 99 20 22 57 69 6d |0,bk....| .. "Wim|
|00000c00| 70 5f 4f 70 65 6e 57 69 | 6e 64 6f 77 22 2c 30 2c |p_OpenWi|ndow",0,|
|00000c10| 62 6b 0d 05 c8 05 e1 0d | 05 d2 04 0d 05 dc 14 dd |bk......|........|
|00000c20| 20 f2 66 72 6f 6e 74 28 | 77 69 6e 64 6f 77 29 0d | .front(|window).|
|00000c30| 05 e6 10 20 62 6b 21 30 | 3d 77 69 6e 64 6f 77 0d |... bk!0|=window.|
|00000c40| 05 f0 22 20 c8 99 20 22 | 57 69 6d 70 5f 47 65 74 |.." .. "|Wimp_Get|
|00000c50| 57 69 6e 64 6f 77 53 74 | 61 74 65 22 2c 30 2c 62 |WindowSt|ate",0,b|
|00000c60| 6b 0d 05 fa 0d 20 62 6b | 21 32 38 3d 2d 31 0d 06 |k.... bk|!28=-1..|
|00000c70| 04 1e 20 c8 99 20 22 57 | 69 6d 70 5f 4f 70 65 6e |.. .. "W|imp_Open|
|00000c80| 57 69 6e 64 6f 77 22 2c | 30 2c 62 6b 0d 06 0e 05 |Window",|0,bk....|
|00000c90| e1 0d 06 18 04 0d 06 22 | 04 0d 06 2c 1a dd 20 f2 |......."|...,.. .|
|00000ca0| 63 6c 6f 73 65 77 69 6e | 64 6f 77 28 68 61 6e 64 |closewin|dow(hand|
|00000cb0| 6c 65 29 0d 06 36 10 20 | 62 6b 21 30 3d 68 61 6e |le)..6. |bk!0=han|
|00000cc0| 64 6c 65 0d 06 40 1f 20 | c8 99 20 22 57 69 6d 70 |dle..@. |.. "Wimp|
|00000cd0| 5f 43 6c 6f 73 65 57 69 | 6e 64 6f 77 22 2c 30 2c |_CloseWi|ndow",0,|
|00000ce0| 62 6b 0d 06 4a 05 e1 0d | 06 54 04 0d 06 5e 04 0d |bk..J...|.T...^..|
|00000cf0| 06 68 14 dd 20 f2 72 65 | 61 64 74 65 6d 70 6c 61 |.h.. .re|adtempla|
|00000d00| 74 65 73 0d 06 72 36 20 | c8 99 20 22 57 69 6d 70 |tes..r6 |.. "Wimp|
|00000d10| 5f 4f 70 65 6e 54 65 6d | 70 6c 61 74 65 22 2c 2c |_OpenTem|plate",,|
|00000d20| 22 3c 44 6f 73 46 6f 72 | 6d 24 44 69 72 3e 2e 54 |"<DosFor|m$Dir>.T|
|00000d30| 65 6d 70 6c 61 74 65 73 | 22 0d 06 7c 27 20 20 63 |emplates|"..|' c|
|00000d40| 72 65 64 69 74 73 20 3d | 20 a4 74 65 6d 70 6c 61 |redits =| .templa|
|00000d50| 74 65 28 22 63 72 65 64 | 69 74 73 22 2c 22 22 29 |te("cred|its","")|
|00000d60| 0d 06 86 26 20 20 66 6f | 72 6d 61 74 20 20 3d 20 |...& fo|rmat = |
|00000d70| a4 74 65 6d 70 6c 61 74 | 65 28 22 66 6f 72 6d 61 |.templat|e("forma|
|00000d80| 74 22 2c 22 22 29 0d 06 | 90 1c 20 c8 99 20 22 57 |t","")..|.. .. "W|
|00000d90| 69 6d 70 5f 43 6c 6f 73 | 65 54 65 6d 70 6c 61 74 |imp_Clos|eTemplat|
|00000da0| 65 22 0d 06 9a 05 e1 0d | 06 a4 04 0d 06 ae 04 0d |e"......|........|
|00000db0| 06 b8 17 dd 20 a4 74 65 | 6d 70 6c 61 74 65 28 69 |.... .te|mplate(i|
|00000dc0| 64 24 2c 74 24 29 0d 06 | c2 11 20 ea 20 68 61 6e |d$,t$)..|.. . han|
|00000dd0| 64 6c 65 2c 70 6f 73 0d | 06 cc 68 20 c8 99 20 22 |dle,pos.|..h .. "|
|00000de0| 57 69 6d 70 5f 4c 6f 61 | 64 54 65 6d 70 6c 61 74 |Wimp_Loa|dTemplat|
|00000df0| 65 22 2c 2c 62 6b 2c 72 | 65 6d 61 69 6e 69 6e 67 |e",,bk,r|emaining|
|00000e00| 69 63 6f 6e 73 70 61 63 | 65 2c 69 63 6f 6e 73 70 |iconspac|e,iconsp|
|00000e10| 61 63 65 2b 34 30 39 36 | 2c 2d 31 2c 69 64 24 2c |ace+4096|,-1,id$,|
|00000e20| 30 20 b8 20 2c 2c 72 65 | 6d 61 69 6e 69 6e 67 69 |0 . ,,re|mainingi|
|00000e30| 63 6f 6e 73 70 61 63 65 | 2c 2c 2c 2c 70 6f 73 0d |conspace|,,,,pos.|
|00000e40| 06 d6 31 20 e7 20 70 6f | 73 3d 30 20 8c 20 85 20 |..1 . po|s=0 . . |
|00000e50| 31 2c 22 54 65 6d 70 6c | 61 74 65 20 27 22 2b 69 |1,"Templ|ate '"+i|
|00000e60| 64 24 2b 22 27 20 6e 6f | 74 20 66 6f 75 6e 64 22 |d$+"' no|t found"|
|00000e70| 0d 06 e0 0f 20 e7 20 74 | 24 3c 3e 22 22 20 8c 0d |.... . t|$<>"" ..|
|00000e80| 06 ea 16 20 20 e7 20 62 | 6b 21 35 36 20 80 20 31 |... . b|k!56 . 1|
|00000e90| 3c 3c 38 20 8c 0d 06 f4 | 12 20 20 20 24 28 62 6b |<<8 ....|. $(bk|
|00000ea0| 21 37 32 29 3d 74 24 0d | 06 fe 12 20 20 20 62 6b |!72)=t$.|... bk|
|00000eb0| 21 38 30 3d a9 28 74 24 | 29 0d 07 08 07 20 20 cc |!80=.(t$|).... .|
|00000ec0| 0d 07 12 12 20 20 20 24 | 28 62 6b 2b 37 32 29 3d |.... $|(bk+72)=|
|00000ed0| 74 24 0d 07 1c 07 20 20 | cd 0d 07 26 06 20 cd 0d |t$.... |...&. ..|
|00000ee0| 07 30 28 20 c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |.0( .. "|Wimp_Cre|
|00000ef0| 61 74 65 57 69 6e 64 6f | 77 22 2c 2c 62 6b 20 b8 |ateWindo|w",,bk .|
|00000f00| 20 68 61 6e 64 6c 65 0d | 07 3a 0b 3d 68 61 6e 64 | handle.|.:.=hand|
|00000f10| 6c 65 0d 07 44 04 0d 07 | 4e 04 0d 07 58 12 dd 20 |le..D...|N...X.. |
|00000f20| f2 64 65 66 69 6e 65 6d | 65 6e 75 73 0d 07 62 1a |.definem|enus..b.|
|00000f30| 20 6d 5f 69 63 6f 6e 62 | 61 72 3d a4 63 72 65 61 | m_iconb|ar=.crea|
|00000f40| 74 65 6d 65 6e 75 0d 07 | 6c 27 20 dc 20 22 44 6f |temenu..|l' . "Do|
|00000f50| 73 20 46 6f 72 6d 2c 30 | 30 49 6e 66 6f 3e 63 72 |s Form,0|0Info>cr|
|00000f60| 65 64 69 74 73 2c 38 30 | 51 75 69 74 22 0d 07 76 |edits,80|Quit"..v|
|00000f70| 05 e1 0d 07 80 04 0d 07 | 8a 04 0d 07 94 19 dd 20 |........|....... |
|00000f80| f2 6d 6f 75 73 65 63 68 | 61 6e 67 65 28 6d 6f 75 |.mousech|ange(mou|
|00000f90| 73 65 29 0d 07 9e 18 20 | ea 20 62 2c 77 69 6e 64 |se).... |. b,wind|
|00000fa0| 6f 77 2c 69 63 6f 6e 2c | 78 2c 79 0d 07 a8 12 20 |ow,icon,|x,y.... |
|00000fb0| 78 20 20 20 20 20 20 3d | 20 62 6b 21 30 0d 07 b2 |x =| bk!0...|
|00000fc0| 12 20 79 20 20 20 20 20 | 20 3d 20 62 6b 21 34 0d |. y | = bk!4.|
|00000fd0| 07 bc 12 20 62 20 20 20 | 20 20 20 3d 20 62 6b 21 |... b | = bk!|
|00000fe0| 38 0d 07 c6 13 20 77 69 | 6e 64 6f 77 20 3d 20 62 |8.... wi|ndow = b|
|00000ff0| 6b 21 31 32 0d 07 d0 13 | 20 69 63 6f 6e 20 20 20 |k!12....| icon |
|00001000| 3d 20 62 6b 21 31 36 0d | 07 da 04 0d 07 e4 0c 20 |= bk!16.|....... |
|00001010| e7 20 62 3d 32 20 8c 0d | 07 ee 11 20 20 c8 8e 20 |. b=2 ..|... .. |
|00001020| 77 69 6e 64 6f 77 20 ca | 0d 07 f8 31 20 20 20 c9 |window .|...1 .|
|00001030| 20 69 63 6f 6e 62 61 72 | 20 3a 20 f2 70 6f 70 75 | iconbar| : .popu|
|00001040| 70 6d 65 6e 75 28 6d 5f | 69 63 6f 6e 62 61 72 2c |pmenu(m_|iconbar,|
|00001050| 78 2d 36 34 2c 32 31 36 | 29 0d 08 02 07 20 20 cb |x-64,216|).... .|
|00001060| 0d 08 0c 06 20 cd 0d 08 | 16 04 0d 08 20 0c 20 e7 |.... ...|.... . .|
|00001070| 20 62 3d 34 20 8c 0d 08 | 2a 11 20 20 c8 8e 20 77 | b=4 ...|*. .. w|
|00001080| 69 6e 64 6f 77 20 ca 0d | 08 34 21 20 20 20 c9 20 |indow ..|.4! . |
|00001090| 69 63 6f 6e 62 61 72 20 | 3a 20 f2 66 72 6f 6e 74 |iconbar |: .front|
|000010a0| 28 66 6f 72 6d 61 74 29 | 0d 08 3e 2a 20 20 20 c9 |(format)|..>* .|
|000010b0| 20 66 6f 72 6d 61 74 20 | 20 3a 20 f2 66 6f 72 6d | format | : .form|
|000010c0| 61 74 5f 63 6c 69 63 6b | 28 78 2c 79 2c 69 63 6f |at_click|(x,y,ico|
|000010d0| 6e 29 0d 08 48 07 20 20 | cb 0d 08 52 06 20 cd 0d |n)..H. |...R. ..|
|000010e0| 08 5c 05 e1 0d 08 66 04 | 0d 08 70 04 0d 08 7a 1d |.\....f.|..p...z.|
|000010f0| dd 20 f2 66 6f 72 6d 61 | 74 5f 63 6c 69 63 6b 28 |. .forma|t_click(|
|00001100| 78 2c 79 2c 69 63 6f 6e | 29 0d 08 84 13 20 e7 20 |x,y,icon|).... . |
|00001110| 66 6f 72 6d 61 74 74 69 | 6e 67 20 8c 0d 08 8e 1e |formatti|ng .....|
|00001120| 20 20 e7 20 69 63 6f 6e | 3d 31 30 20 66 6f 72 6d | . icon|=10 form|
|00001130| 61 74 74 69 6e 67 20 3d | 20 a3 0d 08 98 06 20 cc |atting =| ..... .|
|00001140| 0d 08 a2 0f 20 20 c8 8e | 20 69 63 6f 6e 20 ca 0d |.... ..| icon ..|
|00001150| 08 ac 16 20 20 20 c9 20 | 30 20 3a 20 64 72 69 76 |... . |0 : driv|
|00001160| 65 20 3d 20 30 0d 08 b6 | 16 20 20 20 c9 20 31 20 |e = 0...|. . 1 |
|00001170| 3a 20 64 72 69 76 65 20 | 3d 20 31 0d 08 c0 16 20 |: drive |= 1.... |
|00001180| 20 20 c9 20 32 20 3a 20 | 64 72 69 76 65 20 3d 20 | . 2 : |drive = |
|00001190| 32 0d 08 ca 16 20 20 20 | c9 20 33 20 3a 20 64 72 |2.... |. 3 : dr|
|000011a0| 69 76 65 20 3d 20 33 0d | 08 d4 2d 20 20 20 c9 20 |ive = 3.|..- . |
|000011b0| 34 20 3a 20 f2 66 6f 72 | 6d 61 74 5f 74 6f 67 67 |4 : .for|mat_togg|
|000011c0| 6c 65 28 ac 20 66 6f 72 | 6d 61 74 5f 63 6f 6d 6d |le(. for|mat_comm|
|000011d0| 61 6e 64 29 0d 08 de 2d | 20 20 20 c9 20 35 20 3a |and)...-| . 5 :|
|000011e0| 20 f2 76 65 72 69 66 79 | 5f 74 6f 67 67 6c 65 28 | .verify|_toggle(|
|000011f0| ac 20 76 65 72 69 66 79 | 5f 63 6f 6d 6d 61 6e 64 |. verify|_command|
|00001200| 29 0d 08 e8 14 20 20 20 | c9 20 39 20 3a 20 f2 66 |).... |. 9 : .f|
|00001210| 6f 72 6d 61 74 0d 08 f2 | 07 20 20 cb 0d 08 fc 06 |ormat...|. .....|
|00001220| 20 cd 0d 09 06 05 e1 0d | 09 10 04 0d 09 1a 04 0d | .......|........|
|00001230| 09 24 17 dd 20 f2 66 6f | 72 6d 61 74 5f 74 6f 67 |.$.. .fo|rmat_tog|
|00001240| 67 6c 65 28 71 29 0d 09 | 2e 17 20 66 6f 72 6d 61 |gle(q)..|.. forma|
|00001250| 74 5f 63 6f 6d 6d 61 6e | 64 20 3d 20 71 0d 09 38 |t_comman|d = q..8|
|00001260| 0a 20 e7 20 71 20 8c 0d | 09 42 1b 20 20 f2 73 65 |. . q ..|.B. .se|
|00001270| 6c 65 63 74 69 63 6f 6e | 28 66 6f 72 6d 61 74 2c |lecticon|(format,|
|00001280| 34 29 0d 09 4c 06 20 cc | 0d 09 56 19 20 20 f2 64 |4)..L. .|..V. .d|
|00001290| 65 73 65 6c 65 63 74 28 | 66 6f 72 6d 61 74 2c 34 |eselect(|format,4|
|000012a0| 29 0d 09 60 06 20 cd 0d | 09 6a 2c 20 e7 20 ac 20 |)..`. ..|.j, . . |
|000012b0| 66 6f 72 6d 61 74 5f 63 | 6f 6d 6d 61 6e 64 20 80 |format_c|ommand .|
|000012c0| 20 ac 20 76 65 72 69 66 | 79 5f 63 6f 6d 6d 61 6e | . verif|y_comman|
|000012d0| 64 20 8c 0d 09 74 17 20 | 20 f2 76 65 72 69 66 79 |d ...t. | .verify|
|000012e0| 5f 74 6f 67 67 6c 65 28 | b9 29 0d 09 7e 06 20 cd |_toggle(|.)..~. .|
|000012f0| 0d 09 88 05 e1 0d 09 92 | 04 0d 09 9c 04 0d 09 a6 |........|........|
|00001300| 17 dd 20 f2 76 65 72 69 | 66 79 5f 74 6f 67 67 6c |.. .veri|fy_toggl|
|00001310| 65 28 71 29 0d 09 b0 17 | 20 76 65 72 69 66 79 5f |e(q)....| verify_|
|00001320| 63 6f 6d 6d 61 6e 64 20 | 3d 20 71 0d 09 ba 0a 20 |command |= q.... |
|00001330| e7 20 71 20 8c 0d 09 c4 | 1b 20 20 f2 73 65 6c 65 |. q ....|. .sele|
|00001340| 63 74 69 63 6f 6e 28 66 | 6f 72 6d 61 74 2c 35 29 |cticon(f|ormat,5)|
|00001350| 0d 09 ce 06 20 cc 0d 09 | d8 19 20 20 f2 64 65 73 |.... ...|.. .des|
|00001360| 65 6c 65 63 74 28 66 6f | 72 6d 61 74 2c 35 29 0d |elect(fo|rmat,5).|
|00001370| 09 e2 06 20 cd 0d 09 ec | 2c 20 e7 20 ac 20 76 65 |... ....|, . . ve|
|00001380| 72 69 66 79 5f 63 6f 6d | 6d 61 6e 64 20 80 20 ac |rify_com|mand . .|
|00001390| 20 66 6f 72 6d 61 74 5f | 63 6f 6d 6d 61 6e 64 20 | format_|command |
|000013a0| 8c 0d 09 f6 17 20 20 f2 | 66 6f 72 6d 61 74 5f 74 |..... .|format_t|
|000013b0| 6f 67 67 6c 65 28 b9 29 | 0d 0a 00 06 20 cd 0d 0a |oggle(.)|.... ...|
|000013c0| 0a 05 e1 0d 0a 14 04 0d | 0a 1e 04 0d 0a 28 14 dd |........|.....(..|
|000013d0| 20 f2 6d 65 6e 75 73 65 | 6c 65 63 74 28 62 29 0d | .menuse|lect(b).|
|000013e0| 0a 32 36 20 ea 20 7a 2c | 70 74 72 2c 61 6e 73 77 |.26 . z,|ptr,answ|
|000013f0| 65 72 24 2c 66 73 70 24 | 2c 6a 75 6e 6b 2c 63 68 |er$,fsp$|,junk,ch|
|00001400| 61 6e 25 2c 6d 78 2c 6d | 79 2c 6d 62 2c 74 24 2c |an%,mx,m|y,mb,t$,|
|00001410| 63 6f 75 6e 74 0d 0a 3c | 3d 20 c8 99 20 22 57 69 |count..<|= .. "Wi|
|00001420| 6d 70 5f 44 65 63 6f 64 | 65 4d 65 6e 75 22 2c 30 |mp_Decod|eMenu",0|
|00001430| 2c 63 6c 61 69 6d 6d 65 | 6e 75 2c 62 2c 68 69 65 |,claimme|nu,b,hie|
|00001440| 72 61 72 63 68 79 20 b8 | 20 7a 2c 7a 2c 7a 2c 70 |rarchy .| z,z,z,p|
|00001450| 74 72 0d 0a 46 11 20 61 | 6e 73 77 65 72 24 3d 24 |tr..F. a|nswer$=$|
|00001460| 70 74 72 0d 0a 50 15 20 | f2 6d 6f 75 73 65 28 6d |ptr..P. |.mouse(m|
|00001470| 78 2c 6d 79 2c 6d 62 29 | 0d 0a 5a 13 20 c8 8e 20 |x,my,mb)|..Z. .. |
|00001480| 63 6c 61 69 6d 6d 65 6e | 75 20 ca 0d 0a 64 13 20 |claimmen|u ...d. |
|00001490| 20 c9 20 6d 5f 69 63 6f | 6e 62 61 72 20 3a 0d 0a | . m_ico|nbar :..|
|000014a0| 6e 1e 20 20 20 c8 8e 20 | a4 64 65 63 6f 64 65 28 |n. .. |.decode(|
|000014b0| 61 6e 73 77 65 72 24 2c | 31 29 20 ca 0d 0a 78 23 |answer$,|1) ...x#|
|000014c0| 20 20 20 20 c9 20 22 49 | 6e 66 6f 22 20 20 3a 20 | . "I|nfo" : |
|000014d0| f2 66 72 6f 6e 74 28 63 | 72 65 64 69 74 73 29 0d |.front(c|redits).|
|000014e0| 0a 82 1b 20 20 20 20 c9 | 20 22 51 75 69 74 22 20 |... .| "Quit" |
|000014f0| 20 3a 20 f2 66 69 6e 69 | 73 68 0d 0a 8c 08 20 20 | : .fini|sh.... |
|00001500| 20 cb 0d 0a 96 06 20 cb | 0d 0a a0 25 20 e7 20 6d | ..... .|...% . m|
|00001510| 62 3d 31 20 f2 70 6f 70 | 75 70 6d 65 6e 75 28 63 |b=1 .pop|upmenu(c|
|00001520| 6c 61 69 6d 6d 65 6e 75 | 2c 78 2c 79 29 0d 0a aa |laimmenu|,x,y)...|
|00001530| 05 e1 0d 0a b4 04 0d 0a | be 13 dd 20 f2 74 69 63 |........|... .tic|
|00001540| 6b 28 6d 68 25 2c 49 25 | 29 0d 0a c8 28 20 6d 68 |k(mh%,I%|)...( mh|
|00001550| 25 21 28 32 38 2b 32 34 | 2a 49 25 29 3d 6d 68 25 |%!(28+24|*I%)=mh%|
|00001560| 21 28 32 38 2b 32 34 2a | 49 25 29 20 84 20 26 30 |!(28+24*|I%) . &0|
|00001570| 31 0d 0a d2 05 e1 0d 0a | dc 04 0d 0a e6 19 dd 20 |1.......|....... |
|00001580| f2 74 6f 67 67 6c 65 74 | 69 63 6b 28 6d 68 25 2c |.togglet|ick(mh%,|
|00001590| 49 25 29 0d 0a f0 28 20 | 6d 68 25 21 28 32 38 2b |I%)...( |mh%!(28+|
|000015a0| 32 34 2a 49 25 29 3d 6d | 68 25 21 28 32 38 2b 32 |24*I%)=m|h%!(28+2|
|000015b0| 34 2a 49 25 29 20 82 20 | 26 30 31 0d 0a fa 05 e1 |4*I%) . |&01.....|
|000015c0| 0d 0b 04 04 0d 0b 0e 1e | dd 20 f2 70 6f 70 75 70 |........|. .popup|
|000015d0| 6d 65 6e 75 28 6d 65 6e | 75 61 64 64 72 2c 78 2c |menu(men|uaddr,x,|
|000015e0| 79 29 0d 0b 18 28 20 c8 | 99 20 22 57 69 6d 70 5f |y)...( .|. "Wimp_|
|000015f0| 43 72 65 61 74 65 4d 65 | 6e 75 22 2c 30 2c 6d 65 |CreateMe|nu",0,me|
|00001600| 6e 75 61 64 64 72 2c 78 | 2c 79 0d 0b 22 17 20 63 |nuaddr,x|,y..". c|
|00001610| 6c 61 69 6d 6d 65 6e 75 | 3d 6d 65 6e 75 61 64 64 |laimmenu|=menuadd|
|00001620| 72 0d 0b 2c 05 e1 0d 0b | 36 04 0d 0b 40 0d dd 20 |r..,....|6...@.. |
|00001630| f2 66 69 6e 69 73 68 0d | 0b 4a 18 20 c8 99 20 22 |.finish.|.J. .. "|
|00001640| 57 69 6d 70 5f 43 6c 6f | 73 65 44 6f 77 6e 22 0d |Wimp_Clo|seDown".|
|00001650| 0b 54 06 20 e0 0d 0b 5e | 05 e1 0d 0b 68 04 0d 0b |.T. ...^|....h...|
|00001660| 72 18 dd 20 f2 73 65 6c | 65 63 74 69 63 6f 6e 28 |r.. .sel|ecticon(|
|00001670| 68 25 2c 69 25 29 0d 0b | 7c 0f 20 62 6b 21 30 20 |h%,i%)..||. bk!0 |
|00001680| 20 3d 20 68 25 0d 0b 86 | 0f 20 62 6b 21 34 20 20 | = h%...|. bk!4 |
|00001690| 3d 20 69 25 0d 0b 90 14 | 20 62 6b 21 38 20 20 3d |= i%....| bk!8 =|
|000016a0| 20 26 32 30 30 30 30 30 | 0d 0b 9a 14 20 62 6b 21 | &200000|.... bk!|
|000016b0| 31 32 20 3d 20 26 32 30 | 30 30 30 30 0d 0b a4 20 |12 = &20|0000... |
|000016c0| 20 c8 99 20 22 57 69 6d | 70 5f 53 65 74 49 63 6f | .. "Wim|p_SetIco|
|000016d0| 6e 53 74 61 74 65 22 2c | 30 2c 62 6b 0d 0b ae 05 |nState",|0,bk....|
|000016e0| e1 0d 0b b8 04 0d 0b c2 | 16 dd 20 f2 64 65 73 65 |........|.. .dese|
|000016f0| 6c 65 63 74 28 68 25 2c | 69 25 29 0d 0b cc 0f 20 |lect(h%,|i%).... |
|00001700| 62 6b 21 30 20 20 3d 20 | 68 25 0d 0b d6 0f 20 62 |bk!0 = |h%.... b|
|00001710| 6b 21 34 20 20 3d 20 69 | 25 0d 0b e0 0e 20 62 6b |k!4 = i|%.... bk|
|00001720| 21 38 20 20 3d 20 30 0d | 0b ea 14 20 62 6b 21 31 |!8 = 0.|... bk!1|
|00001730| 32 20 3d 20 26 32 30 30 | 30 30 30 0d 0b f4 20 20 |2 = &200|000... |
|00001740| c8 99 20 22 57 69 6d 70 | 5f 53 65 74 49 63 6f 6e |.. "Wimp|_SetIcon|
|00001750| 53 74 61 74 65 22 2c 30 | 2c 62 6b 0d 0b fe 05 e1 |State",0|,bk.....|
|00001760| 0d 0c 08 04 0d 0c 12 13 | dd 20 a4 69 63 6f 6e 5f |........|. .icon_|
|00001770| 69 63 6f 6e 62 61 72 0d | 0c 1c 0d 20 ea 20 68 61 |iconbar.|... . ha|
|00001780| 6e 64 6c 65 0d 0c 26 0c | 20 62 6b 21 30 3d 2d 31 |ndle..&.| bk!0=-1|
|00001790| 0d 0c 30 0b 20 62 6b 21 | 34 3d 30 0d 0c 3a 0d 20 |..0. bk!|4=0..:. |
|000017a0| 62 6b 21 38 3d 2d 31 36 | 0d 0c 44 0d 20 62 6b 21 |bk!8=-16|..D. bk!|
|000017b0| 31 32 3d 38 30 0d 0c 4e | 0d 20 62 6b 21 31 36 3d |12=80..N|. bk!16=|
|000017c0| 38 38 0d 0c 58 14 20 62 | 6b 21 32 30 3d 26 31 37 |88..X. b|k!20=&17|
|000017d0| 30 30 33 30 31 41 0d 0c | 62 18 20 24 28 62 6b 2b |00301A..|b. $(bk+|
|000017e0| 32 34 29 3d 22 21 44 6f | 73 46 6f 72 6d 22 0d 0c |24)="!Do|sForm"..|
|000017f0| 6c 26 20 c8 99 20 22 57 | 69 6d 70 5f 43 72 65 61 |l& .. "W|imp_Crea|
|00001800| 74 65 49 63 6f 6e 22 2c | 2c 62 6b 20 b8 20 68 61 |teIcon",|,bk . ha|
|00001810| 6e 64 6c 65 0d 0c 76 0b | 3d 68 61 6e 64 6c 65 0d |ndle..v.|=handle.|
|00001820| 0c 80 04 0d 0c 8a 1b dd | 20 f2 6d 6f 75 73 65 28 |........| .mouse(|
|00001830| f8 20 78 2c 20 f8 20 79 | 2c 20 f8 20 62 29 0d 0c |. x, . y|, . b)..|
|00001840| 94 23 20 c8 99 20 22 57 | 69 6d 70 5f 47 65 74 50 |.# .. "W|imp_GetP|
|00001850| 6f 69 6e 74 65 72 49 6e | 66 6f 22 2c 30 2c 6d 62 |ointerIn|fo",0,mb|
|00001860| 6b 0d 0c 9e 0c 20 78 3d | 6d 62 6b 21 30 0d 0c a8 |k.... x=|mbk!0...|
|00001870| 0c 20 79 3d 6d 62 6b 21 | 34 0d 0c b2 0c 20 62 3d |. y=mbk!|4.... b=|
|00001880| 6d 62 6b 21 38 0d 0c bc | 05 e1 0d 0c c6 04 0d 0c |mbk!8...|........|
|00001890| d0 0f dd 20 a4 6d 61 78 | 28 61 2c 62 29 0d 0c da |... .max|(a,b)...|
|000018a0| 14 20 e7 20 61 3c 62 20 | 8c 20 3d 62 20 8b 20 3d |. . a<b |. =b . =|
|000018b0| 61 0d 0c e4 04 0d 0c ee | 0f dd 20 a4 6d 69 6e 28 |a.......|.. .min(|
|000018c0| 61 2c 62 29 0d 0c f8 14 | 20 e7 20 61 3e 62 20 8c |a,b)....| . a>b .|
|000018d0| 20 3d 62 20 8b 20 3d 61 | 0d 0d 02 04 0d 0d 0c 17 | =b . =a|........|
|000018e0| dd 20 a4 64 65 63 6f 64 | 65 28 61 24 2c 6c 65 76 |. .decod|e(a$,lev|
|000018f0| 65 6c 29 0d 0d 16 13 20 | ea 20 70 6f 73 2c 73 74 |el).... |. pos,st|
|00001900| 61 72 74 2c 64 6f 0d 0d | 20 0a 20 70 6f 73 3d 30 |art,do..| . pos=0|
|00001910| 0d 0d 2a 13 20 e3 20 64 | 6f 3d 31 20 b8 20 6c 65 |..*. . d|o=1 . le|
|00001920| 76 65 6c 0d 0d 34 0f 20 | 20 73 74 61 72 74 3d 70 |vel..4. | start=p|
|00001930| 6f 73 0d 0d 3e 11 20 20 | f5 20 70 6f 73 3d 70 6f |os..>. |. pos=po|
|00001940| 73 2b 31 0d 0d 48 23 20 | 20 fd 20 c1 61 24 2c 70 |s+1..H# | . .a$,p|
|00001950| 6f 73 2c 31 29 3d 22 2e | 22 20 84 20 70 6f 73 3e |os,1)=".|" . pos>|
|00001960| 3d a9 28 61 24 29 0d 0d | 52 06 20 ed 0d 0d 5c 2e |=.(a$)..|R. ...\.|
|00001970| 20 e7 20 a7 c1 61 24 2c | 73 74 61 72 74 2b 31 2c | . ..a$,|start+1,|
|00001980| 70 6f 73 2d 73 74 61 72 | 74 29 2c 22 2e 22 29 3d |pos-star|t),".")=|
|00001990| 30 20 8c 20 70 6f 73 2b | 3d 31 0d 0d 66 20 20 61 |0 . pos+|=1..f a|
|000019a0| 24 3d c1 61 24 2c 73 74 | 61 72 74 2b 31 2c 70 6f |$=.a$,st|art+1,po|
|000019b0| 73 2d 73 74 61 72 74 2d | 31 29 0d 0d 70 07 3d 61 |s-start-|1)..p.=a|
|000019c0| 24 0d 0d 7a 04 0d 0d 84 | 18 dd 20 a4 67 65 74 6c |$..z....|.. .getl|
|000019d0| 65 61 66 6e 61 6d 65 28 | 66 73 70 24 29 0d 0d 8e |eafname(|fsp$)...|
|000019e0| 10 20 70 6f 73 3d a9 28 | 66 73 70 24 29 0d 0d 98 |. pos=.(|fsp$)...|
|000019f0| 21 20 c8 95 20 c1 66 73 | 70 24 2c 70 6f 73 2c 31 |! .. .fs|p$,pos,1|
|00001a00| 29 3c 3e 22 2e 22 20 80 | 20 70 6f 73 3e 30 0d 0d |)<>"." .| pos>0..|
|00001a10| a2 0c 20 20 70 6f 73 2d | 3d 31 0d 0d ac 06 20 ce |.. pos-|=1.... .|
|00001a20| 0d 0d b6 11 3d c1 66 73 | 70 24 2c 70 6f 73 2b 31 |....=.fs|p$,pos+1|
|00001a30| 29 0d 0d c0 04 0d 0d ca | 18 dd 20 a4 73 74 72 6e |).......|.. .strn|
|00001a40| 75 6c 6c 74 65 72 6d 28 | 61 64 64 72 29 0d 0d d4 |ullterm(|addr)...|
|00001a50| 09 20 ea 20 61 24 0d 0d | de 0d 20 c8 95 20 3f 61 |. . a$..|.. .. ?a|
|00001a60| 64 64 72 0d 0d e8 12 20 | 20 61 24 2b 3d bd 28 3f |ddr.... | a$+=.(?|
|00001a70| 61 64 64 72 29 0d 0d f2 | 0d 20 20 61 64 64 72 2b |addr)...|. addr+|
|00001a80| 3d 31 0d 0d fc 06 20 ce | 0d 0e 06 07 3d 61 24 0d |=1.... .|....=a$.|
|00001a90| 0e 10 04 0d 0e 1a 0f dd | 20 a4 73 65 70 61 72 61 |........| .separa|
|00001aa0| 74 65 0d 0e 24 14 20 e7 | 20 a7 6d 65 6e 75 24 2c |te..$. .| .menu$,|
|00001ab0| 22 2c 22 29 20 8c 0d 0e | 2e 23 20 20 73 65 70 24 |",") ...|.# sep$|
|00001ac0| 20 20 3d 20 c0 6d 65 6e | 75 24 2c a7 6d 65 6e 75 | = .men|u$,.menu|
|00001ad0| 24 2c 22 2c 22 29 2d 31 | 29 0d 0e 38 23 20 20 6d |$,",")-1|)..8# m|
|00001ae0| 65 6e 75 24 20 3d 20 c1 | 6d 65 6e 75 24 2c a7 6d |enu$ = .|menu$,.m|
|00001af0| 65 6e 75 24 2c 22 2c 22 | 29 2b 31 29 0d 0e 42 0b |enu$,","|)+1)..B.|
|00001b00| 20 20 3d 73 65 70 24 0d | 0e 4c 06 20 cd 0d 0e 56 | =sep$.|.L. ...V|
|00001b10| 0a 3d 6d 65 6e 75 24 0d | 0e 60 04 0d 0e 6a 11 dd |.=menu$.|.`...j..|
|00001b20| 20 a4 63 72 65 61 74 65 | 6d 65 6e 75 0d 0e 74 04 | .create|menu..t.|
|00001b30| 0d 0e 7e 3c 20 ea 20 6d | 65 6e 75 24 2c 6d 24 2c |..~< . m|enu$,m$,|
|00001b40| 70 74 72 2c 66 6c 61 67 | 73 2c 74 65 78 74 24 2c |ptr,flag|s,text$,|
|00001b50| 77 72 69 74 65 2c 73 68 | 61 64 65 2c 73 75 62 2c |write,sh|ade,sub,|
|00001b60| 63 6f 6c 6f 75 72 73 2c | 61 64 64 72 0d 0e 88 34 |colours,|addr...4|
|00001b70| 20 e7 20 6d 65 6e 75 73 | 70 61 63 65 2b 32 34 3e | . menus|pace+24>|
|00001b80| 6d 65 6e 75 65 6e 64 20 | 8c 20 85 20 31 2c 22 4d |menuend |. . 1,"M|
|00001b90| 65 6e 75 20 73 70 61 63 | 65 20 66 75 6c 6c 2e 22 |enu spac|e full."|
|00001ba0| 0d 0e 92 04 0d 0e 9c 0c | 20 f3 20 6d 65 6e 75 24 |........| . menu$|
|00001bb0| 0d 0e a6 15 20 c8 95 20 | c2 6d 65 6e 75 24 2c 31 |.... .. |.menu$,1|
|00001bc0| 29 3d 22 2b 22 0d 0e b0 | 0a 20 20 f3 20 6d 24 0d |)="+"...|. . m$.|
|00001bd0| 0e ba 21 20 20 6d 65 6e | 75 24 3d c0 6d 65 6e 75 |..! men|u$=.menu|
|00001be0| 24 2c a9 28 6d 65 6e 75 | 24 29 2d 31 29 2b 6d 24 |$,.(menu|$)-1)+m$|
|00001bf0| 0d 0e c4 06 20 ce 0d 0e | ce 04 0d 0e d8 1d 20 74 |.... ...|...... t|
|00001c00| 69 74 6c 65 24 20 20 20 | 20 20 20 20 3d 20 a4 73 |itle$ | = .s|
|00001c10| 65 70 61 72 61 74 65 0d | 0e e2 15 20 77 69 64 74 |eparate.|... widt|
|00001c20| 68 20 20 20 20 20 20 20 | 20 3d 20 30 0d 0e ec 1a |h | = 0....|
|00001c30| 20 24 28 6d 65 6e 75 73 | 70 61 63 65 29 20 3d 20 | $(menus|pace) = |
|00001c40| 74 69 74 6c 65 24 0d 0e | f6 23 20 6d 65 6e 75 73 |title$..|.# menus|
|00001c50| 70 61 63 65 3f 31 32 20 | 3d 20 6d 65 6e 75 74 69 |pace?12 |= menuti|
|00001c60| 74 6c 65 5f 66 67 63 6f | 6c 0d 0f 00 23 20 6d 65 |tle_fgco|l...# me|
|00001c70| 6e 75 73 70 61 63 65 3f | 31 33 20 3d 20 6d 65 6e |nuspace?|13 = men|
|00001c80| 75 74 69 74 6c 65 5f 62 | 67 63 6f 6c 0d 0f 0a 22 |utitle_b|gcol..."|
|00001c90| 20 6d 65 6e 75 73 70 61 | 63 65 3f 31 34 20 3d 20 | menuspa|ce?14 = |
|00001ca0| 6d 65 6e 75 77 6f 72 6b | 5f 66 67 63 6f 6c 0d 0f |menuwork|_fgcol..|
|00001cb0| 14 22 20 6d 65 6e 75 73 | 70 61 63 65 3f 31 35 20 |." menus|pace?15 |
|00001cc0| 3d 20 6d 65 6e 75 77 6f | 72 6b 5f 62 67 63 6f 6c |= menuwo|rk_bgcol|
|00001cd0| 0d 0f 1e 16 20 6d 65 6e | 75 73 70 61 63 65 21 32 |.... men|uspace!2|
|00001ce0| 30 20 3d 20 34 30 0d 0f | 28 15 20 6d 65 6e 75 73 |0 = 40..|(. menus|
|00001cf0| 70 61 63 65 21 32 34 20 | 3d 20 30 0d 0f 32 20 20 |pace!24 |= 0..2 |
|00001d00| 70 74 72 20 20 20 20 20 | 20 20 20 20 20 3d 20 6d |ptr | = m|
|00001d10| 65 6e 75 73 70 61 63 65 | 2b 32 38 0d 0f 3c 04 0d |enuspace|+28..<..|
|00001d20| 0f 46 06 20 f5 0d 0f 50 | 2f 20 20 e7 20 70 74 72 |.F. ...P|/ . ptr|
|00001d30| 2b 32 34 3e 6d 65 6e 75 | 65 6e 64 20 8c 20 85 20 |+24>menu|end . . |
|00001d40| 30 2c 22 4d 65 6e 75 20 | 73 70 61 63 65 20 66 75 |0,"Menu |space fu|
|00001d50| 6c 6c 2e 22 0d 0f 5a 1e | 20 20 66 6c 61 67 73 20 |ll."..Z.| flags |
|00001d60| 3d 20 a0 28 22 26 22 2b | c0 6d 65 6e 75 24 2c 32 |= .("&"+|.menu$,2|
|00001d70| 29 29 0d 0f 64 17 20 20 | 6d 65 6e 75 24 20 3d 20 |))..d. |menu$ = |
|00001d80| c1 6d 65 6e 75 24 2c 33 | 29 0d 0f 6e 04 0d 0f 78 |.menu$,3|)..n...x|
|00001d90| 17 20 20 74 65 78 74 24 | 20 3d 20 a4 73 65 70 61 |. text$| = .sepa|
|00001da0| 72 61 74 65 0d 0f 82 0f | 20 20 77 72 69 74 65 20 |rate....| write |
|00001db0| 3d 20 30 0d 0f 8c 0f 20 | 20 73 68 61 64 65 20 3d |= 0.... | shade =|
|00001dc0| 20 30 0d 0f 96 10 20 20 | 73 75 62 20 20 20 3d 20 | 0.... |sub = |
|00001dd0| 2d 31 0d 0f a0 0f 20 20 | 69 6e 64 69 72 20 3d 20 |-1.... |indir = |
|00001de0| 30 0d 0f aa 04 0d 0f b4 | 15 20 20 e7 20 a7 74 65 |0.......|. . .te|
|00001df0| 78 74 24 2c 22 3e 22 29 | 20 8c 0d 0f be 33 20 20 |xt$,">")| ....3 |
|00001e00| 20 77 69 64 74 68 3d a4 | 6d 61 78 28 77 69 64 74 | width=.|max(widt|
|00001e10| 68 2c a9 28 c1 74 65 78 | 74 24 2c 31 2c a7 74 65 |h,.(.tex|t$,1,.te|
|00001e20| 78 74 24 2c 22 3e 22 29 | 2d 31 29 29 29 0d 0f c8 |xt$,">")|-1)))...|
|00001e30| 23 20 20 20 f2 69 74 65 | 6d 28 c0 74 65 78 74 24 |# .ite|m(.text$|
|00001e40| 2c a7 74 65 78 74 24 2c | 22 3e 22 29 2d 31 29 29 |,.text$,|">")-1))|
|00001e50| 0d 0f d2 25 20 20 20 73 | 75 62 20 3d 20 a0 28 c1 |...% s|ub = .(.|
|00001e60| 74 65 78 74 24 2c a7 74 | 65 78 74 24 2c 22 3e 22 |text$,.t|ext$,">"|
|00001e70| 29 2b 31 29 29 0d 0f dc | 07 20 20 cc 0d 0f e6 18 |)+1))...|. .....|
|00001e80| 20 20 20 e7 20 c0 74 65 | 78 74 24 2c 31 29 3d 22 | . .te|xt$,1)="|
|00001e90| 24 22 20 8c 0d 0f f0 2b | 20 20 20 20 70 74 72 21 |$" ....+| ptr!|
|00001ea0| 31 32 20 3d 20 a0 28 c1 | 74 65 78 74 24 2c 32 2c |12 = .(.|text$,2,|
|00001eb0| a7 74 65 78 74 24 2c 22 | 28 22 29 2d 32 29 29 0d |.text$,"|(")-2)).|
|00001ec0| 0f fa 13 20 20 20 20 70 | 74 72 21 31 36 20 3d 20 |... p|tr!16 = |
|00001ed0| 2d 31 0d 10 04 47 20 20 | 20 20 70 74 72 21 32 30 |-1...G | ptr!20|
|00001ee0| 20 3d 20 a0 28 c1 74 65 | 78 74 24 2c 20 a7 74 65 | = .(.te|xt$, .te|
|00001ef0| 78 74 24 2c 22 28 22 29 | 2b 31 2c 20 a7 74 65 78 |xt$,"(")|+1, .tex|
|00001f00| 74 24 2c 22 29 22 29 2d | a7 74 65 78 74 24 2c 22 |t$,")")-|.text$,"|
|00001f10| 28 22 29 2d 31 29 29 2b | 31 0d 10 0e 20 20 20 20 |(")-1))+|1... |
|00001f20| 20 77 69 64 74 68 3d a4 | 6d 61 78 28 77 69 64 74 | width=.|max(widt|
|00001f30| 68 2c 70 74 72 21 32 30 | 29 0d 10 18 08 20 20 20 |h,ptr!20|).... |
|00001f40| cc 0d 10 22 14 20 20 20 | 20 f2 69 74 65 6d 28 74 |...". | .item(t|
|00001f50| 65 78 74 24 29 0d 10 2c | 22 20 20 20 20 77 69 64 |ext$)..,|" wid|
|00001f60| 74 68 3d a4 6d 61 78 28 | 77 69 64 74 68 2c a9 28 |th=.max(|width,.(|
|00001f70| 74 65 78 74 24 29 29 0d | 10 36 08 20 20 20 cd 0d |text$)).|.6. ..|
|00001f80| 10 40 07 20 20 cd 0d 10 | 4a 04 0d 10 54 23 20 20 |.@. ...|J...T# |
|00001f90| e7 20 66 6c 61 67 73 20 | 80 20 26 30 34 20 8c 20 |. flags |. &04 . |
|00001fa0| 77 72 69 74 65 20 3d 20 | 26 46 31 30 30 0d 10 5e |write = |&F100..^|
|00001fb0| 25 20 20 e7 20 66 6c 61 | 67 73 20 80 20 26 30 38 |% . fla|gs . &08|
|00001fc0| 20 8c 20 73 68 61 64 65 | 20 3d 20 26 34 30 30 30 | . shade| = &4000|
|00001fd0| 30 30 0d 10 68 37 20 20 | 63 6f 6c 6f 75 72 73 20 |00..h7 |colours |
|00001fe0| 3d 20 6d 65 6e 75 77 6f | 72 6b 5f 62 67 63 6f 6c |= menuwo|rk_bgcol|
|00001ff0| 3c 3c 32 38 20 84 20 6d | 65 6e 75 77 6f 72 6b 5f |<<28 . m|enuwork_|
|00002000| 66 67 63 6f 6c 3c 3c 32 | 34 0d 10 72 15 20 20 70 |fgcol<<2|4..r. p|
|00002010| 74 72 21 30 20 20 20 3d | 20 66 6c 61 67 73 0d 10 |tr!0 =| flags..|
|00002020| 7c 13 20 20 70 74 72 21 | 34 20 20 20 3d 20 73 75 ||. ptr!|4 = su|
|00002030| 62 0d 10 86 38 20 20 70 | 74 72 21 38 20 20 20 3d |b...8 p|tr!8 =|
|00002040| 20 73 68 61 64 65 20 84 | 20 77 72 69 74 65 20 84 | shade .| write .|
|00002050| 20 63 6f 6c 6f 75 72 73 | 20 84 20 69 6e 64 69 72 | colours| . indir|
|00002060| 20 84 20 26 31 30 30 32 | 31 0d 10 90 16 20 20 70 | . &1002|1.... p|
|00002070| 74 72 20 20 20 20 20 3d | 20 70 74 72 2b 32 34 0d |tr =| ptr+24.|
|00002080| 10 9a 12 20 fd 20 66 6c | 61 67 73 20 80 20 26 38 |... . fl|ags . &8|
|00002090| 30 0d 10 a4 25 20 e7 20 | 77 69 64 74 68 3c 3e 31 |0...% . |width<>1|
|000020a0| 20 8c 20 e7 20 77 69 64 | 74 68 3c 38 20 8c 20 77 | . . wid|th<8 . w|
|000020b0| 69 64 74 68 3d 38 0d 10 | ae 1f 20 6d 65 6e 75 73 |idth=8..|.. menus|
|000020c0| 70 61 63 65 21 31 36 20 | 3d 20 77 69 64 74 68 2a |pace!16 |= width*|
|000020d0| 31 36 2b 31 34 0d 10 b8 | 1d 20 61 64 64 72 20 20 |16+14...|. addr |
|000020e0| 20 20 20 20 20 20 20 3d | 20 6d 65 6e 75 73 70 61 | =| menuspa|
|000020f0| 63 65 0d 10 c2 17 20 6d | 65 6e 75 73 70 61 63 65 |ce.... m|enuspace|
|00002100| 20 20 20 20 3d 20 70 74 | 72 0d 10 cc 09 3d 61 64 | = pt|r....=ad|
|00002110| 64 72 0d 10 d6 04 0d 10 | e0 12 dd 20 f2 69 74 65 |dr......|... .ite|
|00002120| 6d 28 74 65 78 74 24 29 | 0d 10 ea 10 20 ea 20 77 |m(text$)|.... . w|
|00002130| 6f 72 6b 73 70 61 63 65 | 0d 10 f4 14 20 e7 20 a9 |orkspace|.... . .|
|00002140| 28 74 65 78 74 24 29 3c | 31 32 20 8c 0d 10 fe 15 |(text$)<|12 .....|
|00002150| 20 20 24 28 70 74 72 2b | 31 32 29 3d 74 65 78 74 | $(ptr+|12)=text|
|00002160| 24 0d 11 08 06 20 cc 0d | 11 12 1a 20 20 de 20 77 |$.... ..|... . w|
|00002170| 6f 72 6b 73 70 61 63 65 | 20 a9 28 74 65 78 74 24 |orkspace| .(text$|
|00002180| 29 0d 11 1c 16 20 20 24 | 77 6f 72 6b 73 70 61 63 |).... $|workspac|
|00002190| 65 3d 74 65 78 74 24 0d | 11 26 18 20 20 70 74 72 |e=text$.|.&. ptr|
|000021a0| 21 31 32 20 3d 20 77 6f | 72 6b 73 70 61 63 65 0d |!12 = wo|rkspace.|
|000021b0| 11 30 11 20 20 70 74 72 | 21 31 36 20 3d 20 2d 31 |.0. ptr|!16 = -1|
|000021c0| 0d 11 3a 17 20 20 70 74 | 72 21 32 30 20 3d 20 a9 |..:. pt|r!20 = .|
|000021d0| 28 74 65 78 74 24 29 0d | 11 44 13 20 20 69 6e 64 |(text$).|.D. ind|
|000021e0| 69 72 20 20 3d 20 31 3c | 3c 38 0d 11 4e 06 20 cd |ir = 1<|<8..N. .|
|000021f0| 0d 11 58 05 e1 0d 11 62 | 04 0d 11 6c 10 dd 20 a4 |..X....b|...l.. .|
|00002200| 61 73 6b 28 61 73 6b 24 | 29 0d 11 76 09 20 ea 20 |ask(ask$|)..v. . |
|00002210| 52 31 0d 11 80 0b 20 62 | 6b 21 30 3d 30 0d 11 8a |R1.... b|k!0=0...|
|00002220| 11 20 24 28 62 6b 2b 34 | 29 3d 61 73 6b 24 0d 11 |. $(bk+4|)=ask$..|
|00002230| 94 47 20 c8 99 20 22 57 | 69 6d 70 5f 52 65 70 6f |.G .. "W|imp_Repo|
|00002240| 72 74 45 72 72 6f 72 22 | 2c 62 6b 2c 25 30 30 31 |rtError"|,bk,%001|
|00002250| 30 30 31 31 2c 22 4d 65 | 73 73 61 67 65 20 66 72 |0011,"Me|ssage fr|
|00002260| 6f 6d 20 22 2b 70 72 6f | 67 74 69 74 6c 65 24 20 |om "+pro|gtitle$ |
|00002270| b8 20 2c 52 31 0d 11 9e | 12 e7 20 52 31 3d 31 20 |. ,R1...|.. R1=1 |
|00002280| 3d b9 20 8b 20 3d a3 0d | 11 a8 04 0d 11 b2 0e dd |=. . =..|........|
|00002290| 20 f2 77 61 69 74 70 74 | 72 0d 11 bc 16 20 c8 99 | .waitpt|r.... ..|
|000022a0| 20 22 48 6f 75 72 67 6c | 61 73 73 5f 4f 6e 22 0d | "Hourgl|ass_On".|
|000022b0| 11 c6 05 e1 0d 11 d0 04 | 0d 11 da 0f dd 20 f2 61 |........|..... .a|
|000022c0| 72 72 6f 77 70 74 72 0d | 11 e4 17 20 c8 99 20 22 |rrowptr.|... .. "|
|000022d0| 48 6f 75 72 67 6c 61 73 | 73 5f 4f 66 66 22 0d 11 |Hourglas|s_Off"..|
|000022e0| ee 05 e1 0d 11 f8 04 0d | 12 02 14 dd 20 a4 69 6e |........|.... .in|
|000022f0| 64 69 72 65 63 74 28 77 | 2c 69 29 0d 12 0c 0d 20 |direct(w|,i).... |
|00002300| 62 6b 21 30 20 3d 20 77 | 0d 12 16 0d 20 62 6b 21 |bk!0 = w|.... bk!|
|00002310| 34 20 3d 20 69 0d 12 20 | 20 20 c8 99 20 22 57 69 |4 = i.. | .. "Wi|
|00002320| 6d 70 5f 47 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_GetIc|onState"|
|00002330| 2c 30 2c 62 6b 0d 12 2a | 0d 3d 24 28 62 6b 21 32 |,0,bk..*|.=$(bk!2|
|00002340| 38 29 0d 12 34 04 0d 12 | 3e 16 dd 20 f2 73 65 74 |8)..4...|>.. .set|
|00002350| 74 65 78 74 28 77 2c 69 | 2c 61 24 29 0d 12 48 0d |text(w,i|,a$)..H.|
|00002360| 20 62 6b 21 30 20 3d 20 | 77 0d 12 52 0d 20 62 6b | bk!0 = |w..R. bk|
|00002370| 21 34 20 3d 20 69 0d 12 | 5c 20 20 c8 99 20 22 57 |!4 = i..|\ .. "W|
|00002380| 69 6d 70 5f 47 65 74 49 | 63 6f 6e 53 74 61 74 65 |imp_GetI|conState|
|00002390| 22 2c 30 2c 62 6b 0d 12 | 66 10 20 24 28 62 6b 21 |",0,bk..|f. $(bk!|
|000023a0| 32 38 29 3d 61 24 0d 12 | 70 0b 20 62 6b 21 38 3d |28)=a$..|p. bk!8=|
|000023b0| 30 0d 12 7a 0c 20 62 6b | 21 31 32 3d 30 0d 12 84 |0..z. bk|!12=0...|
|000023c0| 20 20 c8 99 20 22 57 69 | 6d 70 5f 53 65 74 49 63 | .. "Wi|mp_SetIc|
|000023d0| 6f 6e 53 74 61 74 65 22 | 2c 30 2c 62 6b 0d 12 8e |onState"|,0,bk...|
|000023e0| 05 e1 0d 12 98 04 0d 12 | a2 17 dd 20 f2 73 68 61 |........|... .sha|
|000023f0| 64 65 69 63 6f 6e 28 68 | 25 2c 69 25 29 0d 12 ac |deicon(h|%,i%)...|
|00002400| 0f 20 62 6b 21 30 20 20 | 3d 20 68 25 0d 12 b6 0f |. bk!0 |= h%....|
|00002410| 20 62 6b 21 34 20 20 3d | 20 69 25 0d 12 c0 14 20 | bk!4 =| i%.... |
|00002420| 62 6b 21 38 20 20 3d 20 | 26 34 30 30 30 30 30 0d |bk!8 = |&400000.|
|00002430| 12 ca 14 20 62 6b 21 31 | 32 20 3d 20 26 34 30 30 |... bk!1|2 = &400|
|00002440| 30 30 30 0d 12 d4 20 20 | c8 99 20 22 57 69 6d 70 |000... |.. "Wimp|
|00002450| 5f 53 65 74 49 63 6f 6e | 53 74 61 74 65 22 2c 30 |_SetIcon|State",0|
|00002460| 2c 62 6b 0d 12 de 05 e1 | 0d 12 e8 04 0d 12 f2 19 |,bk.....|........|
|00002470| dd 20 f2 75 6e 73 68 61 | 64 65 69 63 6f 6e 28 68 |. .unsha|deicon(h|
|00002480| 25 2c 69 25 29 0d 12 fc | 0f 20 62 6b 21 30 20 20 |%,i%)...|. bk!0 |
|00002490| 3d 20 68 25 0d 13 06 0f | 20 62 6b 21 34 20 20 3d |= h%....| bk!4 =|
|000024a0| 20 69 25 0d 13 10 0e 20 | 62 6b 21 38 20 20 3d 20 | i%.... |bk!8 = |
|000024b0| 30 0d 13 1a 14 20 62 6b | 21 31 32 20 3d 20 26 34 |0.... bk|!12 = &4|
|000024c0| 30 30 30 30 30 0d 13 24 | 20 20 c8 99 20 22 57 69 |00000..$| .. "Wi|
|000024d0| 6d 70 5f 53 65 74 49 63 | 6f 6e 53 74 61 74 65 22 |mp_SetIc|onState"|
|000024e0| 2c 30 2c 62 6b 0d 13 2e | 05 e1 0d 13 38 04 0d 13 |,0,bk...|....8...|
|000024f0| 42 04 0d 13 4c 0d dd 20 | f2 66 6f 72 6d 61 74 0d |B...L.. |.format.|
|00002500| 13 56 35 20 e7 20 ac 20 | a4 61 73 6b 28 22 50 6c |.V5 . . |.ask("Pl|
|00002510| 65 61 73 65 20 69 6e 73 | 65 72 74 20 64 69 73 63 |ease ins|ert disc|
|00002520| 20 74 6f 20 62 65 20 66 | 6f 72 6d 61 74 74 65 64 | to be f|ormatted|
|00002530| 22 29 20 e1 0d 13 60 04 | 0d 13 6a 17 20 f2 61 63 |") ...`.|..j. .ac|
|00002540| 74 69 6f 6e 28 a4 70 6f | 6c 6c 28 2d 31 29 29 0d |tion(.po|ll(-1)).|
|00002550| 13 74 04 0d 13 7e 17 20 | f2 72 65 6d 6f 76 65 5f |.t...~. |.remove_|
|00002560| 64 72 69 76 65 69 63 6f | 6e 73 0d 13 88 04 0d 13 |driveico|ns......|
|00002570| 92 12 20 f2 73 65 74 75 | 70 5f 66 6f 72 6d 61 74 |.. .setu|p_format|
|00002580| 0d 13 9c 13 20 66 6f 72 | 6d 61 74 74 69 6e 67 20 |.... for|matting |
|00002590| 3d 20 b9 0d 13 a6 13 20 | 74 72 61 63 6b 20 20 20 |= ..... |track |
|000025a0| 20 20 20 3d 20 30 0d 13 | b0 04 0d 13 ba 2c 20 ee | = 0..|....., .|
|000025b0| 20 85 20 ea 20 f2 64 72 | 6f 6e 67 6f 28 f6 24 29 | . . .dr|ongo(.$)|
|000025c0| 3a f2 72 65 73 74 6f 72 | 65 5f 64 72 69 76 65 69 |:.restor|e_drivei|
|000025d0| 63 6f 6e 73 3a e1 0d 13 | c4 04 0d 13 ce 06 20 f5 |cons:...|...... .|
|000025e0| 0d 13 d8 0e 20 20 68 65 | 61 64 20 3d 20 30 0d 13 |.... he|ad = 0..|
|000025f0| e2 07 20 20 f5 0d 13 ec | 17 20 20 20 65 72 72 6f |.. ....|. erro|
|00002600| 72 24 20 20 20 20 3d 20 | 22 4f 4b 22 0d 13 f6 27 |r$ = |"OK"...'|
|00002610| 20 20 20 64 69 73 63 5f | 61 64 64 72 20 3d 20 28 | disc_|addr = (|
|00002620| 74 72 61 63 6b 2a 32 2b | 68 65 61 64 29 2a 39 2a |track*2+|head)*9*|
|00002630| 35 31 32 0d 14 00 31 20 | 20 20 e7 20 66 6f 72 6d |512...1 | . form|
|00002640| 61 74 5f 63 6f 6d 6d 61 | 6e 64 20 f2 66 6f 72 6d |at_comma|nd .form|
|00002650| 61 74 5f 74 72 61 63 6b | 28 74 72 61 63 6b 2c 68 |at_track|(track,h|
|00002660| 65 61 64 29 0d 14 0a 2f | 20 20 20 e7 20 76 65 72 |ead).../| . ver|
|00002670| 69 66 79 5f 63 6f 6d 6d | 61 6e 64 20 f2 72 65 61 |ify_comm|and .rea|
|00002680| 64 5f 74 72 61 63 6b 28 | 74 72 61 63 6b 2c 68 65 |d_track(|track,he|
|00002690| 61 64 29 0d 14 14 43 20 | 20 20 f2 73 65 74 74 65 |ad)...C | .sette|
|000026a0| 78 74 28 66 6f 72 6d 61 | 74 2c 36 2c 22 54 52 41 |xt(forma|t,6,"TRA|
|000026b0| 43 4b 20 22 2b c3 74 72 | 61 63 6b 2b 22 20 48 45 |CK "+.tr|ack+" HE|
|000026c0| 41 44 20 22 2b c3 68 65 | 61 64 2b 22 20 22 2b 65 |AD "+.he|ad+" "+e|
|000026d0| 72 72 6f 72 24 29 0d 14 | 1e 18 20 20 20 f2 61 63 |rror$)..|.. .ac|
|000026e0| 74 69 6f 6e 28 a4 70 6f | 6c 6c 28 30 29 29 0d 14 |tion(.po|ll(0))..|
|000026f0| 28 0e 20 20 20 68 65 61 | 64 2b 3d 31 0d 14 32 1d |(. hea|d+=1..2.|
|00002700| 20 20 fd 20 68 65 61 64 | 3d 32 20 84 20 ac 20 66 | . head|=2 . . f|
|00002710| 6f 72 6d 61 74 74 69 6e | 67 0d 14 3c 0e 20 20 74 |ormattin|g..<. t|
|00002720| 72 61 63 6b 2b 3d 31 0d | 14 46 1e 20 fd 20 74 72 |rack+=1.|.F. . tr|
|00002730| 61 63 6b 3d 38 30 20 84 | 20 ac 20 66 6f 72 6d 61 |ack=80 .| . forma|
|00002740| 74 74 69 6e 67 0d 14 50 | 04 0d 14 5a 13 20 e7 20 |tting..P|...Z. . |
|00002750| 66 6f 72 6d 61 74 74 69 | 6e 67 20 8c 0d 14 64 0f |formatti|ng ...d.|
|00002760| 20 20 f2 7a 61 70 5f 62 | 6f 6f 74 0d 14 6e 22 20 | .zap_b|oot..n" |
|00002770| 20 f2 73 65 74 74 65 78 | 74 28 66 6f 72 6d 61 74 | .settex|t(format|
|00002780| 2c 36 2c 22 44 69 73 63 | 20 4f 4b 22 29 0d 14 78 |,6,"Disc| OK")..x|
|00002790| 06 20 cc 0d 14 82 22 20 | 20 f2 73 65 74 74 65 78 |. ...." | .settex|
|000027a0| 74 28 66 6f 72 6d 61 74 | 2c 36 2c 22 41 62 6f 72 |t(format|,6,"Abor|
|000027b0| 74 65 64 22 29 0d 14 8c | 06 20 cd 0d 14 96 04 0d |ted")...|. ......|
|000027c0| 14 a0 18 20 f2 72 65 73 | 74 6f 72 65 5f 64 72 69 |... .res|tore_dri|
|000027d0| 76 65 69 63 6f 6e 73 0d | 14 aa 05 e1 0d 14 b4 04 |veicons.|........|
|000027e0| 0d 14 be 04 0d 14 c8 18 | dd 20 f2 72 65 6d 6f 76 |........|. .remov|
|000027f0| 65 5f 64 72 69 76 65 69 | 63 6f 6e 73 0d 14 d2 0c |e_drivei|cons....|
|00002800| 20 ea 20 63 6f 75 6e 74 | 0d 14 dc 12 20 e3 20 63 | . count|.... . c|
|00002810| 6f 75 6e 74 3d 30 20 b8 | 20 33 0d 14 e6 1e 20 20 |ount=0 .| 3.... |
|00002820| f2 73 68 61 64 65 69 63 | 6f 6e 28 66 6f 72 6d 61 |.shadeic|on(forma|
|00002830| 74 2c 63 6f 75 6e 74 29 | 0d 14 f0 06 20 ed 0d 14 |t,count)|.... ...|
|00002840| fa 05 e1 0d 15 04 04 0d | 15 0e 04 0d 15 18 19 dd |........|........|
|00002850| 20 f2 72 65 73 74 6f 72 | 65 5f 64 72 69 76 65 69 | .restor|e_drivei|
|00002860| 63 6f 6e 73 0d 15 22 0c | 20 ea 20 63 6f 75 6e 74 |cons..".| . count|
|00002870| 0d 15 2c 1c 20 e3 20 63 | 6f 75 6e 74 3d 30 20 b8 |..,. . c|ount=0 .|
|00002880| 20 6d 61 78 64 72 69 76 | 65 73 2d 31 0d 15 36 20 | maxdriv|es-1..6 |
|00002890| 20 20 f2 75 6e 73 68 61 | 64 65 69 63 6f 6e 28 66 | .unsha|deicon(f|
|000028a0| 6f 72 6d 61 74 2c 63 6f | 75 6e 74 29 0d 15 40 06 |ormat,co|unt)..@.|
|000028b0| 20 ed 0d 15 4a 13 20 66 | 6f 72 6d 61 74 74 69 6e | ...J. f|ormattin|
|000028c0| 67 20 3d 20 a3 0d 15 54 | 05 e1 0d 15 5e 04 0d 15 |g = ...T|....^...|
|000028d0| 68 04 0d 15 72 1a dd 20 | f2 66 6f 72 6d 61 74 5f |h...r.. |.format_|
|000028e0| 74 72 61 63 6b 28 54 25 | 2c 48 25 29 0d 15 7c 13 |track(T%|,H%)..|.|
|000028f0| 20 e3 20 73 65 63 74 6f | 72 3d 31 20 b8 20 39 0d | . secto|r=1 . 9.|
|00002900| 15 86 2a 20 20 62 75 66 | 66 65 72 3f 28 28 28 73 |..* buf|fer?(((s|
|00002910| 65 63 74 6f 72 2d 31 29 | 2a 36 31 32 29 2b 31 36 |ector-1)|*612)+16|
|00002920| 2b 67 61 70 25 29 3d 54 | 25 0d 15 90 2e 20 20 62 |+gap%)=T|%.... b|
|00002930| 75 66 66 65 72 3f 28 28 | 28 28 73 65 63 74 6f 72 |uffer?((|((sector|
|00002940| 2d 31 29 2a 36 31 32 29 | 2b 31 36 2b 67 61 70 25 |-1)*612)|+16+gap%|
|00002950| 29 2b 31 29 3d 48 25 0d | 15 9a 06 20 ed 0d 15 a4 |)+1)=H%.|... ....|
|00002960| 40 20 c8 99 20 22 41 44 | 46 53 5f 44 69 73 63 4f |@ .. "AD|FS_DiscO|
|00002970| 70 22 2c 2c 72 65 61 73 | 6f 6e 63 6f 64 65 2b 34 |p",,reas|oncode+4|
|00002980| 2c 28 64 72 69 76 65 3c | 3c 32 39 29 2b 64 69 73 |,(drive<|<29)+dis|
|00002990| 63 5f 61 64 64 72 2c 62 | 75 66 66 65 72 0d 15 ae |c_addr,b|uffer...|
|000029a0| 05 e1 0d 15 b8 04 0d 15 | c2 04 0d 15 cc 13 dd 20 |........|....... |
|000029b0| f2 73 65 74 75 70 5f 66 | 6f 72 6d 61 74 0d 15 d6 |.setup_f|ormat...|
|000029c0| 0c 20 ea 20 63 6f 75 6e | 74 0d 15 e0 13 20 e3 20 |. . coun|t.... . |
|000029d0| 63 6f 75 6e 74 3d 30 20 | b8 20 36 34 0d 15 ea 1a |count=0 |. 64....|
|000029e0| 20 20 64 69 73 63 72 65 | 63 6f 72 64 3f 63 6f 75 | discre|cord?cou|
|000029f0| 6e 74 20 3d 20 30 0d 15 | f4 06 20 ed 0d 15 fe 2b |nt = 0..|.. ....+|
|00002a00| 20 72 65 63 6f 72 64 5f | 61 64 64 72 65 73 73 20 | record_|address |
|00002a10| 3d 20 28 64 69 73 63 72 | 65 63 6f 72 64 20 81 20 |= (discr|ecord . |
|00002a20| 34 29 20 3c 3c 20 38 0d | 16 08 0f 20 67 61 70 25 |4) << 8.|... gap%|
|00002a30| 20 3d 20 35 30 30 0d 16 | 12 11 20 f2 73 65 74 75 | = 500..|.. .setu|
|00002a40| 70 5f 74 72 61 63 6b 0d | 16 1c 20 20 72 65 61 73 |p_track.|.. reas|
|00002a50| 6f 6e 63 6f 64 65 20 3d | 20 72 65 63 6f 72 64 5f |oncode =| record_|
|00002a60| 61 64 64 72 65 73 73 0d | 16 26 15 20 64 69 73 63 |address.|.&. disc|
|00002a70| 72 65 63 6f 72 64 3f 30 | 20 3d 20 39 0d 16 30 15 |record?0| = 9..0.|
|00002a80| 20 64 69 73 63 72 65 63 | 6f 72 64 3f 31 20 3d 20 | discrec|ord?1 = |
|00002a90| 39 0d 16 3a 15 20 64 69 | 73 63 72 65 63 6f 72 64 |9..:. di|screcord|
|00002aa0| 3f 32 20 3d 20 32 0d 16 | 44 15 20 64 69 73 63 72 |?2 = 2..|D. discr|
|00002ab0| 65 63 6f 72 64 3f 33 20 | 3d 20 32 0d 16 4e 1f 20 |ecord?3 |= 2..N. |
|00002ac0| 64 69 73 63 72 65 63 6f | 72 64 21 26 31 30 20 3d |discreco|rd!&10 =|
|00002ad0| 20 31 36 30 2a 39 2a 35 | 31 32 0d 16 58 05 e1 0d | 160*9*5|12..X...|
|00002ae0| 16 62 04 0d 16 6c 04 0d | 16 76 12 dd 20 f2 73 65 |.b...l..|.v.. .se|
|00002af0| 74 75 70 5f 74 72 61 63 | 6b 0d 16 80 10 20 42 25 |tup_trac|k.... B%|
|00002b00| 20 3d 20 62 75 66 66 65 | 72 0d 16 8a 15 20 f2 7a | = buffe|r.... .z|
|00002b10| 61 70 28 67 61 70 25 2d | 31 2c 26 34 45 29 0d 16 |ap(gap%-|1,&4E)..|
|00002b20| 94 13 20 e3 20 73 65 63 | 74 6f 72 3d 31 20 b8 20 |.. . sec|tor=1 . |
|00002b30| 39 0d 16 9e 10 20 20 f2 | 7a 61 70 28 31 31 2c 30 |9.... .|zap(11,0|
|00002b40| 29 0d 16 a8 11 20 20 f2 | 7a 61 70 28 32 2c 26 46 |).... .|zap(2,&F|
|00002b50| 35 29 0d 16 b2 0d 20 20 | 3f 42 25 3d 26 46 45 0d |5).... |?B%=&FE.|
|00002b60| 16 bc 0b 20 20 42 25 2b | 3d 31 0d 16 c6 0b 20 20 |... B%+|=1.... |
|00002b70| 3f 42 25 3d 30 0d 16 d0 | 0c 20 20 42 25 3f 31 3d |?B%=0...|. B%?1=|
|00002b80| 30 0d 16 da 11 20 20 42 | 25 3f 32 3d 73 65 63 74 |0.... B|%?2=sect|
|00002b90| 6f 72 0d 16 e4 0c 20 20 | 42 25 3f 33 3d 32 0d 16 |or.... |B%?3=2..|
|00002ba0| ee 0b 20 20 42 25 2b 3d | 34 0d 16 f8 0d 20 20 3f |.. B%+=|4.... ?|
|00002bb0| 42 25 3d 26 46 37 0d 17 | 02 0b 20 20 42 25 2b 3d |B%=&F7..|.. B%+=|
|00002bc0| 31 0d 17 0c 12 20 20 f2 | 7a 61 70 28 32 31 2c 26 |1.... .|zap(21,&|
|00002bd0| 34 45 29 0d 17 16 10 20 | 20 f2 7a 61 70 28 31 31 |4E).... | .zap(11|
|00002be0| 2c 30 29 0d 17 20 11 20 | 20 f2 7a 61 70 28 32 2c |,0).. . | .zap(2,|
|00002bf0| 26 46 35 29 0d 17 2a 0d | 20 20 3f 42 25 3d 26 46 |&F5)..*.| ?B%=&F|
|00002c00| 42 0d 17 34 0b 20 20 42 | 25 2b 3d 31 0d 17 3e 13 |B..4. B|%+=1..>.|
|00002c10| 20 20 f2 7a 61 70 28 35 | 31 31 2c 26 45 35 29 0d | .zap(5|11,&E5).|
|00002c20| 17 48 0d 20 20 3f 42 25 | 3d 26 46 37 0d 17 52 0b |.H. ?B%|=&F7..R.|
|00002c30| 20 20 42 25 2b 3d 31 0d | 17 5c 12 20 20 f2 7a 61 | B%+=1.|.\. .za|
|00002c40| 70 28 33 39 2c 26 34 45 | 29 0d 17 66 06 20 ed 0d |p(39,&4E|)..f. ..|
|00002c50| 17 70 13 20 f2 7a 61 70 | 28 31 34 30 30 2c 26 34 |.p. .zap|(1400,&4|
|00002c60| 45 29 0d 17 7a 05 e1 0d | 17 84 04 0d 17 8e 04 0d |E)..z...|........|
|00002c70| 17 98 13 dd 20 f2 7a 61 | 70 28 63 6f 75 6e 74 2c |.... .za|p(count,|
|00002c80| 76 29 0d 17 a2 08 20 ea | 20 7a 0d 17 ac 12 20 e3 |v).... .| z.... .|
|00002c90| 20 7a 3d 30 20 b8 20 63 | 6f 75 6e 74 0d 17 b6 0e | z=0 . c|ount....|
|00002ca0| 20 20 42 25 3f 7a 20 3d | 20 76 0d 17 c0 06 20 ed | B%?z =| v.... .|
|00002cb0| 0d 17 ca 10 20 42 25 2b | 3d 63 6f 75 6e 74 2b 31 |.... B%+|=count+1|
|00002cc0| 0d 17 d4 05 e1 0d 17 de | 04 0d 17 e8 04 0d 17 f2 |........|........|
|00002cd0| 0f dd 20 f2 7a 61 70 5f | 62 6f 6f 74 0d 17 fc 24 |.. .zap_|boot...$|
|00002ce0| 20 ea 20 64 69 73 63 5f | 61 64 64 72 2c 6d 65 6d | . disc_|addr,mem|
|00002cf0| 5f 61 64 64 72 2c 74 72 | 61 63 6b 2c 68 65 61 64 |_addr,tr|ack,head|
|00002d00| 0d 18 06 12 20 f2 73 65 | 74 75 70 5f 66 6f 72 6d |.... .se|tup_form|
|00002d10| 61 74 0d 18 10 18 20 64 | 69 73 63 72 65 63 6f 72 |at.... d|iscrecor|
|00002d20| 64 3f 31 20 20 20 3d 20 | 31 30 0d 18 1a 1e 20 64 |d?1 = |10.... d|
|00002d30| 69 73 63 72 65 63 6f 72 | 64 21 26 31 30 20 3d 20 |iscrecor|d!&10 = |
|00002d40| 38 30 30 2a 31 30 32 34 | 0d 18 24 12 20 e3 20 74 |800*1024|..$. . t|
|00002d50| 72 61 63 6b 3d 30 20 b8 | 20 31 0d 18 2e 12 20 20 |rack=0 .| 1.... |
|00002d60| e3 20 68 65 61 64 3d 30 | 20 b8 20 31 0d 18 38 2a |. head=0| . 1..8*|
|00002d70| 20 20 20 64 69 73 63 5f | 61 64 64 72 3d 28 28 74 | disc_|addr=((t|
|00002d80| 72 61 63 6b 2a 32 2b 68 | 65 61 64 29 2a 31 30 2b |rack*2+h|ead)*10+|
|00002d90| 31 29 2a 35 31 32 0d 18 | 42 26 20 20 20 6d 65 6d |1)*512..|B& mem|
|00002da0| 5f 61 64 64 72 3d 62 6f | 6f 74 64 61 74 61 2b 64 |_addr=bo|otdata+d|
|00002db0| 69 73 63 5f 61 64 64 72 | 2d 35 31 32 0d 18 4c 4a |isc_addr|-512..LJ|
|00002dc0| 20 20 20 c8 99 20 22 41 | 44 46 53 5f 44 69 73 63 | .. "A|DFS_Disc|
|00002dd0| 4f 70 22 2c 2c 72 65 61 | 73 6f 6e 63 6f 64 65 2b |Op",,rea|soncode+|
|00002de0| 32 2c 28 64 72 69 76 65 | 3c 3c 32 39 29 2b 64 69 |2,(drive|<<29)+di|
|00002df0| 73 63 5f 61 64 64 72 2c | 6d 65 6d 5f 61 64 64 72 |sc_addr,|mem_addr|
|00002e00| 2c 39 2a 35 31 32 0d 18 | 56 07 20 20 ed 0d 18 60 |,9*512..|V. ...`|
|00002e10| 06 20 ed 0d 18 6a 05 e1 | 0d 18 74 04 0d 18 7e 04 |. ...j..|..t...~.|
|00002e20| 0d 18 88 18 dd 20 f2 72 | 65 61 64 5f 74 72 61 63 |..... .r|ead_trac|
|00002e30| 6b 28 54 25 2c 48 25 29 | 0d 18 92 15 20 ea 20 64 |k(T%,H%)|.... . d|
|00002e40| 69 73 63 5f 61 64 64 72 | 2c 66 6c 61 67 0d 18 9c |isc_addr|,flag...|
|00002e50| 17 20 66 6c 61 67 20 20 | 20 20 20 20 20 20 20 20 |. flag | |
|00002e60| 20 3d 20 30 0d 18 a6 18 | 20 64 69 73 63 72 65 63 | = 0....| discrec|
|00002e70| 6f 72 64 3f 31 20 20 20 | 3d 20 31 30 0d 18 b0 1e |ord?1 |= 10....|
|00002e80| 20 64 69 73 63 72 65 63 | 6f 72 64 21 26 31 30 20 | discrec|ord!&10 |
|00002e90| 3d 20 31 36 30 30 2a 35 | 31 32 0d 18 ba 2e 20 64 |= 1600*5|12.... d|
|00002ea0| 69 73 63 5f 61 64 64 72 | 20 20 20 20 20 20 3d 20 |isc_addr| = |
|00002eb0| 28 28 28 54 25 2a 32 2b | 48 25 29 2a 31 30 29 2a |(((T%*2+|H%)*10)*|
|00002ec0| 35 31 32 29 2b 35 31 32 | 0d 18 c4 52 20 c8 99 20 |512)+512|...R .. |
|00002ed0| 22 58 41 44 46 53 5f 44 | 69 73 63 4f 70 22 2c 2c |"XADFS_D|iscOp",,|
|00002ee0| 72 65 61 73 6f 6e 63 6f | 64 65 2b 31 2c 28 64 72 |reasonco|de+1,(dr|
|00002ef0| 69 76 65 3c 3c 32 39 29 | 2b 64 69 73 63 5f 61 64 |ive<<29)|+disc_ad|
|00002f00| 64 72 2c 72 65 61 64 62 | 75 66 66 65 72 2c 39 2a |dr,readb|uffer,9*|
|00002f10| 35 31 32 20 b8 20 66 6c | 61 67 0d 18 ce 1d 20 e7 |512 . fl|ag.... .|
|00002f20| 20 66 6c 61 67 3c 3e 30 | 20 65 72 72 6f 72 24 20 | flag<>0| error$ |
|00002f30| 3d 20 22 42 41 44 22 0d | 18 d8 17 20 64 69 73 63 |= "BAD".|... disc|
|00002f40| 72 65 63 6f 72 64 3f 31 | 20 20 20 3d 20 39 0d 18 |record?1| = 9..|
|00002f50| e2 20 20 64 69 73 63 72 | 65 63 6f 72 64 21 26 31 |. discr|ecord!&1|
|00002f60| 30 20 3d 20 38 30 2a 32 | 2a 39 2a 35 31 32 0d 18 |0 = 80*2|*9*512..|
|00002f70| ec 05 e1 0d 18 f6 04 0d | 19 00 21 dd 20 a4 67 65 |........|..!. .ge|
|00002f80| 74 68 65 6c 70 28 78 2c | 79 2c 62 2c 77 69 6e 64 |thelp(x,|y,b,wind|
|00002f90| 6f 77 2c 69 63 6f 6e 29 | 0d 19 0a 0c 20 ea 20 68 |ow,icon)|.... . h|
|00002fa0| 65 6c 70 24 0d 19 14 26 | 20 68 65 6c 70 24 3d 22 |elp$...&| help$="|
|00002fb0| 55 6e 6c 75 63 6b 79 20 | 44 4f 52 4b 20 6e 6f 20 |Unlucky |DORK no |
|00002fc0| 48 45 4c 50 20 79 65 74 | 2e 22 0d 19 1e 04 0d 19 |HELP yet|."......|
|00002fd0| 28 10 20 c8 8e 20 77 69 | 6e 64 6f 77 20 ca 0d 19 |(. .. wi|ndow ...|
|00002fe0| 32 3a 20 20 c9 20 69 63 | 6f 6e 62 61 72 20 3a 20 |2: . ic|onbar : |
|00002ff0| 3d 22 43 6c 69 63 6b 20 | 73 65 6c 65 63 74 20 74 |="Click |select t|
|00003000| 6f 20 62 72 69 6e 67 20 | 75 70 20 6d 61 69 6e 20 |o bring |up main |
|00003010| 77 69 6e 64 6f 77 2e 22 | 0d 19 3c 10 20 20 c9 20 |window."|..<. . |
|00003020| 66 6f 72 6d 61 74 20 3a | 0d 19 46 10 20 20 20 c8 |format :|..F. .|
|00003030| 8e 20 69 63 6f 6e 20 ca | 0d 19 50 56 20 20 20 20 |. icon .|..PV |
|00003040| c9 20 30 2c 31 2c 32 2c | 33 20 3a 20 3d 22 54 68 |. 0,1,2,|3 : ="Th|
|00003050| 69 73 20 77 69 6c 6c 20 | 73 65 6c 65 63 74 20 74 |is will |select t|
|00003060| 68 65 20 61 70 70 72 6f | 70 69 61 74 65 20 64 72 |he appro|piate dr|
|00003070| 69 76 65 20 66 6f 72 20 | 74 68 65 20 66 6f 72 6d |ive for |the form|
|00003080| 61 74 20 6f 70 65 72 61 | 74 69 6f 6e 2e 22 0d 19 |at opera|tion."..|
|00003090| 5a 3e 20 20 20 20 c9 20 | 34 20 3a 20 3d 22 54 68 |Z> . |4 : ="Th|
|000030a0| 69 73 20 6f 70 74 69 6f | 6e 20 74 6f 67 67 6c 65 |is optio|n toggle|
|000030b0| 73 20 74 68 65 20 66 6f | 72 6d 61 74 74 69 6e 67 |s the fo|rmatting|
|000030c0| 20 6f 6e 20 6f 72 20 6f | 66 66 2e 22 0d 19 64 3d | on or o|ff."..d=|
|000030d0| 20 20 20 20 c9 20 35 20 | 3a 20 3d 22 54 68 69 73 | . 5 |: ="This|
|000030e0| 20 6f 70 74 69 6f 6e 20 | 74 6f 67 67 6c 65 73 20 | option |toggles |
|000030f0| 74 68 65 20 76 65 72 69 | 66 79 69 6e 67 20 6f 6e |the veri|fying on|
|00003100| 20 6f 72 20 6f 66 66 2e | 22 0d 19 6e 2b 20 20 20 | or off.|"..n+ |
|00003110| 20 c9 20 36 20 3a 20 3d | 22 54 68 69 73 20 69 73 | . 6 : =|"This is|
|00003120| 20 74 68 65 20 73 74 61 | 74 75 73 20 77 69 6e 64 | the sta|tus wind|
|00003130| 6f 77 2e 22 0d 19 78 46 | 20 20 20 20 c9 20 39 20 |ow."..xF| . 9 |
|00003140| 3a 20 3d 22 54 68 69 73 | 20 77 69 6c 6c 20 73 74 |: ="This| will st|
|00003150| 61 72 74 20 74 68 65 20 | 66 6f 72 6d 61 74 74 69 |art the |formatti|
|00003160| 6e 67 2f 76 65 72 69 66 | 79 69 6e 67 20 6f 70 65 |ng/verif|ying ope|
|00003170| 72 61 74 69 6f 6e 2f 73 | 2e 22 0d 19 82 39 20 20 |ration/s|."...9 |
|00003180| 20 20 c9 20 31 30 20 3a | 20 3d 22 54 68 69 73 20 | . 10 :| ="This |
|00003190| 77 69 6c 6c 20 63 61 6e | 63 65 6c 20 74 68 65 20 |will can|cel the |
|000031a0| 63 75 72 72 65 6e 74 20 | 6f 70 65 72 61 74 69 6f |current |operatio|
|000031b0| 6e 2e 22 0d 19 8c 08 20 | 20 20 cb 0d 19 96 06 20 |n.".... | ..... |
|000031c0| cb 0d 19 a0 04 0d 19 aa | 0a 3d 68 65 6c 70 24 0d |........|.=help$.|
|000031d0| ff | |. | |
+--------+-------------------------+-------------------------+--------+--------+
