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