joyedi.label:
lll$="----V----1----V----2----V----3----V----4----V----5----V----6----V----7----V---"
edi.menu:
  print cls$
  on error goto error.label:
   print "J O Y E D I    (EDITOR)  (1987/07/16)"
   print "erstellt ASCII - Textfile.   (V 1.25)"
print in$;"< 0 >";ni$;" ... leeren File (0 kBytes) anlegen"
print in$;"< 1 >";ni$;" ... neuen Textfile anlegen"
print in$;"< 2 >";ni$;" ... existierenden File bearbeiten"
print : print biw$ : print
edi.create.wahl:
antw=inkey
if antw=27 then goto exit:
if antw=77 OR antw=109 then goto menu:
if antw=48 then goto edi.null:
if antw=49 then goto edi.neu:
if antw=50 then goto edi.alt:
goto edi.create.wahl:
edi.null:
print : print "NULLFILE anlegen:" : print : print fisp$; : input "";filespec$
filespec$=ucase$(filespec$)
   if filespec$=chr$(27) then goto exit:
   if filespec$=chr$(77) then goto menu:
on error goto edi.erb:
   open filespec$ AS 1 : close 1 : print : print bel$;in$;" Ein File mit diesem"; \
   : print " Namen existiert bereits!  ";ni$ : for x=1 to 500 : next : goto menu:
edi.erb:
    create filespec$ AS 1 : close 1 : goto menu:
edi.era:
   print:print bel$;in$;" Ein File mit diesem Namen existiert bereits ! ";ni$ : \
   print : for x=1 to 500 : next : goto edi.menu:
edi.neu:
print : print "NEUEN TEXTFILE anlegen:" : print : print fisp$;
input "";filespec$
edizenum=1
filespec$=ucase$(filespec$)
  if filespec$=chr$(27) then goto exit:
  if filespec$=chr$(77) then goto menu:
  if size(filespec$)<>0 then goto edi.era:
edi.textin:
print cls$;in$;
print "<ZEILE>:<EZ>:<KURSOR>:<DEL>:<TAB>:<STOP>:<CR>...nach jeder Zeile:<CR EXIT CR>";\
      : print " Ende"
print " Text kann mit RPED, LOCOSCRIPT oder aehnlichen Editor weiterbearbeitet werden";\
      : print " !  "
print ni$;:print : print tab(12);lll$:print
for ex=edizenum to 1000
 print using "###";ex;:input ".Zeile:"; LINE newli$(ex)
 if newli$(ex)=chr$(27) then goto edi.korrlabel:
 if newli$(ex)=chr$(3) then goto menu:
 if 0=MOD(ex,20) then print tab(12);lll$ : print
 next
edi.korrlabel:
print : print "KORREKTUREN:" : print
print in$;"< 0 >";ni$;" ... keine; TEXT SPEICHERN ! "
print in$;"< 1 >";ni$;" ... Text nochmals listen "
print in$;"< 2 >";ni$;" ... Text korrigieren "
print in$;"< 3 >";ni$;" ... neue Zeilen anfuegen"
print : print biw$ : print
edi.korrwahl:
antw=inkey
if antw=27 then goto edi.exit.check:
if antw=77 OR antw= 109 then goto menu:
if antw=48 then goto edi.savelabel:
if antw=49 then goto edi.korrlesen:
if antw=50 then goto edi.korrwork:
if antw=51 then goto edi.neuezeilen:
goto edi.korrwahl:
edi.exit.check:
print cls$;in$;" Bearbeitung abbrechen oder Ergebnis speichern ? " : print ni$ : print
print "< STOP > ... abbrechen          < EXIT > ... speichern" : print
edi.exitcheckwahl:
antw=inkey
if antw=3 then goto exit:
if antw=27 then goto edi.savelabel: ELSE goto edi.exitcheckwahl:
edi.savelabel:
on error goto edi.save.error:
print : print "Speicherweise waehlen: ";in$;"< B >";ni$;" ... BYTE f. BYTE " : print
print tab(24);in$;"< R >";ni$;" ... RECORD f. RECORD" : print : print "Ihre Wahl: "
edi.savewahl:
antw=inkey
if antw>90 then antw=antw-32
if antw=66 then goto edi.savebyte:
if antw=82 then goto edi.saverecord: ELSE goto edi.savewahl:
edi.savebyte:
print : print filespec$;" wird gespeichert !"
if not ex=1000 then ex=ex-1 else ex=1000
create filespec$ AS 1
for ey=1 to ex
el=len(newli$(ey))
for ez=1 to el
zeich$=MID$(newli$(ey),ez,1) : zeich%=asc(zeich$)
put 1,zeich%
next
put 1,13 : put 1,10 : next : put 1,26 : close 1 : goto menu:
edi.saverecord:
print : print filespec$;" wird gespeichert !" : create filespec$ AS 1
for ey=1 to ex : saverec$=newli$(ey) : print #1;saverec$ : next
put 1,26 : close 1 : goto menu:
edi.save.error:
if err="EX" then print : print bel$;nod$ : print : print "Bitte legen Sie eine "; : \
   print "Diskette in das Laufwerk, dann eine Taste druecken! " : antw=inkey : \
   goto edi.savelabel: ELSE goto error.label:
