IS-FORTH alatt hogyan lehet 80 oszlopos módba váltani?

Próbáltam, nem csinál semmit. Hibaüzenetet sem ad. Marad 40 oszlopos a képernyő.

ÁÁÁÁ, de hülye voltam. Kösz. Simán lehagytam előle a kötőjelet... Az agyam valahogy nem úgy processzálta, hogy az egy begépelendő karakter.
Nagyon köszönöm.

Akkor itt az első Forth programom:
EMPTY
: STAR 42 EMIT ; ( -- )
: 03ROLL 3 0 DO 3 ROLL LOOP ; ( n1, n2, n3, n4, -- n4, n1, n2, n3 )
: 3DUP 4 1 DO 2 PICK LOOP ; ( n1, n2, n3 -- n1, n2, n3, n1, n2, n3 )
: PUTSTAR 3DUP + SWAP MOD 0 = 03ROLL - SWAP MOD 0 = OR IF STAR ELSE SPACE THEN ; ( n1, n2, n3 -- )
: ROW 37 0 DO 2DUP I SWAP PUTSTAR LOOP 2DROP ; ( n1, n2 -- )
: SECTION DUP 1 + 0 DO CR DUP I ROW LOOP DROP ; ( n -- )
: STARS BEGIN DUP SECTION REPEAT ; ( patternsize -- ) A verembe kell tenni a minta méretét, és utána a STARS szóval indul. Pl: 8 STARS

A két IF ág ELSE-vel egyszerűsítve:
: READKEY
  1+ BEGIN KEY 48 -
     2DUP > OVER 0 > AND IF
       DUP 48 + EMIT CR SWAP DROP EXIT
    THEN DROP
  REPEAT ;
: 21GAME CLS 102 #GRAPHICS
  0 2 RND
  ." 21 is a two player game." CR
  ." The game is played by choosing a number (1, 2 or 3) to be added to the running total. "
  ." The game is won by the player whose chosen number causes the running total to reach exactly 21." CR
  ." The running total starts at zero. One player will be the computer."
  CR
  BEGIN
    1 SWAP -
    3 INK
    CR ." The sum is " OVER . CR
    1 INK
    DUP 1 = IF
      SWAP
      ." How many would you like add?"
      ."  (1-3) " 3 READKEY
    ELSE
      ." It is the computer's turn."
      SWAP 4 OVER 1- 4 MOD -
      DUP 4 = IF 3 RND 1+ MIN THEN
      DUP CR ." Computer adds " . CR
    THEN
    +
    SWAP
  OVER 21 < NOT UNTIL
  CR 3 INK
  0 = IF ." Bad luck. Computer wins."
  ELSE ." Congratulations. You win."
  THEN CR DROP 1 INK 101 #GRAPHICS
 ;
 

Nem semmi! Az én agyam nem veszi be ezt a nyakatekert szintaxist

Nekem másfél nap volt megírni a csillagrajzolót olyanra, amilyenre akartam. Pedig amúgy programozóként dolgozom. Szóval nekem is nehéz volt. Szünidei kihívásnak vettem.

Következőnek, amit kinéztem magamnak, az a Demo kazettáról az Animan.
Bár ott elég sokat kellene zsonglőrködni a veremmel, meg a cindexszel is.

Ez vajon miért nem működik?

( Vangelis )
: PL
  DURATION PITCH 1 SOUND
;

: VANGELIS
  0 63 63 2 PHASE 0 -10 -10 4 PHASE
  0 -40 -40 20 PHASE 1 ENVELOPE
  160 LEFT 160 RIGHT
...

Nem értek hozzá, de nem lehet, hogy ilyesmi kellene?

: PL
  160 LEFT 160 RIGHT ENVELOPE DURATION PITCH 1 SOUND

És az envelope és a duration után/elé is kellene valami szám/változó? Az envelope fázisok végére pedig nem kellene a LEFT és a RIGHT? És az envelope fázisai mennének előbbre, utána a sound, ami megszólaltatja?
Amúgy a számok alapján nekem nem Vangelisnek tűnik, hanem valami klasszikus lehet, de meg nem mondom, micsoda...