Nejake Apky se objevi nejdyl do tydne, zejmena na to, co bude nejvic potreba - evidence, kroniky, matriky a tak podobne - napsat a odladit jednoduchou databazi, kdyz dokazes aspon cist a psat sektory, je prace tak na tyden po vecerech (Jak to vim? No uz jsem to kdysi udelal. Na srovnatelnem HW behala vyrazne rychleji, nez tehdy aktualni DBIII. Pravda, ze dnes bych ji mel asi rychleji...) a potrebujes mit prehled, kolik jsi kde zasadil, kolik se urodilo, kdy zacina a konci zima, kolik toho sni komunita, kolik se da cekat pristi rok a teda jestli bude prebytek a ma cenu neco chovat, nebo bude nedostatek a ma se futrovat hlavne z toho, co se v okolni prirode najde ...

Na nejake xichtoknihy nebude ani cas, ani nalada.

Rychle napsane aplikace budou natolik jednoduche, ze v nic moc zavaznych chyb nebude, protoze by byly okamzite zrejme (a utoky po siti te na zacatku zajimat nebudou, pokud bude sit, budes na ni mit jiny pocitac, uz kvuli kapacite a pozadavkum, javascriptove obludy a jine flashe te taky nebudou ohrozovat, kdyz vystup bude plaintext, mozna nejake jednoduche HTML. A jina barva ramecku a neplynule prechody v menu chyby nejsou)

Jestli bude internet je dost otazka, ale i kabelovy prenos (SDcka se daji do kabely a nekdo je odnese, ci odveze na koni do vedlejsi vesnice) bude pro vetsinu potrebnych veci vice nez dostacovat.

A samozrejme nad FORTHem si muze svoji appku napsat kazdy jakou chce a potrebuje a ver, ze zakladni i pokrocilejsi knihovny budou pribyvat docela rychle, protoze je velice snadne je psat a rozhrani se da udelat velice jednoduse - proste popises, v jakem poradi budou jake veci na zasobniku pred a po pouziti, to ma FORTH od pradavna.

: SQR ( n -- n ) ( druha mocnina ) DUP * ;

( Samozrejme kulate zavorky jsou komentare a slo by je vynechat, ale bez dokumentace se clovek v kodu snadno ztrati )

Trochu slozitejsi vec (problem 8 dam) muze vypadat treba takto (nerikam, ze je to napsane optimalne, ale funguje to napsal a odladil jsem to za vecer a na historickem zeleze to trva par milisekund a da to vsechny vysledky. Napsat podobne treba MasterMind, nebo jine jednodussi hry je radove stejne slozite. Pokud by se pridalo slovo na cteni stisknute klavesy BEZ cekani (zalezitost par ASM instrukci, detail), tak klidne i meteority by sis mohl zaparit, jakmile by se s tim nechalo nejake decko hrat par veceru)

HERE @ HERE0 !
8 CONSTANT DAMES
DAMES CELLS ALLOT CONSTANT ROWS


: ABS ( n -- |n| ) DUP 0< IF NEGATE THEN ;
: ROW@ ( m -- pos) CELLS ROWS + @ ;
: ROW! ( pos m -- ) CELLS ROWS + ! ;
: ROWS. ( -- ) ( Print ROWS) 0 BEGIN DUP ROW@ 1+ . 1+ DUP DAMES >= UNTIL DROP CR ;

: SAFE ( m1 m2 -- flag) ( one pair) 
	2DUP ROW@ SWAP ROW@ 
	2DUP = IF
		2DROP 2DROP FALSE 
	ELSE
		- ABS -ROT - ABS 
		= NOT 
	THEN ;
: CHECK ( m m1 -- flag) ( root test -- flag)
	2DUP SAFE IF 
		?DUP 0= IF DROP TRUE ELSE 1- RECURSE THEN
	ELSE 2DROP FALSE 
	THEN ;
: TRY_ROW ( m -- ) ( try put DAMES here and test conflict, if OK continue)
	DAMES BEGIN 
		1- 2DUP SWAP ROW!
		OVER DUP 1- CHECK IF
			OVER DAMES 1- = IF ROWS. ELSE OVER 1+ RECURSE THEN
		THEN
	?DUP 0= UNTIL
	DROP ;
: 8QEENS CR DAMES BEGIN 1- DUP ROWS ! 1 TRY_ROW  ?DUP 0= UNTIL ;
.( 8QEENS :) HERE @ HERE0 @ - . .( bytes )