elm-codepage-437

Codepage 437 equivalent unicode codepoints

cp437 provides a 256 character string containing unicode codepoints matching the extended ibm character set.

You can pick them out and use them if you want to display things as they would have been on a pc in text mode.

You can do things like this with it:

module Main exposing (main)

import Browser
import Html exposing (Html, div, pre, text)
import Codepage.Codepage437 exposing (cp437)

type alias Model = ()

initialModel : Model
initialModel = ()

type Msg
    = Noop

update : Msg -> Model -> Model
update msg model = model

view : Model -> Html Msg
view model =
    let
        toDisplay =
            List.range 0xe0 0xef
            |> List.map (\i -> String.slice i (i+1) cp437)
            |> String.concat
    in
    div [] [ pre [] [ text "CGA ", text toDisplay ] ]

main : Program () Model Msg
main =
    Browser.sandbox
        { init = initialModel
        , view = view
        , update = update
        }

Displaying:

CGA αßΓπΣσµτΦΘΩδ∞φε∩