116 SP=0:CLIN$=STRING$(79,32)
340 FOR I=1 TO 5:READ A$:PRINT TAB(39) VL$;A$;SPACE$(38-LEN(A$));VL$:NEXT
391 DATA"        -Home for Split
392 DATA"              Screen Operation
517 IF TMP$="" AND SP THEN XPOS=1
555 IF SP THEN 11000
558 PRINT#1,B$;
612 IF SP THEN LOCATE ROW,COL,0
630 NEXT
650 NEXT:GOTO 660
660 IF SP THEN ROW=CSRLIN:COL=POS(0):LOCATE 25,XPOS,1
661 IF PR THEN PR$=PR$+A$:GOSUB 800
1682 IF EX=119 THEN 10000
10000 IF SP THEN SP=0:TMP$="":LOCATE ROW,COL,1:PRINT:PRINT ELSE 10010
10001 PRINT"===Split Screen Operation Off":BEEP:PRINT:ROW=CSRLIN:COL=POS(0)
10002 LOCATE 25,1,0:PRINT CLIN$:LOCATE ROW,COL,1:GOTO 515
10010 SP=-1:BEEP:PRINT:PRINT"===Split Screen Operation On":ROW=CSRLIN
10012 COL=POS(0):LOCATE 25,1,1:GOTO 515
11000 IF B$=CR$ THEN B$=TMP$+B$:TMP$="":LOCATE 25,1,0:PRINT CLIN$;:GOTO 558
11020 IF B$=CHR$(27) THEN TMP$="":LOCATE 25,1,0:PRINT CLIN$;:XPOS=1 ELSE 11030
11022 LOCATE 25,XPOS,1:GOTO 560
11030 IF B$=BS$ AND XPOS>1 THEN TMP$=LEFT$(TMP$,LEN(TMP$)-1) ELSE 11040
11032 XPOS=XPOS-1:GOSUB 2655:LOCATE 25,XPOS,1:GOTO 560
11040 IF B$=BS$ AND XPOS=1 THEN 560
11050 LOCATE 25,XPOS,1:PRINT B$;:TMP$=TMP$+B$:XPOS=XPOS+1
11055 IF XPOS>79 THEN XPOS=1
11060 GOTO 560