/ The Datafile PD-CD 2 / DATAFILE_PDCD2.iso / utilities / _diskcopy / !DiskCopy / !RunIm

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 1c f4 20 3e 24 | 2e 21 44 69 73 6b 43 6f |..... >$|.!DiskCo|
|00000010| 70 79 2e 21 52 75 6e 49 | 6d 61 67 65 0d 00 14 34 |py.!RunI|mage...4|
|00000020| f4 20 4d 61 69 6e 20 50 | 72 6f 67 72 61 6d 20 66 |. Main P|rogram f|
|00000030| 6f 72 20 22 21 44 69 73 | 6b 43 6f 70 79 22 20 44 |or "!Dis|kCopy" D|
|00000040| 69 73 6b 20 43 6f 70 79 | 20 50 72 6f 67 72 61 6d |isk Copy| Program|
|00000050| 0d 00 1e 2a f4 20 56 65 | 72 73 69 6f 6e 20 31 2e |...*. Ve|rsion 1.|
|00000060| 30 30 20 4c 61 73 74 20 | 55 70 64 61 74 65 64 20 |00 Last |Updated |
|00000070| 32 38 20 4d 61 72 20 27 | 39 32 0d 00 28 1c f4 20 |28 Mar '|92..(.. |
|00000080| a9 20 4a 2e 20 52 4f 42 | 42 49 4e 53 20 2d 20 54 |. J. ROB|BINS - T|
|00000090| 45 43 53 4f 46 54 0d 00 | 32 05 3a 0d 00 3c 12 62 |ECSOFT..|2.:..<.b|
|000000a0| 75 66 66 65 72 73 69 7a | 65 3d 38 30 30 0d 00 46 |uffersiz|e=800..F|
|000000b0| 20 63 75 72 72 25 3d 30 | 3a 6a 72 63 68 65 63 6b | curr%=0|:jrcheck|
|000000c0| 65 64 3d 30 3a 6a 72 66 | 6f 72 6d 3d 30 0d 00 50 |ed=0:jrf|orm=0..P|
|000000d0| 0d 20 6d 65 6d 25 3d 38 | 30 30 0d 00 5a 37 de 20 |. mem%=8|00..Z7. |
|000000e0| 62 6c 6f 63 6b 20 26 31 | 30 30 30 2c 20 6d 65 6e |block &1|000, men|
|000000f0| 75 25 20 31 30 32 34 2c | 63 75 72 62 75 66 25 20 |u% 1024,|curbuf% |
|00000100| 26 31 30 30 30 2c 69 63 | 6f 6e 64 20 26 31 30 30 |&1000,ic|ond &100|
|00000110| 30 0d 00 64 35 de 20 68 | 65 61 64 28 31 35 39 29 |0..d5. h|ead(159)|
|00000120| 2c 20 64 65 66 65 63 74 | 25 20 26 34 30 2c 20 6d |, defect|% &40, m|
|00000130| 65 6d 6f 72 79 25 20 62 | 75 66 66 65 72 73 69 7a |emory% b|uffersiz|
|00000140| 65 2a 26 34 30 30 0d 00 | 6e 14 20 e3 20 78 25 3d |e*&400..|n. . x%=|
|00000150| 30 20 b8 20 36 33 20 88 | 20 34 0d 00 78 11 20 64 |0 . 63 .| 4..x. d|
|00000160| 65 66 65 63 74 25 21 78 | 25 3d 30 0d 00 82 09 20 |efect%!x|%=0.... |
|00000170| ed 20 78 25 0d 00 8c 11 | 20 ee 85 f2 65 72 72 28 |. x%....| ...err(|
|00000180| f6 24 29 3a e0 0d 00 96 | 19 65 6e 64 62 75 66 25 |.$):....|.endbuf%|
|00000190| 3d 63 75 72 62 75 66 25 | 2b 26 36 30 30 30 0d 00 |=curbuf%|+&6000..|
|000001a0| a0 48 c8 99 20 22 57 69 | 6d 70 5f 49 6e 69 74 69 |.H.. "Wi|mp_Initi|
|000001b0| 61 6c 69 73 65 22 2c 32 | 30 30 2c 26 34 42 35 33 |alise",2|00,&4B53|
|000001c0| 34 31 35 34 2c 22 44 69 | 73 6b 20 43 6f 70 79 69 |4154,"Di|sk Copyi|
|000001d0| 65 72 22 20 b8 20 76 65 | 72 73 69 6f 6e 25 2c 6d |er" . ve|rsion%,m|
|000001e0| 79 74 61 73 6b 25 0d 00 | aa 0d f2 74 65 6d 70 6c |ytask%..|...templ|
|000001f0| 61 74 65 0d 00 b4 44 69 | 6e 69 74 69 63 3d a4 69 |ate...Di|nitic=.i|
|00000200| 63 6f 6e 62 61 72 28 25 | 31 31 30 31 30 2c 2d 31 |conbar(%|11010,-1|
|00000210| 2c 37 2c 30 2c 22 21 44 | 69 73 6b 43 6f 70 79 22 |,7,0,"!D|iskCopy"|
|00000220| 2b bd 31 33 2c 30 2c 30 | 2c 30 2c 33 2c 30 2c 30 |+.13,0,0|,0,3,0,0|
|00000230| 2c 36 38 2c 36 38 29 0d | 00 be 44 65 6e 64 25 3d |,68,68).|..Dend%=|
|00000240| a3 3a 64 72 61 67 25 3d | 30 3a 73 61 76 69 6e 67 |.:drag%=|0:saving|
|00000250| 25 3d 30 3a 61 63 6b 25 | 3d a3 3a 6b 65 79 70 6f |%=0:ack%|=.:keypo|
|00000260| 73 3d 2d 31 3a 6b 65 79 | 74 6f 75 73 65 3d 2d 31 |s=-1:key|touse=-1|
|00000270| 3a 6d 6f 64 69 66 69 65 | 64 3d 30 0d 00 c8 05 3a |:modifie|d=0....:|
|00000280| 0d 00 d2 05 f5 0d 00 dc | 5a e7 20 6b 65 79 70 6f |........|Z. keypo|
|00000290| 73 3c 3e 2d 31 20 8c 20 | c8 99 20 22 57 69 6d 70 |s<>-1 . |.. "Wimp|
|000002a0| 5f 50 6f 6c 6c 22 2c 30 | 2c 62 6c 6f 63 6b 20 b8 |_Poll",0|,block .|
|000002b0| 20 65 76 65 6e 74 63 6f | 64 65 20 8b 20 c8 99 20 | eventco|de . .. |
|000002c0| 22 57 69 6d 70 5f 50 6f | 6c 6c 22 2c 31 2c 62 6c |"Wimp_Po|ll",1,bl|
|000002d0| 6f 63 6b 20 b8 20 65 76 | 65 6e 74 63 6f 64 65 0d |ock . ev|entcode.|
|000002e0| 00 e6 1d e7 20 6b 65 79 | 70 6f 73 3c 3e 2d 31 20 |.... key|pos<>-1 |
|000002f0| 8c 20 f2 61 64 64 6c 65 | 74 74 65 72 0d 00 f0 12 |. .addle|tter....|
|00000300| c8 8e 20 65 76 65 6e 74 | 63 6f 64 65 20 ca 0d 00 |.. event|code ...|
|00000310| fa 08 c9 20 30 3a 0d 01 | 04 2d c9 20 31 3a c8 99 |... 0:..|.-. 1:..|
|00000320| 20 22 57 69 6d 70 5f 52 | 65 64 72 61 77 57 69 6e | "Wimp_R|edrawWin|
|00000330| 64 6f 77 22 2c 2c 62 6c | 6f 63 6b 20 b8 20 6d 6f |dow",,bl|ock . mo|
|00000340| 72 65 25 0d 01 0e 23 c9 | 20 32 3a c8 99 20 22 57 |re%...#.| 2:.. "W|
|00000350| 69 6d 70 5f 4f 70 65 6e | 57 69 6e 64 6f 77 22 2c |imp_Open|Window",|
|00000360| 2c 62 6c 6f 63 6b 0d 01 | 18 24 c9 20 33 3a c8 99 |,block..|.$. 3:..|
|00000370| 20 22 57 69 6d 70 5f 43 | 6c 6f 73 65 57 69 6e 64 | "Wimp_C|loseWind|
|00000380| 6f 77 22 2c 2c 62 6c 6f | 63 6b 0d 01 22 17 c9 20 |ow",,blo|ck..".. |
|00000390| 36 3a f2 62 75 74 74 6f | 6e 73 28 62 6c 6f 63 6b |6:.butto|ns(block|
|000003a0| 29 0d 01 2c 08 20 c9 20 | 37 0d 01 36 13 c9 20 38 |)..,. . |7..6.. 8|
|000003b0| 3a f2 70 72 6f 63 65 73 | 73 6b 65 79 0d 01 40 0f |:.proces|skey..@.|
|000003c0| c9 20 39 3a f2 64 65 63 | 6f 64 65 0d 01 4a 0c 20 |. 9:.dec|ode..J. |
|000003d0| c9 20 31 37 2c 31 38 0d | 01 54 05 cb 0d 01 5e 0a |. 17,18.|.T....^.|
|000003e0| fd 20 65 6e 64 25 0d 01 | 68 05 e0 0d 01 72 34 dd |. end%..|h....r4.|
|000003f0| f2 6f 70 65 6e 28 68 61 | 6e 64 6c 65 2c 76 6d 69 |.open(ha|ndle,vmi|
|00000400| 6e 78 2c 76 6d 69 6e 79 | 2c 76 6d 61 78 78 2c 76 |nx,vminy|,vmaxx,v|
|00000410| 6d 61 78 79 2c 78 6f 66 | 66 2c 79 6f 66 66 29 0d |maxy,xof|f,yoff).|
|00000420| 01 7c 3c 21 62 6c 6f 63 | 6b 3d 68 61 6e 64 6c 65 |.|<!bloc|k=handle|
|00000430| 3a 62 6c 6f 63 6b 21 34 | 3d 76 6d 69 6e 78 3a 62 |:block!4|=vminx:b|
|00000440| 6c 6f 63 6b 21 38 3d 76 | 6d 69 6e 79 3a 62 6c 6f |lock!8=v|miny:blo|
|00000450| 63 6b 21 31 32 3d 76 6d | 61 78 78 0d 01 86 3a 62 |ck!12=vm|axx...:b|
|00000460| 6c 6f 63 6b 21 31 36 3d | 76 6d 61 78 79 3a 62 6c |lock!16=|vmaxy:bl|
|00000470| 6f 63 6b 21 32 30 3d 78 | 6f 66 66 3a 62 6c 6f 63 |ock!20=x|off:bloc|
|00000480| 6b 21 32 34 3d 79 6f 66 | 66 3a 62 6c 6f 63 6b 21 |k!24=yof|f:block!|
|00000490| 32 38 3d 2d 31 0d 01 90 | 1f c8 99 20 22 57 69 6d |28=-1...|... "Wim|
|000004a0| 70 5f 4f 70 65 6e 57 69 | 6e 64 6f 77 22 2c 2c 62 |p_OpenWi|ndow",,b|
|000004b0| 6c 6f 63 6b 0d 01 9a 05 | e1 0d 01 a4 4b dd a4 69 |lock....|....K..i|
|000004c0| 63 6f 6e 62 61 72 28 66 | 6c 61 67 73 2c 70 61 72 |conbar(f|lags,par|
|000004d0| 74 2c 66 6f 72 2c 62 61 | 63 2c 64 61 74 61 24 2c |t,for,ba|c,data$,|
|000004e0| 61 64 64 2c 61 64 64 32 | 2c 6c 65 6e 67 74 68 2c |add,add2|,length,|
|000004f0| 6d 6f 75 73 65 2c 78 73 | 31 2c 79 73 31 2c 78 73 |mouse,xs|1,ys1,xs|
|00000500| 2c 79 73 29 0d 01 ae 0f | 21 69 63 6f 6e 64 3d 70 |,ys)....|!icond=p|
|00000510| 61 72 74 0d 01 b8 0f 69 | 63 6f 6e 64 21 34 3d 78 |art....i|cond!4=x|
|00000520| 73 31 0d 01 c2 27 69 63 | 6f 6e 64 21 38 3d 79 73 |s1...'ic|ond!8=ys|
|00000530| 31 3a 69 63 6f 6e 64 21 | 31 32 3d 78 73 3a 69 63 |1:icond!|12=xs:ic|
|00000540| 6f 6e 64 21 31 36 3d 79 | 73 0d 01 cc 35 69 63 6f |ond!16=y|s...5ico|
|00000550| 6e 64 21 32 30 3d 66 6c | 61 67 73 2b 28 28 32 5e |nd!20=fl|ags+((2^|
|00000560| 31 32 29 2a 6d 6f 75 73 | 65 29 3a 69 63 6f 6e 64 |12)*mous|e):icond|
|00000570| 3f 32 33 3d 66 6f 72 2b | 62 61 63 2a 31 36 0d 01 |?23=for+|bac*16..|
|00000580| d6 50 e7 20 64 61 74 61 | 24 3c 3e 22 22 20 8c 20 |.P. data|$<>"" . |
|00000590| 24 28 69 63 6f 6e 64 2b | 32 34 29 3d 64 61 74 61 |$(icond+|24)=data|
|000005a0| 24 20 8b 20 69 63 6f 6e | 64 21 32 34 3d 61 64 64 |$ . icon|d!24=add|
|000005b0| 3a 69 63 6f 6e 64 21 32 | 38 3d 61 64 64 32 3a 69 |:icond!2|8=add2:i|
|000005c0| 63 6f 6e 64 21 33 32 3d | 6c 65 6e 67 74 68 0d 01 |cond!32=|length..|
|000005d0| e0 26 c8 99 20 22 57 69 | 6d 70 5f 43 72 65 61 74 |.&.. "Wi|mp_Creat|
|000005e0| 65 49 63 6f 6e 22 2c 2c | 69 63 6f 6e 64 20 b8 20 |eIcon",,|icond . |
|000005f0| 69 63 6f 6e 0d 01 ea 09 | 3d 69 63 6f 6e 0d 01 f4 |icon....|=icon...|
|00000600| 12 dd a4 74 65 6d 70 6c | 61 74 65 28 61 24 29 0d |...templ|ate(a$).|
|00000610| 01 fe 47 c8 99 20 22 57 | 69 6d 70 5f 4c 6f 61 64 |..G.. "W|imp_Load|
|00000620| 54 65 6d 70 6c 61 74 65 | 22 2c 2c 62 6c 6f 63 6b |Template|",,block|
|00000630| 2c 69 6e 64 69 72 2c 65 | 6e 64 62 75 66 25 2c 2d |,indir,e|ndbuf%,-|
|00000640| 31 2c 61 24 2c 30 20 b8 | 20 2c 2c 69 6e 64 69 72 |1,a$,0 .| ,,indir|
|00000650| 2c 2c 2c 2c 63 25 0d 02 | 08 30 e7 20 63 25 3d 30 |,,,,c%..|.0. c%=0|
|00000660| 20 8c 20 ef 34 3a f1 20 | 22 54 65 6d 70 6c 61 74 | . .4:. |"Templat|
|00000670| 65 20 22 3b 61 24 3b 22 | 20 6e 6f 74 20 66 6f 75 |e ";a$;"| not fou|
|00000680| 6e 64 2e 22 3a e0 0d 02 | 12 0e 62 6c 6f 63 6b 21 |nd.":...|..block!|
|00000690| 36 34 3d 31 0d 02 1c 2a | c8 99 20 22 57 69 6d 70 |64=1...*|.. "Wimp|
|000006a0| 5f 43 72 65 61 74 65 57 | 69 6e 64 6f 77 22 2c 2c |_CreateW|indow",,|
|000006b0| 62 6c 6f 63 6b 20 b8 20 | 68 61 6e 64 6c 65 0d 02 |block . |handle..|
|000006c0| 26 0b 3d 68 61 6e 64 6c | 65 0d 02 30 0e dd f2 6d |&.=handl|e..0...m|
|000006d0| 6f 61 6e 28 61 24 29 0d | 02 3a 1d 21 69 63 6f 6e |oan(a$).|.:.!icon|
|000006e0| 64 3d 30 3a 24 28 69 63 | 6f 6e 64 2b 34 29 3d 61 |d=0:$(ic|ond+4)=a|
|000006f0| 24 2b bd 30 0d 02 44 2d | c8 99 20 22 57 69 6d 70 |$+.0..D-|.. "Wimp|
|00000700| 5f 52 65 70 6f 72 74 45 | 72 72 6f 72 22 2c 69 63 |_ReportE|rror",ic|
|00000710| 6f 6e 64 2c 31 2c 22 21 | 44 69 73 6b 43 6f 70 79 |ond,1,"!|DiskCopy|
|00000720| 22 0d 02 4e 05 e1 0d 02 | 58 0d dd a4 73 74 72 28 |"..N....|X...str(|
|00000730| 61 25 29 0d 02 62 08 ea | 20 62 24 0d 02 6c 0e c8 |a%)..b..| b$..l..|
|00000740| 95 20 3f 61 25 3e 3d 33 | 32 0d 02 76 0e 62 24 2b |. ?a%>=3|2..v.b$+|
|00000750| 3d bd 28 3f 61 25 29 0d | 02 80 09 61 25 2b 3d 31 |=.(?a%).|...a%+=1|
|00000760| 0d 02 8a 05 ce 0d 02 94 | 07 3d 62 24 0d 02 9e 16 |........|.=b$....|
|00000770| dd a4 74 61 64 28 68 61 | 6e 64 6c 65 2c 69 63 6f |..tad(ha|ndle,ico|
|00000780| 6e 29 0d 02 a8 15 f2 67 | 69 69 28 68 61 6e 64 6c |n).....g|ii(handl|
|00000790| 65 2c 69 63 6f 6e 29 0d | 02 b2 0d 3d 69 63 6f 6e |e,icon).|...=icon|
|000007a0| 64 21 32 38 0d 02 bc 16 | dd f2 67 69 69 28 68 61 |d!28....|..gii(ha|
|000007b0| 6e 64 6c 65 2c 69 63 6f | 6e 29 0d 02 c6 1e 21 69 |ndle,ico|n)....!i|
|000007c0| 63 6f 6e 64 3d 68 61 6e | 64 6c 65 3a 69 63 6f 6e |cond=han|dle:icon|
|000007d0| 64 21 34 3d 69 63 6f 6e | 0d 02 d0 21 c8 99 20 22 |d!4=icon|...!.. "|
|000007e0| 57 69 6d 70 5f 47 65 74 | 49 63 6f 6e 53 74 61 74 |Wimp_Get|IconStat|
|000007f0| 65 22 2c 2c 69 63 6f 6e | 64 0d 02 da 05 e1 0d 02 |e",,icon|d.......|
|00000800| e4 19 dd f2 6f 70 65 6e | 77 69 6e 64 6f 77 28 68 |....open|window(h|
|00000810| 61 6e 64 6c 65 25 29 0d | 02 ee 12 21 69 63 6f 6e |andle%).|...!icon|
|00000820| 64 3d 68 61 6e 64 6c 65 | 25 0d 02 f8 22 c8 99 20 |d=handle|%...".. |
|00000830| 22 57 69 6d 70 5f 47 65 | 74 57 69 6e 64 6f 77 49 |"Wimp_Ge|tWindowI|
|00000840| 6e 66 6f 22 2c 2c 69 63 | 6f 6e 64 0d 03 02 1f c8 |nfo",,ic|ond.....|
|00000850| 99 20 22 57 69 6d 70 5f | 4f 70 65 6e 57 69 6e 64 |. "Wimp_|OpenWind|
|00000860| 6f 77 22 2c 2c 69 63 6f | 6e 64 0d 03 0c 05 e1 0d |ow",,ico|nd......|
|00000870| 03 16 20 dd f2 61 6c 74 | 65 72 28 68 61 6e 64 2c |.. ..alt|er(hand,|
|00000880| 69 63 6f 6e 2c 65 6f 72 | 2c 63 6c 65 61 72 29 0d |icon,eor|,clear).|
|00000890| 03 20 1c 21 69 63 6f 6e | 64 3d 68 61 6e 64 3a 69 |. .!icon|d=hand:i|
|000008a0| 63 6f 6e 64 21 34 3d 69 | 63 6f 6e 0d 03 2a 1e 69 |cond!4=i|con..*.i|
|000008b0| 63 6f 6e 64 21 38 3d 65 | 6f 72 3a 69 63 6f 6e 64 |cond!8=e|or:icond|
|000008c0| 21 31 32 3d 63 6c 65 61 | 72 0d 03 34 21 c8 99 20 |!12=clea|r..4!.. |
|000008d0| 22 57 69 6d 70 5f 53 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Se|tIconSta|
|000008e0| 74 65 22 2c 2c 69 63 6f | 6e 64 0d 03 3e 05 e1 0d |te",,ico|nd..>...|
|000008f0| 03 48 12 dd f2 73 74 61 | 74 65 28 77 69 2c 69 63 |.H...sta|te(wi,ic|
|00000900| 29 0d 03 52 18 21 62 6c | 6f 63 6b 3d 77 69 3a 62 |)..R.!bl|ock=wi:b|
|00000910| 6c 6f 63 6b 21 34 3d 69 | 63 0d 03 5c 21 c8 99 20 |lock!4=i|c..\!.. |
|00000920| 22 57 69 6d 70 5f 47 65 | 74 49 63 6f 6e 53 74 61 |"Wimp_Ge|tIconSta|
|00000930| 74 65 22 2c 2c 62 6c 6f | 63 6b 0d 03 66 05 e1 0d |te",,blo|ck..f...|
|00000940| 03 70 13 dd a4 73 65 6c | 65 63 74 28 77 69 2c 69 |.p...sel|ect(wi,i|
|00000950| 63 29 0d 03 7a 11 f2 73 | 74 61 74 65 28 77 69 2c |c)..z..s|tate(wi,|
|00000960| 69 63 29 0d 03 84 22 e7 | 20 28 28 62 6c 6f 63 6b |ic)...".| ((block|
|00000970| 21 32 34 29 20 80 20 31 | 3c 3c 32 31 29 3e 30 20 |!24) . 1|<<21)>0 |
|00000980| 8c 20 3d 2d 31 0d 03 8e | 06 3d 30 0d 03 98 0d dd |. =-1...|.=0.....|
|00000990| a4 62 69 74 28 61 24 29 | 0d 03 a2 11 c8 95 20 a7 |.bit(a$)|...... .|
|000009a0| 61 24 2c 22 3a 22 29 3e | 30 0d 03 ac 16 61 24 3d |a$,":")>|0....a$=|
|000009b0| c1 61 24 2c a7 61 24 2c | 22 3a 22 29 2b 31 29 0d |.a$,.a$,|":")+1).|
|000009c0| 03 b6 05 ce 0d 03 c0 11 | c8 95 20 a7 61 24 2c 22 |........|.. .a$,"|
|000009d0| 2e 22 29 3e 30 0d 03 ca | 16 61 24 3d c1 61 24 2c |.")>0...|.a$=.a$,|
|000009e0| a7 61 24 2c 22 2e 22 29 | 2b 31 29 0d 03 d4 05 ce |.a$,".")|+1).....|
|000009f0| 0d 03 de 07 3d 61 24 0d | 03 e8 13 dd f2 6f 70 65 |....=a$.|.....ope|
|00000a00| 6e 6d 65 6e 75 28 78 2c | 79 29 0d 03 f2 26 c8 99 |nmenu(x,|y)...&..|
|00000a10| 20 22 57 69 6d 70 5f 43 | 72 65 61 74 65 4d 65 6e | "Wimp_C|reateMen|
|00000a20| 75 22 2c 2c 74 6f 70 6d | 65 6e 75 25 2c 78 2c 79 |u",,topm|enu%,x,y|
|00000a30| 0d 03 fc 05 e1 0d 04 06 | 1e dd a4 6d 65 6e 75 28 |........|...menu(|
|00000a40| 74 69 74 6c 65 24 2c 77 | 69 64 74 68 2c 6d 65 6e |title$,w|idth,men|
|00000a50| 75 24 29 0d 04 10 0e 6d | 65 6e 75 24 2b 3d 22 2c |u$)....m|enu$+=",|
|00000a60| 22 0d 04 1a 13 6f 6c 64 | 6d 65 6e 75 3d 6d 65 6e |"....old|menu=men|
|00000a70| 75 70 74 72 0d 04 24 13 | 24 6d 65 6e 75 70 74 72 |uptr..$.|$menuptr|
|00000a80| 3d 74 69 74 6c 65 24 0d | 04 2e 10 6d 65 6e 75 70 |=title$.|...menup|
|00000a90| 74 72 3f 31 32 3d 37 0d | 04 38 10 6d 65 6e 75 70 |tr?12=7.|.8.menup|
|00000aa0| 74 72 3f 31 33 3d 32 0d | 04 42 10 6d 65 6e 75 70 |tr?13=2.|.B.menup|
|00000ab0| 74 72 3f 31 34 3d 37 0d | 04 4c 10 6d 65 6e 75 70 |tr?14=7.|.L.menup|
|00000ac0| 74 72 3f 31 35 3d 30 0d | 04 56 14 6d 65 6e 75 70 |tr?15=0.|.V.menup|
|00000ad0| 74 72 21 31 36 3d 77 69 | 64 74 68 0d 04 60 11 6d |tr!16=wi|dth..`.m|
|00000ae0| 65 6e 75 70 74 72 21 32 | 30 3d 34 38 0d 04 6a 10 |enuptr!2|0=48..j.|
|00000af0| 6d 65 6e 75 70 74 72 21 | 32 34 3d 30 0d 04 74 0f |menuptr!|24=0..t.|
|00000b00| 6d 65 6e 75 70 74 72 2b | 3d 32 38 0d 04 7e 05 f5 |menuptr+|=28..~..|
|00000b10| 0d 04 88 10 f2 69 74 65 | 6d 28 6d 65 6e 75 24 29 |.....ite|m(menu$)|
|00000b20| 0d 04 92 1f 6d 65 6e 75 | 24 3d c1 6d 65 6e 75 24 |....menu|$=.menu$|
|00000b30| 2c a7 6d 65 6e 75 24 2c | 22 2c 22 29 2b 31 29 0d |,.menu$,|",")+1).|
|00000b40| 04 9c 0f 6d 65 6e 75 70 | 74 72 2b 3d 32 34 0d 04 |...menup|tr+=24..|
|00000b50| a6 0e fd 20 6d 65 6e 75 | 24 3d 22 22 0d 04 b0 29 |... menu|$=""...)|
|00000b60| 6d 65 6e 75 70 74 72 21 | 2d 32 34 3d 28 6d 65 6e |menuptr!|-24=(men|
|00000b70| 75 70 74 72 21 2d 32 34 | 29 20 84 20 25 31 30 30 |uptr!-24|) . %100|
|00000b80| 30 30 30 30 30 0d 04 ba | 0c 3d 6f 6c 64 6d 65 6e |00000...|.=oldmen|
|00000b90| 75 0d 04 c4 0e dd f2 69 | 74 65 6d 28 6d 24 29 0d |u......i|tem(m$).|
|00000ba0| 04 ce 16 6d 24 3d c0 6d | 24 2c a7 6d 24 2c 22 2c |...m$=.m|$,.m$,",|
|00000bb0| 22 29 2d 31 29 0d 04 d8 | 0f 69 24 3d 22 22 3a 6a |")-1)...|.i$="":j|
|00000bc0| 24 3d 22 22 0d 04 e2 12 | e7 20 a7 6d 24 2c 22 5b |$=""....|. .m$,"[|
|00000bd0| 22 29 3e 30 20 8c 0d 04 | ec 16 69 24 3d c0 6d 24 |")>0 ...|..i$=.m$|
|00000be0| 2c a7 6d 24 2c 22 5d 22 | 29 2d 31 29 0d 04 f6 16 |,.m$,"]"|)-1)....|
|00000bf0| 6d 24 3d c1 6d 24 2c a7 | 6d 24 2c 22 5d 22 29 2b |m$=.m$,.|m$,"]")+|
|00000c00| 31 29 0d 05 00 16 6a 24 | 3d c0 69 24 2c a7 69 24 |1)....j$|=.i$,.i$|
|00000c10| 2c 22 2f 22 29 2d 31 29 | 0d 05 0a 16 69 24 3d c1 |,"/")-1)|....i$=.|
|00000c20| 69 24 2c a7 69 24 2c 22 | 2f 22 29 2b 31 29 0d 05 |i$,.i$,"|/")+1)..|
|00000c30| 14 05 cd 0d 05 1e 14 69 | 66 6c 61 67 73 3d 26 30 |.......i|flags=&0|
|00000c40| 37 30 30 30 30 32 31 0d | 05 28 0c 6d 66 6c 61 67 |7000021.|.(.mflag|
|00000c50| 73 3d 30 0d 05 32 0e 73 | 75 62 6d 65 6e 75 3d 2d |s=0..2.s|ubmenu=-|
|00000c60| 31 0d 05 3c 20 e7 20 a7 | 6a 24 2c 22 77 22 29 3e |1..< . .|j$,"w")>|
|00000c70| 30 20 8c 20 73 75 62 6d | 65 6e 75 3d a0 28 69 24 |0 . subm|enu=.(i$|
|00000c80| 29 0d 05 46 20 e7 20 a7 | 6a 24 2c 22 73 22 29 3e |)..F . .|j$,"s")>|
|00000c90| 30 20 8c 20 73 75 62 6d | 65 6e 75 3d a0 28 69 24 |0 . subm|enu=.(i$|
|00000ca0| 29 0d 05 50 24 e7 20 a7 | 6a 24 2c 22 74 22 29 3e |)..P$. .|j$,"t")>|
|00000cb0| 30 20 8c 20 6d 66 6c 61 | 67 73 3d 6d 66 6c 61 67 |0 . mfla|gs=mflag|
|00000cc0| 73 20 84 20 31 0d 05 5a | 24 e7 20 a7 6a 24 2c 22 |s . 1..Z|$. .j$,"|
|00000cd0| 6c 22 29 3e 30 20 8c 20 | 6d 66 6c 61 67 73 3d 6d |l")>0 . |mflags=m|
|00000ce0| 66 6c 61 67 73 20 84 20 | 32 0d 05 64 13 21 6d 65 |flags . |2..d.!me|
|00000cf0| 6e 75 70 74 72 3d 6d 66 | 6c 61 67 73 0d 05 6e 15 |nuptr=mf|lags..n.|
|00000d00| 6d 65 6e 75 70 74 72 21 | 34 3d 73 75 62 6d 65 6e |menuptr!|4=submen|
|00000d10| 75 0d 05 78 14 6d 65 6e | 75 70 74 72 21 38 3d 69 |u..x.men|uptr!8=i|
|00000d20| 66 6c 61 67 73 0d 05 82 | 14 24 28 6d 65 6e 75 70 |flags...|.$(menup|
|00000d30| 74 72 2b 31 32 29 3d 6d | 24 0d 05 8c 05 e1 0d 05 |tr+12)=m|$.......|
|00000d40| 96 14 dd f2 62 75 74 74 | 6f 6e 73 28 62 6c 6f 63 |....butt|ons(bloc|
|00000d50| 6b 29 0d 05 a0 26 e7 20 | 62 6c 6f 63 6b 21 31 32 |k)...&. |block!12|
|00000d60| 3d 2d 32 20 80 20 62 6c | 6f 63 6b 21 38 3d 32 20 |=-2 . bl|ock!8=2 |
|00000d70| f2 6d 65 6e 75 73 3a e1 | 0d 05 aa 34 e7 20 62 6c |.menus:.|...4. bl|
|00000d80| 6f 63 6b 21 31 32 3d 2d | 32 20 80 20 62 6c 6f 63 |ock!12=-|2 . bloc|
|00000d90| 6b 21 38 3c 3e 32 20 f2 | 6f 70 65 6e 77 69 6e 64 |k!8<>2 .|openwind|
|00000da0| 6f 77 28 63 6f 70 79 77 | 69 6e 25 29 0d 05 b4 37 |ow(copyw|in%)...7|
|00000db0| e7 20 62 6c 6f 63 6b 21 | 31 32 3d 63 6f 70 79 77 |. block!|12=copyw|
|00000dc0| 69 6e 25 20 80 20 62 6c | 6f 63 6b 21 31 36 3d 31 |in% . bl|ock!16=1|
|00000dd0| 31 20 8c 20 ff 28 22 46 | 6f 72 6d 61 74 20 30 20 |1 . .("F|ormat 0 |
|00000de0| 4c 22 29 0d 05 be 37 e7 | 20 62 6c 6f 63 6b 21 31 |L")...7.| block!1|
|00000df0| 32 3d 63 6f 70 79 77 69 | 6e 25 20 80 20 62 6c 6f |2=copywi|n% . blo|
|00000e00| 63 6b 21 31 36 3d 31 34 | 20 8c 20 ff 28 22 46 6f |ck!16=14| . .("Fo|
|00000e10| 72 6d 61 74 20 30 20 44 | 22 29 0d 05 c8 37 e7 20 |rmat 0 D|")...7. |
|00000e20| 62 6c 6f 63 6b 21 31 32 | 3d 63 6f 70 79 77 69 6e |block!12|=copywin|
|00000e30| 25 20 80 20 62 6c 6f 63 | 6b 21 31 36 3d 31 36 20 |% . bloc|k!16=16 |
|00000e40| 8c 20 ff 28 22 46 6f 72 | 6d 61 74 20 30 20 45 22 |. .("For|mat 0 E"|
|00000e50| 29 0d 05 d2 35 e7 20 62 | 6c 6f 63 6b 21 31 32 3d |)...5. b|lock!12=|
|00000e60| 63 6f 70 79 77 69 6e 25 | 20 80 20 62 6c 6f 63 6b |copywin%| . block|
|00000e70| 21 31 36 3d 34 20 8c 20 | f2 64 65 74 65 72 6d 69 |!16=4 . |.determi|
|00000e80| 6e 65 73 69 7a 65 0d 05 | dc 31 e7 20 62 6c 6f 63 |nesize..|.1. bloc|
|00000e90| 6b 21 31 32 3d 63 6f 70 | 79 77 69 6e 25 20 80 20 |k!12=cop|ywin% . |
|00000ea0| 62 6c 6f 63 6b 21 31 36 | 3d 37 20 8c 20 f2 63 6f |block!16|=7 . .co|
|00000eb0| 72 72 75 70 74 65 64 0d | 05 e6 32 e7 20 62 6c 6f |rrupted.|..2. blo|
|00000ec0| 63 6b 21 31 32 3d 63 6f | 70 79 77 69 6e 25 20 80 |ck!12=co|pywin% .|
|00000ed0| 20 62 6c 6f 63 6b 21 31 | 36 3d 39 20 8c 20 f2 72 | block!1|6=9 . .r|
|00000ee0| 75 62 62 69 73 68 69 6e | 67 0d 05 f0 2c e7 20 62 |ubbishin|g...,. b|
|00000ef0| 6c 6f 63 6b 21 31 32 3d | 63 6f 70 79 77 69 6e 25 |lock!12=|copywin%|
|00000f00| 20 80 20 62 6c 6f 63 6b | 21 31 36 3d 32 20 8c 20 | . block|!16=2 . |
|00000f10| f2 63 6f 70 79 0d 05 fa | 05 e1 0d 06 04 10 dd f2 |.copy...|........|
|00000f20| 70 72 6f 63 65 73 73 6b | 65 79 0d 06 0e 21 c8 99 |processk|ey...!..|
|00000f30| 20 22 57 69 6d 70 5f 50 | 72 6f 63 65 73 73 4b 65 | "Wimp_P|rocessKe|
|00000f40| 79 22 2c 62 6c 6f 63 6b | 21 32 34 0d 06 18 05 e1 |y",block|!24.....|
|00000f50| 0d 06 22 0b dd f2 6d 65 | 6e 75 73 0d 06 2c 10 6d |.."...me|nus..,.m|
|00000f60| 65 6e 75 6f 70 65 6e 3d | 2d 34 34 0d 06 36 11 6d |enuopen=|-44..6.m|
|00000f70| 65 6e 75 70 74 72 3d 6d | 65 6e 75 25 0d 06 40 0c |enuptr=m|enu%..@.|
|00000f80| c8 97 20 78 2c 79 2c 62 | 0d 06 4a 3d 74 6f 70 6d |.. x,y,b|..J=topm|
|00000f90| 65 6e 75 25 3d a4 6d 65 | 6e 75 28 22 21 44 69 73 |enu%=.me|nu("!Dis|
|00000fa0| 6b 43 6f 70 79 22 2c 31 | 31 30 2c 22 5b 77 2f 69 |kCopy",1|10,"[w/i|
|00000fb0| 6e 66 6f 25 5d 49 6e 66 | 6f 2c 43 6f 70 79 2c 51 |nfo%]Inf|o,Copy,Q|
|00000fc0| 75 69 74 22 29 0d 06 54 | 17 f2 6f 70 65 6e 6d 65 |uit")..T|..openme|
|00000fd0| 6e 75 28 78 2d 37 35 2c | 32 34 30 29 0d 06 5e 05 |nu(x-75,|240)..^.|
|00000fe0| e1 0d 06 68 0c dd f2 64 | 65 63 6f 64 65 0d 06 72 |...h...d|ecode..r|
|00000ff0| 2e c8 99 20 22 57 69 6d | 70 5f 44 65 63 6f 64 65 |... "Wim|p_Decode|
|00001000| 4d 65 6e 75 22 2c 2c 74 | 6f 70 6d 65 6e 75 25 2c |Menu",,t|opmenu%,|
|00001010| 62 6c 6f 63 6b 2c 69 63 | 6f 6e 64 0d 06 7c 1f e7 |block,ic|ond..|..|
|00001020| 20 24 69 63 6f 6e 64 3d | 22 51 75 69 74 22 20 8c | $icond=|"Quit" .|
|00001030| 20 65 6e 64 25 3d b9 3a | ef 34 0d 06 86 23 c8 99 | end%=.:|.4...#..|
|00001040| 20 22 57 69 6d 70 5f 47 | 65 74 50 6f 69 6e 74 65 | "Wimp_G|etPointe|
|00001050| 72 49 6e 66 6f 22 2c 2c | 62 6c 6f 63 6b 0d 06 90 |rInfo",,|block...|
|00001060| 11 e7 20 62 6c 6f 63 6b | 21 38 3d 31 20 8c 0d 06 |.. block|!8=1 ...|
|00001070| 9a 1b e7 20 6d 65 6e 75 | 6f 70 65 6e 3d 2d 34 34 |... menu|open=-44|
|00001080| 20 8c 20 f2 6d 65 6e 75 | 73 0d 06 a4 22 c8 99 20 | . .menu|s...".. |
|00001090| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 4d 65 6e 75 |"Wimp_Cr|eateMenu|
|000010a0| 22 2c 2c 74 6f 70 6d 65 | 6e 75 25 0d 06 ae 05 cc |",,topme|nu%.....|
|000010b0| 0d 06 b8 1c c8 99 20 22 | 57 69 6d 70 5f 43 72 65 |...... "|Wimp_Cre|
|000010c0| 61 74 65 4d 65 6e 75 22 | 2c 2c 2d 31 0d 06 c2 05 |ateMenu"|,,-1....|
|000010d0| cd 0d 06 cc 05 e1 0d 06 | d6 0e dd f2 74 65 6d 70 |........|....temp|
|000010e0| 6c 61 74 65 0d 06 e0 32 | c8 99 20 22 57 69 6d 70 |late...2|.. "Wimp|
|000010f0| 5f 4f 70 65 6e 54 65 6d | 70 6c 61 74 65 22 2c 2c |_OpenTem|plate",,|
|00001100| 22 3c 43 6f 70 79 24 44 | 69 72 3e 2e 54 65 6d 70 |"<Copy$D|ir>.Temp|
|00001110| 6c 61 74 65 73 22 0d 06 | ea 11 69 6e 64 69 72 3d |lates"..|..indir=|
|00001120| 63 75 72 62 75 66 25 0d | 06 f4 1f 69 6e 66 6f 25 |curbuf%.|...info%|
|00001130| 3d a4 74 65 6d 70 6c 61 | 74 65 28 22 50 72 6f 67 |=.templa|te("Prog|
|00001140| 49 6e 66 6f 22 29 0d 06 | fe 1e 63 6f 70 79 77 69 |Info")..|..copywi|
|00001150| 6e 25 3d a4 74 65 6d 70 | 6c 61 74 65 28 22 43 6f |n%=.temp|late("Co|
|00001160| 70 79 22 29 0d 07 08 1b | c8 99 20 22 57 69 6d 70 |py")....|.. "Wimp|
|00001170| 5f 43 6c 6f 73 65 54 65 | 6d 70 6c 61 74 65 22 0d |_CloseTe|mplate".|
|00001180| 07 12 05 e1 0d 07 1c 05 | e1 0d 07 26 0b dd f2 63 |........|...&...c|
|00001190| 6d 65 6e 75 0d 07 30 23 | c8 99 20 22 57 69 6d 70 |menu..0#|.. "Wimp|
|000011a0| 5f 47 65 74 50 6f 69 6e | 74 65 72 49 6e 66 6f 22 |_GetPoin|terInfo"|
|000011b0| 2c 2c 69 63 6f 6e 64 0d | 07 3a 11 e7 20 69 63 6f |,,icond.|.:.. ico|
|000011c0| 6e 64 21 38 3d 31 20 8c | 0d 07 44 1a e7 20 6d 65 |nd!8=1 .|..D.. me|
|000011d0| 6e 75 6f 70 65 6e 3d 2d | 34 34 20 8c 20 f2 6d 65 |nuopen=-|44 . .me|
|000011e0| 6e 75 0d 07 4e 22 c8 99 | 20 22 57 69 6d 70 5f 43 |nu..N"..| "Wimp_C|
|000011f0| 72 65 61 74 65 4d 65 6e | 75 22 2c 2c 74 6f 70 6d |reateMen|u",,topm|
|00001200| 65 6e 75 25 0d 07 58 05 | cc 0d 07 62 1c c8 99 20 |enu%..X.|...b... |
|00001210| 22 57 69 6d 70 5f 43 72 | 65 61 74 65 4d 65 6e 75 |"Wimp_Cr|eateMenu|
|00001220| 22 2c 2c 2d 31 0d 07 6c | 05 cd 0d 07 76 05 e1 0d |",,-1..l|....v...|
|00001230| 07 80 10 dd f2 6b 65 79 | 28 6b 65 79 6e 6f 29 0d |.....key|(keyno).|
|00001240| 07 8a 1e 63 6f 6d 24 3d | 24 a4 74 61 64 28 6b 65 |...com$=|$.tad(ke|
|00001250| 79 73 25 2c 37 39 2b 6b | 65 79 6e 6f 29 0d 07 94 |ys%,79+k|eyno)...|
|00001260| 11 e7 20 63 6f 6d 24 3d | 22 22 20 8c 20 e1 0d 07 |.. com$=|"" . ...|
|00001270| 9e 1f e7 20 a4 73 65 6c | 65 63 74 28 6b 65 79 73 |... .sel|ect(keys|
|00001280| 25 2c 33 39 2b 6b 65 79 | 6e 6f 29 20 8c 0d 07 a8 |%,39+key|no) ....|
|00001290| 17 ff 28 22 57 69 6d 70 | 54 61 73 6b 20 22 2b 63 |..("Wimp|Task "+c|
|000012a0| 6f 6d 24 29 0d 07 b2 05 | e1 0d 07 bc 05 cd 0d 07 |om$)....|........|
|000012b0| c6 14 e7 20 6b 65 79 70 | 6f 73 3c 3e 2d 31 20 8c |... keyp|os<>-1 .|
|000012c0| 20 e1 0d 07 d0 1b 6b 65 | 79 70 6f 73 3d 31 3a 6b | .....ke|ypos=1:k|
|000012d0| 65 79 74 6f 75 73 65 3d | 6b 65 79 6e 6f 0d 07 da |eytouse=|keyno...|
|000012e0| 05 e1 0d 07 e4 0f dd f2 | 61 64 64 6c 65 74 74 65 |........|addlette|
|000012f0| 72 0d 07 ee 21 63 6f 6d | 24 3d 24 a4 74 61 64 28 |r...!com|$=$.tad(|
|00001300| 6b 65 79 73 25 2c 37 39 | 2b 6b 65 79 74 6f 75 73 |keys%,79|+keytous|
|00001310| 65 29 0d 07 f8 2b c8 99 | 20 22 57 69 6d 70 5f 50 |e)...+..| "Wimp_P|
|00001320| 72 6f 63 65 73 73 4b 65 | 79 22 2c 97 28 c1 63 6f |rocessKe|y",.(.co|
|00001330| 6d 24 2c 6b 65 79 70 6f | 73 2c 31 29 29 0d 08 02 |m$,keypo|s,1))...|
|00001340| 0d 6b 65 79 70 6f 73 2b | 3d 31 0d 08 0c 20 e7 20 |.keypos+|=1... . |
|00001350| 6b 65 79 70 6f 73 3e a9 | 28 63 6f 6d 24 29 20 8c |keypos>.|(com$) .|
|00001360| 20 6b 65 79 70 6f 73 3d | 2d 31 0d 08 16 05 e1 0d | keypos=|-1......|
|00001370| 08 20 0e 20 dd f2 65 72 | 72 28 61 24 29 0d 08 2a |. . ..er|r(a$)..*|
|00001380| 1d 20 e9 20 61 24 3d 61 | 24 2b 22 20 3a 20 61 74 |. . a$=a|$+" : at|
|00001390| 20 6c 69 6e 65 20 22 2b | c3 9e 0d 08 34 0e 20 f2 | line "+|....4. .|
|000013a0| 6d 6f 61 6e 28 61 24 29 | 0d 08 3e 06 20 e1 0d 08 |moan(a$)|..>. ...|
|000013b0| 48 0e dd f2 72 65 64 6f | 28 68 25 29 0d 08 52 0d |H...redo|(h%)..R.|
|000013c0| 21 62 6c 6f 63 6b 3d 68 | 25 0d 08 5c 1f c8 99 22 |!block=h|%..\..."|
|000013d0| 57 69 6d 70 5f 43 6c 6f | 73 65 57 69 6e 64 6f 77 |Wimp_Clo|seWindow|
|000013e0| 22 2c 2c 62 6c 6f 63 6b | 0d 08 66 13 f2 6f 70 65 |",,block|..f..ope|
|000013f0| 6e 77 69 6e 64 6f 77 28 | 68 25 29 0d 08 70 05 e1 |nwindow(|h%)..p..|
|00001400| 0d 08 7a 13 dd f2 64 65 | 74 65 72 6d 69 6e 65 73 |..z...de|termines|
|00001410| 69 7a 65 0d 08 84 0c 6a | 72 66 6f 72 6d 3d 31 0d |ize....j|rform=1.|
|00001420| 08 8e 26 f2 6d 6f 61 6e | 28 22 50 6c 65 61 73 65 |..&.moan|("Please|
|00001430| 20 49 6e 73 65 72 74 20 | 53 4f 55 52 43 45 20 64 | Insert |SOURCE d|
|00001440| 69 73 6b 22 29 0d 08 98 | 18 20 f4 20 69 73 20 69 |isk")...|. . is i|
|00001450| 74 20 38 30 30 6b 20 66 | 6f 72 6d 61 74 0d 08 a2 |t 800k f|ormat...|
|00001460| 28 62 79 74 65 73 3d 31 | 30 3a 73 65 63 74 6f 72 |(bytes=1|0:sector|
|00001470| 73 3d 35 3a 68 65 61 64 | 73 3d 32 3a 64 65 6e 73 |s=5:head|s=2:dens|
|00001480| 69 74 79 3d 32 0d 08 ac | 2e f2 63 72 65 61 74 65 |ity=2...|..create|
|00001490| 64 65 66 65 63 74 28 62 | 79 74 65 73 2c 73 65 63 |defect(b|ytes,sec|
|000014a0| 74 6f 72 73 2c 68 65 61 | 64 73 2c 64 65 6e 73 69 |tors,hea|ds,densi|
|000014b0| 74 79 29 0d 08 b6 44 f2 | 64 69 73 63 5f 6f 70 28 |ty)...D.|disc_op(|
|000014c0| 30 2c 28 32 5e 62 79 74 | 65 73 29 2a 73 65 63 74 |0,(2^byt|es)*sect|
|000014d0| 6f 72 73 2a 68 65 61 64 | 73 2c 68 65 61 64 73 2a |ors*head|s,heads*|
|000014e0| 73 65 63 74 6f 72 73 2a | 28 32 5e 62 79 74 65 73 |sectors*|(2^bytes|
|000014f0| 29 2a 37 39 2c 30 29 0d | 08 c0 49 e7 20 28 66 6c |)*79,0).|..I. (fl|
|00001500| 61 67 73 20 80 20 31 29 | 3d 30 20 8c 20 73 69 7a |ags . 1)|=0 . siz|
|00001510| 65 3d 26 43 38 30 30 30 | 3a 24 a4 74 61 64 28 63 |e=&C8000|:$.tad(c|
|00001520| 6f 70 79 77 69 6e 25 2c | 36 29 3d 22 45 22 3a f2 |opywin%,|6)="E":.|
|00001530| 72 65 64 6f 28 63 6f 70 | 79 77 69 6e 25 29 3a e1 |redo(cop|ywin%):.|
|00001540| 0d 08 ca 18 20 f4 20 69 | 73 20 69 74 20 36 34 30 |.... . i|s it 640|
|00001550| 6b 20 66 6f 72 6d 61 74 | 0d 08 d4 28 62 79 74 65 |k format|...(byte|
|00001560| 73 3d 38 3a 73 65 63 74 | 6f 72 73 3d 31 36 3a 68 |s=8:sect|ors=16:h|
|00001570| 65 61 64 73 3d 32 3a 64 | 65 6e 73 69 74 79 3d 32 |eads=2:d|ensity=2|
|00001580| 0d 08 de 2e f2 63 72 65 | 61 74 65 64 65 66 65 63 |.....cre|atedefec|
|00001590| 74 28 62 79 74 65 73 2c | 73 65 63 74 6f 72 73 2c |t(bytes,|sectors,|
|000015a0| 68 65 61 64 73 2c 64 65 | 6e 73 69 74 79 29 0d 08 |heads,de|nsity)..|
|000015b0| e8 44 f2 64 69 73 63 5f | 6f 70 28 30 2c 28 32 5e |.D.disc_|op(0,(2^|
|000015c0| 62 79 74 65 73 29 2a 73 | 65 63 74 6f 72 73 2a 68 |bytes)*s|ectors*h|
|000015d0| 65 61 64 73 2c 68 65 61 | 64 73 2a 73 65 63 74 6f |eads,hea|ds*secto|
|000015e0| 72 73 2a 28 32 5e 62 79 | 74 65 73 29 2a 37 39 2c |rs*(2^by|tes)*79,|
|000015f0| 30 29 0d 08 f2 49 e7 20 | 28 66 6c 61 67 73 20 80 |0)...I. |(flags .|
|00001600| 20 31 29 3d 30 20 8c 20 | 73 69 7a 65 3d 26 41 30 | 1)=0 . |size=&A0|
|00001610| 30 30 30 3a 24 a4 74 61 | 64 28 63 6f 70 79 77 69 |000:$.ta|d(copywi|
|00001620| 6e 25 2c 36 29 3d 22 4c | 22 3a f2 72 65 64 6f 28 |n%,6)="L|":.redo(|
|00001630| 63 6f 70 79 77 69 6e 25 | 29 3a e1 0d 08 fc 15 20 |copywin%|):..... |
|00001640| f4 20 73 69 7a 65 20 6e | 6f 74 20 66 6f 75 6e 64 |. size n|ot found|
|00001650| 0d 09 06 36 f2 6d 6f 61 | 6e 28 22 43 61 6e 27 74 |...6.moa|n("Can't|
|00001660| 20 44 65 74 65 72 6d 69 | 6e 65 20 53 69 7a 65 2c | Determi|ne Size,|
|00001670| 20 70 6c 65 61 73 65 20 | 69 6e 70 75 74 20 28 4c | please |input (L|
|00001680| 2f 44 29 3a 22 29 0d 09 | 10 0a e8 73 69 7a 65 24 |/D):")..|...size$|
|00001690| 0d 09 1a 1d e7 20 73 69 | 7a 65 24 3d 22 4c 22 20 |..... si|ze$="L" |
|000016a0| 84 20 73 69 7a 65 24 3d | 22 6c 22 20 8c 0d 09 24 |. size$=|"l" ...$|
|000016b0| 5a 62 79 74 65 73 3d 38 | 3a 73 65 63 74 6f 72 73 |Zbytes=8|:sectors|
|000016c0| 3d 31 36 3a 68 65 61 64 | 73 3d 32 3a 64 65 6e 73 |=16:head|s=2:dens|
|000016d0| 69 74 79 3d 32 3a 73 69 | 7a 65 3d 26 41 30 30 30 |ity=2:si|ze=&A000|
|000016e0| 30 3a 24 a4 74 61 64 28 | 63 6f 70 79 77 69 6e 25 |0:$.tad(|copywin%|
|000016f0| 2c 36 29 3d 22 4c 22 3a | f2 72 65 64 6f 28 63 6f |,6)="L":|.redo(co|
|00001700| 70 79 77 69 6e 25 29 0d | 09 2e 05 cc 0d 09 38 5a |pywin%).|......8Z|
|00001710| 62 79 74 65 73 3d 31 30 | 3a 73 65 63 74 6f 72 73 |bytes=10|:sectors|
|00001720| 3d 35 3a 68 65 61 64 73 | 3d 32 3a 64 65 6e 73 69 |=5:heads|=2:densi|
|00001730| 74 79 3d 32 3a 73 69 7a | 65 3d 26 43 38 30 30 30 |ty=2:siz|e=&C8000|
|00001740| 3a 24 a4 74 61 64 28 63 | 6f 70 79 77 69 6e 25 2c |:$.tad(c|opywin%,|
|00001750| 36 29 3d 22 44 22 3a f2 | 72 65 64 6f 28 63 6f 70 |6)="D":.|redo(cop|
|00001760| 79 77 69 6e 25 29 0d 09 | 42 05 cd 0d 09 4c 2e f2 |ywin%)..|B....L..|
|00001770| 63 72 65 61 74 65 64 65 | 66 65 63 74 28 62 79 74 |createde|fect(byt|
|00001780| 65 73 2c 73 65 63 74 6f | 72 73 2c 68 65 61 64 73 |es,secto|rs,heads|
|00001790| 2c 64 65 6e 73 69 74 79 | 29 0d 09 56 17 f1 8a 30 |,density|)..V...0|
|000017a0| 2c 33 29 3b 89 28 37 39 | 29 3b 8a 30 2c 32 29 3b |,3);.(79|);.0,2);|
|000017b0| 0d 09 60 05 e1 0d 09 6a | 2f dd f2 63 72 65 61 74 |..`....j|/..creat|
|000017c0| 65 64 65 66 65 63 74 28 | 62 79 74 65 73 2c 73 65 |edefect(|bytes,se|
|000017d0| 63 74 6f 72 73 2c 68 65 | 61 64 73 2c 64 65 6e 73 |ctors,he|ads,dens|
|000017e0| 69 74 79 29 0d 09 74 13 | 64 65 66 65 63 74 25 3f |ity)..t.|defect%?|
|000017f0| 30 3d 62 79 74 65 73 0d | 09 7e 15 64 65 66 65 63 |0=bytes.|.~.defec|
|00001800| 74 25 3f 31 3d 73 65 63 | 74 6f 72 73 0d 09 88 13 |t%?1=sec|tors....|
|00001810| 64 65 66 65 63 74 25 3f | 32 3d 68 65 61 64 73 0d |defect%?|2=heads.|
|00001820| 09 92 15 64 65 66 65 63 | 74 25 3f 33 3d 64 65 6e |...defec|t%?3=den|
|00001830| 73 69 74 79 0d 09 9c 29 | 64 65 66 65 63 74 25 21 |sity...)|defect%!|
|00001840| 31 36 3d 38 30 2a 68 65 | 61 64 73 2a 73 65 63 74 |16=80*he|ads*sect|
|00001850| 6f 72 73 2a 28 32 5e 62 | 79 74 65 73 29 0d 09 a6 |ors*(2^b|ytes)...|
|00001860| 05 e1 0d 09 b0 2d dd f2 | 64 69 73 63 5f 6f 70 28 |.....-..|disc_op(|
|00001870| 63 6f 6d 6d 61 6e 64 2c | 6c 65 6e 2c 73 65 63 74 |command,|len,sect|
|00001880| 6f 72 73 74 61 72 74 2c | 6f 66 66 73 65 74 29 0d |orstart,|offset).|
|00001890| 09 ba 23 42 25 3d 63 6f | 6d 6d 61 6e 64 20 84 20 |..#B%=co|mmand . |
|000018a0| 28 28 64 65 66 65 63 74 | 25 20 81 20 34 29 3c 3c |((defect|% . 4)<<|
|000018b0| 38 29 0d 09 c4 12 43 25 | 3d 73 65 63 74 6f 72 73 |8)....C%|=sectors|
|000018c0| 74 61 72 74 0d 09 ce 15 | 44 25 3d 6d 65 6d 6f 72 |tart....|D%=memor|
|000018d0| 79 25 2b 6f 66 66 73 65 | 74 0d 09 d8 0a 45 25 3d |y%+offse|t....E%=|
|000018e0| 6c 65 6e 0d 09 e2 2b c8 | 99 20 22 58 41 44 46 53 |len...+.|. "XADFS|
|000018f0| 5f 44 69 73 63 4f 70 22 | 2c 2c 42 25 2c 43 25 2c |_DiscOp"|,,B%,C%,|
|00001900| 44 25 2c 45 25 20 b8 20 | 3b 66 6c 61 67 73 0d 09 |D%,E% . |;flags..|
|00001910| ec 05 e1 0d 09 f6 12 62 | 75 66 66 65 72 73 69 7a |.......b|uffersiz|
|00001920| 65 3d 32 30 30 0d 0a 00 | 0f dd f2 63 6f 72 72 75 |e=200...|...corru|
|00001930| 70 74 65 64 0d 0a 0a 48 | e7 6a 72 66 6f 72 6d 3d |pted...H|.jrform=|
|00001940| 30 20 8c 20 f2 6d 6f 61 | 6e 28 22 59 6f 75 20 4e |0 . .moa|n("You N|
|00001950| 65 65 64 20 74 6f 20 66 | 69 6e 64 20 74 68 65 20 |eed to f|ind the |
|00001960| 46 6f 72 6d 61 74 20 6f | 66 20 74 68 65 20 44 69 |Format o|f the Di|
|00001970| 73 6b 20 46 69 72 73 74 | 22 29 3a e1 0d 0a 14 26 |sk First|"):....&|
|00001980| f2 6d 6f 61 6e 28 22 50 | 6c 65 61 73 65 20 49 6e |.moan("P|lease In|
|00001990| 73 65 72 74 20 53 4f 55 | 52 43 45 20 44 69 73 6b |sert SOU|RCE Disk|
|000019a0| 22 29 0d 0a 1e 13 74 3d | 30 3a 68 3d 30 3a 63 75 |")....t=|0:h=0:cu|
|000019b0| 72 72 25 3d 30 0d 0a 23 | 2d 73 74 61 74 65 3d a4 |rr%=0..#|-state=.|
|000019c0| 63 68 65 63 6b 68 65 61 | 64 28 30 2a 32 2b 30 29 |checkhea|d(0*2+0)|
|000019d0| 3a 68 65 61 64 28 30 2a | 32 2b 30 29 3d 73 74 61 |:head(0*|2+0)=sta|
|000019e0| 74 65 0d 0a 24 13 74 3d | 31 3a 68 3d 31 3a 63 75 |te..$.t=|1:h=1:cu|
|000019f0| 72 72 25 3d 31 0d 0a 28 | 05 f5 0d 0a 32 2d 73 74 |rr%=1..(|....2-st|
|00001a00| 61 74 65 3d a4 63 68 65 | 63 6b 68 65 61 64 28 74 |ate=.che|ckhead(t|
|00001a10| 2a 32 2b 68 29 3a 68 65 | 61 64 28 74 2a 32 2b 68 |*2+h):he|ad(t*2+h|
|00001a20| 29 3d 73 74 61 74 65 0d | 0a 3c 2b e7 20 73 74 61 |)=state.|.<+. sta|
|00001a30| 74 65 20 8c 20 e9 20 63 | 75 72 72 25 3d 63 75 72 |te . . c|urr%=cur|
|00001a40| 72 25 20 8b 20 63 75 72 | 72 25 3d 63 75 72 72 25 |r% . cur|r%=curr%|
|00001a50| 2b 31 0d 0a 46 1d 68 2b | 3d 31 3a e7 20 68 3d 68 |+1..F.h+|=1:. h=h|
|00001a60| 65 61 64 73 20 8c 20 68 | 3d 30 3a 74 2b 3d 31 0d |eads . h|=0:t+=1.|
|00001a70| 0a 50 0a fd 20 74 3d 38 | 30 0d 0a 5a 2e 20 24 a4 |.P.. t=8|0..Z. $.|
|00001a80| 74 61 64 28 63 6f 70 79 | 77 69 6e 25 2c 31 32 29 |tad(copy|win%,12)|
|00001a90| 3d c3 63 75 72 72 25 3a | f2 72 65 64 6f 28 63 6f |=.curr%:|.redo(co|
|00001aa0| 70 79 77 69 6e 25 29 0d | 0a 64 0f 6a 72 63 68 65 |pywin%).|.d.jrche|
|00001ab0| 63 6b 65 64 3d 31 0d 0a | 6e 0c 6a 72 66 6f 72 6d |cked=1..|n.jrform|
|00001ac0| 3d 31 0d 0a 78 06 20 e1 | 0d 0a 82 12 dd a4 63 68 |=1..x. .|......ch|
|00001ad0| 65 63 6b 68 65 61 64 28 | 68 29 0d 0a 8c 27 f2 64 |eckhead(|h)...'.d|
|00001ae0| 69 73 63 5f 6f 70 28 30 | 2c 31 2c 68 2a 73 65 63 |isc_op(0|,1,h*sec|
|00001af0| 74 6f 72 73 2a 28 32 5e | 62 79 74 65 73 29 2c 30 |tors*(2^|bytes),0|
|00001b00| 29 0d 0a 96 13 3d ac 20 | 2d 28 66 6c 61 67 73 20 |)....=. |-(flags |
|00001b10| 80 20 31 29 0d 0a a0 10 | dd f2 72 75 62 62 69 73 |. 1)....|..rubbis|
|00001b20| 68 28 68 29 0d 0a aa 37 | f2 64 69 73 63 5f 6f 70 |h(h)...7|.disc_op|
|00001b30| 28 34 2c 73 65 63 74 6f | 72 73 2a 28 32 5e 62 79 |(4,secto|rs*(2^by|
|00001b40| 74 65 73 29 2c 68 2a 73 | 65 63 74 6f 72 73 2a 28 |tes),h*s|ectors*(|
|00001b50| 32 5e 62 79 74 65 73 29 | 2c 30 29 0d 0a b4 05 e1 |2^bytes)|,0).....|
|00001b60| 0d 0a be 10 dd f2 72 75 | 62 62 69 73 68 69 6e 67 |......ru|bbishing|
|00001b70| 0d 0a c8 3c e7 20 6a 72 | 63 68 65 63 6b 65 64 3d |...<. jr|checked=|
|00001b80| 30 20 8c 20 f2 6d 6f 61 | 6e 28 22 59 6f 75 20 4d |0 . .moa|n("You M|
|00001b90| 75 73 74 20 43 68 65 63 | 6b 20 54 68 65 20 44 69 |ust Chec|k The Di|
|00001ba0| 73 6b 20 46 69 72 73 74 | 22 29 3a e1 0d 0a d2 2c |sk First|"):....,|
|00001bb0| f2 6d 6f 61 6e 28 22 50 | 6c 65 61 73 65 20 49 6e |.moan("P|lease In|
|00001bc0| 73 65 72 74 20 44 45 53 | 54 49 4e 41 54 49 4f 4e |sert DES|TINATION|
|00001bd0| 53 20 44 69 73 6b 22 29 | 0d 0a dc 0b 74 3d 30 3a |S Disk")|....t=0:|
|00001be0| 68 3d 30 0d 0a e6 09 e5 | 8d 54 7b 4b 0d 0a f0 15 |h=0.....|.T{K....|
|00001bf0| e7 20 ac 20 68 65 61 64 | 28 74 2a 32 2b 68 29 20 |. . head|(t*2+h) |
|00001c00| 8c 0d 0a fa 13 f2 72 75 | 62 62 69 73 68 28 74 2a |......ru|bbish(t*|
|00001c10| 32 2b 68 29 0d 0b 04 07 | fb 20 31 0d 0b 0e 07 fb |2+h)....|. 1.....|
|00001c20| 20 37 0d 0b 18 05 cd 0d | 0b 22 1d 68 2b 3d 31 3a | 7......|.".h+=1:|
|00001c30| e7 20 68 3d 68 65 61 64 | 73 20 8c 20 68 3d 30 3a |. h=head|s . h=0:|
|00001c40| 74 2b 3d 31 0d 0b 2c 0a | fd 20 74 3d 38 30 0d 0b |t+=1..,.|. t=80..|
|00001c50| 36 05 cd 0d 0b 3b 13 f2 | 72 75 62 62 69 73 68 28 |6....;..|rubbish(|
|00001c60| 30 2a 32 2b 30 29 0d 0b | 40 2d 24 a4 74 61 64 28 |0*2+0)..|@-$.tad(|
|00001c70| 63 6f 70 79 77 69 6e 25 | 2c 31 33 29 3d c3 63 75 |copywin%|,13)=.cu|
|00001c80| 72 72 25 3a f2 72 65 64 | 6f 28 63 6f 70 79 77 69 |rr%:.red|o(copywi|
|00001c90| 6e 25 29 0d 0b 4a 05 e1 | 0d 0b 54 0a dd f2 63 6f |n%)..J..|..T...co|
|00001ca0| 70 79 0d 0b 5e 3a e7 6a | 72 63 68 65 63 6b 65 64 |py..^:.j|rchecked|
|00001cb0| 3d 30 20 8c 20 f2 6d 6f | 61 6e 28 22 43 68 65 63 |=0 . .mo|an("Chec|
|00001cc0| 6b 20 74 68 65 20 53 4f | 55 52 43 45 20 64 69 73 |k the SO|URCE dis|
|00001cd0| 6b 20 66 69 72 73 74 21 | 22 29 3a e1 0d 0b 68 0b |k first!|"):...h.|
|00001ce0| 74 3d 30 3a 68 3d 30 0d | 0b 72 05 f5 0d 0b 7c 12 |t=0:h=0.|.r....|.|
|00001cf0| 70 6f 69 6e 74 65 72 3d | 30 3a 68 73 3d 30 0d 0b |pointer=|0:hs=0..|
|00001d00| 86 1a f2 72 65 61 64 68 | 65 61 64 73 3a 6e 74 3d |...readh|eads:nt=|
|00001d10| 71 74 3a 6e 68 3d 71 68 | 0d 0b a4 05 e1 0d 0b ae |qt:nh=qh|........|
|00001d20| 0f dd f2 72 65 61 64 68 | 65 61 64 73 0d 0b b8 3f |...readh|eads...?|
|00001d30| f2 6d 6f 61 6e 28 22 52 | 65 61 64 20 66 72 6f 6d |.moan("R|ead from|
|00001d40| 20 53 6f 75 72 63 65 20 | 44 69 73 6b 20 2d 20 50 | Source |Disk - P|
|00001d50| 6c 65 61 73 65 20 49 6e | 73 65 72 74 20 53 4f 55 |lease In|sert SOU|
|00001d60| 52 43 45 20 64 69 73 6b | 2e 22 29 0d 0b c2 0d 71 |RCE disk|.")....q|
|00001d70| 74 3d 32 3a 71 68 3d 32 | 0d 0b cc 05 f5 0d 0b d6 |t=2:qh=2|........|
|00001d80| 16 e7 20 68 65 61 64 28 | 74 2a 32 2b 68 2b 68 73 |.. head(|t*2+h+hs|
|00001d90| 29 20 8c 0d 0b e0 46 f2 | 64 69 73 63 5f 6f 70 28 |) ....F.|disc_op(|
|00001da0| 31 2c 28 32 5e 62 79 74 | 65 73 29 2a 73 65 63 74 |1,(2^byt|es)*sect|
|00001db0| 6f 72 73 2c 28 74 2a 32 | 2b 68 2b 68 73 29 2a 28 |ors,(t*2|+h+hs)*(|
|00001dc0| 32 5e 62 79 74 65 73 29 | 2a 73 65 63 74 6f 72 73 |2^bytes)|*sectors|
|00001dd0| 2c 70 6f 69 6e 74 65 72 | 29 0d 0b ea 1e 70 6f 69 |,pointer|)....poi|
|00001de0| 6e 74 65 72 2b 3d 28 32 | 5e 62 79 74 65 73 29 2a |nter+=(2|^bytes)*|
|00001df0| 73 65 63 74 6f 72 73 0d | 0b f4 05 cd 0d 0b fe 09 |sectors.|........|
|00001e00| 68 73 2b 3d 31 0d 0c 08 | 27 71 74 3d 28 74 2a 32 |hs+=1...|'qt=(t*2|
|00001e10| 2b 68 73 2b 68 29 20 81 | 20 32 3a 71 68 3d 28 74 |+hs+h) .| 2:qh=(t|
|00001e20| 2a 32 2b 68 73 2b 68 29 | 20 83 20 32 0d 0c 12 41 |*2+hs+h)| . 2...A|
|00001e30| fd 20 70 6f 69 6e 74 65 | 72 2b 28 32 5e 62 79 74 |. pointe|r+(2^byt|
|00001e40| 65 73 29 2a 73 65 63 74 | 6f 72 73 3e 62 75 66 66 |es)*sect|ors>buff|
|00001e50| 65 72 73 69 7a 65 2a 26 | 34 30 30 20 84 20 28 74 |ersize*&|400 . (t|
|00001e60| 2a 32 2b 68 2b 68 73 29 | 3e 3d 31 36 30 0d 0c 1c |*2+h+hs)|>=160...|
|00001e70| 05 e1 0d 0c 26 04 0d 0c | 30 10 dd f2 77 72 69 74 |....&...|0...writ|
|00001e80| 65 68 65 61 64 73 0d 0c | 3a 49 f2 6d 6f 61 6e 28 |eheads..|:I.moan(|
|00001e90| 22 57 72 69 74 69 6e 67 | 20 74 6f 20 44 65 73 74 |"Writing| to Dest|
|00001ea0| 69 6e 61 74 69 6f 6e 20 | 44 69 73 6b 20 2d 20 50 |ination |Disk - P|
|00001eb0| 6c 65 61 73 65 20 69 6e | 73 65 72 74 20 44 45 53 |lease in|sert DES|
|00001ec0| 54 49 4e 41 54 49 4f 4e | 20 64 69 73 6b 22 29 0d |TINATION| disk").|
|00001ed0| 0c 44 12 70 74 3d 30 3a | 71 74 3d 74 3a 71 68 3d |.D.pt=0:|qt=t:qh=|
|00001ee0| 68 0d 0c 4e 05 f5 0d 0c | 58 15 e7 20 68 65 61 64 |h..N....|X.. head|
|00001ef0| 28 71 74 2a 32 2b 71 68 | 29 20 8c 0d 0c 62 40 f2 |(qt*2+qh|) ...b@.|
|00001f00| 64 69 73 63 5f 6f 70 28 | 32 2c 28 32 5e 62 79 74 |disc_op(|2,(2^byt|
|00001f10| 65 73 29 2a 73 65 63 74 | 6f 72 73 2c 28 71 74 2a |es)*sect|ors,(qt*|
|00001f20| 32 2b 71 68 29 2a 28 32 | 5e 62 79 74 65 73 29 2a |2+qh)*(2|^bytes)*|
|00001f30| 73 65 63 74 6f 72 73 2c | 70 74 29 0d 0c 6c 19 70 |sectors,|pt)..l.p|
|00001f40| 74 2b 3d 28 32 5e 62 79 | 74 65 73 29 2a 73 65 63 |t+=(2^by|tes)*sec|
|00001f50| 74 6f 72 73 0d 0c 76 05 | cd 0d 0c 80 21 71 68 2b |tors..v.|....!qh+|
|00001f60| 3d 31 3a e7 20 71 68 3d | 68 65 61 64 73 20 8c 20 |=1:. qh=|heads . |
|00001f70| 71 68 3d 30 3a 71 74 2b | 3d 31 0d 0c 8a 19 fd 20 |qh=0:qt+|=1..... |
|00001f80| 28 71 74 2a 32 2b 71 68 | 29 3d 28 6e 74 2a 32 2b |(qt*2+qh|)=(nt*2+|
|00001f90| 6e 68 29 0d 0c 94 05 e1 | 0d ff                   |nh).....|..      |
+--------+-------------------------+-------------------------+--------+--------+