mirror of
https://github.com/forth-ev/VolksForth.git
synced 2024-05-28 11:41:29 +00:00
1 line
6.0 KiB
Plaintext
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 |