- 01
- 02
- 03
- 04
- 05
- 06
- 07
- 08
- 09
- 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
- 56
- 57
: ?>
BEGIN
SOURCE >IN @ /STRING 2DUP
S" <?" SEARCH NIP
IF
NIP OVER -
DUP 2 + >IN +!
STATE @ IF
POSTPONE SLITERAL
['] TYPE COMPILE,
ELSE
TYPE
THEN
TRUE
ELSE
DROP
STATE @ IF
POSTPONE SLITERAL
['] TYPE COMPILE,
['] CR COMPILE,
ELSE
TYPE CR
THEN
REFILL 0=
THEN
UNTIL
; IMMEDIATE
: ROW
5 0 ?DO
?> <TD> <? I . ?> </TD> <?
LOOP
;
: T-ROWS
0 ?DO
?>
<TR>
<? DUP EXECUTE ?>
</TR>
<?
LOOP
DROP
;
?> <!DOCTYPE HTML>
<HTML>
<HEAD>
<TITLE>OLOLO!</TITLE>
</HEAD>
<BODY>
<H1>THIS IS FORTH BABY ;)</H1>
<TABLE>
<? ' ROW 5 T-ROWS ?>
</TABLE>
</BODY>
</HTML>
Morgoth 26.09.2018 15:16 # +1
roman-kashitsyn 26.09.2018 15:16 # +4
Morgoth 26.09.2018 15:23 # +2
Elvenfighter 26.09.2018 22:24 # +1
Morgoth 27.09.2018 08:01 # +1
Morgoth 27.09.2018 18:02 # +1
ПРЕКЛОНЯЙТЕСЬ ПЕРЕД МОШЬЮ ФОРТА!!!
kegdan 27.09.2018 18:06 # +1