home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / AABBS68.ARC / _EDITORV6.7 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.1 KB  |  102 lines
  1. 0 REM"[141][147][212]HE EDITOR BY [206]ICK [211]MITH
  2. 1 [143]"(LEN)1986 ATNLL (null)IGHTS (null)ESERVED
  3. 5 REM"[141]
  4. 100 A1[178]42336:[151]53281,.:[151]53280,.:[151]650,128
  5. 110 [153][199](147)[199](14)[199](18)[199](8)[199](30)"**** VALDITOR ****
  6. 120 MX=2500:DIMLN$(2501),DI$(145):CR$=CHR$(13):OPEN15,8,15
  7. 130 FORI=828TO935:READA:POKEI,A:NEXT:FORI=1TO50:SP$=SP$+"     ":NEXT
  8. 140 REM DIRECTORY=====================
  9. 150 PRINTCHR$(17)"[196]O YOU WANT A DIRECTORY? (Y/N)";
  10. 160 GETA$:IFA$<>"Y"ANDA$<>"N"THEN160
  11. 170 PRINTA$:FI$="":IFA$="N"THENPRINTCHR$(17);:INPUT"[198]ILENAME";FI$:GOTO300
  12. 180 OPEN1,8,.,"$0":A$=CHR$(18):I1=-1
  13. 190 GET#1,X$:GET#1,X$:PRINTCHR$(18);
  14. 200 GET#1,X$:GET#1,X$:GET#1,X$:GET#1,X$:IFSTTHENCLOSE1:GOTO250
  15. 210 GET#1,X$:IFX$=""THENX=X+1:I1=I1+1:PRINTI1;A$:DI$(I1)=A$:A$="":GOTO200
  16. 220 IFX$=CHR$(34)THENQ=NOTQ:GOTO210
  17. 230 IFQTHENA$=A$+X$
  18. 240 GOTO210
  19. 250 J=-1:PRINTCHR$(147);:FORI=1TOI1-1:PRINTI;DI$(I);:J=NOTJ:IFNOTJTHENPRINTTAB(22);
  20. 260 IFJTHENPRINT
  21. 270 NEXT
  22. 280 PRINT:FI=.:PRINTCHR$(17);:INPUT"[215]HICH #";FI:IFFI=.THEN250
  23. 290 FI$=DI$(FI):IFFI$=""THENPRINT"[201]NVALID.":GOTO280
  24. 300 OPEN2,8,2,FI$:INPUT#15,E:IFETHENPRINT"[195]AN'T FIND ";FI$:CLOSE2:GOTO2000
  25. 320 PRINTCHR$(17)"[210]EADING
  26. 330 LN[178].:[151]832,2:[129]J[178].[164]1[169].:LN[178]LN[170]1:[153]P$
  27. 340 P$[178]SP$[170]" ":[158]828:LN$(LN)[178]P$
  28. 350 [139]ST[179][177].[176]LN[177]MX[167]J[178]1
  29. 360 [130]J:[160]2
  30. 365 LI[178]1
  31. 370 [153][199](147);:[129]I[178]LI[164]I[170]9:[153][199](18);I;[199](146);LN$(I):[130]
  32. 380 [153][199](17)[199](17)"LENOMMAND (+,-,A,D,E,I,S,Z,?) ===>";
  33. 390 [161]A$:[139]A$[178]""[167]390
  34. 400 [153]A$;
  35. 410 [139]A$[178]"A"[167][160]15:[153][199](147);:[128]
  36. 420 [139]A$[178]"+"[167]LI[178]LI[170]9[172][171](LI[179](MX[171]15)):[137]370
  37. 430 [139]A$[178]"-"[167]LI[178]LI[171]9[172][171](LI[177]1):[137]370
  38. 440 [139]A$[178]"D"[167][141]640:[137]370
  39. 450 [139]A$[178]"E"[167][141]730:[137]370
  40. 460 [139]A$[178]"I"[167][141]880:[137]370
  41. 480 [139]A$[178]"S"[167][141]810
  42. 490 [139]A$[178]"Z"[167][141]950
  43. 500 [139]A$[179][177]"?"[167]370
  44. 510 [153]:[153]"+  (null)AGE FORWARD
  45. 520 PRINT"-  [208]AGE BACK
  46. 530 [153]"A  ATNBORT
  47. 540 PRINT"D  [196]ELETE LINE(S)
  48. 550 [153]"E  VALDIT LINE
  49. 560 PRINT"I  [201]NSERT LINE
  50. 570 [153]"S  (null)AVE FILE
  51. 580 PRINT"Z  [201]NSERT [197]ND-OF-[198]ILE MARKER
  52. 590 [137]390
  53. 600 [153][199](17)[199](18)"(null)RESS ANY KEY TO CONTINUE"[199](146)
  54. 610 [161]A$:[139]A$[178]""[167]610
  55. 620 [142]
  56. 630 [143] DELETE========================
  57. 640 [153][199](157)"STR$ELETE
  58. 650 L1=.:PRINT"[211]TARTING, [197]NDING LINE#":INPUTL1,L2:IFL1=.THENRETURN
  59. 660 IFL1<1ORL2<L1THENPRINT"[201]NVALID.":GOTO650
  60. 670 PRINT"[196]ELETING...
  61. 680 [129]I[178]L1[164]L2
  62. 690 [129]J[178]L1[164]MX:LN$(J)[178]LN$(J[170]1):[139]LN$(J[170]1)[179][177]""[167][130]
  63. 700 [130]I
  64. 710 [142]
  65. 720 [143] EDIT==========================
  66. 730 [153][199](157)"VALDIT
  67. 740 L1=.:INPUT"[215]HICH LINE#";L1:IFL1=0THENRETURN
  68. 750 IFL1>MXTHENPRINT"[201]NVALID.":GOTO740
  69. 760 PRINTCHR$(147)"[210]ECOMMEND 38 CHARACTER MAX------------":PRINTLN$(L1);CHR$(19)
  70. 770 IFA$<>""THENFORI=1TOLEN(A$):POKE2*256+I-1,ASC(MID$(A$,I,1)):NEXT
  71. 780 SYSA1:A$="":FORI=.TO255:A=PEEK(2*256+I):IFA<>.THENA$=A$+CHR$(A):NEXT
  72. 790 LN$(L1)=A$
  73. 800 RETURN
  74. 810 REM SAVE==========================
  75. 820 PRINTCHR$(157)"[211]AVING";
  76. 830 PRINT#15,"S0:"+FI$
  77. 840 OPEN2,8,2,"0:"+FI$+",S,W
  78. 850 [129]I[178]1[164]MX:[153]".";:[152]2,LN$(I):[139]LN$(I[170]1)[179][177]""[167][130]
  79. 860 [160]2:[142]
  80. 870 [143] INSERT========================
  81. 880 [153][199](157)"RIGHT$NSERT
  82. 890 INPUT"[193]T WHICH LINE#";L1
  83. 900 IFLN$(L1)=""THENPRINT"[195]ANNOT INSERT AT BLANK LINE.":GOSUB600:RETURN
  84. 910 FORI=L1TOMX:IFLN$(I)<>""THENNEXT
  85. 920 FORI=ITOL1STEP-1:LN$(I+1)=LN$(I):NEXT
  86. 930 LN$(L1)="":RETURN
  87. 940 REM END-OF-FILE===================
  88. 950 PRINTCHR$(157)"[197]ND-OF-[198]ILE
  89. 960 [133]"ATNT WHICH LINE#";L1
  90. 970 [139]LN$(L1)[179][177]""[167][153]"(null)UST HAVE BLANK LINE.":[141]600:[142]
  91. 980 LN$(L1)[178][199](222)[170]"END"[170][199](222)
  92. 990 [142]
  93. 1000 [131] 169,0,240,1,8,165,45,133,100,165,46,133,101,160,0,177
  94. 1010 [131] 100,201,80,208,7,200,177,100,201,128,240,23,165,100,24,105
  95. 1020 [131] 7,133,100,144,2,230,101,165,100,197,47,165,101,229,48,144
  96. 1030 [131] 220,240,56,160,2,177,100,240,50,141,156,3,200,177,100,133
  97. 1040 [131] 98,200,177,100,133,99,174,64,3,32,198,255,160,0,32,207
  98. 1050 [131] 255,201,13,240,14,145,98,200,32,183,255,201,0,208,4,192
  99. 1060 [131] 45,208,235,152,160,2,145,100,32,204,255,96
  100. 2000 [133]"LENREATE IT  YCMDCMDCMD";YS$:[139][200](YS$,1)[178]"N"[167][128]
  101. 2010 [137]365
  102.