home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / misc / stronged2 / stronged / !StrongED / Modes / BASIC next >
Text File  |  1995-02-14  |  3KB  |  99 lines
  1.  
  2. HelpPath    BASIC,Assembly,SWI,
  3.  
  4. Search
  5.     _Indent2    {" "} [ (("REM") | (";"~":") {" "} ]
  6.     Bchar        Alpha|"_"|"`"
  7.     _MarkWord    (Bchar {Bchar|Digit} ["%"|"$"]) | ("&" {Hex}+) | {Digit}+
  8. #| {~Bchar Any}+
  9.     _MoveWord    (Bchar {Bchar|Digit} ["%"|"$"]) | ("&" {Hex}+) | {Digit}+
  10. #| {~Bchar Any}+
  11. #    _MoveWord    _MarkWord
  12. #    _DeleteWord    _MarkWord
  13.     Func        "DEF" {" "} "PROC"|"FN" @0 Bchar {Bchar|Digit}
  14.     Func2        "DEF" {" "} CW ~Bchar
  15.     Label        [";:"] "." CW ~(Bchar|D)
  16. End
  17.  
  18. KeyList
  19. #    ^R        Indent ("REM ")
  20.     ^D,^F        InsertStr ("FN_ForceDebug")
  21.     ^D,^R        InsertStr ("FN_RestoreDebug")
  22.     ^D,^D        InsertStr ("FN_Debug(pass%,\"\")")
  23.     ^Delete        InsertStr(":") DeleteRight
  24.     ^Return        NewLine(indent,_Indent2)
  25. End
  26.  
  27. Functions
  28.  
  29.     Key    ⇧F2
  30.     Menu    List DEF PROC/FN  ⇧F2
  31.     Icon    LoF
  32.     Select    ListOfFound (Func,All,Align,Line,Case)
  33.     Help    Click to generate list of all procedures and functions.
  34.  
  35.     Adjust    ListOfFound (";:.",All,After,Line,Case)
  36.  
  37.     Key     ⇧PgUp
  38.     Icon    up
  39.     Select    ListOfFound (Func,Text,Align,Line,Case,GotoPrev)
  40.     Help    Click Select to go to previous function, and Adjust to go to previous assembly label.
  41.  
  42.     Key     ^PgUp
  43.     Adjust    ListOfFound (";:.",Text,After,Line,Case,GotoPrev)
  44.  
  45.     Key     ⇧PgDown
  46.     Icon    down
  47.     Select    ListOfFound (Func,Text,Align,Line,Case,Gotonext)
  48.     Help    Click Select to go to next function, and Adjust to go to next assembly label.
  49.  
  50.     Key     ^PgDown
  51.     Adjust    ListOfFound (";:.",Text,After,Line,Case,Gotonext)
  52.  
  53.     Key    F10
  54.     Menu    Run                F10
  55.     Icon    run
  56.     Select    RunBasic
  57.     Help    Click to tokenise program and run it.|MUse shift to save first, and ctrl to run in a taskwindow.
  58.  
  59.     Key    ⇧F10
  60.     ⇧Select    RunBasic(Save)
  61.  
  62.     Key    ^F10
  63.     Adjust    RunBasic(,,Taskwindow)
  64.  
  65.     Key    ^⇧F10
  66.     ⇧Adjust    RunBasic(Save,,Taskwindow)
  67.  
  68.     Key    ^G
  69.     Menu    Goto label/DEF PROC/FN
  70.     Icon    goto
  71.     Select    Push ListOfFound (Func2,All,Whole,Line,Case,GotoFound)
  72.     Help    Select: Goto Procedure/Function.|MAdjust: Goto Label.
  73.  
  74.     Key    ^⇧G
  75.     Adjust    Push ListOfFound (Label,All,Whole,Line,Case,GotoFound)
  76.  
  77.     Key    ^G 2
  78.     ⇧Select    Pop
  79.  
  80.     Key    ^⇧G 2
  81.     ⇧Adjust    Pop
  82.  
  83. End
  84.  
  85. Shortcuts
  86.     P.    PRINT \@
  87.     DF    DEF FN\@\n\n=0
  88.     DP    DEF PROC\@\n\nENDPROC
  89.     CA.    CASE \@ OF\n\i  WHEN \@\n\iENDCASE
  90.     WH.    WHILE \@\n\i  \@\n\iENDWHILE
  91.     RE.    REPEAT\n\i  \@\n\iUNTIL ()
  92.     ERR.    ON ERROR: ON ERROR OFF: PRINT REPORT$;" at line ";ERL:END\n\i\@
  93.     FO.    FOR \@\n\i  \@\n\iNEXT
  94.     STM{    STMFD    R13!,{0-12,14}\n\n\i\@\n\n\iLDMFD    R13!,{0-12,PC}^
  95.     LDM{    LDMFD    R13!,{0-12,PC}^
  96.     $;-    ;-------------------------------------------------------------------------------
  97.     $;=    ;===============================================================================
  98. End
  99.