;***************************************************************************** ; Change Log ; Date | Change ;-----------+----------------------------------------------------------------- ; 7-Dec-91 | [1.483] Created change log ; 7-Dec-91 | [1.483] Record adding .sf commands ; 21-Dec-91 | [1.501] added .sf \_ for perfs ; 2-Feb-92 JRJ configured for Deskjet Printer ;***************************************************************************** ;жФФФCharacter SelectФФФЗ э mouse icon ;ЬЭЭЭЫЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЙ ђ record mark ;К NOК 1234567890=':>ћ К ч group mark ;К BAК +ABCDEFGHI?.)[<ч К ѓ segment mark ;К BК -JKLMNOPQR!$*]; К ї word mark ;К AК b/STUVWXYZђ,(ї\ѓ К я perforation mark ;ШЭЭЭЪЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭЭМ not-equal ; What this file does for initialization is to "download" the FX80+ ROM ; font into its RAM, then redefine the following characters ; ; { Group mark ; | record mark ; ^ word separator ; } segment mark ; ~ segment mark ; " radical ; ` delta ; ; ; 123456789AB ; ___________ ; x 128 ; x 64 ; x x x x x 32 ; x 16 ; x 8 ; x x x x x 4 ; x 2 ; x 1 ; 00003000000 ; 40407040400 ; 40407040400 ; define the record mark as character | in user font 0 ;.sc "\R" "\eL\13\0\44\0\44\0\377\0\44\0\44\0\0" ; ; For deskjet, print as ordinary character ; .sc "\R" "\xd8" ; ; 123456789AB ; ___________ ; x 128 ; x x x x x 64 ; x 32 ; x x x x x 16 ; x 8 ; x x x x x 4 ; x 2 ; x 1 ; 10103010100 ; 20207020200 ; 40407040400 ;.sc "\G" "\eL\13\0\124\0\124\0\377\0\124\0\124\0\0" ; ; For deskjet, make it an overstrike of vertical bar and 3 lines ; .sc "\G" "|\x08\xf0" ; ; 123456789AB ; ___________ ; 128 ; 64 ; x x 32 ; x x x x 16 ; x x 8 ; x 4 ; 2 ; 1 ; 00000000000 ; 24210124200 ; 00004000000 ;.sc "^" "\eL\13\0\20\40\20\10\4\10\20\40\20\0\0" ; ; For deskjet, try the YEN symbol ' .sc "^" "\x9d" ; We need no special translation of this because it is in the same position ; ; 123456789AB ; ___________ ; x x x 128 ; x x x 64 ; x x x 32 ; x x x x x x 16 ; x x x 8 ; x x x 4 ; x x x 2 ; 1 ; 03003003000 ; 25207025202 ; 06006006000 ;.sc "\S" "\eL\13\0\20\356\20\0\376\0\20\356\20\0\20" ; ; For deskjet, use two vertical lines with one horizontal ; .sc "\S" "\xd7" ; ; 123456789AB ; ___________ ; 128 ; x x x x 64 ; x 32 ; x x 16 ; x x 8 ; x x 4 ; x 2 ; 1 ; 00001010101 ; 21007000000 ; 00424000000 ; define the radical as " in user font 0 ;.sc "\Q" "\eL\13\0\20\10\4\2\174\0\100\0\100\0\100" ; ; For deskjet, use the radical as is ; .sc "\Q" "\xfb" ; ; 123456789AB ; ______________ ; 128 ; ______________64 ; x 32 ; x x 16 ; __x___x_______8 ; x x 4 ; x x x x x 2 ; ______________1 ; 00000000000 ; 00124210000 ; 24202024200 ;.sc "\D" "\eL\13\0\2\4\12\20\42\20\12\04\2\0\0" ; ; For deskjet, use a filled in triangle ; .sc "\D" "\x1e" ; use compressed mode ; ; For deskjet, specify 66 line page, no perf skip, no top ; margin, scale text mode (to get 66 actual lines), the PC-8 ; character set and compressed mode JRJ 2/92 ; ;.in "\eP\17" .in "\e&l66P\e&l0L\e&l0E\e&k6W\e(10U\e(s16.67H" ; For finalization, restore to pica ; ; For deskjet, just reset. JRJ 2/92 ; ;.fi "\22" .fi "\eE" ; set up the screen fonts (ignored if not on EGA/VGA) ; ; Group mark ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ...*.... 0001 0000 10 ; ...*.... 0001 0000 10 ; *******. 1111 1110 FE ; ...*.... 0001 0000 10 ; *******. 1111 1110 FE ; ...*.... 0001 0000 10 ; *******. 1111 1110 FE ; ...*.... 0001 0000 10 ; ...*.... 0001 0000 10 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; .sf "\G" "ч" "\x00\x00\x10\x10\xFE\x10\xFE\x10\xFE\x10\x10\x00\x00" ; Word mark ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; .**.**.. 0110 1100 6C ; *..*..*. 0001 0000 92 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; .sf "\W" "ї" "\x00\x00\x6C\x92\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00" ; Segment mark ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; .*.*.*.. 0101 0100 54 ; .*.*.*.. 0101 0100 54 ; .*.*.*.. 0101 0100 54 ; .*.*.*.. 0101 0100 54 ; *******. 1111 1110 FE ; .*.*.*.. 0101 0100 54 ; .*.*.*.. 0101 0100 54 ; .*.*.*.. 0101 0100 54 ; .*.*.*.. 0101 0100 54 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; .sf "\S" "ѓ" "\x00\x00\x54\x54\x54\x54\xFE\x54\x54\x54\x54\x00\x00\x00" ; Mouse icon ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; .*...... 0100 0000 40 ; *.**.*.. 1011 0100 B8 ; *.*.*.*. 1010 1010 AA ; *.*.*.*. 1010 1010 AA ; *......* 1000 0001 81 ; *......* 1000 0001 81 ; *......* 1000 0001 81 ; *......* 1000 0001 81 ; ******** 1111 1111 FF ; *......* 1000 0001 81 ; ******** 1111 1111 FF ; ........ 0000 0000 00 .sf "\M" "э" "\x00\x00\x40\xB8\xAA\xAA\x81\x81\x81\x81\xFF\x81\xFF\x00" ; Use the H-font .sf "'" "@" .sf "=" "#" .sf "+" "&" .sf "(" "%" ; Lozenge ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; *.....*. 1000 0010 82 ; .*****.. 0111 1100 7C ; .*...*.. 0100 0100 44 ; .*...*.. 0100 0100 44 ; .*****.. 0111 1100 7C ; *.....*. 1000 0010 82 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; .sf ")" "Љ" "\x00\x00\x00\x00\x82\x7C\x44\x44\x7C\x82\x00\x00\x00\x00" ; Not-equal ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ......*. 0000 0010 02 ; .....**. 0000 0110 06 ; *******. 1111 1110 FE ; ...**... 0001 1000 18 ; *******. 1111 1110 FE ; .**..... 0110 0000 60 ; **...... 1100 0000 C0 ; *....... 1000 0000 80 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; .sf "\N" "" "\x00\x00\x00\x02\x06\xFE\x18\xFE\x60\xC0\x80\x00\x00\x00\x00" ; Record mark ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ...*.... 0001 0000 10 ; ...*.... 0001 0000 10 ; *******. 1111 1110 FE ; ...*.... 0001 0000 10 ; *******. 1111 1110 FE ; ...*.... 0001 0000 10 ; ...*.... 0001 0000 10 ; ...*.... 0001 0000 10 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; ........ 0000 0000 00 ; .sf "\R" "ђ" "\x00\x00\x00\x10\x10\xFE\x10\xFE\x10\x10\x10\x00\x00\x00\x00" ; This defines the character used to represent screen perforations ; This is set up for the VGA 9x16 font .sf "\_" "я" "\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\x00\xFF\xFF" ; | 0 | 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 |10 |11 |12 |13 |14 |15 | ; This sets up a nice character for the card corner ; ........ ........ 0000 0000 00 ; ........ ........ 0000 0000 00 ; ........ ........ 0000 0000 00 ; ........ ........ 0000 0000 00 ; ........ ........ 0000 0000 00 ; ........ ........ 0000 0000 00 ; ........ ........ 0000 0000 00 ; .......* ******** 0000 0001 01 corner1 ; ......** ........ 0000 0011 03 ; .....**. ........ 0000 0110 06 ; ....**.. ........ 0000 1100 0C ; ...**... ........ 0001 1000 18 ; ..**.... ........ 0011 0000 30 ; .**..... ........ 0110 0000 60 ; **...... ........ 1100 0000 C0 ; *....... ........ 1000 0000 80 ; ------------ ;......** corner2 ;.....**. ;....**.. ;...**... ;...**... ;...**... ;...**... ;...**... ;...**... ;...**... ;...**... ;...**... ;...**... ;...**... .sf "\C" "у" "\x00\x00\x00\x00\x00\x00\x00\x01\x03\x06\x0C\x18\x30\x60\xC0\x80" .sf "\c" "ф" "\x03\x06\x0C\x18\x18\x18\x18\x18\x18\x18\x18\x18\x18\x18\x18\x18" ; Test the fonts if this command is enabled by a command line switch .ts "WS \W" .ts "RM \R" .ts "GM \G" .ts "SM \S" .ts "RD \Q" .ts "DL \D" .ts "\f"