home *** CD-ROM | disk | FTP | other *** search
| Unknown | 1991-07-01 | 13.4 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
|
|---|
| 10%
| dexvert
| Truevision Targa Graphic (image/tga)
| magic
| Supported |
| 100%
| file
| data
| default
| |
| 100%
| xdgMime
| image/x-tga
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 20 3e 20 | 49 6e 73 74 61 6c 6c 0d |..... > |Install.|
|00000010| 00 14 05 3a 0d 00 1e 0b | f4 20 76 31 2e 30 34 0d |...:....|. v1.04.|
|00000020| 00 28 05 3a 0d 00 32 04 | 0d 00 3c 08 eb 20 31 36 |.(.:..2.|..<.. 16|
|00000030| 0d 00 46 05 87 0d 00 50 | 0e ee 20 85 20 f2 61 62 |..F....P|.. . .ab|
|00000040| 6f 72 74 0d 00 5a 0c 2a | 46 58 32 30 30 2c 30 0d |ort..Z.*|FX200,0.|
|00000050| 00 64 16 de 20 77 6f 72 | 6b 73 70 61 63 65 20 26 |.d.. wor|kspace &|
|00000060| 34 42 30 30 30 0d 00 6e | 16 de 20 52 44 46 6c 73 |4B000..n|.. RDFls|
|00000070| 70 61 63 65 25 20 20 26 | 32 30 30 0d 00 78 16 de |pace% &|200..x..|
|00000080| 20 52 44 46 73 73 70 61 | 63 65 25 20 20 26 32 30 | RDFsspa|ce% &20|
|00000090| 30 0d 00 82 15 de 20 44 | 69 73 6e 61 6d 65 25 20 |0..... D|isname% |
|000000a0| 20 20 20 26 34 30 0d 00 | 8c 16 de 20 43 57 44 25 | &40..|... CWD%|
|000000b0| 20 20 20 20 20 20 20 20 | 26 32 30 30 0d 00 96 04 | |&200....|
|000000c0| 0d 00 a0 0f f2 69 6e 69 | 74 69 61 6c 69 73 65 0d |.....ini|tialise.|
|000000d0| 00 aa 0b f2 73 63 72 65 | 65 6e 0d 00 b4 05 f7 0d |....scre|en......|
|000000e0| 00 be 0f f2 69 6e 69 74 | 69 61 6c 69 73 65 0d 00 |....init|ialise..|
|000000f0| c8 04 0d 00 d2 0d ee 20 | 85 20 e5 8d 44 42 4e 0d |....... |. ..DBN.|
|00000100| 00 dc 0c f2 67 65 74 64 | 69 72 73 0d 00 e6 15 f2 |....getd|irs.....|
|00000110| 63 68 65 63 6b 64 65 73 | 74 69 6e 61 74 69 6f 6e |checkdes|tination|
|00000120| 0d 00 f0 0a f7 20 8d 74 | 60 4f 0d 00 fa 05 3a 0d |..... .t|`O....:.|
|00000130| 01 04 10 20 64 69 73 6b | 24 3d 22 4f 4e 45 22 0d |... disk|$="ONE".|
|00000140| 01 0e 0e 20 f2 64 69 73 | 6b 73 77 61 70 0d 01 18 |... .dis|kswap...|
|00000150| 05 3a 0d 01 22 2e 20 f2 | 6c 6f 61 64 44 69 73 6b |.:..". .|loadDisk|
|00000160| 28 22 49 6e 73 74 61 6c | 6c 69 6e 67 20 57 6f 6e |("Instal|ling Won|
|00000170| 64 65 72 6c 61 6e 64 20 | 44 69 73 6b 20 31 22 29 |derland |Disk 1")|
|00000180| 0d 01 2c 05 3a 0d 01 36 | 1e 20 f2 62 75 69 6c 64 |..,.:..6|. .build|
|00000190| 52 44 46 28 22 62 6f 6f | 74 22 20 20 2c 20 30 2c |RDF("boo|t" , 0,|
|000001a0| 20 30 29 0d 01 40 1e 20 | f2 62 75 69 6c 64 52 44 | 0)..@. |.buildRD|
|000001b0| 46 28 22 61 6c 6c 22 20 | 20 20 2c 20 31 2c 20 34 |F("all" | , 1, 4|
|000001c0| 29 0d 01 4a 1e 20 f2 62 | 75 69 6c 64 52 44 46 28 |)..J. .b|uildRDF(|
|000001d0| 22 6d 6f 72 65 31 22 20 | 2c 20 31 2c 20 32 29 0d |"more1" |, 1, 2).|
|000001e0| 01 54 0e 20 f2 6d 61 6b | 65 5f 43 57 44 0d 01 5e |.T. .mak|e_CWD..^|
|000001f0| 05 3a 0d 01 68 10 20 64 | 69 73 6b 24 3d 22 54 57 |.:..h. d|isk$="TW|
|00000200| 4f 22 0d 01 72 0e 20 f2 | 64 69 73 6b 73 77 61 70 |O"..r. .|diskswap|
|00000210| 0d 01 7c 05 3a 0d 01 86 | 2e 20 f2 6c 6f 61 64 44 |..|.:...|. .loadD|
|00000220| 69 73 6b 28 22 49 6e 73 | 74 61 6c 6c 69 6e 67 20 |isk("Ins|talling |
|00000230| 57 6f 6e 64 65 72 6c 61 | 6e 64 20 44 69 73 6b 20 |Wonderla|nd Disk |
|00000240| 32 22 29 0d 01 90 05 3a | 0d 01 9a 12 20 64 69 73 |2")....:|.... dis|
|00000250| 6b 24 3d 22 54 48 52 45 | 45 22 0d 01 a4 0e 20 f2 |k$="THRE|E".... .|
|00000260| 64 69 73 6b 73 77 61 70 | 0d 01 ae 05 3a 0d 01 b8 |diskswap|....:...|
|00000270| 2e 20 f2 6c 6f 61 64 44 | 69 73 6b 28 22 49 6e 73 |. .loadD|isk("Ins|
|00000280| 74 61 6c 6c 69 6e 67 20 | 57 6f 6e 64 65 72 6c 61 |talling |Wonderla|
|00000290| 6e 64 20 44 69 73 6b 20 | 33 22 29 0d 01 c2 05 3a |nd Disk |3")....:|
|000002a0| 0d 01 cc 11 20 64 69 73 | 6b 24 3d 22 46 4f 55 52 |.... dis|k$="FOUR|
|000002b0| 22 0d 01 d6 0e 20 f2 64 | 69 73 6b 73 77 61 70 0d |".... .d|iskswap.|
|000002c0| 01 e0 05 3a 0d 01 ea 2e | 20 f2 6c 6f 61 64 44 69 |...:....| .loadDi|
|000002d0| 73 6b 28 22 49 6e 73 74 | 61 6c 6c 69 6e 67 20 57 |sk("Inst|alling W|
|000002e0| 6f 6e 64 65 72 6c 61 6e | 64 20 44 69 73 6b 20 34 |onderlan|d Disk 4|
|000002f0| 22 29 0d 01 f4 05 3a 0d | 01 fe 09 20 f2 65 6e 64 |")....:.|... .end|
|00000300| 0d 02 08 05 3a 0d 02 12 | 05 e0 0d 02 1c 05 3a 0d |....:...|......:.|
|00000310| 02 26 11 dd 20 f2 69 6e | 69 74 69 61 6c 69 73 65 |.&.. .in|itialise|
|00000320| 0d 02 30 12 f3 20 61 70 | 70 6c 69 63 61 74 69 6f |..0.. ap|plicatio|
|00000330| 6e 24 0d 02 3a 0b f3 20 | 53 24 2c 44 24 0d 02 44 |n$..:.. |S$,D$..D|
|00000340| 05 e1 0d 02 4e 05 3a 0d | 02 58 0d dd 20 f2 73 63 |....N.:.|.X.. .sc|
|00000350| 72 65 65 6e 0d 02 62 05 | 87 0d 02 6c 13 f2 5f 73 |reen..b.|...l.._s|
|00000360| 65 74 5f 75 70 5f 73 63 | 72 65 65 6e 0d 02 76 14 |et_up_sc|reen..v.|
|00000370| f2 5f 74 69 6c 65 5f 77 | 69 6e 64 6f 77 28 31 29 |._tile_w|indow(1)|
|00000380| 0d 02 80 04 0d 02 8a 38 | f1 20 8a 38 2c 32 29 22 |.......8|. .8,2)"|
|00000390| 53 6f 66 74 77 61 72 65 | 20 69 6e 73 74 61 6c 6c |Software| install|
|000003a0| 61 74 69 6f 6e 20 66 6f | 72 20 22 3b 61 70 70 6c |ation fo|r ";appl|
|000003b0| 69 63 61 74 69 6f 6e 24 | 3b 22 2e 22 0d 02 94 49 |ication$|;"."...I|
|000003c0| f1 20 8a 38 2c 34 29 22 | 49 6e 73 74 61 6c 6c 73 |. .8,4)"|Installs|
|000003d0| 20 61 70 70 6c 69 63 61 | 74 69 6f 6e 20 6f 6e 20 | applica|tion on |
|000003e0| 68 61 72 64 20 64 69 73 | 6b 20 66 72 6f 6d 20 66 |hard dis|k from f|
|000003f0| 6c 6f 70 70 79 20 64 69 | 73 6b 20 73 75 70 70 6c |loppy di|sk suppl|
|00000400| 69 65 64 2e 22 0d 02 9e | 47 f1 20 8a 38 2c 36 29 |ied."...|G. .8,6)|
|00000410| 22 50 72 65 73 73 20 53 | 50 41 43 45 20 74 6f 20 |"Press S|PACE to |
|00000420| 69 6e 73 74 61 6c 6c 20 | 22 3b 61 70 70 6c 69 63 |install |";applic|
|00000430| 61 74 69 6f 6e 24 3b 22 | 20 20 20 45 73 63 61 70 |ation$;"| Escap|
|00000440| 65 20 74 6f 20 61 62 6f | 72 74 2e 22 0d 02 a8 05 |e to abo|rt."....|
|00000450| 3a 0d 02 b2 05 f5 0d 02 | bc 0d f2 77 61 69 74 28 |:.......|...wait(|
|00000460| 31 30 29 0d 02 c6 07 47 | 3d a5 0d 02 d0 0a fd 20 |10)....G|=...... |
|00000470| 47 3d 33 32 0d 02 da 14 | f2 5f 74 69 6c 65 5f 77 |G=32....|._tile_w|
|00000480| 69 6e 64 6f 77 28 32 29 | 0d 02 e4 05 e1 0d 02 ee |indow(2)|........|
|00000490| 05 3a 0d 02 f8 0a dd 20 | f2 65 6e 64 0d 03 02 04 |.:..... |.end....|
|000004a0| 0d 03 0c 12 f2 5f 64 72 | 61 77 5f 74 69 6c 65 28 |....._dr|aw_tile(|
|000004b0| 34 29 0d 03 16 04 0d 03 | 20 21 f1 20 27 22 49 6e |4)......| !. '"In|
|000004c0| 73 74 61 6c 6c 61 74 69 | 6f 6e 20 63 6f 6d 70 6c |stallati|on compl|
|000004d0| 65 74 65 64 2e 22 27 0d | 03 2a 04 0d 03 34 05 e1 |eted."'.|.*...4..|
|000004e0| 0d 03 3e 05 3a 0d 03 48 | 0e dd 20 f2 67 65 74 64 |..>.:..H|.. .getd|
|000004f0| 69 72 73 0d 03 52 04 0d | 03 5c 14 f3 20 53 70 61 |irs..R..|.\.. Spa|
|00000500| 74 68 24 2c 20 44 70 61 | 74 68 24 0d 03 66 04 0d |th$, Dpa|th$..f..|
|00000510| 03 70 05 f5 0d 03 7a 13 | f2 63 68 65 63 6b 5f 64 |.p....z.|.check_d|
|00000520| 69 73 6b 28 44 24 29 0d | 03 84 43 f1 22 45 6e 74 |isk(D$).|..C."Ent|
|00000530| 65 72 20 70 61 74 68 20 | 66 6f 72 20 64 69 72 65 |er path |for dire|
|00000540| 63 74 6f 72 79 20 69 6e | 20 77 68 69 63 68 20 74 |ctory in| which t|
|00000550| 6f 20 69 6e 73 74 61 6c | 6c 20 22 20 2b 20 61 70 |o instal|l " + ap|
|00000560| 70 6c 69 63 61 74 69 6f | 6e 24 0d 03 8e 20 f1 22 |plicatio|n$... ."|
|00000570| 52 65 74 75 72 6e 20 66 | 6f 72 20 72 6f 6f 74 20 |Return f|or root |
|00000580| 64 69 72 65 63 74 6f 72 | 79 22 0d 03 98 0c e8 20 |director|y"..... |
|00000590| 44 5f 44 69 72 24 0d 03 | a2 0d f2 77 61 69 74 28 |D_Dir$..|...wait(|
|000005a0| 32 30 29 0d 03 ac 43 e7 | 20 44 5f 44 69 72 24 3d |20)...C.| D_Dir$=|
|000005b0| 22 22 20 44 5f 44 69 72 | 24 3d 44 70 61 74 68 24 |"" D_Dir|$=Dpath$|
|000005c0| 20 8b 20 44 5f 44 69 72 | 24 3d a4 6d 61 6b 65 5f | . D_Dir|$=.make_|
|000005d0| 70 61 74 68 28 44 5f 44 | 69 72 24 2c 44 70 61 74 |path(D_D|ir$,Dpat|
|000005e0| 68 24 2c 22 22 29 0d 03 | b6 1a 46 75 6c 6c 5f 50 |h$,"")..|..Full_P|
|000005f0| 61 74 68 24 3d a4 6d 61 | 6b 65 5f 64 72 69 76 65 |ath$=.ma|ke_drive|
|00000600| 0d 03 c0 2f 46 75 6c 6c | 5f 50 61 74 68 24 3d a4 |.../Full|_Path$=.|
|00000610| 6d 61 6b 65 5f 70 61 74 | 68 28 46 75 6c 6c 5f 50 |make_pat|h(Full_P|
|00000620| 61 74 68 24 2c 44 5f 44 | 69 72 24 2c 22 22 29 0d |ath$,D_D|ir$,"").|
|00000630| 03 ca 2e f1 20 27 61 70 | 70 6c 69 63 61 74 69 6f |.... 'ap|plicatio|
|00000640| 6e 24 20 2b 22 20 77 69 | 6c 6c 20 62 65 20 69 6e |n$ +" wi|ll be in|
|00000650| 73 74 61 6c 6c 65 64 20 | 61 73 2d 20 22 0d 03 d4 |stalled |as- "...|
|00000660| 1d f1 20 27 22 20 20 20 | 20 20 20 20 20 22 2b 46 |.. '" | "+F|
|00000670| 75 6c 6c 5f 50 61 74 68 | 24 27 0d 03 de 1c f1 20 |ull_Path|$'..... |
|00000680| 22 49 73 20 74 68 69 73 | 20 4f 4b 3f 20 20 2d 20 |"Is this| OK? - |
|00000690| 20 59 2f 4e 20 22 0d 03 | e8 0e fd 20 a4 5f 79 5f | Y/N "..|... ._y_|
|000006a0| 4f 52 5f 6e 0d 03 f2 13 | 44 70 61 74 68 24 20 3d |OR_n....|Dpath$ =|
|000006b0| 20 44 5f 44 69 72 24 0d | 03 fc 0e 44 24 20 3d 20 | D_Dir$.|...D$ = |
|000006c0| 44 5f 48 44 24 0d 04 06 | 05 e1 0d 04 10 05 3a 0d |D_HD$...|......:.|
|000006d0| 04 1a 17 dd 20 f2 63 68 | 65 63 6b 64 65 73 74 69 |.... .ch|eckdesti|
|000006e0| 6e 61 74 69 6f 6e 0d 04 | 24 0d 64 65 6c 66 6c 61 |nation..|$.delfla|
|000006f0| 67 3d 30 0d 04 2e 12 f3 | 20 66 6c 61 67 25 2c 20 |g=0.....| flag%, |
|00000700| 6e 61 6d 65 24 0d 04 38 | 0f c8 95 20 66 6c 61 67 |name$..8|... flag|
|00000710| 25 3c 3e 30 0d 04 42 5c | e7 20 66 6c 61 67 25 3d |%<>0..B\|. flag%=|
|00000720| 31 20 8c 20 64 65 73 74 | 24 3d a4 6d 61 6b 65 5f |1 . dest|$=.make_|
|00000730| 70 61 74 68 28 44 24 2c | 20 44 70 61 74 68 24 2c |path(D$,| Dpath$,|
|00000740| 20 6e 61 6d 65 24 29 3a | e7 20 a4 6f 73 66 69 6c | name$):|. .osfil|
|00000750| 65 5f 35 28 64 65 73 74 | 24 2c 20 66 6c 61 67 25 |e_5(dest|$, flag%|
|00000760| 29 20 3c 3e 20 30 20 64 | 65 6c 66 6c 61 67 3d 31 |) <> 0 d|elflag=1|
|00000770| 0d 04 4c 11 f3 20 66 6c | 61 67 25 2c 6e 61 6d 65 |..L.. fl|ag%,name|
|00000780| 24 0d 04 56 05 ce 0d 04 | 60 23 64 65 73 74 24 3d |$..V....|`#dest$=|
|00000790| a4 6d 61 6b 65 5f 70 61 | 74 68 28 44 24 2c 20 44 |.make_pa|th(D$, D|
|000007a0| 70 61 74 68 24 2c 22 22 | 29 0d 04 6a a0 e7 20 64 |path$,""|)..j.. d|
|000007b0| 65 6c 66 6c 61 67 20 f1 | 27 22 46 69 6c 65 73 20 |elflag .|'"Files |
|000007c0| 66 72 6f 6d 20 61 20 70 | 72 65 76 69 6f 75 73 20 |from a p|revious |
|000007d0| 69 6e 73 74 61 6c 6c 61 | 74 69 6f 6e 20 73 74 69 |installa|tion sti|
|000007e0| 6c 6c 20 65 78 73 69 73 | 74 20 69 6e 20 74 68 69 |ll exsis|t in thi|
|000007f0| 73 20 64 69 72 65 63 74 | 6f 72 79 20 20 20 20 20 |s direct|ory |
|00000800| 20 20 44 65 6c 65 74 65 | 20 59 2f 4e 22 3a e7 20 | Delete| Y/N":. |
|00000810| a4 5f 79 5f 4f 52 5f 6e | 20 f7 20 8d 74 60 4f 3a |._y_OR_n| . .t`O:|
|00000820| f2 44 65 6c 65 74 65 4f | 6c 64 41 70 70 3a f2 44 |.DeleteO|ldApp:.D|
|00000830| 65 6c 65 74 65 4f 6c 64 | 41 70 70 3a f2 44 65 6c |eleteOld|App:.Del|
|00000840| 65 74 65 4f 6c 64 41 70 | 70 0d 04 74 05 e1 0d 04 |eteOldAp|p..t....|
|00000850| 7e 05 3a 0d 04 88 13 dd | 20 f2 44 65 6c 65 74 65 |~.:.....| .Delete|
|00000860| 4f 6c 64 41 70 70 0d 04 | 92 12 f3 20 66 6c 61 67 |OldApp..|... flag|
|00000870| 25 2c 20 6e 61 6d 65 24 | 0d 04 9c 0f c8 95 20 66 |%, name$|...... f|
|00000880| 6c 61 67 25 3c 3e 30 0d | 04 a6 5d e7 20 66 6c 61 |lag%<>0.|..]. fla|
|00000890| 67 25 3d 31 20 8c 3a 64 | 65 73 74 24 3d a4 6d 61 |g%=1 .:d|est$=.ma|
|000008a0| 6b 65 5f 70 61 74 68 28 | 44 24 2c 20 44 70 61 74 |ke_path(|D$, Dpat|
|000008b0| 68 24 2c 20 6e 61 6d 65 | 24 29 3a e7 20 28 a4 6f |h$, name|$):. (.o|
|000008c0| 73 66 69 6c 65 5f 35 28 | 64 65 73 74 24 2c 20 66 |sfile_5(|dest$, f|
|000008d0| 6c 61 67 25 29 20 3d 20 | 32 29 20 f2 64 65 6c 5f |lag%) = |2) .del_|
|000008e0| 66 69 6c 65 0d 04 b0 11 | f3 20 66 6c 61 67 25 2c |file....|. flag%,|
|000008f0| 6e 61 6d 65 24 0d 04 ba | 05 ce 0d 04 c4 05 e1 0d |name$...|........|
|00000900| 04 ce 04 0d 04 d8 04 0d | 04 e2 15 dd 20 f2 6c 6f |........|.... .lo|
|00000910| 61 64 44 69 73 6b 28 6d | 73 67 24 29 0d 04 ec 04 |adDisk(m|sg$)....|
|00000920| 0d 04 f6 14 f2 5f 74 69 | 6c 65 5f 77 69 6e 64 6f |....._ti|le_windo|
|00000930| 77 28 33 29 0d 05 00 19 | f1 20 27 22 20 20 20 20 |w(3)....|. '" |
|00000940| 20 20 20 20 20 20 22 3b | 20 6d 73 67 24 0d 05 0a | ";| msg$...|
|00000950| 14 f2 5f 74 69 6c 65 5f | 77 69 6e 64 6f 77 28 32 |.._tile_|window(2|
|00000960| 29 0d 05 14 05 db 0d 05 | 1e 04 0d 05 28 09 f2 70 |).......|....(..p|
|00000970| 61 74 68 0d 05 32 0d 64 | 6f 75 62 6c 65 25 3d 30 |ath..2.d|ouble%=0|
|00000980| 0d 05 3c 11 f3 20 66 6c | 61 67 25 2c 6e 61 6d 65 |..<.. fl|ag%,name|
|00000990| 24 0d 05 46 0f c8 95 20 | 66 6c 61 67 25 3c 3e 30 |$..F... |flag%<>0|
|000009a0| 0d 05 50 18 f2 6f 62 6a | 65 63 74 28 66 6c 61 67 |..P..obj|ect(flag|
|000009b0| 25 2c 6e 61 6d 65 24 29 | 0d 05 5a 11 f3 20 66 6c |%,name$)|..Z.. fl|
|000009c0| 61 67 25 2c 6e 61 6d 65 | 24 0d 05 64 05 ce 0d 05 |ag%,name|$..d....|
|000009d0| 6e 05 e1 0d 05 78 05 3a | 0d 05 82 0f dd 20 f2 6d |n....x.:|..... .m|
|000009e0| 61 6b 65 5f 43 57 44 0d | 05 8c 04 0d 05 96 2a 43 |ake_CWD.|......*C|
|000009f0| 57 44 5f 70 61 74 68 24 | 20 3d 20 a4 6d 61 6b 65 |WD_path$| = .make|
|00000a00| 5f 70 61 74 68 28 44 24 | 2c 20 44 70 61 74 68 24 |_path(D$|, Dpath$|
|00000a10| 2c 20 22 22 29 0d 05 a0 | 28 43 57 44 24 20 3d 20 |, "")...|(CWD$ = |
|00000a20| a4 6d 61 6b 65 5f 70 61 | 74 68 28 44 24 2c 20 44 |.make_pa|th(D$, D|
|00000a30| 70 61 74 68 24 2c 20 22 | 63 77 64 22 29 0d 05 aa |path$, "|cwd")...|
|00000a40| 1f f2 63 6f 70 79 74 6f | 6d 65 6d 28 43 57 44 5f |..copyto|mem(CWD_|
|00000a50| 70 61 74 68 24 2c 20 43 | 57 44 25 29 0d 05 b4 23 |path$, C|WD%)...#|
|00000a60| f2 73 61 76 65 28 43 57 | 44 24 2c 20 43 57 44 25 |.save(CW|D$, CWD%|
|00000a70| 2c 20 a9 28 43 57 44 5f | 70 61 74 68 24 29 29 0d |, .(CWD_|path$)).|
|00000a80| 05 be 04 0d 05 c8 05 e1 | 0d 05 dc 05 3a 0d 05 e6 |........|....:...|
|00000a90| 0b dd 20 f2 70 61 74 68 | 0d 05 f0 29 74 65 6d 70 |.. .path|...)temp|
|00000aa0| 24 20 3d 20 44 70 61 74 | 68 24 3a 64 6f 75 62 6c |$ = Dpat|h$:doubl|
|00000ab0| 65 25 20 3d 20 a7 44 70 | 61 74 68 24 2c 22 2e 22 |e% = .Dp|ath$,"."|
|00000ac0| 29 0d 05 fa 39 e7 20 64 | 6f 75 62 6c 65 25 20 8c |)...9. d|ouble% .|
|00000ad0| 20 44 70 61 74 68 24 20 | 3d 20 c0 44 70 61 74 68 | Dpath$ |= .Dpath|
|00000ae0| 24 2c 64 6f 75 62 6c 65 | 25 2d 31 29 3a f2 6f 62 |$,double|%-1):.ob|
|00000af0| 6a 65 63 74 28 32 2c 22 | 22 29 0d 06 04 2a 44 70 |ject(2,"|")...*Dp|
|00000b00| 61 74 68 24 20 3d 20 74 | 65 6d 70 24 3a f2 6f 62 |ath$ = t|emp$:.ob|
|00000b10| 6a 65 63 74 28 32 2c 22 | 22 29 3a 64 6f 75 62 6c |ject(2,"|"):doubl|
|00000b20| 65 25 3d 30 0d 06 0e 05 | e1 0d 06 18 05 3a 0d 06 |e%=0....|.....:..|
|00000b30| 22 1a dd 20 f2 6f 62 6a | 65 63 74 28 66 6c 61 67 |".. .obj|ect(flag|
|00000b40| 25 2c 6e 61 6d 65 24 29 | 0d 06 2c 19 f2 73 65 74 |%,name$)|..,..set|
|00000b50| 5f 6f 62 6a 65 63 74 5f | 76 61 72 69 61 62 6c 65 |_object_|variable|
|00000b60| 73 0d 06 36 11 f2 63 68 | 65 63 6b 5f 73 6f 75 72 |s..6..ch|eck_sour|
|00000b70| 63 65 0d 06 40 26 e7 20 | 64 65 73 74 24 20 3c 3e |ce..@&. |dest$ <>|
|00000b80| 20 44 24 20 8c 20 f2 77 | 72 69 74 65 5f 64 65 73 | D$ . .w|rite_des|
|00000b90| 74 69 6e 61 74 69 6f 6e | 0d 06 4a 05 e1 0d 06 54 |tination|..J....T|
|00000ba0| 05 3a 0d 06 5e 1b dd 20 | f2 73 65 74 5f 6f 62 6a |.:..^.. |.set_obj|
|00000bb0| 65 63 74 5f 76 61 72 69 | 61 62 6c 65 73 0d 06 68 |ect_vari|ables..h|
|00000bc0| 2b 73 6f 75 72 63 65 24 | 20 3d 20 a4 6d 61 6b 65 |+source$| = .make|
|00000bd0| 5f 70 61 74 68 28 53 24 | 2c 20 53 70 61 74 68 24 |_path(S$|, Spath$|
|00000be0| 2c 20 6e 61 6d 65 24 29 | 0d 06 72 2b 64 65 73 74 |, name$)|..r+dest|
|00000bf0| 24 20 20 20 3d 20 a4 6d | 61 6b 65 5f 70 61 74 68 |$ = .m|ake_path|
|00000c00| 28 44 24 2c 20 44 70 61 | 74 68 24 2c 20 6e 61 6d |(D$, Dpa|th$, nam|
|00000c10| 65 24 29 0d 06 7c 05 e1 | 0d 06 86 05 3a 0d 06 90 |e$)..|..|....:...|
|00000c20| 11 dd 20 f2 77 61 69 74 | 28 77 61 69 74 29 0d 06 |.. .wait|(wait)..|
|00000c30| 9a 0b ea 20 63 6f 75 6e | 74 0d 06 a4 18 e3 20 63 |... coun|t..... c|
|00000c40| 6f 75 6e 74 3d 30 20 b8 | 20 77 61 69 74 2a 31 30 |ount=0 .| wait*10|
|00000c50| 30 0d 06 ae 05 ed 0d 06 | b8 0c 2a 46 58 20 31 35 |0.......|..*FX 15|
|00000c60| 2c 31 0d 06 c2 05 e1 0d | 06 cc 05 3a 0d 06 d6 0f |,1......|...:....|
|00000c70| dd 20 f2 64 69 73 6b 73 | 77 61 70 0d 06 e0 05 f5 |. .disks|wap.....|
|00000c80| 0d 06 ea 33 f1 20 22 20 | 50 6c 65 61 73 65 20 69 |...3. " |Please i|
|00000c90| 6e 73 65 72 74 20 64 69 | 73 6b 20 22 3b 64 69 73 |nsert di|sk ";dis|
|00000ca0| 6b 24 3b 22 20 61 6e 64 | 20 68 69 74 20 61 20 6b |k$;" and| hit a k|
|00000cb0| 65 79 22 0d 06 f4 11 d4 | 20 31 2c 2d 31 32 2c 37 |ey".....| 1,-12,7|
|00000cc0| 30 2c 31 30 0d 06 fe 07 | 47 3d a5 0d 07 08 2b 64 |0,10....|G=....+d|
|00000cd0| 69 73 6b 5f 63 68 65 63 | 6b 24 20 3d 20 a4 6d 61 |isk_chec|k$ = .ma|
|00000ce0| 6b 65 5f 70 61 74 68 28 | 53 24 2c 20 64 69 73 6b |ke_path(|S$, disk|
|00000cf0| 24 2c 20 22 22 29 0d 07 | 12 23 fd 20 a4 6f 73 66 |$, "")..|.#. .osf|
|00000d00| 69 6c 65 5f 35 28 64 69 | 73 6b 5f 63 68 65 63 6b |ile_5(di|sk_check|
|00000d10| 24 2c 20 31 29 20 3e 20 | 30 0d 07 1c 04 0d 07 26 |$, 1) > |0......&|
|00000d20| 05 e1 0d 07 30 05 3a 0d | 07 3a 13 dd 20 f2 63 68 |....0.:.|.:.. .ch|
|00000d30| 65 63 6b 5f 73 6f 75 72 | 63 65 0d 07 44 24 73 6f |eck_sour|ce..D$so|
|00000d40| 75 72 63 65 25 3d a4 6f | 73 66 69 6c 65 5f 35 28 |urce%=.o|sfile_5(|
|00000d50| 73 6f 75 72 63 65 24 2c | 66 6c 61 67 25 29 0d 07 |source$,|flag%)..|
|00000d60| 4e 10 c8 8e 20 73 6f 75 | 72 63 65 25 20 ca 0d 07 |N... sou|rce% ...|
|00000d70| 58 3d c9 20 30 3a f1 20 | 22 4f 6d 69 73 73 69 6f |X=. 0:. |"Omissio|
|00000d80| 6e 20 6f 6e 20 73 6f 75 | 72 63 65 20 64 69 73 6b |n on sou|rce disk|
|00000d90| 21 20 6f 72 20 69 6e 63 | 6f 72 65 63 74 20 64 69 |! or inc|orect di|
|00000da0| 73 6b 21 22 3a f2 61 62 | 6f 72 74 0d 07 62 3d c9 |sk!":.ab|ort..b=.|
|00000db0| 20 31 3a f1 20 22 4d 69 | 73 6d 61 74 63 68 20 6f | 1:. "Mi|smatch o|
|00000dc0| 6e 20 73 6f 75 72 63 65 | 20 64 69 73 6b 21 20 6f |n source| disk! o|
|00000dd0| 72 20 69 6e 63 6f 72 65 | 63 74 20 64 69 73 6b 21 |r incore|ct disk!|
|00000de0| 22 3a f2 61 62 6f 72 74 | 0d 07 6c 07 c9 20 32 0d |":.abort|..l.. 2.|
|00000df0| 07 76 05 cb 0d 07 80 05 | e1 0d 07 8a 05 3a 0d 07 |.v......|.....:..|
|00000e00| 94 18 dd 20 f2 77 72 69 | 74 65 5f 64 65 73 74 69 |... .wri|te_desti|
|00000e10| 6e 61 74 69 6f 6e 0d 07 | 9e 23 64 65 73 74 25 20 |nation..|.#dest% |
|00000e20| 3d 20 a4 6f 73 66 69 6c | 65 5f 35 28 64 65 73 74 |= .osfil|e_5(dest|
|00000e30| 24 2c 20 66 6c 61 67 25 | 29 0d 07 a8 22 e7 20 66 |$, flag%|)...". f|
|00000e40| 6c 61 67 25 3d 31 20 8c | 20 f2 63 6f 70 79 5f 66 |lag%=1 .| .copy_f|
|00000e50| 69 6c 65 20 8b 20 f2 63 | 64 69 72 0d 07 b2 05 e1 |ile . .c|dir.....|
|00000e60| 0d 07 bc 05 3a 0d 07 c6 | 29 dd 20 f2 62 75 69 6c |....:...|). .buil|
|00000e70| 64 52 44 46 28 6e 61 6d | 65 24 2c 20 69 73 5f 63 |dRDF(nam|e$, is_c|
|00000e80| 6f 6d 70 6f 75 6e 64 2c | 20 6e 75 6d 70 29 0d 07 |ompound,| nump)..|
|00000e90| d0 0d 63 6f 75 6e 74 65 | 72 3d 30 0d 07 da 17 52 |..counte|r=0....R|
|00000ea0| 44 46 72 65 61 64 25 3d | 52 44 46 6c 73 70 61 63 |DFread%=|RDFlspac|
|00000eb0| 65 25 0d 07 e4 17 52 44 | 46 77 72 69 74 25 3d 52 |e%....RD|Fwrit%=R|
|00000ec0| 44 46 73 73 70 61 63 65 | 25 0d 07 ee 04 0d 07 f8 |DFsspace|%.......|
|00000ed0| 25 70 61 74 68 24 3d a4 | 6c 6f 61 64 52 44 46 28 |%path$=.|loadRDF(|
|00000ee0| 6e 61 6d 65 24 2c 20 52 | 44 46 6c 73 70 61 63 65 |name$, R|DFlspace|
|00000ef0| 25 29 0d 08 02 1c f4 20 | 61 3d 46 4e 6f 73 66 69 |%)..... |a=FNosfi|
|00000f00| 6c 65 5f 35 28 70 61 74 | 68 24 2c 20 31 29 0d 08 |le_5(pat|h$, 1)..|
|00000f10| 0c 04 0d 08 16 4c e7 20 | 69 73 5f 63 6f 6d 70 6f |.....L. |is_compo|
|00000f20| 75 6e 64 20 f2 62 75 69 | 6c 64 5f 63 6f 6d 70 6f |und .bui|ld_compo|
|00000f30| 75 6e 64 5f 52 44 46 28 | 6e 61 6d 65 24 2c 6e 75 |und_RDF(|name$,nu|
|00000f40| 6d 70 29 20 8b 20 f2 62 | 75 69 6c 64 5f 73 69 6d |mp) . .b|uild_sim|
|00000f50| 70 6c 65 5f 52 44 46 28 | 6e 61 6d 65 24 29 0d 08 |ple_RDF(|name$)..|
|00000f60| 20 04 0d 08 2a 36 73 61 | 76 65 5f 70 61 74 68 24 | ...*6sa|ve_path$|
|00000f70| 3d a4 6d 61 6b 65 5f 70 | 61 74 68 28 44 24 2c 20 |=.make_p|ath(D$, |
|00000f80| 44 70 61 74 68 24 2c 20 | 22 72 64 66 22 29 2b 22 |Dpath$, |"rdf")+"|
|00000f90| 2e 22 2b 6e 61 6d 65 24 | 0d 08 34 2a f2 73 61 76 |."+name$|..4*.sav|
|00000fa0| 65 28 73 61 76 65 5f 70 | 61 74 68 24 2c 20 52 44 |e(save_p|ath$, RD|
|00000fb0| 46 73 73 70 61 63 65 25 | 2c 20 63 6f 75 6e 74 65 |Fsspace%|, counte|
|00000fc0| 72 29 0d 08 3e 05 e1 0d | 08 48 05 3a 0d 08 52 1d |r)..>...|.H.:..R.|
|00000fd0| dd 20 f2 63 6f 70 79 74 | 6f 6d 65 6d 28 6e 61 6d |. .copyt|omem(nam|
|00000fe0| 65 24 2c 20 61 64 72 25 | 29 0d 08 5c 18 e3 20 63 |e$, adr%|)..\.. c|
|00000ff0| 6f 75 6e 74 3d 30 20 b8 | 20 a9 28 6e 61 6d 65 24 |ount=0 .| .(name$|
|00001000| 29 0d 08 66 14 70 6f 6b | 65 25 3d 61 64 72 25 2b |)..f.pok|e%=adr%+|
|00001010| 63 6f 75 6e 74 0d 08 70 | 21 3f 70 6f 6b 65 25 3d |count..p|!?poke%=|
|00001020| 97 28 c1 6e 61 6d 65 24 | 2c 20 63 6f 75 6e 74 2b |.(.name$|, count+|
|00001030| 31 2c 20 31 29 29 0d 08 | 7a 05 ed 0d 08 84 12 52 |1, 1))..|z......R|
|00001040| 44 46 77 72 69 74 25 3d | 70 6f 6b 65 25 0d 08 8e |DFwrit%=|poke%...|
|00001050| 05 e1 0d 08 98 05 3a 0d | 08 a2 1e dd 20 f2 73 61 |......:.|.... .sa|
|00001060| 76 65 28 6e 61 6d 65 24 | 2c 20 61 64 72 25 2c 20 |ve(name$|, adr%, |
|00001070| 6c 65 6e 25 29 0d 08 ac | 2e ff 28 22 53 41 56 45 |len%)...|..("SAVE|
|00001080| 20 22 2b 6e 61 6d 65 24 | 2b 22 20 22 2b c3 7e 28 | "+name$|+" "+.~(|
|00001090| 61 64 72 25 29 2b 22 2b | 22 2b c3 7e 28 6c 65 6e |adr%)+"+|"+.~(len|
|000010a0| 25 29 29 0d 08 b6 05 e1 | 0d 08 c0 05 3a 0d 08 ca |%)).....|....:...|
|000010b0| 1b dd 20 a4 6c 6f 61 64 | 52 44 46 28 6e 61 6d 65 |.. .load|RDF(name|
|000010c0| 24 2c 20 61 64 72 25 29 | 0d 08 d4 2d 52 44 46 5f |$, adr%)|...-RDF_|
|000010d0| 70 61 74 68 24 20 3d 20 | a4 6d 61 6b 65 5f 70 61 |path$ = |.make_pa|
|000010e0| 74 68 28 53 24 2c 20 53 | 70 61 74 68 24 2c 20 22 |th(S$, S|path$, "|
|000010f0| 72 64 66 22 29 0d 08 de | 1f 70 61 74 68 24 20 3d |rdf")...|.path$ =|
|00001100| 20 52 44 46 5f 70 61 74 | 68 24 2b 22 2e 22 2b 6e | RDF_pat|h$+"."+n|
|00001110| 61 6d 65 24 0d 08 e8 21 | ff 28 22 4c 4f 41 44 20 |ame$...!|.("LOAD |
|00001120| 22 2b 70 61 74 68 24 2b | 22 20 22 2b c3 7e 28 61 |"+path$+|" "+.~(a|
|00001130| 64 72 25 29 29 0d 08 f2 | 0a 3d 70 61 74 68 24 0d |dr%))...|.=path$.|
|00001140| 08 fc 05 3a 0d 09 06 1e | dd 20 f2 62 75 69 6c 64 |...:....|. .build|
|00001150| 5f 73 69 6d 70 6c 65 5f | 52 44 46 28 6e 61 6d 65 |_simple_|RDF(name|
|00001160| 24 29 0d 09 10 37 52 53 | 43 5f 70 61 74 68 24 20 |$)...7RS|C_path$ |
|00001170| 3d 20 a4 6d 61 6b 65 5f | 70 61 74 68 28 44 24 2c |= .make_|path(D$,|
|00001180| 20 44 70 61 74 68 24 2c | 20 22 72 73 63 22 29 2b | Dpath$,| "rsc")+|
|00001190| 22 2e 22 2b 6e 61 6d 65 | 24 0d 09 1a 3d 66 75 6c |"."+name|$...=ful|
|000011a0| 6c 5f 70 61 74 68 24 3d | 52 53 43 5f 70 61 74 68 |l_path$=|RSC_path|
|000011b0| 24 2b 22 20 20 20 22 2b | a4 67 65 74 52 53 43 6c |$+" "+|.getRSCl|
|000011c0| 65 6e 28 52 44 46 72 65 | 61 64 25 29 2b 22 20 22 |en(RDFre|ad%)+" "|
|000011d0| 2b bd 28 31 30 29 0d 09 | 24 1c 63 6f 75 6e 74 65 |+.(10)..|$.counte|
|000011e0| 72 20 2b 3d 20 a9 28 66 | 75 6c 6c 5f 70 61 74 68 |r += .(f|ull_path|
|000011f0| 24 29 0d 09 2e 24 f2 63 | 6f 70 79 74 6f 6d 65 6d |$)...$.c|opytomem|
|00001200| 28 66 75 6c 6c 5f 70 61 | 74 68 24 2c 20 52 44 46 |(full_pa|th$, RDF|
|00001210| 77 72 69 74 25 29 0d 09 | 38 05 e1 0d 09 42 05 3a |writ%)..|8....B.:|
|00001220| 0d 09 4c 29 dd 20 f2 62 | 75 69 6c 64 5f 63 6f 6d |..L). .b|uild_com|
|00001230| 70 6f 75 6e 64 5f 52 44 | 46 28 6e 61 6d 65 24 2c |pound_RD|F(name$,|
|00001240| 6e 75 6d 70 61 72 74 73 | 29 0d 09 56 22 e7 20 6e |numparts|)..V". n|
|00001250| 61 6d 65 24 3d 22 6d 6f | 72 65 31 22 20 6e 61 6d |ame$="mo|re1" nam|
|00001260| 65 24 20 3d 20 22 6d 6f | 72 65 22 0d 09 60 1b e3 |e$ = "mo|re"..`..|
|00001270| 20 72 73 63 6e 75 6d 20 | 3d 20 30 20 b8 20 6e 75 | rscnum |= 0 . nu|
|00001280| 6d 70 61 72 74 73 0d 09 | 6a 41 52 53 43 5f 70 61 |mparts..|jARSC_pa|
|00001290| 74 68 24 20 3d 20 a4 6d | 61 6b 65 5f 70 61 74 68 |th$ = .m|ake_path|
|000012a0| 28 44 24 2c 20 44 70 61 | 74 68 24 2c 20 22 72 73 |(D$, Dpa|th$, "rs|
|000012b0| 63 22 29 2b 22 2e 22 2b | 6e 61 6d 65 24 2b c3 28 |c")+"."+|name$+.(|
|000012c0| 72 73 63 6e 75 6d 29 0d | 09 74 3d 66 75 6c 6c 5f |rscnum).|.t=full_|
|000012d0| 70 61 74 68 24 3d 52 53 | 43 5f 70 61 74 68 24 2b |path$=RS|C_path$+|
|000012e0| 22 20 20 20 22 2b a4 67 | 65 74 52 53 43 6c 65 6e |" "+.g|etRSClen|
|000012f0| 28 52 44 46 72 65 61 64 | 25 29 2b 22 20 22 2b bd |(RDFread|%)+" "+.|
|00001300| 28 31 30 29 0d 09 7e 1c | 63 6f 75 6e 74 65 72 20 |(10)..~.|counter |
|00001310| 2b 3d 20 a9 28 66 75 6c | 6c 5f 70 61 74 68 24 29 |+= .(ful|l_path$)|
|00001320| 0d 09 88 24 f2 63 6f 70 | 79 74 6f 6d 65 6d 28 66 |...$.cop|ytomem(f|
|00001330| 75 6c 6c 5f 70 61 74 68 | 24 2c 20 52 44 46 77 72 |ull_path|$, RDFwr|
|00001340| 69 74 25 29 0d 09 92 05 | ed 0d 09 9c 05 e1 0d 09 |it%)....|........|
|00001350| a6 05 3a 0d 09 b0 16 dd | 20 a4 67 65 74 52 53 43 |..:.....| .getRSC|
|00001360| 6c 65 6e 28 61 64 72 25 | 29 0d 09 ba 0e 6c 65 6e |len(adr%|)....len|
|00001370| 67 74 68 24 3d 22 22 0d | 09 c4 05 f5 0d 09 ce 0c |gth$="".|........|
|00001380| 61 64 72 25 20 2b 3d 31 | 0d 09 d8 18 fd 20 3f 61 |adr% +=1|..... ?a|
|00001390| 64 72 25 3d 33 32 20 84 | 20 3f 61 64 72 25 3d 39 |dr%=32 .| ?adr%=9|
|000013a0| 0d 09 e2 05 f5 0d 09 ec | 0c 61 64 72 25 20 2b 3d |........|.adr% +=|
|000013b0| 31 0d 09 f6 1e fd 20 3f | 61 64 72 25 3e 3d 26 33 |1..... ?|adr%>=&3|
|000013c0| 30 20 80 20 3f 61 64 72 | 25 20 3c 20 26 34 30 0d |0 . ?adr|% < &40.|
|000013d0| 0a 00 05 f5 0d 0a 0a 1c | 6c 65 6e 67 74 68 24 3d |........|length$=|
|000013e0| 6c 65 6e 67 74 68 24 2b | bd 28 3f 61 64 72 25 29 |length$+|.(?adr%)|
|000013f0| 0d 0a 14 0c 61 64 72 25 | 20 2b 3d 31 0d 0a 1e 1e |....adr%| +=1....|
|00001400| fd 20 3f 61 64 72 25 3c | 26 33 30 20 84 20 3f 61 |. ?adr%<|&30 . ?a|
|00001410| 64 72 25 20 3e 3d 20 26 | 34 30 0d 0a 28 05 f5 0d |dr% >= &|40..(...|
|00001420| 0a 32 0c 61 64 72 25 20 | 2b 3d 31 0d 0a 3c 1e fd |.2.adr% |+=1..<..|
|00001430| 20 3f 61 64 72 25 3e 3d | 36 35 20 84 20 3f 61 64 | ?adr%>=|65 . ?ad|
|00001440| 72 25 20 3c 3d 20 31 32 | 32 0d 0a 46 11 52 44 46 |r% <= 12|2..F.RDF|
|00001450| 72 65 61 64 25 3d 61 64 | 72 25 0d 0a 50 0c 3d 6c |read%=ad|r%..P.=l|
|00001460| 65 6e 67 74 68 24 0d 0a | 5a 05 3a 0d 0a 64 15 f4 |ength$..|Z.:..d..|
|00001470| 20 44 45 46 20 46 4e 6f | 76 65 72 77 72 69 74 65 | DEF FNo|verwrite|
|00001480| 0d 0a 6e 2f f1 20 27 22 | 57 61 72 6e 69 6e 67 21 |..n/. '"|Warning!|
|00001490| 20 20 22 20 2b 20 64 65 | 73 74 24 20 2b 20 22 20 | " + de|st$ + " |
|000014a0| 61 6c 72 65 61 64 79 20 | 65 78 69 73 74 73 22 0d |already |exists".|
|000014b0| 0a 78 21 f1 20 27 22 44 | 65 6c 65 74 65 20 6f 6c |.x!. '"D|elete ol|
|000014c0| 64 20 66 69 6c 65 20 3f | 28 59 2f 4e 29 20 22 3b |d file ?|(Y/N) ";|
|000014d0| 0d 0a 82 0d 3d a4 5f 79 | 5f 4f 52 5f 6e 0d 0a 8c |....=._y|_OR_n...|
|000014e0| 05 3a 0d 0a 96 0e dd 20 | a4 5f 79 5f 4f 52 5f 6e |.:..... |._y_OR_n|
|000014f0| 0d 0a a0 08 ea 20 47 24 | 0d 0a aa 05 f5 0d 0a b4 |..... G$|........|
|00001500| 0c 2a 46 58 20 31 35 2c | 31 0d 0a be 08 47 24 3d |.*FX 15,|1....G$=|
|00001510| be 0d 0a c8 15 fd 20 a7 | 22 59 79 4e 6e 22 2c 47 |...... .|"YyNn",G|
|00001520| 24 29 20 3c 3e 30 0d 0a | d2 09 f1 20 47 24 27 0d |$) <>0..|... G$'.|
|00001530| 0a dc 13 e7 20 a7 22 59 | 79 22 2c 47 24 29 20 3a |.... ."Y|y",G$) :|
|00001540| 3d b9 0d 0a e6 06 3d a3 | 0d 0a f0 05 3a 0d 0a fa |=.....=.|....:...|
|00001550| 1b dd 20 a4 6f 73 66 69 | 6c 65 5f 35 28 6f 62 6a |.. .osfi|le_5(obj|
|00001560| 24 2c 66 6c 61 67 25 29 | 0d 0b 04 13 ea 20 74 79 |$,flag%)|..... ty|
|00001570| 70 65 25 2c 72 65 74 75 | 72 6e 25 0d 0b 0e 15 74 |pe%,retu|rn%....t|
|00001580| 79 70 65 25 3d 30 3a 72 | 65 74 75 72 6e 25 3d 30 |ype%=0:r|eturn%=0|
|00001590| 0d 0b 18 34 c8 99 20 22 | 4f 53 5f 46 69 6c 65 22 |...4.. "|OS_File"|
|000015a0| 2c 35 2c 6f 62 6a 24 20 | b8 20 74 79 70 65 25 2c |,5,obj$ |. type%,|
|000015b0| 20 6e 61 2c 20 6c 6f 2c | 20 65 78 2c 20 6c 65 6e | na, lo,| ex, len|
|000015c0| 67 74 68 25 0d 0b 22 1d | e7 20 74 79 70 65 25 20 |gth%..".|. type% |
|000015d0| 3d 20 30 20 8c 20 72 65 | 74 75 72 6e 25 20 3d 20 |= 0 . re|turn% = |
|000015e0| 30 0d 0b 2c 30 e7 20 28 | 74 79 70 65 25 20 3e 20 |0..,0. (|type% > |
|000015f0| 30 20 80 20 74 79 70 65 | 25 20 3c 3e 20 66 6c 61 |0 . type|% <> fla|
|00001600| 67 25 29 20 8c 20 72 65 | 74 75 72 6e 25 20 3d 20 |g%) . re|turn% = |
|00001610| 31 0d 0b 36 2f e7 20 28 | 74 79 70 65 25 20 3e 20 |1..6/. (|type% > |
|00001620| 30 20 80 20 74 79 70 65 | 25 20 3d 20 66 6c 61 67 |0 . type|% = flag|
|00001630| 25 29 20 8c 20 72 65 74 | 75 72 6e 25 20 3d 20 32 |%) . ret|urn% = 2|
|00001640| 0d 0b 40 0d 3d 20 72 65 | 74 75 72 6e 25 0d 0b 4a |..@.= re|turn%..J|
|00001650| 05 3a 0d 0b 54 1a dd 20 | a4 6d 61 6b 65 5f 70 61 |.:..T.. |.make_pa|
|00001660| 74 68 28 61 24 2c 62 24 | 2c 63 24 29 0d 0b 5e 23 |th(a$,b$|,c$)..^#|
|00001670| e7 20 62 24 20 3c 3e 20 | 22 22 20 8c 20 61 24 20 |. b$ <> |"" . a$ |
|00001680| 3d 20 61 24 20 2b 20 22 | 2e 22 20 2b 20 62 24 0d |= a$ + "|." + b$.|
|00001690| 0b 68 23 e7 20 63 24 20 | 3c 3e 20 22 22 20 8c 20 |.h#. c$ |<> "" . |
|000016a0| 61 24 20 3d 20 61 24 20 | 2b 20 22 2e 22 20 2b 20 |a$ = a$ |+ "." + |
|000016b0| 63 24 0d 0b 72 08 3d 20 | 61 24 0d 0b 7c 05 3a 0d |c$..r.= |a$..|.:.|
|000016c0| 0b 86 15 dd 20 f2 63 68 | 65 63 6b 5f 64 69 73 6b |.... .ch|eck_disk|
|000016d0| 28 44 24 29 0d 0b 90 04 | 0d 0b 9a 3c f1 22 45 6e |(D$)....|...<."En|
|000016e0| 74 65 72 20 68 61 72 64 | 20 64 72 69 76 65 20 20 |ter hard| drive |
|000016f0| 6f 6e 20 77 68 69 63 68 | 20 74 6f 20 69 6e 73 74 |on which| to inst|
|00001700| 61 6c 6c 20 22 20 2b 20 | 61 70 70 6c 69 63 61 74 |all " + |applicat|
|00001710| 69 6f 6e 24 0d 0b a4 1f | f1 22 52 65 74 75 72 6e |ion$....|."Return|
|00001720| 20 66 6f 72 20 64 65 66 | 61 75 6c 74 20 22 20 2b | for def|ault " +|
|00001730| 20 44 24 0d 0b ae 0b e8 | 20 44 5f 48 44 24 0d 0b | D$.....| D_HD$..|
|00001740| b8 0d f2 77 61 69 74 28 | 32 30 29 0d 0b c2 04 0d |...wait(|20).....|
|00001750| 0b cc 29 e7 20 44 5f 48 | 44 24 20 3d 20 22 22 20 |..). D_H|D$ = "" |
|00001760| f1 20 27 22 44 72 69 76 | 65 20 22 2b 44 24 27 3a |. '"Driv|e "+D$':|
|00001770| 44 5f 48 44 24 3d 44 24 | 0d 0b d6 0b 63 6f 75 6e |D_HD$=D$|....coun|
|00001780| 74 3d 30 0d 0b e0 05 f5 | 0d 0b ea 0c 63 6f 75 6e |t=0.....|....coun|
|00001790| 74 2b 3d 31 0d 0b f4 28 | fd 20 28 c1 44 5f 48 44 |t+=1...(|. (.D_HD|
|000017a0| 24 2c 63 6f 75 6e 74 2c | 31 29 3d 22 3a 22 29 20 |$,count,|1)=":") |
|000017b0| 84 20 63 6f 75 6e 74 20 | 3e 20 31 30 0d 0b fe 24 |. count |> 10...$|
|000017c0| e7 20 63 6f 75 6e 74 20 | 3e 20 31 30 20 f1 22 42 |. count |> 10 ."B|
|000017d0| 61 64 20 64 65 76 69 63 | 65 22 3a e5 8d 74 5a 4b |ad devic|e":..tZK|
|000017e0| 0d 0c 08 04 0d 0c 12 1b | 64 65 76 69 63 65 24 3d |........|device$=|
|000017f0| c1 44 5f 48 44 24 2c 30 | 2c 63 6f 75 6e 74 29 0d |.D_HD$,0|,count).|
|00001800| 0c 1c 04 0d 0c 26 18 e7 | 20 a4 63 68 65 63 6b 5f |.....&..| .check_|
|00001810| 72 61 6d 3d 31 20 e5 8d | 44 62 4c 0d 0c 30 27 e7 |ram=1 ..|DbL..0'.|
|00001820| 20 a4 63 68 65 63 6b 5f | 72 61 6d 3d 2d 31 20 f1 | .check_|ram=-1 .|
|00001830| 22 42 61 64 20 64 65 76 | 69 63 65 22 3a e5 8d 74 |"Bad dev|ice":..t|
|00001840| 5a 4b 0d 0c 3a 04 0d 0c | 44 1e 6e 75 6d 3d 97 28 |ZK..:...|D.num=.(|
|00001850| c1 44 5f 48 44 24 2c 28 | 63 6f 75 6e 74 2b 32 29 |.D_HD$,(|count+2)|
|00001860| 2c 31 29 29 0d 0c 4e 3f | e7 20 6e 75 6d 3c 97 28 |,1))..N?|. num<.(|
|00001870| 22 30 22 29 20 84 20 6e | 75 6d 3e 97 28 22 39 22 |"0") . n|um>.("9"|
|00001880| 29 20 f1 22 70 6c 65 61 | 73 65 20 75 73 65 20 64 |) ."plea|se use d|
|00001890| 72 69 76 65 20 6e 75 6d | 62 65 72 73 22 3a e5 8d |rive num|bers":..|
|000018a0| 74 5a 4b 0d 0c 58 04 0d | 0c 62 13 24 44 69 73 6e |tZK..X..|.b.$Disn|
|000018b0| 61 6d 65 25 3d 44 5f 48 | 44 24 0d 0c 6c 04 0d 0c |ame%=D_H|D$..l...|
|000018c0| 76 13 44 72 76 25 3d 44 | 69 73 6e 61 6d 65 25 2d |v.Drv%=D|isname%-|
|000018d0| 31 0d 0c 80 05 f5 0d 0c | 8a 0b 44 72 76 25 2b 3d |1.......|..Drv%+=|
|000018e0| 31 0d 0c 94 2f fd 20 28 | 3f 44 72 76 25 3d 97 28 |1.../. (|?Drv%=.(|
|000018f0| 22 3a 22 29 29 20 84 20 | 28 44 72 76 25 3e 44 69 |":")) . |(Drv%>Di|
|00001900| 73 6e 61 6d 65 25 2b a9 | 28 44 5f 48 44 24 29 29 |sname%+.|(D_HD$))|
|00001910| 0d 0c 9e 0b 44 72 76 25 | 2b 3d 31 0d 0c a8 04 0d |....Drv%|+=1.....|
|00001920| 0c b2 1e 3f 28 44 69 73 | 6e 61 6d 65 25 20 2b 20 |...?(Dis|name% + |
|00001930| a9 28 44 5f 48 44 24 29 | 29 3d 26 30 30 0d 0c bc |.(D_HD$)|)=&00...|
|00001940| 04 0d 0c c6 59 e7 20 64 | 65 76 69 63 65 24 3d 22 |....Y. d|evice$="|
|00001950| 61 64 66 73 3a 22 20 84 | 20 64 65 76 69 63 65 24 |adfs:" .| device$|
|00001960| 3d 22 41 44 46 53 3a 22 | 20 e5 20 8d 64 6e 4c 20 |="ADFS:"| . .dnL |
|00001970| 8b 20 f1 20 22 57 6f 6e | 64 65 72 6c 61 6e 64 20 |. . "Won|derland |
|00001980| 77 69 6c 6c 20 75 73 65 | 20 32 2e 33 20 4d 65 67 |will use| 2.3 Meg|
|00001990| 61 62 79 74 65 73 22 27 | 3a e1 0d 0c d0 04 0d 0c |abytes"'|:.......|
|000019a0| da 04 0d 0c e4 04 0d 0c | ee 1d c8 99 28 26 34 30 |........|....(&40|
|000019b0| 32 34 33 29 2c 44 72 76 | 25 20 b8 20 64 69 73 6c |243),Drv|% . disl|
|000019c0| 65 6e 25 0d 0c f8 04 0d | 0d 02 2a f1 20 22 57 6f |en%.....|..*. "Wo|
|000019d0| 6e 64 65 72 6c 61 6e 64 | 20 77 69 6c 6c 20 75 73 |nderland| will us|
|000019e0| 65 20 32 2e 33 20 4d 65 | 67 61 62 79 74 65 73 22 |e 2.3 Me|gabytes"|
|000019f0| 27 0d 0d 0c 36 f1 20 22 | 54 68 65 72 65 20 69 73 |'...6. "|There is|
|00001a00| 20 22 3b 64 69 73 6c 65 | 6e 25 2f 31 30 32 34 3b | ";disle|n%/1024;|
|00001a10| 22 6b 20 66 72 65 65 20 | 6f 6e 20 74 68 69 73 20 |"k free |on this |
|00001a20| 64 72 69 76 65 22 27 0d | 0d 16 67 e7 20 64 69 73 |drive"'.|..g. dis|
|00001a30| 6c 65 6e 25 3c 32 33 30 | 30 30 30 30 20 8c 20 f1 |len%<230|0000 . .|
|00001a40| 22 57 6f 6e 64 65 72 6c | 61 6e 64 20 77 69 6c 6c |"Wonderl|and will|
|00001a50| 20 6e 6f 74 20 66 69 74 | 2c 20 70 6c 65 61 73 65 | not fit|, please|
|00001a60| 20 64 65 6c 65 74 65 20 | 73 6f 6d 65 20 66 69 6c | delete |some fil|
|00001a70| 65 73 20 61 6e 64 20 72 | 65 2d 72 75 6e 20 49 6e |es and r|e-run In|
|00001a80| 73 74 61 6c 6c 20 22 3a | f2 61 62 6f 72 74 0d 0d |stall ":|.abort..|
|00001a90| 20 04 0d 0d 2a 05 e1 0d | 0d 34 05 3a 0d 0d 3e 10 | ...*...|.4.:..>.|
|00001aa0| dd 20 a4 63 68 65 63 6b | 5f 72 61 6d 0d 0d 48 0a |. .check|_ram..H.|
|00001ab0| 72 65 74 25 3d 30 0d 0d | 52 37 e7 20 28 64 65 76 |ret%=0..|R7. (dev|
|00001ac0| 69 63 65 24 3d 22 52 41 | 4d 3a 22 29 20 84 20 28 |ice$="RA|M:") . (|
|00001ad0| 64 65 76 69 63 65 24 3d | 22 72 61 6d 3a 22 29 20 |device$=|"ram:") |
|00001ae0| 72 65 74 25 3d 31 20 8b | e5 8d 44 66 4d 0d 0d 5c |ret%=1 .|..DfM..\|
|00001af0| 19 e7 20 a9 28 44 5f 48 | 44 24 29 3c 3e 34 20 72 |.. .(D_H|D$)<>4 r|
|00001b00| 65 74 25 3d 2d 31 0d 0d | 66 09 3d 72 65 74 25 0d |et%=-1..|f.=ret%.|
|00001b10| 0d 70 05 3a 0d 0d 7a 11 | dd 20 a4 6d 61 6b 65 5f |.p.:..z.|. .make_|
|00001b20| 64 72 69 76 65 0d 0d 84 | 4d e7 20 c1 44 5f 48 44 |drive...|M. .D_HD|
|00001b30| 24 2c a9 28 44 5f 48 44 | 24 29 2c 31 29 3d 22 3a |$,.(D_HD|$),1)=":|
|00001b40| 22 20 44 5f 48 44 24 3d | 44 5f 48 44 24 2b 22 24 |" D_HD$=|D_HD$+"$|
|00001b50| 22 20 8b 20 44 5f 48 44 | 24 3d a4 6d 61 6b 65 5f |" . D_HD|$=.make_|
|00001b60| 70 61 74 68 28 44 5f 48 | 44 24 2c 22 24 22 2c 22 |path(D_H|D$,"$","|
|00001b70| 22 29 0d 0d 8e 0a 3d 44 | 5f 48 44 24 0d 0d 98 05 |")....=D|_HD$....|
|00001b80| 3a 0d 0d a2 37 dd 20 f2 | 63 6f 70 79 5f 66 69 6c |:...7. .|copy_fil|
|00001b90| 65 3a ea 20 63 6f 70 79 | 5f 6f 70 74 24 3a 63 6f |e:. copy|_opt$:co|
|00001ba0| 70 79 5f 6f 70 74 24 3d | 22 7e 43 7e 44 7e 46 7e |py_opt$=|"~C~D~F~|
|00001bb0| 50 7e 51 7e 52 7e 56 22 | 0d 0d ac 22 ea 20 74 79 |P~Q~R~V"|...". ty|
|00001bc0| 70 65 2c 6c 6f 61 64 2c | 65 78 65 63 2c 6c 65 6e |pe,load,|exec,len|
|00001bd0| 67 74 68 2c 68 6f 77 25 | 2c 58 0d 0d b6 37 58 3d |gth,how%|,X...7X=|
|00001be0| ad 28 73 6f 75 72 63 65 | 24 29 3a 6c 65 6e 67 74 |.(source|$):lengt|
|00001bf0| 68 3d a2 23 58 3a d9 23 | 58 3a 68 6f 77 25 3d 28 |h=.#X:.#|X:how%=(|
|00001c00| 6c 65 6e 67 74 68 20 3c | 3d 20 26 34 42 30 30 30 |length <|= &4B000|
|00001c10| 29 0d 0d c0 0d c8 8e 20 | 68 6f 77 25 20 ca 0d 0d |)...... |how% ...|
|00001c20| ca 40 c9 20 30 20 3a f2 | 63 6c 69 28 22 43 4f 50 |.@. 0 :.|cli("COP|
|00001c30| 59 20 22 20 2b 20 73 6f | 75 72 63 65 24 20 2b 20 |Y " + so|urce$ + |
|00001c40| 22 20 22 20 2b 20 64 65 | 73 74 24 20 2b 20 22 20 |" " + de|st$ + " |
|00001c50| 22 20 2b 20 63 6f 70 79 | 5f 6f 70 74 24 29 0d 0d |" + copy|_opt$)..|
|00001c60| d4 46 c9 20 2d 31 3a c8 | 99 20 22 4f 53 5f 46 69 |.F. -1:.|. "OS_Fi|
|00001c70| 6c 65 22 2c 26 46 46 2c | 73 6f 75 72 63 65 24 2c |le",&FF,|source$,|
|00001c80| 77 6f 72 6b 73 70 61 63 | 65 2c 30 20 b8 20 74 79 |workspac|e,0 . ty|
|00001c90| 70 65 2c 2c 6c 6f 61 64 | 2c 65 78 65 63 2c 6c 65 |pe,,load|,exec,le|
|00001ca0| 6e 67 74 68 0d 0d de 41 | c8 99 20 22 4f 53 5f 46 |ngth...A|.. "OS_F|
|00001cb0| 69 6c 65 22 2c 30 2c 64 | 65 73 74 24 2c 6c 6f 61 |ile",0,d|est$,loa|
|00001cc0| 64 2c 65 78 65 63 2c 77 | 6f 72 6b 73 70 61 63 65 |d,exec,w|orkspace|
|00001cd0| 2c 28 77 6f 72 6b 73 70 | 61 63 65 20 2b 20 6c 65 |,(worksp|ace + le|
|00001ce0| 6e 67 74 68 29 0d 0d e8 | 05 cb 0d 0d f2 1d f1 20 |ngth)...|....... |
|00001cf0| 73 6f 75 72 63 65 24 20 | 2b 20 22 20 63 6f 70 69 |source$ |+ " copi|
|00001d00| 65 64 20 61 73 20 22 0d | 0d fc 0c f1 20 64 65 73 |ed as ".|.... des|
|00001d10| 74 24 27 0d 0e 06 05 e1 | 0d 0e 10 05 3a 0d 0e 1a |t$'.....|....:...|
|00001d20| 2c dd 20 f2 61 62 6f 72 | 74 3a f1 20 27 22 49 6e |,. .abor|t:. '"In|
|00001d30| 73 74 61 6c 6c 61 74 69 | 6f 6e 20 61 62 6f 72 74 |stallati|on abort|
|00001d40| 65 64 2e 22 27 3a e0 3a | e1 0d 0e 24 16 dd 20 f2 |ed."':.:|...$.. .|
|00001d50| 63 6c 69 28 73 24 29 3a | ff 28 73 24 29 3a e1 0d |cli(s$):|.(s$):..|
|00001d60| 0e 2e 21 dd 20 f2 63 64 | 69 72 3a f2 63 6c 69 28 |..!. .cd|ir:.cli(|
|00001d70| 22 43 44 49 52 20 22 20 | 2b 20 64 65 73 74 24 29 |"CDIR " |+ dest$)|
|00001d80| 0d 0e 38 05 e1 0d 0e 42 | 3f dd 20 f2 64 65 6c 5f |..8....B|?. .del_|
|00001d90| 66 69 6c 65 3a f2 63 6c | 69 28 22 41 43 43 45 53 |file:.cl|i("ACCES|
|00001da0| 53 20 22 20 2b 20 64 65 | 73 74 24 29 3a f2 63 6c |S " + de|st$):.cl|
|00001db0| 69 28 22 44 45 4c 45 54 | 45 20 22 2b 64 65 73 74 |i("DELET|E "+dest|
|00001dc0| 24 29 3a e1 0d 0e 4c 30 | dd 20 f2 77 69 70 65 5f |$):...L0|. .wipe_|
|00001dd0| 64 69 72 3a f2 63 6c 69 | 28 22 57 49 50 45 20 22 |dir:.cli|("WIPE "|
|00001de0| 20 2b 20 64 65 73 74 24 | 20 2b 20 22 20 56 46 52 | + dest$| + " VFR|
|00001df0| 22 29 3a e1 0d 0e 56 05 | 3a 0d 0e 60 12 f2 5f 64 |"):...V.|:..`.._d|
|00001e00| 72 61 77 5f 74 69 6c 65 | 28 34 29 0d 0e 6a 04 0d |raw_tile|(4)..j..|
|00001e10| 0e 74 11 e7 20 9f 3d 31 | 37 20 f2 61 62 6f 72 74 |.t.. .=1|7 .abort|
|00001e20| 0d 0e 7e 0b 65 72 72 24 | 3d f6 24 0d 0e 88 2d e7 |..~.err$|=.$...-.|
|00001e30| 20 65 72 72 24 3d 22 4e | 6f 74 20 66 6f 75 6e 64 | err$="N|ot found|
|00001e40| 22 20 65 72 72 24 3d 22 | 44 69 72 65 63 74 6f 72 |" err$="|Director|
|00001e50| 79 20 22 2b 65 72 72 24 | 0d 0e 92 26 e7 20 65 72 |y "+err$|...&. er|
|00001e60| 72 24 3d 22 44 72 69 76 | 65 20 65 6d 70 74 79 22 |r$="Driv|e empty"|
|00001e70| 20 f1 27 65 72 72 24 3a | f2 61 62 6f 72 74 0d 0e | .'err$:|.abort..|
|00001e80| 9c 25 e7 20 65 72 72 24 | 3d 22 44 69 73 63 20 65 |.%. err$|="Disc e|
|00001e90| 72 72 6f 72 22 20 f1 27 | 65 72 72 24 3a f2 61 62 |rror" .'|err$:.ab|
|00001ea0| 6f 72 74 0d 0e a6 0b f1 | 20 27 65 72 72 24 0d 0e |ort.....| 'err$..|
|00001eb0| b0 0d f2 5f 77 61 69 74 | 28 32 29 0d 0e ba 20 f1 |..._wait|(2)... .|
|00001ec0| 27 22 50 72 65 73 73 20 | 73 70 61 63 65 20 74 6f |'"Press |space to|
|00001ed0| 20 63 6f 6e 74 69 6e 75 | 65 2e 22 0d 0e c4 05 f5 | continu|e.".....|
|00001ee0| 0d 0e ce 08 47 24 3d be | 0d 0e d8 0c fd 20 47 24 |....G$=.|..... G$|
|00001ef0| 3d 22 20 22 0d 0e e2 12 | f2 5f 6b 69 6c 6c 5f 74 |=" "....|._kill_t|
|00001f00| 69 6c 65 28 34 29 0d 0e | ec 12 f2 5f 64 72 61 77 |ile(4)..|..._draw|
|00001f10| 5f 74 69 6c 65 28 32 29 | 0d 0e f6 0a e5 20 8d 74 |_tile(2)|..... .t|
|00001f20| 74 40 0d 0f 00 05 3a 0d | 0f 0a 1b dc 20 22 41 6c |t@....:.|.... "Al|
|00001f30| 69 63 65 20 69 6e 20 57 | 6f 6e 64 65 72 6c 61 6e |ice in W|onderlan|
|00001f40| 64 22 0d 0f 14 04 0d 0f | 1e 04 0d 0f 28 1c f4 20 |d"......|....(.. |
|00001f50| 73 6f 75 72 63 65 2c 20 | 68 61 72 64 20 64 69 73 |source, |hard dis|
|00001f60| 6b 20 28 48 44 29 0d 0f | 32 04 0d 0f 3c 1c dc 20 |k (HD)..|2...<.. |
|00001f70| 22 41 44 46 53 3a 3a 30 | 2e 24 22 2c 20 22 41 44 |"ADFS::0|.$", "AD|
|00001f80| 46 53 3a 3a 34 22 0d 0f | 46 04 0d 0f 50 1c f4 20 |FS::4"..|F...P.. |
|00001f90| 73 6f 75 72 63 65 2c 20 | 68 61 72 64 20 64 69 73 |source, |hard dis|
|00001fa0| 6b 20 28 48 44 29 0d 0f | 5a 04 0d 0f 64 1a dc 20 |k (HD)..|Z...d.. |
|00001fb0| 21 77 6f 6e 64 65 72 6c | 61 2c 20 21 77 6f 6e 64 |!wonderl|a, !wond|
|00001fc0| 65 72 6c 61 0d 0f 6e 04 | 0d 0f 78 18 f4 20 77 6f |erla..n.|..x.. wo|
|00001fd0| 6e 64 65 72 6c 61 6e 64 | 20 6f 62 6a 65 63 74 73 |nderland| objects|
|00001fe0| 0d 0f 82 04 0d 0f 8c 17 | f4 20 74 79 70 65 2c 20 |........|. type, |
|00001ff0| 6f 62 6a 65 63 74 20 6e | 61 6d 65 0d 0f 96 04 0d |object n|ame.....|
|00002000| 0f a0 0e dc 20 31 2c 20 | 41 4c 49 43 45 0d 0f aa |.... 1, |ALICE...|
|00002010| 0c dc 20 31 2c 20 77 69 | 6e 0d 0f b4 11 dc 20 31 |.. 1, wi|n..... 1|
|00002020| 2c 20 21 53 70 72 69 74 | 65 73 0d 0f be 0d dc 20 |, !Sprit|es..... |
|00002030| 31 2c 20 21 52 75 6e 0d | 0f c8 0e dc 20 31 2c 20 |1, !Run.|.... 1, |
|00002040| 70 72 65 66 73 0d 0f d2 | 0f dc 20 31 2c 20 43 6f |prefs...|.. 1, Co|
|00002050| 6e 66 69 67 0d 0f dc 10 | dc 20 31 2c 20 52 65 5f |nfig....|. 1, Re_|
|00002060| 69 6e 69 74 0d 0f e6 12 | dc 20 31 2c 20 73 63 73 |init....|. 1, scs|
|00002070| 69 2d 66 69 6c 65 0d 0f | f0 0c dc 20 32 2c 20 72 |i-file..|... 2, r|
|00002080| 64 66 0d 0f fa 11 dc 20 | 31 2c 20 72 64 66 2e 62 |df..... |1, rdf.b|
|00002090| 6f 6f 74 0d 10 04 10 dc | 20 31 2c 20 72 64 66 2e |oot.....| 1, rdf.|
|000020a0| 61 6c 6c 0d 10 0e 12 dc | 20 31 2c 20 72 64 66 2e |all.....| 1, rdf.|
|000020b0| 6d 6f 72 65 31 0d 10 18 | 0c dc 20 32 2c 20 72 73 |more1...|.. 2, rs|
|000020c0| 63 0d 10 22 11 dc 20 31 | 2c 20 72 73 63 2e 62 6f |c..".. 1|, rsc.bo|
|000020d0| 6f 74 0d 10 2c 11 dc 20 | 31 2c 20 72 73 63 2e 61 |ot..,.. |1, rsc.a|
|000020e0| 6c 6c 30 0d 10 36 11 dc | 20 31 2c 20 72 73 63 2e |ll0..6..| 1, rsc.|
|000020f0| 61 6c 6c 34 0d 10 40 12 | dc 20 31 2c 20 72 73 63 |all4..@.|. 1, rsc|
|00002100| 2e 6d 6f 72 65 30 0d 10 | 4a 12 dc 20 31 2c 20 72 |.more0..|J.. 1, r|
|00002110| 73 63 2e 6d 6f 72 65 31 | 0d 10 54 12 dc 20 31 2c |sc.more1|..T.. 1,|
|00002120| 20 72 73 63 2e 6d 6f 72 | 65 32 0d 10 5e 0c dc 20 | rsc.mor|e2..^.. |
|00002130| 30 2c 20 65 6e 64 0d 10 | 68 05 3a 0d 10 72 24 f4 |0, end..|h.:..r$.|
|00002140| 20 20 41 6c 69 63 65 20 | 69 6e 20 57 6f 6e 64 65 | Alice |in Wonde|
|00002150| 72 6c 61 6e 64 20 20 44 | 69 73 6b 20 54 57 4f 0d |rland D|isk TWO.|
|00002160| 10 7c 04 0d 10 86 11 dc | 20 31 2c 20 72 73 63 2e |.|......| 1, rsc.|
|00002170| 61 6c 6c 31 0d 10 90 0c | dc 20 30 2c 20 65 6e 64 |all1....|. 0, end|
|00002180| 0d 10 9a 05 3a 0d 10 a4 | 26 f4 20 20 41 6c 69 63 |....:...|&. Alic|
|00002190| 65 20 69 6e 20 57 6f 6e | 64 65 72 6c 61 6e 64 20 |e in Won|derland |
|000021a0| 20 44 69 73 6b 20 54 48 | 52 45 45 0d 10 ae 04 0d | Disk TH|REE.....|
|000021b0| 10 b8 11 dc 20 31 2c 20 | 72 73 63 2e 61 6c 6c 32 |.... 1, |rsc.all2|
|000021c0| 0d 10 c2 0c dc 20 30 2c | 20 65 6e 64 0d 10 cc 05 |..... 0,| end....|
|000021d0| 3a 0d 10 d6 25 f4 20 20 | 41 6c 69 63 65 20 69 6e |:...%. |Alice in|
|000021e0| 20 57 6f 6e 64 65 72 6c | 61 6e 64 20 20 44 69 73 | Wonderl|and Dis|
|000021f0| 6b 20 46 4f 55 52 0d 10 | e0 04 0d 10 ea 11 dc 20 |k FOUR..|....... |
|00002200| 31 2c 20 72 73 63 2e 61 | 6c 6c 33 0d 10 f4 0c dc |1, rsc.a|ll3.....|
|00002210| 20 30 2c 20 65 6e 64 0d | 10 fe 05 3a 0d 11 08 04 | 0, end.|...:....|
|00002220| 0d 11 12 04 0d 11 1c 04 | 0d 11 26 15 dd 20 f2 5f |........|..&.. ._|
|00002230| 73 65 74 5f 75 70 5f 73 | 63 72 65 65 6e 0d 11 30 |set_up_s|creen..0|
|00002240| 04 0d 11 3a 39 f4 20 7c | 20 53 65 74 20 75 70 20 |...:9. || Set up |
|00002250| 69 6e 69 74 69 61 6c 20 | 73 74 61 72 74 69 6e 67 |initial |starting|
|00002260| 20 73 63 72 65 65 6e 20 | 61 6e 64 20 77 69 6e 64 | screen |and wind|
|00002270| 6f 77 20 68 61 6e 64 6c | 65 73 0d 11 44 04 0d 11 |ow handl|es..D...|
|00002280| 4e 24 ea 20 49 2c 78 2c | 79 2c 77 69 64 74 68 2c |N$. I,x,|y,width,|
|00002290| 68 65 69 67 68 74 2c 74 | 65 73 74 24 2c 64 75 6d |height,t|est$,dum|
|000022a0| 6d 79 0d 11 58 09 fb 20 | 31 34 32 0d 11 62 05 db |my..X.. |142..b..|
|000022b0| 0d 11 6c 04 0d 11 76 22 | f4 20 7c 20 53 65 74 2d |..l...v"|. | Set-|
|000022c0| 75 70 20 6d 61 69 6e 20 | 73 74 61 74 69 63 20 77 |up main |static w|
|000022d0| 69 6e 64 6f 77 73 0d 11 | 80 04 0d 11 8a 11 f2 5f |indows..|......._|
|000022e0| 70 61 6c 65 74 74 65 5f | 6f 66 66 0d 11 94 14 f2 |palette_|off.....|
|000022f0| 5f 73 74 61 72 74 5f 75 | 70 5f 74 69 6c 65 73 0d |_start_u|p_tiles.|
|00002300| 11 9e 22 20 20 64 75 6d | 6d 79 3d a4 5f 6d 61 6b |.." dum|my=._mak|
|00002310| 65 5f 74 69 6c 65 28 32 | 31 2c 31 2c 39 30 2c 37 |e_tile(2|1,1,90,7|
|00002320| 29 0d 11 a8 25 20 20 64 | 75 6d 6d 79 3d a4 5f 6d |)...% d|ummy=._m|
|00002330| 61 6b 65 5f 74 69 6c 65 | 28 31 31 2c 31 35 2c 31 |ake_tile|(11,15,1|
|00002340| 31 30 2c 31 36 29 0d 11 | b2 23 20 20 64 75 6d 6d |10,16)..|.# dumm|
|00002350| 79 3d a4 5f 6d 61 6b 65 | 5f 74 69 6c 65 28 34 30 |y=._make|_tile(40|
|00002360| 2c 31 30 2c 35 32 2c 33 | 29 0d 11 bc 26 20 20 64 |,10,52,3|)...& d|
|00002370| 75 6d 6d 79 3d a4 5f 64 | 65 63 6c 61 72 65 5f 74 |ummy=._d|eclare_t|
|00002380| 69 6c 65 28 34 30 2c 31 | 37 2c 35 32 2c 38 29 0d |ile(40,1|7,52,8).|
|00002390| 11 c6 0d f2 5f 77 61 69 | 74 28 34 29 0d 11 d0 10 |...._wai|t(4)....|
|000023a0| f2 5f 70 61 6c 65 74 74 | 65 5f 6f 6e 0d 11 da 04 |._palett|e_on....|
|000023b0| 0d 11 e4 05 e1 0d 11 ee | 04 0d 11 f8 4e 2d 2d 2d |........|....N---|
|000023c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000023f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002400| 2d 2d 2d 2d 2d 2d 2d 0d | 12 02 04 0d 12 0c 13 dd |-------.|........|
|00002410| 20 f2 5f 70 61 6c 65 74 | 74 65 5f 6f 66 66 0d 12 | ._palet|te_off..|
|00002420| 16 04 0d 12 20 30 f4 20 | 7c 20 53 77 69 74 63 68 |.... 0. || Switch|
|00002430| 20 6f 66 66 20 70 61 6c | 65 74 74 65 20 77 68 69 | off pal|ette whi|
|00002440| 6c 73 74 20 64 72 61 77 | 69 6e 67 20 73 63 72 65 |lst draw|ing scre|
|00002450| 65 6e 0d 12 2a 04 0d 12 | 34 0c ea 20 63 6f 6c 6f |en..*...|4.. colo|
|00002460| 75 72 0d 12 3e 06 c8 96 | 0d 12 48 13 e3 20 63 6f |ur..>...|..H.. co|
|00002470| 6c 6f 75 72 3d 30 20 b8 | 20 31 35 0d 12 52 14 20 |lour=0 .| 15..R. |
|00002480| 20 fb 20 63 6f 6c 6f 75 | 72 2c 30 2c 30 2c 30 0d | . colou|r,0,0,0.|
|00002490| 12 5c 05 ed 0d 12 66 05 | e1 0d 12 70 04 0d 12 7a |.\....f.|...p...z|
|000024a0| 4e 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |N-------|--------|
|000024b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000024c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000024d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000024e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 0d 12 84 04 0d |--------|---.....|
|000024f0| 12 8e 12 dd 20 f2 5f 70 | 61 6c 65 74 74 65 5f 6f |.... ._p|alette_o|
|00002500| 6e 0d 12 98 04 0d 12 a2 | 1d f4 20 7c 20 53 65 74 |n.......|.. | Set|
|00002510| 20 75 70 20 63 6f 6c 6f | 75 72 20 70 61 6c 65 74 | up colo|ur palet|
|00002520| 74 65 0d 12 ac 04 0d 12 | b6 1f ea 20 49 2c 20 63 |te......|... I, c|
|00002530| 6f 6c 6f 75 72 2c 20 63 | 6f 6c 28 29 2c 20 72 2c |olour, c|ol(), r,|
|00002540| 20 67 2c 20 62 0d 12 c0 | 0f de 20 63 6f 6c 28 31 | g, b...|.. col(1|
|00002550| 35 2c 32 29 0d 12 ca 0a | f7 20 8d 74 48 53 0d 12 |5,2)....|. .tHS..|
|00002560| d4 13 e3 20 63 6f 6c 6f | 75 72 3d 30 20 b8 20 31 |... colo|ur=0 . 1|
|00002570| 35 0d 12 de 33 20 20 f3 | 20 63 6f 6c 28 63 6f 6c |5...3 .| col(col|
|00002580| 6f 75 72 2c 30 29 2c 20 | 63 6f 6c 28 63 6f 6c 6f |our,0), |col(colo|
|00002590| 75 72 2c 31 29 2c 20 63 | 6f 6c 28 63 6f 6c 6f 75 |ur,1), c|ol(colou|
|000025a0| 72 2c 32 29 0d 12 e8 05 | ed 0d 12 f2 13 63 6f 6c |r,2)....|.....col|
|000025b0| 28 29 3d 63 6f 6c 28 29 | 2d 32 35 35 0d 12 fc 13 |()=col()|-255....|
|000025c0| e3 20 49 3d 31 36 20 b8 | 20 31 20 88 20 2d 31 0d |. I=16 .| 1 . -1.|
|000025d0| 13 06 08 20 20 c8 96 0d | 13 10 15 20 20 e3 20 63 |... ...|... . c|
|000025e0| 6f 6c 6f 75 72 3d 30 20 | b8 20 31 35 0d 13 1a 19 |olour=0 |. 15....|
|000025f0| 20 20 20 20 63 6f 6c 28 | 63 6f 6c 6f 75 72 2c 30 | col(|colour,0|
|00002600| 29 2b 3d 31 36 0d 13 24 | 19 20 20 20 20 63 6f 6c |)+=16..$|. col|
|00002610| 28 63 6f 6c 6f 75 72 2c | 31 29 2b 3d 31 36 0d 13 |(colour,|1)+=16..|
|00002620| 2e 19 20 20 20 20 63 6f | 6c 28 63 6f 6c 6f 75 72 |.. co|l(colour|
|00002630| 2c 32 29 2b 3d 31 36 0d | 13 38 17 20 20 20 20 72 |,2)+=16.|.8. r|
|00002640| 3d 63 6f 6c 28 63 6f 6c | 6f 75 72 2c 30 29 0d 13 |=col(col|our,0)..|
|00002650| 42 17 20 20 20 20 67 3d | 63 6f 6c 28 63 6f 6c 6f |B. g=|col(colo|
|00002660| 75 72 2c 31 29 0d 13 4c | 17 20 20 20 20 62 3d 63 |ur,1)..L|. b=c|
|00002670| 6f 6c 28 63 6f 6c 6f 75 | 72 2c 32 29 0d 13 56 2b |ol(colou|r,2)..V+|
|00002680| 20 20 20 20 fb 20 63 6f | 6c 6f 75 72 2c 2d 28 72 | . co|lour,-(r|
|00002690| 3e 30 29 2a 72 2c 2d 28 | 67 3e 30 29 2a 67 2c 2d |>0)*r,-(|g>0)*g,-|
|000026a0| 28 62 3e 30 29 2a 62 0d | 13 60 38 20 20 20 20 e7 |(b>0)*b.|.`8 .|
|000026b0| 20 63 6f 6c 6f 75 72 3d | 31 34 20 ef 20 31 39 2c | colour=|14 . 19,|
|000026c0| 30 2c 32 34 2c 2d 28 72 | 3e 30 29 2a 72 2c 2d 28 |0,24,-(r|>0)*r,-(|
|000026d0| 67 3e 30 29 2a 67 2c 2d | 28 62 3e 30 29 2a 62 0d |g>0)*g,-|(b>0)*b.|
|000026e0| 13 6a 07 20 20 ed 0d 13 | 74 05 ed 0d 13 7e 04 0d |.j. ...|t....~..|
|000026f0| 13 88 38 dc 20 26 30 30 | 2c 26 30 30 2c 26 30 30 |..8. &00|,&00,&00|
|00002700| 2c 20 26 32 30 2c 26 32 | 30 2c 26 32 30 2c 20 26 |, &20,&2|0,&20, &|
|00002710| 34 30 2c 26 34 30 2c 26 | 34 30 2c 20 26 36 30 2c |40,&40,&|40, &60,|
|00002720| 26 36 30 2c 26 36 30 0d | 13 92 38 dc 20 26 38 30 |&60,&60.|..8. &80|
|00002730| 2c 26 38 30 2c 26 38 30 | 2c 20 26 41 30 2c 26 41 |,&80,&80|, &A0,&A|
|00002740| 30 2c 26 41 30 2c 20 26 | 43 30 2c 26 43 30 2c 26 |0,&A0, &|C0,&C0,&|
|00002750| 43 30 2c 20 26 45 30 2c | 26 45 30 2c 26 45 30 0d |C0, &E0,|&E0,&E0.|
|00002760| 13 9c 38 dc 20 26 30 30 | 2c 26 41 30 2c 26 30 30 |..8. &00|,&A0,&00|
|00002770| 2c 20 26 46 30 2c 26 46 | 30 2c 26 30 30 2c 20 26 |, &F0,&F|0,&00, &|
|00002780| 46 30 2c 26 46 30 2c 26 | 30 30 2c 20 20 36 34 2c |F0,&F0,&|00, 64,|
|00002790| 26 30 30 2c 26 30 30 0d | 13 a6 38 dc 20 26 30 30 |&00,&00.|..8. &00|
|000027a0| 2c 26 41 30 2c 26 30 30 | 2c 20 26 30 30 2c 26 30 |,&A0,&00|, &00,&0|
|000027b0| 30 2c 31 37 31 2c 20 26 | 30 30 2c 26 30 30 2c 20 |0,171, &|00,&00, |
|000027c0| 38 35 2c 20 26 46 30 2c | 26 46 30 2c 26 30 30 0d |85, &F0,|&F0,&00.|
|000027d0| 13 b0 04 0d 13 ba 05 e1 | 0d 13 c4 04 0d 13 ce 4d |........|.......M|
|000027e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000027f0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002800| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002820| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 13 d8 04 0d 13 e2 |--------|-.......|
|00002830| 14 dd 20 f2 5f 70 61 6c | 65 74 74 65 5f 66 61 64 |.. ._pal|ette_fad|
|00002840| 65 0d 13 ec 04 0d 13 f6 | 1f f4 20 7c 20 46 61 64 |e.......|.. | Fad|
|00002850| 65 20 6f 75 74 20 63 6f | 6c 6f 75 72 20 70 61 6c |e out co|lour pal|
|00002860| 65 74 74 65 0d 14 00 04 | 0d 14 0a 1f ea 20 49 2c |ette....|..... I,|
|00002870| 20 63 6f 6c 6f 75 72 2c | 20 63 6f 6c 28 29 2c 20 | colour,| col(), |
|00002880| 72 2c 20 67 2c 20 62 0d | 14 14 0f de 20 63 6f 6c |r, g, b.|.... col|
|00002890| 28 31 35 2c 32 29 0d 14 | 1e 0a f7 20 8d 74 48 53 |(15,2)..|... .tHS|
|000028a0| 0d 14 28 13 e3 20 63 6f | 6c 6f 75 72 3d 30 20 b8 |..(.. co|lour=0 .|
|000028b0| 20 31 35 0d 14 32 33 20 | 20 f3 20 63 6f 6c 28 63 | 15..23 | . col(c|
|000028c0| 6f 6c 6f 75 72 2c 30 29 | 2c 20 63 6f 6c 28 63 6f |olour,0)|, col(co|
|000028d0| 6c 6f 75 72 2c 31 29 2c | 20 63 6f 6c 28 63 6f 6c |lour,1),| col(col|
|000028e0| 6f 75 72 2c 32 29 0d 14 | 3c 05 ed 0d 14 46 13 e3 |our,2)..|<....F..|
|000028f0| 20 49 3d 31 36 20 b8 20 | 31 20 88 20 2d 31 0d 14 | I=16 . |1 . -1..|
|00002900| 50 08 20 20 c8 96 0d 14 | 5a 15 20 20 e3 20 63 6f |P. ....|Z. . co|
|00002910| 6c 6f 75 72 3d 30 20 b8 | 20 31 35 0d 14 64 2d 20 |lour=0 .| 15..d- |
|00002920| 20 20 20 e7 20 63 6f 6c | 28 63 6f 6c 6f 75 72 2c | . col|(colour,|
|00002930| 30 29 3e 30 20 8c 20 63 | 6f 6c 28 63 6f 6c 6f 75 |0)>0 . c|ol(colou|
|00002940| 72 2c 30 29 2d 3d 31 36 | 0d 14 6e 2d 20 20 20 20 |r,0)-=16|..n- |
|00002950| e7 20 63 6f 6c 28 63 6f | 6c 6f 75 72 2c 31 29 3e |. col(co|lour,1)>|
|00002960| 30 20 8c 20 63 6f 6c 28 | 63 6f 6c 6f 75 72 2c 31 |0 . col(|colour,1|
|00002970| 29 2d 3d 31 36 0d 14 78 | 2d 20 20 20 20 e7 20 63 |)-=16..x|- . c|
|00002980| 6f 6c 28 63 6f 6c 6f 75 | 72 2c 32 29 3e 30 20 8c |ol(colou|r,2)>0 .|
|00002990| 20 63 6f 6c 28 63 6f 6c | 6f 75 72 2c 32 29 2d 3d | col(col|our,2)-=|
|000029a0| 31 36 0d 14 82 3a 20 20 | 20 20 fb 20 63 6f 6c 6f |16...: | . colo|
|000029b0| 75 72 2c 63 6f 6c 28 63 | 6f 6c 6f 75 72 2c 30 29 |ur,col(c|olour,0)|
|000029c0| 2c 63 6f 6c 28 63 6f 6c | 6f 75 72 2c 31 29 2c 63 |,col(col|our,1),c|
|000029d0| 6f 6c 28 63 6f 6c 6f 75 | 72 2c 32 29 0d 14 8c 07 |ol(colou|r,2)....|
|000029e0| 20 20 ed 0d 14 96 2a 20 | 20 ef 20 31 39 2c 30 2c | ....* | . 19,0,|
|000029f0| 32 34 2c 63 6f 6c 28 32 | 2c 30 29 2c 63 6f 6c 28 |24,col(2|,0),col(|
|00002a00| 32 2c 31 29 2c 63 6f 6c | 28 32 2c 32 29 0d 14 a0 |2,1),col|(2,2)...|
|00002a10| 05 ed 0d 14 aa 04 0d 14 | b4 05 e1 0d 14 be 04 0d |........|........|
|00002a20| 14 c8 4a 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..J-----|--------|
|00002a30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a50| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 14 d2 04 0d 14 dc |--------|-.......|
|00002a70| 10 dd 20 f2 5f 77 61 69 | 74 28 77 74 29 0d 14 e6 |.. ._wai|t(wt)...|
|00002a80| 04 0d 14 f0 11 e3 20 61 | 3d 31 20 b8 20 31 30 2a |...... a|=1 . 10*|
|00002a90| 77 74 0d 14 fa 0a 20 20 | 20 20 c8 96 0d 15 04 05 |wt.... | ......|
|00002aa0| ed 0d 15 0e 05 e1 0d 15 | 18 04 0d 15 22 4e 2d 2d |........|...."N--|
|00002ab0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ac0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ad0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002af0| 2d 2d 2d 2d 2d 2d 2d 2d | 0d 15 2c 04 0d 15 36 16 |--------|..,...6.|
|00002b00| dd 20 f2 5f 73 74 61 72 | 74 5f 75 70 5f 74 69 6c |. ._star|t_up_til|
|00002b10| 65 73 0d 15 40 04 0d 15 | 4a 36 f4 20 7c 20 44 65 |es..@...|J6. | De|
|00002b20| 66 69 6e 65 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e |fine inf|ormation|
|00002b30| 20 72 65 71 75 69 72 65 | 64 20 66 6f 72 20 74 69 | require|d for ti|
|00002b40| 6c 65 20 27 6d 61 6e 61 | 67 65 72 27 0d 15 54 04 |le 'mana|ger'..T.|
|00002b50| 0d 15 5e 14 6d 61 78 5f | 6e 75 6d 5f 74 69 6c 65 |..^.max_|num_tile|
|00002b60| 73 3d 31 30 0d 15 68 21 | de 20 20 20 74 69 6c 65 |s=10..h!|. tile|
|00002b70| 25 28 20 6d 61 78 5f 6e | 75 6d 5f 74 69 6c 65 73 |%( max_n|um_tiles|
|00002b80| 2c 20 38 20 29 0d 15 72 | 0f 6e 75 6d 5f 74 69 6c |, 8 )..r|.num_til|
|00002b90| 65 73 3d 31 0d 15 7c 0e | 63 75 72 5f 74 69 6c 65 |es=1..|.|cur_tile|
|00002ba0| 3d a3 0d 15 86 05 e1 0d | 15 90 04 0d 15 9a 4e 2d |=.......|......N-|
|00002bb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002bc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002bd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002be0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002bf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 15 a4 04 0d 15 ae |--------|-.......|
|00002c00| 23 dd 20 a4 5f 6d 61 6b | 65 5f 74 69 6c 65 28 78 |#. ._mak|e_tile(x|
|00002c10| 2c 79 2c 77 69 64 74 68 | 2c 68 65 69 67 68 74 29 |,y,width|,height)|
|00002c20| 0d 15 b8 04 0d 15 c2 3a | f4 20 7c 20 44 72 61 77 |.......:|. | Draw|
|00002c30| 20 61 6e 64 20 61 63 74 | 69 76 61 74 65 20 61 20 | and act|ivate a |
|00002c40| 6e 75 6d 62 65 72 65 64 | 20 61 63 74 69 6f 6e 20 |numbered| action |
|00002c50| 74 69 6c 65 20 6f 6e 20 | 73 63 72 65 65 6e 0d 15 |tile on |screen..|
|00002c60| cc 04 0d 15 d6 0c ea 20 | 68 61 6e 64 6c 65 0d 15 |....... |handle..|
|00002c70| e0 2b 68 61 6e 64 6c 65 | 3d a4 5f 64 65 63 6c 61 |.+handle|=._decla|
|00002c80| 72 65 5f 74 69 6c 65 28 | 78 2c 79 2c 77 69 64 74 |re_tile(|x,y,widt|
|00002c90| 68 2c 68 65 69 67 68 74 | 29 0d 15 ea 32 e7 20 68 |h,height|)...2. h|
|00002ca0| 61 6e 64 6c 65 20 8c 20 | f2 5f 64 72 61 77 5f 74 |andle . |._draw_t|
|00002cb0| 69 6c 65 28 68 61 6e 64 | 6c 65 29 3a 63 75 72 5f |ile(hand|le):cur_|
|00002cc0| 74 69 6c 65 3d 68 61 6e | 64 6c 65 0d 15 f4 0c 3a |tile=han|dle....:|
|00002cd0| 3d 68 61 6e 64 6c 65 0d | 15 fe 04 0d 16 08 4e 2d |=handle.|......N-|
|00002ce0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002cf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002d00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002d10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002d20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 0d 16 12 04 0d 16 1c |--------|-.......|
|00002d30| 26 dd 20 a4 5f 64 65 63 | 6c 61 72 65 5f 74 69 6c |&. ._dec|lare_til|
|00002d40| 65 28 78 2c 79 2c 77 69 | 64 74 68 2c 68 65 69 67 |e(x,y,wi|dth,heig|
|00002d50| 68 74 29 0d 16 26 04 0d | 16 30 29 f4 20 7c 20 53 |ht)..&..|.0). | S|
|00002d60| 65 74 20 75 70 20 69 6e | 66 6f 72 6d 61 74 69 6f |et up in|formatio|
|00002d70| 6e 20 62 6c 6f 63 6b 20 | 66 6f 72 20 74 69 6c 65 |n block |for tile|
|00002d80| 0d 16 3a 28 f4 20 7c 20 | 54 69 6c 65 20 66 6c 61 |..:(. | |Tile fla|
|00002d90| 67 20 68 65 6c 64 20 69 | 6e 20 74 69 6c 65 25 28 |g held i|n tile%(|
|00002da0| 20 2d 20 2c 20 38 29 3a | 0d 16 44 21 f4 20 7c 20 | - , 8):|..D!. | |
|00002db0| 20 42 69 74 20 30 20 2d | 20 74 69 6c 65 20 68 69 | Bit 0 -| tile hi|
|00002dc0| 67 68 6c 69 67 68 74 65 | 64 0d 16 4e 37 f4 20 7c |ghlighte|d..N7. ||
|00002dd0| 20 20 42 69 74 20 31 20 | 2d 20 74 69 6c 65 20 64 | Bit 1 |- tile d|
|00002de0| 6f 72 6d 61 6e 74 20 28 | 69 65 2f 20 63 61 6e 27 |ormant (|ie/ can'|
|00002df0| 74 20 62 65 20 63 6c 69 | 63 6b 65 64 20 6f 6e 29 |t be cli|cked on)|
|00002e00| 0d 16 58 37 f4 20 7c 20 | 20 42 69 74 20 32 20 2d |..X7. | | Bit 2 -|
|00002e10| 20 64 75 6c 6c 20 61 6e | 64 20 62 6f 72 69 6e 67 | dull an|d boring|
|00002e20| 20 28 63 61 6e 27 74 20 | 62 65 20 68 69 67 68 6c | (can't |be highl|
|00002e30| 69 67 68 74 65 64 29 0d | 16 62 04 0d 16 6c 23 e7 |ighted).|.b...l#.|
|00002e40| 20 6e 75 6d 5f 74 69 6c | 65 73 3d 6d 61 78 5f 6e | num_til|es=max_n|
|00002e50| 75 6d 5f 74 69 6c 65 73 | 20 8c 20 3a 3d a3 0d 16 |um_tiles| . :=...|
|00002e60| 76 04 0d 16 80 18 74 69 | 6c 65 25 28 6e 75 6d 5f |v.....ti|le%(num_|
|00002e70| 74 69 6c 65 73 2c 30 29 | 3d 78 0d 16 8a 18 74 69 |tiles,0)|=x....ti|
|00002e80| 6c 65 25 28 6e 75 6d 5f | 74 69 6c 65 73 2c 31 29 |le%(num_|tiles,1)|
|00002e90| 3d 79 0d 16 94 20 74 69 | 6c 65 25 28 6e 75 6d 5f |=y... ti|le%(num_|
|00002ea0| 74 69 6c 65 73 2c 32 29 | 3d 78 2b 77 69 64 74 68 |tiles,2)|=x+width|
|00002eb0| 2d 31 0d 16 9e 21 74 69 | 6c 65 25 28 6e 75 6d 5f |-1...!ti|le%(num_|
|00002ec0| 74 69 6c 65 73 2c 33 29 | 3d 79 2b 68 65 69 67 68 |tiles,3)|=y+heigh|
|00002ed0| 74 2d 31 0d 16 a8 1b 74 | 69 6c 65 25 28 6e 75 6d |t-1....t|ile%(num|
|00002ee0| 5f 74 69 6c 65 73 2c 34 | 29 3d 78 2a 31 36 0d 16 |_tiles,4|)=x*16..|
|00002ef0| b2 27 74 69 6c 65 25 28 | 6e 75 6d 5f 74 69 6c 65 |.'tile%(|num_tile|
|00002f00| 73 2c 35 29 3d 33 32 2a | 28 33 32 2d 79 2d 68 65 |s,5)=32*|(32-y-he|
|00002f10| 69 67 68 74 29 0d 16 bc | 25 74 69 6c 65 25 28 6e |ight)...|%tile%(n|
|00002f20| 75 6d 5f 74 69 6c 65 73 | 2c 36 29 3d 31 36 2a 28 |um_tiles|,6)=16*(|
|00002f30| 78 2b 77 69 64 74 68 29 | 2d 32 0d 16 c6 22 74 69 |x+width)|-2..."ti|
|00002f40| 6c 65 25 28 6e 75 6d 5f | 74 69 6c 65 73 2c 37 29 |le%(num_|tiles,7)|
|00002f50| 3d 33 32 2a 28 33 32 2d | 79 29 2d 34 0d 16 d0 18 |=32*(32-|y)-4....|
|00002f60| 74 69 6c 65 25 28 6e 75 | 6d 5f 74 69 6c 65 73 2c |tile%(nu|m_tiles,|
|00002f70| 38 29 3d 30 0d 16 da 16 | 63 75 72 5f 74 69 6c 65 |8)=0....|cur_tile|
|00002f80| 3d 6e 75 6d 5f 74 69 6c | 65 73 0d 16 e4 10 6e 75 |=num_til|es....nu|
|00002f90| 6d 5f 74 69 6c 65 73 2b | 3d 31 0d 16 ee 0e 3a 3d |m_tiles+|=1....:=|
|00002fa0| 63 75 72 5f 74 69 6c 65 | 0d 16 f8 04 0d 17 02 4e |cur_tile|.......N|
|00002fb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002fc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002fd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002fe0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ff0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 0d 17 0c 04 0d 17 |--------|--......|
|00003000| 16 16 dd 20 f2 5f 64 72 | 61 77 5f 74 69 6c 65 28 |... ._dr|aw_tile(|
|00003010| 6e 75 6d 29 0d 17 20 04 | 0d 17 2a 38 f4 20 7c 20 |num).. .|..*8. | |
|00003020| 44 72 61 77 20 61 20 74 | 69 6c 65 20 6f 6e 20 73 |Draw a t|ile on s|
|00003030| 63 72 65 65 6e 20 77 69 | 74 68 20 27 70 6c 69 6e |creen wi|th 'plin|
|00003040| 74 68 27 20 73 74 79 6c | 65 20 62 6f 72 64 65 72 |th' styl|e border|
|00003050| 0d 17 34 04 0d 17 3e 12 | ea 20 78 2c 79 2c 78 31 |..4...>.|. x,y,x1|
|00003060| 2c 79 31 2c 41 25 0d 17 | 48 13 78 20 3d 74 69 6c |,y1,A%..|H.x =til|
|00003070| 65 25 28 6e 75 6d 2c 34 | 29 0d 17 52 13 79 20 3d |e%(num,4|)..R.y =|
|00003080| 74 69 6c 65 25 28 6e 75 | 6d 2c 35 29 0d 17 5c 13 |tile%(nu|m,5)..\.|
|00003090| 78 31 3d 74 69 6c 65 25 | 28 6e 75 6d 2c 36 29 0d |x1=tile%|(num,6).|
|000030a0| 17 66 13 79 31 3d 74 69 | 6c 65 25 28 6e 75 6d 2c |.f.y1=ti|le%(num,|
|000030b0| 37 29 0d 17 70 08 ef 20 | 32 36 0d 17 7a 07 e6 20 |7)..p.. |26..z.. |
|000030c0| 34 0d 17 84 20 c8 93 20 | c8 90 20 78 2d 34 2c 79 |4... .. |.. x-4,y|
|000030d0| 2d 34 2c 20 78 31 2d 78 | 2b 38 2c 79 31 2d 79 2b |-4, x1-x|+8,y1-y+|
|000030e0| 38 0d 17 8e 04 0d 17 98 | 0e e3 20 41 25 3d 32 20 |8.......|.. A%=2 |
|000030f0| b8 20 34 0d 17 a2 0c 20 | 20 e6 20 35 2d 41 25 0d |. 4.... | . 5-A%.|
|00003100| 17 ac 2b 20 20 86 20 78 | 2d 20 34 2a 41 25 20 20 |..+ . x|- 4*A% |
|00003110| 2c 79 2d 34 2a 41 25 2c | 20 78 31 2b 34 2a 41 25 |,y-4*A%,| x1+4*A%|
|00003120| 20 20 2c 79 20 2d 34 2a | 41 25 0d 17 b6 2b 20 20 | ,y -4*|A%...+ |
|00003130| 86 20 78 31 2b 34 2a 41 | 25 20 20 2c 79 2d 34 2a |. x1+4*A|% ,y-4*|
|00003140| 41 25 2c 20 78 31 2b 34 | 2a 41 25 20 20 2c 79 31 |A%, x1+4|*A% ,y1|
|00003150| 2b 34 2a 41 25 0d 17 c0 | 2b 20 20 86 20 78 31 2b |+4*A%...|+ . x1+|
|00003160| 34 2a 41 25 2d 32 2c 79 | 2d 34 2a 41 25 2c 20 78 |4*A%-2,y|-4*A%, x|
|00003170| 31 2b 34 2a 41 25 2d 32 | 2c 79 31 2b 34 2a 41 25 |1+4*A%-2|,y1+4*A%|
|00003180| 0d 17 ca 0c 20 20 e6 20 | 38 2d 41 25 0d 17 d4 2c |.... . |8-A%...,|
|00003190| 20 20 86 20 78 20 2d 34 | 2a 41 25 20 20 2c 79 31 | . x -4|*A% ,y1|
|000031a0| 2b 34 2a 41 25 2c 20 78 | 31 2b 34 2a 41 25 20 20 |+4*A%, x|1+4*A% |
|000031b0| 2c 79 31 2b 34 2a 41 25 | 0d 17 de 2c 20 20 86 20 |,y1+4*A%|..., . |
|000031c0| 78 20 2d 34 2a 41 25 20 | 20 2c 79 2d 34 2a 41 25 |x -4*A% | ,y-4*A%|
|000031d0| 2c 20 20 78 20 2d 34 2a | 41 25 20 20 2c 79 31 2b |, x -4*|A% ,y1+|
|000031e0| 34 2a 41 25 0d 17 e8 2c | 20 20 86 20 78 20 2d 34 |4*A%...,| . x -4|
|000031f0| 2a 41 25 2b 32 2c 79 2d | 34 2a 41 25 2c 20 20 78 |*A%+2,y-|4*A%, x|
|00003200| 20 2d 34 2a 41 25 2b 32 | 2c 79 31 2b 34 2a 41 25 | -4*A%+2|,y1+4*A%|
|00003210| 0d 17 f2 05 ed 0d 17 fc | 04 0d 18 06 16 f2 5f 74 |........|......_t|
|00003220| 69 6c 65 5f 77 69 6e 64 | 6f 77 28 6e 75 6d 29 0d |ile_wind|ow(num).|
|00003230| 18 10 05 e1 0d 18 1a 04 | 0d 18 24 4e 2d 2d 2d 2d |........|..$N----|
|00003240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003260| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003280| 2d 2d 2d 2d 2d 2d 0d 18 | 2e 04 0d 18 38 18 dd 20 |------..|....8.. |
|00003290| f2 5f 74 69 6c 65 5f 77 | 69 6e 64 6f 77 28 6e 75 |._tile_w|indow(nu|
|000032a0| 6d 29 0d 18 42 04 0d 18 | 4c 33 f4 20 7c 20 53 65 |m)..B...|L3. | Se|
|000032b0| 74 20 74 65 78 74 20 77 | 69 6e 64 6f 77 20 74 6f |t text w|indow to|
|000032c0| 20 64 69 6d 65 6e 73 69 | 6f 6e 73 20 6f 66 20 67 | dimensi|ons of g|
|000032d0| 69 76 65 6e 20 74 69 6c | 65 0d 18 56 46 f4 20 7c |iven til|e..VF. ||
|000032e0| 20 61 6e 64 20 73 65 6c | 65 63 74 20 74 68 65 20 | and sel|ect the |
|000032f0| 61 70 70 72 6f 70 72 69 | 61 74 65 20 63 6f 6c 6f |appropri|ate colo|
|00003300| 75 72 73 20 64 65 70 65 | 6e 64 69 6e 67 20 6f 6e |urs depe|nding on|
|00003310| 20 68 69 67 68 6c 69 67 | 68 74 20 66 6c 61 67 0d | highlig|ht flag.|
|00003320| 18 60 04 0d 18 6a 0a c8 | 91 20 30 2c 30 0d 18 74 |.`...j..|. 0,0..t|
|00003330| 3c ef 20 32 38 2c 74 69 | 6c 65 25 28 6e 75 6d 2c |<. 28,ti|le%(num,|
|00003340| 30 29 2c 74 69 6c 65 25 | 28 6e 75 6d 2c 33 29 2c |0),tile%|(num,3),|
|00003350| 74 69 6c 65 25 28 6e 75 | 6d 2c 32 29 2c 74 69 6c |tile%(nu|m,2),til|
|00003360| 65 25 28 6e 75 6d 2c 31 | 29 0d 18 7e 3d ef 20 32 |e%(num,1|)..~=. 2|
|00003370| 34 2c 74 69 6c 65 25 28 | 6e 75 6d 2c 34 29 3b 74 |4,tile%(|num,4);t|
|00003380| 69 6c 65 25 28 6e 75 6d | 2c 35 29 3b 74 69 6c 65 |ile%(num|,5);tile|
|00003390| 25 28 6e 75 6d 2c 36 29 | 3b 74 69 6c 65 25 28 6e |%(num,6)|;tile%(n|
|000033a0| 75 6d 2c 37 29 3b 0d 18 | 88 04 0d 18 92 1a e7 20 |um,7);..|....... |
|000033b0| 28 74 69 6c 65 25 28 6e | 75 6d 2c 38 29 20 80 20 |(tile%(n|um,8) . |
|000033c0| 31 29 20 8c 0d 18 9c 11 | 20 20 fb 20 31 32 38 20 |1) .....| . 128 |
|000033d0| 3a 20 fb 20 34 0d 18 a6 | 15 20 20 e6 20 20 20 31 |: . 4...|. . 1|
|000033e0| 32 38 20 3a 20 e6 20 20 | 20 34 0d 18 b0 05 cc 0d |28 : . | 4......|
|000033f0| 18 ba 13 20 20 fb 20 31 | 32 38 2b 34 20 3a 20 fb |... . 1|28+4 : .|
|00003400| 20 30 0d 18 c4 17 20 20 | e6 20 20 20 31 32 38 2b | 0.... |. 128+|
|00003410| 34 20 3a 20 e6 20 20 20 | 30 0d 18 ce 05 cd 0d 18 |4 : . |0.......|
|00003420| d8 10 63 75 72 5f 74 69 | 6c 65 3d 6e 75 6d 0d 18 |..cur_ti|le=num..|
|00003430| e2 05 e1 0d 18 ec 04 0d | 18 f6 4e 2d 2d 2d 2d 2d |........|..N-----|
|00003440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003460| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003470| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003480| 2d 2d 2d 2d 2d 0d 19 00 | 04 0d 19 0a 16 dd 20 f2 |-----...|...... .|
|00003490| 5f 6b 69 6c 6c 5f 74 69 | 6c 65 28 6e 75 6d 29 0d |_kill_ti|le(num).|
|000034a0| 19 14 04 0d 19 1e 33 f4 | 20 7c 20 4d 61 6b 65 20 |......3.| | Make |
|000034b0| 74 69 6c 65 20 64 6f 72 | 6d 61 6e 74 20 61 6e 64 |tile dor|mant and|
|000034c0| 20 72 65 6d 6f 76 65 20 | 69 74 20 66 72 6f 6d 20 | remove |it from |
|000034d0| 73 63 72 65 65 6e 0d 19 | 28 04 0d 19 32 08 ef 20 |screen..|(...2.. |
|000034e0| 32 36 0d 19 3c 07 e6 20 | 30 0d 19 46 64 c8 93 20 |26..<.. |0..Fd.. |
|000034f0| c8 90 20 74 69 6c 65 25 | 28 6e 75 6d 2c 34 29 2d |.. tile%|(num,4)-|
|00003500| 31 36 2c 74 69 6c 65 25 | 28 6e 75 6d 2c 35 29 2d |16,tile%|(num,5)-|
|00003510| 31 36 2c 20 74 69 6c 65 | 25 28 6e 75 6d 2c 36 29 |16, tile|%(num,6)|
|00003520| 2d 74 69 6c 65 25 28 6e | 75 6d 2c 34 29 2b 33 32 |-tile%(n|um,4)+32|
|00003530| 2c 74 69 6c 65 25 28 6e | 75 6d 2c 37 29 2d 74 69 |,tile%(n|um,7)-ti|
|00003540| 6c 65 25 28 6e 75 6d 2c | 35 29 2b 33 32 0d 19 50 |le%(num,|5)+32..P|
|00003550| 21 74 69 6c 65 25 28 6e | 75 6d 2c 38 29 3d 74 69 |!tile%(n|um,8)=ti|
|00003560| 6c 65 25 28 6e 75 6d 2c | 38 29 20 84 20 32 0d 19 |le%(num,|8) . 2..|
|00003570| 5a 05 e1 0d 19 64 04 0d | ff |Z....d..|. |
+--------+-------------------------+-------------------------+--------+--------+
