Íà÷àëüíûé êóðñ ïðîãðàììèðîâàíèÿ íà ÿçûêå Ôîðò
IF ÑÊÀÍÅÐ ELSE DROP THEN
î÷åðåäè, ñëîâà äëÿ ôîðìàòèðîâàíèÿ 9 DUP ÎÑÒÀÒÎÊ @ BUP 0> IF ÑÊÀÍÅÐ ELSE DROP THEN OVER - 10 DUP 1+ NEGATE ÎÑÒÀÒÎÊ +! ; 11 : ÑÞÄÀ? ( ñ÷åò÷èê -- 1=ïîäõîäèò äëÿ äàííîé ñòðîêè) 12 ÏÎ-ÃÎÐÈÝÎÍÒÀËÈ @ + ÏÐÀÂÃÐÀÍ < ; 13 : SPACE' ÏÎ-ÃÎÐÈÇÎÍÒÀËÈ @ IF SPACE 1 ÏÎ-ÃÎÐÈÝÎÍÒÀËÈ +! THEN ; 14 : CR' CR 0 ÏÎ-ÃÎÐÈÇÎÍÒÀËÈ ! ; 15 157 LOAD 158 LOAD
Block # 157 0 ( Ãåíåðàòîð áåññìûñëåííûõ âûðàæåíèé, âàðèàíò ñ ñàìîôîðìàòèðîâàíèåì ) 1 : .ÑËÎÂÎ ( à # -- ) \ âûâîä ñëîâà, åñëè íåîáõîäèìî, âûïîëíåíèå CR 2 DUP ÑÞÄÀ? IF SPACE' ELSE CR' THEN 3 DUP ÏÎ-ÃÎÐÈÇÎÍÒÀËÈ +! TYPE ; 4 : ÑËÅÄÓÞÙÅÅ ( a # -- ñëåä.àäð.) 5 + 1+ ; 6 : ÂÛÂÎÄ ( à #ñèìâîëîâ -- ) \ âûâîä ñôîðìàòèðîâàííîãî òåêñòà 7 ÎÑÒÀÒÎÊ ! 8 BEGIN ÄÀÉÑËÎÂÎ DUP WHILE 2DUP .ÑËÎÂÎ ÑËÅÄÓÞÙÅÅ REPEAT 9 2DROP ; 10 : ÀÁÐÅÄ ( -- à) 161 BLOCK ; \ ñëó÷àéíûå ñëîâà 11 : ÎÁÎÐÎÒÛ ( -- à) 160 BLOCK ; \ ñâÿçûâàþùèå îáîðîòû 12 : ÂÂÅÄÅÍÈß ( - a) 1S9 BLOCK ; \ íà÷àëà ôðàç 13 : ÁÐÅÄ ( #ñòðîêè #ñòîëáöà -- à) \ ïîëó÷åíèå àäðåñà ñëîâà 14 20 * SWAP 64 * + ÀÁÐÅÄ + ; 15
Block # 158 0 ( Ãåíåðàòîð áåññìûñëåííûõ âûðàæåíèé, âàðèàíò ñ ñàìîôîðìàòèðîâàíèåì ) 1 : .ÁÐÅÄ ( #ñòðîêè #ñòîëáöà -- ) ÂÐÅÄ 20 ÂÛÂÎÄ ; 2 : ×ÀÑÒÜ-ÐÅ×È ( #ñòðîêè -- ) CREATE , \ îïðåäåëåíèå ÷àñòåé ðå÷è 3 DOES> @ 10 CHOOSE SWAP .ÁÐÅÄ ; 4 0 ×ÀÑÒÜ-ÐÅ×È 1ÏÐÈËÀÃÀÒÅËÜÍÎÅ 5 1 ×ÀÑÒÜ-ÐÅ×È 2ÏÐÈËÄÃÀÒÅËÜÍÎÅ 6 2 ×ÀÑÒÜ-ÐÅ×È ÑÓÙÅÑÒÂÈÒÅËÜÍÎÅ 7 : ÔÐÀÇÀ 1ÏÐÈËÀÃÀÒÅËÜÍÎÅ 2ÏÐÈËÀÃÀÒÅËÜÍÎÅ ÑÓÙÅÑÒÂÈÒÅËÜÍÎÅ ; 8 : ÎÁÎÐÎÒ ( #ãðóïïû -- ) [ 4 64 * ] LITERAL * 9 3 CHOOSE 64 * + ÎÁÎÐÎÒÛ + 64 ÂÛÂÎÄ ; 10 : ÏÎÂÅÑÒÂÎÂÀÍÈÅ 4 0 DO I ÎÁÎÐÎÒ ÔÐÀÇÀ LOOP ." ." CR' ; 11 : ÂÂÅÄÅÍÈÅ ( #àáçàöà -- ) 12 CR' 64 * ÂÂÅÄÅÍÈß + 64 ÂÛÂÎÄ ; 13 : ÑÎÎÁÙÅÍÈÅ CR' CR' 4 0 DO I ÂÂÅÄÅÍÈÅ ÏÎÂÅÑÒÂÎÂÀÍÈÅ LOOP ; 14 15
Block # 159 0  ÄÀÍÍÎÌ ÑÎÎÁÙÅÍÈÈ ÌÛ ÐÀÑÑÊÀÆÅÌ ÂÀÌ Î ÒÎÌ, ×ÒÎ 1 Ñ ÎÄÍÎÉ ÑÒÎÐÎÍÛ, ÈÑÑËÅÄÎÂÀÍÈß ÏÎÊÀÇÀËÈ, ×ÒÎ 2 Ñ ÄÐÓÃÎÅ ÑÒÎÐÎÍÛ, ÒÅÌ ÍÅ ÌÅÍÅÅ, ÏÐÀÊÒÈ×ÅÑÊÈÉ ÎÏÛÒ ÏÎÊÀÇÛÂÀÅÒ, ×ÒÎ 3  ÐÅÇÓËÜÒÀÒÅ ÍÀØÅ ÏÐÅÄËÎÆÅÍÈÅ ÇÀÊËÞ×ÀÅÒÑß Â ÒÎÌ, ×ÒÎ 4 5 6 7 8 9 10 11 12 13 14 15
Block # 160 0 ÏÐÈÌÅÍßß 1 ÂÊËÀÄÛÂÀß ÈÌÅÞÙÈÅÑß Â ÍÀËÈ×ÈÈ ÑÐÅÄÑÒÂÀ  2 ÑÒÐÓÊÒÓÐÈÐÎÂÀÍÍÎ ÏÐÈÌÅÍßß 3 4 ÈÌÅß Â ÂÈÄÓ 5 ×ÒÎÁÛ ÊÎÌÏÅÍÑÈÐÎÂÀÒÜ 6 Ó×ÈÒÛÂÀß 7 8 ÏÐÅÄÑÒÀÂËßÅÒÑß ÂÎÇÌÎÆÍÛÌ ÄÀÆÅ ÍÅÑÌÎÒÐß ÍÀ 9 ÑÒÀÍÎÂÈÒÑß ÍÅÎÑÓÙÅÑÒÂÈÌÛÌ ÏÎÄÍÈÌÀß 10 ÍÅÎÁÕÎÄÈÌÎ ÐÀÑÑÌÀÒÐÈÂÀß 11 12 ÔÓÍÊÖÈÎÍÈÐÎÂÀÒÜ ÊÀÊ 13 ÑÎÇÄÀÒÜ 14 ÅÙÅ ÁÎËÜØÅ ÊÐÅÏÈÒÜ 15
Block # 161 0 ÂÛÑÎÊÈÉ ÊÓËÜÒÓÐÍÛÉ ÓÐÎÂÅÍÜ 1 ÎÁÙÈÉ ÏÐÎÈÇÂÎÄÑÒÂÅÍÍÛÉ ÈÍÒÅÐÅÑ 2 ÀÂÒÎÌÀÒÈÇÈÐÎÂÀÍÍÛÉ ÍÀÓÊÎÅÌÊÈÉ ÊÎÌÏËÅÊÑ 3 ÇÀÏËÀÍÈÐÎÂÀÍÍÛÉ ÂÀËÎÂÎÉ ÎÁÚÅÌ 4 ÈÍÒÅÃÐÈÐÎÂÀÍÍÛÉ ÖÈÔÐÎÂÎÉ ÊÎÝÔÔÈÖÈÅÍÒ 5 ÊÂÀËÈÔÈÖÈÐÎÂÀÍÍÛÉ ÌÍÎÃÎÎÒÐÀÑËÅÂÎÉ ÏÐÈÍÖÈÏ 6 ÏÐÅÄÑÒÀÂÈÒÅËÜÍÛÉ ÕÈÌÈ×ÅÑÊÈÉ ÃÅÍÅÐÀÒÎÐ 7 ÒÅÕÍÎËÎÃÈ×ÅÑÊÈÉ ÍÅÏÐÅÐÛÂÍÛÉ ÏÐÎÖÅÑÑ 8 ÀÂÒÎÍÎÌÍÛÉ ÀÏÏÀÐÀÒÍÛÉ ÈÍÒÅÐÔÅÉÑ 9 ÖÈÔÐÎÂÎÉ ÍÅÇÀÂÈÑÈÌÛÉ ÀÂÒÎÌÀÒ 10 ÑÈÍÕÐÎÍÈÇÈÐÎÂÀÍÍÛÉ ÔÓÍÊÖÈÎÍÀËÜÍÛÉ ÊÐÈÒÅÐÈÉ 11 ÑÈÑÒÅÌÀÒÈÇÈÐÎÂÀÍÍÛÉ ÊÎÐÎÒÊÎÂÎËÍÎÂÎÉ ÏÐÎÅÊÒ 12 ÑËÓ×ÀÉÍÛÉ ÎÒÐÈÖÀÒÅËÜÍÛÉ ÈÌÏÓËÜÑ 13 ÍÅÎÁÛ×ÀÉÍÛÉ ÒÐÓÄÎÂÎÉ ÏÎÄÚÅÌ 14 ÂÐÅÌÅÍÍÛÉ ÍÅÕÀÐÀÊÒÅÐÍÛÉ ÑÏÀÄ 15 ÓÍÈÊÀËÜÍÛÉ ÏÐÎÃÐÀÌÌÍÛÉ ÏÐÎÄÓÊÒ
