5 CLS:BEEP:PRINT@46,"PROG 'TITLER' by DAVID BUSCH":PRINT
6 ' LOADED 7/1/88 1348 Bytes
10 PRINT" PORTABLE 100 MAGAZINE  7/84 Page 18->":PRINT
30 PRINTTAB(7)"Automatic Program Tiller":PRINT
35 LINE(15,53)-(224,53),1
40 PRINTTAB(16)"<ENTER>";
50 IFINKEY$=""THEN50
60 CLEAR1000:MAXFILES=1
70 N$="Stan Kendall":AD$="1945 Washington Ave":CT$="Wilmette, IL 60091"
280 BEEP:CLS:PRINT
290 PRINTTAB(9)"Enter Title of Program":INPUTTITLE$:A=LEN(TITLE$)
320 IFLEN(N$)>ATHENA=LEN(N$)
330 IFLEN(AD$)>ATHENA=LEN(AD$)
340 IFLEN(CT$)>ATHENA=LEN(CT$)
350 A=A+4
360 OPEN"TITLE"FOROUTPUT AS1:CLS
380 GOSUB760
390 LN$=LN$+STRING$(A+2,"*")
400 PRINT#1,LN$
410 GOSUB760
420 LN$=LN$+"*"+STRING$(A,32)+"*"
430 PRINT#1,LN$
440 GOSUB760
450 B=A-LEN(TITLE$):B1=INT(B/2):B2=B-B1
460 LN$=LN$+"*"+STRING$(B1,32)+TITLE$+STRING$(B2,32)+"*"
470 PRINT#1,LN$
480 GOSUB760
490 LN$=LN$+"*"+STRING$(A,32)+"*"
500 PRINT#1,LN$
510 GOSUB760
520 B=A-LEN(N$):B1=INT(B/2):B2=B-B1
530 LN$=LN$+"*"+STRING$(B1,32)+N$+STRING$(B2,32)+"*"
540 PRINT#1,LN$
550 GOSUB760
560 B=A-LEN(AD$):B1=INT(B/2):B2=B-B1
570 LN$=LN$+"*"+STRING$(B1,32)+AD$+STRING$(B2,32)+"*"
580 PRINT#1,LN$
590 GOSUB760
600 B=A-LEN(CT$):B1=INT(B/2):B2=B-B1
610 LN$=LN$+"*"+STRING$(B1,32)+CT$+STRING$(B2,32)+"*"
620 PRINT#1,LN$
630 GOSUB760
640 LN$=LN$+"*"+STRING$(A,32)+"*"
650 PRINT#1,LN$
660 GOSUB760
670 LN$=LN$+STRING$(A+2,"*")
680 PRINT#1,LN$
690 CLOSE
695 '****** FINAL INSTRUCTIONS *****
700 BEEP:CLS:PRINT:PRINT" Renumber your target program so that"
710 PRINT" first line # is > than 10,then type"
730 PRINT" MERGE ";CHR$(34);"RAM:TITLE";CHR$(34);".":PRINT:END
755 ' INCREMENT LINE #'S
760 LC=LC+1:LN$=STR$(LC)+"'"+CHR$(32):RETURN