� *******************
� Print Token Values
� by R.A.Dimond
(� February 1993
2� *******************
<�
F�6
P	�init
Z�
d�8,1)"Print Token Values"
n �'"Screen or Printer? (S/P)"
x�:a%=�"SsPp",�):�a%
��3
��a%<3 �screen � �printer
��
���screen:�14:�print:�
�
��printer
��15,2,1,27,1,54,1,116,1,1
��print:�3:�
���print
��'�201;�59,�205);�187
�(�;�186;�24)"Tokens Values";�60);�186
�E�199;�14,�196);�194;�14,�196);�194;�14,�196);�194;�14,�196);�186
�5�186;:�hd:�179;:�hd:�179;:�hd:�179;:�hd:�186
�E�199;�14,�196);�197;�14,�196);�197;�14,�196);�197;�14,�196);�186

�n%=0�31

��186;" ";~(n%+&80);"  ";a$(n%);�15);�179;" ";~(n%+&A0);"  ";a$(n%+&20);�30);�179;" ";~(n%+&C0);"  ";a$(n%+&40);�45);�179;" ";~(n%+&E0);"  ";a$(n%+&60);�60);�186

�

"E�200;�14,�205);�207;�14,�205);�207;�14,�205);�207;�14,�205);�188

,�

6��hd

@�1,27,1,45,1,1

J�;" Val  Token   ";

T�1,27,1,45,1,0

^�

h
��init

r
� a$(127)

|
�n%=0�127

��a$(n%)

��:�

