home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power-Programmierung
/
CD1.mdf
/
forth
/
compiler
/
love
/
demo_ld.dem
< prev
next >
Wrap
Text File
|
1993-04-11
|
745b
|
33 lines
|O|Dalso ourdemo : junk ; last demo-hs !|E
|"In the following, note how a new screens file is created"
|"and how easy it is to mix screens and text."
|L|"Note how easy it is to use DOS commands from within LOVE-Forth."
|Fpage
|A|Kopen-new" 1demo.scr"
DOS DIR/W
|"Notice the new file, 1demo.scr"
|F1 edit ( editor with built-in help: uses control-x )|L|F
: Hello ( -- )
10 0
dl ." Hello" cr
loop ." Done" ;
|Ff1 load
|O|" After an error, 'EL' may be used to edit the bad screen"
|Kel|L|F
of 1 load
Hello
forget Hello
el|L|F
\ Now demonstrating file nesting:
include" 2demo.txt"
.( On screen: ) blk @ .f|F
DOS type 2demo.txt
1 load|L|F
cr intro|L|F
"close
DOS del 1demo.scr
|F|Bourdemo to-menu