; this will speed of floppy access!
Addbuffers df0: 25

c:SetPatch >NIL: ;patch system functions
cd c:
echo " 4D-BBS Demo by CornerStone Software"

FF >NIL: -0 ;speed up Text

SYS:System/SetMap usa1 ;Activate the ()/* on keypad

path c: ram: add ;set path for Workbench

cd :

makedir ram:env
copy 4D-BBS:envarc/#? ram:env

; run the BBS. This doesn't have to be "stop" the system.
; you could RUN >NIL: <NIL: 4D-BBS and continue in BBS:

execute S:BBS

