home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: DOSIMG Disk Image
(archive/dosimg).
You can browse this item here: 1.img
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| DOSIMG Disk Image (archive/dosimg)
| magic
| Supported |
| 66%
| dexvert
| Alias PIX Image (image/aliasPIX)
| ext
| Supported |
| 66%
| dexvert
| GEM Raster Bitmap (image/gem)
| ext
| Supported |
| 66%
| dexvert
| DaVinci (image/daVinci)
| ext
| Supported |
| 46%
| dexvert
| Disk Image (archive/diskImage)
| ext
| Supported |
| 1%
| dexvert
| AIX/BFF backup/restore (archive/aixBackupRestore)
| ext
| Unsupported |
| 1%
| dexvert
| The Duplicator Toolkit disk image (archive/duplicatorToolkitDiskImage)
| ext
| Unsupported |
| 1%
| dexvert
| PTS-DOS disk image (archive/ptsDOSDiskImage)
| ext
| Unsupported |
| 1%
| dexvert
| QNX volume disk image (archive/qnxVolumeDiskImage)
| ext
| Unsupported |
| 1%
| dexvert
| SNATCH-IT Disk Image (archive/snatchItDiskImage)
| ext
| Unsupported |
| 1%
| dexvert
| Android boot image (archive/androidBootImage)
| ext
| Unsupported |
| 1%
| dexvert
| Paragon DOS disk image (archive/paragonDOSDiskImage)
| ext
| Unsupported |
| 1%
| dexvert
| QEMU QCOW Image (archive/qemuQCOWImage)
| ext
| Unsupported |
| 1%
| dexvert
| Davilex Games game data format (other/davilexGamesGameDataFormat)
| ext
| Unsupported |
| 1%
| dexvert
| Eclipse Image (other/eclipseImage)
| ext
| Unsupported |
| 1%
| dexvert
| InfoComics game data (other/infoComicsGameData)
| ext
| Unsupported |
| 1%
| dexvert
| Garmin map (other/garminMap)
| ext
| Unsupported |
| 1%
| dexvert
| Piklib/BlooMoo graphic data (other/piklibGraphicData)
| ext
| Unsupported |
| 100%
| file
| data
| default
| |
| 100%
| TrID
| DOSIMG disk image (80t/15s)
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4f 0f 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |O.......|........|
|00000010| 01 01 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |........|........|
|00000020| 01 01 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |........|........|
|00000030| 01 01 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |........|........|
|00000040| 01 01 01 01 01 01 01 01 | 01 01 01 01 01 01 01 01 |........|........|
|00000050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000090| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| 00 00 00 00 00 00 84 0f | ee eb 28 90 49 42 4d 20 |........|..(.IBM |
|000000b0| 20 33 2e 33 00 02 01 01 | 00 02 e0 00 60 09 f9 07 | 3.3....|....`...|
|000000c0| 00 0f 00 02 ee 00 0f fa | 33 ed b8 c0 07 8e d8 c4 |........|3.......|
|000000d0| 1e 1c 00 88 16 fd 01 0a | d2 79 08 89 1e 24 00 8c |........|.y...$..|
|000000e0| 06 26 00 8e c5 8e d5 bc | 00 7c fc 1e 36 c5 36 78 |.&......|.|..6.6x|
|000000f0| 00 bf 2a 7c b9 0b 00 f3 | a4 1f c6 06 2e 00 0f bf |..*|....|........|
|00000100| 78 00 b8 2a 7c ab 91 ab | fb 8a 16 fd 01 cd 13 a0 |x..*|...|........|
|00000110| 10 00 98 f7 26 16 00 03 | 06 0e 00 e8 73 00 e8 79 |....&...|....s..y|
|00000120| 00 bb 00 05 53 e8 a0 00 | 5f be 71 01 b9 0b 00 90 |....S...|_.q.....|
|00000130| f3 a6 75 57 83 c7 15 b1 | 0b 90 90 f3 a6 75 4c 26 |..uW....|.....uL&|
|00000140| 8b 47 1c 99 8b 0e 0b 00 | 03 c1 48 f7 f1 3d 14 00 |.G......|..H..=..|
|00000150| 7f 02 b0 14 96 a1 11 00 | b1 04 d3 e8 e8 32 00 ff |........|.....2..|
|00000160| 36 24 00 c4 1e 6d 01 e8 | 30 00 e8 5b 00 2b f0 76 |6$...m..|0..[.+.v|
|00000170| 0d e8 1d 00 52 f7 26 0b | 00 03 d8 5a eb e9 5b 8a |....R.&.|...Z..[.|
|00000180| 2e 15 00 8a 16 fd 01 ff | 2e 6d 01 be 8b 01 eb 54 |........|.m.....T|
|00000190| 90 01 06 24 00 11 2e 26 | 00 c3 a1 18 00 f6 26 1a |...$...&|......&.|
|000001a0| 00 91 a1 24 00 8b 16 26 | 00 f7 f1 92 8b 0e 18 00 |...$...&|........|
|000001b0| f6 f1 2a cc 91 fe c5 86 | e9 d0 ce d0 ce 0a f1 86 |..*.....|........|
|000001c0| f2 87 ca 8a 16 fd 01 c3 | bf 05 00 b8 01 02 cd 13 |........|........|
|000001d0| 72 03 b0 01 c3 80 fc 11 | 74 f8 33 c0 cd 13 4f 75 |r.......|t.3...Ou|
|000001e0| ea be d5 01 e8 1d 00 be | ab 01 e8 17 00 33 c0 cd |........|.....3..|
|000001f0| 16 36 c7 06 72 04 34 12 | ea 00 00 ff ff b4 0e bb |.6..r.4.|........|
|00000200| 07 00 cd 10 ac 3c 24 75 | f4 c3 00 00 70 00 49 42 |.....<$u|....p.IB|
|00000210| 4d 42 49 4f 20 20 43 4f | 4d 49 42 4d 44 4f 53 20 |MBIO CO|MIBMDOS |
|00000220| 20 43 4f 4d ee 00 04 0a | 0d 4e 6f 6e 2d 53 79 73 | COM....|.Non-Sys|
|00000230| 74 65 6d 20 64 69 73 6b | 20 6f 72 20 64 69 73 6b |tem disk| or disk|
|00000240| 20 65 72 72 6f 72 24 0a | 0d 52 65 70 6c 61 63 65 | error$.|.Replace|
|00000250| 20 61 6e 64 20 73 74 72 | 69 6b 65 20 61 6e 79 20 | and str|ike any |
|00000260| 6b 65 79 20 77 68 65 6e | 20 72 65 61 64 79 0a 0d |key when| ready..|
|00000270| 24 0a 0d 44 69 73 6b 20 | 62 6f 6f 74 20 66 61 69 |$..Disk |boot fai|
|00000280| 6c 75 72 65 24 43 6f 70 | 72 2e 20 43 4f 4d 50 41 |lure$Cop|r. COMPA|
|00000290| 51 20 31 39 38 33 2d 38 | 37 00 55 aa f9 ff ff 03 |Q 1983-8|7.U.....|
|000002a0| 40 00 ff 6f 00 07 80 00 | 09 a0 00 0b c0 00 ff ef |@..o....|........|
|000002b0| 00 0f 00 01 ee ff 03 13 | 40 01 ee ff 03 17 80 01 |........|@.......|
|000002c0| 19 f0 ff ff cf 01 1d e0 | 01 1f 00 02 21 20 02 23 |........|....! .#|
|000002d0| 40 02 25 60 02 27 80 02 | ff af 02 2b c0 02 2d e0 |@.%`.'..|...+..-.|
|000002e0| 02 2f 00 03 31 20 03 33 | f0 ff 35 60 03 37 80 03 |./..1 .3|..5`.7..|
|000002f0| 39 a0 03 3b f0 ff 3d e0 | 03 3f 00 04 41 20 04 43 |9..;..=.|.?..A .C|
|00000300| f0 ff 45 60 04 47 80 04 | 49 a0 04 4b c0 04 4d e0 |..E`.G..|I..K..M.|
|00000310| 04 ff 0f 05 51 20 05 53 | 40 05 55 f0 ff 57 80 05 |....Q .S|@.U..W..|
|00000320| 59 a0 05 5b c0 05 5d e0 | 05 5f 00 06 61 20 06 63 |Y..[..].|._..a .c|
|00000330| 40 06 ff 6f 06 67 80 06 | 69 a0 06 6b c0 06 6d e0 |@..o.g..|i..k..m.|
|00000340| 06 6f 00 07 71 20 07 73 | 40 07 75 60 07 ff 8f 07 |.o..q .s|@.u`....|
|00000350| 79 a0 07 7b c0 07 7d e0 | 07 7f 00 08 81 20 08 83 |y..{..}.|..... ..|
|00000360| 40 08 85 60 08 87 80 08 | 89 a0 08 8b c0 08 ff ef |@..`....|........|
|00000370| 08 8f 00 09 91 20 09 93 | 40 09 95 60 09 97 80 09 |..... ..|@..`....|
|00000380| 99 a0 09 9b c0 09 9d e0 | 09 9f 00 0a a1 20 0a a3 |........|..... ..|
|00000390| 40 0a a5 60 0a a7 80 0a | a9 a0 0a ab c0 0a ad e0 |@..`....|........|
|000003a0| 0a af 00 0b b1 20 0b ff | 4f 0b b5 60 0b ff 8f 0b |..... ..|O..`....|
|000003b0| b9 a0 0b bb c0 0b bd e0 | 0b ff 0f 0c c1 20 0c c3 |........|..... ..|
|000003c0| 40 0c c5 60 0c c7 80 0c | c9 a0 0c cb c0 0c cd e0 |@..`....|........|
|000003d0| 0c cf 00 0d d1 20 0d d3 | 40 0d d5 60 0d d7 80 0d |..... ..|@..`....|
|000003e0| d9 a0 0d db c0 0d dd e0 | 0d df 00 0e e1 20 0e e3 |........|..... ..|
|000003f0| 40 0e e5 60 0e e7 80 0e | e9 a0 0e eb c0 0e ff ef |@..`....|........|
|00000400| 0e ef 00 0f f1 20 0f f3 | 40 0f f5 60 0f f7 80 0f |..... ..|@..`....|
|00000410| f9 a0 0f fb c0 0f fd e0 | 0f ff 00 10 01 21 10 ff |........|.....!..|
|00000420| 4f 10 05 61 10 07 81 10 | 09 a1 10 0b c1 10 0d f1 |O..a....|........|
|00000430| ee ff 04 11 21 11 13 41 | 11 15 61 11 17 81 11 19 |....!..A|..a.....|
|00000440| a1 11 1b c1 11 1d e1 11 | 1f 01 12 21 21 12 23 41 |........|...!!.#A|
|00000450| 12 25 61 12 27 81 12 29 | a1 12 2b c1 12 2d e1 12 |.%a.'..)|..+..-..|
|00000460| 2f 01 13 31 21 13 33 41 | 13 35 61 13 37 81 13 39 |/..1!.3A|.5a.7..9|
|00000470| a1 13 3b c1 13 3d e1 13 | 3f 01 14 41 21 14 43 41 |..;..=..|?..A!.CA|
|00000480| 14 45 61 14 47 81 14 49 | f1 ff 4b c1 14 4d e1 14 |.Ea.G..I|..K..M..|
|00000490| 4f 01 15 51 21 15 53 41 | 15 55 61 15 57 81 15 59 |O..Q!.SA|.Ua.W..Y|
|000004a0| a1 15 5b c1 15 5d e1 15 | 5f 01 16 61 21 16 63 41 |..[..]..|_..a!.cA|
|000004b0| 16 65 61 16 67 81 16 69 | f1 ff 6b c1 16 6d e1 16 |.ea.g..i|..k..m..|
|000004c0| 6f 01 17 71 f1 ff 73 41 | 17 75 61 17 77 81 17 79 |o..q..sA|.ua.w..y|
|000004d0| a1 17 7b c1 17 7d e1 17 | 7f 01 18 81 21 18 83 41 |..{..}..|....!..A|
|000004e0| 18 85 61 18 87 81 18 89 | a1 18 8b c1 18 8d e1 18 |..a.....|........|
|000004f0| 8f 01 19 91 21 19 93 41 | 19 95 61 19 97 81 19 99 |....!..A|..a.....|
|00000500| a1 19 9b c1 19 9d e1 19 | 9f 01 1a a1 21 1a a3 41 |........|....!..A|
|00000510| 1a a5 61 1a a7 81 1a a9 | f1 ff ab c1 1a ff ef 1a |..a.....|........|
|00000520| af 01 1b b1 21 1b ee ff | 03 b5 61 1b ff 8f 1b b9 |....!...|..a.....|
|00000530| a1 1b bb c1 1b bd e1 1b | bf 01 1c c1 21 1c c3 41 |........|....!..A|
|00000540| 1c c5 61 1c c7 81 1c c9 | a1 1c cb c1 1c cd e1 1c |..a.....|........|
|00000550| cf 01 1d d1 21 1d d3 41 | 1d d5 61 1d d7 81 1d d9 |....!..A|..a.....|
|00000560| a1 1d db c1 1d dd e1 1d | df 01 1e e1 21 1e e3 41 |........|....!..A|
|00000570| 1e e5 61 1e e7 81 1e e9 | a1 1e eb c1 1e ed e1 1e |..a.....|........|
|00000580| ef 01 1f f1 21 1f f3 41 | 1f f5 61 1f f7 81 1f f9 |....!..A|..a.....|
|00000590| a1 1f fb c1 1f fd e1 1f | ff 01 20 01 22 20 03 42 |........|.. ." .B|
|000005a0| 20 05 62 20 07 82 20 09 | a2 20 0b c2 20 0d e2 20 | .b .. .|. .. .. |
|000005b0| 0f 02 21 11 22 21 13 42 | 21 15 62 21 17 82 21 19 |..!."!.B|!.b!..!.|
|000005c0| a2 21 1b c2 21 1d e2 21 | 1f 02 22 21 22 22 23 42 |.!..!..!|.."!""#B|
|000005d0| 22 25 62 22 27 82 22 29 | a2 22 2b c2 22 2d e2 22 |"%b"'.")|."+."-."|
|000005e0| 2f 02 23 31 22 23 33 42 | 23 35 62 23 37 82 23 39 |/.#1"#3B|#5b#7.#9|
|000005f0| a2 23 3b c2 23 3d e2 23 | 3f 02 24 41 22 24 43 42 |.#;.#=.#|?.$A"$CB|
|00000600| 24 45 62 24 47 82 24 49 | a2 24 4b c2 24 4d e2 24 |$Eb$G.$I|.$K.$M.$|
|00000610| 4f 02 25 51 22 25 53 42 | 25 55 62 25 57 82 25 59 |O.%Q"%SB|%Ub%W.%Y|
|00000620| a2 25 5b c2 25 5d e2 25 | 5f 02 26 61 22 26 63 42 |.%[.%].%|_.&a"&cB|
|00000630| 26 65 62 26 67 82 26 69 | a2 26 6b c2 26 6d e2 26 |&eb&g.&i|.&k.&m.&|
|00000640| 6f 02 27 71 22 27 73 42 | 27 75 62 27 77 82 27 79 |o.'q"'sB|'ub'w.'y|
|00000650| a2 27 7b c2 27 7d e2 27 | 7f 02 28 81 22 28 83 42 |.'{.'}.'|..(."(.B|
|00000660| 28 85 62 28 87 82 28 89 | a2 28 8b c2 28 8d e2 28 |(.b(..(.|.(..(..(|
|00000670| 8f 02 29 91 22 29 93 42 | 29 95 62 29 97 82 29 99 |..).").B|).b)..).|
|00000680| a2 29 9b c2 29 9d e2 29 | 9f 02 2a a1 22 2a a3 42 |.)..)..)|..*."*.B|
|00000690| 2a a5 62 2a a7 82 2a a9 | a2 2a ab c2 2a ad e2 2a |*.b*..*.|.*..*..*|
|000006a0| af 02 2b b1 22 2b b3 42 | 2b b5 62 2b b7 82 2b b9 |..+."+.B|+.b+..+.|
|000006b0| a2 2b bb c2 2b bd e2 2b | bf 02 2c c1 22 2c c3 42 |.+..+..+|..,.",.B|
|000006c0| 2c c5 62 2c c7 82 2c c9 | a2 2c cb c2 2c cd e2 2c |,.b,..,.|.,..,..,|
|000006d0| cf 02 2d d1 22 2d d3 42 | 2d d5 62 2d d7 82 2d d9 |..-."-.B|-.b-..-.|
|000006e0| a2 2d db c2 2d dd e2 2d | df 02 2e e1 22 2e e3 42 |.-..-..-|...."..B|
|000006f0| 2e e5 62 2e e7 82 2e e9 | a2 2e eb c2 2e ed e2 2e |..b.....|........|
|00000700| ef 02 2f f1 22 2f f3 42 | 2f f5 62 2f f7 82 2f f9 |../."/.B|/.b/../.|
|00000710| a2 2f fb c2 2f fd e2 2f | ff 02 30 01 23 30 03 43 |./../../|..0.#0.C|
|00000720| 30 05 63 30 07 83 30 09 | a3 30 0b c3 30 0d e3 30 |0.c0..0.|.0..0..0|
|00000730| 0f 03 31 11 23 31 13 43 | 31 15 63 31 17 83 31 19 |..1.#1.C|1.c1..1.|
|00000740| a3 31 1b c3 31 1d e3 31 | 1f 03 32 21 23 32 23 43 |.1..1..1|..2!#2#C|
|00000750| 32 25 63 32 27 83 32 29 | a3 32 2b c3 32 2d e3 32 |2%c2'.2)|.2+.2-.2|
|00000760| 2f 03 33 31 23 33 33 43 | 33 35 63 33 37 83 33 39 |/.31#33C|35c37.39|
|00000770| a3 33 3b c3 33 3d e3 33 | 3f 03 34 41 23 34 43 43 |.3;.3=.3|?.4A#4CC|
|00000780| 34 45 63 34 ff 8f 34 ff | af 34 ff cf 34 4d e3 34 |4Ec4..4.|.4..4M.4|
|00000790| 4f 03 35 51 23 35 53 43 | 35 55 63 35 57 83 35 59 |O.5Q#5SC|5Uc5W.5Y|
|000007a0| a3 35 5b c3 35 5d e3 35 | 5f 03 36 61 23 36 63 43 |.5[.5].5|_.6a#6cC|
|000007b0| 36 65 63 36 67 83 36 69 | a3 36 6b c3 36 6d e3 36 |6ec6g.6i|.6k.6m.6|
|000007c0| 6f 03 37 71 23 37 73 43 | 37 75 63 37 77 83 37 79 |o.7q#7sC|7uc7w.7y|
|000007d0| a3 37 7b c3 37 7d e3 37 | 7f 03 38 81 23 38 83 43 |.7{.7}.7|..8.#8.C|
|000007e0| 38 85 63 38 87 83 38 89 | a3 38 8b c3 38 8d e3 38 |8.c8..8.|.8..8..8|
|000007f0| 8f 03 39 91 23 39 93 43 | 39 95 63 39 97 83 39 99 |..9.#9.C|9.c9..9.|
|00000800| a3 39 9b f3 ff 9d e3 39 | 9f 03 3a a1 23 3a a3 43 |.9.....9|..:.#:.C|
|00000810| 3a a5 63 3a a7 83 3a a9 | a3 3a ab c3 3a ad e3 3a |:.c:..:.|.:..:..:|
|00000820| af 03 3b b1 23 3b b3 43 | 3b b5 63 3b b7 83 3b b9 |..;.#;.C|;.c;..;.|
|00000830| a3 3b bb c3 3b bd e3 3b | bf 03 3c c1 23 3c c3 43 |.;..;..;|..<.#<.C|
|00000840| 3c c5 63 3c c7 83 3c c9 | a3 3c cb c3 3c cd e3 3c |<.c<..<.|.<..<..<|
|00000850| cf 03 3d d1 23 3d d3 43 | 3d d5 63 3d d7 83 3d d9 |..=.#=.C|=.c=..=.|
|00000860| a3 3d db c3 3d dd e3 3d | df 03 3e e1 23 3e e3 43 |.=..=..=|..>.#>.C|
|00000870| 3e e5 63 3e e7 83 3e e9 | a3 3e ff cf 3e ed e3 3e |>.c>..>.|.>..>..>|
|00000880| ef 03 3f f1 23 3f f3 43 | 3f f5 63 3f f7 83 3f f9 |..?.#?.C|?.c?..?.|
|00000890| f3 ff fb c3 3f fd e3 3f | ff 03 40 01 24 40 03 44 |....?..?|..@.$@.D|
|000008a0| 40 05 64 40 07 84 40 09 | a4 40 0b c4 40 0d e4 40 |@.d@..@.|.@..@..@|
|000008b0| 0f 04 41 11 24 41 13 44 | 41 15 64 41 17 84 41 19 |..A.$A.D|A.dA..A.|
|000008c0| a4 41 1b c4 41 1d e4 41 | 1f 04 42 21 24 42 23 44 |.A..A..A|..B!$B#D|
|000008d0| 42 ff 6f 42 27 84 42 ff | af 42 2b c4 42 2d e4 42 |B.oB'.B.|.B+.B-.B|
|000008e0| 2f 04 43 31 24 43 33 44 | 43 35 64 43 37 84 43 39 |/.C1$C3D|C5dC7.C9|
|000008f0| a4 43 3b c4 43 3d e4 43 | 3f 04 44 41 24 44 43 44 |.C;.C=.C|?.DA$DCD|
|00000900| 44 45 64 44 47 84 44 49 | a4 44 4b c4 44 4d e4 44 |DEdDG.DI|.DK.DM.D|
|00000910| 4f 04 45 51 24 45 53 44 | 45 55 64 45 57 84 45 59 |O.EQ$ESD|EUdEW.EY|
|00000920| a4 45 5b c4 45 5d e4 45 | 5f 04 46 61 24 46 63 44 |.E[.E].E|_.Fa$FcD|
|00000930| 46 65 64 46 67 84 46 69 | a4 46 6b c4 46 6d e4 46 |FedFg.Fi|.Fk.Fm.F|
|00000940| 6f 04 47 71 24 47 ff 4f | 47 75 f4 ff ee 00 ff ee |o.Gq$G.O|Gu......|
|00000950| 00 ff ee 00 ff ee 00 ff | ee 00 ff ee 00 ff ee 00 |........|........|
|00000960| ff ee 00 56 f9 ff ff 03 | 40 00 ff 6f 00 07 80 00 |...V....|@..o....|
|00000970| 09 a0 00 0b c0 00 ff ef | 00 0f 00 01 ee ff 03 13 |........|........|
|00000980| 40 01 ee ff 03 17 80 01 | 19 f0 ff ff cf 01 1d e0 |@.......|........|
|00000990| 01 1f 00 02 21 20 02 23 | 40 02 25 60 02 27 80 02 |....! .#|@.%`.'..|
|000009a0| ff af 02 2b c0 02 2d e0 | 02 2f 00 03 31 20 03 33 |...+..-.|./..1 .3|
|000009b0| f0 ff 35 60 03 37 80 03 | 39 a0 03 3b f0 ff 3d e0 |..5`.7..|9..;..=.|
|000009c0| 03 3f 00 04 41 20 04 43 | f0 ff 45 60 04 47 80 04 |.?..A .C|..E`.G..|
|000009d0| 49 a0 04 4b c0 04 4d e0 | 04 ff 0f 05 51 20 05 53 |I..K..M.|....Q .S|
|000009e0| 40 05 55 f0 ff 57 80 05 | 59 a0 05 5b c0 05 5d e0 |@.U..W..|Y..[..].|
|000009f0| 05 5f 00 06 61 20 06 63 | 40 06 ff 6f 06 67 80 06 |._..a .c|@..o.g..|
|00000a00| 69 a0 06 6b c0 06 6d e0 | 06 6f 00 07 71 20 07 73 |i..k..m.|.o..q .s|
|00000a10| 40 07 75 60 07 ff 8f 07 | 79 a0 07 7b c0 07 7d e0 |@.u`....|y..{..}.|
|00000a20| 07 7f 00 08 81 20 08 83 | 40 08 85 60 08 87 80 08 |..... ..|@..`....|
|00000a30| 89 a0 08 8b c0 08 ff ef | 08 8f 00 09 91 20 09 93 |........|..... ..|
|00000a40| 40 09 95 60 09 97 80 09 | 99 a0 09 9b c0 09 9d e0 |@..`....|........|
|00000a50| 09 9f 00 0a a1 20 0a a3 | 40 0a a5 60 0a a7 80 0a |..... ..|@..`....|
|00000a60| a9 a0 0a ab c0 0a ad e0 | 0a af 00 0b b1 20 0b ff |........|..... ..|
|00000a70| 4f 0b b5 60 0b ff 8f 0b | b9 a0 0b bb c0 0b bd e0 |O..`....|........|
|00000a80| 0b ff 0f 0c c1 20 0c c3 | 40 0c c5 60 0c c7 80 0c |..... ..|@..`....|
|00000a90| c9 a0 0c cb c0 0c cd e0 | 0c cf 00 0d d1 20 0d d3 |........|..... ..|
|00000aa0| 40 0d d5 60 0d d7 80 0d | d9 a0 0d db c0 0d dd e0 |@..`....|........|
|00000ab0| 0d df 00 0e e1 20 0e e3 | 40 0e e5 60 0e e7 80 0e |..... ..|@..`....|
|00000ac0| e9 a0 0e eb c0 0e ff ef | 0e ef 00 0f f1 20 0f f3 |........|..... ..|
|00000ad0| 40 0f f5 60 0f f7 80 0f | f9 a0 0f fb c0 0f fd e0 |@..`....|........|
|00000ae0| 0f ff 00 10 01 21 10 ff | 4f 10 05 61 10 07 81 10 |.....!..|O..a....|
|00000af0| 09 a1 10 0b c1 10 0d f1 | ee ff 04 11 21 11 13 41 |........|....!..A|
|00000b00| 11 15 61 11 17 81 11 19 | a1 11 1b c1 11 1d e1 11 |..a.....|........|
|00000b10| 1f 01 12 21 21 12 23 41 | 12 25 61 12 27 81 12 29 |...!!.#A|.%a.'..)|
|00000b20| a1 12 2b c1 12 2d e1 12 | 2f 01 13 31 21 13 33 41 |..+..-..|/..1!.3A|
|00000b30| 13 35 61 13 37 81 13 39 | a1 13 3b c1 13 3d e1 13 |.5a.7..9|..;..=..|
|00000b40| 3f 01 14 41 21 14 43 41 | 14 45 61 14 47 81 14 49 |?..A!.CA|.Ea.G..I|
|00000b50| f1 ff 4b c1 14 4d e1 14 | 4f 01 15 51 21 15 53 41 |..K..M..|O..Q!.SA|
|00000b60| 15 55 61 15 57 81 15 59 | a1 15 5b c1 15 5d e1 15 |.Ua.W..Y|..[..]..|
|00000b70| 5f 01 16 61 21 16 63 41 | 16 65 61 16 67 81 16 69 |_..a!.cA|.ea.g..i|
|00000b80| f1 ff 6b c1 16 6d e1 16 | 6f 01 17 71 f1 ff 73 41 |..k..m..|o..q..sA|
|00000b90| 17 75 61 17 77 81 17 79 | a1 17 7b c1 17 7d e1 17 |.ua.w..y|..{..}..|
|00000ba0| 7f 01 18 81 21 18 83 41 | 18 85 61 18 87 81 18 89 |....!..A|..a.....|
|00000bb0| a1 18 8b c1 18 8d e1 18 | 8f 01 19 91 21 19 93 41 |........|....!..A|
|00000bc0| 19 95 61 19 97 81 19 99 | a1 19 9b c1 19 9d e1 19 |..a.....|........|
|00000bd0| 9f 01 1a a1 21 1a a3 41 | 1a a5 61 1a a7 81 1a a9 |....!..A|..a.....|
|00000be0| f1 ff ab c1 1a ff ef 1a | af 01 1b b1 21 1b ee ff |........|....!...|
|00000bf0| 03 b5 61 1b ff 8f 1b b9 | a1 1b bb c1 1b bd e1 1b |..a.....|........|
|00000c00| bf 01 1c c1 21 1c c3 41 | 1c c5 61 1c c7 81 1c c9 |....!..A|..a.....|
|00000c10| a1 1c cb c1 1c cd e1 1c | cf 01 1d d1 21 1d d3 41 |........|....!..A|
|00000c20| 1d d5 61 1d d7 81 1d d9 | a1 1d db c1 1d dd e1 1d |..a.....|........|
|00000c30| df 01 1e e1 21 1e e3 41 | 1e e5 61 1e e7 81 1e e9 |....!..A|..a.....|
|00000c40| a1 1e eb c1 1e ed e1 1e | ef 01 1f f1 21 1f f3 41 |........|....!..A|
|00000c50| 1f f5 61 1f f7 81 1f f9 | a1 1f fb c1 1f fd e1 1f |..a.....|........|
|00000c60| ff 01 20 01 22 20 03 42 | 20 05 62 20 07 82 20 09 |.. ." .B| .b .. .|
|00000c70| a2 20 0b c2 20 0d e2 20 | 0f 02 21 11 22 21 13 42 |. .. .. |..!."!.B|
|00000c80| 21 15 62 21 17 82 21 19 | a2 21 1b c2 21 1d e2 21 |!.b!..!.|.!..!..!|
|00000c90| 1f 02 22 21 22 22 23 42 | 22 25 62 22 27 82 22 29 |.."!""#B|"%b"'.")|
|00000ca0| a2 22 2b c2 22 2d e2 22 | 2f 02 23 31 22 23 33 42 |."+."-."|/.#1"#3B|
|00000cb0| 23 35 62 23 37 82 23 39 | a2 23 3b c2 23 3d e2 23 |#5b#7.#9|.#;.#=.#|
|00000cc0| 3f 02 24 41 22 24 43 42 | 24 45 62 24 47 82 24 49 |?.$A"$CB|$Eb$G.$I|
|00000cd0| a2 24 4b c2 24 4d e2 24 | 4f 02 25 51 22 25 53 42 |.$K.$M.$|O.%Q"%SB|
|00000ce0| 25 55 62 25 57 82 25 59 | a2 25 5b c2 25 5d e2 25 |%Ub%W.%Y|.%[.%].%|
|00000cf0| 5f 02 26 61 22 26 63 42 | 26 65 62 26 67 82 26 69 |_.&a"&cB|&eb&g.&i|
|00000d00| a2 26 6b c2 26 6d e2 26 | 6f 02 27 71 22 27 73 42 |.&k.&m.&|o.'q"'sB|
|00000d10| 27 75 62 27 77 82 27 79 | a2 27 7b c2 27 7d e2 27 |'ub'w.'y|.'{.'}.'|
|00000d20| 7f 02 28 81 22 28 83 42 | 28 85 62 28 87 82 28 89 |..(."(.B|(.b(..(.|
|00000d30| a2 28 8b c2 28 8d e2 28 | 8f 02 29 91 22 29 93 42 |.(..(..(|..).").B|
|00000d40| 29 95 62 29 97 82 29 99 | a2 29 9b c2 29 9d e2 29 |).b)..).|.)..)..)|
|00000d50| 9f 02 2a a1 22 2a a3 42 | 2a a5 62 2a a7 82 2a a9 |..*."*.B|*.b*..*.|
|00000d60| a2 2a ab c2 2a ad e2 2a | af 02 2b b1 22 2b b3 42 |.*..*..*|..+."+.B|
|00000d70| 2b b5 62 2b b7 82 2b b9 | a2 2b bb c2 2b bd e2 2b |+.b+..+.|.+..+..+|
|00000d80| bf 02 2c c1 22 2c c3 42 | 2c c5 62 2c c7 82 2c c9 |..,.",.B|,.b,..,.|
|00000d90| a2 2c cb c2 2c cd e2 2c | cf 02 2d d1 22 2d d3 42 |.,..,..,|..-."-.B|
|00000da0| 2d d5 62 2d d7 82 2d d9 | a2 2d db c2 2d dd e2 2d |-.b-..-.|.-..-..-|
|00000db0| df 02 2e e1 22 2e e3 42 | 2e e5 62 2e e7 82 2e e9 |...."..B|..b.....|
|00000dc0| a2 2e eb c2 2e ed e2 2e | ef 02 2f f1 22 2f f3 42 |........|../."/.B|
|00000dd0| 2f f5 62 2f f7 82 2f f9 | a2 2f fb c2 2f fd e2 2f |/.b/../.|./../../|
|00000de0| ff 02 30 01 23 30 03 43 | 30 05 63 30 07 83 30 09 |..0.#0.C|0.c0..0.|
|00000df0| a3 30 0b c3 30 0d e3 30 | 0f 03 31 11 23 31 13 43 |.0..0..0|..1.#1.C|
|00000e00| 31 15 63 31 17 83 31 19 | a3 31 1b c3 31 1d e3 31 |1.c1..1.|.1..1..1|
|00000e10| 1f 03 32 21 23 32 23 43 | 32 25 63 32 27 83 32 29 |..2!#2#C|2%c2'.2)|
|00000e20| a3 32 2b c3 32 2d e3 32 | 2f 03 33 31 23 33 33 43 |.2+.2-.2|/.31#33C|
|00000e30| 33 35 63 33 37 83 33 39 | a3 33 3b c3 33 3d e3 33 |35c37.39|.3;.3=.3|
|00000e40| 3f 03 34 41 23 34 43 43 | 34 45 63 34 ff 8f 34 ff |?.4A#4CC|4Ec4..4.|
|00000e50| af 34 ff cf 34 4d e3 34 | 4f 03 35 51 23 35 53 43 |.4..4M.4|O.5Q#5SC|
|00000e60| 35 55 63 35 57 83 35 59 | a3 35 5b c3 35 5d e3 35 |5Uc5W.5Y|.5[.5].5|
|00000e70| 5f 03 36 61 23 36 63 43 | 36 65 63 36 67 83 36 69 |_.6a#6cC|6ec6g.6i|
|00000e80| a3 36 6b c3 36 6d e3 36 | 6f 03 37 71 23 37 73 43 |.6k.6m.6|o.7q#7sC|
|00000e90| 37 75 63 37 77 83 37 79 | a3 37 7b c3 37 7d e3 37 |7uc7w.7y|.7{.7}.7|
|00000ea0| 7f 03 38 81 23 38 83 43 | 38 85 63 38 87 83 38 89 |..8.#8.C|8.c8..8.|
|00000eb0| a3 38 8b c3 38 8d e3 38 | 8f 03 39 91 23 39 93 43 |.8..8..8|..9.#9.C|
|00000ec0| 39 95 63 39 97 83 39 99 | a3 39 9b f3 ff 9d e3 39 |9.c9..9.|.9.....9|
|00000ed0| 9f 03 3a a1 23 3a a3 43 | 3a a5 63 3a a7 83 3a a9 |..:.#:.C|:.c:..:.|
|00000ee0| a3 3a ab c3 3a ad e3 3a | af 03 3b b1 23 3b b3 43 |.:..:..:|..;.#;.C|
|00000ef0| 3b b5 63 3b b7 83 3b b9 | a3 3b bb c3 3b bd e3 3b |;.c;..;.|.;..;..;|
|00000f00| bf 03 3c c1 23 3c c3 43 | 3c c5 63 3c c7 83 3c c9 |..<.#<.C|<.c<..<.|
|00000f10| a3 3c cb c3 3c cd e3 3c | cf 03 3d d1 23 3d d3 43 |.<..<..<|..=.#=.C|
|00000f20| 3d d5 63 3d d7 83 3d d9 | a3 3d db c3 3d dd e3 3d |=.c=..=.|.=..=..=|
|00000f30| df 03 3e e1 23 3e e3 43 | 3e e5 63 3e e7 83 3e e9 |..>.#>.C|>.c>..>.|
|00000f40| a3 3e ff cf 3e ed e3 3e | ef 03 3f f1 23 3f f3 43 |.>..>..>|..?.#?.C|
|00000f50| 3f f5 63 3f f7 83 3f f9 | f3 ff fb c3 3f fd e3 3f |?.c?..?.|....?..?|
|00000f60| ff 03 40 01 24 40 03 44 | 40 05 64 40 07 84 40 09 |..@.$@.D|@.d@..@.|
|00000f70| a4 40 0b c4 40 0d e4 40 | 0f 04 41 11 24 41 13 44 |.@..@..@|..A.$A.D|
|00000f80| 41 15 64 41 17 84 41 19 | a4 41 1b c4 41 1d e4 41 |A.dA..A.|.A..A..A|
|00000f90| 1f 04 42 21 24 42 23 44 | 42 ff 6f 42 27 84 42 ff |..B!$B#D|B.oB'.B.|
|00000fa0| af 42 2b c4 42 2d e4 42 | 2f 04 43 31 24 43 33 44 |.B+.B-.B|/.C1$C3D|
|00000fb0| 43 35 64 43 37 84 43 39 | a4 43 3b c4 43 3d e4 43 |C5dC7.C9|.C;.C=.C|
|00000fc0| 3f 04 44 41 24 44 43 44 | 44 45 64 44 47 84 44 49 |?.DA$DCD|DEdDG.DI|
|00000fd0| a4 44 4b c4 44 4d e4 44 | 4f 04 45 51 24 45 53 44 |.DK.DM.D|O.EQ$ESD|
|00000fe0| 45 55 64 45 57 84 45 59 | a4 45 5b c4 45 5d e4 45 |EUdEW.EY|.E[.E].E|
|00000ff0| 5f 04 46 61 24 46 63 44 | 46 65 64 46 67 84 46 69 |_.Fa$FcD|FedFg.Fi|
|00001000| a4 46 6b c4 46 6d e4 46 | 6f 04 47 71 24 47 ff 4f |.Fk.Fm.F|o.Gq$G.O|
|00001010| 47 75 f4 ff ee 00 ff ee | 00 ff ee 00 ff ee 00 ff |Gu......|........|
|00001020| ee 00 ff ee 00 ff ee 00 | ff ee 00 56 9c 05 ff 41 |........|...V...A|
|00001030| 43 4b 45 52 4d 41 4e 42 | 41 53 20 ff 00 0b 08 82 |CKERMANB|AS .....|
|00001040| 0e 02 00 02 04 00 00 42 | 41 4c 4c ff 20 04 42 41 |.......B|ALL. .BA|
|00001050| 53 20 ff 00 0b 08 82 0e | 05 00 d0 0e 00 00 47 45 |S ......|......GE|
|00001060| 54 44 49 52 20 20 41 53 | 4d 20 ff 00 0b 08 82 0e |TDIR AS|M ......|
|00001070| 0d 00 cc 07 00 00 47 45 | 54 44 49 52 20 20 42 49 |......GE|TDIR BI|
|00001080| 4e 20 ff 00 0b 08 82 0e | 11 00 1f ff 00 03 47 45 |N ......|......GE|
|00001090| 54 44 52 49 56 45 41 53 | 4d 20 ff 00 0b 08 82 0e |TDRIVEAS|M ......|
|000010a0| 12 00 14 04 00 00 47 45 | 54 44 52 49 56 45 42 49 |......GE|TDRIVEBI|
|000010b0| 4e 20 ff 00 0b 08 82 0e | 15 00 11 ff 00 03 47 45 |N ......|......GE|
|000010c0| 54 44 54 41 20 20 41 53 | 4d 20 ff 00 0b 08 82 0e |TDTA AS|M ......|
|000010d0| 16 00 37 06 00 00 47 45 | 54 44 54 41 20 20 42 49 |..7...GE|TDTA BI|
|000010e0| 4e 20 ff 00 0b 08 82 0e | 1a 00 16 ff 00 03 48 41 |N ......|......HA|
|000010f0| 4e 4f 49 ff 20 03 42 41 | 53 20 ff 00 0b 08 82 0e |NOI. .BA|S ......|
|00001100| 1b 00 79 1b 00 00 48 49 | 4c 42 44 ff 20 03 42 41 |..y...HI|LBD. .BA|
|00001110| 53 20 ff 00 0b 08 82 0e | 29 00 5b 14 00 00 4d 43 |S ......|).[...MC|
|00001120| ff 20 06 42 41 53 20 ff | 00 0b 08 82 0e 34 00 98 |. .BAS .|.....4..|
|00001130| 0f 00 00 4d 43 30 ff 20 | 05 49 4e 43 20 ff 00 0b |...MC0. |.INC ...|
|00001140| 08 82 0e 3c 00 ef 0f 00 | 00 4d 43 31 ff 20 05 49 |...<....|.MC1. .I|
|00001150| 4e 43 20 ff 00 0b 08 82 | 0e 44 00 b8 14 00 00 4d |NC .....|.D.....M|
|00001160| 43 32 ff 20 05 49 4e 43 | 20 ff 00 0b 08 82 0e 4f |C2. .INC| ......O|
|00001170| 00 3f 0c 00 00 4d 43 33 | ff 20 05 49 4e 43 20 ff |.?...MC3|. .INC .|
|00001180| 00 0b 08 82 0e 56 00 82 | 1d 00 00 4d 43 34 ff 20 |.....V..|...MC4. |
|00001190| 05 49 4e 43 20 ff 00 0b | 08 82 0e 65 00 90 22 00 |.INC ...|...e..".|
|000011a0| 00 4d 43 35 ff 20 05 49 | 4e 43 20 ff 00 0b 08 82 |.MC5. .I|NC .....|
|000011b0| 0e 77 00 5e 2a 00 00 4d | 43 36 ff 20 05 49 4e 43 |.w.^*..M|C6. .INC|
|000011c0| 20 ff 00 0b 08 82 0e 8d | 00 4c 4b 00 00 4d 43 37 | .......|.LK..MC7|
|000011d0| ff 20 05 49 4e 43 20 ff | 00 0b 08 82 0e b3 00 c6 |. .INC .|........|
|000011e0| 07 00 00 4d 43 38 ff 20 | 05 49 4e 43 20 ff 00 0b |...MC8. |.INC ...|
|000011f0| 08 82 0e b7 00 dd 0e 00 | 00 4d 43 44 45 4d 4f ff |........|.MCDEMO.|
|00001200| 20 06 ff 00 0b 08 82 0e | bf 00 c4 5a 00 00 4d 55 | .......|...Z..MU|
|00001210| 53 49 43 ff 20 03 42 41 | 53 20 ff 00 0b 08 82 0e |SIC. .BA|S ......|
|00001220| ed 00 69 2a 00 00 4e 43 | ff 20 06 48 4c 50 20 ff |..i*..NC|. .HLP .|
|00001230| 00 0b 08 82 0e 03 01 ce | 14 00 00 4e 4f 4e 41 4d |........|...NONAM|
|00001240| 45 20 20 42 41 53 20 ff | 00 0a 01 45 24 00 0e 01 |E BAS .|...E$...|
|00001250| 2b ff 00 03 4e 4f 4e 41 | 4d 45 20 20 45 58 45 20 |+...NONA|ME EXE |
|00001260| ff 00 0a dc 4b 94 10 0f | 01 20 ff 00 03 51 55 49 |....K...|. ...QUI|
|00001270| 4b 53 4f 52 54 42 41 53 | 20 ff 00 0b 08 82 0e 10 |KSORTBAS| .......|
|00001280| 01 1a 73 00 00 52 45 41 | 44 4d 45 ff 20 06 ff 00 |..s..REA|DME. ...|
|00001290| 0b 08 82 0e 4a 01 7b 3e | 00 00 52 45 41 44 4d 45 |....J.{>|..README|
|000012a0| 20 20 43 4f 4d 20 ff 00 | 0b 08 82 0e 6a 01 e2 0f | COM ..|....j...|
|000012b0| 00 00 52 45 43 51 55 49 | 43 4b 42 41 53 20 ff 00 |..RECQUI|CKBAS ..|
|000012c0| 0b 08 82 0e 72 01 4d 6f | 00 00 52 45 47 4e 41 4d |....r.Mo|..REGNAM|
|000012d0| 45 53 49 4e 43 20 ff 00 | 0b 08 82 0e aa 01 1a 04 |ESINC ..|........|
|000012e0| 00 00 53 45 54 44 54 41 | 20 20 41 53 4d 20 ff 00 |..SETDTA| ASM ..|
|000012f0| 0b 08 82 0e ad 01 39 0a | 00 00 53 45 54 44 54 41 |......9.|..SETDTA|
|00001300| 20 20 42 49 4e 20 ff 00 | 0b 08 82 0e b3 01 33 ff | BIN ..|......3.|
|00001310| 00 03 53 49 45 56 45 ff | 20 03 42 41 53 20 ff 00 |..SIEVE.| .BAS ..|
|00001320| 0b 08 82 0e b4 01 cb 04 | 00 00 54 42 ff 20 06 45 |........|..TB. .E|
|00001330| 58 45 20 ff 00 0a 7c 00 | 21 00 b7 01 18 1e 03 00 |XE ...|.|!.......|
|00001340| 54 42 43 4f 46 49 4e 47 | 54 42 20 20 ff 00 0a dd |TBCOFING|TB ....|
|00001350| b0 6d 16 47 03 76 03 00 | 00 54 42 43 4f 4e 46 49 |.m.G.v..|.TBCONFI|
|00001360| 47 54 42 20 20 ff 00 0a | 4c 9a 92 10 49 03 76 03 |GTB ...|L...I.v.|
|00001370| 00 00 54 42 48 45 4c 50 | 20 20 54 42 48 20 ff 00 |..TBHELP| TBH ..|
|00001380| 0b 08 82 0e 4b 03 45 a0 | 00 00 54 42 49 4e 53 54 |....K.E.|..TBINST|
|00001390| 20 20 43 4f 4d 20 ff 00 | 0b 08 82 0e 9c 03 28 9c | COM ..|......(.|
|000013a0| 00 00 57 48 45 52 45 49 | 53 20 42 41 53 20 ff 00 |..WHEREI|S BAS ..|
|000013b0| 0b 08 82 0e eb 03 aa 1d | 00 00 57 48 45 52 45 49 |........|..WHEREI|
|000013c0| 53 20 49 4e 43 20 ff 00 | 0b 08 82 0e fa 03 01 55 |S INC ..|.......U|
|000013d0| 00 00 57 59 33 ff 20 05 | 42 41 53 20 ff 00 0a 4e |..WY3. .|BAS ...N|
|000013e0| 10 21 00 25 04 27 06 00 | 00 57 59 33 ff 20 05 45 |.!.%.'..|.WY3. .E|
|000013f0| 58 45 20 ff 00 0a 44 10 | 21 00 29 04 33 92 00 00 |XE ...D.|!.).3...|
|00001400| 57 59 34 ff 20 05 42 41 | 53 20 ff 00 0a 1b 04 21 |WY4. .BA|S .....!|
|00001410| 00 73 04 54 04 ff 00 ff | ff 00 ff ff 00 ff ff 00 |.s.T....|........|
|00001420| ff ff 00 ff ff 00 ff ff | 00 ff ff 00 ff ff 00 ff |........|........|
|00001430| ff 00 ff ff 00 ff ff 00 | ff ff 00 ff ff 00 ff ff |........|........|
|00001440| 00 ff ff 00 ff ff 00 ff | ff 00 ff ff 00 ff ff 00 |........|........|
|00001450| ff ff 00 ff ff 00 ff ff | 00 b8 27 da ff c4 4b bf |........|..'...K.|
|00001460| 0d 0a 27 b3 ff 20 03 54 | 68 69 73 20 20 70 72 6f |..'.. .T|his pro|
|00001470| 67 72 61 6d 20 64 65 6d | 6f 6e 73 74 72 61 74 65 |gram dem|onstrate|
|00001480| 73 20 74 68 65 20 72 65 | 63 75 72 73 69 76 65 20 |s the re|cursive |
|00001490| 61 6c 67 6f 72 69 74 68 | 6d 20 63 6f 6d 6d 6f 6e |algorith|m common|
|000014a0| 6c 79 ff 20 0d b3 0d 0a | 27 b3 ff 20 03 6b 6e 6f |ly. ....|'.. .kno|
|000014b0| 77 6e 20 61 73 20 22 41 | 63 6b 65 72 6d 61 6e 2e |wn as "A|ckerman.|
|000014c0| 22 ff 20 34 b3 0d 0a 27 | b3 09 49 6e 20 6f 72 64 |". 4...'|..In ord|
|000014d0| 65 72 20 74 6f 20 72 75 | 6e 20 74 68 69 73 20 70 |er to ru|n this p|
|000014e0| 72 6f 67 72 61 6d 20 64 | 6f 20 74 68 65 20 66 6f |rogram d|o the fo|
|000014f0| 6c 6c 6f 77 69 6e 67 3a | ff 09 03 ff 20 05 b3 0d |llowing:|.... ...|
|00001500| 0a 27 b3 09 20 20 31 2e | 20 4c 6f 61 64 20 54 75 |.'.. 1.| Load Tu|
|00001510| 72 62 6f 20 42 61 73 69 | 63 20 62 79 20 74 79 70 |rbo Basi|c by typ|
|00001520| 69 6e 67 20 54 42 20 61 | 74 20 74 68 65 20 44 4f |ing TB a|t the DO|
|00001530| 53 20 70 72 6f 6d 70 74 | 2e 20 09 09 ff 20 05 b3 |S prompt|. ... ..|
|00001540| 0d 0a 27 b3 09 20 20 32 | 2e 20 4c 6f 61 64 20 74 |..'.. 2|. Load t|
|00001550| 68 65 20 66 69 6c 65 20 | 41 43 4b 45 52 4d 41 4e |he file |ACKERMAN|
|00001560| 2e 42 41 53 20 66 72 6f | 6d 20 74 68 65 20 4c 6f |.BAS fro|m the Lo|
|00001570| 61 64 20 6f 70 74 69 6f | 6e 20 6f 66 20 74 68 65 |ad optio|n of the|
|00001580| 20 46 69 6c 65 ff 20 05 | b3 0d 0a 27 b3 09 ff 20 | File. .|...'... |
|00001590| 05 70 75 6c 6c 64 6f 77 | 6e 20 6d 65 6e 75 2e ff |.pulldow|n menu..|
|000015a0| 09 06 ff 20 05 b3 0d 0a | 27 b3 09 20 20 33 2e 20 |... ....|'.. 3. |
|000015b0| 53 65 6c 65 63 74 20 52 | 75 6e 20 66 72 6f 6d 20 |Select R|un from |
|000015c0| 74 68 65 20 4d 61 69 6e | 20 6d 34 1b 04 65 6e 75 |the Main| m4..enu|
|000015d0| 04 09 04 04 20 05 b3 0d | 0a 27 c0 04 c4 4b d9 0d |.... ...|.'...K..|
|000015e0| 0a 0d 0a 50 52 49 4e 54 | 20 22 52 75 6e 6e 69 6e |...PRINT| "Runnin|
|000015f0| 67 20 41 63 6b 65 72 6d | 61 6e 22 0d 0a 58 23 20 |g Ackerm|an"..X# |
|00001600| 3d 20 54 49 4d 45 52 0d | 0a 41 6e 73 25 20 3d 20 |= TIMER.|.Ans% = |
|00001610| 46 4e 61 63 6b 25 28 33 | 2c 36 29 04 20 10 27 20 |FNack%(3|,6). .' |
|00001620| 63 61 6c 6c 20 74 68 65 | 20 72 65 63 75 72 73 69 |call the| recursi|
|00001630| 76 65 20 66 75 6e 63 74 | 69 6f 6e 0d 0a 58 58 23 |ve funct|ion..XX#|
|00001640| 20 3d 20 54 49 4d 45 52 | 0d 0a 41 63 6b 20 3d 20 | = TIMER|..Ack = |
|00001650| 58 58 23 20 2d 20 58 23 | 0d 0a 50 52 49 4e 54 20 |XX# - X#|..PRINT |
|00001660| 55 53 49 4e 47 20 22 41 | 63 6b 65 72 6d 61 6e 20 |USING "A|ckerman |
|00001670| 63 6f 6d 70 6c 65 74 65 | 20 69 6e 20 23 23 2e 04 |complete| in ##..|
|00001680| 23 03 22 3b 41 63 6b 0d | 0a 45 4e 44 0d 0a 0d 0a |#.";Ack.|.END....|
|00001690| 44 45 46 20 46 4e 61 63 | 6b 25 28 4d 25 2c 4e 25 |DEF FNac|k%(M%,N%|
|000016a0| 29 09 27 20 41 63 6b 65 | 72 6d 61 6e 20 72 65 63 |).' Acke|rman rec|
|000016b0| 75 72 73 69 76 65 20 66 | 75 6e 63 74 69 6f 6e 0d |ursive f|unction.|
|000016c0| 0a 20 20 49 46 20 4d 25 | 20 3d 20 30 20 54 48 45 |. IF M%| = 0 THE|
|000016d0| 4e 0d 0a 04 20 04 46 4e | 61 63 6b 25 20 3d 20 4e |N... .FN|ack% = N|
|000016e0| 25 2b 31 0d 0a 20 20 45 | 4c 53 45 0d 0a 04 20 04 |%+1.. E|LSE... .|
|000016f0| 49 46 20 4e 25 20 3d 20 | 30 20 74 68 65 6e 0d 0a |IF N% = |0 then..|
|00001700| 04 20 06 46 4e 61 63 6b | 25 20 3d 20 46 4e 61 63 |. .FNack|% = FNac|
|00001710| 6b 25 28 4d 25 2d 31 2c | 31 29 0d 0a 04 20 04 45 |k%(M%-1,|1)... .E|
|00001720| 4c 53 45 0d 0a 04 20 06 | 46 4e 61 63 6b 25 20 3d |LSE... .|FNack% =|
|00001730| 20 46 4e 61 63 6b 25 28 | 4d 25 2d 31 2c 46 4e 61 | FNack%(|M%-1,FNa|
|00001740| 63 6b 28 4d 25 2c 4e 25 | 2d 31 29 29 0d 0a 04 20 |ck(M%,N%|-1))... |
|00001750| 04 45 4e 44 20 49 46 0d | 0a 20 20 45 4e 44 20 49 |.END IF.|. END I|
|00001760| 46 0d 0a 45 4e 44 20 44 | 45 46 0d 0a 1a 02 13 03 |F..END D|EF......|
|00001770| 13 ff ff 05 13 06 13 07 | 13 08 13 09 13 0a 13 0b |........|........|
|00001780| 13 0c 13 0d 13 0e 13 0f | 13 10 13 11 13 12 04 13 |........|........|
|00001790| 03 14 13 15 13 50 14 04 | ff 04 19 13 1a 13 1b 13 |.....P..|........|
|000017a0| 1c 13 1d 13 1e 13 1f 13 | 20 13 21 13 22 13 23 13 |........| .!.".#.|
|000017b0| 24 13 04 ff 06 28 13 29 | 13 2a 13 2b 13 04 ff 04 |$....(.)|.*.+....|
|000017c0| 2e 13 2f 13 30 13 31 13 | 32 13 33 13 34 13 35 13 |../.0.1.|2.3.4.5.|
|000017d0| 36 13 37 13 38 13 39 13 | 3a 13 3b 13 3c 13 3d 13 |6.7.8.9.|:.;.<.=.|
|000017e0| 3e 13 3f 13 40 13 41 13 | 42 13 43 13 44 13 45 13 |>.?.@.A.|B.C.D.E.|
|000017f0| 46 13 47 13 48 13 49 13 | 4a 13 4b 13 4c 13 4d 13 |F.G.H.I.|J.K.L.M.|
|00001800| 4e 13 4f 13 50 13 51 13 | 52 13 53 13 54 13 55 13 |N.O.P.Q.|R.S.T.U.|
|00001810| 56 13 57 13 58 13 59 13 | 5a 13 5b 13 5c 13 5d 13 |V.W.X.Y.|Z.[.\.].|
|00001820| 5e 13 5f 13 60 13 61 13 | 62 13 63 13 64 13 65 13 |^._.`.a.|b.c.d.e.|
|00001830| 66 13 67 13 68 13 69 13 | 6a 13 6b 13 6c 13 6d 13 |f.g.h.i.|j.k.l.m.|
|00001840| 6e 13 6f 13 70 13 71 13 | 04 ff 04 74 13 75 13 ff |n.o.p.q.|...t.u..|
|00001850| ff 77 13 78 13 79 13 7a | 13 7b 13 7c 13 7d 13 7e |.w.x.y.z|.{.|.}.~|
|00001860| 13 7f 13 80 13 ff ff 82 | 13 83 13 84 13 85 13 86 |........|........|
|00001870| 13 87 13 88 13 89 13 8a | 13 8b 13 8c 13 8d 13 8e |........|........|
|00001880| 13 8f 13 90 13 ff ff 92 | 13 93 13 94 13 95 13 04 |........|........|
|00001890| ff 04 98 13 99 13 9a 13 | 9b 13 9c 13 9d 13 9e 13 |........|........|
|000018a0| ff ff a0 13 a1 13 ff ff | a3 13 a4 13 a5 13 04 ff |........|........|
|000018b0| 06 a9 13 aa 13 ab 13 ac | 13 ad 13 ae 13 af 13 b0 |........|........|
|000018c0| 13 b1 13 b2 13 b3 13 b4 | 13 b5 13 b6 13 b7 13 b8 |........|........|
|000018d0| 13 b9 13 ba 13 bb 13 bc | 13 bd 13 be 13 bf 13 c0 |........|........|
|000018e0| 13 c1 13 c2 13 c3 13 c4 | 13 c5 13 c6 13 c7 13 c8 |........|........|
|000018f0| 13 c9 13 ca 13 cb 13 cc | 13 cd 13 ce 13 cf 13 d0 |........|........|
|00001900| 13 d1 13 d2 13 d3 13 d4 | 13 d5 13 d6 13 d7 13 d8 |........|........|
|00001910| 13 d9 13 da 13 db 13 dc | 13 dd 13 de 13 df 13 e0 |........|........|
|00001920| 13 e1 13 e2 13 e3 13 e4 | 13 e5 13 e6 13 e7 13 e8 |........|........|
|00001930| 13 e9 13 ea 13 eb 13 ec | 13 ed 13 ee 13 ef 13 f0 |........|........|
|00001940| 13 f1 13 f2 13 f3 13 f4 | 13 f5 13 f6 13 f7 13 f8 |........|........|
|00001950| 13 f9 13 fa 13 fb 13 fc | 13 fd 13 fe 13 ff 13 00 |........|........|
|00001960| 14 27 da 04 c4 4b bf 0d | 0a 27 b3 04 09 04 42 41 |.'...K..|.'....BA|
|00001970| 4c 4c 2e 42 41 53 04 09 | 04 04 20 05 b3 0d 0a 27 |LL.BAS..|.. ....'|
|00001980| b3 04 20 1d 56 45 52 53 | 49 4f 4e 20 31 2e 30 04 |.. .VERS|ION 1.0.|
|00001990| 20 23 b3 0d 0a 27 b3 04 | 09 09 04 20 05 b3 0d 0a | #...'..|... ....|
|000019a0| 27 b3 04 09 03 04 20 07 | 54 75 72 62 6f 20 42 61 |'..... .|Turbo Ba|
|000019b0| 73 69 63 04 09 04 04 20 | 05 b3 0d 0a 27 b3 09 09 |sic.... |....'...|
|000019c0| 28 43 29 20 43 6f 70 79 | 72 69 67 68 74 20 31 39 |(C) Copy|right 19|
|000019d0| 38 37 20 62 79 20 42 6f | 72 6c 61 6e 64 20 49 6e |87 by Bo|rland In|
|000019e0| 74 65 72 6e 61 74 69 6f | 6e 61 6c 09 09 04 20 05 |ternatio|nal... .|
|000019f0| b3 0d 0a 27 b3 04 09 09 | 04 20 05 b3 0d 0a 27 b3 |...'....|. ....'.|
|00001a00| 20 53 79 73 74 65 6d 20 | 52 65 71 75 69 72 65 6d | System |Requirem|
|00001a10| 65 6e 74 73 3a 04 09 07 | 04 20 05 b3 0d 0a 27 b3 |ents:...|. ....'.|
|00001a20| 04 20 03 2d 20 44 4f 53 | 20 56 65 72 73 69 6f 6e |. .- DOS| Version|
|00001a30| 20 32 2e 30 20 6f 72 20 | 6c 61 74 65 72 04 09 06 | 2.0 or |later...|
|00001a40| 04 20 05 b3 0d 0a 27 b3 | 04 20 03 2d 20 33 32 30 |. ....'.|. .- 320|
|00001a50| 4b 04 09 08 04 20 05 b3 | 0d 0a 27 b3 04 09 09 04 |K.... ..|..'.....|
|00001a60| 20 05 b3 0d 0a 27 b3 04 | 20 03 54 68 69 73 20 20 | ....'..| .This |
|00001a70| 70 72 6f 67 72 61 6d 20 | 69 73 20 61 20 73 69 6d |program |is a sim|
|00001a80| 70 6c 65 20 64 65 6d 6f | 6e 73 74 72 61 74 69 6f |ple demo|nstratio|
|00001a90| 6e 20 6f 66 20 74 68 65 | 20 67 72 61 70 68 69 63 |n of the| graphic|
|00001aa0| 73 20 63 61 70 61 62 69 | 6c 69 74 69 65 73 04 20 |s capabi|lities. |
|00001ab0| 04 b3 0d 0a 27 b3 20 6f | 66 20 54 75 72 62 6f 20 |....'. o|f Turbo |
|00001ac0| 42 61 73 69 63 2e 20 20 | 49 74 20 64 69 73 70 6c |Basic. |It displ|
|00001ad0| 61 79 73 20 61 20 22 62 | 6f 75 6e 63 69 6e 67 20 |ays a "b|ouncing |
|00001ae0| 62 61 6c 6c 22 20 74 68 | 61 74 20 75 73 65 73 20 |ball" th|at uses |
|00001af0| 72 61 6e 64 6f 6d 20 6e | 75 6d 62 65 72 73 04 20 |random n|umbers. |
|00001b00| 03 b3 0d 0a 27 b3 20 74 | 6f 20 66 69 67 75 72 65 |....'. t|o figure|
|00001b10| 20 6f 75 74 20 77 68 69 | 63 68 20 64 69 72 65 63 | out whi|ch direc|
|00001b20| 74 69 6f 6e 73 20 74 6f | 20 62 6f 75 6e 63 65 20 |tions to| bounce |
|00001b30| 6f 66 66 20 74 6f 2e 04 | 20 1a b3 0d 0a 27 b3 04 |off to..| ....'..|
|00001b40| 09 09 04 20 05 b3 0d 0a | 27 b3 09 49 6e 20 6f 72 |... ....|'..In or|
|00001b50| 64 65 72 20 74 6f 20 72 | 75 6e 20 74 68 69 73 20 |der to r|un this |
|00001b60| 70 72 6f 67 72 61 6d 20 | 64 6f 20 74 68 65 20 66 |program |do the f|
|00001b70| 6f 6c 6c 6f 77 69 6e 67 | 3a 04 09 03 04 20 05 b3 |ollowing|:.... ..|
|00001b80| 0d 0a 27 b3 09 20 20 31 | 2e 20 4c 6f 61 64 20 54 |..'.. 1|. Load T|
|00001b90| 75 72 62 6f 20 42 61 73 | 69 63 20 62 79 20 74 79 |urbo Bas|ic by ty|
|00001ba0| 70 69 6e 67 20 54 42 20 | 61 74 20 74 68 65 20 44 |ping TB |at the D|
|00001bb0| 4f 53 20 70 72 6f 6d 70 | 74 2e 20 09 09 04 20 05 |OS promp|t. ... .|
|00001bc0| b3 0d 0a 27 b3 09 20 20 | 32 2e 20 4c 6f 61 64 20 |...'.. |2. Load |
|00001bd0| 74 68 65 20 66 69 6c 65 | 20 42 41 4c 4c 2e 42 41 |the file| BALL.BA|
|00001be0| 53 20 66 72 6f 6d 20 74 | 68 65 20 4c 6f 61 64 20 |S from t|he Load |
|00001bf0| 6f 70 74 69 6f 6e 20 6f | 66 20 74 68 65 20 46 69 |option o|f the Fi|
|00001c00| 6c 65 09 04 20 05 b3 0d | 0a 27 b3 09 04 20 05 70 |le.. ...|.'... .p|
|00001c10| 75 6c 6c 64 6f 77 6e 20 | 6d 65 6e 75 2e 04 09 06 |ulldown |menu....|
|00001c20| 04 20 05 b3 0d 0a 27 b3 | 09 20 20 33 2e 20 53 65 |. ....'.|. 3. Se|
|00001c30| 6c 65 63 74 20 52 75 6e | 20 66 72 6f 6d 20 74 68 |lect Run| from th|
|00001c40| 65 20 4d 61 69 6e 20 6d | 65 6e 75 04 09 04 04 20 |e Main m|enu.... |
|00001c50| 05 b3 0d 0a 27 c0 04 c4 | 4b d9 0d 0a 0d 0a 0d 0a |....'...|K.......|
|00001c60| 27 20 20 6c 6f 67 69 63 | 3a 0d 0a 27 04 20 04 64 |' logic|:..'. .d|
|00001c70| 72 61 77 20 74 68 65 20 | 62 61 6c 6c 0d 0a 27 04 |raw the |ball..'.|
|00001c80| 20 04 75 73 65 20 47 45 | 54 20 74 6f 20 73 74 6f | .use GE|T to sto|
|00001c90| 72 65 20 70 69 78 65 6c | 73 20 69 6e 74 6f 20 61 |re pixel|s into a|
|00001ca0| 6e 20 61 72 72 61 79 0d | 0a 27 04 20 04 73 65 74 |n array.|.'. .set|
|00001cb0| 20 43 75 72 72 65 6e 74 | 50 6f 73 69 74 69 6f 6e | Current|Position|
|00001cc0| 20 3d 20 4f 6c 64 50 6f | 73 69 74 69 6f 6e 20 3d | = OldPo|sition =|
|00001cd0| 20 53 74 61 72 74 50 6f | 69 6e 74 0d 0a 27 04 20 | StartPo|int..'. |
|00001ce0| 04 44 4f 0d 0a 27 04 20 | 06 45 72 61 73 65 20 28 |.DO..'. |.Erase (|
|00001cf0| 50 55 54 20 77 69 74 68 | 20 58 4f 52 29 20 74 68 |PUT with| XOR) th|
|00001d00| 65 20 6f 62 6a 65 63 74 | 20 61 74 20 74 68 65 20 |e object| at the |
|00001d10| 4f 6c 64 50 6f 73 69 74 | 69 6f 6e 0d 0a 27 04 20 |OldPosit|ion..'. |
|00001d20| 06 43 75 72 72 65 6e 74 | 50 6f 73 69 74 69 6f 6e |.Current|Position|
|00001d30| 20 3d 20 43 75 72 72 65 | 6e 74 50 6f 73 69 74 69 | = Curre|ntPositi|
|00001d40| 6f 6e 20 2b 20 49 6e 63 | 72 65 6d 65 6e 74 0d 0a |on + Inc|rement..|
|00001d50| 27 04 20 06 44 69 73 70 | 6c 61 79 20 28 50 55 54 |'. .Disp|lay (PUT|
|00001d60| 29 20 74 68 65 20 6f 62 | 6a 65 63 74 20 61 74 20 |) the ob|ject at |
|00001d70| 74 68 65 20 43 75 72 72 | 65 6e 74 50 6f 73 69 74 |the Curr|entPosit|
|00001d80| 69 6f 6e 0d 0a 27 04 20 | 06 44 45 4c 41 59 20 61 |ion..'. |.DELAY a|
|00001d90| 20 73 6d 61 6c 6c 20 61 | 6d 6f 75 6e 74 20 6f 66 | small a|mount of|
|00001da0| 20 74 69 6d 65 0d 0a 27 | 04 20 06 4f 6c 64 50 6f | time..'|. .OldPo|
|00001db0| 73 69 74 69 6f 6e 20 3d | 20 43 75 72 72 65 6e 74 |sition =| Current|
|00001dc0| 50 6f 73 69 74 69 6f 6e | 0d 0a 27 04 20 04 4c 4f |Position|..'. .LO|
|00001dd0| 4f 50 20 55 4e 54 49 4c | 20 61 6e 79 20 6b 65 79 |OP UNTIL| any key|
|00001de0| 20 69 73 20 68 69 74 0d | 0a 27 04 20 04 65 6e 64 | is hit.|.'. .end|
|00001df0| 20 6f 66 20 70 72 6f 67 | 72 61 6d 0d 0a 27 0d 0a | of prog|ram..'..|
|00001e00| 44 45 46 49 4e 54 20 41 | 2d 5a 0d 0a 52 41 4e 44 |DEFINT A|-Z..RAND|
|00001e10| 4f 4d 49 5a 45 20 54 49 | 4d 45 52 0d 0a 27 0d 0a |OMIZE TI|MER..'..|
|00001e20| 27 20 20 64 69 6d 65 6e | 73 69 6f 6e 20 74 68 65 |' dimen|sion the|
|00001e30| 20 73 61 76 65 20 62 75 | 66 66 65 72 20 66 6f 72 | save bu|ffer for|
|00001e40| 20 74 68 65 20 70 69 78 | 65 6c 73 0d 0a 27 0d 0a | the pix|els..'..|
|00001e50| 44 49 4d 20 47 72 61 70 | 68 69 63 73 42 75 66 66 |DIM Grap|hicsBuff|
|00001e60| 65 72 28 31 04 30 03 29 | 0d 0a 0d 0a 53 43 52 45 |er(1.0.)|....SCRE|
|00001e70| 45 4e 20 31 0d 0a 27 0d | 0a 27 20 20 73 65 74 20 |EN 1..'.|.' set |
|00001e80| 73 63 72 65 65 6e 20 6d | 69 6e 20 61 6e 64 20 6d |screen m|in and m|
|00001e90| 61 78 20 62 61 73 65 64 | 20 6f 6e 20 73 63 72 65 |ax based| on scre|
|00001ea0| 65 6e 20 6e 75 6d 62 65 | 72 0d 0a 27 0d 0a 4d 61 |en numbe|r..'..Ma|
|00001eb0| 78 2e 58 20 3d 20 33 31 | 39 20 3a 20 4d 69 6e 2e |x.X = 31|9 : Min.|
|00001ec0| 58 20 3d 20 30 0d 0a 4d | 61 78 2e 59 20 3d 20 31 |X = 0..M|ax.Y = 1|
|00001ed0| 39 39 20 3a 20 4d 69 6e | 2e 59 20 3d 20 30 0d 0a |99 : Min|.Y = 0..|
|00001ee0| 27 0d 0a 27 20 20 73 65 | 74 20 73 69 7a 65 20 6f |'..' se|t size o|
|00001ef0| 66 20 62 61 6c 6c 0d 0a | 27 0d 0a 53 69 7a 65 4f |f ball..|'..SizeO|
|00001f00| 66 42 61 6c 6c 20 3d 20 | 31 35 0d 0a 27 0d 0a 27 |fBall = |15..'..'|
|00001f10| 20 20 73 65 74 20 75 70 | 20 74 68 65 20 73 74 61 | set up| the sta|
|00001f20| 72 74 69 6e 67 20 63 65 | 6e 74 65 72 20 70 6f 73 |rting ce|nter pos|
|00001f30| 69 74 69 6f 6e 20 66 6f | 72 20 74 68 65 20 62 61 |ition fo|r the ba|
|00001f40| 6c 6c 0d 0a 27 0d 0a 53 | 74 61 72 74 2e 58 20 3d |ll..'..S|tart.X =|
|00001f50| 20 31 35 0d 0a 53 74 61 | 72 74 2e 59 20 3d 20 31 | 15..Sta|rt.Y = 1|
|00001f60| 35 0d 0a 27 0d 0a 27 20 | 20 62 75 69 6c 64 20 74 |5..'..' | build t|
|00001f70| 68 65 20 62 61 6c 6c 20 | 6f 6e 20 74 68 65 20 73 |he ball |on the s|
|00001f80| 63 72 65 65 6e 0d 0a 27 | 0d 0a 43 49 52 43 4c 45 |creen..'|..CIRCLE|
|00001f90| 20 28 53 74 61 72 74 2e | 58 2c 53 74 61 72 74 2e | (Start.|X,Start.|
|00001fa0| 59 29 2c 53 69 7a 65 4f | 66 42 61 6c 6c 2c 32 0d |Y),SizeO|fBall,2.|
|00001fb0| 0a 50 41 49 4e 54 20 28 | 53 74 61 72 74 2e 58 2c |.PAINT (|Start.X,|
|00001fc0| 53 74 61 72 74 2e 59 29 | 2c 31 2c 32 0d 0a 27 0d |Start.Y)|,1,2..'.|
|00001fd0| 0a 27 20 20 73 74 6f 72 | 65 20 74 68 65 20 70 69 |.' stor|e the pi|
|00001fe0| 78 65 6c 73 20 69 6e 20 | 61 20 67 72 61 70 68 69 |xels in |a graphi|
|00001ff0| 63 73 20 73 61 76 65 20 | 62 75 66 66 65 72 0d 0a |cs save |buffer..|
|00002000| 27 0d 0a 47 45 54 20 28 | 53 74 61 72 74 2e 58 2d |'..GET (|Start.X-|
|00002010| 53 69 7a 65 4f 66 42 61 | 6c 6c 2c 53 74 61 72 74 |SizeOfBa|ll,Start|
|00002020| 2e 59 2d 53 69 7a 65 4f | 66 42 61 6c 6c 29 2d 28 |.Y-SizeO|fBall)-(|
|00002030| 53 74 61 72 74 2e 58 2b | 53 69 7a 65 4f 66 42 61 |Start.X+|SizeOfBa|
|00002040| 6c 6c 2c 53 74 61 72 74 | 2e 59 2b 53 69 7a 65 4f |ll,Start|.Y+SizeO|
|00002050| 66 42 61 6c 6c 29 2c 47 | 72 61 70 68 69 63 73 42 |fBall),G|raphicsB|
|00002060| 75 66 66 65 72 0d 0a 27 | 0d 0a 27 20 20 69 6e 69 |uffer..'|..' ini|
|00002070| 74 69 61 6c 69 7a 65 20 | 74 68 65 20 70 6f 73 69 |tialize |the posi|
|00002080| 74 69 6f 6e 20 6f 66 20 | 74 68 65 20 62 61 6c 6c |tion of |the ball|
|00002090| 0d 0a 27 0d 0a 43 75 72 | 72 65 6e 74 50 6f 73 69 |..'..Cur|rentPosi|
|000020a0| 74 69 6f 6e 2e 58 20 3d | 20 4f 6c 64 50 6f 73 69 |tion.X =| OldPosi|
|000020b0| 74 69 6f 6e 2e 58 20 3d | 20 53 74 61 72 74 2e 58 |tion.X =| Start.X|
|000020c0| 0d 0a 43 75 72 72 65 6e | 74 50 6f 73 69 74 69 6f |..Curren|tPositio|
|000020d0| 6e 2e 59 20 3d 20 4f 6c | 64 50 6f 73 69 74 69 6f |n.Y = Ol|dPositio|
|000020e0| 6e 2e 59 20 3d 20 53 74 | 61 72 74 2e 59 0d 0a 27 |n.Y = St|art.Y..'|
|000020f0| 0d 0a 27 20 20 73 65 74 | 20 63 75 72 72 65 6e 74 |..' set| current|
|00002100| 20 58 20 64 69 72 65 63 | 74 69 6f 6e 20 74 6f 20 | X direc|tion to |
|00002110| 52 69 67 68 74 2c 20 59 | 20 64 69 72 65 63 74 69 |Right, Y| directi|
|00002120| 6f 6e 20 74 6f 20 44 6f | 77 6e 0d 0a 27 0d 0a 44 |on to Do|wn..'..D|
|00002130| 69 72 65 63 74 69 6f 6e | 2e 58 20 3d 20 31 0d 0a |irection|.X = 1..|
|00002140| 44 69 72 65 63 74 69 6f | 6e 2e 59 20 3d 20 31 0d |Directio|n.Y = 1.|
|00002150| 0a 0d 0a 44 4f 0d 0a 20 | 20 27 0d 0a 20 20 27 20 |...DO.. | '.. ' |
|00002160| 20 65 72 61 73 65 20 70 | 72 65 76 69 6f 75 73 20 | erase p|revious |
|00002170| 62 61 6c 6c 20 62 79 20 | 64 6f 69 6e 67 20 61 20 |ball by |doing a |
|00002180| 50 55 54 20 61 74 20 74 | 68 65 20 6f 6c 64 20 70 |PUT at t|he old p|
|00002190| 6f 73 69 74 69 6f 6e 0d | 0a 20 20 27 0d 0a 20 20 |osition.|. '.. |
|000021a0| 50 55 54 20 28 4f 6c 64 | 50 6f 73 69 74 69 6f 6e |PUT (Old|Position|
|000021b0| 2e 58 2c 4f 6c 64 50 6f | 73 69 74 69 6f 6e 2e 59 |.X,OldPo|sition.Y|
|000021c0| 29 2c 47 72 61 70 68 69 | 63 73 42 75 66 66 65 72 |),Graphi|csBuffer|
|000021d0| 0d 0a 20 20 27 0d 0a 20 | 20 27 20 20 63 61 6c 63 |.. '.. | ' calc|
|000021e0| 75 6c 61 74 65 20 6e 65 | 77 20 58 20 70 6f 73 69 |ulate ne|w X posi|
|000021f0| 74 69 6f 6e 2c 0d 0a 20 | 20 27 20 20 69 66 20 61 |tion,.. | ' if a|
|00002200| 74 20 72 69 67 68 74 20 | 65 64 67 65 20 73 65 74 |t right |edge set|
|00002210| 20 64 69 72 65 63 74 69 | 6f 6e 20 74 6f 20 4c 65 | directi|on to Le|
|00002220| 66 74 0d 0a 20 20 27 20 | 20 69 66 20 61 74 20 6c |ft.. ' | if at l|
|00002230| 65 66 74 20 65 64 67 65 | 20 73 65 74 20 64 69 72 |eft edge| set dir|
|00002240| 65 63 74 69 6f 6e 20 74 | 6f 20 72 69 67 68 74 0d |ection t|o right.|
|00002250| 0a 20 20 27 20 20 69 66 | 20 62 61 6c 6c 20 68 69 |. ' if| ball hi|
|00002260| 74 73 20 61 6e 20 65 64 | 67 65 2c 20 6d 61 6b 65 |ts an ed|ge, make|
|00002270| 20 61 20 73 6f 75 6e 64 | 0d 0a 20 20 27 0d 0a 20 | a sound|.. '.. |
|00002280| 20 49 6e 63 72 65 6d 65 | 6e 74 2e 58 20 3d 20 52 | Increme|nt.X = R|
|00002290| 4e 44 2a 38 0d 0a 20 20 | 49 46 20 43 75 72 72 65 |ND*8.. |IF Curre|
|000022a0| 6e 74 50 6f 73 69 74 69 | 6f 6e 2e 58 2b 49 6e 63 |ntPositi|on.X+Inc|
|000022b0| 72 65 6d 65 6e 74 2e 58 | 2b 33 30 20 3e 20 4d 61 |rement.X|+30 > Ma|
|000022c0| 78 2e 58 20 54 48 45 4e | 20 44 69 72 65 63 74 69 |x.X THEN| Directi|
|000022d0| 6f 6e 2e 58 20 3d 20 2d | 31 20 3a 20 73 6f 75 6e |on.X = -|1 : soun|
|000022e0| 64 20 32 30 30 2b 72 6e | 64 2a 32 35 30 2c 2e 35 |d 200+rn|d*250,.5|
|000022f0| 0d 0a 20 20 49 46 20 43 | 75 72 72 65 6e 74 50 6f |.. IF C|urrentPo|
|00002300| 73 69 74 69 6f 6e 2e 58 | 2d 49 6e 63 72 65 6d 65 |sition.X|-Increme|
|00002310| 6e 74 2e 58 20 3c 20 4d | 69 6e 2e 59 20 54 48 45 |nt.X < M|in.Y THE|
|00002320| 4e 20 44 69 72 65 63 74 | 69 6f 6e 2e 58 20 3d 20 |N Direct|ion.X = |
|00002330| 31 20 3a 20 73 6f 75 6e | 64 20 32 30 30 2b 72 6e |1 : soun|d 200+rn|
|00002340| 64 2a 33 30 30 2c 2e 35 | 0d 0a 20 20 43 75 72 72 |d*300,.5|.. Curr|
|00002350| 65 6e 74 50 6f 73 69 74 | 69 6f 6e 2e 58 20 3d 20 |entPosit|ion.X = |
|00002360| 43 75 72 72 65 6e 74 50 | 6f 73 69 74 69 6f 6e 2e |CurrentP|osition.|
|00002370| 58 20 2b 20 28 49 6e 63 | 72 65 6d 65 6e 74 2e 58 |X + (Inc|rement.X|
|00002380| 2a 44 69 72 65 63 74 69 | 6f 6e 2e 58 29 0d 0a 20 |*Directi|on.X).. |
|00002390| 20 27 0d 0a 20 20 27 20 | 20 63 61 6c 63 75 6c 61 | '.. ' | calcula|
|000023a0| 74 65 20 6e 65 77 20 59 | 20 70 6f 73 69 74 69 6f |te new Y| positio|
|000023b0| 6e 2c 0d 0a 20 20 27 20 | 20 69 66 20 61 74 20 62 |n,.. ' | if at b|
|000023c0| 6f 74 74 6f 6d 20 65 64 | 67 65 20 73 65 74 20 64 |ottom ed|ge set d|
|000023d0| 69 72 65 63 74 69 6f 6e | 20 74 6f 20 74 68 65 20 |irection| to the |
|000023e0| 75 70 0d 0a 20 20 27 20 | 20 69 66 20 61 74 20 74 |up.. ' | if at t|
|000023f0| 6f 70 20 65 64 67 65 20 | 73 65 74 20 64 69 72 65 |op edge |set dire|
|00002400| 63 74 69 6f 6e 20 74 6f | 20 74 68 65 20 64 6f 77 |ction to| the dow|
|00002410| 6e 0d 0a 20 20 27 20 20 | 69 66 20 62 61 6c 6c 20 |n.. ' |if ball |
|00002420| 68 69 74 73 20 61 6e 20 | 65 64 67 65 2c 20 6d 61 |hits an |edge, ma|
|00002430| 6b 65 20 61 20 73 6f 75 | 6e 64 0d 0a 20 20 27 0d |ke a sou|nd.. '.|
|00002440| 0a 20 20 49 6e 63 72 65 | 6d 65 6e 74 2e 59 20 3d |. Incre|ment.Y =|
|00002450| 20 52 4e 44 2a 38 0d 0a | 20 20 49 46 20 43 75 72 | RND*8..| IF Cur|
|00002460| 72 65 6e 74 50 6f 73 69 | 74 69 6f 6e 2e 59 2b 49 |rentPosi|tion.Y+I|
|00002470| 6e 63 72 65 6d 65 6e 74 | 2e 59 2b 33 30 20 3e 20 |ncrement|.Y+30 > |
|00002480| 4d 61 78 2e 59 20 54 48 | 45 4e 20 44 69 72 65 63 |Max.Y TH|EN Direc|
|00002490| 74 69 6f 6e 2e 59 20 3d | 20 2d 31 20 3a 20 73 6f |tion.Y =| -1 : so|
|000024a0| 75 6e 64 20 32 30 30 2b | 72 6e 64 2a 32 37 35 2c |und 200+|rnd*275,|
|000024b0| 2e 35 0d 0a 20 20 49 46 | 20 43 75 72 72 65 6e 74 |.5.. IF| Current|
|000024c0| 50 6f 73 69 74 69 6f 6e | 2e 59 2d 49 6e 63 72 65 |Position|.Y-Incre|
|000024d0| 6d 65 6e 74 2e 59 20 3c | 20 4d 69 6e 2e 59 20 54 |ment.Y <| Min.Y T|
|000024e0| 48 45 4e 20 44 69 72 65 | 63 74 69 6f 6e 2e 59 20 |HEN Dire|ction.Y |
|000024f0| 3d 20 31 20 3a 20 73 6f | 75 6e 64 20 32 30 30 2b |= 1 : so|und 200+|
|00002500| 72 6e 64 2a 33 32 35 2c | 2e 35 0d 0a 20 20 43 75 |rnd*325,|.5.. Cu|
|00002510| 72 72 65 6e 74 50 6f 73 | 69 74 69 6f 6e 2e 59 20 |rrentPos|ition.Y |
|00002520| 3d 20 43 75 72 72 65 6e | 74 50 6f 73 69 74 69 6f |= Curren|tPositio|
|00002530| 6e 2e 59 20 2b 20 28 49 | 6e 63 72 65 6d 65 6e 74 |n.Y + (I|ncrement|
|00002540| 2e 59 2a 44 69 72 65 63 | 74 69 6f 6e 2e 59 29 0d |.Y*Direc|tion.Y).|
|00002550| 0a 20 20 27 0d 0a 20 20 | 27 20 20 64 69 73 70 6c |. '.. |' displ|
|00002560| 61 79 20 74 68 65 20 62 | 61 6c 6c 20 61 74 20 74 |ay the b|all at t|
|00002570| 68 65 20 6e 65 77 20 70 | 6f 73 69 74 69 6f 6e 0d |he new p|osition.|
|00002580| 0a 20 20 27 0d 0a 20 20 | 50 55 54 20 28 43 75 72 |. '.. |PUT (Cur|
|00002590| 72 65 6e 74 50 6f 73 69 | 74 69 6f 6e 2e 58 2c 43 |rentPosi|tion.X,C|
|000025a0| 75 72 72 65 6e 74 50 6f | 73 69 74 69 6f 6e 2e 59 |urrentPo|sition.Y|
|000025b0| 29 2c 47 72 61 70 68 69 | 63 73 42 75 66 66 65 72 |),Graphi|csBuffer|
|000025c0| 0d 0a 20 20 27 0d 0a 20 | 20 27 20 20 77 61 69 74 |.. '.. | ' wait|
|000025d0| 20 73 6f 6d 65 20 74 69 | 6d 65 20 66 6f 72 20 73 | some ti|me for s|
|000025e0| 6d 6f 6f 74 68 65 72 20 | 61 6e 69 6d 61 74 69 6f |moother |animatio|
|000025f0| 6e 0d 0a 20 20 27 0d 0a | 20 20 44 45 4c 41 59 20 |n.. '..| DELAY |
|00002600| 2e 30 33 0d 0a 20 20 27 | 0d 0a 20 20 27 20 20 73 |.03.. '|.. ' s|
|00002610| 61 76 65 20 63 75 72 72 | 65 6e 74 20 70 6f 73 69 |ave curr|ent posi|
|00002620| 74 69 6f 6e 20 73 6f 20 | 74 68 65 20 62 61 6c 6c |tion so |the ball|
|00002630| 20 63 61 6e 20 62 65 20 | 65 72 61 73 65 64 20 62 | can be |erased b|
|00002640| 65 66 6f 72 65 20 6e 65 | 78 74 20 6d 6f 76 65 0d |efore ne|xt move.|
|00002650| 0a 20 20 27 0d 0a 20 20 | 4f 6c 64 50 6f 73 69 74 |. '.. |OldPosit|
|00002660| 69 6f 6e 2e 58 20 3d 20 | 43 75 72 72 65 6e 74 50 |ion.X = |CurrentP|
|00002670| 6f 73 69 74 69 6f 6e 2e | 58 0d 0a 20 20 4f 6c 64 |osition.|X.. Old|
|00002680| 50 6f 73 69 74 69 6f 6e | 2e 59 20 3d 20 43 75 72 |Position|.Y = Cur|
|00002690| 72 65 6e 74 50 6f 73 69 | 74 69 6f 6e 2e 59 0d 0a |rentPosi|tion.Y..|
|000026a0| 20 20 27 0d 0a 20 20 27 | 20 20 6b 65 65 70 20 6c | '.. '| keep l|
|000026b0| 6f 6f 70 69 6e 67 20 75 | 6e 74 69 6c 20 61 6e 79 |ooping u|ntil any|
|000026c0| 20 6b 65 79 20 69 73 20 | 68 69 74 0d 0a 20 20 27 | key is |hit.. '|
|000026d0| 0d 0a 4c 4f 4f 50 20 55 | 4e 54 49 4c 20 49 4e 53 |..LOOP U|NTIL INS|
|000026e0| 54 41 54 0d 0a 45 4e 44 | 0d 0a 1a 04 00 06 22 bc |TAT..END|......".|
|000026f0| ce 1a 31 15 04 00 04 45 | 4d 54 43 4f 50 59 04 20 |..1....E|MTCOPY. |
|00002700| 04 10 04 00 0a 52 bc ce | 1a 6f 15 04 00 04 41 52 |.....R..|.o....AR|
|00002710| 43 04 20 08 10 04 00 0a | 8f bc ce 1a 9f 15 04 00 |C. .....|........|
|00002720| 04 41 52 43 45 04 20 07 | 10 04 00 0a a7 bc ce 1a |.ARCE. .|........|
|00002730| c1 15 04 00 04 49 43 45 | 04 20 05 31 31 34 10 04 |.....ICE|. .114..|
|00002740| 00 0a bb bc ce 1a c7 15 | 04 00 04 50 41 4b 04 20 |........|...PAK. |
|00002750| 05 32 35 31 10 04 00 0a | c3 bc ce 1a d8 15 04 00 |.251....|........|
|00002760| 04 46 44 35 31 53 49 43 | 45 04 20 03 10 04 00 0a |.FD51SIC|E. .....|
|00002770| f4 bc ce 1a 0e 16 04 00 | 04 46 44 35 31 44 42 04 |........|.FD51DB.|
|00002780| 20 05 10 04 00 0a 14 bd | ce 1a 4f 16 04 00 04 42 | .......|..O....B|
|00002790| 49 4e 55 54 49 4c 04 20 | 04 10 04 00 0a 28 bd ce |INUTIL. |.....(..|
|000027a0| 1a 77 16 04 00 04 54 54 | 04 20 09 10 04 00 0a 73 |.w....TT|. .....s|
|000027b0| bd ce 1a d0 16 04 00 04 | 0d 0a 3b 20 54 68 69 73 |........|..; This|
|000027c0| 20 20 72 6f 75 74 69 6e | 65 20 65 78 70 65 63 74 | routin|e expect|
|000027d0| 73 20 74 77 6f 20 70 6f | 69 6e 74 65 72 73 20 74 |s two po|inters t|
|000027e0| 6f 20 62 65 20 70 61 73 | 73 65 64 20 6f 6e 20 74 |o be pas|sed on t|
|000027f0| 68 65 20 73 74 61 63 6b | 2e 20 20 54 68 65 20 66 |he stack|. The f|
|00002800| 69 72 73 74 0d 0a 3b 20 | 70 6f 69 6e 74 73 20 74 |irst..; |points t|
|00002810| 6f 20 20 61 20 54 75 72 | 62 6f 20 42 61 73 69 63 |o a Tur|bo Basic|
|00002820| 20 69 6e 74 65 67 65 72 | 20 77 68 69 63 68 20 69 | integer| which i|
|00002830| 6e 64 69 63 61 74 65 73 | 20 77 68 69 63 68 20 64 |ndicates| which d|
|00002840| 72 69 76 65 20 74 6f 20 | 6c 6f 6f 6b 20 61 74 2e |rive to |look at.|
|00002850| 0d 0a 3b 20 54 68 65 20 | 73 65 63 6f 6e 64 20 69 |..; The |second i|
|00002860| 73 20 61 20 70 6f 69 6e | 74 65 72 20 74 6f 20 61 |s a poin|ter to a|
|00002870| 20 54 75 72 62 6f 20 42 | 61 73 69 63 20 73 74 72 | Turbo B|asic str|
|00002880| 69 6e 67 20 64 65 73 63 | 72 69 70 74 6f 72 20 77 |ing desc|riptor w|
|00002890| 68 69 63 68 20 69 6e 20 | 74 75 72 6e 0d 0a 3b 20 |hich in |turn..; |
|000028a0| 70 6f 69 6e 74 73 20 74 | 6f 20 74 68 65 20 73 74 |points t|o the st|
|000028b0| 72 69 6e 67 20 77 68 69 | 63 68 20 77 69 6c 6c 20 |ring whi|ch will |
|000028c0| 73 74 6f 72 65 20 74 68 | 65 20 64 69 72 65 63 74 |store th|e direct|
|000028d0| 6f 72 79 20 72 65 74 75 | 72 6e 65 64 20 62 79 20 |ory retu|rned by |
|000028e0| 44 4f 53 2e 20 54 68 65 | 0d 0a 3b 20 73 74 72 69 |DOS. The|..; stri|
|000028f0| 6e 67 20 6d 75 73 74 20 | 68 61 76 65 20 62 65 65 |ng must |have bee|
|00002900| 6e 20 61 6c 6c 6f 63 61 | 74 65 73 20 36 34 20 63 |n alloca|tes 64 c|
|00002910| 68 61 72 61 63 74 65 72 | 73 20 69 6e 20 6c 65 6e |haracter|s in len|
|00002920| 67 74 68 20 6f 72 20 74 | 68 69 73 20 20 72 6f 75 |gth or t|his rou|
|00002930| 74 69 6e 65 0d 0a 3b 20 | 77 69 6c 6c 20 63 61 75 |tine..; |will cau|
|00002940| 73 65 20 73 74 72 69 6e | 67 20 6d 65 6d 6f 72 79 |se strin|g memory|
|00002950| 20 74 6f 20 62 65 63 6f | 6d 65 20 63 6f 72 72 75 | to beco|me corru|
|00002960| 70 74 2e 0d 0a 3b 0d 0a | 3b 20 20 09 53 54 41 43 |pt...;..|; .STAC|
|00002970| 4b 20 61 66 74 65 72 20 | 73 61 76 69 6e 67 20 42 |K after |saving B|
|00002980| 50 0d 0a 3b 04 20 03 b3 | 20 33 32 20 62 69 74 28 |P..;. ..| 32 bit(|
|00002990| 73 65 67 6d 65 6e 74 20 | 61 6e 64 20 6f 66 66 73 |segment |and offs|
|000029a0| 65 74 29 20 b3 0d 0a 3b | 04 20 03 b3 20 74 6f 20 |et) ...;|. .. to |
|000029b0| 54 42 20 69 6e 74 65 67 | 65 72 20 72 65 70 72 65 |TB integ|er repre|
|000029c0| 73 65 6e 74 69 6e 67 20 | b3 20 3c 04 2d 05 20 42 |senting |. <.-. B|
|000029d0| 50 20 2b 20 30 41 68 0d | 0a 3b 04 20 03 b3 20 77 |P + 0Ah.|.;. .. w|
|000029e0| 68 69 63 68 20 64 72 69 | 76 65 20 74 6f 20 6c 6f |hich dri|ve to lo|
|000029f0| 6f 6b 20 61 74 04 20 05 | b3 0d 0a 3b 04 20 03 c3 |ok at. .|...;. ..|
|00002a00| 04 c4 1c b4 0d 0a 3b 04 | 20 03 b3 20 33 32 20 62 |......;.| .. 32 b|
|00002a10| 69 74 28 73 65 67 6d 65 | 6e 74 20 61 6e 64 20 6f |it(segme|nt and o|
|00002a20| 66 66 73 65 74 29 20 b3 | 0d 0a 3b 04 20 03 b3 20 |ffset) .|..;. .. |
|00002a30| 74 6f 20 54 42 20 73 74 | 72 69 6e 67 20 72 65 70 |to TB st|ring rep|
|00002a40| 72 65 73 65 6e 74 69 6e | 67 20 20 b3 20 3c 04 2d |resentin|g . <.-|
|00002a50| 05 20 42 50 20 2b 20 36 | 0d 0a 3b 04 20 03 b3 20 |. BP + 6|..;. .. |
|00002a60| 63 75 72 72 65 6e 74 20 | 70 61 74 68 20 09 09 20 |current |path .. |
|00002a70| b3 0d 0a 3b 04 20 03 c3 | 04 c4 1c b4 0d 0a 3b 04 |...;. ..|......;.|
|00002a80| 20 03 b3 04 20 04 72 65 | 74 75 72 6e 20 61 64 64 | ... .re|turn add|
|00002a90| 72 65 73 73 20 74 68 61 | 74 20 20 09 20 b3 0d 0a |ress tha|t . ...|
|00002aa0| 3b 04 20 03 b3 04 20 04 | 54 42 20 77 69 6c 6c 20 |;. ... .|TB will |
|00002ab0| 67 6f 20 74 6f 20 61 66 | 74 65 72 20 20 09 20 b3 |go to af|ter . .|
|00002ac0| 20 3c 04 2d 05 20 42 50 | 20 2b 20 32 0d 0a 3b 04 | <.-. BP| + 2..;.|
|00002ad0| 20 03 b3 04 20 03 63 6f | 6d 70 6c 65 74 69 6f 6e | ... .co|mpletion|
|00002ae0| 20 6f 66 20 72 6f 75 74 | 69 6e 65 09 20 b3 0d 0a | of rout|ine. ...|
|00002af0| 3b 04 20 03 c3 04 c4 1c | b4 0d 0a 3b 04 20 03 b3 |;. .....|...;. ..|
|00002b00| 04 20 09 73 61 76 65 64 | 20 42 50 04 20 09 09 20 |. .saved| BP. .. |
|00002b10| b3 20 3c 04 2d 05 20 42 | 50 0d 0a 3b 04 20 03 b3 |. <.-. B|P..;. ..|
|00002b20| 04 20 16 09 20 b3 0d 0a | 3b 04 20 03 c0 04 c4 1c |. .. ...|;. .....|
|00002b30| d9 0d 0a 0d 0a 0d 0a 44 | 6f 73 43 61 6c 6c 20 20 |.......D|osCall |
|00002b40| 65 71 75 20 20 32 31 68 | 09 3b 20 65 71 75 61 74 |equ 21h|.; equat|
|00002b50| 65 73 20 66 6f 72 20 61 | 73 73 65 6d 62 6c 65 72 |es for a|ssembler|
|00002b60| 20 72 6f 75 74 69 6e 65 | 0d 0a 47 65 74 44 69 72 | routine|..GetDir|
|00002b70| 04 20 03 65 71 75 20 20 | 34 37 68 0d 0a 0d 0a 70 |. .equ |47h....p|
|00002b80| 72 6f 67 72 61 6d 20 73 | 65 67 6d 65 6e 74 09 3b |rogram s|egment.;|
|00002b90| 20 62 65 67 69 6e 20 70 | 72 6f 67 72 61 6d 20 73 | begin p|rogram s|
|00002ba0| 65 67 6d 65 6e 74 0d 0a | 20 20 61 73 73 75 6d 65 |egment..| assume|
|00002bb0| 20 63 73 3a 70 72 6f 67 | 72 61 6d 0d 0a 0d 0a 20 | cs:prog|ram.... |
|00002bc0| 20 70 75 73 68 20 20 62 | 70 04 20 06 3b 20 73 61 | push b|p. .; sa|
|00002bd0| 76 65 20 62 70 0d 0a 20 | 20 6d 6f 76 04 20 03 62 |ve bp.. | mov. .b|
|00002be0| 70 2c 20 73 70 0d 0a 20 | 20 70 75 73 68 20 20 65 |p, sp.. | push e|
|00002bf0| 73 04 20 06 3b 20 73 61 | 76 65 20 65 73 20 62 65 |s. .; sa|ve es be|
|00002c00| 63 61 75 73 65 20 77 65 | 27 6c 6c 20 75 73 65 20 |cause we|'ll use |
|00002c10| 69 74 20 66 6f 72 20 70 | 6f 69 6e 74 65 72 20 6d |it for p|ointer m|
|00002c20| 61 6e 69 70 75 6c 61 74 | 69 6f 6e 0d 0a 20 20 70 |anipulat|ion.. p|
|00002c30| 75 73 68 20 20 64 73 04 | 20 06 3b 20 64 69 74 74 |ush ds.| .; ditt|
|00002c40| 6f 0d 0a 0d 0a 20 20 6c | 65 73 04 20 03 64 69 2c |o.... l|es. .di,|
|00002c50| 20 5b 62 70 20 2b 20 36 | 68 5d 09 3b 20 6c 6f 61 | [bp + 6|h].; loa|
|00002c60| 64 20 70 6f 69 6e 74 65 | 72 20 74 6f 20 73 74 72 |d pointe|r to str|
|00002c70| 69 6e 67 20 64 65 73 63 | 72 69 70 74 6f 72 20 69 |ing desc|riptor i|
|00002c80| 6e 74 6f 20 65 73 3a 64 | 69 0d 0a 20 20 6d 6f 76 |nto es:d|i.. mov|
|00002c90| 04 20 03 64 78 2c 20 64 | 73 3a 5b 30 5d 09 3b 20 |. .dx, d|s:[0].; |
|00002ca0| 67 65 74 20 74 68 65 20 | 62 65 67 69 6e 6e 69 6e |get the |beginnin|
|00002cb0| 67 20 6f 66 20 74 68 65 | 20 73 74 72 69 6e 67 20 |g of the| string |
|00002cc0| 73 65 67 6d 65 6e 74 20 | 66 72 6f 6d 20 64 73 3a |segment |from ds:|
|00002cd0| 5b 30 5d 0d 0a 20 20 70 | 75 73 68 20 20 64 78 0d |[0].. p|ush dx.|
|00002ce0| 0a 20 20 70 6f 70 04 20 | 03 64 73 09 09 3b 20 6d |. pop. |.ds..; m|
|00002cf0| 61 6b 65 20 64 73 20 70 | 6f 69 6e 74 20 74 6f 20 |ake ds p|oint to |
|00002d00| 73 74 72 69 6e 67 20 73 | 65 67 6d 65 6e 74 0d 0a |string s|egment..|
|00002d10| 20 20 6d 6f 76 04 20 03 | 73 69 2c 20 65 73 3a 5b | mov. .|si, es:[|
|00002d20| 64 69 20 2b 20 32 5d 09 | 3b 20 67 65 74 20 6f 66 |di + 2].|; get of|
|00002d30| 66 73 65 74 20 69 6e 74 | 6f 20 73 74 72 69 6e 67 |fset int|o string|
|00002d40| 20 73 65 67 6d 65 6e 74 | 20 66 72 6f 6d 20 65 73 | segment| from es|
|00002d50| 3a 5b 64 69 20 2b 20 32 | 5d 0d 0a 0d 0a 20 20 6c |:[di + 2|].... l|
|00002d60| 65 73 04 20 03 64 69 2c | 20 5b 62 70 20 2b 20 30 |es. .di,| [bp + 0|
|00002d70| 41 68 5d 20 3b 20 6c 6f | 61 64 20 70 6f 69 6e 74 |Ah] ; lo|ad point|
|00002d80| 65 72 20 74 6f 20 54 42 | 20 69 6e 74 65 67 65 72 |er to TB| integer|
|00002d90| 20 69 6e 74 6f 20 65 73 | 3a 64 69 0d 0a 20 20 6d | into es|:di.. m|
|00002da0| 6f 76 04 20 03 64 78 2c | 20 65 73 3a 5b 64 69 5d |ov. .dx,| es:[di]|
|00002db0| 04 20 04 3b 20 6c 6f 61 | 64 20 77 68 69 63 68 20 |. .; loa|d which |
|00002dc0| 64 72 69 76 65 20 74 6f | 20 6c 6f 6f 6b 20 61 74 |drive to| look at|
|00002dd0| 20 69 6e 74 6f 20 64 78 | 0d 0a 0d 0a 20 20 3b 20 | into dx|.... ; |
|00002de0| 6e 6f 77 20 64 73 3a 73 | 69 20 70 6f 69 6e 74 73 |now ds:s|i points|
|00002df0| 20 74 6f 20 74 68 65 20 | 61 70 70 72 6f 70 72 69 | to the |appropri|
|00002e00| 61 74 65 20 6c 6f 63 61 | 74 69 6f 6e 20 66 6f 72 |ate loca|tion for|
|00002e10| 20 74 68 65 20 44 4f 53 | 20 47 65 74 20 44 69 72 | the DOS| Get Dir|
|00002e20| 65 63 74 6f 72 79 0d 0a | 20 20 3b 20 63 61 6c 6c |ectory..| ; call|
|00002e30| 20 61 6e 64 20 64 6c 20 | 63 6f 6e 74 61 69 6e 73 | and dl |contains|
|00002e40| 20 74 68 65 20 64 72 69 | 76 65 20 74 6f 20 6c 6f | the dri|ve to lo|
|00002e50| 6f 6b 20 61 74 0d 0a 20 | 20 6d 6f 76 04 20 03 61 |ok at.. | mov. .a|
|00002e60| 68 2c 20 47 65 74 44 69 | 72 0d 0a 20 20 69 6e 74 |h, GetDi|r.. int|
|00002e70| 04 20 03 44 6f 73 43 61 | 6c 6c 0d 0a 0d 0a 20 20 |. .DosCa|ll.... |
|00002e80| 70 6f 70 04 20 03 64 73 | 0d 0a 20 20 70 6f 70 04 |pop. .ds|.. pop.|
|00002e90| 20 03 65 73 04 20 06 3b | 20 72 65 73 74 6f 72 65 | .es. .;| restore|
|00002ea0| 20 72 65 67 69 73 74 65 | 72 73 0d 0a 20 20 70 6f | registe|rs.. po|
|00002eb0| 70 04 20 03 62 70 0d 0a | 0d 0a 70 72 6f 67 72 61 |p. .bp..|..progra|
|00002ec0| 6d 20 65 6e 64 73 09 3b | 20 65 6e 64 20 70 72 6f |m ends.;| end pro|
|00002ed0| 67 72 61 6d 20 73 65 67 | 6d 65 6e 74 0d 0a 0d 0a |gram seg|ment....|
|00002ee0| 65 6e 64 0d 0a 0d 0a 1a | 04 00 0a 9a 12 29 1b 08 |end.....|.....)..|
|00002ef0| 02 53 04 00 03 4c 48 41 | 04 20 05 45 58 45 20 04 |.S...LHA|. .EXE .|
|00002f00| 00 0a b2 11 f4 16 09 02 | 33 8a 00 00 55 8b ec 06 |........|3...U...|
|00002f10| 1e c4 7e 06 8b 16 00 00 | 52 1f 26 8b 75 02 c4 7e |..~.....|R.&.u..~|
|00002f20| 0a 26 8b 15 b4 47 cd 21 | 1f 07 5d 00 11 00 12 00 |.&...G.!|..].....|
|00002f30| 13 00 14 00 15 00 16 00 | 17 00 18 00 19 00 1a 00 |........|........|
|00002f40| 1b 00 1c 00 ff ff 1e 00 | 1f 00 20 00 21 00 22 00 |........|.. .!.".|
|00002f50| 23 00 24 00 25 00 26 00 | 27 00 28 00 29 00 ff ff |#.$.%.&.|'.(.)...|
|00002f60| 00 00 2c 00 2d 00 2e 00 | 2f 00 30 00 31 00 32 00 |..,.-...|/.0.1.2.|
|00002f70| 33 00 04 ff 04 36 00 37 | 00 38 00 39 00 04 ff 04 |3....6.7|.8.9....|
|00002f80| 3c 00 3d 00 04 ff 04 40 | 00 41 00 42 00 97 10 44 |<.=....@|.A.B...D|
|00002f90| 00 45 00 46 00 47 00 48 | 00 49 00 4a 00 4b 00 4c |.E.F.G.H|.I.J.K.L|
|00002fa0| 00 04 ff 04 4f 00 50 00 | 51 00 52 00 53 00 54 00 |....O.P.|Q.R.S.T.|
|00002fb0| ff ff 56 00 57 00 58 00 | 59 00 5a 00 5b 00 17 01 |..V.W.X.|Y.Z.[...|
|00002fc0| ff ff 5e 00 5f 00 60 00 | 61 00 62 00 63 00 64 00 |..^._.`.|a.b.c.d.|
|00002fd0| 65 00 66 00 67 00 68 00 | 69 00 6a 00 6b 00 6c 00 |e.f.g.h.|i.j.k.l.|
|00002fe0| 6d 00 6e 00 6f 00 70 00 | 71 00 72 00 73 00 74 00 |m.n.o.p.|q.r.s.t.|
|00002ff0| 75 00 76 00 04 ff 08 7b | 00 7c 00 7d 00 7e 00 7f |u.v....{|.|.}.~..|
|00003000| 00 80 00 81 00 82 00 83 | 00 84 00 85 00 86 00 87 |........|........|
|00003010| 00 88 00 89 00 8a 00 8b | 00 8c 00 8d 00 8e 00 8f |........|........|
|00003020| 00 90 00 91 00 92 00 93 | 00 94 00 95 00 96 00 97 |........|........|
|00003030| 00 04 ff 04 9a 00 9b 00 | 9c 00 9d 00 9e 00 9f 00 |........|........|
|00003040| a0 00 a1 00 a2 00 a3 00 | a4 00 a5 00 a6 00 a7 00 |........|........|
|00003050| a8 00 a9 00 aa 00 ab 00 | ac 00 ad 00 ae 00 af 00 |........|........|
|00003060| b0 00 b1 00 b2 00 b3 00 | b4 00 b5 00 b6 00 b7 00 |........|........|
|00003070| b8 00 b9 00 ba 00 bb 00 | bc 00 bd 00 be 00 bf 00 |........|........|
|00003080| c0 00 c1 00 c2 00 c3 00 | c4 00 c5 00 c6 00 c7 00 |........|........|
|00003090| c8 00 c9 00 ca 00 cb 00 | ff ff cd 00 ce 00 cf 00 |........|........|
|000030a0| d0 00 d1 00 d2 00 d3 00 | d4 00 d5 00 d6 00 d7 00 |........|........|
|000030b0| d8 00 d9 00 ff ff db 00 | dc 00 dd 00 de 00 df 00 |........|........|
|000030c0| e0 00 e1 00 e2 00 e3 00 | e4 00 e5 00 e6 00 e7 00 |........|........|
|000030d0| e8 00 e9 00 ea 00 eb 00 | ec 00 ed 00 ee 00 ef 00 |........|........|
|000030e0| f0 00 f1 00 f2 00 f3 00 | f4 00 f5 00 f6 00 f7 00 |........|........|
|000030f0| f8 00 f9 00 fa 00 fb 00 | fc 00 04 ff 05 00 ff ff |........|........|
|00003100| 3b 1a a8 0d 0a 3b 20 54 | 68 69 73 20 72 6f 75 74 |;....; T|his rout|
|00003110| 69 6e 65 20 65 78 70 65 | 63 74 73 20 61 20 70 6f |ine expe|cts a po|
|00003120| 69 6e 74 65 72 20 74 6f | 20 62 65 20 20 70 61 73 |inter to| be pas|
|00003130| 73 65 64 20 6f 6e 20 74 | 68 65 20 73 74 61 63 6b |sed on t|he stack|
|00003140| 20 74 68 61 74 20 70 6f | 69 6e 74 73 20 74 6f 0d | that po|ints to.|
|00003150| 0a 3b 20 61 20 54 75 72 | 62 6f 20 42 61 73 69 63 |.; a Tur|bo Basic|
|00003160| 20 69 6e 74 65 67 65 72 | 2e 20 20 54 68 65 20 69 | integer|. The i|
|00003170| 6e 74 65 67 65 72 20 69 | 73 20 61 73 73 69 67 6e |nteger i|s assign|
|00003180| 65 64 20 74 68 65 20 76 | 61 6c 75 65 20 6f 66 20 |ed the v|alue of |
|00003190| 74 68 65 20 63 75 72 72 | 65 6e 74 0d 0a 3b 20 6c |the curr|ent..; l|
|000031a0| 6f 67 67 65 64 20 64 72 | 69 76 65 2e 0d 0a 3b 0d |ogged dr|ive...;.|
|000031b0| 0a 3b 20 20 53 54 41 43 | 4b 20 61 66 74 65 72 20 |.; STAC|K after |
|000031c0| 73 61 76 69 6e 67 20 42 | 50 0d 0a 3b 0d 0a 3b a8 |saving B|P..;..;.|
|000031d0| 20 03 b3 20 33 32 20 62 | 69 74 28 73 65 67 6d 65 | .. 32 b|it(segme|
|000031e0| 6e 74 20 6f 66 66 73 65 | 74 29 20 b3 0d 0a 3b a8 |nt offse|t) ...;.|
|000031f0| 20 03 b3 20 70 6f 69 6e | 74 65 72 20 74 6f 20 54 | .. poin|ter to T|
|00003200| 42 20 69 6e 74 65 67 65 | 72 20 20 b3 20 3c a8 2d |B intege|r . <.-|
|00003210| 05 20 42 50 20 2b 20 36 | 0d 0a 3b a8 20 03 b3 20 |. BP + 6|..;. .. |
|00003220| 72 65 70 72 65 73 65 6e | 74 69 6e 67 20 64 72 69 |represen|ting dri|
|00003230| 76 65 20 69 64 20 20 b3 | 0d 0a 3b a8 20 03 c3 a8 |ve id .|..;. ...|
|00003240| c4 18 b4 0d 0a 3b a8 20 | 03 b3 20 72 65 74 75 72 |.....;. |.. retur|
|00003250| 6e 20 61 64 64 72 65 73 | 73 20 74 68 61 74 a8 20 |n addres|s that. |
|00003260| 04 b3 0d 0a 3b a8 20 03 | b3 20 54 42 20 77 69 6c |....;. .|. TB wil|
|00003270| 6c 20 67 6f 20 74 6f 20 | 61 66 74 65 72 a8 20 04 |l go to |after. .|
|00003280| b3 20 3c a8 2d 05 20 42 | 50 20 2b 20 32 0d 0a 3b |. <.-. B|P + 2..;|
|00003290| a8 20 03 b3 20 63 6f 6d | 70 6c 65 74 69 6f 6e 20 |. .. com|pletion |
|000032a0| 6f 66 20 72 6f 75 74 69 | 6e 65 20 20 b3 0d 0a 3b |of routi|ne ...;|
|000032b0| a8 20 03 c3 a8 c4 18 b4 | 0d 0a 3b a8 20 03 b3 a8 |. ......|..;. ...|
|000032c0| 20 07 73 61 76 65 64 20 | 42 50 09 a8 20 05 b3 20 | .saved |BP.. .. |
|000032d0| 3c a8 2d 05 20 42 50 0d | 0a 3b a8 20 03 b3 a8 09 |<.-. BP.|.;. ....|
|000032e0| 03 a8 20 05 b3 0d 0a 3b | a8 20 03 c0 a8 c4 18 d9 |.. ....;|. ......|
|000032f0| 0d 0a 0d 0a 0d 0a 0d 0a | 44 6f 73 43 61 6c 6c 20 |........|DosCall |
|00003300| 20 65 71 75 20 20 32 31 | 68 09 3b 20 65 71 75 61 | equ 21|h.; equa|
|00003310| 74 65 73 20 66 6f 72 20 | 6d 6f 64 75 6c 65 0d 0a |tes for |module..|
|00003320| 47 65 74 44 72 69 76 65 | 20 65 71 75 20 20 31 39 |GetDrive| equ 19|
|00003330| 68 0d 0a 0d 0a 0d 0a 70 | 72 6f 67 72 61 6d 20 73 |h......p|rogram s|
|00003340| 65 67 6d 65 6e 74 20 20 | 3b 20 62 65 67 69 6e 20 |egment |; begin |
|00003350| 70 72 6f 67 72 61 6d 20 | 73 65 67 6d 65 6e 74 0d |program |segment.|
|00003360| 0a 20 20 61 73 73 75 6d | 65 20 63 73 3a 70 72 6f |. assum|e cs:pro|
|00003370| 67 72 61 6d 0d 0a 0d 0a | 20 20 70 75 73 68 20 20 |gram....| push |
|00003380| 62 70 09 3b 20 73 61 76 | 65 20 62 70 0d 0a 20 20 |bp.; sav|e bp.. |
|00003390| 6d 6f 76 a8 20 03 62 70 | 2c 20 73 70 0d 0a 20 20 |mov. .bp|, sp.. |
|000033a0| 70 75 73 68 20 20 65 73 | a8 20 06 3b 20 73 61 76 |push es|. .; sav|
|000033b0| 65 20 65 73 20 62 65 63 | 61 75 73 65 20 77 65 27 |e es bec|ause we'|
|000033c0| 6c 6c 20 75 73 65 20 69 | 74 20 66 6f 72 20 70 6f |ll use i|t for po|
|000033d0| 69 6e 74 65 72 20 6d 61 | 6e 69 70 75 6c 61 74 69 |inter ma|nipulati|
|000033e0| 6f 6e 0d 0a 0d 0a 20 20 | 6c 65 73 a8 20 03 64 69 |on.... |les. .di|
|000033f0| 2c 20 5b 62 70 20 2b 20 | 36 68 5d 09 3b 20 6c 6f |, [bp + |6h].; lo|
|00003400| 61 64 20 70 6f 69 6e 74 | 65 72 20 74 6f 20 69 6e |ad point|er to in|
|00003410| 74 65 67 65 72 20 69 6e | 74 6f 20 65 73 3a 64 69 |teger in|to es:di|
|00003420| 0d 0a 0d 0a 20 20 6d 6f | 76 a8 20 03 61 68 2c 20 |.... mo|v. .ah, |
|00003430| 47 65 74 44 72 69 76 65 | 0d 0a 20 20 69 6e 74 a8 |GetDrive|.. int.|
|00003440| 20 03 44 6f 73 43 61 6c | 6c 0d 0a 20 20 63 62 77 | .DosCal|l.. cbw|
|00003450| 0d 0a 20 20 6d 6f 76 a8 | 20 03 65 73 3a 5b 64 69 |.. mov.| .es:[di|
|00003460| 5d 2c 20 61 78 0d 0a 0d | 0a 20 20 70 6f 70 a8 20 |], ax...|. pop. |
|00003470| 03 65 73 09 3b 20 72 65 | 73 74 6f 72 65 20 72 65 |.es.; re|store re|
|00003480| 67 69 73 74 65 72 73 0d | 0a 20 20 70 6f 70 a8 20 |gisters.|. pop. |
|00003490| 03 62 70 0d 0a 0d 0a 70 | 72 6f 67 72 61 6d 20 65 |.bp....p|rogram e|
|000034a0| 6e 64 73 09 3b 20 65 6e | 64 20 70 72 6f 67 72 61 |nds.; en|d progra|
|000034b0| 6d 20 73 65 67 6d 65 6e | 74 0d 0a 0d 0a 65 6e 64 |m segmen|t....end|
|000034c0| 0d 0a 0d 0a 1a 00 00 79 | a3 d8 18 5c a8 00 05 2e |.......y|...\....|
|000034d0| 2e a8 20 09 10 a8 00 0a | 79 a3 d8 18 a8 00 06 31 |.. .....|y......1|
|000034e0| 32 33 56 49 45 57 20 45 | 58 45 20 a8 00 0b 78 57 |23VIEW E|XE ...xW|
|000034f0| 13 5d 00 f0 cc 00 00 43 | 48 4b 4c 49 53 54 20 43 |.].....C|HKLIST C|
|00003500| 50 53 20 a8 00 0a 49 b4 | 79 18 77 00 1b a8 00 03 |PS ...I.|y.w.....|
|00003510| 43 48 4b 4d 41 49 4c 20 | 42 41 54 20 a8 00 0b 78 |CHKMAIL |BAT ...x|
|00003520| 57 13 78 00 56 01 00 00 | 43 4f 4e 46 49 47 20 20 |W.x.V...|CONFIG |
|00003530| 53 59 53 20 a8 00 0a 71 | 3f 73 13 79 00 3a a8 00 |SYS ...q|?s.y.:..|
|00003540| 03 44 42 56 49 45 57 20 | 20 45 58 45 20 a8 00 0b |.DBVIEW | EXE ...|
|00003550| 78 57 13 7a 00 62 ee 00 | 00 49 4e 52 45 41 44 20 |xW.z.b..|.INREAD |
|00003560| 20 4d 45 20 20 a8 00 0b | 78 57 13 98 00 20 05 00 | ME ...|xW... ..|
|00003570| 00 4d 43 49 a8 20 05 45 | 58 45 20 a8 00 0b 78 57 |.MCI. .E|XE ...xW|
|00003580| 13 99 00 e4 93 01 00 4d | 43 49 a8 20 05 48 4c 50 |.......M|CI. .HLP|
|00003590| 20 a8 00 0b 78 57 13 cc | 00 aa 69 00 00 4d 43 49 | ...xW..|..i..MCI|
|000035a0| 44 52 49 56 52 45 58 45 | 20 a8 00 0b 78 57 13 da |DRIVREXE| ...xW..|
|000035b0| 00 68 16 01 00 4d 45 4e | 55 a8 20 04 44 41 54 20 |.h...MEN|U. .DAT |
|000035c0| a8 00 0a 40 86 23 12 fd | 00 52 03 00 00 4e 43 a8 |...@.#..|.R...NC.|
|000035d0| 20 06 45 58 45 20 a8 00 | 0b 78 57 13 fe 00 1c 0c | .EXE ..|.xW.....|
|000035e0| 00 00 4e 43 a8 20 06 48 | 4c 50 20 a8 00 0b 78 57 |..NC. .H|LP ...xW|
|000035f0| 13 00 01 9f b2 00 00 4e | 43 a8 20 06 49 4e 49 20 |.......N|C. .INI |
|00003600| a8 00 0a 69 7b cf 1a d7 | 16 dc 01 00 00 4e 43 a8 |...i{...|.....NC.|
|00003610| 20 06 4d 4e 55 20 a8 00 | 0a c8 88 b1 14 18 01 83 | .MNU ..|........|
|00003620| a8 00 03 55 8b ec 06 c4 | 7e 06 b4 19 cd 21 98 26 |...U....|~....!.&|
|00003630| 89 05 07 5d 13 0a 13 0b | 13 0c 13 0d 13 0e 13 0f |...]....|........|
|00003640| 13 10 13 11 13 12 a8 13 | 03 14 13 15 13 50 14 a8 |........|.....P..|
|00003650| ff 04 19 13 1a 13 1b 13 | 1c 13 1d 13 1e 13 1f 13 |........|........|
|00003660| 20 13 21 13 22 13 23 13 | 24 13 a8 ff 06 28 13 29 | .!.".#.|$....(.)|
|00003670| 13 2a 13 2b 13 a8 ff 04 | 2e 13 2f 13 30 13 31 13 |.*.+....|../.0.1.|
|00003680| 32 13 33 13 34 13 35 13 | 36 13 37 13 38 13 39 13 |2.3.4.5.|6.7.8.9.|
|00003690| 3a 13 3b 13 3c 13 3d 13 | 3e 13 3f 13 40 13 41 13 |:.;.<.=.|>.?.@.A.|
|000036a0| 42 13 43 13 44 13 45 13 | 46 13 47 13 48 13 49 13 |B.C.D.E.|F.G.H.I.|
|000036b0| 4a 13 4b 13 4c 13 4d 13 | 4e 13 4f 13 50 13 51 13 |J.K.L.M.|N.O.P.Q.|
|000036c0| 52 13 53 13 54 13 55 13 | 56 13 57 13 58 13 59 13 |R.S.T.U.|V.W.X.Y.|
|000036d0| 5a 13 5b 13 5c 13 5d 13 | 5e 13 5f 13 60 13 61 13 |Z.[.\.].|^._.`.a.|
|000036e0| 62 13 63 13 64 13 65 13 | 66 13 67 13 68 13 69 13 |b.c.d.e.|f.g.h.i.|
|000036f0| 6a 13 6b 13 6c 13 6d 13 | 6e 13 6f 13 70 13 71 13 |j.k.l.m.|n.o.p.q.|
|00003700| a8 ff 04 74 13 75 13 ff | ff 77 13 78 13 79 13 7a |...t.u..|.w.x.y.z|
|00003710| 13 7b 13 7c 13 7d 13 7e | 13 7f 13 80 13 ff ff 82 |.{.|.}.~|........|
|00003720| 13 83 13 84 13 85 13 86 | 13 87 13 88 13 89 13 8a |........|........|
|00003730| 13 8b 13 8c 13 8d 13 8e | 13 8f 13 90 13 ff ff 92 |........|........|
|00003740| 13 93 13 94 13 95 13 a8 | ff 04 98 13 99 13 9a 13 |........|........|
|00003750| 9b 13 9c 13 9d 13 9e 13 | ff ff a0 13 a1 13 ff ff |........|........|
|00003760| a3 13 a4 13 a5 13 a8 ff | 06 a9 13 aa 13 ab 13 ac |........|........|
|00003770| 13 ad 13 ae 13 af 13 b0 | 13 b1 13 b2 13 b3 13 b4 |........|........|
|00003780| 13 b5 13 b6 13 b7 13 b8 | 13 b9 13 ba 13 bb 13 bc |........|........|
|00003790| 13 bd 13 be 13 bf 13 c0 | 13 c1 13 c2 13 c3 13 c4 |........|........|
|000037a0| 13 c5 13 c6 13 c7 13 c8 | 13 c9 13 ca 13 cb 13 cc |........|........|
|000037b0| 13 cd 13 ce 13 cf 13 d0 | 13 d1 13 d2 13 d3 13 d4 |........|........|
|000037c0| 13 d5 13 d6 13 d7 13 d8 | 13 d9 13 da 13 db 13 dc |........|........|
|000037d0| 13 dd 13 de 13 df 13 e0 | 13 e1 13 e2 13 e3 13 e4 |........|........|
|000037e0| 13 e5 13 e6 13 e7 13 e8 | 13 e9 13 ea 13 eb 13 ec |........|........|
|000037f0| 13 ed 13 ee 13 ef 13 f0 | 13 f1 13 f2 13 f3 13 f4 |........|........|
|00003800| 13 f5 13 f6 13 f7 13 f8 | 13 f9 13 fa 13 fb 13 fc |........|........|
|00003810| 13 fd 13 fe 13 ff 13 00 | 14 0d 0a 3b 20 54 68 69 |........|...; Thi|
|00003820| 73 20 20 72 6f 75 74 69 | 6e 65 20 65 78 70 65 63 |s routi|ne expec|
|00003830| 74 73 20 74 77 6f 20 70 | 6f 69 6e 74 65 72 73 20 |ts two p|ointers |
|00003840| 74 6f 20 62 65 20 70 61 | 73 73 65 64 20 6f 6e 20 |to be pa|ssed on |
|00003850| 20 74 68 65 20 73 74 61 | 63 6b 20 74 68 61 74 20 | the sta|ck that |
|00003860| 70 6f 69 6e 74 0d 0a 3b | 20 74 6f 20 54 75 72 62 |point..;| to Turb|
|00003870| 6f 20 42 61 73 69 63 20 | 69 6e 74 65 67 65 72 73 |o Basic |integers|
|00003880| 2e a8 20 03 54 68 65 20 | 69 6e 74 65 67 65 72 73 |.. .The |integers|
|00003890| 20 77 69 6c 6c 20 62 65 | 20 61 73 73 69 67 6e 65 | will be| assigne|
|000038a0| 64 20 74 68 65 20 73 65 | 67 6d 65 6e 74 20 61 6e |d the se|gment an|
|000038b0| 64 0d 0a 3b 20 6f 66 66 | 73 65 74 20 6f 66 20 74 |d..; off|set of t|
|000038c0| 68 65 20 63 75 72 72 65 | 6e 74 20 44 54 41 2e 0d |he curre|nt DTA..|
|000038d0| 0a 3b 0d 0a 3b 20 20 53 | 54 41 43 4b 20 61 66 74 |.;..; S|TACK aft|
|000038e0| 65 72 20 73 61 76 69 6e | 67 20 42 50 0d 0a 3b 0d |er savin|g BP..;.|
|000038f0| 0a 3b a8 20 03 b3 20 33 | 32 20 62 69 74 28 73 65 |.;. .. 3|2 bit(se|
|00003900| 67 6d 65 6e 74 20 61 6e | 64 20 6f 66 66 73 65 74 |gment an|d offset|
|00003910| 29 20 b3 0d 0a 3b a8 20 | 03 b3 20 70 6f 69 6e 74 |) ...;. |.. point|
|00003920| 65 72 20 74 6f 20 54 42 | 20 69 6e 74 65 67 65 72 |er to TB| integer|
|00003930| 20 72 65 70 2d 20 b3 20 | 3c a8 2d 05 20 42 50 20 | rep- . |<.-. BP |
|00003940| 2b 20 30 41 68 0d 0a 3b | a8 20 03 b3 20 72 65 73 |+ 0Ah..;|. .. res|
|00003950| 65 6e 74 69 6e 67 20 73 | 65 67 6d 65 6e 74 20 6f |enting s|egment o|
|00003960| 66 20 44 54 41 09 20 b3 | 0d 0a 3b a8 20 03 c3 a8 |f DTA. .|..;. ...|
|00003970| c4 1c b4 0d 0a 3b a8 20 | 03 b3 20 33 32 20 62 69 |.....;. |.. 32 bi|
|00003980| 74 28 73 65 67 6d 65 6e | 74 20 61 6e 64 20 6f 66 |t(segmen|t and of|
|00003990| 66 73 65 74 29 20 b3 0d | 0a 3b a8 20 03 b3 20 70 |fset) ..|.;. .. p|
|000039a0| 6f 69 6e 74 65 72 20 74 | 6f 20 54 42 20 69 6e 74 |ointer t|o TB int|
|000039b0| 65 67 65 72 20 72 65 70 | 2d 20 b3 20 3c a8 2d 05 |eger rep|- . <.-.|
|000039c0| 20 42 50 20 2b 20 36 0d | 0a 3b a8 20 03 b3 20 72 | BP + 6.|.;. .. r|
|000039d0| 65 73 65 6e 74 69 6e 67 | 20 6f 66 66 73 65 74 20 |esenting| offset |
|000039e0| 6f 66 20 44 54 41 09 20 | b3 0d 0a 3b a8 20 03 c3 |of DTA. |...;. ..|
|000039f0| a8 c4 1c b4 0d 0a 3b a8 | 20 03 b3 a8 20 03 72 65 |......;.| ... .re|
|00003a00| 74 75 72 6e 20 61 64 64 | 72 65 73 73 20 74 68 61 |turn add|ress tha|
|00003a10| 74 20 54 42 09 20 b3 0d | 0a 3b a8 20 03 b3 a8 20 |t TB. ..|.;. ... |
|00003a20| 03 77 69 6c 6c 20 67 6f | 20 74 6f 20 61 66 74 65 |.will go| to afte|
|00003a30| 72 20 63 6f 6d 70 6c 65 | 2d 20 b3 20 3c a8 2d 05 |r comple|- . <.-.|
|00003a40| 20 42 50 20 2b 20 32 0d | 0a 3b a8 20 03 b3 a8 20 | BP + 2.|.;. ... |
|00003a50| 03 74 69 6f 6e 20 6f 66 | 20 72 6f 75 74 69 6e 65 |.tion of| routine|
|00003a60| 09 09 20 b3 0d 0a 3b a8 | 20 03 c3 a8 c4 1c b4 0d |.. ...;.| .......|
|00003a70| 0a 3b a8 20 03 b3 a8 20 | 09 73 61 76 65 64 20 42 |.;. ... |.saved B|
|00003a80| 50 09 09 20 b3 20 3c a8 | 2d 05 20 42 50 0d 0a 3b |P.. . <.|-. BP..;|
|00003a90| a8 20 03 b3 a8 09 04 20 | b3 0d 0a 3b a8 20 03 c0 |. ..... |...;. ..|
|00003aa0| a8 c4 1c d9 0d 0a 0d 0a | 0d 0a 44 6f 73 43 61 6c |........|..DosCal|
|00003ab0| 6c 20 20 65 71 75 20 20 | 32 31 68 09 3b 20 65 71 |l equ |21h.; eq|
|00003ac0| 75 61 74 65 73 20 66 6f | 72 20 74 68 69 73 20 6d |uates fo|r this m|
|00003ad0| 6f 64 75 6c 65 0d 0a 47 | 65 74 44 54 41 a8 20 03 |odule..G|etDTA. .|
|00003ae0| 65 71 75 20 20 32 46 68 | 0d 0a 0d 0a 70 72 6f 67 |equ 2Fh|....prog|
|00003af0| 72 61 6d 20 73 65 67 6d | 65 6e 74 09 3b 20 62 65 |ram segm|ent.; be|
|00003b00| 67 69 6e 20 70 72 6f 67 | 72 61 6d 20 73 65 67 6d |gin prog|ram segm|
|00003b10| 65 6e 74 0d 0a 20 20 61 | 73 73 75 6d 65 20 63 73 |ent.. a|ssume cs|
|00003b20| 3a 70 72 6f 67 72 61 6d | 0d 0a 0d 0a 20 20 70 75 |:program|.... pu|
|00003b30| 73 68 20 20 62 70 a8 20 | 06 3b 20 73 61 76 65 20 |sh bp. |.; save |
|00003b40| 62 70 0d 0a 20 20 6d 6f | 76 a8 20 03 62 70 2c 20 |bp.. mo|v. .bp, |
|00003b50| 73 70 0d 0a 20 20 70 75 | 73 68 20 20 65 73 a8 20 |sp.. pu|sh es. |
|00003b60| 06 3b 20 73 61 76 65 20 | 65 73 20 62 65 63 61 75 |.; save |es becau|
|00003b70| 73 65 20 77 65 27 6c 6c | 20 75 73 65 20 69 74 20 |se we'll| use it |
|00003b80| 66 6f 72 20 70 6f 69 6e | 74 65 72 20 6d 61 6e 69 |for poin|ter mani|
|00003b90| 70 75 6c 61 74 69 6f 6e | 0d 0a 20 20 70 75 73 68 |pulation|.. push|
|00003ba0| 20 20 64 73 a8 20 06 3b | 20 64 69 74 74 6f 0d 0a | ds. .;| ditto..|
|00003bb0| 0d 0a 20 20 3b 20 63 61 | 6c 6c 20 64 6f 73 20 66 |.. ; ca|ll dos f|
|00003bc0| 75 6e 63 74 69 6f 6e 20 | 74 6f 20 67 65 74 20 63 |unction |to get c|
|00003bd0| 75 72 72 65 6e 74 20 44 | 54 41 27 73 20 6c 6f 63 |urrent D|TA's loc|
|00003be0| 61 74 69 6f 6e 0d 0a 20 | 20 6d 6f 76 a8 20 03 61 |ation.. | mov. .a|
|00003bf0| 68 2c 20 47 65 74 44 54 | 41 0d 0a 20 20 69 6e 74 |h, GetDT|A.. int|
|00003c00| a8 20 03 44 6f 73 43 61 | 6c 6c 0d 0a 0d 0a 20 20 |. .DosCa|ll.... |
|00003c10| 3b 20 6e 6f 77 20 67 65 | 74 20 70 6f 69 6e 74 65 |; now ge|t pointe|
|00003c20| 72 73 20 74 6f 20 54 75 | 72 62 6f 20 42 61 73 69 |rs to Tu|rbo Basi|
|00003c30| 63 20 69 6e 74 65 67 65 | 72 73 20 61 6e 64 20 73 |c intege|rs and s|
|00003c40| 74 6f 72 65 20 73 65 67 | 6d 65 6e 74 20 61 6e 64 |tore seg|ment and|
|00003c50| 0d 0a 20 20 3b 20 6f 66 | 66 73 65 74 20 6f 66 20 |.. ; of|fset of |
|00003c60| 44 54 41 20 69 6e 20 74 | 68 65 6d 0d 0a 0d 0a 20 |DTA in t|hem.... |
|00003c70| 20 6c 64 73 a8 20 03 64 | 69 2c 20 5b 62 70 20 2b | lds. .d|i, [bp +|
|00003c80| 20 36 68 5d 09 3b 20 6c | 6f 61 64 20 70 6f 69 6e | 6h].; l|oad poin|
|00003c90| 74 65 72 20 74 6f 20 6f | 66 66 73 65 74 20 76 61 |ter to o|ffset va|
|00003ca0| 72 69 61 62 6c 65 0d 0a | 20 20 6d 6f 76 a8 20 03 |riable..| mov. .|
|00003cb0| 64 73 3a 5b 64 69 5d 2c | 20 62 78 09 3b 20 6d 6f |ds:[di],| bx.; mo|
|00003cc0| 76 20 6f 66 66 73 65 74 | 20 6f 66 20 44 54 41 20 |v offset| of DTA |
|00003cd0| 69 6e 74 6f 20 54 75 72 | 62 6f 20 42 61 73 69 63 |into Tur|bo Basic|
|00003ce0| 20 69 6e 74 65 67 65 72 | 0d 0a 0d 0a 20 20 6c 64 | integer|.... ld|
|00003cf0| 73 a8 20 03 64 69 2c 20 | 5b 62 70 20 2b 20 30 41 |s. .di, |[bp + 0A|
|00003d00| 68 5d 20 20 3b 20 6c 6f | 61 64 20 70 6f 69 6e 74 |h] ; lo|ad point|
|00003d10| 65 72 20 74 6f 20 73 65 | 67 6d 65 6e 74 20 76 61 |er to se|gment va|
|00003d20| 72 69 61 62 6c 65 0d 0a | 20 20 6d 6f 76 a8 20 03 |riable..| mov. .|
|00003d30| 64 73 3a 5b 64 69 5d 2c | 20 65 73 09 3b 20 6d 6f |ds:[di],| es.; mo|
|00003d40| 76 20 6f 66 66 73 65 74 | 20 6f 66 20 44 54 41 20 |v offset| of DTA |
|00003d50| 69 6e 74 6f 20 54 75 72 | 62 6f 20 42 61 73 69 63 |into Tur|bo Basic|
|00003d60| 20 69 6e 74 65 67 65 72 | 0d 0a 0d 0a 20 20 70 6f | integer|.... po|
|00003d70| 70 a8 20 03 64 73 0d 0a | 20 20 70 6f 70 a8 20 03 |p. .ds..| pop. .|
|00003d80| 65 73 09 3b 20 72 65 73 | 74 6f 72 65 20 72 65 67 |es.; res|tore reg|
|00003d90| 69 73 74 65 72 73 0d 0a | 20 20 70 6f 70 a8 20 03 |isters..| pop. .|
|00003da0| 62 70 0d 0a 0d 0a 70 72 | 6f 67 72 61 6d 20 65 6e |bp....pr|ogram en|
|00003db0| 64 73 09 3b 20 65 6e 64 | 20 70 72 6f 67 72 61 6d |ds.; end| program|
|00003dc0| 20 73 65 67 6d 65 6e 74 | 0d 0a 0d 0a 65 6e 64 0d | segment|....end.|
|00003dd0| 0a 0d 0a 1a 20 27 0d 0a | 20 20 4f 6c 64 50 6f 73 |.... '..| OldPos|
|00003de0| 69 74 69 6f 6e 2e 58 20 | 3d 20 43 75 72 72 65 6e |ition.X |= Curren|
|00003df0| 74 50 6f 73 69 74 69 6f | 6e 2e 58 0d 0a 20 20 4f |tPositio|n.X.. O|
|00003e00| 6c 64 50 6f 73 69 74 69 | 6f 6e 2e 59 20 3d 20 43 |ldPositi|on.Y = C|
|00003e10| 75 72 72 65 6e 74 50 6f | 73 69 74 69 6f 6e 2e 59 |urrentPo|sition.Y|
|00003e20| 0d 0a 20 20 27 0d 0a 20 | 20 27 20 20 6b 65 65 70 |.. '.. | ' keep|
|00003e30| 20 6c 6f 6f 70 69 6e 67 | 20 75 6e 74 69 6c 20 61 | looping| until a|
|00003e40| 6e 79 20 6b 65 79 20 69 | 73 20 68 69 74 0d 0a 20 |ny key i|s hit.. |
|00003e50| 20 27 0d 0a 4c 4f 4f 50 | 20 55 4e 54 49 4c 20 49 | '..LOOP| UNTIL I|
|00003e60| 4e 53 54 41 54 0d 0a 45 | 4e 44 0d 0a 1a a8 00 06 |NSTAT..E|ND......|
|00003e70| 22 bc ce 1a 31 15 a8 00 | 04 45 4d 54 43 4f 50 59 |"...1...|.EMTCOPY|
|00003e80| a8 20 04 10 a8 00 0a 52 | bc ce 1a 6f 15 a8 00 04 |. .....R|...o....|
|00003e90| 41 52 43 a8 20 08 10 a8 | 00 0a 8f bc ce 1a 9f 15 |ARC. ...|........|
|00003ea0| a8 00 04 41 52 43 45 a8 | 20 07 10 a8 00 0a a7 bc |...ARCE.| .......|
|00003eb0| ce 1a c1 15 a8 00 04 49 | 43 45 a8 20 05 31 31 34 |.......I|CE. .114|
|00003ec0| 10 a8 00 0a bb bc ce 1a | c7 15 a8 00 04 50 41 4b |........|.....PAK|
|00003ed0| a8 20 05 32 35 31 10 a8 | 00 0a c3 bc ce 1a d8 15 |. .251..|........|
|00003ee0| a8 00 04 46 44 35 31 53 | 49 43 45 a8 20 03 10 a8 |...FD51S|ICE. ...|
|00003ef0| 00 0a f4 bc ce 1a 0e 16 | a8 00 04 46 44 35 31 44 |........|...FD51D|
|00003f00| 42 a8 20 05 10 a8 00 0a | 14 bd ce 1a 4f 16 a8 00 |B. .....|....O...|
|00003f10| 04 42 49 4e 55 54 49 4c | a8 20 04 10 a8 00 0a 28 |.BINUTIL|. .....(|
|00003f20| bd ce 1a 77 16 a8 00 04 | 54 54 a8 20 09 10 a8 00 |...w....|TT. ....|
|00003f30| 0a 73 bd ce 1a d0 16 a8 | 00 04 55 8b ec 06 1e b4 |.s......|..U.....|
|00003f40| 2f cd 21 c5 7e 06 89 1d | c5 7e 0a 8c 05 1f 07 5d |/.!.~...|.~.....]|
|00003f50| 6e 74 6f 20 73 74 72 69 | 6e 67 20 73 65 67 6d 65 |nto stri|ng segme|
|00003f60| 6e 74 20 66 72 6f 6d 20 | 65 73 3a 5b 64 69 20 2b |nt from |es:[di +|
|00003f70| 20 32 5d 0d 0a 0d 0a 20 | 20 6c 65 73 a8 20 03 64 | 2].... | les. .d|
|00003f80| 69 2c 20 5b 62 70 20 2b | 20 30 41 68 5d 20 3b 20 |i, [bp +| 0Ah] ; |
|00003f90| 6c 6f 61 64 20 70 6f 69 | 6e 74 65 72 20 74 6f 20 |load poi|nter to |
|00003fa0| 54 42 20 69 6e 74 65 67 | 65 72 20 69 6e 74 6f 20 |TB integ|er into |
|00003fb0| 65 73 3a 64 69 0d 0a 20 | 20 6d 6f 76 a8 20 03 64 |es:di.. | mov. .d|
|00003fc0| 78 2c 20 65 73 3a 5b 64 | 69 5d a8 20 04 3b 20 6c |x, es:[d|i]. .; l|
|00003fd0| 6f 61 64 20 77 68 69 63 | 68 20 64 72 69 76 65 20 |oad whic|h drive |
|00003fe0| 74 6f 20 6c 6f 6f 6b 20 | 61 74 20 69 6e 74 6f 20 |to look |at into |
|00003ff0| 64 78 0d 0a 0d 0a 20 20 | 3b 20 6e 6f 77 20 64 73 |dx.... |; now ds|
|00004000| 3a 73 69 20 70 6f 69 6e | 74 73 20 74 6f 20 74 68 |:si poin|ts to th|
|00004010| 65 20 61 70 70 72 6f 70 | 72 69 61 74 65 20 6c 6f |e approp|riate lo|
|00004020| 63 61 74 69 6f 6e 20 66 | 6f 72 20 74 68 65 20 44 |cation f|or the D|
|00004030| 4f 53 20 47 65 74 20 44 | 69 72 65 63 74 6f 72 79 |OS Get D|irectory|
|00004040| 0d 0a 20 20 3b 20 63 61 | 6c 6c 20 61 6e 64 20 64 |.. ; ca|ll and d|
|00004050| 6c 20 63 6f 6e 74 61 69 | 6e 73 20 74 68 65 20 64 |l contai|ns the d|
|00004060| 72 69 76 65 20 74 6f 20 | 6c 6f 6f 6b 20 61 74 0d |rive to |look at.|
|00004070| 0a 20 20 6d 6f 76 a8 20 | 03 61 68 2c 20 47 65 74 |. mov. |.ah, Get|
|00004080| 44 69 72 0d 0a 20 20 69 | 6e 74 a8 20 03 44 6f 73 |Dir.. i|nt. .Dos|
|00004090| 43 61 6c 6c 0d 0a 0d 0a | 20 20 70 6f 70 a8 20 03 |Call....| pop. .|
|000040a0| 64 73 0d 0a 20 20 70 6f | 70 a8 20 03 65 73 a8 20 |ds.. po|p. .es. |
|000040b0| 06 3b 20 72 65 73 74 6f | 72 65 20 72 65 67 69 73 |.; resto|re regis|
|000040c0| 74 65 72 73 0d 0a 20 20 | 70 6f 70 a8 20 03 62 70 |ters.. |pop. .bp|
|000040d0| 0d 0a 0d 0a 70 72 6f 67 | 72 61 6d 20 65 6e 64 73 |....prog|ram ends|
|000040e0| 09 3b 20 65 6e 64 20 70 | 72 6f 67 72 61 6d 20 73 |.; end p|rogram s|
|000040f0| 65 67 6d 65 6e 74 0d 0a | 0d 0a 65 6e 64 0d 0a 0d |egment..|..end...|
|00004100| 0a 1a a8 00 0a 9a 12 29 | 1b 08 02 53 a8 00 03 4c |.......)|...S...L|
|00004110| 48 41 a8 20 05 45 58 45 | 20 a8 00 0a b2 11 f4 16 |HA. .EXE| .......|
|00004120| 09 02 33 8a 00 00 27 da | a8 c4 4b bf 0d 0a 27 b3 |..3...'.|..K...'.|
|00004130| a8 20 03 54 68 69 73 20 | 20 70 72 6f 67 72 61 6d |. .This | program|
|00004140| 20 64 65 6d 6f 73 74 72 | 61 74 65 73 20 61 20 72 | demostr|ates a r|
|00004150| 65 63 75 72 73 69 76 65 | 20 76 65 72 73 69 6f 6e |ecursive| version|
|00004160| 20 6f 66 20 74 68 65 20 | 70 6f 70 75 6c 61 72 20 | of the |popular |
|00004170| 22 54 6f 77 65 72 73 a8 | 20 04 b3 0d 0a 27 b3 20 |"Towers.| ....'. |
|00004180| 6f 66 20 48 61 6e 6f 69 | 22 20 67 61 6d 65 2e a8 |of Hanoi|" game..|
|00004190| 20 3b b3 0d 0a 27 b3 a8 | 09 09 a8 20 05 b3 0d 0a | ;...'..|... ....|
|000041a0| 27 b3 09 49 6e 20 6f 72 | 64 65 72 20 74 6f 20 72 |'..In or|der to r|
|000041b0| 75 6e 20 74 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |un this |program |
|000041c0| 64 6f 20 74 68 65 20 66 | 6f 6c 6c 6f 77 69 6e 67 |do the f|ollowing|
|000041d0| 3a a8 09 03 a8 20 05 b3 | 0d 0a 27 b3 09 20 20 31 |:.... ..|..'.. 1|
|000041e0| 2e 20 4c 6f 61 64 20 54 | 75 72 62 6f 20 42 61 73 |. Load T|urbo Bas|
|000041f0| 69 63 20 62 79 20 74 79 | 70 69 6e 67 20 54 42 20 |ic by ty|ping TB |
|00004200| 61 74 20 74 68 65 20 44 | 4f 53 20 70 72 6f 6d 70 |at the D|OS promp|
|00004210| 74 2e 20 09 09 a8 20 05 | b3 0d 0a 27 b3 09 20 20 |t. ... .|...'.. |
|00004220| 32 2e 20 4c 6f 61 64 20 | 74 68 65 20 66 69 6c 65 |2. Load |the file|
|00004230| 20 48 41 4e 4f 49 2e 42 | 41 53 20 66 72 6f 6d 20 | HANOI.B|AS from |
|00004240| 74 68 65 20 4c 6f 61 64 | 20 6f 70 74 69 6f 6e 20 |the Load| option |
|00004250| 6f 66 20 74 68 65 20 46 | 69 6c 65 09 a8 20 05 b3 |of the F|ile.. ..|
|00004260| 0d 0a 27 b3 09 a8 20 05 | 70 75 6c 6c 64 6f 77 6e |..'... .|pulldown|
|00004270| 20 6d 65 6e 75 2e a8 09 | 06 a8 20 05 b3 0d 0a 27 | menu...|.. ....'|
|00004280| b3 09 20 20 33 2e 20 53 | 65 6c 65 63 74 20 52 75 |.. 3. S|elect Ru|
|00004290| 6e 20 66 72 6f 6d 20 74 | 68 65 20 4d 61 69 6e 20 |n from t|he Main |
|000042a0| 6d 65 6e 75 a8 09 04 a8 | 20 05 b3 0d 0a 27 c0 a8 |menu....| ....'..|
|000042b0| c4 4b d9 0d 0a 0d 0a 24 | 53 54 41 43 4b 20 33 32 |.K.....$|STACK 32|
|000042c0| 37 36 37 20 27 20 61 6c | 6c 6f 63 61 74 65 20 70 |767 ' al|locate p|
|000042d0| 6c 65 6e 74 79 20 6f 66 | 20 73 74 61 63 6b 20 73 |lenty of| stack s|
|000042e0| 70 61 63 65 20 73 69 6e | 63 65 20 69 74 27 73 20 |pace sin|ce it's |
|000042f0| 61 20 72 65 63 75 72 73 | 69 76 65 20 70 72 6f 67 |a recurs|ive prog|
|00004300| 72 61 6d 0d 0a 0d 0a 25 | 58 20 20 3d 20 31 a8 20 |ram....%|X = 1. |
|00004310| 03 27 20 6e 61 6d 65 64 | 20 63 6f 6e 73 74 61 6e |.' named| constan|
|00004320| 74 73 20 75 73 65 64 20 | 66 6f 72 20 69 6e 64 65 |ts used |for inde|
|00004330| 78 69 6e 67 20 61 6e 64 | 20 73 63 72 65 65 6e 20 |xing and| screen |
|00004340| 70 6f 73 69 74 69 6f 6e | 69 6e 67 0d 0a 25 59 20 |position|ing..%Y |
|00004350| 20 3d 20 30 0d 0a 25 50 | 72 6f 6d 70 74 4c 69 6e | = 0..%P|romptLin|
|00004360| 65 20 3d 20 32 34 a8 20 | 03 27 20 6e 61 6d 65 64 |e = 24. |.' named|
|00004370| 20 63 6f 6e 73 74 61 6e | 74 20 69 6e 64 69 63 61 | constan|t indica|
|00004380| 74 69 6e 67 20 6c 69 6e | 65 20 66 6f 72 20 61 6c |ting lin|e for al|
|00004390| 6c 20 75 73 65 72 20 70 | 72 6f 6d 70 74 73 0d 0a |l user p|rompts..|
|000043a0| 25 4d 61 78 44 69 73 6b | 73 a8 20 03 3d 20 31 33 |%MaxDisk|s. .= 13|
|000043b0| a8 20 03 27 20 6e 61 6d | 65 64 20 63 6f 6e 73 74 |. .' nam|ed const|
|000043c0| 61 6e 74 20 69 6e 64 69 | 63 61 74 69 6e 67 20 6d |ant indi|cating m|
|000043d0| 61 78 69 6d 75 6d 20 6e | 75 6d 62 65 72 20 6f 66 |aximum n|umber of|
|000043e0| 20 64 69 73 6b 73 0d 0a | 25 43 75 72 73 6f 72 4f | disks..|%CursorO|
|000043f0| 66 66 20 20 3d 20 30 0d | 0a 0d 0a 27 20 67 6c 6f |ff = 0.|...' glo|
|00004400| 62 61 6c 20 76 61 72 69 | 61 62 6c 65 20 64 65 63 |bal vari|able dec|
|00004410| 6c 61 72 61 74 69 6f 6e | 73 0d 0a 44 49 4d 20 4e |laration|s..DIM N|
|00004420| 75 6d 62 65 72 4f 66 44 | 69 73 6b 73 25 28 31 3a |umberOfD|isks%(1:|
|00004430| 25 4d 61 78 44 69 73 6b | 73 20 2b 20 31 29 2c 20 |%MaxDisk|s + 1), |
|00004440| 53 6f 75 72 63 65 54 6f | 77 65 72 25 28 31 3a 25 |SourceTo|wer%(1:%|
|00004450| 4d 61 78 44 69 73 6b 73 | 20 2b 20 31 29 0d 0a 44 |MaxDisks| + 1)..D|
|00004460| 49 4d 20 54 61 72 67 65 | 74 54 6f 77 65 72 25 28 |IM Targe|tTower%(|
|00004470| 31 3a 25 4d 61 78 44 69 | 73 6b 73 20 2b 20 31 29 |1:%MaxDi|sks + 1)|
|00004480| 2c 20 44 69 73 6b 24 28 | 31 3a 25 4d 61 78 44 69 |, Disk$(|1:%MaxDi|
|00004490| 73 6b 73 20 2b 20 31 29 | 0d 0a 44 49 4d 20 44 69 |sks + 1)|..DIM Di|
|000044a0| 73 6b 73 50 6f 73 69 74 | 69 6f 6e 25 28 25 4d 61 |sksPosit|ion%(%Ma|
|000044b0| 78 44 69 73 6b 73 2c 31 | 29 2c 20 54 6f 77 65 72 |xDisks,1|), Tower|
|000044c0| 48 65 69 67 68 74 25 28 | 31 3a 33 29 0d 0a 0d 0a |Height%(|1:3)....|
|000044d0| 4e 75 6d 62 65 72 4f 66 | 4d 6f 76 65 73 25 20 3d |NumberOf|Moves% =|
|000044e0| 20 30 a8 20 0f 27 20 75 | 73 65 64 20 74 6f 20 6b | 0. .' u|sed to k|
|000044f0| 65 65 70 20 74 72 61 63 | 6b 20 6f 66 20 6e 75 6d |eep trac|k of num|
|00004500| 62 65 72 20 6f 66 20 6d | 6f 76 65 73 20 6d 61 64 |ber of m|oves mad|
|00004510| 65 0d 0a 42 6f 74 74 6f | 6d 4c 69 6e 65 25 a8 20 |e..Botto|mLine%. |
|00004520| 04 3d 20 32 34 a8 20 0e | 27 20 75 73 65 64 20 74 |.= 24. .|' used t|
|00004530| 6f 20 69 6e 64 69 63 61 | 74 65 20 62 6f 74 74 6f |o indica|te botto|
|00004540| 6d 20 6c 69 6e 65 20 6f | 66 20 64 69 73 70 6c 61 |m line o|f displa|
|00004550| 79 0d 0a 54 6f 77 65 72 | 42 61 73 65 25 a8 20 05 |y..Tower|Base%. .|
|00004560| 3d 20 32 0d 0a 0d 0a 53 | 55 42 20 49 6e 69 74 a8 |= 2....S|UB Init.|
|00004570| 20 03 27 20 54 68 69 73 | 20 70 72 6f 63 65 64 75 | .' This| procedu|
|00004580| 72 65 20 69 73 20 75 73 | 65 64 20 74 6f 20 69 6e |re is us|ed to in|
|00004590| 69 74 69 61 6c 69 7a 65 | 20 74 68 65 20 73 63 72 |itialize| the scr|
|000045a0| 65 65 6e 20 61 6e 64 20 | 67 65 74 20 74 68 65 20 |een and |get the |
|000045b0| 6e 75 6d 62 65 72 0d 0a | a8 20 0b 27 20 6f 66 20 |number..|. .' of |
|000045c0| 64 69 73 6b 73 20 74 6f | 20 75 73 65 2e 0d 0a 20 |disks to| use... |
|000045d0| 20 53 48 41 52 45 44 20 | 4e 75 6d 62 65 72 4f 66 | SHARED |NumberOf|
|000045e0| 44 69 73 6b 73 25 28 29 | 2c 20 54 6f 77 65 72 42 |Disks%()|, TowerB|
|000045f0| 61 73 65 25 20 20 27 20 | 69 6e 64 69 63 61 74 65 |ase% ' |indicate|
|00004600| 20 77 68 69 63 68 20 67 | 6c 6f 62 61 6c 20 76 61 | which g|lobal va|
|00004610| 72 73 20 77 65 20 6e 65 | 65 64 0d 0a 20 20 4c 4f |rs we ne|ed.. LO|
|00004620| 43 41 4c 20 43 25 a8 20 | 20 27 20 64 65 63 6c 61 |CAL C%. | ' decla|
|00004630| 72 65 20 61 20 6c 6f 63 | 61 6c 20 76 61 72 69 61 |re a loc|al varia|
|00004640| 62 6c 65 0d 0a 0d 0a 20 | 20 4b 45 59 20 4f 46 46 |ble.... | KEY OFF|
|00004650| a8 20 21 27 20 74 75 72 | 6e 20 6b 65 79 20 64 69 |. !' tur|n key di|
|00004660| 73 70 6c 61 79 20 6f 66 | 66 0d 0a 20 20 43 4f 4c |splay of|f.. COL|
|00004670| 4f 52 20 37 2c 20 30 a8 | 20 1e 27 20 69 6e 69 74 |OR 7, 0.| .' init|
|00004680| 69 61 6c 69 7a 65 20 73 | 63 72 65 65 6e 20 63 6f |ialize s|creen co|
|00004690| 6c 6f 72 0d 0a 20 20 43 | 4c 53 0d 0a 20 20 43 4f |lor.. C|LS.. CO|
|000046a0| 4c 4f 52 20 34 2c 20 30 | 0d 0a 20 20 4c 4f 43 41 |LOR 4, 0|.. LOCA|
|000046b0| 54 45 20 31 2c 20 32 36 | 2c 20 25 43 75 72 73 6f |TE 1, 26|, %Curso|
|000046c0| 72 4f 66 66 0d 0a 20 20 | 50 52 49 4e 54 20 22 54 |rOff.. |PRINT "T|
|000046d0| 4f 57 45 52 53 20 4f 46 | 20 48 41 4e 4f 49 22 a8 |OWERS OF| HANOI".|
|000046e0| 20 11 27 20 64 69 73 70 | 6c 61 79 20 74 68 65 20 | .' disp|lay the |
|000046f0| 70 72 6f 67 72 61 6d 20 | 62 61 6e 6e 65 72 0d 0a |program |banner..|
|00004700| 20 20 43 4f 4c 4f 52 20 | 36 2c 20 30 0d 0a 20 20 | COLOR |6, 0.. |
|00004710| 4c 4f 43 41 54 45 20 25 | 50 72 6f 6d 70 74 4c 69 |LOCATE %|PromptLi|
|00004720| 6e 65 2c 20 25 58 2c 20 | 25 43 75 72 73 6f 72 4f |ne, %X, |%CursorO|
|00004730| 66 66 0d 0a 20 20 50 52 | 49 4e 54 20 22 4e 75 6d |ff.. PR|INT "Num|
|00004740| 62 65 72 20 6f 66 20 44 | 69 73 6b 73 20 28 31 20 |ber of D|isks (1 |
|00004750| 54 4f 20 22 20 2b 20 53 | 54 52 24 28 25 4d 61 78 |TO " + S|TR$(%Max|
|00004760| 44 69 73 6b 73 29 20 2b | 20 20 22 29 20 22 3b 0d |Disks) +| ") ";.|
|00004770| 0a 20 20 44 4f a8 20 03 | 27 20 67 65 74 20 74 68 |. DO. .|' get th|
|00004780| 65 20 6e 75 6d 62 65 72 | 20 6f 66 20 64 69 73 6b |e number| of disk|
|00004790| 73 20 66 72 6f 6d 20 74 | 68 65 20 75 73 65 72 0d |s from t|he user.|
|000047a0| 0a a8 20 04 4c 4f 43 41 | 54 45 20 25 50 72 6f 6d |.. .LOCA|TE %Prom|
|000047b0| 70 74 4c 69 6e 65 2c 20 | 4c 45 4e 28 22 4e 75 6d |ptLine, |LEN("Num|
|000047c0| 62 65 72 20 6f 66 20 44 | 69 73 6b 73 20 28 31 20 |ber of D|isks (1 |
|000047d0| 54 4f 20 22 20 2b 20 53 | 54 52 24 28 25 4d 61 78 |TO " + S|TR$(%Max|
|000047e0| 44 69 73 6b 73 29 20 2b | 20 20 22 29 20 22 29 20 |Disks) +| ") ") |
|000047f0| 2b 20 31 2c 20 25 43 75 | 72 73 6f 72 4f 66 66 0d |+ 1, %Cu|rsorOff.|
|00004800| 0a a8 20 04 49 4e 50 55 | 54 20 4e 75 6d 62 65 72 |.. .INPU|T Number|
|00004810| 4f 66 44 69 73 6b 73 25 | 28 31 29 0d 0a a8 20 04 |OfDisks%|(1)... .|
|00004820| 49 46 20 4e 75 6d 62 65 | 72 4f 66 44 69 73 6b 73 |IF Numbe|rOfDisks|
|00004830| 25 28 31 29 20 3e 20 25 | 4d 61 78 44 69 73 6b 73 |%(1) > %|MaxDisks|
|00004840| 20 54 48 45 4e 20 42 45 | 45 50 0d 0a 20 20 4c 4f | THEN BE|EP.. LO|
|00004850| 4f 50 20 55 4e 54 49 4c | 20 4e 75 6d 62 65 72 4f |OP UNTIL| NumberO|
|00004860| 66 44 69 73 6b 73 25 28 | 31 29 20 3c 3d 20 25 4d |fDisks%(|1) <= %M|
|00004870| 61 78 44 69 73 6b 73 0d | 0a 20 20 54 6f 77 65 72 |axDisks.|. Tower|
|00004880| 42 61 73 65 25 20 3d 20 | 54 6f 77 65 72 42 61 73 |Base% = |TowerBas|
|00004890| 65 25 20 2b 20 4e 75 6d | 62 65 72 4f 66 44 69 73 |e% + Num|berOfDis|
|000048a0| 6b 73 25 28 31 29 0d 0a | 20 20 43 4f 4c 4f 52 20 |ks%(1)..| COLOR |
|000048b0| 37 2c 20 30 0d 0a 20 20 | 4c 4f 43 41 54 45 20 25 |7, 0.. |LOCATE %|
|000048c0| 50 72 6f 6d 70 74 4c 69 | 6e 65 2c 20 25 58 2c 20 |PromptLi|ne, %X, |
|000048d0| 25 43 75 72 73 6f 72 4f | 66 66 0d 0a 20 20 50 52 |%CursorO|ff.. PR|
|000048e0| 49 4e 54 20 53 50 41 43 | 45 24 28 37 39 29 a8 20 |INT SPAC|E$(79). |
|000048f0| 18 27 20 63 6c 65 61 72 | 20 70 72 6f 6d 70 74 20 |.' clear| prompt |
|00004900| 6c 69 6e 65 0d 0a 45 4e | 44 20 53 55 42 20 20 27 |line..EN|D SUB '|
|00004910| 20 65 6e 64 20 70 72 6f | 63 65 64 75 72 65 20 49 | end pro|cedure I|
|00004920| 6e 69 74 0d 0a 0d 0a 0d | 0a 53 55 42 20 44 69 73 |nit.....|.SUB Dis|
|00004930| 70 6c 61 79 47 61 6d 65 | 53 63 72 65 65 6e 20 20 |playGame|Screen |
|00004940| 27 20 54 68 69 73 20 70 | 72 6f 63 65 64 75 72 65 |' This p|rocedure|
|00004950| 20 64 69 73 70 6c 61 79 | 73 20 61 20 6d 65 73 73 | display|s a mess|
|00004960| 61 67 65 20 6f 6e 20 74 | 68 65 20 73 63 72 65 65 |age on t|he scree|
|00004970| 6e 0d 0a 20 20 53 48 41 | 52 45 44 20 4e 75 6d 62 |n.. SHA|RED Numb|
|00004980| 65 72 4f 66 44 69 73 6b | 73 25 28 29 2c 20 54 6f |erOfDisk|s%(), To|
|00004990| 77 65 72 42 61 73 65 25 | a8 20 03 27 20 69 6e 64 |werBase%|. .' ind|
|000049a0| 69 63 61 74 65 20 77 68 | 69 63 68 20 67 6c 6f 62 |icate wh|ich glob|
|000049b0| 61 6c 20 76 61 72 73 20 | 77 65 20 6e 65 65 64 0d |al vars |we need.|
|000049c0| 0a 0d 0a 20 20 4c 4f 43 | 41 54 45 20 31 2c 20 32 |... LOC|ATE 1, 2|
|000049d0| 36 2c 20 25 43 75 72 73 | 6f 72 4f 66 66 a8 20 0e |6, %Curs|orOff. .|
|000049e0| 27 20 70 6f 73 69 74 69 | 6f 6e 20 74 68 65 20 63 |' positi|on the c|
|000049f0| 75 72 73 6f 72 20 61 6e | 64 20 74 75 72 6e 20 69 |ursor an|d turn i|
|00004a00| 74 20 6f 6e 0d 0a 20 20 | 43 4f 4c 4f 52 20 34 2c |t on.. |COLOR 4,|
|00004a10| 20 30 a8 20 1c 27 20 73 | 65 74 20 74 68 65 20 64 | 0. .' s|et the d|
|00004a20| 69 73 70 6c 61 79 20 63 | 6f 6c 6f 72 0d 0a 20 20 |isplay c|olor.. |
|00004a30| 50 52 49 4e 54 20 22 54 | 4f 57 45 52 53 20 4f 46 |PRINT "T|OWERS OF|
|00004a40| 20 48 41 4e 4f 49 20 46 | 4f 52 22 20 4e 75 6d 62 | HANOI F|OR" Numb|
|00004a50| 65 72 4f 66 44 69 73 6b | 73 25 28 31 29 20 22 44 |erOfDisk|s%(1) "D|
|00004a60| 49 53 4b 53 22 0d 0a 20 | 20 4c 4f 43 41 54 45 20 |ISKS".. | LOCATE |
|00004a70| 54 6f 77 65 72 42 61 73 | 65 25 20 2b 20 31 2c 20 |TowerBas|e% + 1, |
|00004a80| 25 58 2c 20 25 43 75 72 | 73 6f 72 4f 66 66 a8 20 |%X, %Cur|sorOff. |
|00004a90| 03 27 20 70 6f 73 69 74 | 69 6f 6e 20 74 68 65 20 |.' posit|ion the |
|00004aa0| 63 75 72 73 6f 72 0d 0a | 20 20 43 4f 4c 4f 52 20 |cursor..| COLOR |
|00004ab0| 31 2c 20 30 a8 20 1e 27 | 20 73 65 74 20 74 68 65 |1, 0. .'| set the|
|00004ac0| 20 64 69 73 70 6c 61 79 | 20 63 6f 6c 6f 72 0d 0a | display| color..|
|00004ad0| 20 20 50 52 49 4e 54 20 | 53 54 52 49 4e 47 24 28 | PRINT |STRING$(|
|00004ae0| 38 30 2c 31 37 36 29 3b | a8 20 12 27 20 64 69 73 |80,176);|. .' dis|
|00004af0| 70 6c 61 79 20 61 20 62 | 61 72 20 6f 6e 20 74 68 |play a b|ar on th|
|00004b00| 65 20 73 63 72 65 65 6e | 0d 0a 20 20 43 4f 4c 4f |e screen|.. COLO|
|00004b10| 52 20 37 2c 30 a8 20 1f | 27 20 73 65 74 20 74 68 |R 7,0. .|' set th|
|00004b20| 65 20 64 69 73 70 6c 61 | 79 20 63 6f 6c 6f 72 0d |e displa|y color.|
|00004b30| 0a 45 4e 44 20 53 55 42 | 20 20 27 20 65 11 1b fe |.END SUB| ' e...|
|00004b40| 6e 64 20 70 72 6f 63 65 | 64 75 72 65 20 44 69 73 |nd proce|dure Dis|
|00004b50| 70 6c 61 79 47 61 6d 65 | 53 63 72 65 65 6e 0d 0a |playGame|Screen..|
|00004b60| 0d 0a 0d 0a 53 75 62 20 | 4d 61 6b 65 4d 6f 76 65 |....Sub |MakeMove|
|00004b70| 73 28 4e 75 6d 4d 6f 76 | 65 73 25 29 0d 0a 20 20 |s(NumMov|es%).. |
|00004b80| 27 20 73 70 65 63 69 66 | 79 20 74 68 65 20 67 6c |' specif|y the gl|
|00004b90| 6f 62 61 6c 20 76 61 72 | 69 61 62 6c 65 73 20 77 |obal var|iables w|
|00004ba0| 65 20 6e 65 65 64 0d 0a | 20 20 53 48 41 52 45 44 |e need..| SHARED|
|00004bb0| 20 52 65 63 75 72 73 69 | 6f 6e 44 65 70 74 68 25 | Recursi|onDepth%|
|00004bc0| 2c 20 4e 75 6d 62 65 72 | 4f 66 44 69 73 6b 73 25 |, Number|OfDisks%|
|00004bd0| 28 29 2c 20 53 6f 75 72 | 63 65 54 6f 77 65 72 25 |(), Sour|ceTower%|
|00004be0| 28 29 0d 0a 20 20 53 48 | 41 52 45 44 20 54 61 72 |().. SH|ARED Tar|
|00004bf0| 67 65 74 54 6f 77 65 72 | 25 28 29 2c 20 54 6f 77 |getTower|%(), Tow|
|00004c00| 65 72 48 65 69 67 68 74 | 25 28 29 0d 0a 20 20 27 |erHeight|%().. '|
|00004c10| 20 69 6e 63 72 65 6d 65 | 6e 74 20 6c 65 76 65 6c | increme|nt level|
|00004c20| 20 6f 66 20 72 65 63 75 | 72 73 69 6f 6e 0d 0a 20 | of recu|rsion.. |
|00004c30| 20 49 4e 43 52 20 52 65 | 63 75 72 73 69 6f 6e 44 | INCR Re|cursionD|
|00004c40| 65 70 74 68 25 0d 0a 0d | 0a 20 20 27 20 63 68 65 |epth%...|. ' che|
|00004c50| 63 6b 20 69 66 20 77 65 | 20 73 68 6f 75 6c 64 20 |ck if we| should |
|00004c60| 65 78 69 74 20 72 6f 75 | 74 69 6e 65 0d 0a 20 20 |exit rou|tine.. |
|00004c70| 49 46 20 4e 75 6d 62 65 | 72 4f 66 44 69 73 6b 73 |IF Numbe|rOfDisks|
|00004c80| 25 28 52 65 63 75 72 73 | 69 6f 6e 44 65 70 74 68 |%(Recurs|ionDepth|
|00004c90| 25 29 20 3d 20 30 20 54 | 48 45 4e 0d 0a fe 20 04 |%) = 0 T|HEN... .|
|00004ca0| 44 45 43 52 20 52 65 63 | 75 72 73 69 6f 6e 44 65 |DECR Rec|ursionDe|
|00004cb0| 70 74 68 25 0d 0a fe 20 | 04 45 58 49 54 20 53 55 |pth%... |.EXIT SU|
|00004cc0| 42 0d 0a 20 20 45 4e 44 | 20 49 46 0d 0a 0d 0a 20 |B.. END| IF.... |
|00004cd0| 20 4e 75 6d 62 65 72 4f | 66 44 69 73 6b 73 25 28 | NumberO|fDisks%(|
|00004ce0| 52 65 63 75 72 73 69 6f | 6e 44 65 70 74 68 25 20 |Recursio|nDepth% |
|00004cf0| 2b 20 31 29 20 3d 20 4e | 75 6d 62 65 72 4f 66 44 |+ 1) = N|umberOfD|
|00004d00| 69 73 6b 73 25 28 52 65 | 63 75 72 73 69 6f 6e 44 |isks%(Re|cursionD|
|00004d10| 65 70 74 68 25 29 20 2d | 20 31 0d 0a 20 20 53 6f |epth%) -| 1.. So|
|00004d20| 75 72 63 65 54 6f 77 65 | 72 25 28 52 65 63 75 72 |urceTowe|r%(Recur|
|00004d30| 73 69 6f 6e 44 65 70 74 | 68 25 20 2b 20 31 29 20 |sionDept|h% + 1) |
|00004d40| 3d 20 53 6f 75 72 63 65 | 54 6f 77 65 72 25 28 52 |= Source|Tower%(R|
|00004d50| 65 63 75 72 73 69 6f 6e | 44 65 70 74 68 25 29 0d |ecursion|Depth%).|
|00004d60| 0a 20 20 54 61 72 67 65 | 74 54 6f 77 65 72 25 28 |. Targe|tTower%(|
|00004d70| 52 65 63 75 72 73 69 6f | 6e 44 65 70 74 68 25 20 |Recursio|nDepth% |
|00004d80| 2b 20 31 29 20 3d 20 36 | 20 2d 20 5f 0d 0a fe 20 |+ 1) = 6| - _... |
|00004d90| 07 53 6f 75 72 63 65 54 | 6f 77 65 72 25 28 52 65 |.SourceT|ower%(Re|
|00004da0| 63 75 72 73 69 6f 6e 44 | 65 70 74 68 25 29 20 2d |cursionD|epth%) -|
|00004db0| 20 54 61 72 67 65 74 54 | 6f 77 65 72 25 28 52 65 | TargetT|ower%(Re|
|00004dc0| 63 75 72 73 69 6f 6e 44 | 65 70 74 68 25 29 0d 0a |cursionD|epth%)..|
|00004dd0| 20 20 43 41 4c 4c 20 4d | 61 6b 65 4d 6f 76 65 73 | CALL M|akeMoves|
|00004de0| 28 4e 75 6d 4d 6f 76 65 | 73 25 29 0d 0a 0d 0a 20 |(NumMove|s%).... |
|00004df0| 20 49 4e 43 52 20 4e 75 | 6d 4d 6f 76 65 73 25 0d | INCR Nu|mMoves%.|
|00004e00| 0a 20 20 43 41 4c 4c 20 | 44 69 73 70 6c 61 79 4d |. CALL |DisplayM|
|00004e10| 6f 76 65 0d 0a 20 20 4e | 75 6d 62 65 72 4f 66 44 |ove.. N|umberOfD|
|00004e20| 69 73 6b 73 25 28 52 65 | 63 75 72 73 69 6f 6e 44 |isks%(Re|cursionD|
|00004e30| 65 70 74 68 25 20 2b 20 | 31 29 20 3d 20 4e 75 6d |epth% + |1) = Num|
|00004e40| 62 65 72 4f 66 44 69 73 | 6b 73 25 28 52 65 63 75 |berOfDis|ks%(Recu|
|00004e50| 72 73 69 6f 6e 44 65 70 | 74 68 25 29 20 2d 20 31 |rsionDep|th%) - 1|
|00004e60| 0d 0a 20 20 53 6f 75 72 | 63 65 54 6f 77 65 72 25 |.. Sour|ceTower%|
|00004e70| 28 52 65 63 75 72 73 69 | 6f 6e 44 65 70 74 68 25 |(Recursi|onDepth%|
|00004e80| 20 2b 20 31 29 20 3d 20 | 36 20 2d 20 5f 0d 0a fe | + 1) = |6 - _...|
|00004e90| 20 08 53 6f 75 72 63 65 | 54 6f 77 65 72 25 28 52 | .Source|Tower%(R|
|00004ea0| 65 63 75 72 73 69 6f 6e | 44 65 70 74 68 25 29 20 |ecursion|Depth%) |
|00004eb0| 2d 20 54 61 72 67 65 74 | 54 6f 77 65 72 25 28 52 |- Target|Tower%(R|
|00004ec0| 65 63 75 72 73 69 6f 6e | 44 65 70 74 68 25 29 0d |ecursion|Depth%).|
|00004ed0| 0a 20 20 54 61 72 67 65 | 74 54 6f 77 65 72 25 28 |. Targe|tTower%(|
|00004ee0| 52 65 63 75 72 73 69 6f | 6e 44 65 70 74 68 25 20 |Recursio|nDepth% |
|00004ef0| 2b 20 31 29 20 3d 20 54 | 61 72 67 65 74 54 6f 77 |+ 1) = T|argetTow|
|00004f00| 65 72 25 28 52 65 63 75 | 72 73 69 6f 6e 44 65 70 |er%(Recu|rsionDep|
|00004f10| 74 68 25 29 0d 0a 20 20 | 43 41 4c 4c 20 4d 61 6b |th%).. |CALL Mak|
|00004f20| 65 4d 6f 76 65 73 28 4e | 75 6d 4d 6f 76 65 73 25 |eMoves(N|umMoves%|
|00004f30| 29 0d 0a 20 20 44 45 43 | 52 20 52 65 63 75 72 73 |).. DEC|R Recurs|
|00004f40| 69 6f 6e 44 65 70 74 68 | 25 0d 0a 45 4e 44 20 53 |ionDepth|%..END S|
|00004f50| 55 42 20 27 20 65 6e 64 | 20 70 72 6f 63 65 64 75 |UB ' end| procedu|
|00004f60| 72 65 20 4d 61 6b 65 4d | 6f 76 65 73 0d 0a 0d 0a |re MakeM|oves....|
|00004f70| 0d 0a 53 55 42 20 44 69 | 73 70 6c 61 79 4d 6f 76 |..SUB Di|splayMov|
|00004f80| 65 0d 0a 20 20 27 20 73 | 70 65 63 69 66 79 20 74 |e.. ' s|pecify t|
|00004f90| 68 65 20 67 6c 6f 62 61 | 6c 20 76 61 72 69 61 62 |he globa|l variab|
|00004fa0| 6c 65 73 20 77 65 20 6e | 65 65 64 0d 0a 20 20 53 |les we n|eed.. S|
|00004fb0| 48 41 52 45 44 20 43 6f | 6c 75 6d 6e 25 2c 20 52 |HARED Co|lumn%, R|
|00004fc0| 65 63 75 72 73 69 6f 6e | 44 65 70 74 68 25 2c 20 |ecursion|Depth%, |
|00004fd0| 4e 75 6d 62 65 72 4f 66 | 44 69 73 6b 73 25 28 29 |NumberOf|Disks%()|
|00004fe0| 2c 20 53 6f 75 72 63 65 | 54 6f 77 65 72 25 28 29 |, Source|Tower%()|
|00004ff0| 0d 0a 20 20 53 48 41 52 | 45 44 20 54 6f 77 65 72 |.. SHAR|ED Tower|
|00005000| 48 65 69 67 68 74 25 28 | 29 2c 20 44 69 73 6b 73 |Height%(|), Disks|
|00005010| 50 6f 73 69 74 69 6f 6e | 25 28 29 0d 0a 20 20 53 |Position|%().. S|
|00005020| 48 41 52 45 44 20 54 61 | 72 67 65 74 54 6f 77 65 |HARED Ta|rgetTowe|
|00005030| 72 25 28 29 2c 20 44 69 | 73 6b 24 28 29 0d 0a 0d |r%(), Di|sk$()...|
|00005040| 0a 20 20 27 20 62 61 73 | 65 64 20 6f 6e 20 63 75 |. ' bas|ed on cu|
|00005050| 72 72 65 6e 74 20 74 6f | 77 65 72 2c 20 73 65 74 |rrent to|wer, set|
|00005060| 20 64 69 73 70 6c 61 79 | 20 63 6f 6c 75 6d 6e 0d | display| column.|
|00005070| 0a 20 20 49 46 20 54 61 | 72 67 65 74 54 6f 77 65 |. IF Ta|rgetTowe|
|00005080| 72 25 28 52 65 63 75 72 | 73 69 6f 6e 44 65 70 74 |r%(Recur|sionDept|
|00005090| 68 25 29 20 3d 20 31 20 | 54 48 45 4e 0d 0a fe 20 |h%) = 1 |THEN... |
|000050a0| 04 43 6f 6c 75 6d 6e 25 | 20 3d 20 31 0d 0a 20 20 |.Column%| = 1.. |
|000050b0| 45 4c 53 45 49 46 20 54 | 61 72 67 65 74 54 6f 77 |ELSEIF T|argetTow|
|000050c0| 65 72 25 28 52 65 63 75 | 72 73 69 6f 6e 44 65 70 |er%(Recu|rsionDep|
|000050d0| 74 68 25 29 20 3d 20 32 | 20 54 48 45 4e 0d 0a fe |th%) = 2| THEN...|
|000050e0| 20 04 43 6f 6c 75 6d 6e | 25 20 3d 20 32 37 0d 0a | .Column|% = 27..|
|000050f0| 20 20 45 4c 53 45 49 46 | 20 54 61 72 67 65 74 54 | ELSEIF| TargetT|
|00005100| 6f 77 65 72 25 28 52 65 | 63 75 72 73 69 6f 6e 44 |ower%(Re|cursionD|
|00005110| 65 70 74 68 25 29 20 3d | 20 33 20 54 48 45 4e 0d |epth%) =| 3 THEN.|
|00005120| 0a fe 20 04 43 6f 6c 75 | 6d 6e 25 20 3d 20 35 34 |.. .Colu|mn% = 54|
|00005130| 0d 0a 20 20 45 4e 44 20 | 49 46 0d 0a 0d 0a 20 20 |.. END |IF.... |
|00005140| 27 20 67 6f 20 74 6f 20 | 74 68 65 20 70 6f 73 69 |' go to |the posi|
|00005150| 74 69 6f 6e 20 6f 66 20 | 74 68 65 20 6e 65 78 74 |tion of |the next|
|00005160| 20 64 69 73 6b 20 74 6f | 20 6d 6f 76 65 0d 0a 20 | disk to| move.. |
|00005170| 20 4c 4f 43 41 54 45 20 | 44 69 73 6b 73 50 6f 73 | LOCATE |DisksPos|
|00005180| 69 74 69 6f 6e 25 28 4e | 75 6d 62 65 72 4f 66 44 |ition%(N|umberOfD|
|00005190| 69 73 6b 73 25 28 52 65 | 63 75 72 73 69 6f 6e 44 |isks%(Re|cursionD|
|000051a0| 65 70 74 68 25 29 2c 25 | 59 29 2c 20 5f 0d 0a fe |epth%),%|Y), _...|
|000051b0| 20 09 44 69 73 6b 73 50 | 6f 73 69 74 69 6f 6e 25 | .DisksP|osition%|
|000051c0| 28 4e 75 6d 62 65 72 4f | 66 44 69 73 6b 73 25 28 |(NumberO|fDisks%(|
|000051d0| 52 65 63 75 72 73 69 6f | 6e 44 65 70 74 68 25 29 |Recursio|nDepth%)|
|000051e0| 2c 25 58 29 2c 20 25 43 | 75 72 73 6f 72 4f 66 66 |,%X), %C|ursorOff|
|000051f0| 0d 0a 20 20 43 4f 4c 4f | 52 20 37 2c 30 0d 0a 20 |.. COLO|R 7,0.. |
|00005200| 20 50 52 49 4e 54 20 53 | 50 41 43 45 24 28 32 36 | PRINT S|PACE$(26|
|00005210| 29 fe 20 06 27 20 65 72 | 61 73 65 20 63 75 72 72 |). .' er|ase curr|
|00005220| 65 6e 74 20 64 69 73 6b | 0d 0a 0d 0a 20 20 27 20 |ent disk|.... ' |
|00005230| 69 6e 63 72 65 6d 65 6e | 74 20 74 68 65 20 68 65 |incremen|t the he|
|00005240| 69 67 68 74 20 6f 66 20 | 74 68 65 20 74 6f 77 65 |ight of |the towe|
|00005250| 72 20 74 68 65 20 64 69 | 73 6b 20 69 73 20 6d 6f |r the di|sk is mo|
|00005260| 76 69 6e 67 20 74 6f 0d | 0a 20 20 49 4e 43 52 20 |ving to.|. INCR |
|00005270| 54 6f 77 65 72 48 65 69 | 67 68 74 25 28 53 6f 75 |TowerHei|ght%(Sou|
|00005280| 72 63 65 54 6f 77 65 72 | 25 28 52 65 63 75 72 73 |rceTower|%(Recurs|
|00005290| 69 6f 6e 44 65 70 74 68 | 25 29 29 0d 0a 0d 0a 20 |ionDepth|%)).... |
|000052a0| 20 27 20 70 6f 73 69 74 | 69 6f 6e 20 63 75 72 73 | ' posit|ion curs|
|000052b0| 6f 72 20 61 74 20 74 6f | 70 20 6f 66 20 64 65 73 |or at to|p of des|
|000052c0| 74 69 6e 61 74 69 6f 6e | 20 74 6f 77 65 72 0d 0a |tination| tower..|
|000052d0| 20 20 4c 4f 43 41 54 45 | 20 54 6f 77 65 72 48 65 | LOCATE| TowerHe|
|000052e0| 69 67 68 74 25 28 54 61 | 72 67 65 74 54 6f 77 65 |ight%(Ta|rgetTowe|
|000052f0| 72 25 28 52 65 63 75 72 | 73 69 6f 6e 44 65 70 74 |r%(Recur|sionDept|
|00005300| 68 25 29 29 2c 20 43 6f | 6c 75 6d 6e 25 2c 20 25 |h%)), Co|lumn%, %|
|00005310| 43 75 72 73 6f 72 4f 66 | 66 0d 0a 0d 0a 20 20 27 |CursorOf|f.... '|
|00005320| 20 67 65 74 20 74 68 65 | 20 63 6f 6c 6f 72 0d 0a | get the| color..|
|00005330| 20 20 43 4f 4c 4f 52 20 | 4e 75 6d 62 65 72 4f 66 | COLOR |NumberOf|
|00005340| 44 69 73 6b 73 25 28 52 | 65 63 75 72 73 69 6f 6e |Disks%(R|ecursion|
|00005350| 44 65 70 74 68 25 29 20 | 4d 4f 44 20 31 34 20 2b |Depth%) |MOD 14 +|
|00005360| 20 31 2c 30 0d 0a 20 20 | 50 52 49 4e 54 20 44 69 | 1,0.. |PRINT Di|
|00005370| 73 6b 24 28 4e 75 6d 62 | 65 72 4f 66 44 69 73 6b |sk$(Numb|erOfDisk|
|00005380| 73 25 28 52 65 63 75 72 | 73 69 6f 6e 44 65 70 74 |s%(Recur|sionDept|
|00005390| 68 25 29 29 3b fe 20 03 | 27 20 64 69 73 70 6c 61 |h%));. .|' displa|
|000053a0| 79 20 74 68 65 20 64 69 | 73 6b 0d 0a 0d 0a 20 20 |y the di|sk.... |
|000053b0| 43 4f 4c 4f 52 20 37 2c | 30 0d 0a 0d 0a 20 20 27 |COLOR 7,|0.... '|
|000053c0| 20 75 70 64 61 74 65 20 | 74 68 65 20 63 75 72 72 | update |the curr|
|000053d0| 65 6e 74 20 70 6f 73 69 | 74 69 6f 6e 20 6f 66 20 |ent posi|tion of |
|000053e0| 74 68 69 73 20 64 69 73 | 6b 0d 0a 20 20 44 69 73 |this dis|k.. Dis|
|000053f0| 6b 73 50 6f 73 69 74 69 | 6f 6e 25 28 4e 75 6d 62 |ksPositi|on%(Numb|
|00005400| 65 72 4f 66 44 69 73 6b | 73 25 28 52 65 63 75 72 |erOfDisk|s%(Recur|
|00005410| 73 69 6f 6e 44 65 70 74 | 68 25 29 2c 25 59 29 20 |sionDept|h%),%Y) |
|00005420| 3d 20 5f 0d 0a fe 20 23 | 54 6f 77 65 72 48 65 69 |= _... #|TowerHei|
|00005430| 67 68 74 25 28 54 61 72 | 67 65 74 54 6f 77 65 72 |ght%(Tar|getTower|
|00005440| 25 28 52 65 63 75 72 73 | 69 6f 6e 44 65 70 74 68 |%(Recurs|ionDepth|
|00005450| 25 29 29 0d 0a 20 20 44 | 69 73 6b 73 50 6f 73 69 |%)).. D|isksPosi|
|00005460| 74 69 6f 6e 25 28 4e 75 | 6d 62 65 72 4f 66 44 69 |tion%(Nu|mberOfDi|
|00005470| 73 6b 73 25 28 52 65 63 | 75 72 73 69 6f 6e 44 65 |sks%(Rec|ursionDe|
|00005480| 70 74 68 25 29 2c 25 58 | 29 20 3d 20 43 6f 6c 75 |pth%),%X|) = Colu|
|00005490| 6d 6e 25 0d 0a 0d 0a 20 | 20 27 20 64 65 63 72 65 |mn%.... | ' decre|
|000054a0| 6d 65 6e 74 20 74 68 65 | 20 68 65 69 67 68 74 20 |ment the| height |
|000054b0| 6f 66 20 74 68 65 20 74 | 6f 77 65 72 20 74 68 65 |of the t|ower the|
|000054c0| 20 64 69 73 6b 20 63 61 | 6d 65 20 66 72 6f 6d 0d | disk ca|me from.|
|000054d0| 0a 20 20 54 6f 77 65 72 | 48 65 69 67 68 74 25 28 |. Tower|Height%(|
|000054e0| 54 61 72 67 65 74 54 6f | 77 65 72 25 28 52 65 63 |TargetTo|wer%(Rec|
|000054f0| 75 72 73 69 6f 6e 44 65 | 70 74 68 25 29 29 20 3d |ursionDe|pth%)) =|
|00005500| 20 5f 0d 0a fe 20 1f 54 | 6f 77 65 72 48 65 69 67 | _... .T|owerHeig|
|00005510| 68 74 25 28 54 61 72 67 | 65 74 54 6f 77 65 72 25 |ht%(Targ|etTower%|
|00005520| 28 52 65 63 75 72 73 69 | 6f 6e 44 65 70 74 68 25 |(Recursi|onDepth%|
|00005530| 29 29 20 2d 20 31 0d 0a | 45 4e 44 20 53 55 42 20 |)) - 1..|END SUB |
|00005540| 27 20 65 6e 64 20 70 72 | 6f 63 65 64 75 72 65 20 |' end pr|ocedure |
|00005550| 44 69 73 70 6c 61 79 4d | 6f 76 65 0d 0a 0d 0a 0d |DisplayM|ove.....|
|00005560| 0a 27 20 73 74 61 72 74 | 20 6f 66 20 6d 61 69 6e |.' start| of main|
|00005570| 20 70 72 6f 67 72 61 6d | 0d 0a 43 41 4c 4c 20 49 | program|..CALL I|
|00005580| 6e 69 74 0d 0a 0d 0a 27 | 20 69 6e 69 74 69 61 6c |nit....'| initial|
|00005590| 69 7a 65 20 74 68 65 20 | 61 72 72 61 79 20 6f 66 |ize the |array of|
|000055a0| 20 64 69 73 6b 73 0d 0a | 46 4f 52 20 58 25 20 3d | disks..|FOR X% =|
|000055b0| 20 31 20 54 4f 20 4e 75 | 6d 62 65 72 4f 66 44 69 | 1 TO Nu|mberOfDi|
|000055c0| 73 6b 73 25 28 31 29 fe | 20 08 27 20 66 6f 72 20 |sks%(1).| .' for |
|000055d0| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 64 69 |the numb|er of di|
|000055e0| 73 6b 73 0d 0a 20 20 44 | 69 73 6b 24 28 58 25 29 |sks.. D|isk$(X%)|
|000055f0| 20 3d 20 53 54 52 49 4e | 47 24 28 32 36 2c 33 32 | = STRIN|G$(26,32|
|00005600| 29 20 20 27 20 66 69 6c | 6c 20 74 68 65 20 61 72 |) ' fil|l the ar|
|00005610| 72 61 79 20 77 69 74 68 | 20 73 70 61 63 65 73 0d |ray with| spaces.|
|00005620| 0a 20 20 27 20 70 75 74 | 20 74 68 65 20 63 6f 72 |. ' put| the cor|
|00005630| 72 65 63 74 20 73 69 7a | 65 20 64 69 73 6b 20 69 |rect siz|e disk i|
|00005640| 6e 20 74 68 65 20 61 72 | 72 61 79 20 65 6c 65 6d |n the ar|ray elem|
|00005650| 65 6e 74 0d 0a 20 20 27 | 20 32 31 39 20 20 28 20 |ent.. '| 219 ( |
|00005660| db 20 29 20 69 73 20 63 | 68 61 72 61 63 74 65 72 |. ) is c|haracter|
|00005670| 20 75 73 65 64 20 74 6f | 20 6d 61 6b 65 20 64 69 | used to| make di|
|00005680| 73 6b 73 0d 0a 20 20 4d | 49 44 24 28 44 69 73 6b |sks.. M|ID$(Disk|
|00005690| 24 28 58 25 29 2c 20 25 | 4d 61 78 44 69 73 6b 73 |$(X%), %|MaxDisks|
|000056a0| 20 2b 20 31 20 2d 20 58 | 25 2c 20 58 25 20 2a 20 | + 1 - X|%, X% * |
|000056b0| 32 20 2d 20 31 29 20 3d | 20 53 54 52 49 4e 47 24 |2 - 1) =| STRING$|
|000056c0| 28 33 30 2c 32 31 39 29 | 0d 0a 4e 45 58 54 20 58 |(30,219)|..NEXT X|
|000056d0| 25 0d 0a 0d 0a 27 20 64 | 69 73 70 6c 61 79 20 74 |%....' d|isplay t|
|000056e0| 68 65 20 69 6e 69 74 69 | 61 6c 20 64 69 73 6b 73 |he initi|al disks|
|000056f0| 0d 0a 54 6f 70 25 20 3d | 20 54 6f 77 65 72 42 61 |..Top% =| TowerBa|
|00005700| 73 65 25 20 2d 20 4e 75 | 6d 62 65 72 4f 66 44 69 |se% - Nu|mberOfDi|
|00005710| 73 6b 73 25 28 31 29 0d | 0a 46 4f 52 20 58 25 20 |sks%(1).|.FOR X% |
|00005720| 3d 20 31 20 54 4f 20 4e | 75 6d 62 65 72 4f 66 44 |= 1 TO N|umberOfD|
|00005730| 69 73 6b 73 25 28 31 29 | 0d 0a 20 20 44 69 73 6b |isks%(1)|.. Disk|
|00005740| 73 50 6f 73 69 74 69 6f | 6e 25 28 58 25 2c 25 59 |sPositio|n%(X%,%Y|
|00005750| 29 20 3d 20 54 6f 70 25 | 20 2b 20 58 25 fe 20 06 |) = Top%| + X%. .|
|00005760| 27 20 61 73 73 69 67 6e | 20 72 6f 77 20 64 69 73 |' assign| row dis|
|00005770| 70 6c 61 79 0d 0a 20 20 | 44 69 73 6b 73 50 6f 73 |play.. |DisksPos|
|00005780| 69 74 69 6f 6e 25 28 58 | 25 2c 25 58 29 20 3d 20 |ition%(X|%,%X) = |
|00005790| 31 fe 20 0e 27 20 61 73 | 73 69 67 6e 20 63 6f 6c |1. .' as|sign col|
|000057a0| 75 6d 6e 20 64 69 73 70 | 6c 61 79 0d 0a 20 20 4c |umn disp|lay.. L|
|000057b0| 4f 43 41 54 45 20 54 6f | 70 25 20 2b 20 58 25 2c |OCATE To|p% + X%,|
|000057c0| 20 31 2c 20 25 43 75 72 | 73 6f 72 4f 66 66 27 20 | 1, %Cur|sorOff' |
|000057d0| 70 6f 73 69 74 69 6f 6e | 20 63 75 72 73 6f 72 0d |position| cursor.|
|000057e0| 0a 20 20 43 4f 4c 4f 52 | 20 58 25 20 4d 4f 44 20 |. COLOR| X% MOD |
|000057f0| 31 34 20 2b 20 31 2c 30 | fe 20 07 27 20 63 68 61 |14 + 1,0|. .' cha|
|00005800| 6e 67 65 20 63 6f 6c 6f | 72 0d 0a 20 20 50 52 49 |nge colo|r.. PRI|
|00005810| 4e 54 20 44 69 73 6b 24 | 28 58 25 29 3b fe 20 0c |NT Disk$|(X%);. .|
|00005820| 27 20 64 69 73 70 6c 61 | 79 20 74 68 65 20 63 75 |' displa|y the cu|
|00005830| 72 72 65 6e 74 20 64 69 | 73 6b 0d 0a 4e 45 58 54 |rrent di|sk..NEXT|
|00005840| 20 58 25 0d 0a 0d 0a 43 | 41 4c 4c 20 44 69 73 70 | X%....C|ALL Disp|
|00005850| 6c 61 79 47 61 6d 65 53 | 63 72 65 65 6e fe 20 09 |layGameS|creen. .|
|00005860| 27 20 64 69 73 70 6c 61 | 79 20 67 61 6d 65 20 73 |' displa|y game s|
|00005870| 63 72 65 65 6e 0d 0a 0d | 0a 54 6f 77 65 72 48 65 |creen...|.TowerHe|
|00005880| 69 67 68 74 25 28 31 29 | 20 3d 20 54 6f 70 25 fe |ight%(1)| = Top%.|
|00005890| 20 0e 27 20 69 6e 69 74 | 69 61 6c 69 7a 65 20 67 | .' init|ialize g|
|000058a0| 6c 6f 62 61 6c 20 76 61 | 72 69 61 62 6c 65 73 0d |lobal va|riables.|
|000058b0| 0a 54 6f 77 65 72 48 65 | 69 67 68 74 25 28 32 29 |.TowerHe|ight%(2)|
|000058c0| 20 3d 20 54 6f 77 65 72 | 42 61 73 65 25 0d 0a 54 | = Tower|Base%..T|
|000058d0| 6f 77 65 72 48 65 69 67 | 68 74 25 28 33 29 20 3d |owerHeig|ht%(3) =|
|000058e0| 20 54 6f 77 65 72 42 61 | 73 65 25 0d 0a 53 6f 75 | TowerBa|se%..Sou|
|000058f0| 72 63 65 54 6f 77 65 72 | 25 28 31 29 20 3d 20 31 |rceTower|%(1) = 1|
|00005900| 0d 0a 54 61 72 67 65 74 | 54 6f 77 65 72 25 28 31 |..Target|Tower%(1|
|00005910| 29 20 3d 20 33 0d 0a 52 | 65 63 75 72 73 69 6f 6e |) = 3..R|ecursion|
|00005920| 44 65 70 74 68 25 20 3d | 20 30 0d 0a 0d 0a 4c 4f |Depth% =| 0....LO|
|00005930| 43 41 54 45 20 31 2c 20 | 31 2c 20 25 43 75 72 73 |CATE 1, |1, %Curs|
|00005940| 6f 72 4f 66 66 20 3a 20 | 50 52 49 4e 54 20 22 53 |orOff : |PRINT "S|
|00005950| 74 61 72 74 20 74 69 6d | 65 3a 20 22 20 54 49 4d |tart tim|e: " TIM|
|00005960| 45 24 0d 0a 0d 0a 43 41 | 4c 4c 20 4d 61 6b 65 4d |E$....CA|LL MakeM|
|00005970| 6f 76 65 73 28 4e 75 6d | 62 65 72 4f 66 4d 6f 76 |oves(Num|berOfMov|
|00005980| 65 73 25 29 20 27 20 73 | 74 61 72 74 20 67 61 6d |es%) ' s|tart gam|
|00005990| 65 0d 0a 0d 0a 4c 4f 43 | 41 54 45 20 32 2c 20 31 |e....LOC|ATE 2, 1|
|000059a0| 2c 20 25 43 75 72 73 6f | 72 4f 66 66 20 3a 20 50 |, %Curso|rOff : P|
|000059b0| 52 49 4e 54 20 22 53 74 | 6f 70 20 74 69 6d 65 20 |RINT "St|op time |
|000059c0| 3a 20 22 20 54 49 4d 45 | 24 0d 0a 0d 0a 4c 4f 43 |: " TIME|$....LOC|
|000059d0| 41 54 45 20 25 50 72 6f | 6d 70 74 4c 69 6e 65 2c |ATE %Pro|mptLine,|
|000059e0| 20 32 36 2c 20 25 43 75 | 72 73 6f 72 4f 66 66 0d | 26, %Cu|rsorOff.|
|000059f0| 0a 50 52 49 4e 54 20 22 | 44 4f 4e 45 20 49 4e 22 |.PRINT "|DONE IN"|
|00005a00| 20 4e 75 6d 62 65 72 4f | 66 4d 6f 76 65 73 25 20 | NumberO|fMoves% |
|00005a10| 22 4d 4f 56 45 53 22 0d | 0a 0d 0a 45 4e 44 20 20 |"MOVES".|...END |
|00005a20| 27 20 65 6e 64 20 6f 66 | 20 70 72 6f 67 72 61 6d |' end of| program|
|00005a30| 0d 0a 0d 0a 1a 00 be 00 | bf 00 c0 00 c1 00 c2 00 |........|........|
|00005a40| c3 00 c4 00 c5 00 c6 00 | c7 00 c8 00 c9 00 ca 00 |........|........|
|00005a50| cb 00 ff ff cd 00 ce 00 | cf 00 d0 00 d1 00 d2 00 |........|........|
|00005a60| d3 00 d4 00 d5 00 d6 00 | d7 00 d8 00 d9 00 ff ff |........|........|
|00005a70| db 00 dc 00 dd 00 de 00 | df 00 e0 00 e1 00 e2 00 |........|........|
|00005a80| e3 00 e4 00 e5 00 e6 00 | e7 00 e8 00 e9 00 ea 00 |........|........|
|00005a90| eb 00 ec 00 ed 00 ee 00 | ef 00 f0 00 f1 00 f2 00 |........|........|
|00005aa0| f3 00 f4 00 f5 00 f6 00 | f7 00 f8 00 f9 00 fa 00 |........|........|
|00005ab0| fb 00 fc 00 fe ff 05 00 | ff ff 27 da fe c4 4b bf |........|..'...K.|
|00005ac0| 0d 0a 27 b3 fe 09 04 48 | 49 4c 42 44 2e 42 41 53 |..'....H|ILBD.BAS|
|00005ad0| fe 09 04 fe 20 05 b3 0d | 0a 27 b3 fe 09 03 fe 20 |.... ...|.'..... |
|00005ae0| 07 56 65 72 73 69 6f 6e | 20 31 2e 30 fe 09 04 fe |.Version| 1.0....|
|00005af0| 20 05 b3 0d 0a 27 b3 fe | 09 09 fe 20 05 b3 0d 0a | ....'..|... ....|
|00005b00| 27 b3 09 54 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |'..This |program |
|00005b10| 64 65 6d 6f 6e 73 74 72 | 61 74 65 73 20 74 68 65 |demonstr|ates the|
|00005b20| 20 69 6e 63 72 65 61 73 | 65 64 20 73 70 65 65 64 | increas|ed speed|
|00005b30| 20 61 6e 64 20 70 72 65 | 63 69 73 69 6f 6e 09 fe | and pre|cision..|
|00005b40| 20 05 b3 0d 0a 27 b3 09 | 6f 66 20 74 68 65 20 54 | ....'..|of the T|
|00005b50| 55 52 42 4f 2d 42 41 53 | 49 43 20 63 6f 6d 70 69 |URBO-BAS|IC compi|
|00005b60| 6c 65 72 3a fe 09 05 fe | 20 05 b3 0d 0a 27 b3 fe |ler:....| ....'..|
|00005b70| 09 09 fe 20 05 b3 0d 0a | 27 b3 fe 20 04 fe 2d 32 |... ....|'.. ..-2|
|00005b80| 09 09 fe 20 05 b3 0d 0a | 27 b3 fe 20 04 46 72 6f |... ....|'.. .Fro|
|00005b90| 6d 3a 20 42 41 53 49 43 | 20 50 72 6f 67 72 61 6d |m: BASIC| Program|
|00005ba0| 73 20 66 6f 72 20 53 63 | 69 65 6e 74 69 73 74 73 |s for Sc|ientists|
|00005bb0| 20 61 6e 64 20 45 6e 67 | 69 6e 65 65 72 73 09 09 | and Eng|ineers..|
|00005bc0| fe 20 05 09 fe 20 05 b3 | 0d 0a 27 b3 fe 09 09 fe |. ... ..|..'.....|
|00005bd0| 20 05 b3 0d 0a 27 b3 fe | 20 04 41 6c 61 6e 20 52 | ....'..| .Alan R|
|00005be0| 2e 20 4d 69 6c 6c 65 72 | 2c 20 53 79 62 65 78 fe |. Miller|, Sybex.|
|00005bf0| 09 06 fe 20 05 b3 0d 0a | 27 b3 fe 20 04 6e 20 78 |... ....|'.. .n x|
|00005c00| 20 6e 20 69 6e 76 65 72 | 73 65 20 68 69 6c 62 65 | n inver|se hilbe|
|00005c10| 72 74 20 6d 61 74 72 69 | 78 fe 09 05 fe 20 05 b3 |rt matri|x.... ..|
|00005c20| 0d 0a 27 b3 fe 20 04 73 | 6f 6c 75 74 69 6f 6e 20 |..'.. .s|olution |
|00005c30| 69 73 20 31 20 31 20 31 | 20 31 20 31 fe 09 06 fe |is 1 1 1| 1 1....|
|00005c40| 20 05 b3 0d 0a 27 b3 fe | 20 04 64 6f 75 62 6c 65 | ....'..| .double|
|00005c50| 2d 70 72 65 63 69 73 69 | 6f 6e 20 76 65 72 73 69 |-precisi|on versi|
|00005c60| 6f 6e fe 09 06 fe 20 05 | b3 0d 0a 27 b3 fe 20 04 |on.... .|...'.. .|
|00005c70| fe 2d 32 fe 20 15 b3 0d | 0a 27 b3 fe 09 09 fe 20 |.-2. ...|.'..... |
|00005c80| 05 b3 0d 0a 27 b3 09 54 | 68 65 20 70 72 6f 67 72 |....'..T|he progr|
|00005c90| 61 6d 20 70 65 72 66 6f | 72 6d 73 20 73 69 6d 75 |am perfo|rms simu|
|00005ca0| 6c 74 61 6e 65 6f 75 73 | 20 73 6f 6c 75 74 69 6f |ltaneous| solutio|
|00005cb0| 6e 20 62 79 20 47 61 75 | 73 73 2d 4a 6f 72 64 61 |n by Gau|ss-Jorda|
|00005cc0| 6e fe 20 0b b3 0d 0a 27 | b3 09 65 6c 69 6d 69 6e |n. ....'|..elimin|
|00005cd0| 61 74 69 6f 6e 2e fe 09 | 07 fe 20 05 b3 0d 0a 27 |ation...|.. ....'|
|00005ce0| b3 fe 09 09 fe 20 05 b3 | 0d 0a 27 b3 09 49 6e 20 |..... ..|..'..In |
|00005cf0| 6f 72 64 65 72 20 74 6f | 20 72 75 6e 20 74 68 69 |order to| run thi|
|00005d00| 73 20 70 72 6f 67 72 61 | 6d 20 64 6f 20 74 68 65 |s progra|m do the|
|00005d10| 20 66 6f 6c 6c 6f 77 69 | 6e 67 3a fe 09 03 fe 20 | followi|ng:.... |
|00005d20| 05 b3 0d 0a 27 b3 09 20 | 20 31 2e 20 4c 6f 61 64 |....'.. | 1. Load|
|00005d30| 20 54 75 72 62 6f 20 42 | 61 73 69 63 20 62 79 20 | Turbo B|asic by |
|00005d40| 74 79 70 69 6e 67 20 54 | 42 20 61 74 20 74 68 65 |typing T|B at the|
|00005d50| 20 44 4f 53 20 70 72 6f | 6d 70 74 2e 20 09 09 fe | DOS pro|mpt. ...|
|00005d60| 20 05 b3 0d 0a 27 b3 09 | 20 20 32 2e 20 4c 6f 61 | ....'..| 2. Loa|
|00005d70| 64 20 74 68 65 20 66 69 | 6c 65 20 48 49 4c 42 44 |d the fi|le HILBD|
|00005d80| 2e 42 41 53 20 66 72 6f | 6d 20 74 68 65 20 4c 6f |.BAS fro|m the Lo|
|00005d90| 61 64 20 6f 70 74 69 6f | 6e 20 6f 66 20 74 68 65 |ad optio|n of the|
|00005da0| 20 46 69 6c 65 09 fe 20 | 05 b3 0d 0a 27 b3 09 fe | File.. |....'...|
|00005db0| 20 05 70 75 6c 6c 64 6f | 77 6e 20 6d 65 6e 75 2e | .pulldo|wn menu.|
|00005dc0| fe 09 06 fe 20 05 b3 0d | 0a 27 b3 09 20 20 33 2e |.... ...|.'.. 3.|
|00005dd0| 20 53 65 6c 65 63 74 20 | 52 75 6e 20 66 72 6f 6d | Select |Run from|
|00005de0| 20 74 68 65 20 4d 61 69 | 6e 20 6d 65 6e 75 fe 09 | the Mai|n menu..|
|00005df0| 04 fe 20 05 b3 0d 0a 27 | c0 fe c4 4b d9 0d 0a 0d |.. ....'|...K....|
|00005e00| 0a 0d 0a 44 45 46 49 4e | 54 20 49 2d 4e 3a 20 44 |...DEFIN|T I-N: D|
|00005e10| 45 46 44 42 4c 20 41 2d | 48 3a 20 44 45 46 44 42 |EFDBL A-|H: DEFDB|
|00005e20| 4c 20 4f 2d 5a 0d 0a 44 | 49 4d 20 5a 28 31 32 29 |L O-Z..D|IM Z(12)|
|00005e30| 2c 20 41 28 31 32 2c 31 | 32 29 2c 20 43 4f 45 46 |, A(12,1|2), COEF|
|00005e40| 28 31 32 29 2c 20 42 28 | 31 32 2c 31 32 29 0d 0a |(12), B(|12,12)..|
|00005e50| 0d 0a 43 4c 53 0d 0a 4d | 61 78 20 3d 20 31 32 0d |..CLS..M|ax = 12.|
|00005e60| 0a 4e 72 6f 77 20 3d 20 | 32 0d 0a 41 28 31 2c 31 |.Nrow = |2..A(1,1|
|00005e70| 29 20 3d 20 31 2e 30 44 | 30 0d 0a 50 52 49 4e 54 |) = 1.0D|0..PRINT|
|00005e80| 20 22 49 6e 76 65 72 73 | 69 6f 6e 20 6f 66 20 48 | "Invers|ion of H|
|00005e90| 69 6c 62 65 72 74 20 4d | 61 74 72 69 63 65 73 22 |ilbert M|atrices"|
|00005ea0| 0d 0a 44 4f 0d 0a 20 20 | 43 41 4c 4c 20 47 65 74 |..DO.. |CALL Get|
|00005eb0| 44 61 74 61 28 41 28 29 | 2c 20 5a 28 29 2c 20 4e |Data(A()|, Z(), N|
|00005ec0| 72 6f 77 29 0d 0a 20 20 | 46 4f 52 20 49 20 3d 20 |row).. |FOR I = |
|00005ed0| 31 20 54 4f 20 4e 72 6f | 77 0d 0a fe 20 04 46 4f |1 TO Nro|w... .FO|
|00005ee0| 52 20 4a 20 3d 20 31 20 | 54 4f 20 4e 72 6f 77 0d |R J = 1 |TO Nrow.|
|00005ef0| 0a fe 20 06 42 28 49 2c | 4a 29 20 3d 20 41 28 49 |.. .B(I,|J) = A(I|
|00005f00| 2c 4a 29 0d 0a fe 20 04 | 4e 45 58 54 20 4a 0d 0a |,J)... .|NEXT J..|
|00005f10| 20 20 4e 45 58 54 20 49 | 0d 0a 20 20 43 41 4c 4c | NEXT I|.. CALL|
|00005f20| 20 47 61 75 73 73 6a 28 | 42 28 29 2c 20 5a 28 29 | Gaussj(|B(), Z()|
|00005f30| 2c 20 43 6f 65 66 28 29 | 2c 20 4e 72 6f 77 2c 20 |, Coef()|, Nrow, |
|00005f40| 49 65 72 72 29 0d 0a 20 | 20 49 46 20 49 65 72 72 |Ierr).. | IF Ierr|
|00005f50| 20 54 48 45 4e 20 45 4e | 44 fe 20 14 27 20 53 69 | THEN EN|D. .' Si|
|00005f60| 6e 67 75 6c 61 72 20 6d | 61 74 72 69 78 0d 0a 20 |ngular m|atrix.. |
|00005f70| 20 43 41 4c 4c 20 57 72 | 69 74 65 44 61 74 61 28 | CALL Wr|iteData(|
|00005f80| 41 28 29 2c 20 5a 28 29 | 2c 20 43 6f 65 66 28 29 |A(), Z()|, Coef()|
|00005f90| 2c 20 4e 72 6f 77 29 0d | 0a 20 20 4e 72 6f 77 20 |, Nrow).|. Nrow |
|00005fa0| 3d 20 4e 72 6f 77 2b 31 | 0d 0a 4c 4f 4f 50 20 55 |= Nrow+1|..LOOP U|
|00005fb0| 4e 54 49 4c 20 4e 72 6f | 77 20 3d 20 4d 61 78 0d |NTIL Nro|w = Max.|
|00005fc0| 0a 45 4e 44 20 27 20 64 | 6f 6e 65 0d 0a 0d 0a 53 |.END ' d|one....S|
|00005fd0| 55 42 20 47 65 74 44 61 | 74 61 28 41 28 32 29 2c |UB GetDa|ta(A(2),|
|00005fe0| 20 5a 28 31 29 2c 20 4e | 72 6f 77 29 0d 0a 20 20 | Z(1), N|row).. |
|00005ff0| 46 4f 52 20 49 20 3d 20 | 31 20 54 4f 20 4e 72 6f |FOR I = |1 TO Nro|
|00006000| 77 2d 31 0d 0a fe 20 04 | 41 28 4e 72 6f 77 2c 49 |w-1... .|A(Nrow,I|
|00006010| 29 20 3d 20 31 2e 30 44 | 30 20 2f 20 28 4e 72 6f |) = 1.0D|0 / (Nro|
|00006020| 77 2b 49 2d 31 29 0d 0a | fe 20 04 41 28 49 2c 4e |w+I-1)..|. .A(I,N|
|00006030| 72 6f 77 29 20 3d 20 41 | 28 4e 72 6f 77 2c 49 29 |row) = A|(Nrow,I)|
|00006040| 0d 0a 20 20 4e 45 58 54 | 20 49 0d 0a 20 20 41 28 |.. NEXT| I.. A(|
|00006050| 4e 72 6f 77 2c 4e 72 6f | 77 29 20 3d 20 31 2e 30 |Nrow,Nro|w) = 1.0|
|00006060| 44 30 20 2f 20 28 32 2a | 4e 72 6f 77 20 2d 31 29 |D0 / (2*|Nrow -1)|
|00006070| 0d 0a 20 20 46 4f 52 20 | 49 20 3d 20 31 20 54 4f |.. FOR |I = 1 TO|
|00006080| 20 4e 72 6f 77 0d 0a fe | 20 04 5a 28 49 29 20 3d | Nrow...| .Z(I) =|
|00006090| 20 30 0d 0a fe 20 04 46 | 4f 52 20 4a 20 3d 20 31 | 0... .F|OR J = 1|
|000060a0| 20 54 4f 20 4e 72 6f 77 | 0d 0a fe 20 06 5a 28 49 | TO Nrow|... .Z(I|
|000060b0| 29 20 3d 20 5a 28 49 29 | 20 2b 20 41 28 49 2c 4a |) = Z(I)| + A(I,J|
|000060c0| 29 0d 0a fe 20 04 4e 45 | 58 54 20 4a 0d 0a 20 20 |)... .NE|XT J.. |
|000060d0| 4e 45 58 54 20 49 0d 0a | 45 4e 44 20 53 55 42 fe |NEXT I..|END SUB.|
|000060e0| 20 1f 27 20 47 65 74 44 | 61 74 61 70 75 74 0d 0a | .' GetD|ataput..|
|000060f0| 0d 0a 53 55 42 20 57 72 | 69 74 65 44 61 74 61 28 |..SUB Wr|iteData(|
|00006100| 41 28 32 29 2c 20 5a 28 | 31 29 2c 20 43 6f 65 66 |A(2), Z(|1), Coef|
|00006110| 28 31 29 2c 20 4e 29 0d | 0a 20 20 53 48 41 52 45 |(1), N).|. SHARE|
|00006120| 44 20 44 65 74 65 72 6d | 0d 0a 20 20 49 46 20 4e |D Determ|.. IF N|
|00006130| 20 3c 20 36 20 54 48 45 | 4e 20 27 73 68 6f 77 20 | < 6 THE|N 'show |
|00006140| 6f 6e 6c 79 20 73 6d 61 | 6c 6c 65 72 20 73 65 74 |only sma|ller set|
|00006150| 73 0d 0a fe 20 04 50 52 | 49 4e 54 0d 0a fe 20 04 |s... .PR|INT... .|
|00006160| 50 52 49 4e 54 20 22 fe | 20 09 4d 61 74 72 69 78 |PRINT ".| .Matrix|
|00006170| fe 20 03 43 6f 6e 73 74 | 61 6e 74 73 22 0d 0a fe |. .Const|ants"...|
|00006180| 20 04 46 4f 52 20 49 20 | 3d 20 31 20 54 4f 20 4e | .FOR I |= 1 TO N|
|00006190| 0d 0a fe 20 06 46 4f 52 | 20 4a 20 3d 20 31 20 54 |... .FOR| J = 1 T|
|000061a0| 4f 20 4e 0d 0a fe 20 07 | 50 52 49 4e 54 20 55 53 |O N... .|PRINT US|
|000061b0| 49 4e 47 20 22 20 23 2e | fe 23 04 fe 5e 05 20 22 |ING " #.|.#..^. "|
|000061c0| 3b 20 41 28 49 2c 4a 29 | 3b 0d 0a fe 20 06 4e 45 |; A(I,J)|;... .NE|
|000061d0| 58 54 20 4a 0d 0a fe 20 | 06 50 52 49 4e 54 20 55 |XT J... |.PRINT U|
|000061e0| 53 49 4e 47 20 22 20 3d | 20 23 2e fe 23 04 fe 5e |SING " =| #..#..^|
|000061f0| 05 22 3b 20 5a 28 49 29 | 0d 0a fe 20 04 4e 45 58 |."; Z(I)|... .NEX|
|00006200| 54 20 49 0d 0a 20 20 45 | 4e 44 20 49 46 0d 0a 20 |T I.. E|ND IF.. |
|00006210| 20 50 52 49 4e 54 0d 0a | 20 20 50 52 49 4e 54 20 | PRINT..| PRINT |
|00006220| 22 fe 20 04 53 6f 6c 75 | 74 69 6f 6e 20 66 6f 72 |". .Solu|tion for|
|00006230| 20 22 3b 20 4e 3b 20 22 | 20 65 71 75 61 74 69 6f | "; N; "| equatio|
|00006240| 6e 73 2c 22 3b 0d 0a 20 | 20 50 52 49 4e 54 20 22 |ns,";.. | PRINT "|
|00006250| 20 44 65 74 65 72 6d 69 | 6e 61 6e 74 20 3d 22 3b | Determi|nant =";|
|00006260| 0d 0a 20 20 50 52 49 4e | 54 20 55 53 49 4e 47 20 |.. PRIN|T USING |
|00006270| 22 20 23 2e fe 23 05 fe | 5e 05 22 3b 20 44 65 74 |" #..#..|^."; Det|
|00006280| 65 72 6d 0d 0a 20 20 46 | 4f 52 20 49 20 3d 20 31 |erm.. F|OR I = 1|
|00006290| 20 54 4f 20 4e 0d 0a fe | 20 04 50 52 49 4e 54 20 | TO N...| .PRINT |
|000062a0| 55 53 49 4e 47 20 22 20 | 23 2e fe 23 06 22 3b 20 |USING " |#..#."; |
|000062b0| 43 6f 65 66 28 49 29 3b | 0d 0a 20 20 4e 45 58 54 |Coef(I);|.. NEXT|
|000062c0| 20 49 0d 0a 20 20 50 52 | 49 4e 54 0d 0a 45 4e 44 | I.. PR|INT..END|
|000062d0| 20 53 55 42 20 27 20 57 | 72 69 74 65 44 61 74 61 | SUB ' W|riteData|
|000062e0| 0d 0a 0d 0a 27 0d 0a 27 | 47 61 75 73 73 2d 4a 6f |....'..'|Gauss-Jo|
|000062f0| 72 64 61 6e 20 6d 61 74 | 72 69 78 20 69 6e 76 65 |rdan mat|rix inve|
|00006300| 72 73 69 6f 6e 20 61 6e | 64 20 73 6f 6c 75 74 69 |rsion an|d soluti|
|00006310| 6f 6e 0d 0a 27 0d 0a 27 | 20 20 42 28 4e 2c 4e 29 |on..'..'| B(N,N)|
|00006320| 20 69 73 20 63 6f 65 66 | 66 20 6d 61 74 72 69 78 | is coef|f matrix|
|00006330| 2c 20 62 65 63 6f 6d 65 | 73 20 69 6e 76 65 72 73 |, become|s invers|
|00006340| 65 0d 0a 27 20 20 59 28 | 4e 29 20 69 73 20 6f 72 |e..' Y(|N) is or|
|00006350| 69 67 69 6e 61 6c 20 63 | 6f 6e 73 74 61 6e 74 20 |iginal c|onstant |
|00006360| 76 65 63 74 6f 72 0d 0a | 27 20 20 57 28 4e 2c 4e |vector..|' W(N,N|
|00006370| 76 65 63 29 20 68 61 73 | 20 63 6f 6e 73 74 61 6e |vec) has| constan|
|00006380| 74 20 76 65 63 74 6f 72 | 73 2c 20 62 65 63 6f 6d |t vector|s, becom|
|00006390| 65 73 20 73 6f 6c 75 74 | 69 6f 6e 0d 0a 27 20 20 |es solut|ion..' |
|000063a0| 44 65 74 65 72 6d 20 69 | 73 20 64 65 74 65 72 6d |Determ i|s determ|
|000063b0| 69 6e 61 6e 74 0d 0a 27 | 0d 0a 53 55 42 20 47 61 |inant..'|..SUB Ga|
|000063c0| 75 73 73 6a 28 42 28 32 | 29 2c 20 59 28 31 29 2c |ussj(B(2|), Y(1),|
|000063d0| 20 43 6f 65 66 28 31 29 | 2c 20 4e 2c 20 49 65 72 | Coef(1)|, N, Ier|
|000063e0| 72 29 0d 0a 20 20 53 48 | 41 52 45 44 20 44 65 74 |r).. SH|ARED Det|
|000063f0| 65 72 6d fe 20 17 27 20 | 44 65 74 65 72 6d 69 6e |erm. .' |Determin|
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
