-
-
Notifications
You must be signed in to change notification settings - Fork 84
/
ip-pascal.scroll
55 lines (50 loc) · 1.91 KB
/
ip-pascal.scroll
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
import ../code/conceptPage.scroll
id ip-pascal
name IP Pascal
appeared 1990
creators Scott Moore
tags pl
website https://web.archive.org/web/20190307061527/http://www.moorecad.com/ippas/
centralPackageRepositoryCount 0
country United States
originCommunity https://scottmoore.consulting
wikipedia https://en.wikipedia.org/wiki/IP_Pascal
example
program hello(input, output);
uses gralib;
var er: evtrec;
begin
bcolor(output, green);
curvis(output, false);
auto(output, false);
page(output);
fcolor(output, red);
frect(output, 50, 50, maxxg(output)-50, maxyg(output)-50);
fcolorg(output, maxint, maxint-(maxint div 3), maxint-maxint div 3);
frect(output, 50, 50, 53, maxyg(output)-50);
frect(output, 50, 50, maxxg(output)-50, 53);
fcolorg(output, maxint div 2, 0, 0);
frect(output, 52, maxyg(output)-53, maxxg(output)-50, maxyg(output)-50);
frect(output, maxxg(output)-53, 52, maxxg(output)-50, maxyg(output)-50);
font(output, font_sign);
fontsiz(output, 100);
binvis(output);
fcolor(output, cyan);
cursorg(output, maxxg(output) div 2-strsiz(output, 'hello, world') div 2+3,
maxyg(output) div 2-100 div 2+3);
writeln('hello, world');
fcolor(output, blue);
cursorg(output, maxxg(output) div 2-strsiz(output, 'hello, world') div 2,
maxyg(output) div 2-100 div 2);
writeln('hello, world');
repeat event(input, er) until er.etype = etterm
end.
related pascal csharp unicode utf-8 java ucsd-pascal visual-basic turbo-pascal linux isbn
summary IP Pascal is an implementation of the Pascal programming language using the IP portability platform, a multiple machine, operating system and language implementation system.
backlinksCount 133
pageId 2096603
dailyPageViews 18
created 2005
appeared 1971
hopl https://hopl.info/showlanguage.prx?exp=6942
isbndb 0