edi.korrlesen:
print: input "Ab Zeile:"; LINE abzei$
print :input "Bis Zeile:";LINE bizei$
print cls$;tab(12);lll$ : print  : abze=VAL(abzei$) :bize=VAL(bizei$)
if abze=0 then abze=1
if bize=0 then bize=ex
for ey=abze to bize
if ey=ex then print : print "EOF (END OF FILE)" : Print : goto edi.korrlabel:
print using "###";ey; : print ".Zeile: ";newli$(ey)
if 0=mod(ey,20) then call weiter.zum.menu: :print : print tab(12);lll$:print
     next
     goto edi.korrlabel:
edi.korrwork:
print : print in$;"< = >";ni$;" ... KEINE KORREKTUR (wenn nur <=> eingegeben wird!)"
        print in$;"< - >";ni$;" ... gesamte Zeile ausblenden !"
        print in$;"< + >";ni$;" ... neue Zeile einblenden !"
        print in$;"< * >";ni$;" ... Zeile kopieren (ueberschreibt!)"
        print in$;"< # >";ni$;" ... Zeile verschieben (loescht alte Zeile!)"
print : print "Welche Zeile wollen Sie korrigieren ?";:input " Nr.: ";ediz
print tab(12);lll$
if ediz>ex then ediz=ex+1 : ex=ex+2
edilinemem$=newli$(ediz)
print using "###";ediz; : print ".Zeile: ";newli$(ediz)
print using "###";ediz; : input ".Zeile:"; LINE newli$(ediz)
if newli$(ediz)="=" then newli$(ediz)=edilinemem$
if newli$(ediz)="-" then goto edi.sorta:
if newli$(ediz)="+" then goto edi.sortb:
if newli$(ediz)="*" then goto edi.kopieren:
if newli$(ediz)="#" then goto edi.versetzen:
goto edi.korrlabel:
edi.sorta:
   for ey=ediz to ex
   newli$(ey)=newli$(ey+1)
   next
   newli$(ex)="" : ex=ex-1
   goto edi.korrlabel:
edi.sortb:
newli$(ediz)=edilinemem$ : ex=ex+1
print "Text fuer diese neue Zeile eingeben:"
print using "###";ediz; : input ".Zeile:";LINE edilinemem$
for ey=ex to ediz step -1
   if ey=ediz then newli$(ey)=edilinemem$ : goto edi.korrlabel:
   newli$(ey)=newli$(ey-1)
   next
edi.alt:
ex=0 : print : print "BESTEHENDEN FILE bearbeiten:" : print : print fisp$;
input "QUELLFILE: ";quellfile$
print : print fisp$; : input "ZIELFILE: "; LINE zielfile$
quellfile$=ucase$(quellfile$) : zielfile$=ucase$(zielfile$)
if zielfile$="" then zielfile$=quellfile$
if zielfile$<>quellfile$ AND size(zielfile$)<>0 then goto edi.era:
print cls$;quellfile$;":" : print
open quellfile$ AS 1
if end #1 then alt.eof:
while not eof%
ex=ex+1
read #1; LINE newli$(ex)
print using "###";ex; : print ".Zeile: ";newli$(ex)
if 0=mod(ex,20) then call weiter.zum.menu: :print tab(12);lll$: print
wend
alt.eof:
    eof%=true% : close 1
    if quellfile$<>zielfile$ then filespec$=zielfile$ else filespec$=quellfile$
    goto edi.korrlabel:
edi.neuezeilen:
    edizenum=ex : goto edi.textin:
edi.kopieren:
    input "W O H I N  soll kopiert werden ? ";zielzeil
    if zielzeil>ex then print uzu$ : print : goto edi.korrlabel:
    newli$(ediz)=edilinemem$
    newli$(zielzeil)=edilinemem$ : goto edi.korrlabel:
edi.versetzen:
    input "Neue Zeilennummer eingeben : ";neuzeilnum
    if neuzeilnum>ex then print uzu$ : print : goto edi.korrlabel:
    newli$(neuzeilnum)=edilinemem$ : goto edi.sorta:
rem --------------------------------------------------------------
el:
    newli$(neuzeilnum)=edilinemem$ : goto edi.sorta:
r