home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128BBS / MC-SETUP.SDA / EDITOR (.txt) next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.0 KB  |  148 lines
  1. 100 DIM L$(51),LL$(51):QW$=CHR$(34)
  2. 110 DEF FNA(X)=ABS(INT(VAL(LEFT$(A$,4)+CHR$(.))))
  3. 115 POKE53281,.:POKE53280,11:POKE646,13:PRINTCHR$(14)
  4. 120 GOTO240
  5. 130 :
  6. 140 PRINT:A$="":INPUT"[196]RIVE #";A$:DV=FNA(X):IFDV<8ORDV>11THENPRINT:GOTO140
  7. 150 RETURN
  8. 160 :
  9. 170 INPUT#15,ER,E$,E1$,E2$:IFER<20THENRETURN
  10. 175 PRINT:PRINTER;E$;E1$;E2$:CLOSE2:CLOSE15:GOTO220
  11. 190 :
  12. 200 CLOSE15:OPEN15,DV,15,"S0:"+F$:CLOSE15:RETURN
  13. 210 :
  14. 220 PRINT:PRINT"[200]IT [210][197][212][213][210][206] TO CONTINUE ";:GOSUB1340:RUN
  15. 230 :
  16. 240 PRINT"[147]":PRINT" [205]ESSAGE [195]ENTER [194][194][211] ([205][195]*[194][194][211]) [198]ILE [197]DITOR"
  17. 250 PRINT:PRINT"  [196]O YOU WANT TO:"
  18. 260 PRINT:PRINT"    ([195])REATE A NEW SYSTEM FILE"
  19. 270 PRINT"    ([197])DIT AN EXISTING SYSTEM FILE"
  20. 280 PRINT"    ([209])UIT THE EDITOR"
  21. 290 PRINT"    ([210])EAD AN EXISTING SYSTEM FILE"
  22. 300 PRINT"    ([211])CRATCH AN EXISTING SYSTEM FILE"
  23. 310 PRINT:A$="":INPUT"  [217]OUR [195]HOICE";A$
  24. 320 :
  25. 330 IFA$="C"ORA$="[195]"THEN380
  26. 340 IFA$="E"ORA$="[197]"THEN450
  27. 350 IFA$="Q"ORA$="[209]"ORA$=""THENEND
  28. 360 IFA$="R"ORA$="[210]"THEN1280
  29. 365 IFA$<>"S"ANDA$<>"[211]"THENRUN
  30. 366 :
  31. 367 PRINT"[147]":PRINT"[206]AME OF FILE TO SCRATCH: ";:GOSUB1340:F$=A$:IFA$=""THENRUN
  32. 368 GOSUB140:GOSUB200:RUN
  33. 370 :
  34. 380 GOSUB600:IFA$="F"ORA$="[198]"THENRUN
  35. 390 PRINT:PRINT"[197]NTER FILE NAME: ";:GOSUB1340:F$=A$:IFA$=""THEN390
  36. 400 GOSUB140:GOSUB200:CLOSE2:CLOSE15:OPEN15,DV,15:OPEN2,DV,2,F$+",S,W"
  37. 410 GOSUB170:IFE>19THENCLOSE2:CLOSE15:END
  38. 420 FORX=1TOLL-1:PRINT#2,QW$+L$(X)+QW$:NEXT:CLOSE2:CLOSE15:RUN
  39. 430 PRINT"[145][145][145]":GOTO280
  40. 440 :
  41. 450 PRINT"[147]"
  42. 460 PRINT"[197]NTER FILENAME: ";:GOSUB1340:F$=A$:IFA$=""THENRUN
  43. 470 GOSUB140:LL=1:CLOSE2:CLOSE15:OPEN15,DV,15:OPEN2,DV,2,F$+",S,R"
  44. 480 GOSUB170
  45. 490 INPUT#2,L$(LL):S=ST:IFS=2THEN490
  46. 500 IFLL>49THENPRINT:PRINT"[198]ILE IS TOO LONG FOR EDITOR (>50 LINES)":GOTO520
  47. 510 LL=LL+1:IFS<>64THEN490
  48. 520 CLOSE2:CLOSE15:GOSUB790:IFA$="F"ORA$="[198]"THEN570
  49. 530 PRINT:PRINT"[206]AME IS ";QW$;F$;QW$;:A$="":INPUT", [207][203]";A$
  50. 540 IFA$="[206]"ORA$="N"THENPRINT"[206]EW NAME: ";:GOSUB1340:F$=A$
  51. 550 CLOSE2:GOSUB200:CLOSE15:OPEN2,DV,2,F$+",S,W"
  52. 560 FORZ=1TOLL-1:PRINT#2,QW$+L$(Z)+QW$:NEXT:CLOSE2:PRINT
  53. 570 A$="":INPUT"[197]DIT ANOTHER";A$:IFA$="[217]"ORA$="Y"THEN450
  54. 580 RUN
  55. 590 :
  56. 600 PRINT:QM=.:LL=1
  57. 610 PRINT"[210][197][212][213][210][206] ON A [194][204][193][206][203] LINE TO END"
  58. 620 PRINT"[50 LINES [205]AX.]
  59. 630 L$(LL)[178][199](.):[139]LL[178]45[167][153]"[5 MORE LINES]"
  60. 640 [139]LL[178]50[167][153]"[(null)AST LINE!]":QM[178]1
  61. 650 [153][196](LL);":":[141]1340
  62. 660 [139]A$[178]""[176]A$[178]".S"[176]A$[178]".E"[167]QM[178]1:[137]680
  63. 670 L$(LL)[178]A$:[139]QM[178].[167]LL[178]LL[170]1:[137]630
  64. 680 [139]LL[178]1[167]LL[178].:[142]
  65. 690 [139]A$[178]".S"[167][142]
  66. 700 [139]A$[178]".E"[167][141]1010
  67. 710 [153]:[153]"(LEN)ONTINUE WITH FILE"
  68. 720 [153]"(STR$)ELETE A LINE"
  69. 730 [153]"(VAL)DIT A LINE"
  70. 740 [153]"(ASC)ORGET IT"
  71. 750 [153]"((null))ILL A LINE"
  72. 760 [153]"((null))IST FILE BY LINE NUMBERS"
  73. 770 [153]"((null))EAD THE FILE"
  74. 780 [153]"((null))AVE THE FILE"
  75. 790 [153]:[153]"LEN,STR$,VAL,ASC,(null),(null),(null),(null)";:A$[178]"":[133]A$
  76. 800 [139](A$[178]"I"[176]A$[178]"RIGHT$")[175]LL[179]50[167]1230
  77. 810 [139]A$[178]"C"[176]A$[178]"LEN"[167]970
  78. 820 [139]A$[178]"E"[176]A$[178]"VAL"[167][141]1010:[137]790
  79. 830 [139]A$[178]"S"[176]A$[178]"(null)"[167][142]
  80. 840 [139]A$[178]"L"[176]A$[178]"(null)"[167]1000
  81. 850 [139]A$[178]"F"[176]A$[178]"ASC"[167]LL[178].:[142]
  82. 860 [139]A$[178]"D"[176]A$[178]"STR$"[167]1170
  83. 870 [139]A$[178]"R"[176]A$[178]"(null)"[167]1140
  84. 880 [139]A$[178]"?"[167]710
  85. 890 [139]A$[179][177]"K"[175]A$[179][177]"(null)"[167]790
  86. 900 :
  87. 910 [153]:[153]"(null)INE NUMBER TO KILL":A$[178]"":[133]A$
  88. 920 Q[178][165]A(Q):[139]A$[178]""[176](Q[179]1)[176](Q[177]LL)[167]790
  89. 930 [153]"(null)INE #";A$;" READS LIKE THIS:":[153]L$(Q)
  90. 940 [153]:A$[178]"":[133]"(null)ILL THIS LINE";A$:[139]A$[179][177]"Y"[175]A$[179][177]"Y"[167]790
  91. 950 [129]X[178]Q[164]LL:L$(X)[178]L$(X[170]1):[130]X:LL[178]LL[171]1:[137]790
  92. 960 :
  93. 970 [139]LL[177][178]50[167][153]:[153]"(null)ORRY, ONLY 50 LINES ALLOWED.":[137]790
  94. 980 QM[178].:[137]630
  95. 990 :
  96. 1000 [129]Y[178]1[164]LL[171]1:[153][196](Y);":":[153]L$(Y):[130]:[137]790
  97. 1010 [153]:A$[178]"":[133]"(null)HICH LINE #";A$:[139]A$[178]""[167][142]
  98. 1020 Y[178][165]A(Z):[139]Y[179]1[176]Y[177]LL[167]1010
  99. 1030 [153]:[153]"(null)LD LINE READS:":[153]L$(Y):[153]
  100. 1040 [153]"(null)(null)STR$ STRING: ";:[141]1340:[139]A$[178]""[167][142]
  101. 1050 B4$[178]A$:[153]:[153]"(null)VAL(null) STRING: ";:[141]1340:B5$[178]A$:K[178]1
  102. 1060 [139][202](L$(Y),K,[195](B4$))[178]B4$[167]1090
  103. 1070 [139]K[179][195](L$(Y))[167]K[178]K[170]1:[137]1060
  104. 1080 [153]:[153]"RIGHT$ CAN'T FIND ";B4$:[137]1030
  105. 1090 [139][195](L$(Y))[170][195](B5$)[171][195](B4$)[179]80[167]1110
  106. 1100 [153]:[153]"(null)HAT WOULD MAKE THE LINE TOO LONG!":[137]1030
  107. 1110 B1$[178][200](L$(Y),K[171]1):B2$[178][202](L$(Y),K[170][195](B4$)):L$(Y)[178]B1$[170]B5$[170]B2$
  108. 1120 [153]L$(Y):[153]:[137]1010
  109. 1130 :
  110. 1140 [153]"LOAD":[153]"(null)OUR MESSAGE LOOKS LIKE THIS:":[153]
  111. 1150 [129]Y[178]1[164]LL[171]1:A$[178]L$(Y):[153]A$:[130]:[137]790
  112. 1160 :
  113. 1170 [153]:A$[178]"":[133]"(null)INE # TO REPLACE";A$:[139]A$[178]""[167]790
  114. 1180 Y[178][165]A(Z):[139]Y[179]1[176]Y[177]LL[167]790
  115. 1190 [153]:[153]L$(Y):[153]:[153]"[(null)VAL(null)(null)(null)(null) ABORTS]"
  116. 1200 [141]1340:[139]A$[178]""[167]790
  117. 1210 L$(Y)[178]A$:[137]790
  118. 1220 :
  119. 1230 [153]:[153]"VALNTER LINE NUMBER TO INSERT";:[141]1340
  120. 1240 Q[178][165]A(Q):[139]A$[178]""[176](Q[179]1)[176](Q[177]11)[167]790
  121. 1250 [129]X[178]LL[164]Q[169][171]1:L$(X[170]1)[178]L$(X):[130]X:[153]
  122. 1260 [153]"VALNTER LINE #"[170][196](Q)[170]":":[141]1340:[139]A$[178]""[167]A$[178]" "
  123. 1270 L$(Q)[178]A$:LL[178]LL[170]1:[137]790
  124. 1279 :
  125. 1280 [153]"LOAD":[153]"(null)HAT FILE TO READ: ";:[141]1340:F$[178]A$:[139]A$[178]""[167][138]
  126. 1290 [141]140:[160]2:[160]15:[159]15,DV,15:[159]2,DV,2,F$[170]",S,R":[141]170
  127. 1300 [132]2,A$:S[178]ST:[139]S[178]2[167]1300
  128. 1310 [153]A$:[139]S[179][177]64[167]1300
  129. 1320 [160]2:[160]15:[141]220
  130. 1330 :
  131. 1340 B$[178]"":A$[178]"":X[178]1
  132. 1350 [141]1430:[139]B$[178][199](34)[167]B$[178][199](222)
  133. 1360 [139]B$[178][199](13)[167][153]" ":[137]1410
  134. 1370 [139]B$[179][177][199](20)[167]1400
  135. 1380 X[178]X[171]1:[139]X[178]0[167]X[178]1:[137]1350
  136. 1390 A$[178][200](A$,[195](A$)[171]1):[153]B$;:[137]1350
  137. 1400 [153]B$;:A$[178]A$[170]B$:X[178]X[170]1:[139]X[179]80[167]1350
  138. 1410 [142]
  139. 1420 :
  140. 1430 [141]1500:[153][199](190)"CMD";:[161]B$:[139]B$[179][177]""[167]1480
  141. 1440 [141]1500:[153][199](188)"CMD";:[161]B$:[139]B$[179][177]""[167]1480
  142. 1450 [141]1500:[153][199](172)"CMD";:[161]B$:[139]B$[179][177]""[167]1480
  143. 1460 [141]1500:[153][199](187)"CMD";:[161]B$:[139]B$[179][177]""[167]1480
  144. 1470 [137]1430
  145. 1480 [142]
  146. 1490 :
  147. 1500 [129]I[178]1[164]50:[130]:[142]
  148.