home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 1 / ARM_CLUB_CD.iso / contents / apps / print / progs / keystrip2 / !KeyStrip / StripData / BasicEdit < prev    next >
Encoding:
Text File  |  1989-07-04  |  1.3 KB  |  152 lines
  1. BASIC EDITOR
  2. US
  3. ffer%+space%
  4. "filecount%=0
  5. ,òrCTRL
  6.  
  7. S$,wSHFT
  8.  
  9. fer%
  10.  
  11. 6
  12. bash
  13. ut
  14. JOIN
  15. T
  16. :
  17. TÝ
  18. IND
  19. dir(dir$SPLIT
  20. t%)
  21. ^(
  22.  ourspace%,oOS
  23. et%,entry%COMMAND
  24. f%
  25. h
  26. ourspace%=caSWAP
  27.  
  28. roursWINDOW
  29. =parenAPPEND
  30. anuse%PROGRAM
  31. ffsetLOAD
  32. ‘õ
  33. ŒHÈPROGRAM
  34. E
  35. ",1
  36. ,dir$,canuse
  37. EPLACE
  38. et%,s
  39. EPLACE
  40. " ¸ ,SET
  41. ad%,offseOPTIONS
  42. nuse%SAVE
  43. ®ýoffsPROGRAM
  44. ead%=
  45.  
  46. ¸çread%=0SPLIT/JOIN
  47. 2
  48. WINDOW
  49. E
  50. ace%RETURN TO
  51. ourBASIC
  52. -4)Ŵ32
  53. SEARCH
  54. urspacAND
  55. T
  56. …
  57. ÖãeEDIT
  58. =0¸ !ourHELP
  59. %-1
  60. à#e
  61. ROWSE
  62. %=oursSELECTIVE
  63. *enREPLACE
  64. ç entGLOBAL
  65. &10=2 REPLACE
  66. IPT
  67. f
  68. !&10=canuse%INFORMATION
  69. (
  70. DD WORD
  71. ¤getGO TO
  72. ring(enMARKED LINE
  73. ,TOGGLE
  74. e%)
  75. MARKED LINE
  76. f
  77. %!&10=0
  78. ÍPREVIOUS
  79. Í
  80. :MATCH
  81. :
  82. NݤNEXT
  83. rostringMATCH
  84. Xêy$
  85. SEARCH
  86. %<>0
  87. 
  88. ODE
  89. =½?x%
  90. v
  91. x%+=1
  92. €Î
  93. EXTEND
  94. “:
  95. fi
  96. LOCK
  97. atedir(REPEAT
  98. ta%)
  99. LINE
  100. CheckingRENUMBER
  101. y ";
  102. ELETE
  103. ê ent
  104. y%,entryoff%INSERT LINE
  105. iAT START
  106. $
  107. ÆNEW
  108. data%<>0 PROGRAM
  109. try%=OLD
  110. data%-1
  111. PROGRAM
  112. ff%=d
  113. ta%+8+32*entINSERT LINE
  114. =AT END
  115. "+¤getUNDO CHANGES
  116. TO LINE
  117. &14)
  118. SWAP
  119.  
  120. tryoff%CASE
  121.  
  122.  …
  123. øÌ
  124. #òcreatediDELETE LINE
  125. yFROM START
  126. DELETE FROM
  127. LINE START
  128. ÝDELETE TO
  129. k(AEND OF LINE
  130. d
  131. sk% …
  132. RÈ−"GO TO LINE
  133. ,1
  134. \-ñ'"InsertGO TO LINE
  135. k,COMMAND
  136. ss <sEXECUTE LINE
  137. AND BLOCK
  138.  
  139. zCOMMANDS
  140. ‰Ýò
  141. eadin(dir$,d
  142. ta%)
  143. —ê en
  144. ry%,entryoff
  145. ,name$
  146. ¢ç 
  147. data%<>0 …
  148. 
  149. ãentry%=0¸ 
  150. data%-1
  151. ¶entryoff%=data%+8+32*entry%
  152. À0na