[Request] (*, ×, ·, SPC ) multiplication sign ONLY on history view

[compsystems]

is only impression in (history view),no affects the way writing of expressions, the * multiplication symbol is preserved in the program editor and input line, etc.

Please try run the following program example (HP50g), Here I show my concept =)

PHP Code:

%%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
  "CCB20D10108000803595354554D40283800000E0E0E00000000000E0E0E00000000000E0E0E00000​000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000​000000E0E0E00000000000E0E0E000000000014161F16040000000E0E0E00000000000E0E0E00000​000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000​000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000​000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000​0080C0E1F1E1C08000F1F1F1F1F1F1F1000000000000515100000000000051510000000000000000​004040404040004000A0A0A00000000000A0A0F1A0F1A0A00040E150E041F0400030318040209181​00205050205190610040404000000000008040202020408000204080808040200000A040F140A000​00004040F1404000000000000060604020000000F100000000000000000060600000018040201000​00E01191513111E000406040404040E000E01101C02010F100E01101E00111E00080C0A090F18080​00F110F0010111E000C02010F01111E000F101804020202000E01111E01111E000E01111E1018060​000060600060600000006060006060402080402010204080000000F100F100000010204080402010​00E011018040004000E01151D15010E100E01111F111111100F01111F01111F000E01110101011E0​007090111111907000F11010F01010F100F11010F010101000E01110109111E100111111F1111111​00E04040404040E000010101011111E0001190503050901100101010101010F10011B15151111111​001111315191111100E01111111111E000F01111F010101000E011111151906100F01111F0509011​00E01110E00111E000F140404040404000111111111111E000111111A0A04040001111115151B111​001111A040A01111001111A04040404000F10180402010F100E02020202020E00000102040800100​00E08080808080E00040A0110000000000000000000000F10020204000000000000000E001E111E1​001010F0111111F0000000E1101010E1000101E1111111E1000000E011F110E00040A02070202020​000000E01111E101E01010F01111111100400060404040E0008000C0808080906010109050305090​00604040404040E0000000B051515111000000F011111111000000E0111111E0000000F01111F010​100000E11111E101010000D130101010000000E110E001F0002020702020A04000000011111111E1​000000111111A04000000011115151A000000011A040A011000000111111E101E00000F1804020F1​00C02020102020C00040404040404040006080800180806000000020518000000051A051A051A051​00000180406090F100F10011A040A0110000F111A0A0400000C14040405060400080414040405020​00F12140804021F1003070F0F1F07030000000F1A0A0A0A000204080E11111E00001804020F100F1​0010204080F100F1000080F140F12000000000006190906100004080F180400000004020F1204000​004040404051E0400040E05140404040000000215180808000402040E0909060000000E010F010E0​000000A05141410101609090F0909060000010102040A0110000C02121E02020100000E190909060​000000E15040418000000090115151A000000040A011F10000F1A0A0A0A0A0A000E011111111A0B1​000000E0E0E00000000000A05151A00000C02170207021C00040004040404040000040E15050E140​00C02120702020F10011E0111111E011001111A0F140F140004040400040404000C020E011E08060​00A000000000000000E01171317111E0006080E09060F000000041A050A0410000000000F0800000​00000000F000000000E0117171B111E000F100000000000000E0A0E00000000000004040F14040F1​00E080E020E0000000E080E080E000000080400000000000000000009090907110E1717161414161​0000000060600000000000000000408060604040E000000000E01111E000F100000050A041A05000​001090502051C10100109050A1118081003021B06071C10100400040201011E0002040E011F11111​008040E011F111110040A0E011F1111100A050E011F1111100A000E011F1111100E0A0E011F11111​00A15050F15050D100E011101011E080602040F110F010F1008040F110F010F10040A0F110F010F1​00A000F110F010F1002040E0404040E0008040E0404040E00040A0E0404040E000A000E0404040E0​0060A0217121A0600041A01131519111002040E0111111E0008040E0111111E00040A0E0111111E0​00A050E0111111E000A000E0111111E0000011A040A011000001E0915131E01000204011111111E0​00804011111111E00040A000111111E000A00011111111E000804011A0404040007020E021E02070​00E011F01111F010102040E001E111E1008040E001E111E10040A0E001E111E100A050E001E111E1​00A000E001E111E100E0A0E001E111E1000000B141F150F1000000E11010E180602040E011F110E0​008040E011F110E00040A0E011F110E000A000E011F110E000204000604040E000804000604040E0​0040A000604040E000A00000604040E00080C180E09090600041A000F011111100204000E01111E0​00804000E01111E00040A000E01111E00041A000E01111E000A00000E01111E000004000F1004000​00000061905121D000204000111111E100804000111111E10040A000111111E100A00000111111E1​008040001111E101E00010709090701010A000001111E101E0"

  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 


convert to triGraphs format with debug4x IDE http://www.debug4x.com/

PHP Code:

