32 lines
642 B
Text
32 lines
642 B
Text
Function ProduceAscii$ {
|
|
Document Ascii$="\"
|
|
DelUnicode$=ChrCode$(0x2421)
|
|
j=0
|
|
Print Ascii$;
|
|
For i=0 to 15
|
|
Print Hex$(i, .5);
|
|
Ascii$=Hex$(i, .5)
|
|
Next
|
|
For i=0 to 32
|
|
If pos>16 then
|
|
Ascii$={
|
|
}+Hex$(j, .5)
|
|
Print : Print Hex$(j, .5);: j++
|
|
End if
|
|
Print Chrcode$(i+0x2400);
|
|
Ascii$=Chrcode$(i+0x2400)
|
|
Next
|
|
For i=33 to 126
|
|
If pos>16 then
|
|
Ascii$={
|
|
}+Hex$(j, .5)
|
|
Print : Print Hex$(j, .5);: j++
|
|
End if
|
|
Print Chr$(i);
|
|
Ascii$=Chr$(i)
|
|
Next
|
|
Print DelUnicode$
|
|
=Ascii$+DelUnicode$+{
|
|
}
|
|
}
|
|
Clipboard ProduceAscii$()
|