� *********************
� VDU, ASC, CHR$ CODES
� by R.A.Dimond
(� August 1993
2� *********************
<�
F�6
P	�init
Z!�10,1)"VDU, ASC, CHR$ CODES"
d!�''"Screen or printer? (S/P)"
n�:a%=�"SsPp",�):�a%
s�3
x�a%<3 �screen � �printer
��
���screen
��14:�print
��
�
��printer
�"�15,2,1,27,1,54,1,27,1,116,1,1
�
�print
��3
��
���print
��'�201;�72,�205);�187
�8�186;:�ct("VDU, ASC, CHR$ CODE NUMBERS"):�73);�186
��199;�72,�196);�182

*�186;:�ct("Control Codes"):�73);�186

'�199;�34,�196);�194;�37,�196);�182

G�186;" Dec Hex    Action";�35);�179;" Dec Hex    Action";�73);�186

"�n%=0�15

,r�186;" ";:�d(n%):�;"  ";h$(n%);"  ";a$(n%);�35);�179;" ";:�d(n%+16):�;"  ";h$(n%+16);"  ";a$(n%+16);�73);�186

6�

@'�199;�34,�196);�193;�37,�196);�182

J'�186;:�ct("Characters"):�73);�186

T6�199;�23,�196);�194;�23,�196);�194;�24,�196);�182

^f�186;" Dec Hex Character";�24);�179;" Dec Hex Character";�48);�179;" Dec Hex Character";�73);�186

h�n%=0�31

r/�186;" ";:�d(n%+32):�;"  ";h$(n%+32);"  ";

|'�(n%+32)=32 �;"Space"; ��;�(n%+32);

�l�24);�179;" ";:�d(n%+64):�;"  ";h$(n%+64);"  ";�(n%+64);�48);�179;" ";:�d(n%+96):�;"  ";h$(n%+96);"  ";

�)�(n%+96)=127 �;"Delete"; ��;�(n%+96);

��73);�186

��

�6�200;�23,�205);�207;�23,�205);�207;�24,�205);�188

��

�
��init

��a$(32)

��

��n%=0�31

��a$(n%)

��

��h$(127)

�n%=0�127
h$=�~n%
�h$<2 h$="0"+h$
&
h$(n%)=h$
0�
:�
D�� Nothing,Next to printer,Start printer,Stop printer,Separate cursors,Join cursors,Enable VDU,Beep,Cursor back,Cursor forward,Cursor down,Cursor up,Clear text (CLS),Start of line (CR),Paged mode,Scroll mode,Clear graphics (CLG)
N�� Define text colour,Define graphics colour,Define logical colour,Default logical colours,Disable VDU,Select mode,Reprogram characters,Define graphics window,Plot,Default text/graphics area,Reserved,Define text window
X>� Define graphics origin,Home text cursor,Move text cursor
b��d(n%)
l
d$=�n%
v'�d$<2 d$="  "+d$ ��d$<3 d$=" "+d$
��d$;
��
���ct(t$)
��36-�t$/2);t$;
��
�

