sad

loop
    var x : string (1)
    var rules : string
    colourback (black)
    colour (white)
    put "do you need to see the rules ? put y or n"
    get rules
    if rules = "y" then
        getch (x)
        cls
        drawfillbox (0, 0, maxx, maxy, 7)
        colourback (black)
        colour (white)
        put "Welcome to craps here are the rules"
        getch (x)
        cls
        drawfillbox (0, 0, maxx, maxy, 7)
        colourback (black)
        colour (white)
        put
            "1. The shooter (player) makes a come-out roll with the intention of establishing a point. If the shooter's come-out roll is a 2, 3 or 12, it is called craps and the round ends, the shooter loses."

        getch (x)
        cls
        drawfillbox (0, 0, maxx, maxy, 7)
        colourback (black)
        colour (white)
        put "2. A come-out roll of 7 or 11 is called a natural resulting in a win"
        getch (x)
        cls
        drawfillbox (0, 0, maxx, maxy, 7)
        colourback (black)
        colour (white)
        put
            "3. Either way, the come-out roll continues for the same shooter until a point is established. If the numbers 4, 5, 6, 8, 9, or 10 are rolled on the come-out, this number becomes the point and the come out roll is now over."
        getch (x)
        cls
        drawfillbox (0, 0, maxx, maxy, 7)
        colourback (black)
        colour (white)
        put "4. The shooter will now continue rolling until either the point is rolled or a seven is rolled. If the shooter is successful in rolling the point, the result is a win."
        getch (x)
        cls
        drawfillbox (0, 0, maxx, maxy, 7)
        colourback (black)
        colour (white)
        put "5. If the shooter rolls a seven (called a seven-out) the shooter loses. (Then a new shooter takes over.)"
        getch (x)
        cls
        drawfillbox (0, 0, maxx, maxy, 7)
        exit
    elsif rules = "n" then
        cls
        drawfillbox (0, 0, maxx, maxy, 7)
        exit
    end if
end loop