10 REM <CTRL-M>==============<CTRL-M>CONNECT.WRITE<CTRL-M>BY BEAGLE BROS<CTRL-M>==============
14 Q$ = CHR$(34)
15 TEXT : HOME : INVERSE : PRINT " CONNECT.WRITE ";: NORMAL : PRINT " BY BEAGLE BROS": PRINT : PRINT "THIS PROGRAM WILL WRITE A TEXT FILE CALLED "Q$"CONNECT"Q$" ONTO A DISK."
16 PRINT : PRINT Q$"CONNECT"Q$" WILL APPEND PROPERLY-NUMBERED APPLESOFT PROGRAMS TOGETHER. TO USE IT:": PRINT : PRINT " 1. SAVE YOUR LARGE# PROGRAM ON THE SAME DISK WITH "Q$"CONNECT"Q$".": PRINT : PRINT " 2. LOAD YOUR SMALL# PROGRAM.": PRINT
17 PRINT " 3. TYPE "Q$"A$=(NAME OF LARGE# PROGRAM)"Q$".": PRINT " 4. TYPE "Q$"EXEC CONNECT"Q$".": PRINT : PRINT : INVERSE : PRINT " INSERT DISK IF READY. ": NORMAL : PRINT : PRINT " <C> = WRITE "Q$"CONNECT"Q$" ONTO DISK": PRINT " <Q> = QUIT"
18 PRINT : PRINT "SELECT:";: GET A$: IF A$ = "Q" THEN VTAB 23: CALL -958: END
19 HOME : IF A$ < >"C" THEN 10
20 D$ = CHR$(4):G$ = CHR$(7):Q$ = CHR$(34)
30 PRINT : PRINT D$;"OPEN CONNECT"
40 PRINT : PRINT D$;"WRITE CONNECT"
60 PRINT "LOC=PEEK(103)+256*PEEK(104)": REM FIND.START.OF.PROGRAM
70 PRINT "FORI=1TO9999:TEST=PEEK(LOC)+256*PEEK(LOC+1):PRINT0;:IFTEST>0THENLOC=TEST:NEXT": REM FIND.END.OF.LAST.PROGRAM.LINE
80 PRINT "PRINT"
90 PRINT "EN=LOC:ELO=EN-INT(EN/256)*256:EHI=INT(EN/256)": REM SPLIT.END.OF.PROGRAM.NUMBER.INTO.TWO.BYTES
100 PRINT "POKE 768, PEEK(103):POKE 769, PEEK(104)": REM STORE.START.POINTER
110 PRINT "POKE 103,ELO:POKE104,EHI": REM POKE.IN.NEW.START.LOCATION
