/BANNER ##### # ######## # ##### ## ##### ## ## (TM) ## ## ### ## ### ## ## ## ## ## ## ## ## ## ## ## ## #### ## #### ### ## ## ####### ## ####### ## ## ## ## ## ##### ## ## ## ## ## ## ###### ##### ## ## #### ##### ## ## ## ## ## ## ## ## ## ## ###### # ##### Data Access Corporation Miami, Florida USA /FEATURES **************************************************************************** * * * DataFlex 2.0 * * Data Access Corporation * * FEATURES * * * **************************************************************************** ____________________________________________________________ ____________________________________________________________ ____________________________________________________________ ____________________________________________________________ ____________________________________________________________ ____________________________________________________________ This is a sample of an "IMAGE" format screen. /WORDS **************************************************************************** * * * DataFlex 2.0 * * Data Access Corporation * * The WORDS of DataFlex * * * **************************************************************************** DEFINITION FILE CONTROL ---------- ---------- --------- Indicator Open / Close While / End Number Save / Delete Repeat / Until String Find Indicate/ If Integer Relate Begin / End Date Reverse Gosub / Return Move Goto / On goto FORMS I/O CONSOLE I/O SEQUENTIAL I/O ------------- ----------- -------------- Move Move Move Page Input / Show Direct Input Accept / Display Clearscreen Direct Output Output / Outfile Gotoxy / Clearxy Read / Write /LISTING **************************************************************************** * * * DataFlex 2.0 * * Data Access Corporation * * SAMPLE PROGRAM * * * **************************************************************************** This is a sample of a DataFlex configuration file: /KEY **************************************************************************** * * * DataFlex 2.0 * * Data Access Corporation * * * **************************************************************************** A KEY HAS BEEN PRESSED. PLEASE HIT RETURN TO START OVER: ________ /* START: STRING ESC 2 STRING BRIGHT 2 CHARACTER 27 TO ESC CHARACTER 40 TO BRIGHT SHOW ESC BRIGHT PAGE BANNER // Show the banner SHOW ESC BRIGHT GOSUB WAIT // Wait for slow readers KEYCHECK GOTO DOKEY // Has a key been pressed? DIRECT_INPUT 'FEATURES' // Get input from features file [SEQEOF] ABORT // If none, abort STRING TEMP PAGE FEATURES // Show features page READLN TEMP // get one feature REPEAT // show features in loop MOVE FEATURES.5 TO FEATURES.6 // move feature MOVE FEATURES.4 TO FEATURES.5 // lines down MOVE FEATURES.3 TO FEATURES.4 MOVE FEATURES.2 TO FEATURES.3 MOVE FEATURES.1 TO FEATURES.2 MOVE TEMP TO FEATURES.1 // insert new one. READLN TEMP // get next one INDICATE OK AS TEMP GT ' ' [OK NOT SEQEOF] LOOP // until blank or EOF GOSUB WAIT // wait for impressed readers PAGE WORDS // show them the words of DataFlex GOSUB WAIT // wait for the thought to form GOSUB WAIT // a long time KEYCHECK GOTO DOKEY // if key is pressed DIRECT_INPUT 'JOEDEMO' // open source to this program PAGE LISTING // listing header [NOT SEQEOF] REPEAT // type the file READLN TEMP // from source [NOT SEQEOF] SHOWLN TEMP // to console [NOT SEQEOF] LOOP // until EOF GOSUB WAIT // wait for thought patterns of recognition KEYCHECK GOTO DOKEY GOTO START // do it all over WAIT: NUMBER COUNT // wait-a-while subroutine MOVE 100 TO COUNT WHILE COUNT GT 0 CALCULATE (COUNT-1) TO COUNT END RETURN DOKEY: PAGE KEY // key press routine ACCEPT KEY.1 [KEY.ESCAPE] CHAIN KEY.1 GOTO START //...And that's all there is to it! that's all there is to it! CL40?ªEª COUNT|VN2PªXª[ªWHILE$341aªgª½ªEND$342pªxª WHILE$3|CL43„ªŠª