home *** CD-ROM | disk | FTP | other *** search
/ The Datafile PD-CD 5 / DATAFILE_PDCD5.iso / utilities / s / stronged / !StrongED / Defaults / Modes / BASIC < prev    next >
Encoding:
Text File  |  1997-03-29  |  3.6 KB  |  157 lines

  1.  
  2. HelpPath    BASIC,Assembly,SWI,
  3.  
  4. ID_FirstChar    A-Za-z_
  5. ID_Middle    A-Za-z_0-9
  6. ID_LastChar    $%
  7.  
  8. #----------------------------------------------------------------------
  9.  
  10. # Immediate commands :
  11. # APPEND AUTO DELETE EDIT HELP LIST LISTO LOAD LVAR NEW OLD
  12. # RENUMBER RUN SAVE TWIN TWINO
  13.  
  14. SyntaxOptions
  15.     SingleQuote    No
  16.     DoubleQuote    Yes
  17.     QuoteQuote    Yes
  18.     SplitString    No
  19.     HexPrefix    &
  20.     BinPrefix    %
  21. End
  22.  
  23. #SyntaxComment 1
  24. #    Type        OneLine
  25. #    StartWith    ;
  26. #    EndWith        :
  27. #End
  28.  
  29. SyntaxComment 2
  30.     Type        OneLine
  31.     StartWith    REM
  32. End
  33.  
  34. SyntaxWords Group1 EndAlways case
  35.     CALL CASE CHAIN CLEAR DATA DEF DIM ELSE END ENDCASE ENDIF
  36.     ENDPROC ENDWHILE ERROR FOR GOSUB GOTO IF INSTALL LET LIBRARY
  37.     LOCAL NEXT ON OTHERWISE OVERLAY QUIT REPEAT RESTORE RETURN
  38.     RUN STOP SYS THEN TRACE UNTIL USR WHEN WHILE
  39. End
  40.  
  41. SyntaxWords Group2 EndAlways case
  42.     ABS ACS ADVAL AND ASC ASN ATN BEAT BEATS BGET BPUT CHR$ CIRCLE
  43.     CLG CLOSE CLS COLOR COLOUR COS COUNT DEG DIV DRAW ELLIPSE
  44.     ENVELOPE EOF EOR ERL ERR EVAL EXP EXT FALSE FILL GCOL GET HIMEM
  45.     INKEY INPUT INSTR INT LEFT$ LEN LINE LN LOG LOMEM MID$ MOD MODE
  46.     MOUSE MOVE NOT OF OFF OPENIN OPENOUT OPENUP OR ORIGIN OSCLI PAGE
  47.     PI PLOT POINT POS PRINT PTR RAD READ RECTANGLE REPORT REPORT$
  48.     RIGHT$ RND SGN SIN SOUND SPC SQR STEP STEREO STR$ STRING$ SUM
  49.     SUMLEN SWAP TAB TAN TEMPO TIME TINT TO TOP TRUE VAL VDU VOICE
  50.     VOICES WAIT WIDTH
  51. End
  52.  
  53. SyntaxWords Group3 EndOfID case
  54.     PROC FN
  55. End
  56.  
  57. #----------------------------------------------------------------------
  58.  
  59. Search
  60.     _Indent2    {" "} [ (("REM") | (";"~":") {" "} ]
  61.     Bchar        Alpha|"_"|"`"
  62.     _MarkWord    (Bchar {Bchar|Digit} ["%"|"$"]) | ("&" {Hex}+) | {Digit}+
  63.     _MoveWord    (Bchar {Bchar|Digit} ["%"|"$"]) | ("&" {Hex}+) | {Digit}+
  64.     Func        "DEF" {" "} "PROC"|"FN" @0 Bchar {Bchar|Digit}
  65.     Func2        "DEF" {" "} CW ~Bchar
  66.     Label        [";:"] "." CW ~(Bchar|D)
  67.     fold_start    "DEF"
  68.     fold_end    "ENDPROC" | ("="*>) {NL}+
  69. End
  70.  
  71. #FoldParm1 ("REM {{{", "REM }}}",startofline,case)
  72. FoldParm2 (fold_start, fold_end,startofline,case)
  73.  
  74. KeyList
  75. #    ^R        Indent ("REM ")
  76.     ^D,^F        InsertStr ("FN_ForceDebug")
  77.     ^D,^R        InsertStr ("FN_RestoreDebug")
  78.     ^D,^D        InsertStr ("FN_Debug(pass%,\"\")")
  79.     ^Delete        InsertStr(":") DeleteRight
  80.     ^Return        NewLine(indent,_Indent2)
  81.  
  82.  
  83. End
  84.  
  85. Functions
  86.  
  87.     Key    ⇧F2
  88.     Menu    List DEF PROC/FN  ⇧F2
  89.     Icon    LoF
  90.     Select    ListOfFound (Func,All,Align,Line,Case)
  91.     Help    HBa_lof
  92.  
  93.     Adjust    ListOfFound (";:.",All,After,Line,Case)
  94.  
  95.     Key     ⇧PgUp
  96.     Icon    up
  97.     Select    GotoPrev (Func,Text,Line,Case)
  98.     Help    HBa_up
  99.  
  100.     Key     ^PgUp
  101.     Adjust    GotoPrev (";:.",Text,Line,Case)
  102.  
  103.     Key     ⇧PgDown
  104.     Icon    down
  105.     Select    GotoNext (Func,Text,Line,Case)
  106.     Help    HBa_dn
  107.  
  108.     Key     ^PgDown
  109.     Adjust    GotoNext (";:.",Text,Line,Case)
  110.  
  111.     Key    F10
  112.     Menu    Run                F10
  113.     Icon    run
  114.     Select    SetTmp() RunBasic(Nosave)
  115.     Help    HBa_run
  116.  
  117.     Key    ⇧F10
  118.     ⇧Select    SetTmp() RunBasic(Save)
  119.  
  120.     Key    ^F10
  121.     Adjust    SetTmp() RunBasic(Nosave,Quit,Taskwindow)
  122.  
  123.     Key    ^⇧F10
  124.     ⇧Adjust    SetTmp() RunBasic(Save,Quit,Taskwindow)
  125.  
  126.     Key    ^G
  127.     Menu    Goto label/DEF PROC/FN
  128.     Icon    goto
  129.     Select    Push GotoFound (Func2,All,Whole,Line,Case)
  130.     Help    HBa_go
  131.  
  132.     Key    ^⇧G
  133.     Adjust    Push GotoFound (Label,All,Whole,Line,Case)
  134.  
  135.     Key    ^G 2
  136.     ⇧Select    Pop
  137.  
  138.     Key    ^⇧G 2
  139.     ⇧Adjust    Pop
  140.  
  141. End
  142.  
  143. Shortcuts
  144.     P.    PRINT \@
  145.     DF    DEF FN\@\n\n=0
  146.     DP    DEF PROC\@\n\nENDPROC
  147.     CA.    CASE \@ OF\n\i  WHEN \@\n\iENDCASE
  148.     WH.    WHILE \@\n\i  \@\n\iENDWHILE
  149.     RE.    REPEAT\n\i  \@\n\iUNTIL ()
  150.     ERR.    ON ERROR: ON ERROR OFF: PRINT REPORT$;" at line ";ERL:END\n\i\@
  151.     FO.    FOR \@\n\i  \@\n\iNEXT
  152.     STM{    STMFD    R13!,{0-12,14}\n\n\i\@\n\n\iLDMFD    R13!,{0-12,PC}^
  153.     LDM{    LDMFD    R13!,{0-12,PC}^
  154.     ``-    REM ----------------------------------------------------------------------------\n
  155.     ``=    REM ============================================================================\n
  156. End
  157.