160 GOSUB 120: ON N AND A$ < > CHR$(13) GOSUB 210: ON (A$ = CHR$(13) AND LEN(WN$) >0) OR (A$ = CHR$(27)) GOTO 190: ON A$ < > CHR$(8) GOTO 180: IF LEN(WN$) <2 THEN WN$ = "": GOTO 140
170 WN$ = LEFT$(WN$, LEN(WN$) -1): GOTO 150
180 ON (A$ = "1" OR A$ = "2") AND WN$ = "" GOTO 190: ON A$ <" " GOTO 160: ON NOT LEN(WN$) GOSUB 220:WN$ = WN$ +A$:LW = LEN(WN$): IF (LW <38 AND NOT L6) OR (L6 AND LW <7) THEN 150
770 PRINT : PRINT " - OR ENTER THE OTHER DRIVE NUMBER": PRINT : PRINT "- OR PRESS <ESC> TO ABORT": VTAB 23: PRINT CHR$(7) TAB( 14)"ENTER KEY ";: RETURN
780 REM Print work heading
790 ON LEN(F$) + LEN(E$) <36 GOTO 810: IF LEN(E$) > LEN(F$) THEN E$ = LEFT$(E$,32 - LEN(F$)) +"(+)": GOTO 810
800 F$ = LEFT$(F$,32 - LEN(E$)) +"(+)"
810 TEXT : HOME : POKE 216,0: GOSUB 1000: PRINT : VTAB 4: PRINT F$;: FOR J = LEN(F$) + LEN(E$) TO 39: PRINT "-";: NEXT
820 PRINT E$: VTAB 6: FOR J = 1 TO 40: PRINT ".";: NEXT : GOSUB 930: RETURN
1170 GOSUB 120: ON A$ = CHR$(13) GOTO 1190: ON A$ = CHR$(8) OR A$ = CHR$(11) GOSUB 1110: ON A$ = CHR$(21) OR A$ = CHR$(10) GOSUB 1130: IF A$ = CHR$(27) AND FLAG = 4 THEN G = 1:L = L -1: GOTO 1190
1180 ON A$ <"1" OR A$ >"4" GOTO 1170:G = VAL(A$): GOSUB 1030:J = G: GOSUB 1030: GOTO 1160
1280 A$(0) = " ":A$(1) = "-->":A$(2) = "TRANSFER TEXT FILE TO NEWSROOM":A$(3) = "TRANSFER NEWSROOM TO TEXT FILE":A$(4) = "MERGE TWO NEWSROOM DATA FILES":A$(5) = "EXIT THIS PROGRAM"
1290 GOSUB 1150: IF G < >4 THEN POKE AS, ASC( STR$(G)): VTAB 5: HTAB 2: PRINT SPC( 37):B$ = A$(G +1):G$ = B$: INVERSE : GOSUB 1000: NORMAL : VTAB 23
1470 WN$ = NFILE$: GOSUB 140: ON A$ < > CHR$(27) GOTO 1490: ON L = 1 AND WN$ = "" GOTO 2300: IF WN$ = "" THEN L = L -1:NFILE$ = LEFT$(F$(L), LEN(F$(L)) -3):F$(L) = "": GOTO 1460
1480 WN$ = ""
1490 NFILE$ = WN$: ON WN$ < >"" GOTO 1510: ON A$ <"1" OR A$ >"2" GOTO 1460: GOTO 1730
1500 REM Confirm each NewsRoom file name entered
1510 B$ = "NEWSROOM FILE NAME #" + STR$(L) +" IS:": GOSUB 840: ON A$ = "N" OR A$ = CHR$(27) GOTO 1460: GOTO 1840
1520 REM Show menu of options available
1530 G = 1:F$(L) = NFILE$ +DS$:L = L +1: GOSUB 1210
1540 NR$ = "PN.": GOSUB 1150
1550 ON G GOTO 1460,1570,1630,2230
1560 REM List currently entered NewsRoom file names
1570 HOME :J = 0: VTAB 13 +4 *(L <13) - INT(L/3 -.5) *(L <13):SPACE9$ = " ": REM nine spaces
1910 WN$ = NFILE$: ON N GOSUB 950:L6 = 1: GOSUB 140:L6 = 0:WN$ = LEFT$(WN$,6): IF A$ = CHR$(27) THEN ON WN$ = "" GOTO 1700:WN$ = ""
1920 NFILE$ = WN$: ON WN$ < >"" GOTO 1930: ON A$ <"1" OR A$ >"2" GOTO 1900: GOTO 1730
1930 ON N AND NOT FLAG GOTO 2130:B$ = "YOU WISH THE NEWSROOM FILE NAME TO BE": GOSUB 840: ON A$ = "N" OR A$ = CHR$(27) GOTO 1900
1940 REM Determine drive to store NewsRoom file
1950 HOME :B$ = "ENTER <RETURN> TO ACCEPT - OR -": GOSUB 1000: PRINT :B$ = "PRESS ANY ARROW KEY TO CHANGE DRIVE #": GOSUB 1000: PRINT : PRINT : PRINT
1960 B$ = "STORE THE TEXT FILE NAME": ON FLAG = 5 GOTO 1970:E$ = "1":B$ = "STORE THE NEWSROOM FILE NAME"
1970 GOSUB 1000: GOSUB 1080:B$ = "ON THE DISKETTE IN DRIVE # ": GOSUB 1000: PRINT CHR$(8);:DN$ = DD$
1980 PRINT RIGHT$(DN$,1); CHR$(8);: GOSUB 120: ON A$ = CHR$(13) GOTO 2000: ON A$ = RIGHT$(DN$,1) GOTO 1980: IF A$ = CHR$(27) THEN ON FLAG = 5 GOTO 1680: GOTO 1930
1990 ON A$ < >"1" AND A$ < >"2" AND A$ < > CHR$(8) AND A$ < > CHR$(10) AND A$ < > CHR$(11) AND A$ < > CHR$(21) GOTO 1980:DN$ = ",D" + STR$(1 +(DN$ = ",D1")): GOTO 1980
2000 B$ = "INSURING NAME NOT ALREADY ESTABLISHED": GOSUB 990:DS$ = DN$
2010 REM Verifying file names
2020 VTAB 20: PRINT : ONERR GOTO 2060
2030 PRINT D$"VERIFY"NR$WN$E$DS$:DD$ = DS$: POKE 216,0: ON FLAG GOTO 1860,1380,2130,1530
2040 ON V GOSUB 880: GOSUB 280:B$ = "FILE NAME ALREADY EXISTS ON DISKETTE": GOSUB 1000:B$ = "PLEASE RE-ENTER NEWSROOM'S FILE NAME": IF FLAG = 5 THEN B$ = "PLEASE RE-ENTER TEXT FILE NAME"
2050 N = 1: GOSUB 1090: ON FLAG = 5 GOTO 1640: GOTO 1910
2060 ON NOT FLAG OR FLAG = 5 GOTO 2080: IF DS$ = DD$ THEN DS$ = ",D" + STR$(1 +(DD$ = ",D1")): GOTO 2030
2070 N = 0: POKE 216,0: HOME : GOSUB 1000:B$ = "PLEASE CORRECT FILE NAME": GOSUB 1090: ON FLAG GOTO 1710,1340,1400,1470,1640
2080 IF PEEK(222) < >2 AND PEEK(222) < >3 AND PEEK(222) < >8 GOTO 2130
2090 TEXT : HOME :V = 1:B$ = "UNABLE TO VERIFY": GOSUB 1000: PRINT : PRINT : INVERSE :B$ = NR$ +WN$: GOSUB 1000: NORMAL : PRINT : PRINT :B$ = "IN DRIVE #" + RIGHT$(DS$,1): GOSUB 1000: PRINT : GOSUB 760
2100 GOSUB 120: ON A$ = CHR$(13) GOTO 2030: IF A$ = "1" OR A$ = "2" THEN DN$ = ",D" + STR$(1 +(DS$ = "2")):DS$ = DN$: GOTO 2030
2320 DATA 169,64,133,255,160,0,132,254,140,1,64,200,140,0,64,200,162,0,189,154,3,145,254,200,232,224,5,144,245,132,254,24,165,107,72,105,7,133,107,133
2330 DATA 252,165,108,72,105,0,133,108,133,253,160,0,177,107,240,66,170,230,107,208,2,230,108,165,108,72,165,107,72,177,107,72,200,177,107,133,108,104,133,107
2340 DATA 136,238,0,64,208,3,238,1,64,177,107,145,254,200,202,208,240,152,24,101,254,133,254,169,0,101,255,133,255,24,104,105,2,133,107,104,105,0,133,108
2350 DATA 208,184,169,127,145,254,169,69,101,252,133,254,169,0,101,253,133,255,177,254,145,252,200,192,234,144,247,104,133,108,104,133,107,96,0,1,84,115,0,