home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Professional / OS2PRO194.ISO / os2 / patches / watcom / fortr16 / calf.b < prev    next >
Unknown  |  1992-07-30  |  3.2 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.

ConfidenceProgramDetectionMatch TypeSupport
1% dexvert Grand Theft Auto save game (other/grandTheftAutoSaveGame) 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 63 61 6c 65 | 6e 64 61 72 2e 66 6f 72 |....cale|ndar.for|
|00000030| 00 52 12 00 00 25 15 00 | 00 b3 94 05 00 01 00 00 |.R...%..|........|
|00000040| 00 00 00 00 00 00 00 00 | 00 00 01 2b 00 00 00 00 |........|...+....|
|00000050| 00 00 00 71 00 00 00 01 | c8 01 00 00 05 01 00 00 |...q....|........|
|00000060| 11 01 00 00 01 d9 02 00 | 00 24 02 00 00 dc 00 00 |........|.$......|
|00000070| 00 01 c0 03 00 00 19 03 | 00 00 c6 01 00 00 01 9a |........|........|
|00000080| 06 00 00 62 05 00 00 bb | 00 00 00 01 55 07 00 00 |...b....|....U...|
|00000090| 1e 06 00 00 ca 00 00 00 | 01 1f 08 00 00 e9 06 00 |........|........|
|000000a0| 00 48 01 00 00 01 4f 0d | 00 00 64 0b 00 00 53 00 |.H....O.|..d...S.|
|000000b0| 00 00 01 34 0e 00 00 f4 | 0b 00 00 eb 00 00 00 01 |...4....|........|
|000000c0| 1f 0f 00 00 e6 0c 00 00 | 19 01 00 00 01 cf 10 00 |........|........|
|000000d0| 00 ff 0d 00 00 d9 00 00 | 00 01 4d 13 00 00 3a 10 |........|..M...:.|
|000000e0| 00 00 a8 00 00 00 01 13 | 15 00 00 40 12 00 00 12 |........|...@....|
|000000f0| 00 00 00 01 26 15 00 00 | 53 12 00 00 00 00 00 00 |....&...|S.......|
|00000100| 00 1f 0f 00 00 1d 00 00 | 00 65 66 74 0d 0a 20 20 |........|.eft.. |
|00000110| 20 20 20 20 64 6f 20 69 | 20 3d 20 31 2c 20 77 69 | do i| = 1, wi|
|00000120| 64 74 68 0d 0a 09 00 34 | 0e 00 00 08 00 00 00 0a |dth....4|........|
|00000130| 2a 24 65 6e 64 69 66 00 | 89 0d 00 00 0e 00 00 00 |*$endif.|........|
|00000140| 2c 20 27 c3 27 2c 20 27 | c4 27 2c 20 27 b4 00 59 |, '.', '|.', '..Y|
|00000150| 0d 00 00 0c 00 00 00 27 | 20 27 2c 20 27 b3 27 20 |.......'| ', '.' |
|00000160| 29 0d 0a 00 4f 0d 00 00 | 08 00 00 00 64 74 68 2c |)...O...|....dth,|
|00000170| 20 27 b3 27 00 5e 09 00 | 00 08 00 00 00 09 20 20 | '.'.^..|...... |
|00000180| 73 74 61 72 74 00 ac 03 | 00 00 08 00 00 00 09 20 |start...|....... |
|00000190| 20 6d 6f 6e 74 68 00 d9 | 02 00 00 18 00 00 00 20 | month..|....... |
|000001a0| 29 74 68 65 6e 0d 0a 09 | 20 20 6d 6f 6e 74 68 20 |)then...| month |
|000001b0| 3d 20 31 32 0d 0a 09 00 | 8c 00 00 00 0c 00 00 00 |= 12....|........|
|000001c0| 49 44 45 09 3d 20 34 29 | 0d 0a 20 20 00 00 00 00 |IDE.= 4)|.. ....|
|000001d0| 00 2b 00 00 00 2a 24 75 | 6e 64 65 66 69 6e 65 20 |.+...*$u|ndefine |
|000001e0| 41 4e 53 49 5f 56 45 52 | 0d 0a 2a 24 75 6e 64 65 |ANSI_VER|..*$unde|
|000001f0| 66 69 6e 65 20 4a 41 50 | 41 4e 5f 56 45 52 0d 0a |fine JAP|AN_VER..|
|00000200| 00 9c 00 00 00 2c 01 00 | 00 69 6e 74 65 67 65 72 |.....,..|.integer|
|00000210| 2a 32 20 79 65 61 72 2c | 20 6d 6f 6e 74 68 2c 20 |*2 year,| month, |
|00000220| 64 61 79 0d 0a 2a 24 69 | 66 64 65 66 20 4a 41 50 |day..*$i|fdef JAP|
|00000230| 41 4e 5f 56 45 52 0d 0a | 20 20 20 20 20 20 63 68 |AN_VER..| ch|
|00000240| 61 72 61 63 74 65 72 20 | 57 69 64 65 54 69 74 6c |aracter |WideTitl|
|00000250| 65 2a 32 37 20 2f 27 20 | 93 fa 20 20 8c 8e 20 20 |e*27 /' |.. .. |
|00000260| 89 ce 20 20 90 85 20 20 | 96 d8 20 20 8b e0 20 20 |.. .. |.. .. |
|00000270| 93 79 27 2f 0d 0a 20 20 | 20 20 20 20 63 68 61 72 |.y'/.. | char|
|00000280| 61 63 74 65 72 20 4e 61 | 72 72 6f 77 54 69 74 6c |acter Na|rrowTitl|
|00000290| 65 2a 32 30 20 2f 27 93 | fa 20 8c 8e 20 89 ce 20 |e*20 /'.|. .. .. |
|000002a0| 90 85 20 96 d8 20 8b e0 | 20 93 79 27 2f 0d 0a 2a |.. .. ..| .y'/..*|
|000002b0| 24 65 6c 73 65 0d 0a 20 | 20 20 20 20 20 63 68 61 |$else.. | cha|
|000002c0| 72 61 63 74 65 72 20 57 | 69 64 65 54 69 74 6c 65 |racter W|ideTitle|
|000002d0| 2a 32 37 20 2f 27 53 75 | 6e 20 4d 6f 6e 20 54 75 |*27 /'Su|n Mon Tu|
|000002e0| 65 20 57 65 64 20 54 68 | 75 20 46 72 69 20 53 61 |e Wed Th|u Fri Sa|
|000002f0| 74 27 2f 0d 0a 20 20 20 | 20 20 20 63 68 61 72 61 |t'/.. | chara|
|00000300| 63 74 65 72 20 4e 61 72 | 72 6f 77 54 69 74 6c 65 |cter Nar|rowTitle|
|00000310| 2a 32 30 20 2f 27 53 75 | 20 4d 6f 20 54 75 20 57 |*20 /'Su| Mo Tu W|
|00000320| 65 20 54 68 20 46 72 20 | 53 61 27 2f 0d 0a 2a 24 |e Th Fr |Sa'/..*$|
|00000330| 65 6e 64 69 66 00 b5 03 | 00 00 0b 00 00 00 3d 20 |endif...|......= |
|00000340| 6d 6f 6e 74 68 20 2d 20 | 31 00 86 05 00 00 14 01 |month - |1.......|
|00000350| 00 00 2a 24 69 66 64 65 | 66 20 4a 41 50 41 4e 5f |..*$ifde|f JAPAN_|
|00000360| 56 45 52 0d 0a 20 20 20 | 20 20 26 09 20 20 2f 20 |VER.. | &. / |
|00000370| 27 31 8c 8e 27 2c 20 27 | 32 8c 8e 27 2c 20 27 33 |'1..', '|2..', '3|
|00000380| 8c 8e 27 2c 20 27 34 8c | 8e 27 2c 20 27 35 8c 8e |..', '4.|.', '5..|
|00000390| 27 2c 20 27 36 8c 8e 27 | 2c 0d 0a 20 20 20 20 20 |', '6..'|,.. |
|000003a0| 26 09 20 20 20 20 27 37 | 8c 8e 27 2c 20 27 38 8c |&. '7|..', '8.|
|000003b0| 8e 27 2c 20 27 39 8c 8e | 27 2c 20 27 31 30 8c 8e |.', '9..|', '10..|
|000003c0| 27 2c 20 27 31 31 8c 8e | 27 2c 20 27 31 32 8c 8e |', '11..|', '12..|
|000003d0| 27 20 2f 0d 0a 2a 24 65 | 6c 73 65 0d 0a 20 20 20 |' /..*$e|lse.. |
|000003e0| 20 20 26 09 20 20 2f 20 | 27 4a 61 6e 75 61 72 79 | &. / |'January|
|000003f0| 27 2c 20 27 46 65 62 72 | 75 61 72 79 27 2c 20 27 |', 'Febr|uary', '|
|00000400| 4d 61 72 63 68 27 2c 20 | 27 41 70 72 69 6c 27 2c |March', |'April',|
|00000410| 0d 0a 20 20 20 20 20 26 | 09 20 20 20 20 27 4d 61 |.. &|. 'Ma|
|00000420| 79 27 2c 20 27 4a 75 6e | 65 27 2c 20 27 4a 75 6c |y', 'Jun|e', 'Jul|
|00000430| 79 27 2c 20 27 41 75 67 | 75 73 74 27 2c 0d 0a 20 |y', 'Aug|ust',.. |
|00000440| 20 20 20 20 26 09 20 20 | 20 20 27 53 65 70 74 65 | &. | 'Septe|
|00000450| 6d 62 65 72 27 2c 20 27 | 4f 63 74 6f 62 65 72 27 |mber', '|October'|
|00000460| 2c 20 27 4e 6f 76 00 67 | 09 00 00 e8 03 00 00 3d |, 'Nov.g|.......=|
|00000470| 20 73 74 61 72 74 20 2d | 20 31 0d 0a 20 20 20 20 | start -| 1.. |
|00000480| 20 20 65 6e 64 69 66 0d | 0a 20 20 20 20 20 20 73 | endif.|. s|
|00000490| 74 61 72 74 20 3d 20 6d | 6f 64 28 20 73 74 61 72 |tart = m|od( star|
|000004a0| 74 2c 20 37 20 29 20 2b | 20 31 0d 0a 20 20 20 20 |t, 7 ) +| 1.. |
|000004b0| 20 20 69 66 28 20 28 20 | 6d 6f 64 28 20 79 65 61 | if( ( |mod( yea|
|000004c0| 72 2c 20 34 20 29 20 2e | 65 71 2e 20 30 20 29 20 |r, 4 ) .|eq. 0 ) |
|000004d0| 2e 61 6e 64 2e 20 28 20 | 6d 6f 6e 74 68 20 2e 65 |.and. ( |month .e|
|000004e0| 71 2e 20 46 45 42 52 55 | 41 52 59 20 29 20 29 74 |q. FEBRU|ARY ) )t|
|000004f0| 68 65 6e 0d 0a 09 20 20 | 64 61 79 73 20 3d 20 32 |hen... |days = 2|
|00000500| 39 0d 0a 20 20 20 20 20 | 20 65 6c 73 65 0d 0a 09 |9.. | else...|
|00000510| 20 20 64 61 79 73 20 3d | 20 4d 6f 6e 74 68 44 61 | days =| MonthDa|
|00000520| 79 73 28 20 6d 6f 6e 74 | 68 20 29 0d 0a 20 20 20 |ys( mont|h ).. |
|00000530| 20 20 20 65 6e 64 69 66 | 0d 0a 20 20 20 20 20 20 | endif|.. |
|00000540| 6e 72 6f 77 20 3d 20 72 | 6f 77 20 2b 20 33 0d 0a |nrow = r|ow + 3..|
|00000550| 20 20 20 20 20 20 64 6f | 20 69 20 3d 20 31 2c 20 | do| i = 1, |
|00000560| 64 61 79 73 0d 0a 09 20 | 20 63 61 6c 6c 20 50 6f |days... | call Po|
|00000570| 73 43 75 72 73 6f 72 28 | 20 6e 72 6f 77 2c 20 63 |sCursor(| nrow, c|
|00000580| 6f 6c 20 2b 20 77 69 64 | 74 68 20 2a 20 73 74 61 |ol + wid|th * sta|
|00000590| 72 74 20 2d 20 32 20 29 | 0d 0a 09 20 20 70 72 69 |rt - 2 )|... pri|
|000005a0| 6e 74 20 27 28 49 32 29 | 27 2c 20 69 0d 0a 09 20 |nt '(I2)|', i... |
|000005b0| 20 69 66 28 20 73 74 61 | 72 74 20 2e 65 71 2e 20 | if( sta|rt .eq. |
|000005c0| 37 20 29 74 68 65 6e 0d | 0a 09 20 20 20 20 20 20 |7 )then.|.. |
|000005d0| 6e 72 6f 77 20 3d 20 6e | 72 6f 77 20 2b 20 31 0d |nrow = n|row + 1.|
|000005e0| 0a 09 20 20 20 20 20 20 | 73 74 61 72 74 20 3d 20 |.. |start = |
|000005f0| 31 0d 0a 09 20 20 65 6c | 73 65 0d 0a 09 20 20 20 |1... el|se... |
|00000600| 20 20 20 73 74 61 72 74 | 20 3d 20 73 74 61 72 74 | start| = start|
|00000610| 20 2b 20 31 0d 0a 09 20 | 20 65 6e 64 69 66 0d 0a | + 1... | endif..|
|00000620| 20 20 20 20 20 20 65 6e | 64 64 6f 0d 0a 20 20 20 | en|ddo.. |
|00000630| 20 20 20 65 6e 64 0d 0a | 0d 0a 0d 0a 20 20 20 20 | end..|.... |
|00000640| 20 20 73 75 62 72 6f 75 | 74 69 6e 65 20 42 6f 78 | subrou|tine Box|
|00000650| 28 20 72 6f 77 2c 20 63 | 6f 6c 2c 20 77 69 64 74 |( row, c|ol, widt|
|00000660| 68 2c 20 68 65 69 67 68 | 74 20 29 0d 0a 20 20 20 |h, heigh|t ).. |
|00000670| 20 20 20 69 6d 70 6c 69 | 63 69 74 20 6e 6f 6e 65 | impli|cit none|
|00000680| 0d 0a 20 20 20 20 20 20 | 69 6e 74 65 67 65 72 20 |.. |integer |
|00000690| 72 6f 77 2c 20 63 6f 6c | 2c 20 77 69 64 74 68 2c |row, col|, width,|
|000006a0| 20 68 65 69 67 68 74 2c | 20 69 0d 0a 0d 0a 2a 24 | height,| i....*$|
|000006b0| 69 66 64 65 66 20 4a 41 | 50 41 4e 5f 56 45 52 0d |ifdef JA|PAN_VER.|
|000006c0| 0a 20 20 20 20 20 20 63 | 61 6c 6c 20 4c 69 6e 65 |. c|all Line|
|000006d0| 28 20 72 6f 77 2c 20 63 | 6f 6c 2c 20 77 69 64 74 |( row, c|ol, widt|
|000006e0| 68 2c 20 27 2b 27 2c 20 | 27 2d 27 2c 20 27 2b 27 |h, '+', |'-', '+'|
|000006f0| 20 29 0d 0a 20 20 20 20 | 20 20 63 61 6c 6c 20 4c | ).. | call L|
|00000700| 69 6e 65 28 20 72 6f 77 | 20 2b 20 31 2c 20 63 6f |ine( row| + 1, co|
|00000710| 6c 2c 20 77 69 64 74 68 | 2c 20 27 7c 27 2c 20 27 |l, width|, '|', '|
|00000720| 20 27 2c 20 27 7c 27 20 | 29 0d 0a 20 20 20 20 20 | ', '|' |).. |
|00000730| 20 63 61 6c 6c 20 4c 69 | 6e 65 28 20 72 6f 77 20 | call Li|ne( row |
|00000740| 2b 20 32 2c 20 63 6f 6c | 2c 20 77 69 64 74 68 2c |+ 2, col|, width,|
|00000750| 20 27 7c 27 2c 20 27 2d | 27 2c 20 27 7c 27 20 29 | '|', '-|', '|' )|
|00000760| 0d 0a 20 20 20 20 20 20 | 64 6f 20 69 20 3d 20 33 |.. |do i = 3|
|00000770| 2c 20 68 65 69 67 68 74 | 0d 0a 09 20 20 63 61 6c |, height|... cal|
|00000780| 6c 20 4c 69 6e 65 28 20 | 72 6f 77 20 2b 20 69 2c |l Line( |row + i,|
|00000790| 20 63 6f 6c 2c 20 77 69 | 64 74 68 2c 20 27 7c 27 | col, wi|dth, '|'|
|000007a0| 2c 20 27 20 27 2c 20 27 | 7c 27 20 29 0d 0a 20 20 |, ' ', '||' ).. |
|000007b0| 20 20 20 20 65 6e 64 64 | 6f 0d 0a 20 20 20 20 20 | endd|o.. |
|000007c0| 20 63 61 6c 6c 20 4c 69 | 6e 65 28 20 72 6f 77 20 | call Li|ne( row |
|000007d0| 2b 20 68 65 69 67 68 74 | 20 2b 20 31 2c 20 63 6f |+ height| + 1, co|
|000007e0| 6c 2c 20 77 69 64 74 68 | 2c 20 27 2b 27 2c 20 27 |l, width|, '+', '|
|000007f0| 2d 27 2c 20 27 2b 27 20 | 29 0d 0a 2a 24 65 6c 73 |-', '+' |)..*$els|
|00000800| 65 0d 0a 20 20 20 20 20 | 20 63 61 6c 6c 20 4c 69 |e.. | call Li|
|00000810| 6e 65 28 20 72 6f 77 2c | 20 63 6f 6c 2c 20 77 69 |ne( row,| col, wi|
|00000820| 64 74 68 2c 20 27 da 27 | 2c 20 27 c4 27 2c 20 27 |dth, '.'|, '.', '|
|00000830| bf 27 20 29 0d 0a 20 20 | 20 20 20 20 63 61 6c 6c |.' ).. | call|
|00000840| 20 4c 69 6e 65 28 20 72 | 6f 77 20 2b 20 31 2c 20 | Line( r|ow + 1, |
|00000850| 63 6f 6c 2c 20 77 69 00 | a2 0d 00 00 92 00 00 00 |col, wi.|........|
|00000860| 64 6f 20 69 20 3d 20 33 | 2c 20 68 65 69 67 68 74 |do i = 3|, height|
|00000870| 0d 0a 09 20 20 63 61 6c | 6c 20 4c 69 6e 65 28 20 |... cal|l Line( |
|00000880| 72 6f 77 20 2b 20 69 2c | 20 63 6f 6c 2c 20 77 69 |row + i,| col, wi|
|00000890| 64 74 68 2c 20 27 b3 27 | 2c 20 27 20 27 2c 20 27 |dth, '.'|, ' ', '|
|000008a0| b3 27 20 29 0d 0a 20 20 | 20 20 20 20 65 6e 64 64 |.' ).. | endd|
|000008b0| 6f 0d 0a 20 20 20 20 20 | 20 63 61 6c 6c 20 4c 69 |o.. | call Li|
|000008c0| 6e 65 28 20 72 6f 77 20 | 2b 20 68 65 69 67 68 74 |ne( row |+ height|
|000008d0| 20 2b 20 31 2c 20 63 6f | 6c 2c 20 77 69 64 74 68 | + 1, co|l, width|
|000008e0| 2c 20 27 c0 27 2c 20 27 | c4 27 2c 20 27 d9 27 20 |, '.', '|.', '.' |
|000008f0| 29 0d 00 38 10 00 00 97 | 00 00 00 0d 0a 2a 24 69 |)..8....|.....*$i|
|00000900| 66 64 65 66 20 41 4e 53 | 49 5f 56 45 52 0d 0a 20 |fdef ANS|I_VER.. |
|00000910| 20 20 20 20 20 63 68 61 | 72 61 63 74 65 72 20 65 | cha|racter e|
|00000920| 73 63 2a 31 0d 0a 20 20 | 20 20 20 20 65 73 63 3d |sc*1.. | esc=|
|00000930| 63 68 61 72 28 32 37 29 | 0d 0a 20 20 20 20 20 20 |char(27)|.. |
|00000940| 77 72 69 74 65 28 75 6e | 69 74 3d 2a 2c 66 6d 74 |write(un|it=*,fmt|
|00000950| 3d 31 31 30 29 20 65 73 | 63 2c 72 6f 77 2c 63 6f |=110) es|c,row,co|
|00000960| 6c 0d 0a 31 31 30 20 20 | 20 66 6f 72 6d 61 74 28 |l..110 | format(|
|00000970| 41 2c 27 5b 27 2c 49 32 | 2e 32 2c 27 3b 27 2c 49 |A,'[',I2|.2,';',I|
|00000980| 32 2e 32 2c 27 48 27 2c | 24 29 0d 0a 2a 24 65 6c |2.2,'H',|$)..*$el|
|00000990| 73 65 00 a8 11 00 00 a5 | 01 00 00 09 09 21 20 67 |se......|.....! g|
|000009a0| 65 74 20 63 75 72 72 65 | 6e 74 20 76 69 64 65 6f |et curre|nt video|
|000009b0| 20 73 74 61 74 65 0d 0a | 20 20 20 20 20 20 63 61 | state..| ca|
|000009c0| 6c 6c 20 66 69 6e 74 72 | 28 20 56 49 44 45 4f 5f |ll fintr|( VIDEO_|
|000009d0| 43 41 4c 4c 2c 20 72 65 | 67 73 20 29 0d 0a 09 09 |CALL, re|gs )....|
|000009e0| 09 09 21 20 42 48 20 6e | 6f 77 20 63 6f 6e 74 61 |..! BH n|ow conta|
|000009f0| 69 6e 73 20 70 61 67 65 | 20 6e 75 6d 62 65 72 0d |ins page| number.|
|00000a00| 0a 20 20 20 20 20 20 41 | 48 20 3d 20 53 45 54 5f |. A|H = SET_|
|00000a10| 43 55 52 53 4f 52 09 09 | 21 20 73 65 74 20 63 75 |CURSOR..|! set cu|
|00000a20| 72 73 6f 72 0d 0a 20 20 | 20 20 20 20 44 58 20 3d |rsor.. | DX =|
|00000a30| 20 28 72 6f 77 2d 31 29 | 2a 32 35 36 20 2b 20 63 | (row-1)|*256 + c|
|00000a40| 6f 6c 2d 31 09 21 20 73 | 65 74 20 72 6f 77 2c 63 |ol-1.! s|et row,c|
|00000a50| 6f 6c 75 6d 6e 20 6f 66 | 20 75 70 70 65 72 20 6c |olumn of| upper l|
|00000a60| 65 66 74 0d 0a 20 20 20 | 20 20 20 63 61 6c 6c 20 |eft.. | call |
|00000a70| 66 69 6e 74 72 28 20 56 | 49 44 45 4f 5f 43 41 4c |fintr( V|IDEO_CAL|
|00000a80| 4c 2c 20 72 65 67 73 20 | 29 0d 0a 2a 24 65 6e 64 |L, regs |)..*$end|
|00000a90| 69 66 0d 0a 20 20 20 20 | 20 20 65 6e 64 0d 0a 0d |if.. | end...|
|00000aa0| 0a 20 20 20 20 20 20 73 | 75 62 72 6f 75 74 69 6e |. s|ubroutin|
|00000ab0| 65 20 43 6c 65 61 72 53 | 63 72 65 65 6e 28 29 0d |e ClearS|creen().|
|00000ac0| 0a 20 20 20 20 20 20 69 | 6d 70 6c 69 63 69 74 20 |. i|mplicit |
|00000ad0| 6e 6f 6e 65 0d 0a 0d 0a | 2a 24 69 66 64 65 66 20 |none....|*$ifdef |
|00000ae0| 41 4e 53 49 5f 56 45 52 | 0d 0a 20 20 20 20 20 20 |ANSI_VER|.. |
|00000af0| 63 68 61 72 61 63 74 65 | 72 20 65 73 63 2a 31 0d |characte|r esc*1.|
|00000b00| 0a 20 20 20 20 20 20 65 | 73 63 3d 63 68 61 72 28 |. e|sc=char(|
|00000b10| 32 37 29 0d 0a 20 20 20 | 20 20 20 77 72 69 74 65 |27).. | write|
|00000b20| 28 75 6e 69 74 3d 2a 2c | 66 6d 74 3d 2a 29 20 65 |(unit=*,|fmt=*) e|
|00000b30| 73 63 2c 27 5b 32 4a 27 | 0d 0a 2a 24 65 6c 73 65 |sc,'[2J'|..*$else|
|00000b40| 00 f5 13 00 00 1e 01 00 | 00 09 21 20 66 6f 72 20 |........|..! for |
|00000b50| 33 38 36 20 70 6f 72 74 | 61 62 69 6c 69 74 79 0d |386 port|ability.|
|00000b60| 0a 20 20 20 20 20 20 41 | 48 20 3d 20 53 43 52 4f |. A|H = SCRO|
|00000b70| 4c 4c 5f 55 50 09 09 21 | 20 73 63 72 6f 6c 6c 20 |LL_UP..!| scroll |
|00000b80| 75 70 0d 0a 20 20 20 20 | 20 20 41 4c 20 3d 20 30 |up.. | AL = 0|
|00000b90| 09 09 09 21 20 62 6c 61 | 6e 6b 20 65 6e 74 69 72 |...! bla|nk entir|
|00000ba0| 65 20 77 69 6e 64 6f 77 | 0d 0a 20 20 20 20 20 20 |e window|.. |
|00000bb0| 43 58 20 3d 20 30 09 09 | 09 21 20 73 65 74 20 72 |CX = 0..|.! set r|
|00000bc0| 6f 77 2c 63 6f 6c 75 6d | 6e 20 6f 66 20 75 70 70 |ow,colum|n of upp|
|00000bd0| 65 72 20 6c 65 66 74 0d | 0a 20 20 20 20 20 20 44 |er left.|. D|
|00000be0| 58 20 3d 20 32 34 2a 32 | 35 36 20 2b 20 38 30 09 |X = 24*2|56 + 80.|
|00000bf0| 09 21 20 73 65 74 20 72 | 6f 77 2c 63 6f 6c 75 6d |.! set r|ow,colum|
|00000c00| 6e 20 6f 66 20 6c 6f 77 | 65 72 20 72 69 67 68 74 |n of low|er right|
|00000c10| 0d 0a 20 20 20 20 20 20 | 42 48 20 3d 20 37 09 09 |.. |BH = 7..|
|00000c20| 09 21 20 61 74 74 72 69 | 62 75 74 65 20 22 77 68 |.! attri|bute "wh|
|00000c30| 69 74 65 20 6f 6e 20 62 | 6c 61 63 6b 22 0d 0a 20 |ite on b|lack".. |
|00000c40| 20 20 20 20 20 63 61 6c | 6c 20 66 69 6e 74 72 28 | cal|l fintr(|
|00000c50| 20 56 49 44 45 4f 5f 43 | 41 4c 4c 2c 20 72 65 67 | VIDEO_C|ALL, reg|
|00000c60| 73 20 29 0d 0a 2a 24 03 | a2 06 00 00 b1 de f7 00 |s )..*$.|........|
|00000c70| 00 03 b3 06 00 00 fc 3c | 49 37 00 03 9a 06 00 00 |.......<|I7......|
|00000c80| 00 fb 3a 39 0c 00 03 14 | 15 00 00 07 f1 48 3d 00 |..:9....|.....H=.|
|00000c90| 03 9e 06 00 00 52 00 de | b0 00 03 ae 06 00 00 aa |.....R..|........|
|00000ca0| a4 bc c1 00 03 79 0d 00 | 00 00 00 00 c9 00 03 aa |.....y..|........|
|00000cb0| 06 00 00 52 00 dc c9 00 | 03 c0 03 00 00 12 ed e9 |...R....|........|
|00000cc0| e8 00 03 58 07 00 00 00 | fa 05 e9 80 ca 00 02 |...X....|....... |
+--------+-------------------------+-------------------------+--------+--------+