1000REM Line editor
 1010LETflg=0:LETcopy=0:LETcopx=0:LETcop=0:LETa$="":LETb$=""
 1030PRINTOVER1;CHR$143;CHR$8;
 1040GOSUB1150:REM Wait for a keypress
 1041IFcop=0THENLETcopx=33-PEEK23688:LETcopy=24-PEEK23689
 1050IFq$<" "THENGOTO1100       :REM Deal with control codes
 1060IFq$>CHR$127THENGOSUB1200  :REM Convert symbols
 1070POKE23692,255:POKE16415,255:PRINTq$;:GOSUB1120:PRINTb$;:IFflg=40THENPRINT" ";
 1075GOSUB1130
 1076IFPEEK16415<>255THENFORz=1TO32:PRINTCHR$8;:NEXTz
 1080LETa$=a$+q$
 1090GOTO1030
 1091:
 1092:
 1093PRINTb$;" ":LETa$=CHR$27:RETURN
 1095PRINTb$;" ":LETa$=a$+b$:RETURN
 1100LETflg=0:GOSUB1100+50*CODEq$
 1110GOTO1030+flg:REM Loop back to a point specified by flg
 1119:
 1120REM Save cursor positions
 1121LETp1=PEEK23684:LETp2=PEEK23685:LETp3=PEEK23688:LETp4=PEEK23689:RETURN
 1129:
 1130REM Restore cursor positions
 1131POKE23684,p1:POKE23685,p2:POKE23688,p3:POKE23689,p4:RETURN
 1140:
 1150REM Wait for a keypress
 1155IFcop=1THENGOSUB1120:PRINTATcopy,copx;OVER1;INK8;PAPER8;BRIGHT8;FLASH1;" ";:GOSUB1130
 1160PAUSE50
 1170LETq$=INKEY$:IFq$=""THENGOTO1170
 1175IFcop=1THENGOSUB1120:PRINTATcopy,copx;OVER1;INK8;PAPER8;BRIGHT8;FLASH0;" ";:GOSUB1130
 1180RETURN
 1195:
 1199REM Convert symbols
 1200LETq$=(CHR$127+"|!][123!}{\~")(CODEq$-193+22*(q$<CHR$195)-20*(q$>CHR$205)):IFq$>"@"THENRETURN
 1205PRINTOVER1;CHR$128;CHR$8;
 1206IFq$="1"THENGOTO1250
 1207IFq$="3"THENGOTO1240
 1210LETq$="":IFb$=""THENRETURN
 1220FORz=1TOLENb$:PRINT" ";:NEXTz:FORz=1TOLENb$:PRINTCHR$8;:NEXTz:LETb$="":RETURN
 1240PRINTb$;:LETa$=a$+b$:LETb$=""
 1250LETq$="":IFa$=""THENRETURN
 1255FORz=1TOLENa$
 1260PRINTCHR$8;:GOSUB1120:PRINTb$;" ";:GOSUB1130
 1265NEXTz:LETa$=""
 1290RETURN
 1295:
 1300REM Shift-3 - Forwards delete
 1301IFb$=""THENBEEP1/10,0:LETflg=10:RETURN
 1310LETb$=b$(2TO):PRINTOVER1;CHR$128;CHR$8;
 1320LETq$="":LETflg=40:RETURN
 1340:
 1350REM Shift-4 - Back one
 1351IFa$=""THENLETflg=10:RETURN
 1360PRINTOVER1;CHR$143;CHR$8;CHR$8;
 1370LETb$=a$(LENa$)+b$:LETa$=a$(TOLENa$-1)
 1380RETURN
 1390:
 1400REM Shift-2 - Caps lock
 1410LETcaps=INT(PEEK23658/8):LETcaps=1-(caps-2*INT(caps/2)):LETflg=10:POKE23658,8*caps
 1420RETURN
 1440:
 1450REM Shift-1 - Edit
 1451LETq$=SCREEN$(copy,copx)
 1460LETcop1=cop:GOSUB1550:LETcop=cop1:LETflg=11:RETURN
 1470:
 1490LETflg=10:LETcop=1:RETURN
 1495:
 1500REM Shift-5 - Left
 1501LETcopx=copx-1:IFcopx>-1THENGOTO1490
 1510LETcopx=31:GOTO1650
 1540:
 1550REM Shift-8 - Right
 1551LETcopx=copx+1:IFcopx<32THENGOTO1490
 1560LETcopx=0:REM Continue in to...
 1570:
 1600REM Shift-6 - Down
 1601LETcopy=copy+1:IFcopy>21THENLETcopy=0
 1610GOTO1490
 1640:
 1650REM Shift-6 - Up
 1651LETcopy=copy-1:IFcopy<0THENLETcopy=21
 1660GOTO1490
 1690:
 1700REM Shift-0 - Delete
 1701IFa$=""THENBEEP1/10,0:LETflg=10:RETURN
 1710PRINTCHR$8;"  ";CHR$8;CHR$8;:LETa$=a$(TOLENa$-1)
 1720LETflg=40:LETq$="":RETURN
 1740:
 1750REM Enter - Exit routine
 1751LETflg=65:RETURN
 1790:
 1800REM Shift-Shift - Escape
 1810LETflg=63:RETURN
 1840:
 1850REM Shift-9 - Forward one
 1851IFb$=""THENLETflg=10:RETURN
 1860LETa$=a$+b$(1):LETb$=b$(2TO)
 1870PRINTOVER1;CHR$143;
 1880RETURN