VolksForth/msdos/AtariPortfolio/pofo.fb
2020-06-30 10:22:57 +02:00

1 line
6.0 KiB
Plaintext

\ Atari Portfolio Systemenhancements and Patches cas 14nov05 \ ?CR WORDS cas 14nov05.( Atari Portfolio System Enhancements ) cr : ?CR col c/row 8 - u> 0=EXIT CR ; : WORDS [COMPILE] ASCII CAPITAL >R CONTEXT @ BEGIN @ DUP STOP? 0= AND WHILE ?CR DUP 2+ R@ BL = OVER 1+ C@ R@ = OR IF .name space ELSE DROP THEN REPEAT DROP RDROP ; IMMEDIATE : POFOLOGO PAGE ." volksFORTH-83 3.81" CR ." Atari Portfolio" CR [ errorhandler ] Literal @ errorhandler ! ['] noop Is 'abort end-trace clearstack standardi/o interpret quit ; .( loaded ) CR