Demo Re-org

Author: bfox9900

DEMO/ALPHA1.FTH renamed to DEMO/Graphics/ALPHA1.FTH

@@ -1,46 +1,46 @@
-\ 99 bottles of beer.  Create a beer language and write the program
-
-NEEDS CASE FROM DSK1.CASE
-
-DECIMAL
-: BOTTLES ( n -- )
-        DUP
-        CASE
-         1 OF    ." One more bottle " DROP ENDOF
-         0 OF    ." NO MORE bottles " DROP ENDOF
-                 . ." bottles "    \ DEFAULT CASE
-        ENDCASE ;
-
-: ,   [CHAR] , EMIT  SPACE ( 100 MS) CR ;
-: .   [CHAR] . EMIT  ( 300 MS)  CR CR CR ;
-
-: HANGOVER    ." :-("  CR ;
-
-: OF       ." of "   ;     : BEER     ." beer " ;
-: ON       ." on "   ;     : THE      ." the "  ;
-: WALL     ." wall" ;      : TAKE     ." take " ;
-: ONE      ." one "  ;     : DOWN     ." down, " ;
-: PASS     ." pass " ;     : IT       ." it "   ;
-: AROUND   ." around" ;    
-
--1 CONSTANT -1
-
-: POPONE    1 SWAP CR ;
-: DRINK     POSTPONE DO ; IMMEDIATE
-: ANOTHER   POSTPONE -1  POSTPONE +LOOP ; IMMEDIATE
-: HOWMANY   S" I " EVALUATE ; IMMEDIATE
-: ONELESS   S" I 1- " EVALUATE ; IMMEDIATE
-: BINARY    2 BASE ! ; 
-
-: BEERS ( n -- )
-      POPONE
-      DRINK
-         HOWMANY BOTTLES OF BEER ON THE WALL ,
-         HOWMANY BOTTLES OF BEER ,
-         TAKE ONE DOWN PASS IT AROUND ,
-         ONELESS BOTTLES OF BEER ON THE WALL .
-      ANOTHER
-      HANGOVER ;
-
-CR .( Usage:  99 BEERS)
-
+\ 99 bottles of beer.  Create a beer language and write the program
+
+NEEDS CASE FROM DSK1.CASE
+
+DECIMAL
+: BOTTLES ( n -- )
+        DUP
+        CASE
+         1 OF    ." One more bottle " DROP ENDOF
+         0 OF    ." NO MORE bottles " DROP ENDOF
+                 . ." bottles "    \ DEFAULT CASE
+        ENDCASE ;
+
+: ,   [CHAR] , EMIT  SPACE ( 100 MS) CR ;
+: .   [CHAR] . EMIT  ( 300 MS)  CR CR CR ;
+
+: HANGOVER    ." :-("  CR ;
+
+: OF       ." of "   ;     : BEER     ." beer " ;
+: ON       ." on "   ;     : THE      ." the "  ;
+: WALL     ." wall" ;      : TAKE     ." take " ;
+: ONE      ." one "  ;     : DOWN     ." down, " ;
+: PASS     ." pass " ;     : IT       ." it "   ;
+: AROUND   ." around" ;    
+
+-1 CONSTANT -1
+
+: POPONE    1 SWAP CR ;
+: DRINK     POSTPONE DO ; IMMEDIATE
+: ANOTHER   POSTPONE -1  POSTPONE +LOOP ; IMMEDIATE
+: HOWMANY   S" I " EVALUATE ; IMMEDIATE
+: ONELESS   S" I 1- " EVALUATE ; IMMEDIATE
+: BINARY    2 BASE ! ; 
+
+: BEERS ( n -- )
+      POPONE
+      DRINK
+         HOWMANY BOTTLES OF BEER ON THE WALL ,
+         HOWMANY BOTTLES OF BEER ,
+         TAKE ONE DOWN PASS IT AROUND ,
+         ONELESS BOTTLES OF BEER ON THE WALL .
+      ANOTHER
+      HANGOVER ;
+
+CR .( Usage:  99 BEERS)
+

DEMO/ALPHAFLY.FTH renamed to DEMO/Graphics/ALPHAFLY.FTH

