OS/2 Professional

home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / patches / fortran / knf.a < prev next >
Unknown | 1993-08-27 | 2.5 KB
open in:
MacOS 8.1 |
Win98 |
DOS
view JSON data |
view as text

This file was not able to be converted.
This format is not currently supported by dexvert.
Confidence	Program	Detection	Match Type	Support
`1%`	dexvert	System V 64-bit library `(executable/systemV64BitLibrary)`	ext	Unsupported
`1%`	dexvert	COFF Library `(other/coffLibrary)`	ext	Unsupported
`100%`	file	data	default
`100%`	gt2	Kopftext: 'WATCOM binary patch file format'	default (weak)
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 57 41 54 43 4f 4d 20 62 | 69 6e 61 72 79 20 70 61 |WATCOM b|inary pa|
|00000010| 74 63 68 20 66 69 6c 65 | 20 66 6f 72 6d 61 74 0d |tch file| format.|
|00000020| 0a 0d 0a 1a 6b 6e 69 67 | 68 74 2e 66 6f 72 00 d6 |....knig|ht.for..|
|00000030| 11 00 00 55 0f 00 00 2a | 76 04 00 01 00 00 00 00 |...U...*|v.......|
|00000040| 00 00 00 00 00 00 00 00 | 01 8d 00 00 00 8d 00 00 |........|........|
|00000050| 00 0a 06 00 00 01 1b 09 | 00 00 ad 0c 00 00 78 00 |........|......x.|
|00000060| 00 00 01 e4 0a 00 00 d9 | 0d 00 00 06 00 00 00 01 |........|........|
|00000070| 13 0f 00 00 94 11 00 00 | 42 00 00 00 01 56 0f 00 |........|B....V..|
|00000080| 00 d7 11 00 00 00 00 00 | 00 00 53 09 00 00 3e 00 |........|..S...>.|
|00000090| 00 00 4a 20 2e 47 54 2e | 20 38 20 29 20 47 4f 20 |..J .GT.| 8 ) GO |
|000000a0| 54 4f 20 39 39 0d 0a 2a | 2d 2d 3d 3d 20 46 69 6e |TO 99..*|--== Fin|
|000000b0| 64 20 61 20 73 6f 6c 75 | 74 69 6f 6e 20 3d 3d 2d |d a solu|tion ==-|
|000000c0| 2d 0d 0a 09 20 20 49 20 | 3d 20 49 2b 31 0d 0a 09 |-...  I |= I+1...|
|000000d0| 00 1c 09 00 00 35 00 00 | 00 52 45 50 4c 59 2c 20 |.....5..|.REPLY, |
|000000e0| 2a 2c 20 45 4e 44 3d 39 | 39 2c 20 45 52 52 3d 39 |*, END=9|9, ERR=9|
|000000f0| 39 20 29 20 49 2c 20 4a | 0d 0a 09 20 20 49 46 28 |9 ) I, J|...  IF(|
|00000100| 20 49 20 2e 47 54 2e 20 | 38 20 2e 4f 52 2e 00 8e | I .GT. |8 .OR...|
|00000110| 06 00 00 08 00 00 00 70 | 72 6f 76 65 20 61 62 00 |.......p|rove ab.|
|00000120| 00 00 00 00 8d 00 00 00 | 2a 20 20 20 20 20 20 54 |........|*      T|
|00000130| 68 65 20 4b 6e 69 67 68 | 74 27 73 20 54 6f 75 72 |he Knigh|t's Tour|
|00000140| 0d 0a 2a 09 20 62 79 20 | 4a 61 63 6b 20 53 63 68 |..*. by |Jack Sch|
|00000150| 75 65 6c 65 72 0d 0a 2a | 09 20 20 20 20 57 41 54 |ueler..*|.    WAT|
|00000160| 43 4f 4d 20 49 6e 74 65 | 72 6e 61 74 69 6f 6e 61 |COM Inte|rnationa|
|00000170| 6c 20 43 6f 72 70 2e 0d | 0a 2a 09 20 20 20 20 57 |l Corp..|.*.    W|
|00000180| 61 74 65 72 6c 6f 6f 2c | 20 4f 6e 74 61 72 69 6f |aterloo,| Ontario|
|00000190| 2c 20 43 61 6e 61 64 61 | 0d 0a 0d 0a 2a 24 6e 6f |, Canada|....*$no|
|000001a0| 65 78 74 65 6e 73 69 6f | 6e 73 0d 0a 2a 24 6e 6f |extensio|ns..*$no|
|000001b0| 63 68 65 63 6b 00 97 06 | 00 00 84 02 00 00 75 74 |check...|......ut|
|000001c0| 20 74 68 65 20 6b 6e 69 | 67 68 74 27 73 20 74 6f | the kni|ght's to|
|000001d0| 75 72 3f 20 3d 3d 2d 2d | 0d 0a 0d 0a 20 20 20 20 |ur? ==--|....    |
|000001e0| 20 20 4c 4f 4f 50 0d 0a | 2a 2d 2d 3d 3d 20 49 6e |  LOOP..|*--== In|
|000001f0| 69 74 69 61 6c 69 7a 65 | 20 65 64 67 65 20 70 6f |itialize| edge po|
|00000200| 73 69 74 69 6f 6e 73 20 | 74 6f 20 22 69 6e 76 61 |sitions |to "inva|
|00000210| 6c 69 64 22 20 3d 3d 2d | 2d 0d 0a 09 20 20 44 4f |lid" ==-|-...  DO|
|00000220| 20 49 20 3d 20 30 2c 20 | 31 31 0d 0a 09 20 20 20 | I = 0, |11...   |
|00000230| 20 20 20 44 4f 20 4a 20 | 3d 20 30 2c 20 31 31 0d |   DO J |= 0, 11.|
|00000240| 0a 09 09 20 20 42 4f 41 | 52 44 28 20 49 2c 20 4a |...  BOA|RD( I, J|
|00000250| 20 29 20 3d 20 2d 31 0d | 0a 09 20 20 20 20 20 20 | ) = -1.|..      |
|00000260| 45 4e 44 20 44 4f 0d 0a | 09 20 20 45 4e 44 20 44 |END DO..|.  END D|
|00000270| 4f 0d 0a 2a 2d 2d 3d 3d | 20 49 6e 69 74 69 61 6c |O..*--==| Initial|
|00000280| 69 7a 65 20 62 6f 61 72 | 64 20 70 6f 73 69 74 69 |ize boar|d positi|
|00000290| 6f 6e 73 20 74 6f 20 22 | 6e 6f 74 20 74 61 6b 65 |ons to "|not take|
|000002a0| 6e 22 20 3d 3d 2d 2d 0d | 0a 09 20 20 44 4f 20 49 |n" ==--.|..  DO I|
|000002b0| 20 3d 20 32 2c 20 39 0d | 0a 09 20 20 20 20 20 20 | = 2, 9.|..      |
|000002c0| 44 4f 20 4a 20 3d 20 32 | 2c 20 39 0d 0a 09 09 20 |DO J = 2|, 9.... |
|000002d0| 20 42 4f 41 52 44 28 20 | 49 2c 20 4a 20 29 20 3d | BOARD( |I, J ) =|
|000002e0| 20 30 0d 0a 09 20 20 20 | 20 20 20 45 4e 44 20 44 | 0...   |   END D|
|000002f0| 4f 0d 0a 09 20 20 45 4e | 44 20 44 4f 0d 0a 2a 2d |O...  EN|D DO..*-|
|00000300| 2d 3d 3d 20 47 65 74 20 | 73 74 61 72 74 69 6e 67 |-== Get |starting|
|00000310| 20 70 6f 73 69 74 69 6f | 6e 20 3d 3d 2d 2d 0d 0a | positio|n ==--..|
|00000320| 09 20 20 50 52 49 4e 54 | 20 2a 2c 27 20 27 0d 0a |.  PRINT| *,' '..|
|00000330| 09 20 20 50 52 49 4e 54 | 20 2a 2c 27 45 6e 74 65 |.  PRINT| *,'Ente|
|00000340| 72 20 74 68 65 20 73 74 | 61 72 74 69 6e 67 20 72 |r the st|arting r|
|00000350| 6f 77 2c 63 6f 6c 75 6d | 6e 20 66 6f 72 20 74 68 |ow,colum|n for th|
|00000360| 65 20 74 6f 75 72 20 74 | 6f 20 62 65 67 69 6e 2e |e tour t|o begin.|
|00000370| 27 0d 0a 09 20 20 50 52 | 49 4e 54 20 2a 2c 27 28 |'...  PR|INT *,'(|
|00000380| 31 2c 31 29 20 69 73 20 | 74 68 65 20 74 6f 70 20 |1,1) is |the top |
|00000390| 6c 65 66 74 20 63 6f 72 | 6e 65 72 2e 20 20 45 6e |left cor|ner.  En|
|000003a0| 74 65 72 20 74 77 6f 20 | 69 6e 74 65 67 65 72 73 |ter two |integers|
|000003b0| 27 0d 0a 09 20 20 50 52 | 49 4e 54 20 2a 2c 27 73 |'...  PR|INT *,'s|
|000003c0| 65 70 61 72 61 74 65 64 | 20 62 79 20 61 20 63 6f |eparated| by a co|
|000003d0| 6d 6d 61 20 6f 72 20 74 | 79 70 65 20 27 27 51 55 |mma or t|ype ''QU|
|000003e0| 49 54 27 27 2e 27 0d 0a | 09 20 20 57 52 49 54 45 |IT''.'..|.  WRITE|
|000003f0| 28 20 2a 2c 20 27 28 41 | 2c 24 29 27 20 29 20 27 |( *, '(A|,$)' ) '|
|00000400| 52 6f 77 2c 43 6f 6c 75 | 6d 6e 3a 20 27 0d 0a 09 |Row,Colu|mn: '...|
|00000410| 20 20 52 45 41 44 28 20 | 2a 2c 20 27 28 41 29 27 |  READ( |*, '(A)'|
|00000420| 2c 20 45 4e 44 3d 39 39 | 2c 20 45 52 52 3d 39 39 |, END=99|, ERR=99|
|00000430| 20 29 20 52 45 50 4c 59 | 0d 0a 09 20 20 52 45 41 | ) REPLY|...  REA|
|00000440| 44 28 00 93 09 00 00 51 | 01 00 00 4a 20 3d 20 4a |D(.....Q|...J = J|
|00000450| 2b 31 0d 0a 09 20 20 44 | 20 3d 20 2d 31 0d 0a 09 |+1...  D| = -1...|
|00000460| 20 20 53 50 20 3d 20 31 | 0d 0a 09 20 20 4c 4f 4f |  SP = 1|...  LOO|
|00000470| 50 20 3a 4c 31 0d 0a 09 | 20 20 20 20 20 20 49 46 |P :L1...|      IF|
|00000480| 20 28 49 20 2e 4c 45 2e | 20 4a 29 20 54 48 45 4e | (I .LE.| J) THEN|
|00000490| 0d 0a 09 09 20 20 4f 46 | 46 53 45 54 20 3d 20 34 |....  OF|FSET = 4|
|000004a0| 0d 0a 09 09 45 4c 53 45 | 0d 0a 09 09 20 20 4f 46 |....ELSE|....  OF|
|000004b0| 46 53 45 54 20 3d 20 30 | 0d 0a 09 20 20 20 20 20 |FSET = 0|...     |
|000004c0| 20 45 4e 44 20 49 46 0d | 0a 09 20 20 20 20 20 20 | END IF.|..      |
|000004d0| 47 55 45 53 53 20 3a 47 | 31 0d 0a 09 09 20 20 4c |GUESS :G|1....  L|
|000004e0| 4f 4f 50 20 3a 4c 32 0d | 0a 09 09 20 20 20 20 20 |OOP :L2.|...     |
|000004f0| 20 44 20 3d 20 44 20 2b | 20 31 0d 0a 09 09 20 20 | D = D +| 1....  |
|00000500| 20 20 20 20 49 46 28 20 | 44 20 2e 45 51 2e 20 38 |    IF( |D .EQ. 8|
|00000510| 20 29 20 51 55 49 54 20 | 3a 47 31 0d 0a 09 09 20 | ) QUIT |:G1.... |
|00000520| 20 20 20 20 20 54 49 20 | 3d 20 49 20 2b 20 44 49 |     TI |= I + DI|
|00000530| 28 20 44 20 2b 20 4f 46 | 46 53 45 54 20 29 0d 0a |( D + OF|FSET )..|
|00000540| 09 09 20 20 20 20 20 20 | 54 4a 20 3d 20 4a 20 2b |..      |TJ = J +|
|00000550| 20 44 4a 28 20 44 20 2b | 20 4f 46 46 53 45 54 20 | DJ( D +| OFFSET |
|00000560| 29 0d 0a 09 09 20 20 55 | 4e 54 49 4c 28 20 42 4f |)....  U|NTIL( BO|
|00000570| 41 52 44 28 20 54 49 2c | 20 54 4a 20 29 20 2e 45 |ARD( TI,| TJ ) .E|
|00000580| 51 2e 20 30 20 29 0d 0a | 09 09 20 20 49 53 54 41 |Q. 0 )..|..  ISTA|
|00000590| 43 4b 28 20 53 50 20 29 | 20 3d 20 49 00 ea 0a 00 |CK( SP )| = I....|
|000005a0| 00 29 04 00 00 4a 53 54 | 41 43 4b 28 20 53 50 20 |.)...JST|ACK( SP |
|000005b0| 29 20 3d 20 4a 0d 0a 09 | 09 20 20 44 53 54 41 43 |) = J...|.  DSTAC|
|000005c0| 4b 28 20 53 50 20 29 20 | 3d 20 44 0d 0a 09 09 20 |K( SP ) |= D.... |
|000005d0| 20 42 4f 41 52 44 28 20 | 49 2c 20 4a 20 29 20 3d | BOARD( |I, J ) =|
|000005e0| 20 53 50 0d 0a 09 09 20 | 20 49 20 3d 20 54 49 0d | SP.... | I = TI.|
|000005f0| 0a 09 09 20 20 4a 20 3d | 20 54 4a 0d 0a 09 09 20 |...  J =| TJ.... |
|00000600| 20 53 50 20 3d 20 53 50 | 20 2b 20 31 0d 0a 09 09 | SP = SP| + 1....|
|00000610| 20 20 44 20 3d 20 2d 31 | 0d 0a 09 20 20 20 20 20 |  D = -1|...     |
|00000620| 20 41 44 4d 49 54 0d 0a | 09 09 20 20 53 50 20 3d | ADMIT..|..  SP =|
|00000630| 20 53 50 20 2d 20 31 0d | 0a 09 09 20 20 42 4f 41 | SP - 1.|...  BOA|
|00000640| 52 44 28 20 49 2c 20 4a | 20 29 20 3d 20 30 0d 0a |RD( I, J| ) = 0..|
|00000650| 09 09 20 20 49 20 3d 20 | 49 53 54 41 43 4b 28 20 |..  I = |ISTACK( |
|00000660| 53 50 20 29 0d 0a 09 09 | 20 20 4a 20 3d 20 4a 53 |SP )....|  J = JS|
|00000670| 54 41 43 4b 28 20 53 50 | 20 29 0d 0a 09 09 20 20 |TACK( SP| )....  |
|00000680| 44 20 3d 20 44 53 54 41 | 43 4b 28 20 53 50 20 29 |D = DSTA|CK( SP )|
|00000690| 0d 0a 09 20 20 20 20 20 | 20 45 4e 44 20 47 55 45 |...     | END GUE|
|000006a0| 53 53 0d 0a 09 20 20 55 | 4e 54 49 4c 28 20 53 50 |SS...  U|NTIL( SP|
|000006b0| 20 2e 45 51 2e 20 36 34 | 20 29 0d 0a 09 20 20 42 | .EQ. 64| )...  B|
|000006c0| 4f 41 52 44 28 20 49 2c | 20 4a 20 29 20 3d 20 36 |OARD( I,| J ) = 6|
|000006d0| 34 0d 0a 09 20 20 4a 20 | 3d 20 4a 20 2d 20 31 0d |4...  J |= J - 1.|
|000006e0| 0a 2a 2d 2d 3d 3d 20 50 | 72 69 6e 74 20 66 69 6e |.*--== P|rint fin|
|000006f0| 61 6c 20 62 6f 61 72 64 | 20 3d 3d 2d 2d 0d 0a 09 |al board| ==--...|
|00000700| 20 20 50 52 49 4e 54 20 | 2a 2c 27 20 27 0d 0a 09 |  PRINT |*,' '...|
|00000710| 20 20 50 52 49 4e 54 20 | 2a 2c 27 53 6f 6c 75 74 |  PRINT |*,'Solut|
|00000720| 69 6f 6e 20 6f 66 20 4b | 6e 69 67 68 74 27 27 73 |ion of K|night''s|
|00000730| 20 54 6f 75 72 20 62 79 | 20 57 41 54 46 4f 52 2d | Tour by| WATFOR-|
|00000740| 37 37 27 0d 0a 09 20 20 | 50 52 49 4e 54 20 2a 2c |77'...  |PRINT *,|
|00000750| 27 20 20 20 20 20 20 20 | 20 20 20 31 3d 53 74 61 |'       |   1=Sta|
|00000760| 72 74 20 20 20 20 28 15 | 29 3d 46 69 6e 69 73 68 |rt    (.|)=Finish|
|00000770| 27 0d 0a 09 20 20 50 52 | 49 4e 54 20 2a 2c 27 da |'...  PR|INT *,'.|
|00000780| c4 c4 c4 c4 c2 c4 c4 c4 | c4 c2 c4 c4 c4 c4 c2 c4 |........|........|
|00000790| c4 c4 c4 c2 c4 c4 c4 c4 | c2 c4 c4 c4 c4 c2 c4 c4 |........|........|
|000007a0| c4 c4 c2 c4 c4 c4 c4 bf | 27 0d 0a 09 20 20 44 4f |........|'...  DO|
|000007b0| 20 4b 20 3d 20 32 2c 20 | 38 0d 0a 09 20 20 20 20 | K = 2, |8...    |
|000007c0| 20 20 57 52 49 54 45 28 | 4c 49 4e 45 2c 20 31 30 |  WRITE(|LINE, 10|
|000007d0| 31 29 20 28 42 4f 41 52 | 44 28 20 4b 2c 20 4c 20 |1) (BOAR|D( K, L |
|000007e0| 29 2c 4c 3d 32 2c 39 29 | 0d 0a 09 20 20 20 20 20 |),L=2,9)|...     |
|000007f0| 20 49 46 28 20 49 20 2e | 45 51 2e 20 4b 20 29 4c | IF( I .|EQ. K )L|
|00000800| 49 4e 45 28 31 29 28 4a | 2a 35 2d 32 3a 4a 2a 35 |INE(1)(J|*5-2:J*5|
|00000810| 29 3d 27 28 15 29 27 0d | 0a 09 20 20 20 20 20 20 |)='(.)'.|..      |
|00000820| 57 52 49 54 45 28 2a 2c | 20 27 28 41 34 31 29 27 |WRITE(*,| '(A41)'|
|00000830| 29 20 4c 49 4e 45 0d 0a | 09 20 20 45 4e 44 44 4f |) LINE..|.  ENDDO|
|00000840| 0d 0a 09 20 20 57 52 49 | 54 45 28 4c 49 4e 45 2c |...  WRI|TE(LINE,|
|00000850| 20 31 30 32 29 28 42 4f | 41 52 44 28 20 39 2c 20 | 102)(BO|ARD( 9, |
|00000860| 4c 20 29 2c 4c 3d 32 2c | 39 29 0d 0a 09 20 20 49 |L ),L=2,|9)...  I|
|00000870| 46 28 20 49 20 2e 45 51 | 2e 20 39 20 29 4c 49 4e |F( I .EQ|. 9 )LIN|
|00000880| 45 28 31 29 28 4a 2a 35 | 2d 32 3a 4a 2a 35 29 3d |E(1)(J*5|-2:J*5)=|
|00000890| 27 28 15 29 27 0d 0a 09 | 20 20 57 52 49 54 45 28 |'(.)'...|  WRITE(|
|000008a0| 2a 2c 20 27 28 41 34 31 | 29 27 29 20 4c 49 4e 45 |*, '(A41|)') LINE|
|000008b0| 0d 0a 20 20 20 20 20 20 | 45 4e 44 4c 4f 4f 50 0d |..      |ENDLOOP.|
|000008c0| 0a 31 30 31 09 20 20 46 | 4f 52 4d 41 54 28 20 20 |.101.  F|ORMAT(  |
|000008d0| 20 27 b3 20 27 2c 49 32 | 2c 27 20 b3 20 27 2c 49 | '. ',I2|,' . ',I|
|000008e0| 32 2c 27 20 b3 20 27 2c | 49 32 2c 27 20 b3 20 27 |2,' . ',|I2,' . '|
|000008f0| 2c 49 32 2c 0d 0a 20 20 | 20 20 20 31 09 20 20 27 |,I2,..  |   1.  '|
|00000900| 20 b3 20 27 2c 49 32 2c | 27 20 b3 20 27 2c 49 32 | . ',I2,|' . ',I2|
|00000910| 2c 27 20 b3 20 27 2c 49 | 32 2c 27 20 b3 20 27 2c |,' . ',I|2,' . ',|
|00000920| 49 32 2c 27 20 b3 27 2c | 2f 2c 0d 0a 20 20 20 20 |I2,' .',|/,..    |
|00000930| 20 32 09 20 20 27 c3 c4 | c4 c4 c4 c5 c4 c4 c4 c4 | 2.  '..|........|
|00000940| c5 c4 c4 c4 c4 c5 c4 c4 | c4 c4 c5 c4 c4 c4 c4 c5 |........|........|
|00000950| c4 c4 c4 c4 c5 c4 c4 c4 | c4 c5 c4 c4 c4 c4 b4 27 |........|.......'|
|00000960| 29 0d 0a 31 30 32 09 20 | 20 46 4f 52 4d 41 54 28 |)..102. | FORMAT(|
|00000970| 20 20 20 27 b3 20 27 2c | 49 32 2c 27 20 b3 20 27 |   '. ',|I2,' . '|
|00000980| 2c 49 32 2c 27 20 b3 20 | 27 2c 49 32 2c 27 20 b3 |,I2,' . |',I2,' .|
|00000990| 20 27 2c 49 32 2c 0d 0a | 20 20 20 20 20 31 09 20 | ',I2,..|     1. |
|000009a0| 20 27 20 b3 20 27 2c 49 | 32 2c 27 20 b3 20 27 2c | ' . ',I|2,' . ',|
|000009b0| 49 32 2c 27 20 b3 20 27 | 2c 49 32 2c 27 20 b3 20 |I2,' . '|,I2,' . |
|000009c0| 27 2c 49 32 2c 27 20 b3 | 27 2c 2f 2c 0d 0a 03 e4 |',I2,' .|',/,....|
|000009d0| 0a 00 00 e4 fc fe e8 00 | 03 87 06 00 00 00 00 00 |........|........|
|000009e0| e9 00 03 16 0f 00 00 00 | ee 11 e9 00 02          |........|.....   |
+--------+-------------------------+-------------------------+--------+--------+