%%HP: T(0)A(D)F(.);
@ MADE WITH HPUserEdit 6
@ version 0.0.3 OCT 23 2016
HOME 'MULT' PGDIR
DIR
EXAMPLE
«
{} TMENU
FONT8STD FONT
"ENTER A EXPRESSION" { "'b^2-(4*a*c)'" { 0 2 } ALG }
INPUT OBJ
SELECTMULSIGN
»
SELECTMULSIGN
«
-79 SF { } TMENU
"MULTIPLICATION SIGN"
{ { "Asterisk *" SETFONT8STD }
{ "Cross ×" SETFONT8CROSS }
{ "DOT ·" SETFONT8DOT }
{ "Null " SETFONT8NULL } }
FONTTYPE
CHOOSE
IF
THEN
EVAL
{
{ "CONT" « EXAMPLE » }
{ "EXIT" « 2 MENU FONT8STD FONT » }
}
TMENU
ELSE
2 MENU FONT8STD FONT
END
»
SETFONT8STD
«
1 'FONTTYPE' STO FONT8STD FONT
»
SETFONT8CROSS
«
2 'FONTTYPE' STO FONT8CROSS FONT
»
SETFONT8DOT
«
3 'FONTTYPE' STO FONT8DOT FONT
»
SETFONT8NULL
«
4 'FONTTYPE' STO FONT8NULL FONT
»
FONTTYPE
1
FONT8STR
"CCB20D10108000803595354554D40283800000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E000000000014161F16040000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E000000080C0E1F1E1C08000F1F1F1F1F1F1F1000000000000515100000000000051510000000000000000004040404040004000A0A0A00000000000A0A0F1A0F1A0A00040E150E041F040003031804020918100205050205190610040404000000000008040202020408000204080808040200000A040F140A00000004040F1404000000000000060604020000000F10000000000000000006060000001804020100000E01191513111E000406040404040E000E01101C02010F100E01101E00111E00080C0A090F1808000F110F0010111E000C02010F01111E000F101804020202000E01111E01111E000E01111E1018060000060600060600000006060006060402080402010204080000000F100F10000001020408040201000E011018040004000E01151D15010E100E01111F111111100F01111F01111F000E01110101011E0007090111111907000F11010F01010F100F11010F010101000E01110109111E100111111F111111100E04040404040E000010101011111E0001190503050901100101010101010F10011B15151111111001111315191111100E01111111111E000F01111F010101000E011111151906100F01111F050901100E01110E00111E000F140404040404000111111111111E000111111A0A04040001111115151B111001111A040A01111001111A04040404000F10180402010F100E02020202020E0000010204080010000E08080808080E00040A0110000000000000000000000F10020204000000000000000E001E111E1001010F0111111F0000000E1101010E1000101E1111111E1000000E011F110E00040A02070202020000000E01111E101E01010F01111111100400060404040E0008000C080808090601010905030509000604040404040E0000000B051515111000000F011111111000000E0111111E0000000F01111F010100000E11111E101010000D130101010000000E110E001F0002020702020A04000000011111111E1000000111111A04000000011115151A000000011A040A011000000111111E101E00000F1804020F100C02020102020C00040404040404040006080800180806000000020518000000051A051A051A05100000180406090F100F10011A040A0110000F111A0A0400000C1404040506040008041404040502000F12140804021F1003070F0F1F07030000000F1A0A0A0A000204080E11111E00001804020F100F10010204080F100F1000080F140F12000000000006190906100004080F180400000004020F1204000004040404051E0400040E05140404040000000215180808000402040E0909060000000E010F010E0000000A05141410101609090F0909060000010102040A0110000C02121E02020100000E190909060000000E15040418000000090115151A000000040A011F10000F1A0A0A0A0A0A000E011111111A0B1000000E0E0E00000000000A05151A00000C02170207021C00040004040404040000040E15050E14000C02120702020F10011E0111111E011001111A0F140F140004040400040404000C020E011E0806000A000000000000000E01171317111E0006080E09060F000000041A050A0410000000000F080000000000000F000000000E0117171B111E000F100000000000000E0A0E00000000000004040F14040F100E080E020E0000000E080E080E000000080400000000000000000009090907110E17171614141610000000060600000000000000000408060604040E000000000E01111E000F100000050A041A05000001090502051C10100109050A1118081003021B06071C10100400040201011E0002040E011F11111008040E011F111110040A0E011F1111100A050E011F1111100A000E011F1111100E0A0E011F1111100A15050F15050D100E011101011E080602040F110F010F1008040F110F010F10040A0F110F010F100A000F110F010F1002040E0404040E0008040E0404040E00040A0E0404040E000A000E0404040E00060A0217121A0600041A01131519111002040E0111111E0008040E0111111E00040A0E0111111E000A050E0111111E000A000E0111111E0000011A040A011000001E0915131E01000204011111111E000804011111111E00040A000111111E000A00011111111E000804011A0404040007020E021E0207000E011F01111F010102040E001E111E1008040E001E111E10040A0E001E111E100A050E001E111E100A000E001E111E100E0A0E001E111E1000000B141F150F1000000E11010E180602040E011F110E0008040E011F110E00040A0E011F110E000A000E011F110E000204000604040E000804000604040E00040A000604040E000A00000604040E00080C180E09090600041A000F011111100204000E01111E000804000E01111E00040A000E01111E00041A000E01111E000A00000E01111E000004000F100400000000061905121D000204000111111E100804000111111E10040A000111111E100A00000111111E1008040001111E101E00010709090701010A000001111E101E0"
FONT8STD
«
FONT8STR H
»
FONT8NULL
«
FONT8STR 707 "00000000000000000" REPL H
»
FONT8CROSS
«
FONT8STR 707 "0011A040A01100000" REPL H
»
FONT8DOT
«
FONT8STR 707 "0000C0C0000000000" REPL H
»
END
'MULT' STO MULT