��� AND,DIV,EOR,MOD,OR,ERROR,LINE,OFF,STEP,SPC,TAB(,ELSE,THEN,,OPENIN,PTR,PAGE,TIME,LOMEM,HIMEM,ABS,ACS,ADVAL,ASC,ASN,ATN,BGET,COS,COUNT,DEG,ERL,ERR,EVAL,EXP,EXT,FALSE,FN,GET,INKEY,INSTR(,INT,LEN,LN,LOG,NOT,OPENUP,OPENOUT,PI,POINT

��� POS,RAD,RND,SGN,SIN,SQR,TAN,TO,TRUE,USR,VAL,VPOS,CHR$,GET$,INKEY$,LEFT$(,MID$(,RIGHT$(,STR$,STRING$(,EOF,AUTO,DELETE,LOAD,LIST,NEW,OLD,RENUMBER,SAVE,,PTR,PAGE,TIME,LOMEM,HIMEM,SOUND,BPUT,CALL,CHAIN,CLEAR,CLOSE,CLG,CLS,DATA,DEF

��� DIM,DRAW,END,ENDPROC,ENVELOPE,FOR,GOSUB,GOTO,GCOL,IF,INPUT,LET,LOCAL,MODE,MOVE,NEXT,ON,VDU,PLOT,PRINT,PROC,READ,REM,REPEAT,REPORT,RESTORE,RETURN,RUN,STOP,COLOUR,TRACE,UNTIL,WIDTH,OSCLI
�

00000000  0d 00 0a 19 f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |..... **********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 00 14 18 f4 20 50  |*********..... P|
00000020  72 69 6e 74 20 54 6f 6b  65 6e 20 56 61 6c 75 65  |rint Token Value|
00000030  73 0d 00 1e 13 f4 20 62  79 20 52 2e 41 2e 44 69  |s..... by R.A.Di|
00000040  6d 6f 6e 64 0d 00 28 13  f4 20 46 65 62 72 75 61  |mond..(.. Februa|
00000050  72 79 20 31 39 39 33 0d  00 32 19 f4 20 2a 2a 2a  |ry 1993..2.. ***|
00000060  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
00000070  0d 00 3c 05 f4 0d 00 46  06 eb 36 0d 00 50 09 f2  |..<....F..6..P..|
00000080  69 6e 69 74 0d 00 5a 05  db 0d 00 64 1e f1 8a 38  |init..Z....d...8|
00000090  2c 31 29 22 50 72 69 6e  74 20 54 6f 6b 65 6e 20  |,1)"Print Token |
000000a0  56 61 6c 75 65 73 22 0d  00 6e 20 f1 27 22 53 63  |Values"..n .'"Sc|
000000b0  72 65 65 6e 20 6f 72 20  50 72 69 6e 74 65 72 3f  |reen or Printer?|
000000c0  20 28 53 2f 50 29 22 0d  00 78 17 f5 3a 61 25 3d  | (S/P)"..x..:a%=|
000000d0  a7 22 53 73 50 70 22 2c  be 29 3a fd 61 25 0d 00  |."SsPp",.):.a%..|
000000e0  82 06 eb 33 0d 00 8c 1c  e7 61 25 3c 33 20 f2 73  |...3.....a%<3 .s|
000000f0  63 72 65 65 6e 20 8b 20  f2 70 72 69 6e 74 65 72  |creen . .printer|
00000100  0d 00 96 05 e0 0d 00 a0  19 dd f2 73 63 72 65 65  |...........scree|
00000110  6e 3a ef 31 34 3a f2 70  72 69 6e 74 3a e1 0d 00  |n:.14:.print:...|
00000120  aa 0d dd f2 70 72 69 6e  74 65 72 0d 00 b4 1d ef  |....printer.....|
00000130  31 35 2c 32 2c 31 2c 32  37 2c 31 2c 35 34 2c 31  |15,2,1,27,1,54,1|
00000140  2c 31 31 36 2c 31 2c 31  0d 00 be 0f f2 70 72 69  |,116,1,1.....pri|
00000150  6e 74 3a ef 33 3a e1 0d  00 c8 0b dd f2 70 72 69  |nt:.3:.......pri|
00000160  6e 74 0d 00 d2 19 f1 27  bd 32 30 31 3b c4 35 39  |nt.....'.201;.59|
00000170  2c bd 32 30 35 29 3b bd  31 38 37 0d 00 dc 28 f1  |,.205);.187...(.|
00000180  3b bd 31 38 36 3b 8a 32  34 29 22 54 6f 6b 65 6e  |;.186;.24)"Token|
00000190  73 20 56 61 6c 75 65 73  22 3b 8a 36 30 29 3b bd  |s Values";.60);.|
000001a0  31 38 36 0d 00 e6 45 f1  bd 31 39 39 3b c4 31 34  |186...E..199;.14|
000001b0  2c bd 31 39 36 29 3b bd  31 39 34 3b c4 31 34 2c  |,.196);.194;.14,|
000001c0  bd 31 39 36 29 3b bd 31  39 34 3b c4 31 34 2c bd  |.196);.194;.14,.|
000001d0  31 39 36 29 3b bd 31 39  34 3b c4 31 34 2c bd 31  |196);.194;.14,.1|
000001e0  39 36 29 3b bd 31 38 36  0d 00 f0 35 f1 bd 31 38  |96);.186...5..18|
000001f0  36 3b 3a f2 68 64 3a f1  bd 31 37 39 3b 3a f2 68  |6;:.hd:..179;:.h|
00000200  64 3a f1 bd 31 37 39 3b  3a f2 68 64 3a f1 bd 31  |d:..179;:.hd:..1|
00000210  37 39 3b 3a f2 68 64 3a  f1 bd 31 38 36 0d 00 fa  |79;:.hd:..186...|
00000220  45 f1 bd 31 39 39 3b c4  31 34 2c bd 31 39 36 29  |E..199;.14,.196)|
00000230  3b bd 31 39 37 3b c4 31  34 2c bd 31 39 36 29 3b  |;.197;.14,.196);|
00000240  bd 31 39 37 3b c4 31 34  2c bd 31 39 36 29 3b bd  |.197;.14,.196);.|
00000250  31 39 37 3b c4 31 34 2c  bd 31 39 36 29 3b bd 31  |197;.14,.196);.1|
00000260  38 36 0d 01 04 0c e3 6e  25 3d 30 b8 33 31 0d 01  |86.....n%=0.31..|
00000270  0e a5 f1 bd 31 38 36 3b  22 20 22 3b 7e 28 6e 25  |....186;" ";~(n%|
00000280  2b 26 38 30 29 3b 22 20  20 22 3b 61 24 28 6e 25  |+&80);"  ";a$(n%|
00000290  29 3b 8a 31 35 29 3b bd  31 37 39 3b 22 20 22 3b  |);.15);.179;" ";|
000002a0  7e 28 6e 25 2b 26 41 30  29 3b 22 20 20 22 3b 61  |~(n%+&A0);"  ";a|
000002b0  24 28 6e 25 2b 26 32 30  29 3b 8a 33 30 29 3b bd  |$(n%+&20);.30);.|
000002c0  31 37 39 3b 22 20 22 3b  7e 28 6e 25 2b 26 43 30  |179;" ";~(n%+&C0|
000002d0  29 3b 22 20 20 22 3b 61  24 28 6e 25 2b 26 34 30  |);"  ";a$(n%+&40|
000002e0  29 3b 8a 34 35 29 3b bd  31 37 39 3b 22 20 22 3b  |);.45);.179;" ";|
000002f0  7e 28 6e 25 2b 26 45 30  29 3b 22 20 20 22 3b 61  |~(n%+&E0);"  ";a|
00000300  24 28 6e 25 2b 26 36 30  29 3b 8a 36 30 29 3b bd  |$(n%+&60);.60);.|
00000310  31 38 36 0d 01 18 05 ed  0d 01 22 45 f1 bd 32 30  |186......."E..20|
00000320  30 3b c4 31 34 2c bd 32  30 35 29 3b bd 32 30 37  |0;.14,.205);.207|
00000330  3b c4 31 34 2c bd 32 30  35 29 3b bd 32 30 37 3b  |;.14,.205);.207;|
00000340  c4 31 34 2c bd 32 30 35  29 3b bd 32 30 37 3b c4  |.14,.205);.207;.|
00000350  31 34 2c bd 32 30 35 29  3b bd 31 38 38 0d 01 2c  |14,.205);.188..,|
00000360  05 e1 0d 01 36 08 dd f2  68 64 0d 01 40 12 ef 31  |....6...hd..@..1|
00000370  2c 32 37 2c 31 2c 34 35  2c 31 2c 31 0d 01 4a 17  |,27,1,45,1,1..J.|
00000380  f1 3b 22 20 56 61 6c 20  20 54 6f 6b 65 6e 20 20  |.;" Val  Token  |
00000390  20 22 3b 0d 01 54 12 ef  31 2c 32 37 2c 31 2c 34  | ";..T..1,27,1,4|
000003a0  35 2c 31 2c 30 0d 01 5e  05 e1 0d 01 68 0a dd f2  |5,1,0..^....h...|
000003b0  69 6e 69 74 0d 01 72 0d  de 20 61 24 28 31 32 37  |init..r.. a$(127|
000003c0  29 0d 01 7c 0d e3 6e 25  3d 30 b8 31 32 37 0d 01  |)..|..n%=0.127..|
000003d0  86 0b f3 61 24 28 6e 25  29 0d 01 90 07 ed 3a e1  |...a$(n%).....:.|
000003e0  0d 01 9a e8 dc 20 41 4e  44 2c 44 49 56 2c 45 4f  |..... AND,DIV,EO|
000003f0  52 2c 4d 4f 44 2c 4f 52  2c 45 52 52 4f 52 2c 4c  |R,MOD,OR,ERROR,L|
00000400  49 4e 45 2c 4f 46 46 2c  53 54 45 50 2c 53 50 43  |INE,OFF,STEP,SPC|
00000410  2c 54 41 42 28 2c 45 4c  53 45 2c 54 48 45 4e 2c  |,TAB(,ELSE,THEN,|
00000420  2c 4f 50 45 4e 49 4e 2c  50 54 52 2c 50 41 47 45  |,OPENIN,PTR,PAGE|
00000430  2c 54 49 4d 45 2c 4c 4f  4d 45 4d 2c 48 49 4d 45  |,TIME,LOMEM,HIME|
00000440  4d 2c 41 42 53 2c 41 43  53 2c 41 44 56 41 4c 2c  |M,ABS,ACS,ADVAL,|
00000450  41 53 43 2c 41 53 4e 2c  41 54 4e 2c 42 47 45 54  |ASC,ASN,ATN,BGET|
00000460  2c 43 4f 53 2c 43 4f 55  4e 54 2c 44 45 47 2c 45  |,COS,COUNT,DEG,E|
00000470  52 4c 2c 45 52 52 2c 45  56 41 4c 2c 45 58 50 2c  |RL,ERR,EVAL,EXP,|
00000480  45 58 54 2c 46 41 4c 53  45 2c 46 4e 2c 47 45 54  |EXT,FALSE,FN,GET|
00000490  2c 49 4e 4b 45 59 2c 49  4e 53 54 52 28 2c 49 4e  |,INKEY,INSTR(,IN|
000004a0  54 2c 4c 45 4e 2c 4c 4e  2c 4c 4f 47 2c 4e 4f 54  |T,LEN,LN,LOG,NOT|
000004b0  2c 4f 50 45 4e 55 50 2c  4f 50 45 4e 4f 55 54 2c  |,OPENUP,OPENOUT,|
000004c0  50 49 2c 50 4f 49 4e 54  0d 01 a4 e8 dc 20 50 4f  |PI,POINT..... PO|
000004d0  53 2c 52 41 44 2c 52 4e  44 2c 53 47 4e 2c 53 49  |S,RAD,RND,SGN,SI|
000004e0  4e 2c 53 51 52 2c 54 41  4e 2c 54 4f 2c 54 52 55  |N,SQR,TAN,TO,TRU|
000004f0  45 2c 55 53 52 2c 56 41  4c 2c 56 50 4f 53 2c 43  |E,USR,VAL,VPOS,C|
00000500  48 52 24 2c 47 45 54 24  2c 49 4e 4b 45 59 24 2c  |HR$,GET$,INKEY$,|
00000510  4c 45 46 54 24 28 2c 4d  49 44 24 28 2c 52 49 47  |LEFT$(,MID$(,RIG|
00000520  48 54 24 28 2c 53 54 52  24 2c 53 54 52 49 4e 47  |HT$(,STR$,STRING|
00000530  24 28 2c 45 4f 46 2c 41  55 54 4f 2c 44 45 4c 45  |$(,EOF,AUTO,DELE|
00000540  54 45 2c 4c 4f 41 44 2c  4c 49 53 54 2c 4e 45 57  |TE,LOAD,LIST,NEW|
00000550  2c 4f 4c 44 2c 52 45 4e  55 4d 42 45 52 2c 53 41  |,OLD,RENUMBER,SA|
00000560  56 45 2c 2c 50 54 52 2c  50 41 47 45 2c 54 49 4d  |VE,,PTR,PAGE,TIM|
00000570  45 2c 4c 4f 4d 45 4d 2c  48 49 4d 45 4d 2c 53 4f  |E,LOMEM,HIMEM,SO|
00000580  55 4e 44 2c 42 50 55 54  2c 43 41 4c 4c 2c 43 48  |UND,BPUT,CALL,CH|
00000590  41 49 4e 2c 43 4c 45 41  52 2c 43 4c 4f 53 45 2c  |AIN,CLEAR,CLOSE,|
000005a0  43 4c 47 2c 43 4c 53 2c  44 41 54 41 2c 44 45 46  |CLG,CLS,DATA,DEF|
000005b0  0d 01 ae be dc 20 44 49  4d 2c 44 52 41 57 2c 45  |..... DIM,DRAW,E|
000005c0  4e 44 2c 45 4e 44 50 52  4f 43 2c 45 4e 56 45 4c  |ND,ENDPROC,ENVEL|
000005d0  4f 50 45 2c 46 4f 52 2c  47 4f 53 55 42 2c 47 4f  |OPE,FOR,GOSUB,GO|
000005e0  54 4f 2c 47 43 4f 4c 2c  49 46 2c 49 4e 50 55 54  |TO,GCOL,IF,INPUT|
000005f0  2c 4c 45 54 2c 4c 4f 43  41 4c 2c 4d 4f 44 45 2c  |,LET,LOCAL,MODE,|
00000600  4d 4f 56 45 2c 4e 45 58  54 2c 4f 4e 2c 56 44 55  |MOVE,NEXT,ON,VDU|
00000610  2c 50 4c 4f 54 2c 50 52  49 4e 54 2c 50 52 4f 43  |,PLOT,PRINT,PROC|
00000620  2c 52 45 41 44 2c 52 45  4d 2c 52 45 50 45 41 54  |,READ,REM,REPEAT|
00000630  2c 52 45 50 4f 52 54 2c  52 45 53 54 4f 52 45 2c  |,REPORT,RESTORE,|
00000640  52 45 54 55 52 4e 2c 52  55 4e 2c 53 54 4f 50 2c  |RETURN,RUN,STOP,|
00000650  43 4f 4c 4f 55 52 2c 54  52 41 43 45 2c 55 4e 54  |COLOUR,TRACE,UNT|
00000660  49 4c 2c 57 49 44 54 48  2c 4f 53 43 4c 49 0d ff  |IL,WIDTH,OSCLI..|
00000670