00000000  0d 00 0a 1b f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |..... **********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 00 14 1a f4  |***********.....|
00000020  20 56 44 55 2c 20 41 53  43 2c 20 43 48 52 24 20  | VDU, ASC, CHR$ |
00000030  43 4f 44 45 53 0d 00 1e  13 f4 20 62 79 20 52 2e  |CODES..... by R.|
00000040  41 2e 44 69 6d 6f 6e 64  0d 00 28 11 f4 20 41 75  |A.Dimond..(.. Au|
00000050  67 75 73 74 20 31 39 39  33 0d 00 32 1b f4 20 2a  |gust 1993..2.. *|
00000060  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000070  2a 2a 2a 2a 0d 00 3c 05  f4 0d 00 46 06 eb 36 0d  |****..<....F..6.|
00000080  00 50 09 f2 69 6e 69 74  0d 00 5a 21 f1 8a 31 30  |.P..init..Z!..10|
00000090  2c 31 29 22 56 44 55 2c  20 41 53 43 2c 20 43 48  |,1)"VDU, ASC, CH|
000000a0  52 24 20 43 4f 44 45 53  22 0d 00 64 21 f1 27 27  |R$ CODES"..d!.''|
000000b0  22 53 63 72 65 65 6e 20  6f 72 20 70 72 69 6e 74  |"Screen or print|
000000c0  65 72 3f 20 28 53 2f 50  29 22 0d 00 6e 17 f5 3a  |er? (S/P)"..n..:|
000000d0  61 25 3d a7 22 53 73 50  70 22 2c be 29 3a fd 61  |a%=."SsPp",.):.a|
000000e0  25 0d 00 73 06 eb 33 0d  00 78 1c e7 61 25 3c 33  |%..s..3..x..a%<3|
000000f0  20 f2 73 63 72 65 65 6e  20 8b 20 f2 70 72 69 6e  | .screen . .prin|
00000100  74 65 72 0d 00 82 05 e0  0d 00 8c 0c dd f2 73 63  |ter...........sc|
00000110  72 65 65 6e 0d 00 96 0e  ef 31 34 3a f2 70 72 69  |reen.....14:.pri|
00000120  6e 74 0d 00 a0 05 e1 0d  00 aa 0d dd f2 70 72 69  |nt...........pri|
00000130  6e 74 65 72 0d 00 b4 22  ef 31 35 2c 32 2c 31 2c  |nter...".15,2,1,|
00000140  32 37 2c 31 2c 35 34 2c  31 2c 32 37 2c 31 2c 31  |27,1,54,1,27,1,1|
00000150  31 36 2c 31 2c 31 0d 00  be 0a f2 70 72 69 6e 74  |16,1,1.....print|
00000160  0d 00 c8 06 ef 33 0d 00  d2 05 e1 0d 00 dc 0b dd  |.....3..........|
00000170  f2 70 72 69 6e 74 0d 00  e6 19 f1 27 bd 32 30 31  |.print.....'.201|
00000180  3b c4 37 32 2c bd 32 30  35 29 3b bd 31 38 37 0d  |;.72,.205);.187.|
00000190  00 f0 38 f1 bd 31 38 36  3b 3a f2 63 74 28 22 56  |..8..186;:.ct("V|
000001a0  44 55 2c 20 41 53 43 2c  20 43 48 52 24 20 43 4f  |DU, ASC, CHR$ CO|
000001b0  44 45 20 4e 55 4d 42 45  52 53 22 29 3a f1 8a 37  |DE NUMBERS"):..7|
000001c0  33 29 3b bd 31 38 36 0d  00 fa 18 f1 bd 31 39 39  |3);.186......199|
000001d0  3b c4 37 32 2c bd 31 39  36 29 3b bd 31 38 32 0d  |;.72,.196);.182.|
000001e0  01 04 2a f1 bd 31 38 36  3b 3a f2 63 74 28 22 43  |..*..186;:.ct("C|
000001f0  6f 6e 74 72 6f 6c 20 43  6f 64 65 73 22 29 3a f1  |ontrol Codes"):.|
00000200  8a 37 33 29 3b bd 31 38  36 0d 01 0e 27 f1 bd 31  |.73);.186...'..1|
00000210  39 39 3b c4 33 34 2c bd  31 39 36 29 3b bd 31 39  |99;.34,.196);.19|
00000220  34 3b c4 33 37 2c bd 31  39 36 29 3b bd 31 38 32  |4;.37,.196);.182|
00000230  0d 01 18 47 f1 bd 31 38  36 3b 22 20 44 65 63 20  |...G..186;" Dec |
00000240  48 65 78 20 20 20 20 41  63 74 69 6f 6e 22 3b 8a  |Hex    Action";.|
00000250  33 35 29 3b bd 31 37 39  3b 22 20 44 65 63 20 48  |35);.179;" Dec H|
00000260  65 78 20 20 20 20 41 63  74 69 6f 6e 22 3b 8a 37  |ex    Action";.7|
00000270  33 29 3b bd 31 38 36 0d  01 22 0c e3 6e 25 3d 30  |3);.186.."..n%=0|
00000280  b8 31 35 0d 01 2c 72 f1  bd 31 38 36 3b 22 20 22  |.15..,r..186;" "|
00000290  3b 3a f2 64 28 6e 25 29  3a f1 3b 22 20 20 22 3b  |;:.d(n%):.;"  ";|
000002a0  68 24 28 6e 25 29 3b 22  20 20 22 3b 61 24 28 6e  |h$(n%);"  ";a$(n|
000002b0  25 29 3b 8a 33 35 29 3b  bd 31 37 39 3b 22 20 22  |%);.35);.179;" "|
000002c0  3b 3a f2 64 28 6e 25 2b  31 36 29 3a f1 3b 22 20  |;:.d(n%+16):.;" |
000002d0  20 22 3b 68 24 28 6e 25  2b 31 36 29 3b 22 20 20  | ";h$(n%+16);"  |
000002e0  22 3b 61 24 28 6e 25 2b  31 36 29 3b 8a 37 33 29  |";a$(n%+16);.73)|
000002f0  3b bd 31 38 36 0d 01 36  05 ed 0d 01 40 27 f1 bd  |;.186..6....@'..|
00000300  31 39 39 3b c4 33 34 2c  bd 31 39 36 29 3b bd 31  |199;.34,.196);.1|
00000310  39 33 3b c4 33 37 2c bd  31 39 36 29 3b bd 31 38  |93;.37,.196);.18|
00000320  32 0d 01 4a 27 f1 bd 31  38 36 3b 3a f2 63 74 28  |2..J'..186;:.ct(|
00000330  22 43 68 61 72 61 63 74  65 72 73 22 29 3a f1 8a  |"Characters"):..|
00000340  37 33 29 3b bd 31 38 36  0d 01 54 36 f1 bd 31 39  |73);.186..T6..19|
00000350  39 3b c4 32 33 2c bd 31  39 36 29 3b bd 31 39 34  |9;.23,.196);.194|
00000360  3b c4 32 33 2c bd 31 39  36 29 3b bd 31 39 34 3b  |;.23,.196);.194;|
00000370  c4 32 34 2c bd 31 39 36  29 3b bd 31 38 32 0d 01  |.24,.196);.182..|
00000380  5e 66 f1 bd 31 38 36 3b  22 20 44 65 63 20 48 65  |^f..186;" Dec He|
00000390  78 20 43 68 61 72 61 63  74 65 72 22 3b 8a 32 34  |x Character";.24|
000003a0  29 3b bd 31 37 39 3b 22  20 44 65 63 20 48 65 78  |);.179;" Dec Hex|
000003b0  20 43 68 61 72 61 63 74  65 72 22 3b 8a 34 38 29  | Character";.48)|
000003c0  3b bd 31 37 39 3b 22 20  44 65 63 20 48 65 78 20  |;.179;" Dec Hex |
000003d0  43 68 61 72 61 63 74 65  72 22 3b 8a 37 33 29 3b  |Character";.73);|
000003e0  bd 31 38 36 0d 01 68 0c  e3 6e 25 3d 30 b8 33 31  |.186..h..n%=0.31|
000003f0  0d 01 72 2f f1 bd 31 38  36 3b 22 20 22 3b 3a f2  |..r/..186;" ";:.|
00000400  64 28 6e 25 2b 33 32 29  3a f1 3b 22 20 20 22 3b  |d(n%+32):.;"  ";|
00000410  68 24 28 6e 25 2b 33 32  29 3b 22 20 20 22 3b 0d  |h$(n%+32);"  ";.|
00000420  01 7c 27 e7 28 6e 25 2b  33 32 29 3d 33 32 20 f1  |.|'.(n%+32)=32 .|
00000430  3b 22 53 70 61 63 65 22  3b 20 8b f1 3b bd 28 6e  |;"Space"; ..;.(n|
00000440  25 2b 33 32 29 3b 0d 01  86 6c f1 8a 32 34 29 3b  |%+32);...l..24);|
00000450  bd 31 37 39 3b 22 20 22  3b 3a f2 64 28 6e 25 2b  |.179;" ";:.d(n%+|
00000460  36 34 29 3a f1 3b 22 20  20 22 3b 68 24 28 6e 25  |64):.;"  ";h$(n%|
00000470  2b 36 34 29 3b 22 20 20  22 3b bd 28 6e 25 2b 36  |+64);"  ";.(n%+6|
00000480  34 29 3b 8a 34 38 29 3b  bd 31 37 39 3b 22 20 22  |4);.48);.179;" "|
00000490  3b 3a f2 64 28 6e 25 2b  39 36 29 3a f1 3b 22 20  |;:.d(n%+96):.;" |
000004a0  20 22 3b 68 24 28 6e 25  2b 39 36 29 3b 22 20 20  | ";h$(n%+96);"  |
000004b0  22 3b 0d 01 90 29 e7 28  6e 25 2b 39 36 29 3d 31  |";...).(n%+96)=1|
000004c0  32 37 20 f1 3b 22 44 65  6c 65 74 65 22 3b 20 8b  |27 .;"Delete"; .|
000004d0  f1 3b bd 28 6e 25 2b 39  36 29 3b 0d 01 9a 0e f1  |.;.(n%+96);.....|
000004e0  8a 37 33 29 3b bd 31 38  36 0d 01 a4 05 ed 0d 01  |.73);.186.......|
000004f0  ae 36 f1 bd 32 30 30 3b  c4 32 33 2c bd 32 30 35  |.6..200;.23,.205|
00000500  29 3b bd 32 30 37 3b c4  32 33 2c bd 32 30 35 29  |);.207;.23,.205)|
00000510  3b bd 32 30 37 3b c4 32  34 2c bd 32 30 35 29 3b  |;.207;.24,.205);|
00000520  bd 31 38 38 0d 01 b8 05  e1 0d 01 c2 0a dd f2 69  |.188...........i|
00000530  6e 69 74 0d 01 cc 0b de  61 24 28 33 32 29 0d 01  |nit.....a$(32)..|
00000540  d6 05 f7 0d 01 e0 0c e3  6e 25 3d 30 b8 33 31 0d  |........n%=0.31.|
00000550  01 ea 0b f3 61 24 28 6e  25 29 0d 01 f4 05 ed 0d  |....a$(n%)......|
00000560  01 fe 0c de 68 24 28 31  32 37 29 0d 02 08 0d e3  |....h$(127).....|
00000570  6e 25 3d 30 b8 31 32 37  0d 02 12 0b 68 24 3d c3  |n%=0.127....h$=.|
00000580  7e 6e 25 0d 02 1c 14 e7  a9 68 24 3c 32 20 68 24  |~n%......h$<2 h$|
00000590  3d 22 30 22 2b 68 24 0d  02 26 0d 68 24 28 6e 25  |="0"+h$..&.h$(n%|
000005a0  29 3d 68 24 0d 02 30 05  ed 0d 02 3a 05 e1 0d 02  |)=h$..0....:....|
000005b0  44 e7 dc 20 4e 6f 74 68  69 6e 67 2c 4e 65 78 74  |D.. Nothing,Next|
000005c0  20 74 6f 20 70 72 69 6e  74 65 72 2c 53 74 61 72  | to printer,Star|
000005d0  74 20 70 72 69 6e 74 65  72 2c 53 74 6f 70 20 70  |t printer,Stop p|
000005e0  72 69 6e 74 65 72 2c 53  65 70 61 72 61 74 65 20  |rinter,Separate |
000005f0  63 75 72 73 6f 72 73 2c  4a 6f 69 6e 20 63 75 72  |cursors,Join cur|
00000600  73 6f 72 73 2c 45 6e 61  62 6c 65 20 56 44 55 2c  |sors,Enable VDU,|
00000610  42 65 65 70 2c 43 75 72  73 6f 72 20 62 61 63 6b  |Beep,Cursor back|
00000620  2c 43 75 72 73 6f 72 20  66 6f 72 77 61 72 64 2c  |,Cursor forward,|
00000630  43 75 72 73 6f 72 20 64  6f 77 6e 2c 43 75 72 73  |Cursor down,Curs|
00000640  6f 72 20 75 70 2c 43 6c  65 61 72 20 74 65 78 74  |or up,Clear text|
00000650  20 28 43 4c 53 29 2c 53  74 61 72 74 20 6f 66 20  | (CLS),Start of |
00000660  6c 69 6e 65 20 28 43 52  29 2c 50 61 67 65 64 20  |line (CR),Paged |
00000670  6d 6f 64 65 2c 53 63 72  6f 6c 6c 20 6d 6f 64 65  |mode,Scroll mode|
00000680  2c 43 6c 65 61 72 20 67  72 61 70 68 69 63 73 20  |,Clear graphics |
00000690  28 43 4c 47 29 0d 02 4e  dd dc 20 44 65 66 69 6e  |(CLG)..N.. Defin|
000006a0  65 20 74 65 78 74 20 63  6f 6c 6f 75 72 2c 44 65  |e text colour,De|
000006b0  66 69 6e 65 20 67 72 61  70 68 69 63 73 20 63 6f  |fine graphics co|
000006c0  6c 6f 75 72 2c 44 65 66  69 6e 65 20 6c 6f 67 69  |lour,Define logi|
000006d0  63 61 6c 20 63 6f 6c 6f  75 72 2c 44 65 66 61 75  |cal colour,Defau|
000006e0  6c 74 20 6c 6f 67 69 63  61 6c 20 63 6f 6c 6f 75  |lt logical colou|
000006f0  72 73 2c 44 69 73 61 62  6c 65 20 56 44 55 2c 53  |rs,Disable VDU,S|
00000700  65 6c 65 63 74 20 6d 6f  64 65 2c 52 65 70 72 6f  |elect mode,Repro|
00000710  67 72 61 6d 20 63 68 61  72 61 63 74 65 72 73 2c  |gram characters,|
00000720  44 65 66 69 6e 65 20 67  72 61 70 68 69 63 73 20  |Define graphics |
00000730  77 69 6e 64 6f 77 2c 50  6c 6f 74 2c 44 65 66 61  |window,Plot,Defa|
00000740  75 6c 74 20 74 65 78 74  2f 67 72 61 70 68 69 63  |ult text/graphic|
00000750  73 20 61 72 65 61 2c 52  65 73 65 72 76 65 64 2c  |s area,Reserved,|
00000760  44 65 66 69 6e 65 20 74  65 78 74 20 77 69 6e 64  |Define text wind|
00000770  6f 77 0d 02 58 3e dc 20  44 65 66 69 6e 65 20 67  |ow..X>. Define g|
00000780  72 61 70 68 69 63 73 20  6f 72 69 67 69 6e 2c 48  |raphics origin,H|
00000790  6f 6d 65 20 74 65 78 74  20 63 75 72 73 6f 72 2c  |ome text cursor,|
000007a0  4d 6f 76 65 20 74 65 78  74 20 63 75 72 73 6f 72  |Move text cursor|
000007b0  0d 02 62 0b dd f2 64 28  6e 25 29 0d 02 6c 0a 64  |..b...d(n%)..l.d|
000007c0  24 3d c3 6e 25 0d 02 76  27 e7 a9 64 24 3c 32 20  |$=.n%..v'..d$<2 |
000007d0  64 24 3d 22 20 20 22 2b  64 24 20 8b e7 a9 64 24  |d$="  "+d$ ...d$|
000007e0  3c 33 20 64 24 3d 22 20  22 2b 64 24 0d 02 80 08  |<3 d$=" "+d$....|
000007f0  f1 64 24 3b 0d 02 8a 05  e1 0d 02 94 0c dd f2 63  |.d$;...........c|
00000800  74 28 74 24 29 0d 02 9e  13 f1 8a 33 36 2d a9 74  |t(t$)......36-.t|
00000810  24 2f 32 29 3b 74 24 3b  0d 02 a8 05 e1 0d ff     |$/2);t$;.......|
0000081f