/programs/develop/oberon07/Samples/lib_img.ob07 |
---|
File deleted |
\ No newline at end of file |
/programs/develop/oberon07/Samples/RasterW.ob07 |
---|
File deleted |
\ No newline at end of file |
/programs/develop/oberon07/Samples/kfont.ob07 |
---|
File deleted |
\ No newline at end of file |
/programs/develop/oberon07/Samples/vector_ex.ob07 |
---|
File deleted |
\ No newline at end of file |
/programs/develop/oberon07/Samples/Dialogs.ob07 |
---|
5,15 → 5,13 |
VAR header: ARRAY 1024 OF CHAR; back_color: INTEGER; |
PROCEDURE WindowRedrawStatus(p: INTEGER); |
VAR aux: INTEGER; |
BEGIN |
aux := KOSAPI.sysfunc2(12, p) |
KOSAPI.sysfunc2(12, p) |
END WindowRedrawStatus; |
PROCEDURE DefineAndDrawWindow(x, y, w, h, color, style, hcolor, hstyle, htext: INTEGER); |
VAR aux: INTEGER; |
BEGIN |
aux := KOSAPI.sysfunc6(0, x * 65536 + w, y * 65536 + h, color + LSL(style, 24), hcolor + LSL(hstyle, 24), htext) |
KOSAPI.sysfunc6(0, x * 65536 + w, y * 65536 + h, color + LSL(style, 24), hcolor + LSL(hstyle, 24), htext) |
END DefineAndDrawWindow; |
PROCEDURE WaitForEvent(): INTEGER; |
21,15 → 19,13 |
END WaitForEvent; |
PROCEDURE ExitApp; |
VAR aux: INTEGER; |
BEGIN |
aux := KOSAPI.sysfunc1(-1) |
KOSAPI.sysfunc1(-1) |
END ExitApp; |
PROCEDURE pause(t: INTEGER); |
VAR aux: INTEGER; |
BEGIN |
aux := KOSAPI.sysfunc2(5, t) |
KOSAPI.sysfunc2(5, t) |
END pause; |
PROCEDURE Buttons; |
/programs/develop/oberon07/Samples/HW.ob07 |
---|
3,21 → 3,18 |
IMPORT sys := SYSTEM, KOSAPI; |
PROCEDURE WindowRedrawStatus(p: INTEGER); |
VAR res: INTEGER; |
BEGIN |
res := KOSAPI.sysfunc2(12, p) |
KOSAPI.sysfunc2(12, p) |
END WindowRedrawStatus; |
PROCEDURE DefineAndDrawWindow(x, y, w, h, color, style, hcolor, hstyle, htext: INTEGER); |
VAR res: INTEGER; |
BEGIN |
res := KOSAPI.sysfunc6(0, x * 65536 + w, y * 65536 + h, color + LSL(style, 24), hcolor + LSL(hstyle, 24), htext) |
KOSAPI.sysfunc6(0, x * 65536 + w, y * 65536 + h, color + LSL(style, 24), hcolor + LSL(hstyle, 24), htext) |
END DefineAndDrawWindow; |
PROCEDURE WriteTextToWindow(x, y, color: INTEGER; text: ARRAY OF CHAR); |
VAR res: INTEGER; |
BEGIN |
res := KOSAPI.sysfunc6(4, x * 65536 + y, color + LSL(48, 24), sys.ADR(text[0]), LENGTH(text), 0) |
KOSAPI.sysfunc6(4, x * 65536 + y, color + LSL(48, 24), sys.ADR(text[0]), LENGTH(text), 0) |
END WriteTextToWindow; |
PROCEDURE WaitForEvent(): INTEGER; |
25,9 → 22,8 |
END WaitForEvent; |
PROCEDURE ExitApp; |
VAR res: INTEGER; |
BEGIN |
res := KOSAPI.sysfunc1(-1) |
KOSAPI.sysfunc1(-1) |
END ExitApp; |
PROCEDURE draw_window(header, text: ARRAY OF CHAR); |
/programs/develop/oberon07/Samples/HW_con.ob07 |
---|
1,7 → 1,8 |
MODULE HW_con; |
MODULE HW_con; |
IMPORT Out, In, Console, DateTime, ConsoleLib; |
IMPORT Out, In, Console, DateTime; |
PROCEDURE OutInt2(n: INTEGER); |
BEGIN |
ASSERT((0 <= n) & (n <= 99)); |
11,9 → 12,13 |
Out.Int(n, 0) |
END OutInt2; |
PROCEDURE OutMonth(n: INTEGER); |
VAR str: ARRAY 4 OF CHAR; |
VAR |
str: ARRAY 4 OF CHAR; |
BEGIN |
CASE n OF |
| 1: str := "jan" |
| 2: str := "feb" |
28,26 → 33,31 |
|11: str := "nov" |
|12: str := "dec" |
END; |
Out.String(str) |
END OutMonth; |
PROCEDURE main; |
VAR Year, Month, Day, Hour, Min, Sec: INTEGER; |
VAR |
Year, Month, Day, Hour, Min, Sec, Msec: INTEGER; |
BEGIN |
ConsoleLib.open(-1, -1, -1, -1, "Hello!"); |
Out.String("Hello, world!"); Out.Ln; |
Console.SetColor(Console.Yellow, Console.Blue); |
DateTime.Now(Year, Month, Day, Hour, Min, Sec); |
Console.SetColor(Console.White, Console.Red); |
DateTime.Now(Year, Month, Day, Hour, Min, Sec, Msec); |
Out.Int(Year, 0); Out.Char("-"); |
OutMonth(Month); Out.Char("-"); |
OutInt2(Day); Out.Char(" "); |
OutInt2(Hour); Out.Char(":"); |
OutInt2(Min); Out.Char(":"); |
OutInt2(Sec); |
In.Ln; |
ConsoleLib.exit(TRUE) |
OutInt2(Sec) |
END main; |
BEGIN |
main |
Console.open; |
main; |
In.Ln; |
Console.exit(TRUE) |
END HW_con. |