10 POKE53280,1:POKE53281,1:PRINT"[150]"
15 DIMZ$(48),D$(11,11):L$="":LS$=""
20 SP$="                                        ":DI$="HEADINGS"
25 FORT=1TO7:READR$(T):NEXT:FORT=1TO48:READZ$(T):NEXT
30 N1=18:N2=62:N3=146:G=40:R=1:FT=G:B=0:DIMI$(G),ID$(10,G,10),LC(15)
35 GOSUB160  REM   INPUT IDEAS
40 GOSUB180  REM   GROUP IDEAS
45 GOSUB265  REM   REMOVE IDEAS
50 GOSUB310  REM   REPLACE BUFFERED ITEMS
55 GOSUB615  REM   CHECK FOR A WITHOUT B
60 GOSUB405  REM   HEADINGS
65 GOSUB750  REM   REARRANGE HEADINGS
70 GOSUB435  REM   THESIS STATEMENT
75 GOSUB450  REM   ROUGH DRAFT
80 GOSUB495  REM   PICK BEST-WORDED ITEM
85 GOSUB535  REM   REPHRASE HEADINGS
90 GOSUB570  REM   REPHRASE SUB HEADINGS
95 GOSUB685  REM   SUBDIVIDE SUBHEADINGS
100 GOSUB855 REM   FINAL CHECK THEN PRINT
105 GOTO45
110 C=64:LIMIT=LC(U)
115 IFLC(U)=0THENLIMIT=R
120 FORP=1TOLIMIT:F=1
125 IFID$(U,P,0)=""THENFORI=P+1TOLI+1:ID$(U,I-1,0)=ID$(U,I,0):NEXT
130 IFID$(U,P,0)=""THEN150
135 C=C+1:PRINTLEFT$(LS$,0)CHR$(C)CHR$(N1)CHR$(N2)CHR$(N3)ID$(U,P,0)
140 IFID$(U,P,F)<>""THENPRINTLEFT$(LS$,2)F"[157]. "ID$(U,P,F):F=F+1:GOTO140
145 NEXT
150 LC(U)=P-1:IFLC(U)>HITHENHI=LC(U)
155 RETURN
160 Z=1:GOSUB945:Z=2:GOSUB955:Z=4:GOSUB955
165 N=14:GOSUB975
170 INPUT"[145][145]";I$(R):IFI$(R)=""THENRETURN
175 R=R+1:GOSUB735:GOTO165
180 UC=0:Z=5:GOSUB945:Z=6:GOSUB955:Z=7:GOSUB950:Z=9:GOSUB950
185 Z=10:GOSUB950:Z=11:GOSUB950
190 D=1:C=1:UC=UC+1
195 IFI$(D)=""THEND=D+1:IFD<GTHEN195
200 ID$(UC,1,0)=I$(D):N=12:GOSUB975:PRINT"[145][145]"I$(D):I$(D)=""
205 FORT=D+1TOR
210 IFI$(T)=""THEN250
215 N=15:GOSUB975:PRINT"[145][145]"I$(T)
220 GETA$:IFA$="Y"THEN235
225 IFA$="N"THEN245
230 GOTO220
235 C=C+1:ID$(UC,C,0)=I$(T):I$(T)=""
240 IFC>14THENZ=40:GOSUB960:FORT=1TO1000:NEXT:GOTO255
245 N=14:GOSUB975
250 NEXT
255 FORK=DTOR:IFI$(K)<>""THEN190
260 NEXT:RETURN
265 U=0:B=1
270 U=U+1:IFU=UC+1THENRETURN
275 Z=0:Z$(0)=Z$(14)+STR$(U):GOSUB945:GOSUB110
280 Z=15:GOSUB955:Z=16:GOSUB950:Z=12:GOSUB950
285 GETA$:A=ASC(A$+CHR$(0))
290 IFA=13THEN270
295 IFA<65ORA>CTHEN285
300 ID$(UC+1,B,0)=ID$(U,A-64,0):B=B+1:LC(UC+1)=LC(UC+1)+1
305 ID$(U,A-64,0)="":ID$(U,A-64,1)="":GOTO275
310 UU=1
315 IFB$="+"THENRETURN
320 U=UC+1:Z=19:GOSUB945:GOSUB110:CC=C
325 Z=0:Z$(0)=Z$(14)+STR$(UU):GOSUB955
330 U=UU:GOSUB110:Z$(0)=Z$(20)+STR$(U):GOSUB955:Z=16:GOSUB950:Z=3:GOSUB955
335 GETA$:A=ASC(A$+CHR$(0))
340 IFA=13THEN370
345 IFA=136THEN365
350 IFA=45THENID$(UU,1,0)="":RETURN
355 IFA<65ORA>CCTHEN335
360 ID$(UU,P,0)=ID$(UC+1,A-64,0):ID$(UC+1,A-64,0)="":LC(U)=LC(U)+1:GOTO315
365 INPUT"";I$:ID$(UU,P,0)=I$:R=R+1:LC(U)=LC(U)+1:GOSUB735:GOTO315
370 UU=UU+1:IFUU<>UC+1THEN315
375 Z=21:GOSUB945:Z=22:GOSUB950:Z=47:GOSUB970
380 FORT=1TOLC(UC+1):ID$(UC+1,T,0)="":NEXT
385 GETA$:IFA$=""THEN385
390 IFA$="_"THEN45
395 IFA$="+"THENU=UC:UC=UC+1:GOTO315
400 RETURN
405 FORT=1TOLC(UC+1):ID$(UC+1,T,0)="":NEXT:Z=23:GOSUB945:U=1
410 Z=0:Z$(Z)=Z$(28)+STR$(U):GOSUB955:PRINT:GOSUB110
415 INPUT"HEADING";ID$(U,0,0)
420 IFID$(U,0,0)=""THENID$(U,0,0)="(NO HEADING)"
425 U=U+1:IFU=UC+1THENRETURN
430 GOTO410
435 Z=46:GOSUB945:Z=45:GOSUB950
440 INPUT"";THESIS$:IFTH$=""THENTH$=T$
445 T$=TH$:RETURN
450 Z=25:GOSUB945
455 Z=0:Z$(Z)=TH$:GOSUB955
460 U=1:N1=27:N2=46:N3=32
465 PRINT""ID$(U,0,0)"":GOSUB110
470 U=U+1
475 Z=35:GOSUB965
480 GETA$:IFA$=""THEN480
485 IFU=UC+1THENRETURN
490 GOTO465
495 E=0
500 Z$(0)=Z$(8)+" "+DI$:Z=0:GOSUB945:Z=27:GOSUB950:Z=44:FT=42:GOSUB955
505 IFDI$="ITEMS"THENE=E+1:U=E:PRINT""ID$(E,0,0)"":GOSUB110:GOTO515
510 FORU=1TOUC:PRINT""CHR$(U+64)". "ID$(U,0,0):NEXT
515 GETA$:IFA$=""THEN515
520 IFA$=CHR$(13)THENA=0:GOTO530
525 A=ASC(A$)-64:IFA<0THENA=0
530 RETURN
535 IFA=0THENRETURN
540 Z=31:GOSUB945:Z=32:GOSUB950:PRINT:Z=0:Z$(Z)=ID$(A,0,0)+" ":GOSUB965
545 Z=44:FT=42:GOSUB955
550 FORY=1TOUC:IFID$(A,0,0)=ID$(Y,0,0)THEN565
555 N=12:GOSUB975:PRINT"[145][145]"ID$(Y,0,0)
560 INPUT"CHANGE TO";ID$(Y,0,0):N=15:GOSUB975
565 NEXT:RETURN
570 DI$="ITEMS":GOSUB500:IFA=0THEN605
575 Z=24:GOSUB945:Z=32:GOSUB950:PRINT:Z=0:Z$(Z)=""+ID$(E,A,0):GOSUB965
580 Z=44:FT=42:GOSUB955
585 FORY=1TOP-1:IFID$(E,A,0)=ID$(E,Y,0)THEN600
590 N=12:GOSUB975:PRINT"[145][145]"ID$(E,Y,0)
595 INPUT"CHANGE TO";ID$(E,Y,0):N=15:GOSUB975
600 NEXT
605 IFE=UCTHENRETURN
610 GOTO570
615 U=0:N=0
620 U=U+1:IFU>UCTHENRETURN
625 IFID$(U,1,0)=""THEN665
630 IFID$(U,2,0)=""THEN640
635 GOTO620
640 Z=34:GOSUB945:Z=0:Z$(Z)=Z$(28)+STR$(U)+" "+Z$(36):GOSUB955
645 Z=37:GOSUB955:Z=38:GOSUB955:GOSUB110
650 GETB$:IFB$="_"THEN665
655 IFB$="+"THENUU=U:K=U:LC(U)=LC(U)+1:GOSUB325:U=K:GOTO620
660 GOTO650
665 M=U
670 FORT=1TOHI:ID$(M,T,0)=ID$(M+1,T,0):ID$(M+1,T,0)="":NEXT
675 LC(M)=LC(M+1):M=M+1:IFM=>UCTHENUC=UC-1:GOTO620
680 GOTO670
685 U=1
690 Z=39:GOSUB945:PRINT"[145]";:Z=43:GOSUB950:Z=44:FT=42:GOSUB955
695 E=0:PRINT""ID$(U,0,0)"":GOSUB110
700 GETA$:A=ASC(A$+CHR$(0)):IFA=13THEN725
705 IFA<65ORA>P+64THEN700
710 PRINT""ID$(U,A-64,0)"
715 E[178]E[170]1:[133]I$:[139]I$[178]""[167]ID$(U,A[171]64,E)[178]"":[137]690
720 ID$(U,A[171]64,E)[178]I$:I$[178]"":[137]715
725 [139]U[179]UC[167]U[178]U[170]1:[137]690
730 [142]
735 [139]R[179]35[167]745
740 [153]"  WARNING:  ONLY "G[171]R"CMD  MORE IDEAS ALLOWED ONON":[129]S[178]1[164]2000:[130]
745 [142]
750 U[178]1:ZZ[178]18
755 Z[178]13:[141]945:Z[178]17:[141]955:Z[178]12:[141]950
760 [161]A$:[139]A$[178]"_"[167]775
765 [139]A$[179][177]""[167]850
770 [137]760
775 [129]T[178]1[164]UC:[153]T" - "ID$(T,0,0):[130]
780 Z[178]ZZ:[141]955:ZZ[178]29
785 [161]A$:A[178]([198](A$[170][199](0)))[171]48:[139]A$[178]""[167]785
790 [139]A[179]1[176]A[177]9[167]785
795 [139]U[179][178]UC[175]ID$(A,0,0)[178]""[167]785
800 X$(U)[178]ID$(A,0,0):ID$(A,0,0)[178]""
805 [129]T[178]1[164]LC(A):D$(U,T)[178]ID$(A,T,0):W[178]1
810 [139]ID$(A,T,W)[179][177]""[167]Y$(U,T,W)[178]ID$(A,T,W):W[178]W[170]1:[137]810
815 [130]:L(U)[178]LC(A):ID$(U,T,0)[178]""
820 U[178]U[170]1:[139]U[177]UC[167]830
825 [129]T[178]1[164]U:[153]X$(T):[130]:[153]"":[137]775
830 U[178]1:[129]T[178]1[164]UC:ID$(T,0,0)[178]X$(T):X$(T)[178]"":LC(T)[178]L(T):[130]
835 [129]T[178]1[164]L(U):ID$(U,T,0)[178]D$(U,T):W[178]1:ID$(U,T,1)[178]""
840 [139]Y$(U,T,W)[179][177]""[167]ID$(U,T,W)[178]Y$(U,T,W):W[178]W[170]1:[137]840
845 [130]:ID$(U,T[171]1,W)[178]"":U[178]U[170]1:[139]U[179][178]UC[167]835
850 [142]
855 Z[178]26:[141]945:Z[178]43:[141]950
860 [141]460:[153]"":Z[178]21:[141]970:Z[178]42:[141]970:Z[178]41:[141]950
865 [161]B$:[139]B$[178]"_"[167]DI$[178]"HEADINGS":[142]
870 [139]B$[178]"P"[167]880
875 [137]865
880 [159]3,4:[157]3
885 A[178]1:B[178]1:[153]"THESIS:  "TH$:[153]:[153]
890 C[178]1:[153]R$(A)"  "ID$(A,0,0):[153]
895 [153]"      "[199](B[170]64)".  "ID$(A,B,0):[153]
900 [139]ID$(A,B,C)[178]""[167]910
905 [153],[199](C[170]48)".  "ID$(A,B,C):C[178]C[170]1:[137]900
910 [139]C[177]1[167][153]:C[178]1
915 B[178]B[170]1:[139]ID$(A,B,0)[179][177]""[167]895
920 A[178]A[170]1:B[178]1:[139]ID$(A,B,0)[179][177]""[167][153]:[137]890
925 [152]3,:[160]3:Z[178]48:[141]945
930 [161]A$:[139]A$[178]"Y"[167][142]
935 [139]A$[178]"N"[167][128]
940 [137]930
945 [153]"LOAD";
950 L[178]FT[171]([195](Z$(Z))):[129]T[178]1[164]L[173]2:[153]" ";:[130]:[153]Z$(Z):FT[178]40:[142]
955 [153]"";:[137]950
960 [153]"";:[137]950
965 Z$(Z)[178]""[170]Z$(Z):[137]950
970 FT[178]42:[137]950
975 [153][200](L$,N)SP$[170]SP$;:[142]
980 [131] "  I."," II.","III."," IV.","  V."," VI.","VII."
985 [131]" BRAINSTORM ",TYPE ANY IDEA THAT COMES TO MIND
990 [131] "TO ADD AN ITEM TYPE  F-7 "
995 [131] BUT LIMIT EACH TO TWO SCREEN LINES,NOW YOU MUST GROUP YOUR IDEAS
1000 [131] THE COMPUTER WILL PRESENT THEM,TWO AT A TIME,NEXT REPHRASE YOUR
1005 [131] IF YOU AGREE THAT THE TWO ARE SIMILAR,"PRESS  Y WAIT"
1010 [131] "IF NOT, PRESS  N WAIT","OTHERWISE PRESS  RETURN ",TO RESEQUENCE
1015 [131] HERE IS GROUP,TO REMOVE ANY ITEMS FROM THIS GROUP,TYPE ITS LETTER
1020 [131] "TYPE  _ WAIT",WHICH ONE FIRST?
1025 [131] YOU REMOVED (BUFFERED) THESE ITEMS,TO MOVE BUFFERED ITEMS TO GROUP
1030 [131] "TO REARRANGE GROUPS FURTHER TYPE  _ ",OTHERWISE HIT ANY KEY
1035 [131] NOW YOU MUST GIVE EACH GROUP A HEADING,MAKE THE OTHER SUBHEADINGS
1040 [131] HERE IS A ROUGH-DRAFT OF YOUR OUTLINE,HERE IS YOUR FINISHED OUTLINE
1045 [131] TYPE THE LETTER OF YOUR BEST-WORDED ONE,GROUP,WHICH ONE NEXT?,
1050 [131] NOW TRY TO MAKE EACH OTHER HEADING,PARALLEL TO THIS ONE,
1055 [131] EACH GROUP MUST HAVE A 'B' FOR EACH 'A',HIT ANY KEY TO CONTINUE
1060 [131] LACKS ONE,"TO ADD ONE TYPE  + ","TO DELETE TYPE   _ "
1065 [131] "CMDTO SUBDIVIDE TYPE THE LETTER OF THE ITEM"
1070 [131] THIS GROUP FULL - NO MORE ITEMS ALLOWED,(TURN ON PRINTER)
1075 [131] "PRESS  P WAIT TO PRINT IT",PRESS LETTER + RETURN TO CLEAR SUBS
1080 [131] "(PRESS  RETURN WAIT TO LEAVE UNCHANGED)",THAT SUMS  UP YOUR IDEA
1085 [131] NOW TYPE ONE SENTENCE,"PRESS  + WAIT TO ADD A NEW GROUP",REVISE?  Y/N