5 POKE650,255:PRINT"";:GOTO30
10 XX=0:IFXY<760THENRETURN
15 PRINT"[207]UT OF LINES!!!":FORT=1TO500:NEXT:PRINT"[145]                 "
20 XX=-1
25 RETURN
30 POKE53280,6:POKE53281,0:PRINT"[147]"
35 IFPEEK(49408)<>1THENPRINT"[158]LOADING":LOAD"EDSTAR 5.O",8,1
40 GOSUB50:POKE55,0:POKE56,39:CLR:S=10000:POKE53272,23:TB=1503:GOTO60
45 REM *RST SCR WD*
50 POKE1020,1:POKE1021,19:POKE1022,0:POKE1023,39:RETURN
55 REM *SYS #S*
60 IPRC=49448:LSAV=49430
65 MTTP=49433:MBOT=49436
70 SDWN=49415:SCUP=49412
75 SFIL=49418:LFIL=49421
80 LMOV=49442:MWIP=49439
85 DCHR=49424:ICHR=49427
90 WWRP=49445:CLSM=49409
95 MDEL=49451:MINS=49454
100 WCHK=49457:PRNT=49460
105 SPLT=49463:CATA=49466
110 G1LU=49469:G2LU=49472
115 G3LU=49475:G4LI=49478
120 G5LU=49481:RDEL=49484
125 SYS MWIP
130 GOSUB765
135 DEFFNS(X)=X*40+9960
140 POKE646,12:SYS CLSM:GOSUB300:GOSUB405:LN=1:GOTO145
145 PS=1465:POKE53272,23:T$="X":GOSUB715:GOTO155
150 REM*
155 GETC$:IFC$<>"" THEN175
160 POKEPS,PEEK(PS)OR128
165 GETC$
166 IF((LN-1)/19)<>(INT((LN-1)/19))THENPOKE53280,6
167 IF((LN-1)/19)=(INT((LN-1)/19))THENPOKE53280,1
169 IFC$<>""THEN175
170 GOSUB303:GOTO155
175 POKE150,ASC(C$):SYSIPRC:IF PEEK(150)=0THEN270
180 ONPEEK(151)GOTO190,205,210,215,220,225,230,235,240,245,250,255,260,265
185 GOTO165
190 XY=LN:GOSUB10:IFXXTHEN200:REM CR
195 GOSUB303:PS=1465:SYSLSAV,LN:LN=LN+1:SYS SCUP:SYS MBOT,LN+8
200 GOTO280
205 GOSUB395:GOTO165:INS CHAR
210 GOSUB330:GOTO165:CRS LT
215 GOSUB345:GOTO165:CRS RT
220 GOSUB355:GOTO165:CRS UP
225 GOSUB380:GOTO165:CRS DN
230 GOSUB475:GOTO165:^D LINE DEL
235 GOSUB530:GOTO165:^I LINE INS
240 GOSUB303:GOSUB635:GOSUB410:GOSUB725:GOSUB985:GOTO165:SAVE
245 GOSUB805:GOSUB720:GOTO165:^P PRINTER
250 GOSUB310:GOTO165:DEL CHAR
255 GOSUB1315:GOTO165:^X EXIT
260 GOSUB910:GOTO165:^H HELP
265 GOSUB1025:GOTO165:^F FUNCTIONS
270 LP=PEEK(49151+ASC(C$))
275 POKEPS,LP:PS=PS+1:IFPS=TBTHEN PS=1465:GOSUB430:SYSLSAV,LN:SYS MBOT,LN+8
280 IFLN>NLTHENNL=LN
285 GOTO155
290 :
295 REM*RSTR CLR LN*
300 FORT=55736TO55775:POKET,7:NEXTT:RETURN
303 POKEPS,PEEK(PS)AND127:RETURN
305 REM*DL CH*
310 IF PS<1466 THEN RETURN
315 POKE150,PS-1465:GOSUB303:SYS DCHR
320 PS=PS-1:RETURN
325 REM*CR LF*
330 IF PS>1465THENGOSUB303:POKEPS,PEEK(PS)OR128:GOSUB303:PS=PS-1
335 RETURN
340 REM*CR RT*
345 IF PS<1502THENGOSUB303:POKEPS,PEEK(PS)OR128:GOSUB303:PS=PS+1
350 RETURN
355 REM*CR UP*
360 IFLN=1THENPRINT"             [211]TART OF TEXT[152]":GOSUB585:RETURN
365 GOSUB303:SYSLSAV,LN:LN=LN-1:SYSSDWN
370 IF LN>10THEN SYSMTTP,LN-10
375 RETURN
380 REM*CRSR DN*
385 IFLN>=NLTHENGOSUB575:RETURN
390 GOSUB303:SYSLSAV,LN:LN=LN+1:SYS SCUP:SYS MBOT,LN+8:RETURN
395 REM*INS CPOKEAR*
400 POKEPS,PEEK(PS)AND127:POKE150,PS-1463:SYS ICHR:RETURN
405 REM*CLR MENU*
410 PRINT"[155] [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
415 GOSUB303
420 FORT=1TO3:PRINT" [221]                                    [221]":NEXTT
425 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][145][145][145][145]";:RETURN
430 REM*WRAP*
435 XY=LN:GOSUB10:IFXXTHENRETURN
440 XF=0:IFPEEK(TB-1)=32THENXF=-1
445 SM=FNS(LN+1):POKE251,INT(SM/256):POKE250,SM-PEEK(251)*256
450 FM=FNS(NL):POKE253,INT(FM/256):POKE252,FM-PEEK(253)*256
455 SYSWCHK:IFPEEK(150)<>0THENPOKE1020,12:SYSSDWN:SYSMINS:NL=NL+1:POKE1020,1
460 SYS WWRP:PS=PEEK(150)+1464:SYSLSAV,LN:SYS SCUP:LN=LN+1
465 IFXF=-1THENPS=1465
470 RETURN
475 REM*LINE DEL*
480 IF NL=0 THEN RETURN
485 PRINT"[196]ELETING A LINE..."
490 SM=FNS(LN):POKE251,INT(SM/256):POKE250,SM-PEEK(251)*256
495 SM=FNS(NL+1):POKE253,INT(SM/256):POKE252,SM-PEEK(253)*256:SYS MDEL
500 POKE1020,11:SYS SCUP:GOSUB50:PS=1465:NL=NL-1
505 SYSLSAV,LN:SYS MBOT,LN+8
510 PRINT"                   ":POKE150,0:POKE151,0
515 POKE152,0:POKE153,O
520 IF NL<LN THEN GOSUB355
525 RETURN
530 REM*LINE INS*
535 XY=NL:GOSUB10:IFXXTHENRETURN
540 PRINT"[201]NSERTING A LINE..."
545 SM=FNS(LN):POKE251,INT(SM/256):POKE250,SM-PEEK(251)*256
550 FM=FNS(NL):POKE253,INT(FM/256):POKE252,FM-PEEK(253)*256:SYS MINS
555 :NL=NL+1
560 GOSUB303:POKE1020,11:SYSSDWN:GOSUB50:PS=1465
565 PRINT"                    ":POKE150,0:POKE151,0:POKE152,0
570 POKE153,0:RETURN
575 REMBZZ
580 PRINT"[197]ND OF TEXT"
585 FORT=1TO40:NEXTT:GOTO605
590 POKE54296,15:POKE54277,45:POKE54278,165
595 POKE54276,33:POKE54273,6:POKE54272,5
600 FORT=1TO200:NEXT:POKE54276,32:POKE54273,0:POKE54272,0:POKE198,0:RETURN
605 PRINT"                            ":RETURN
610 :
615 REM*EXIT*
620 GOSUB410:PRINT"[193]RE YOU SURE YOU WANT TO EXIT?(Y/N)"
625 GETD$:IFD$="" THEN625
630 IFD$<>"Y"THEN OW=0:RETURN
635 SYSLSAV,LN:FX=17:OPEN15,8,15,"I0":CLOSE15
640 GOSUB410:PRINT"SAVE AS WHAT? "FI$:PRINTTAB(16)"[145]";:INPUTFS$
645 IFFS$=""ORFS$=CHR$(221)THENPRINT"[147]":SYSCATA:PRINT"":GOTO640
650 FX=FX-1:FS$=LEFT$(FS$,FX):IFRIGHT$(FS$,1)=" "THEN645:IFFS$=FI$THEN655
655 FI$=FS$:GOSUB410:PRINT"SAVING '"FI$"'":OPEN15,8,15
660 PRINT#15,"R0:"FI$"=0:"FI$
665 OW=-1:INPUT#15,A$:IF A$<>"63"THEN690
670 PRINT"[145]FILE EXISTS! REPLACE?(Y/N)";:GOSUB590
675 GET R$:IFR$="" THEN675
680 IF R$<>"Y"THEN CLOSE15:RETURN
685 PRINT" [156][207].[203].[152]":PRINT#15,"S0:"+FI$:CLOSE15
690 F$=FI$+",P,W"
695 POKE827,LEN(F$):FORC=1TOLEN(F$):POKE827+C,ASC(MID$(F$,C)):NEXT
700 FI$=F$
705 POKE251,(NL)/256:POKE250,256*((NL)/256-PEEK(251)):SYS SFIL
710 SV=-1:RETURN
715 REM*MENU*
720 GOSUB303:SYSLSAV,LN:GOSUB410
725 PRINT"<CTRL>[159][201][152][146]NSERT LINE   <CTRL>[159][211][152][146]AVE TEXT"
730 PRINT"<CTRL>[159][196][152][146]ELETE LINE   <CTRL>[159][208][152][146]RINTER"
735 PRINT"<CTRL>[159][200][152][146]ELP          <CTRL>E[159][216][152][146]IT"
740 IF T$="X"THEN RETURN
745 GET ME$:IFME$="" THEN745
750 IF ME$="D"ORME$="I"ORME$="P"ORME$="H"ORME$="S"ORME$="X"THEN RETURN
755 GOTO745
760 REM*LOAD*
765 PRINT"[147][204]OAD:":GOSUB1260
770 SYSMWIP
775 POKE250,17:POKE251,39:POKE252,NL/256:POKE253,256*((NL/256)-PEEK(252))
780 SYS LFIL:T$="X":GOSUB1295:IFNL<>0THEN795
785 :
790 OPEN15,8,15:INPUT#15,S$:CLOSE15:RETURN
795 GOSUB300:RETURN
800 REM*PRINT*
805 SYSLSAV,LN:GOSUB410
810 PRINT"       ===== [208][210][201][206][212][197][210][152] ====="
815 PRINT"[210]EADY PRINTER AND HIT SPACE BAR."
820 PRINT"[216] TO CANCEL.                    "
825 GETP$:IFP$="" THEN825
830 IFP$<>" "THEN PRINT"[145][207].[203]., DON'T PRINT.":FORT=1TO699::NEXTT:RETURN
835 OPEN4,4,7:CMD4
840 LC=0:LP=1
845 IFNL-LP<120THEN865
850 FORI=LPTOLP+59:RS=60:GOSUB885:NEXT
855 IFPEEK(203)=23THEN875
860 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:LP=LP+120:GOTO845
865 RS%=(NL-LP+2)/2:RS=RS%:FORI=LPTOLP+RS-1:GOSUB885
870 NEXT
875 PRINT"";:GETK$:PRINT#4:CLOSE4:RETURN
880 :
885 M1=FNS(I):M2=FNS(I+RS)
890 POKE151,M1/256:POKE150,256*(M1/256-PEEK(151)):SYSPRNT
895 POKE151,M2/256:POKE150,256*(M2/256-PEEK(151)):SYSPRNT
900 RETURN
905 :
910 REM*HELP*
915 GOSUB303:SYSLSAV,LN:PRINT"[147]"
920 PRINT"[158][197][196][211][212][193][210]"
925 PRINT" [212]O ACCESS FUNCTIONS PRESS ^F."
930 PRINT" [212]HE NEXT KEY DOES THE JOB."
935 PRINT" F1 = TOP OF TEXT, F7 = BOTTOM"
940 PRINT" F3 = UP 10 LINES, F5 = DOWN.
945 [153]" ^S SPLITS LINES,  ^G GLUES."
950 [153]" ^W WIPES LEADING SPACES."
955 [153]" ^A APPENDS A FILE."
960 [153]" ^Z ZAPS BETWEEN \ FLAGS."
962 [153]" ^D DOUBLE SPACES LINES."
965 [153]"                                      "
970 [153]" (null)OW PRESS THE (null) KEY TO EXIT HELP.   "
975 [161] T$:[139] T$ [178] "" [167]975
980 [139] T$[179][177]"X" [167]975
985 [153]"LOAD":[151]646,12:[158] CLSM
990 [141]410:[141]725:[141]300
995 [129]P[178]LN[171]10[164]LN[170]7
1000 [139] P[179]1[167]1010
1005 [158] MBOT,P:[158] SCUP
1010 [130]P:[158] MBOT,P
1015 [141]300:[142]
1020 FUNCTS
1025 [141]303:[153]"ASCUNCT:";:[158]LSAV,LN
1030 [161]F$:[139]F$[178]""[167]1030
1035 [153]"      ";
1040 [139]F$[178]""[167][141]1100:[142]:GLUE
1045 [139]F$[178]""[167][141]1160:[142]:SPLIT
1050 [139]F$[178]"LET"[167][141]1180:[142]:[128] OF TEXT
1055 [139]F$[178]"INPUT"[167][141]1185:[142]:[164]P OF TEXT
1060 [139]F$[178]"DIM"[167][141]1195:[142]:UP 1 PAGE
1065 [139]F$[178]"READ"[167][141]1190:[142]:DOWN 1 PAGE
1070 [139]F$[178]""[167][141]1205:[142]:RIGHT EDGE
1075 [139]F$[178]""[167][141]1210:[142]:LEFT EDGE
1080 [139]F$[178]""[167][141]1215:[142]:WIPE
1085 [139]F$[178]"
"[167][141]1230:[142]:APP[128]
1090 [139]F$[178]""[167][141]1290:[142]:\ PURGE
1092 [139]F$[178]""[167][141]1340:[142]
1095 [142]
1100 [139]LN[177]NL[171]2[167][142]
1105 [158]G1LU:QE[178][194](252)[170]256[172][194](253)
1110 [139]QE[177]1502[167]1145
1115 [158]G2LU
1120 QX[178][194](150):[141]380
1125 [139]QX[178]0[167]1145
1130 [151]150,QX:[158]G4LU
1135 [141]1215
1140 [139]QX[177]37[167][141]475
1145 [158]G5LU:PS[178][194](250)[170][194](251)[172]256
1150 [139]PS[178]1502[167][141]380
1155 [142]
1160 [139]PS[178]1465[167]1175
1165 PZ[178]PS:[141]380:[141]535:PK[178][165]S(LN[171]1)
1170 [151]151,PK[173]256:[151]150,256[172]((PK[173]256)[171][194](151)):[151]250,PZ[171]1465:[158]SPLT
1175 [142]
1180 LN[178]NL:[141]985:[142]
1185 LN[178]1:[141]985:[142]
1190 [129]QD[178]1[164]10:[141]380:[130]:[142]
1195 [129]QD[178]1[164]10:[141]355:[130]:[142]
1200 [141]985:[142]
1205 [141]303:PS[178]1502:[142]
1210 [141]303:PS[178]1465:[142]
1215 [158]G3LU:QX[178][194](150)
1220 [139]F$[178]""[167][141]380
1225 [142]
1230 [153]"LOADATNPPEND:":[141]1260
1235 MA[178][165]S(LN)[170]1
1240 [151]251,MA[173]256:[151]250,256[172]((MA[173]256)[171][194](251))
1245 [151]253,LN[173]256:[151]252,256[172]((LN[173]256)[171][194](253))
1250 [158]LFIL:QD[178]LN:[141]1295:LN[178]QD
1255 [141]985:[142]
1260 FS$[178]FI$:FI$[178]"":[133]"WHAT FILE WILL YOU USE?";FI$:FI$[178][200](FI$,16)
1265 [159]15,8,15,"I0":[160]15
1270 [139]FI$[178]""[167][153]"LOAD":[158]CATA:[153]:[137]1260
1272 F$[178]FI$
1275 [151]827,[195](F$):[129]C[178]1[164][195](F$):[151]827[170]C,[198]([202](F$,C)):[130]
1280 [153]"LOAD":[141]405:[153]"LOADING '"FI$"'"
1285 [142]
1290 [158]RDEL
1295 MA[178][194](250)[170][194](251)[172]256
1300 MA[178]MA[171]10001:[139]MA[179]0[167]MA[178]0
1305 NL[178][181](MA[173]40)[170]1
1310 LN[178]1:[141]985:[142]
1315 [143]*EXIT*
1320 [141]620:[141]410:[141]725
1325 [139] OW [167] [153]"LOAD":[138]
1330 [142]
1332 [143]*DBLSPC
1340 [141]1185:[141]380
1345 [139]LN[179]NL[167][141]530:[141]380:[141]380:[137]1345
1350 [141]530:[142]