/ A.N.A.L.O.G. Magazine 1988 June / 88_jun.atr / fastprnt.m65

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| fe fe f8 0e 0a 00 24 58 | 2a 2a 2a 2a 2a 2a 2a 2a |......$X|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 2a 2a 2a 2a | 14 00 24 58 2a 2a 20 20 |********|..$X**  |
|00000030| 20 20 20 46 20 41 20 53 | 20 54 20 20 20 50 20 52 |   F A S| T   P R|
|00000040| 20 49 20 4e 20 54 20 20 | 20 20 2a 2a 1e 00 24 58 | I N T  |  **..$X|
|00000050| 2a 2a 20 20 20 20 20 42 | 79 20 42 69 6c 6c 20 42 |**     B|y Bill B|
|00000060| 6f 64 65 6e 73 74 65 69 | 6e 20 20 20 20 20 2a 2a |odenstei|n     **|
|00000070| 28 00 24 58 2a 2a 20 20 | 20 20 20 20 20 20 31 31 |(.$X**  |      11|
|00000080| 2f 32 34 2f 38 36 20 20 | 20 20 20 20 20 20 20 20 |/24/86  |        |
|00000090| 20 20 2a 2a 32 00 24 58 | 2a 2a 2a 2a 2a 2a 2a 2a |  **2.$X|********|
|000000a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 3c 00 05 58 3b 46 00 1e |********|<..X;F..|
|000000c0| 58 3b 54 68 69 73 20 6d | 2f 6c 20 72 6f 75 74 69 |X;This m|/l routi|
|000000d0| 6e 65 20 77 69 6c 6c 20 | 70 75 74 50 00 24 58 3b |ne will |putP.$X;|
|000000e0| 63 68 61 72 61 63 74 65 | 72 73 20 64 69 72 65 63 |characte|rs direc|
|000000f0| 74 6c 79 20 69 6e 74 6f | 20 73 63 72 65 65 6e 5a |tly into| screenZ|
|00000100| 00 20 58 3b 6d 65 6d 6f | 72 79 20 66 6f 72 20 66 |. X;memo|ry for f|
|00000110| 61 73 74 65 72 20 70 72 | 69 6e 74 69 6e 67 2e 64 |aster pr|inting.d|
|00000120| 00 1e 58 3b 4f 75 74 70 | 75 74 20 73 65 6e 74 20 |..X;Outp|ut sent |
|00000130| 74 6f 20 74 68 65 20 73 | 63 72 65 65 6e 6e 00 1b |to the s|creenn..|
|00000140| 58 3b 65 64 69 74 6f 72 | 20 69 73 20 72 6f 75 74 |X;editor| is rout|
|00000150| 65 64 20 68 65 72 65 2e | 78 00 05 58 3b 82 00 11 |ed here.|x..X;...|
|00000160| 58 2a 2a 20 45 51 55 41 | 54 45 53 20 2a 2a 8c 00 |X** EQUA|TES **..|
|00000170| 05 58 3b 96 00 10 89 52 | 47 54 4d 41 52 47 49 4e |.X;....R|GTMARGIN|
|00000180| 1e 06 53 a0 00 0e 87 43 | 55 52 53 43 4f 4c 1e 06 |..S....C|URSCOL..|
|00000190| 55 aa 00 10 88 4b 45 59 | 50 52 45 53 53 1e 05 fc |U....KEY|PRESS...|
|000001a0| 02 b4 00 0c 85 4e 4f 4b | 45 59 1e 08 ff be 00 0d |.....NOK|EY......|
|000001b0| 86 42 52 4b 4b 45 59 1e | 06 11 c8 00 0c 85 42 52 |.BRKKEY.|......BR|
|000001c0| 45 41 4b 1e 08 80 d2 00 | 0c 85 43 4c 45 41 52 1e |EAK.....|..CLEAR.|
|000001d0| 08 7d dc 00 0d 86 52 45 | 54 55 52 4e 1e 08 9b e6 |.}....RE|TURN....|
|000001e0| 00 05 58 3b f0 00 0d 85 | 49 43 43 4f 4d 1e 05 42 |..X;....|ICCOM..B|
|000001f0| 03 fa 00 0e 86 49 43 42 | 41 44 52 1e 05 44 03 04 |.....ICB|ADR..D..|
|00000200| 01 0e 86 49 43 42 41 55 | 58 1e 05 4a 03 0e 01 0d |...ICBAU|X..J....|
|00000210| 85 46 50 46 4c 47 1e 05 | 4e 03 18 01 10 88 50 41 |.FPFLG..|N.....PA|
|00000220| 55 53 45 46 4c 47 1e 05 | 4f 03 22 01 0b 84 4f 50 |USEFLG..|O."...OP|
|00000230| 45 4e 1e 08 03 2c 01 0c | 85 43 4c 4f 53 45 1e 08 |EN...,..|.CLOSE..|
|00000240| 0c 36 01 0c 85 49 4e 4f | 55 54 1e 08 0c 40 01 0b |.6...INO|UT...@..|
|00000250| 83 43 49 4f 1e 05 56 e4 | 4a 01 10 88 45 48 41 4e |.CIO..V.|J...EHAN|
|00000260| 44 54 41 42 1e 05 00 e4 | 54 01 05 58 3b 5e 01 0e |DTAB....|T..X;^..|
|00000270| 86 56 4b 45 59 42 44 1e | 05 08 02 68 01 05 58 3b |.VKEYBD.|...h..X;|
|00000280| 72 01 05 58 3b 7c 01 07 | 1d 05 00 05 86 01 05 58 |r..X;|..|.......X|
|00000290| 3b 90 01 0e 8a 49 4e 49 | 54 49 41 4c 49 5a 45 9a |;....INI|TIALIZE.|
|000002a0| 01 0d 89 53 45 54 4b 45 | 59 49 4e 54 a4 01 1c 51 |...SETKE|YINT...Q|
|000002b0| 86 56 4b 45 59 42 44 12 | 08 01 3b 3b 43 68 61 6e |.VKEYBD.|..;;Chan|
|000002c0| 67 65 20 6b 65 79 62 64 | ae 01 1b 52 3e 35 89 4e |ge keybd|...R>5.N|
|000002d0| 45 57 4b 45 59 49 4e 54 | 3b 3b 69 6e 74 65 72 72 |EWKEYINT|;;interr|
|000002e0| 75 70 74 b8 01 1a 46 87 | 53 45 54 46 4c 47 53 3b |upt...F.|SETFLGS;|
|000002f0| 3b 76 65 63 74 6f 72 20 | 74 6f 20 67 6f c2 01 1a |;vector |to go...|
|00000300| 50 89 4f 4c 44 4b 45 59 | 49 4e 54 12 08 01 3b 3b |P.OLDKEY|INT...;;|
|00000310| 74 6f 20 68 65 72 65 cc | 01 13 51 86 56 4b 45 59 |to here.|..Q.VKEY|
|00000320| 42 44 3b 3b 62 65 66 6f | 72 65 d6 01 18 50 89 4f |BD;;befo|re...P.O|
|00000330| 4c 44 4b 45 59 49 4e 54 | 3b 3b 68 61 6e 64 6c 69 |LDKEYINT|;;handli|
|00000340| 6e 67 e0 01 0e 3d 3b 3b | 6b 65 79 70 72 65 73 73 |ng...=;;|keypress|
|00000350| ea 01 10 51 3e 34 89 4e | 45 57 4b 45 59 49 4e 54 |...Q>4.N|EWKEYINT|
|00000360| f4 01 0b 50 86 56 4b 45 | 59 42 44 fe 01 10 51 3e |...P.VKE|YBD...Q>|
|00000370| 35 89 4e 45 57 4b 45 59 | 49 4e 54 08 02 0e 50 86 |5.NEWKEY|INT...P.|
|00000380| 56 4b 45 59 42 44 12 08 | 01 12 02 04 2e 1c 02 05 |VKEYBD..|........|
|00000390| 58 3b 26 02 0d 89 43 4f | 50 59 45 48 41 4e 44 30 |X;&...CO|PYEHAND0|
|000003a0| 02 17 25 3e 08 0f 3b 3b | 4d 6f 76 65 20 45 20 68 |..%>..;;|Move E h|
|000003b0| 61 6e 64 6c 65 72 3a 02 | 1e 88 43 4f 50 59 42 59 |andler:.|..COPYBY|
|000003c0| 54 45 51 88 45 48 41 4e | 44 54 41 42 38 3b 3b 74 |TEQ.EHAN|DTAB8;;t|
|000003d0| 61 62 6c 65 44 02 1c 50 | 88 4e 45 57 45 48 41 4e |ableD..P|.NEWEHAN|
|000003e0| 44 38 3b 3b 66 72 6f 6d | 20 6f 2e 73 2e 20 74 6f |D8;;from| o.s. to|
|000003f0| 4e 02 10 31 3b 3b 46 61 | 73 74 20 50 72 69 6e 74 |N..1;;Fa|st Print|
|00000400| 58 02 0d 49 88 43 4f 50 | 59 42 59 54 45 62 02 05 |X..I.COP|YBYTEb..|
|00000410| 58 3b 6c 02 0d 89 53 45 | 54 4e 45 57 50 55 54 76 |X;l...SE|TNEWPUTv|
|00000420| 02 1d 51 3e 34 1f 88 45 | 50 55 54 43 48 41 52 13 |..Q>4..E|PUTCHAR.|
|00000430| 08 01 20 3b 3b 53 65 74 | 20 6e 65 77 80 02 1a 50 |.. ;;Set| new...P|
|00000440| 88 4e 45 57 45 48 41 4e | 44 12 08 06 3b 3b 70 75 |.NEWEHAN|D...;;pu|
|00000450| 74 20 63 68 61 72 8a 02 | 1c 51 3e 35 1f 88 45 50 |t char..|.Q>5..EP|
|00000460| 55 54 43 48 41 52 13 08 | 01 20 3b 3b 76 65 63 74 |UTCHAR..|. ;;vect|
|00000470| 6f 72 94 02 19 50 88 4e | 45 57 45 48 41 4e 44 12 |or...P.N|EWEHAND.|
|00000480| 08 07 3b 3b 74 6f 20 46 | 2e 50 2e 9e 02 05 58 3b |..;;to F|.P....X;|
|00000490| a8 02 0e 8a 53 45 54 4e | 45 57 48 41 4e 44 b2 02 |....SETN|EWHAND..|
|000004a0| 0f 51 3e 34 88 4e 45 57 | 45 48 41 4e 44 bc 02 07 |.Q>4.NEW|EHAND...|
|000004b0| 50 05 21 03 c6 02 0f 51 | 3e 35 88 4e 45 57 45 48 |P.!....Q|>5.NEWEH|
|000004c0| 41 4e 44 d0 02 07 50 05 | 22 03 da 02 05 58 3b e4 |AND...P.|"....X;.|
|000004d0| 02 0c 88 43 4c 4f 53 45 | 53 43 52 ee 02 15 24 3e |...CLOSE|SCR...$>|
|000004e0| 08 00 3b 3b 43 6c 6f 73 | 65 20 65 64 69 74 6f 72 |..;;Clos|e editor|
|000004f0| f8 02 0b 51 3e 85 43 4c | 4f 53 45 02 03 0b 50 85 |...Q>.CL|OSE...P.|
|00000500| 49 43 43 4f 4d 39 0c 03 | 08 20 83 43 49 4f 16 03 |ICCOM9..|. .CIO..|
|00000510| 05 58 3b 20 03 0b 87 4f | 50 45 4e 53 43 52 2a 03 |.X; ...O|PENSCR*.|
|00000520| 18 51 3e 84 4f 50 45 4e | 3b 3b 54 68 65 6e 20 6f |.Q>.OPEN|;;Then o|
|00000530| 70 65 6e 20 69 74 34 03 | 0b 50 85 49 43 43 4f 4d |pen it4.|.P.ICCOM|
|00000540| 39 3e 03 0b 51 3e 85 49 | 4e 4f 55 54 48 03 0c 50 |9>..Q>.I|NOUTH..P|
|00000550| 86 49 43 42 41 55 58 39 | 52 03 0b 51 3e 34 84 45 |.ICBAUX9|R..Q>4.E|
|00000560| 44 45 56 5c 03 0c 50 86 | 49 43 42 41 44 52 39 66 |DEV\..P.|ICBADR9f|
|00000570| 03 0b 51 3e 35 84 45 44 | 45 56 70 03 0f 50 86 49 |..Q>5.ED|EVp..P.I|
|00000580| 43 42 41 44 52 12 08 01 | 39 7a 03 08 20 83 43 49 |CBADR...|9z.. .CI|
|00000590| 4f 84 03 05 58 3b 8e 03 | 0b 87 53 45 54 46 4c 47 |O...X;..|..SETFLG|
|000005a0| 53 98 03 13 51 3e 08 01 | 3b 3b 53 65 74 20 66 6c |S...Q>..|;;Set fl|
|000005b0| 61 67 73 3a a2 03 19 50 | 85 46 50 46 4c 47 3b 3b |ags:...P|.FPFLG;;|
|000005c0| 46 61 73 74 20 50 72 69 | 6e 74 20 6f 6e ac 03 07 |Fast Pri|nt on...|
|000005d0| 51 3e 08 01 b6 03 17 50 | 88 50 41 55 53 45 46 4c |Q>.....P|.PAUSEFL|
|000005e0| 47 3b 3b 50 61 75 73 65 | 20 6f 6e c0 03 04 3a ca |G;;Pause| on...:.|
|000005f0| 03 05 58 3b d4 03 05 58 | 3b de 03 0e 84 45 44 45 |..X;...X|;....EDE|
|00000600| 56 0b 41 82 45 3a 41 e8 | 03 05 58 3b f2 03 05 58 |V.A.E:A.|..X;...X|
|00000610| 3b fc 03 07 1d 05 00 06 | 06 04 05 58 3b 10 04 22 |;.......|...X;.."|
|00000620| 58 3b 52 65 63 65 69 76 | 65 20 61 20 63 68 61 72 |X;Receiv|e a char|
|00000630| 61 63 74 65 72 20 62 65 | 69 6e 67 20 70 75 74 1a |acter be|ing put.|
|00000640| 04 1a 58 3b 74 6f 20 74 | 68 65 20 73 63 72 65 65 |..X;to t|he scree|
|00000650| 6e 20 65 64 69 74 6f 72 | 2e 24 04 05 58 3b 2e 04 |n editor|.$..X;..|
|00000660| 0c 88 45 50 55 54 43 48 | 41 52 38 04 09 85 46 50 |..EPUTCH|AR8...FP|
|00000670| 4f 4e 3f 42 04 19 25 85 | 46 50 46 4c 47 3b 3b 47 |ON?B..%.|FPFLG;;G|
|00000680| 6f 20 74 6f 20 6f 2e 73 | 2e 20 69 66 4c 04 13 48 |o to o.s|. ifL..H|
|00000690| 84 47 52 30 3f 3b 3b 46 | 2e 50 2e 20 6f 66 66 56 |.GR0?;;F|.P. offV|
|000006a0| 04 14 85 47 4f 2e 4f 53 | 21 89 50 52 49 4e 54 43 |...GO.OS|!.PRINTC|
|000006b0| 48 41 52 60 04 05 58 3b | 6a 04 08 84 47 52 30 3f |HAR`..X;|j...GR0?|
|000006c0| 74 04 15 25 06 57 3b 3b | 47 6f 20 74 6f 20 6f 2e |t..%.W;;|Go to o.|
|000006d0| 73 2e 20 69 66 7e 04 19 | 48 85 47 4f 2e 4f 53 3b |s. if~..|H.GO.OS;|
|000006e0| 3b 6e 6f 74 20 74 65 78 | 74 20 6d 6f 64 65 88 04 |;not tex|t mode..|
|000006f0| 05 58 3b 92 04 0a 86 42 | 52 45 41 4b 3f 9c 04 15 |.X;....B|REAK?...|
|00000700| 25 86 42 52 4b 4b 45 59 | 3b 3b 41 62 6f 72 74 20 |%.BRKKEY|;;Abort |
|00000710| 69 66 a6 04 19 46 8b 41 | 42 4f 52 54 4f 55 54 50 |if...F.A|BORTOUTP|
|00000720| 55 54 3b 3b 62 72 65 61 | 6b 65 64 b0 04 05 58 3b |UT;;brea|ked...X;|
|00000730| ba 04 0a 86 43 54 52 4c | 31 3f c4 04 17 25 05 ff |....CTRL|1?...%..|
|00000740| 02 3b 3b 4c 6f 6f 70 20 | 69 66 20 43 54 52 4c 2d |.;;Loop |if CTRL-|
|00000750| 31 ce 04 14 48 86 42 52 | 45 41 4b 3f 3b 3b 70 72 |1...H.BR|EAK?;;pr|
|00000760| 65 73 73 65 64 d8 04 05 | 58 3b e2 04 0c 88 50 41 |essed...|X;....PA|
|00000770| 55 53 45 4f 4e 3f ec 04 | 0d 25 88 50 41 55 53 45 |USEON?..|.%.PAUSE|
|00000780| 46 4c 47 f6 04 12 46 8d | 46 41 53 54 50 52 49 4e |FLG...F.|FASTPRIN|
|00000790| 54 43 48 41 52 00 05 05 | 58 3b 0a 05 0a 86 43 4c |TCHAR...|X;....CL|
|000007a0| 45 41 52 3f 14 05 1b 52 | 3e 85 43 4c 45 41 52 3b |EAR?...R|>.CLEAR;|
|000007b0| 3b 49 66 20 63 6c 65 61 | 72 20 63 68 61 72 2c 1e |;If clea|r char,.|
|000007c0| 05 19 48 89 43 4f 55 4e | 54 4c 49 4e 45 3b 3b 72 |..H.COUN|TLINE;;r|
|000007d0| 65 73 65 74 20 72 6f 77 | 28 05 10 25 3e 08 00 3b |eset row|(..%>..;|
|000007e0| 3b 63 6f 75 6e 74 65 72 | 32 05 0c 27 87 52 4f 57 |;counter|2..'.ROW|
|000007f0| 43 4e 54 52 3c 05 0a 46 | 85 47 4f 2e 4f 53 46 05 |CNTR<..F|.GO.OSF.|
|00000800| 05 58 3b 50 05 0d 89 43 | 4f 55 4e 54 4c 49 4e 45 |.X;P...C|OUNTLINE|
|00000810| 5a 05 1d 52 3e 86 52 45 | 54 55 52 4e 3b 3b 4b 65 |Z..R>.RE|TURN;;Ke|
|00000820| 65 70 20 63 6f 75 6e 74 | 20 6f 66 20 23 64 05 16 |ep count| of #d..|
|00000830| 46 87 49 4e 43 4c 49 4e | 45 3b 3b 6f 66 20 6c 69 |F.INCLIN|E;;of li|
|00000840| 6e 65 73 6e 05 15 24 87 | 43 55 52 53 43 4f 4c 3b |nesn..$.|CURSCOL;|
|00000850| 3b 70 72 69 6e 74 65 64 | 78 05 0e 28 89 52 47 54 |;printed|x..(.RGT|
|00000860| 4d 41 52 47 49 4e 82 05 | 12 44 8d 46 41 53 54 50 |MARGIN..|.D.FASTP|
|00000870| 52 49 4e 54 43 48 41 52 | 8c 05 14 87 49 4e 43 4c |RINTCHAR|....INCL|
|00000880| 49 4e 45 23 87 52 4f 57 | 43 4e 54 52 96 05 05 58 |INE#.ROW|CNTR...X|
|00000890| 3b a0 05 23 58 3b 45 76 | 65 72 79 20 32 32 6e 64 |;..#X;Ev|ery 22nd|
|000008a0| 20 6c 69 6e 65 20 70 72 | 69 6e 74 65 64 2c 20 70 | line pr|inted, p|
|000008b0| 61 75 73 65 aa 05 22 58 | 3b 6f 75 74 70 75 74 20 |ause.."X|;output |
|000008c0| 61 6e 64 20 77 61 69 74 | 20 66 6f 72 20 6b 65 79 |and wait| for key|
|000008d0| 70 72 65 73 73 2e b4 05 | 05 58 3b be 05 0d 89 50 |press...|.X;....P|
|000008e0| 41 55 53 45 53 43 52 3f | c8 05 0e 20 89 50 52 49 |AUSESCR?|... .PRI|
|000008f0| 4e 54 43 48 41 52 d2 05 | 0c 24 87 52 4f 57 43 4e |NTCHAR..|.$.ROWCN|
|00000900| 54 52 dc 05 07 28 3e 08 | 15 e6 05 0a 44 85 4c 45 |TR...(>.|....D.LE|
|00000910| 41 56 45 f0 05 05 58 3b | fa 05 0a 86 50 55 54 4d |AVE...X;|....PUTM|
|00000920| 53 47 04 06 15 25 3e 08 | 00 3b 3b 50 72 69 6e 74 |SG...%>.|.;;Print|
|00000930| 20 70 72 6f 6d 70 74 0e | 06 15 27 87 52 4f 57 43 | prompt.|..'.ROWC|
|00000940| 4e 54 52 3b 3b 6d 65 73 | 73 61 67 65 18 06 11 87 |NTR;;mes|sage....|
|00000950| 50 55 54 42 59 54 45 51 | 83 4d 53 47 38 22 06 08 |PUTBYTEQ|.MSG8"..|
|00000960| 50 40 06 5e 37 2c 06 04 | 33 36 06 15 29 3e 34 1f |P@.^7,..|36..)>4.|
|00000970| 87 52 4f 57 43 4e 54 52 | 13 83 4d 53 47 20 40 06 |.ROWCNTR|..MSG @.|
|00000980| 0c 48 87 50 55 54 42 59 | 54 45 4a 06 05 58 3b 54 |.H.PUTBY|TEJ..X;T|
|00000990| 06 17 51 3e 85 4e 4f 4b | 45 59 3b 3b 43 6c 65 61 |..Q>.NOK|EY;;Clea|
|000009a0| 72 20 6c 61 73 74 5e 06 | 1a 50 88 4b 45 59 50 52 |r last^.|.P.KEYPR|
|000009b0| 45 53 53 3b 3b 6b 65 79 | 20 70 72 65 73 73 65 64 |ESS;;key| pressed|
|000009c0| 68 06 05 58 3b 72 06 0e | 8a 57 41 49 54 46 4f 52 |h..X;r..|.WAITFOR|
|000009d0| 4b 45 59 7c 06 1c 52 88 | 4b 45 59 50 52 45 53 53 |KEY|..R.|KEYPRESS|
|000009e0| 3b 3b 57 61 69 74 20 66 | 6f 72 20 75 73 65 72 86 |;;Wait f|or user.|
|000009f0| 06 1d 48 8a 43 4f 4e 54 | 4f 55 54 50 55 54 3b 3b |..H.CONT|OUTPUT;;|
|00000a00| 74 6f 20 68 69 74 20 61 | 20 6b 65 79 90 06 0b 24 |to hit a| key...$|
|00000a10| 86 42 52 4b 4b 45 59 9a | 06 0f 48 8a 57 41 49 54 |.BRKKEY.|..H.WAIT|
|00000a20| 46 4f 52 4b 45 59 a4 06 | 05 58 3b ae 06 0f 8b 41 |FORKEY..|.X;....A|
|00000a30| 42 4f 52 54 4f 55 54 50 | 55 54 b8 06 1c 25 3e 85 |BORTOUTP|UT...%>.|
|00000a40| 42 52 45 41 4b 3b 3b 3c | 42 52 45 41 4b 3e 20 70 |BREAK;;<|BREAK> p|
|00000a50| 72 65 73 73 65 64 c2 06 | 0b 27 86 42 52 4b 4b 45 |ressed..|.'.BRKKE|
|00000a60| 59 cc 06 04 3a d6 06 05 | 58 3b e0 06 0e 8a 43 4f |Y...:...|X;....CO|
|00000a70| 4e 54 4f 55 54 50 55 54 | ea 06 1d 50 88 4b 45 59 |NTOUTPUT|...P.KEY|
|00000a80| 50 52 45 53 53 3b 3b 43 | 6c 65 61 72 20 6b 65 79 |PRESS;;C|lear key|
|00000a90| 70 72 65 73 73 f4 06 0a | 86 43 4c 52 4d 53 47 fe |press...|.CLRMSG.|
|00000aa0| 06 15 25 3e 08 00 3b 3b | 43 6c 65 61 72 20 70 72 |..%>..;;|Clear pr|
|00000ab0| 6f 6d 70 74 08 07 09 43 | 3b 3b 6d 73 67 12 07 10 |ompt...C|;;msg...|
|00000ac0| 87 43 4c 52 42 59 54 45 | 50 40 06 5e 37 1c 07 04 |.CLRBYTE|P@.^7...|
|00000ad0| 33 26 07 15 29 3e 34 1f | 87 52 4f 57 43 4e 54 52 |3&..)>4.|.ROWCNTR|
|00000ae0| 13 83 4d 53 47 20 30 07 | 0c 48 87 43 4c 52 42 59 |..MSG 0.|.H.CLRBY|
|00000af0| 54 45 3a 07 0a 85 4c 45 | 41 56 45 3a 44 07 05 58 |TE:...LE|AVE:D..X|
|00000b00| 3b 4e 07 1e 58 3b 50 75 | 74 20 63 68 61 72 61 63 |;N..X;Pu|t charac|
|00000b10| 74 65 72 20 64 69 72 65 | 63 74 6c 79 20 69 6e 58 |ter dire|ctly inX|
|00000b20| 07 23 58 3b 73 63 72 65 | 65 6e 20 6d 65 6d 6f 72 |.#X;scre|en memor|
|00000b30| 79 20 75 6e 6c 65 73 73 | 20 73 63 72 6f 6c 6c 69 |y unless| scrolli|
|00000b40| 6e 67 62 07 1a 58 3b 6f | 72 20 63 6f 6e 74 72 6f |ngb..X;o|r contro|
|00000b50| 6c 20 63 68 61 72 61 63 | 74 65 72 2e 6c 07 05 58 |l charac|ter.l..X|
|00000b60| 3b 76 07 11 8d 46 41 53 | 54 50 52 49 4e 54 43 48 |;v...FAS|TPRINTCH|
|00000b70| 41 52 80 07 0c 24 87 43 | 55 52 53 43 4f 4c 8a 07 |AR...$.C|URSCOL..|
|00000b80| 0e 28 89 52 47 54 4d 41 | 52 47 49 4e 94 07 0e 45 |.(.RGTMA|RGIN...E|
|00000b90| 89 50 52 49 4e 54 43 48 | 41 52 9e 07 04 3e a8 07 |.PRINTCH|AR...>..|
|00000ba0| 12 4d 3e 08 7f 3b 3b 49 | 73 20 63 68 61 72 20 61 |.M>..;;I|s char a|
|00000bb0| b2 07 14 52 3e 08 7d 3b | 3b 6e 6f 6e 2d 63 6f 6e |...R>.};|;non-con|
|00000bc0| 74 72 6f 6c bc 07 13 45 | 87 50 52 49 4e 54 49 54 |trol...E|.PRINTIT|
|00000bd0| 3b 3b 63 68 61 72 3f c6 | 07 07 52 3e 08 20 d0 07 |;;char?.|..R>. ..|
|00000be0| 0a 45 85 50 55 54 49 54 | da 07 07 52 3e 08 1b e4 |.E.PUTIT|...R>...|
|00000bf0| 07 0a 44 85 50 55 54 49 | 54 ee 07 05 58 3b f8 07 |..D.PUTI|T...X;..|
|00000c00| 0b 87 50 52 49 4e 54 49 | 54 02 08 04 41 0c 08 0d |..PRINTI|T...A...|
|00000c10| 89 50 52 49 4e 54 43 48 | 41 52 16 08 15 3f 3b 3b |.PRINTCH|AR...?;;|
|00000c20| 50 72 69 6e 74 20 74 68 | 69 73 20 63 68 61 72 20 |Print th|is char |
|00000c30| 08 1b 51 88 45 48 41 4e | 44 54 41 42 12 08 07 3b |..Q.EHAN|DTAB...;|
|00000c40| 3b 77 69 74 68 20 6f 2e | 73 2e 2a 08 0d 35 3b 3b |;with o.|s.*..5;;|
|00000c50| 72 6f 75 74 69 6e 65 34 | 08 10 51 88 45 48 41 4e |routine4|..Q.EHAN|
|00000c60| 44 54 41 42 12 08 06 3e | 08 04 35 48 08 04 43 52 |DTAB...>|..5H..CR|
|00000c70| 08 04 3a 5c 08 05 58 3b | 66 08 09 85 50 55 54 49 |..:\..X;|f...PUTI|
|00000c80| 54 70 08 0c 88 43 4f 4e | 56 43 48 41 52 7a 08 13 |Tp...CON|VCHARz..|
|00000c90| 52 3e 08 60 3b 3b 43 6f | 6e 76 65 72 74 20 74 6f |R>.`;;Co|nvert to|
|00000ca0| 84 08 0e 36 3b 3b 69 6e | 74 65 72 6e 61 6c 8e 08 |...6;;in|ternal..|
|00000cb0| 0d 41 3b 3b 63 68 61 72 | 73 65 74 98 08 04 38 a2 |.A;;char|set...8.|
|00000cc0| 08 0c 45 87 50 55 54 43 | 48 41 52 ac 08 04 3b b6 |..E.PUTC|HAR...;.|
|00000cd0| 08 07 53 3e 08 20 c0 08 | 05 58 3b ca 08 0b 87 50 |..S>. ..|.X;....P|
|00000ce0| 55 54 43 48 41 52 d4 08 | 14 25 3e 08 00 3b 3b 50 |UTCHAR..|.%>..;;P|
|00000cf0| 75 74 20 63 68 61 72 20 | 69 6e de 08 15 50 40 06 |ut char |in...P@.|
|00000d00| 5e 37 3b 3b 63 75 72 73 | 20 70 6f 73 20 69 6e e8 |^7;;curs| pos in.|
|00000d10| 08 0f 1a 3b 73 63 72 65 | 65 6e 20 6d 65 6d f2 08 |...;scre|en mem..|
|00000d20| 0b 87 4d 4f 56 43 55 52 | 53 fc 08 19 23 87 43 55 |..MOVCUR|S...#.CU|
|00000d30| 52 53 43 4f 4c 3b 3b 4d | 6f 76 65 20 63 75 72 73 |RSCOL;;M|ove curs|
|00000d40| 6f 72 06 09 13 23 06 63 | 3b 3b 70 6f 69 6e 74 65 |or...#.c|;;pointe|
|00000d50| 72 73 20 74 6f 10 09 13 | 23 06 5e 3b 3b 6e 65 78 |rs to...|#.^;;nex|
|00000d60| 74 20 63 6f 6c 75 6d 6e | 1a 09 0c 48 87 50 55 54 |t column|...H.PUT|
|00000d70| 43 55 52 53 24 09 06 23 | 06 5f 2e 09 05 58 3b 38 |CURS$..#|._...X;8|
|00000d80| 09 0b 87 50 55 54 43 55 | 52 53 42 09 19 51 40 06 |...PUTCU|RSB..Q@.|
|00000d90| 5e 37 3b 3b 53 61 76 65 | 20 63 68 61 72 20 75 6e |^7;;Save| char un|
|00000da0| 64 65 72 4c 09 12 50 06 | 5d 3b 3b 63 75 72 73 6f |derL..P.|];;curso|
|00000db0| 72 20 61 6e 64 56 09 13 | 4e 3e 08 80 3b 3b 69 6e |r andV..|N>..;;in|
|00000dc0| 76 65 72 73 65 20 69 74 | 60 09 08 50 40 06 5e 37 |verse it|`..P@.^7|
|00000dd0| 6a 09 05 58 3b 74 09 10 | 8b 45 58 49 54 50 55 54 |j..X;t..|.EXITPUT|
|00000de0| 43 48 41 52 3a 7e 09 05 | 58 3b 88 09 05 58 3b 92 |CHAR:~..|X;...X;.|
|00000df0| 09 21 58 3b 43 6c 65 61 | 72 20 72 6f 77 20 63 6f |.!X;Clea|r row co|
|00000e00| 75 6e 74 65 72 20 66 6f | 72 20 73 63 72 65 65 6e |unter fo|r screen|
|00000e10| 9c 09 1d 58 3b 70 61 75 | 73 65 20 65 76 65 72 79 |...X;pau|se every|
|00000e20| 74 69 6d 65 20 61 20 6b | 65 79 20 69 73 a6 09 0d |time a k|ey is...|
|00000e30| 58 3b 70 72 65 73 73 65 | 64 2e b0 09 05 58 3b ba |X;presse|d....X;.|
|00000e40| 09 0d 89 4e 45 57 4b 45 | 59 49 4e 54 c4 09 04 35 |...NEWKE|YINT...5|
|00000e50| ce 09 07 51 3e 08 00 d8 | 09 0c 50 87 52 4f 57 43 |...Q>...|..P.ROWC|
|00000e60| 4e 54 52 e2 09 04 37 ec | 09 10 21 40 89 4f 4c 44 |NTR...7.|..!@.OLD|
|00000e70| 4b 45 59 49 4e 54 3a f6 | 09 05 58 3b 00 0a 05 58 |KEYINT:.|..X;...X|
|00000e80| 3b 0a 0a 1c 83 4d 53 47 | 0c 41 91 20 20 bc f0 f2 |;....MSG|.A.  ...|
|00000e90| e5 f3 f3 a0 e1 ee f9 a0 | eb e5 f9 be 41 14 0a 0e |........|....A...|
|00000ea0| 87 52 4f 57 43 4e 54 52 | 0b 08 00 1e 0a 11 88 4e |.ROWCNTR|.......N|
|00000eb0| 45 57 45 48 41 4e 44 1d | 0d 12 08 10 28 0a 12 89 |EWEHAND.|....(...|
|00000ec0| 4f 4c 44 4b 45 59 49 4e | 54 1d 0d 12 08 02 32 0a |OLDKEYIN|T.....2.|
|00000ed0| 05 58 3b 3c 0a 09 85 45 | 4e 44 46 50 46 0a 05 58 |.X;<...E|NDFPF..X|
|00000ee0| 3b 50 0a 05 58 3b 5a 0a | 07 1d 05 e0 02 64 0a 0f |;P..X;Z.|.....d..|
|00000ef0| 09 8a 49 4e 49 54 49 41 | 4c 49 5a 45             |..INITIA|LIZE    |
+--------+-------------------------+-------------------------+--------+--------+