setscreen ("nobuttonbar")
setscreen ("graphics:400;200")
var choice, quality : string := "1"
var n : int
var d : int := 1
var redam, blueam, greenam : real
var yopic : int

proc colorred
    for x : 1 .. 254
        redam := x / 254
        RGB.SetColor (x, redam, 0, 0)
    end for
end colorred

proc colorgreen
    for x : 1 .. 254
        greenam := x / 254
        RGB.SetColor (x, 0, greenam, 0)
    end for
end colorgreen

proc colorblue
    for x : 1 .. 254
        blueam := x / 254
        RGB.SetColor (x, 0, 0, blueam)
    end for
end colorblue

proc mainprogression
    put "Please enter the path to the photo to be converted to a transferrable Bitmap."
    get choice
    yopic := Pic.FileNew (choice)
    var wide, tall, file, tem, wind : int := 0
    var wde, tll, tempo, setup : string
    wide := Pic.Width (yopic)
    tall := Pic.Height (yopic)
    wde := intstr (wide)
    tll := intstr (tall)
    var photocolors : array 1 .. wide, 1 .. tall, 1 .. 3 of int
    wind := Window.Open ("position;top;center,graphics;max;max,offscreenonly")
    Window.SetActive (wind)
    cls
    Pic.Draw (yopic, 0, 0, picCopy)
    RGB.SetColor (0, 0, 0, 0)
    View.Update
    open : file, (choice + ".tbm"), write
    write : file, wde
    write : file, tll
    colorred
    for t : 1 .. tall
        for u : 1 .. wide
            photocolors (u, t, 1) := View.WhatDotColor (u, t)
        end for
    end for
    colorgreen
    for t : 1 .. tall
        for u : 1 .. wide
            photocolors (u, t, 2) := View.WhatDotColor (u, t)
        end for
    end for
    colorblue
    for t : 1 .. tall
        for u : 1 .. wide
            photocolors (u, t, 3) := View.WhatDotColor (u, t)
        end for
    end for
    for r : 1 .. tall
        for p : 1 .. wide
            write : file, photocolors (p, r, 1), photocolors (p, r, 2), photocolors (p, r, 3)
        end for
    end for
    close : file
    put "Bitmap made transferrable."
end mainprogression

proc secondprogression
    RGB.SetColor (0, 0, 0, 0)
    var wide, tall, file, wind, rr, gg, bb : int := 0
    var wde, tll, setup : string
    put "Please enter your transferrable bitmaps file path."
    get choice
    open : file, choice, read
    read : file, wde
    read : file, tll
    wide := strint (wde)
    tall := strint (tll)
    cls
    wind := Window.Open ("position;top;center,graphics;max;max,offscreenonly")
    Window.SetActive (wind)
    cls
    put "Drawing bitmap"
    View.Update
    for r : 1 .. tall
        for p : 1 .. wide
            read : file, rr, gg, bb
            redam:=rr/254
            greenam:=gg/254
            blueam:=bb/254
            RGB.SetColor(1,redam,greenam,blueam)
            Draw.Dot (p, r, 1)
        end for
    end for
    close : file
    View.Update
end secondprogression

put "Welcome to the Transferrable Bitmap File(.tbf) Converter."
delay (500)
put "Would you like to convert a photo?(Bitmap, Jpg, or gif only), or examine a photo?"
View.Update
loop
    get choice
    if choice = "convert" then
        mainprogression
        exit
    elsif choice = "examine" then
        secondprogression
        exit
    elsif choice = "no" then

        exit
    else
    end if
end loop