@@ -1,64 +1,66 @@
-\ Guess the number in CAMEL99 Forth
-
-INCLUDE DSK1.RANDOM
-INCLUDE DSK1.INPUT
-
-DECIMAL
-VARIABLE TRIES
-VARIABLE GUESS
-
-: ASK    ( -- )
-         CR CR
-         TRIES @ 0=
-         IF    ." Guess a number between 1 and 10: "
-         ELSE  ." Try Again: "
-         THEN ;
-
-DECIMAL
-: RANGE  ( n -- ? )
-         1 11 WITHIN 0=
-         IF CR ." That's not valid so... " THEN ;
-
-: GET-GUESS ( -- ) GUESS #INPUT  ;
-
-: REPLY  ( the# guess -- n)
-         GUESS @              \ fetch GUESS variable and DUP
-         DUP RANGE            \ make a DUP & check if the guess is in range
-         2DUP <>              \ compare the# and the guess for not equal
-         IF CR HONK ." No, it's not " DUP .
-         THEN ;
-
-: .TRIES ( -- )
-         TRIES @ DUP .  
-         1 = IF ." try!" ELSE ." tries!" THEN ;
-
-: FINISH ( -- )
-          CR
-          CR BEEP 50 MS  BEEP ." Yes it was " .
-          CR ." You got it in " .TRIES
-          CR ;
-
-: Y/N?   ( -- flag)  KEY [CHAR] N = ;
-
-: PLAYAGAIN? ( -- flag)
-          CR ." Want to play again? (Y/N)"  Y/N?  ;
-
-HEX
-: BLK/YEL   1B 7 VWTR ;  \ CLEAR, yellow bg
-
-DECIMAL
-: RUN ( -- )
-       BEGIN
-          PAGE BLK/YEL
-          0 TRIES !
-          10 RND 1+ ( -- rnd#)
-          BEGIN
-             ASK
-             GET-GUESS
-             REPLY
-            1 TRIES +!
-          OVER = UNTIL
-          FINISH
-          PLAYAGAIN?
-        UNTIL
-        CR ." OK, thanks for playing!" ;
+\ Guess the number in CAMEL99 Forth
+
+\ This is just an example of how to do common things in Forth
+
+INCLUDE DSK1.RANDOM
+INCLUDE DSK1.INPUT
+
+DECIMAL
+VARIABLE TRIES
+VARIABLE GUESS
+
+: ASK    ( -- )
+         CR CR
+         TRIES @ 0=
+         IF    ." Guess a number between 1 and 10: "
+         ELSE  ." Try Again: "
+         THEN ;
+
+DECIMAL
+: RANGE  ( n -- ? )
+         1 11 WITHIN 0=
+         IF CR ." That's not valid so... " THEN ;
+
+: GET-GUESS ( -- ) GUESS #INPUT  ;
+
+: REPLY  ( the# guess -- n)
+         GUESS @              \ fetch GUESS variable and DUP
+         DUP RANGE            \ make a DUP & check if the guess is in range
+         2DUP <>              \ compare the# and the guess for not equal
+         IF CR HONK ." No, it's not " DUP .
+         THEN ;
+
+: .TRIES ( -- )
+         TRIES @ DUP .
+         1 = IF ." try!" ELSE ." tries!" THEN ;
+
+: FINISH ( -- )
+          CR
+          CR BEEP 50 MS  BEEP ." Yes it was " .
+          CR ." You got it in " .TRIES
+          CR ;
+
+: Y/N?   ( -- flag)  KEY [CHAR] N = ;
+
+: PLAYAGAIN? ( -- flag)
+          CR ." Want to play again? (Y/N)"  Y/N?  ;
+
+HEX
+: BLK/YEL   1B 7 VWTR ;  \ CLEAR, yellow bg
+
+DECIMAL
+: RUN ( -- )
+       BEGIN
+          PAGE BLK/YEL
+          0 TRIES !
+          10 RND 1+ ( -- rnd#)
+          BEGIN
+             ASK
+             GET-GUESS
+             REPLY
+            1 TRIES +!
+          OVER = UNTIL
+          FINISH
+          PLAYAGAIN?
+        UNTIL
+        CR ." OK, thanks for playing!" ;