%%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 \.x" SETFONT8CROSS }
      { "DOT \183" 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
  "CCB20D10108000803595354554D40283800000E0E0E00000000000E0E0E00000000000E0E0E00000​000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000​000000E0E0E00000000000E0E0E000000000014161F16040000000E0E0E00000000000E0E0E00000​000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000​000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000​000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000000000E0E0E00000​0080C0E1F1E1C08000F1F1F1F1F1F1F1000000000000515100000000000051510000000000000000​004040404040004000A0A0A00000000000A0A0F1A0F1A0A00040E150E041F0400030318040209181​00205050205190610040404000000000008040202020408000204080808040200000A040F140A000​00004040F1404000000000000060604020000000F100000000000000000060600000018040201000​00E01191513111E000406040404040E000E01101C02010F100E01101E00111E00080C0A090F18080​00F110F0010111E000C02010F01111E000F101804020202000E01111E01111E000E01111E1018060​000060600060600000006060006060402080402010204080000000F100F100000010204080402010​00E011018040004000E01151D15010E100E01111F111111100F01111F01111F000E01110101011E0​007090111111907000F11010F01010F100F11010F010101000E01110109111E100111111F1111111​00E04040404040E000010101011111E0001190503050901100101010101010F10011B15151111111​001111315191111100E01111111111E000F01111F010101000E011111151906100F01111F0509011​00E01110E00111E000F140404040404000111111111111E000111111A0A04040001111115151B111​001111A040A01111001111A04040404000F10180402010F100E02020202020E00000102040800100​00E08080808080E00040A0110000000000000000000000F10020204000000000000000E001E111E1​001010F0111111F0000000E1101010E1000101E1111111E1000000E011F110E00040A02070202020​000000E01111E101E01010F01111111100400060404040E0008000C0808080906010109050305090​00604040404040E0000000B051515111000000F011111111000000E0111111E0000000F01111F010​100000E11111E101010000D130101010000000E110E001F0002020702020A04000000011111111E1​000000111111A04000000011115151A000000011A040A011000000111111E101E00000F1804020F1​00C02020102020C00040404040404040006080800180806000000020518000000051A051A051A051​00000180406090F100F10011A040A0110000F111A0A0400000C14040405060400080414040405020​00F12140804021F1003070F0F1F07030000000F1A0A0A0A000204080E11111E00001804020F100F1​0010204080F100F1000080F140F12000000000006190906100004080F180400000004020F1204000​004040404051E0400040E05140404040000000215180808000402040E0909060000000E010F010E0​000000A05141410101609090F0909060000010102040A0110000C02121E02020100000E190909060​000000E15040418000000090115151A000000040A011F10000F1A0A0A0A0A0A000E011111111A0B1​000000E0E0E00000000000A05151A00000C02170207021C00040004040404040000040E15050E140​00C02120702020F10011E0111111E011001111A0F140F140004040400040404000C020E011E08060​00A000000000000000E01171317111E0006080E09060F000000041A050A0410000000000F0800000​00000000F000000000E0117171B111E000F100000000000000E0A0E00000000000004040F14040F1​00E080E020E0000000E080E080E000000080400000000000000000009090907110E1717161414161​0000000060600000000000000000408060604040E000000000E01111E000F100000050A041A05000​001090502051C10100109050A1118081003021B06071C10100400040201011E0002040E011F11111​008040E011F111110040A0E011F1111100A050E011F1111100A000E011F1111100E0A0E011F11111​00A15050F15050D100E011101011E080602040F110F010F1008040F110F010F10040A0F110F010F1​00A000F110F010F1002040E0404040E0008040E0404040E00040A0E0404040E000A000E0404040E0​0060A0217121A0600041A01131519111002040E0111111E0008040E0111111E00040A0E0111111E0​00A050E0111111E000A000E0111111E0000011A040A011000001E0915131E01000204011111111E0​00804011111111E00040A000111111E000A00011111111E000804011A0404040007020E021E02070​00E011F01111F010102040E001E111E1008040E001E111E10040A0E001E111E100A050E001E111E1​00A000E001E111E100E0A0E001E111E1000000B141F150F1000000E11010E180602040E011F110E0​008040E011F110E00040A0E011F110E000A000E011F110E000204000604040E000804000604040E0​0040A000604040E000A00000604040E00080C180E09090600041A000F011111100204000E01111E0​00804000E01111E00040A000E01111E00041A000E01111E000A00000E01111E000004000F1004000​00000061905121D000204000111111E100804000111111E10040A000111111E100A00000111111E1​008040001111E101E00010709090701010A000001111E101E0"

  FONT8STD
  \<<
    FONT8STR H\->
  \>>

  FONT8NULL
  \<<
    FONT8STR 707 "00000000000000000" REPL H\->
  \>>

  FONT8CROSS @"×"
  \<<
    FONT8STR 707 "0011A040A01100000" REPL H\->
  \>>

  FONT8DOT @"\183"
  \<<
    FONT8STR 707 "0000C0C0000000000" REPL H\->
  \>>
END

'MULT' STO MULT