XProfan

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Hypertext mit Profan²
Declare Meldung$,Ende%

Proc Boat

    Cls
    LoadBmp BOAT1.BMP,2,20;0
    UseBrush 1,@RGB(0,31,31)
    TextColor @RGB(0,0,31),-1
    RoundRect 110,16-190,36;10,10
    UseFont System,1,3,0,0,1
    DrawText 116,19,A
    UseFont System,1,3,0,0,0
    DrawText 126,19,bout...
    RoundRect 20,270-70,290;10,10
    UseFont System,1,3,0,0,1
    DrawText 26,273,E
    UseFont System,1,3,0,0,0
    DrawText 36,273,xit
    RoundRect 20,300-180,320;10,10
    UseFont System,1,3,0,0,1
    DrawText 26,303,M
    UseFont System,1,3,0,0,0
    DrawText 38,303,echanical Systems
    RoundRect 20,330-210,350;10,10
    UseFont System,1,3,0,0,1
    DrawText 26,333,D
    UseFont System,1,3,0,0,0
    DrawText 36,333,eck & Cockit Framing
    RoundRect 20,360-240,380;10,10
    UseFont System,1,3,0,0,1
    DrawText 26,363,H
    UseFont System,1,3,0,0,0
    DrawText 36,363,ull Framing and Planking
    TextColor 0,-1
    UseFont Helv,18,0,0,0,0
    DrawText 300,363,©1991-2003 Roland G. Hülsmann (Profan Version)
    UseFont System,1,3,0,0,0

EndProc

Proc About

    Let Meldung$ = IRENE
    + Designed by John L. Hacker
    + Length: 28 feet
    + Draft: 2 feet
    + Beam: 6 feet 8 inches
    + Speed: 22 mph
    @MessageBox(Meldung$,About...,64)

EndProc

Proc Mechanics

    Cls
    LoadBmp MECH1.BMP,2,20;0
    UseBrush 1,@RGB(0,31,31)
    TextColor @RGB(0,0,31),-1
    RoundRect 520,330-570,350;10,10
    UseFont System,1,3,0,0,1
    DrawText 526,333,B
    UseFont System,1,3,0,0,0
    DrawText 536,333,ack
    TextColor 0,-1
    UseFont Helv,18,0,0,0,0
    DrawText 300,363,©1991-2003 Roland G. Hülsmann
    (Profan Version)
    UseFont System,1,3,0,0,0

EndProc

Proc Cockpit

    Cls
    UseBrush 1,@RGB(0,31,31)
    LoadBmp COCKPIT1.BMP,2,20;0
    TextColor @RGB(0,0,31),-1
    RoundRect 520,330-570,350;10,10
    UseFont System,1,3,0,0,1
    DrawText 526,333,B
    UseFont System,1,3,0,0,0
    DrawText 536,333,ack
    TextColor 0,-1
    UseFont Helv,18,0,0,0,0
    DrawText 300,363,©1991-2003 Roland G. Hülsmann
    (Profan Version)
    UseFont System,1,3,0,0,0

EndProc

Proc Frame

    Cls
    UseBrush 1,@RGB(0,31,31)
    LoadBmp FRAME1.BMP,0,0;0
    TextColor @RGB(0,0,31),-1
    RoundRect 520,330-570,350;10,10
    UseFont System,1,3,0,0,1
    DrawText 526,333,B
    UseFont System,1,3,0,0,0
    DrawText 536,333,ack
    TextColor 0,-1
    UseFont Helv,18,0,0,0,0
    DrawText 300,363,©1991-2003 Roland G. Hülsmann
    (Profan Version)
    UseFont System,1,3,0,0,0

EndProc

REM Hauptprogramm
Set(TrueColor,0)
Set(MessageMode,0)
WindowStyle 16
WindowTitle HYPERTEXT
Ende% = 0
Boat

WhileNot Ende%

    WaitInput

    If @KeyIn(Aa) or @Mouse(110,16 - 190,36)

        About

    ElseIf @KeyIn(Ee) or @Mouse(20,270 - 70,290)

        Let Ende% = 1

    ElseIf @KeyIn(Mm) or @Mouse(20,300 - 180,320)

        Mechanics

    ElseIf @KeyIn(Dd) or @Mouse(20,330 - 210,350)

        Cockpit

    ElseIf @KeyIn(Hh) or @Mouse(20,360 - 240,380)

        Frame

    ElseIf @KeyIn(Bb) or @Mouse(520,330 - 570,350)

        Boat

    EndIf

Cls
Fin