6,7: 5,14%:DD$(19):D$DD$DD$:U$(145):L$(157):R$(29): (14): IS$(100),TA$(10,10),LL$(10,11),BU$(100),NI(11),TG$(10),ZZ(10),FI(10):U14:U22:L130:L213:2080:"."::" ."::" ."::" ."::" .":D$R(U112:U26:L138:L217:2080:"."::" ."::" ."::" ."::" .":D$2U120:U210:L146:L221:2080:"."::" ."::" 1."::" 2."::" ."::" .";E<D$:,47,3," - 1 2 8":,49,5," ":,59,12,"RESS ANY KEY":,61,13,"TO BEGIN":K$F2160::S$"NTER THE TITLE OF YOUR OUTLINE IN THE SPACES PROVIDED BELOW.":1880:S$"O NOT EXCEED SIXTY CHARACTERS IN YOUR TITLE."P:1880ZZU110:U28:L170:L210:2080::"............................................................":U$U$:IP60:1900:TL$IP$:D$d,1,14,""::A$"S ''"(18)TL$(146)"'' THE TITLE THAT YOU WANT FOR THIS OUTLINE?":SL80:2120:S$"'Y'ES OR 'N'O"n::2100:LN)S$ xK$:K$"Y" 150- K$"N" TL$"": 0,6,79,24,1:D$:90< 2170:120w :IS0:S$TL$:2100:LN)S$:U11:U23:L178:L25:2080 S$"HE FIRST STEP IN BUILDING YOUR OUTLINE IS TO ENTER IDEAS AT RANDOM AS THEY":1880)!S$"OCCUR TO YOU. ACH IDEA MAY BE UP TO 150 CHARACTERS IN LENGTH. O NOT":1880!S$"WORRY ABOUT MAKING MISTAKES. ORRECTIONS MAY BE MADE LATER IN THIS PROGRAM.":1890:U11:U29:L119:L29:2080:"DEAS NTERED: 000"D$"R1$(18)" YPE ''END'' AND PRESS '' WHEN DONE "(146):,30,9,R1$t" 0,11,79,24,1:D$:U11:U213:L178:L214:2080:I1150:".";::DD$;:IP150:1900:IP$"END" D$:290|"D$" 0,18,79,24:SL80:A$"OUR IDEA IS ''"IP$"''...SAVE THIS AS A GOOD IDEA?":2120::S$"'Y'ES OR 'N'O":2100:LN)S$#K$:K$"Y"2160:D$:260/#K$"N" D$:200>#2170:230k#ISIS1:IS$(IS)IP$:,15,9,R$:"###";IS# IS100 340#200$" 0,11,79,24,1:D$:U11:U213:L178:L215:2080:S$"OU HAVE JUST INDICATED THAT YOU HAVE COMPLETED ENTERING ALL OF YOUR IDEAS":1880|$,S$"AND ARE NOW READY TO GO ON TO THE NEXT STEP. S THIS CORRECT?":1880:S$"'Y'ES OR 'N'O":1890$6K$:K$"Y" 2160:340$@K$"N" 200$J2170:310$TL1:AIS1:X0: 0,2,79,24,1:D$:U11:U23:L178:L26:2080W%^S$"HE NEXT STEP IN MAKING YOUR OUTLINE WILL BE THE GROUPING OF YOUR IDEAS INTO":1880%hS$"BLOCKS OF RELATED IDEAS (ROMAN NUMERAL BLOCKS). DEAS WILL BE THE 'LETTERED'":1880&rS$"LINES OF YOUR OUTLINE (.,.,.,ETC.). NCE AGAIN, CHANGES MAY BE MADE LATER.":1880&|S$"(YOU ARE LIMITED TO TEN IDEAS PER GROUP) RESS ANY KEY TO CONTINUE.":1890:K$:U11:U210:L178:L213:2080:D$&U11:U216:L178:L219:2080:D$:,32,21,"'Y'ES OR 'N'O"Q'U11:U222:L123:L223:2080:"O. OF DEA ROUPS:":"(OMAN UMERAL INES)"D$:U130:U223:L149:L223:2080:"DEAS EMAINING:"D$'U156:U222:L177:L223:2080:"O. OF IDEAS IN":"THIS GROUP:"D$:Z1IS: X10 ZIS:540'IS$(Z)"" 530B(XX1:,20,22," ":"##";X:,46,23," ":"##";A:AA1:,68,23," ":"##";1:B1:A$IS$(Z):IS$(Z)"":TA$(X,0)A$:FI(X)1( 1,10,78,13,1:S$"OES THE IDEA . . . ":2100:LN)S$:SL 78:2120:D$:Y1IS: L10 520( IS$(Y)"" 510+)S$"O IN THE SAME ROMAN NUMERAL BLOCK AS . . . ":: 1,16,78,19,1:2100:LN)S$:A$IS$(Y):B$A$:2120:D$D)K$: K$"N" 510X) K$"Y" 500g)2170:470)IS$(Y)"":TA$(X,L)B$:,46,23," ":"##";A:AA1:,68,23," ":"##";B1:BB1:2160:LL1:FI(X)L) Y)L1) Z:BU0:600k* 0,2,79,24,1:I13:2170:I:2160:S$"OU HAVE RUN OUT OF OPPORTUNITIES TO PLACE YOUR IDEAS UNDER APPROPRIATE":1880*&S$"ROMAN NUMERAL BLOCKS. OWEVER, ALL IS NOT LOST. THE REMAINING IDEAS WILL":1880"+0S$"BE PLACED INTO A BUFFER AREA. OU MAY RECALL THESE IDEAS LATER, WHEN NEEDED.":1880+:::S$" LEASE WAIT WHILE THE BUFFER IS BEING LOADED . . .":1880: 2:I0IS:IS$(I)"" 590+DBUBU1:BU$(BU)IS$(I):IS$(I)"":" . ";,NI: 2::S$"*** HE BUFFER HAS BEEN LOADED ***":1880:S$"RESS ANY KEY TO CONTINUE":1890:K$,X 0,2,79,24,1:D$:U11:U23:L178:L24:2080:S$"OW YOU MUST ENTER THE TITLES FOR THE ROMAN NUMERAL BLOCKS":1880"-bS$"(NO MORE THAN FIFTY CHARACTERS PER TITLE, PLEASE) RESS ANY KEY TO CONTINUE.":1890:K$:K1X: 0,6,79,24,1:S11:S216:J0FI(K)?-lA$TA$(K,J):2120:J:D$-v 1,3,78,4,1:DD$;:"NTER THE NAME FOR THIS GROUP OF IDEAS":".................................................."DD$:IP50:1900 .(147)"S THIS THE TITLE YOU WANT? 'Y'ES OR 'N'O":S$IP$:1890$.K$:K$"N" 6306.K$"Y" 680E.2170:650.TG$(K)IP$:K: 0,2,79,24,1:D$:U11:U23:L178:L28:2080.S$"OW YOU WILL ARRANGE THE ROMAN NUMERAL LINES IN THE ORDER YOU WANT THEM TO":18808/S$"APPEAR IN YOUR OUTLINE. HE SCREEN WILL CLEAR, TWO WINDOWS WILL BE DRAWN":1880/S$"AND YOU WILL BE SHOWN THE TITLES YOU CREATED PREVIOUSLY. N ORDER TO":18800S$"ORGANIZE YOUR TOPICS IN ROMAN NUMERAL ORDER, TYPE IN THE APPROPRIATE":1880:S$"NUMBER NEXT TO THE DESIRED ROMAN NUMERAL.":1880=0S$"(RESS 'C' TO CONTINUE)":1890[0K$:K$"C" 2170:7400 0,0,79,24,1:D$:U11:U21:L177:L210:2080:D$:U11:U213:L177:L222:2080:D$:I110:A$,B$:R$A$: I1:::I110:R$I"-": I:I110:,6,(12I),TG$(I): I: I1K1F1,7,I,R$:IP2:1900:Z(IP$): ZK 2170:770\1 ZK 2170:7701ZZ(I)Z:YY0I1: ZZZ(YY) 2170:YYI:7701  YY:,8 ,I,TG$(Z):RN$(I)TG$(Z):NI(I)FI(Z):XX0FI(Z):LL$(I,XX)TA$(Z,XX):XX[2*,2,12Z," ": I::I1K1: A$,B$: A$" "RN$(I):I:24,1,15,"S THIS THE CORRECT ORDER OF YOUR ROMAN NUMERAL LINES? (Y/N)"2>K$:K$"N" :Z0:I1X:ZZ(I)Z::7502HK$"Y" 8602R2170:830^3\I1X: A$,B$:RN$(I)A$" "RN$(I): I::RT$""::S$TL$:2100:LN)S$:U11:U23:L178:L25:20803fS$"OW YOU MAY DELETE, ADD, AND MODIFY YOUR ORIGINAL IDEAS. HEY WILL EVENTUALLY":188014pS$"BECOME THE LETTERED LINES UNDER THEIR RESPECTIVE ROMAN NUMERAL LINE.":1880:S$"RESS 'C' TO CONTINUE":1890N4zK$:K$"C"2170:890`4 1,3,78,5,14S$"O DELETE A LINE, PRESS IT'S CORRESPONDING NUMBER.":1880:S$"R PRESS 'D' WHEN YOU ARE DONE DELETING LINES.":1890:RT$"YES" 9305A1X:S10:S21265 0,8,79,24,1:D$:,0,8,RN$(A): 0,9,79,24,15II0NI(A)1:A$(II):A$(A$,2,(A$)):A$A$" - "LL$(A,II):SL70:PT7:2120:PT0:II5NI(A)2 1350:RT$"YES" 10305K$5 RT$"YES" NI(A)2 K$"D" 2170:1350:960(6 RT$"YES" K$"D" S10:S218:1500;6K$"D" 1030a6K$(48) K$(57) 2170:9606K(K$): KNI(A)1 2170:9607BUBU1:BU$(BU)LL$(A,K):LL$(A,K)"":KKKNI(A):LL$(A,KK)LL$(A,KK1):KK:LL$(A,NI(A))"":NI(A)NI(A)1: 0,9,79,24,1:S10:S212:940q7A:I13:2160:I: 0,2,79,24,1:D$:U11:U23:L178:L25:2080:A1X: 0,8,79,24,1:D$7,0,8,RN$(A):S10:S2127 0,9,79,24,17$II0NI(A)1:A$(II):A$(A$,2,(A$)):A$A$" - "LL$(A,II):SL70:PT7:2120"8.PT0:II:RT$"YES" NI(A)10 1400:1090?88 NI(A)10 1400:12208B 1,3,78,5,1:S$"O ADD A LINE, PRESS 'A' AND ENTER IT AT THE PROMPT.":1880:S$"RESS 'V' TO VIEW THE LINES IN THE BUFFER.":18809LS$"RESS 'D' WHEN YOU ARE DONE OR DO NOT DESIRE TO ADD ANY MORE LINES.":1890X9VK$: RT$"YES" NI(A)10 K$"D" 2170:1400:10909` RT$"YES" K$"D" S10:S218:15009jK$"D" 12209t K$"V" 12309~ K$"A" 2170:1110B: 1,3,78,5,1:QQ1150:".";:QQ::12)(18)" NTER 'C' AND PRESS 'RETURN' TO CANCEL THIS OPTION "DD$;:IP150:1900[: IP$"C" D$:1040: 1,3,78,5,1: 1,3,78,6,0:S$"S THIS A GOOD ADDITION ? (Y/N)":1880:A$IP$:SL78:2120:K$: K$"N" 1160: K$"Y" 2170:1190,;NI(A)NI(A)1:LL$(A,(NI(A)1))IP$: 0,9,79,24,1:1060:; A:1440M; BU0 1330; BB1 BU: 1,3,78,5,1: 1,3,78,6,0:S$(18)" RESS 'A' TO ADD THIS LINE, 'V' TO VIEW ANOTHER, OR 'Q' TO QUIT BUFFER ":1880;A$BU$(BB):SL78:S10:S25:2120:D$i<K$: K$"A" IP$BU$(BB): CCBB BU:BU$(CC)"":BU$(CC)BU$(CC1):CC:BUBU1:BBBU:S10:S212:1210~< K$"V" 1300< K$"Q" 2170:1260< BBBU:1040=BB: 1,3,78,5,1:S$"OU HAVE SEEN ALL OF THE CONTENTS IN THE BUFFER. RESS 'C' TO CONTINUE":18906=K$:K$"C" S10:S212:1050F=(2170:1310=2 1,3,78,5,1:S$"HE BUFFER IS EMPTY. RESS 'C' TO CONTINUE":1890:K$:K$"C" 1050=<2170:1310>F 1,3,78,5,1:S$"OU MUST HAVE AT LEAST TWO LETTERED LINES PER ROMAN NUMERAL. OU MUST ADD":1880>PS$"A LINE OR TWO BEFORE YOU CAN DELETE ANY LINES UNDER THIS ROMAN NUMERAL.":1880:S$"RESS 'C' TO CONTINUE WITH NEXT STEP . . .":1890>ZK$: K$"C" 2170:1370R?d 1,3,78,5,1:S$"O DELETE A LINE, PRESS IT'S CORRESPONDING NUMBER.":1880::S$"RESS 'D' WHEN YOU ARE DONE DELETING LINES.":1890X?n?x 1,3,78,5,1:S$"OU MAY ONLY HAVE A TOTAL OF TEN LETTERED LINES PER ROMAN NUMERAL. OU":1880N@S$"MUST DELETE A LINE BEFORE YOU CAN ADD ANY MORE LINES TO THIS ROMAN NUMERAL.":1880:S$"RESS 'C' TO CONTINUE WITH NEXT STEP . . .":1890o@K$: K$"C" 2170:1420u@@I13:2160:I:RT$"YES"::S$TL$:2100:LN)S$:U11:U23:IP78:L25:2080AS$"OU WILL HAVE ONE FINAL OPPORTUNITY TO ADD, DELETE, OR CHANGE YOUR ROMAN":1880tAS$"NUMERAL BLOCKS. RESS 'V' TO VIEW THE FORMATTED BLOCKS AND THEN FOLLOW":1880AS$"THE PROMPTS FOR THE FINAL ORGANIZATION OF YOUR OUTLINE.":1890AK$: K$"V" 2170:1480AA1X:S10:S218pB 0,2,79,23,1: RN$(A): PR$;:B0NI(A)1: A$,B$:B$" "B$" ":B$;:A$LL$(A,B):PT11:SL63:2120:PT0:SL80:BB:D$: 0,24,78,24,1:S$(18)" RESS 'D' TO DELETE, 'A' TO ADD, 'R' TO REARRANGE, OR 'C' TO CONTINUE ":18904CK$:K$"D" S10:S212: 0,2,79,24,1:D$:U11:U23:L178:L25:2080:910CK$"A" S10:S212: 0,2,79,24,1:D$:U11:U23:L178:L25:2080:D$:1040C K$"R" 1570C K$"C" 2170:1520C A: 1660GD":I0NI(A):TE(I)NI(A)1: I: RN$(A): C0NI(A)1:" "C"- ";:PT11:SL63:A$LL$(A,C):S10:S218:2120:PT0:SL80:CD,:(18)" TYPE IN THE ORDER IN WHICH YOU WANT THESE LINES TO APPEAR "(146)" ";D6 D0NI(A)1:" /";: D::U$60);: E0 NI(A) 1@E@IP1:1900:TE(E)(IP$):TA$(A,E)LL$(A,TE(E)): IP$(48) IP$(57) 2170:L$"/"L$L$" "L$;:1600tEJ (IP$)NI(A)1 2170:L$"/"L$L$" "L$;:1600ET E0 1650E^I0E1:(IP$)TE(I) 2170:L$"/"L$L$" "L$;:INI(A):1600Eh I)FrL$"/";: E:C0NI(A):LL$(A,C)TA$(A,C):TA$(A,C)"": C::S$TL$:2100:LN)S$:1500:F|RT$"":1670F:I16:: I:S$"OU HAVE COMPLETED YOUR OUTLINE. O YOU NOW WISH TO PRINT IT? (Y/N)":1880FK$: K$"Y" :::1710F K$"N" 2170:1680F18102GS$(18)" AKE SURE THE PRINTER IS TURNED ON AND THEN PRESS 'P' ":1880LGK$: K$"P" 1740\G2170:1720G4,4,7:4:::::S$TL$:2100:TT1LN:" ";:TT:TL$:::CT8:A1X: RN$(A):CTCT1:1780%H:CTCT1:1780: B0 NI(A)1:A$,B$:B$B$" ":A$B$LL$(A,B):((A$)63)(60CT) CT60:1780HPT7:SL63:2180::CTCT1:1780:PT0:SL80: B::CTCT1:1780:: A: K$"D" 1870H4:4:1670H CT60 1800HH CT111:: CT:S$TL$" (ONT'D)":2100:TT1LN:" ";: TT:S$:::CT8:YI::::S$"RESS 'E' TO END, 'C' TO MAKE CHANGES OR 'D' TO SAVE OUTLINE TO DISK.":1880zIK$: K$"E" (142)::I& K$"C" 1440I0 K$"D" 2170:1820 J: #8,"OUTLINE.FILE,S", D0,W:8::::: TL$: A1 X: RN$(A):: B0 NI(A)1: A$,B$AJDC$" "B$" ":C$C$LL$(A,B): C$:: B::YJN A:#8: D0:1670zJX2100:LN);:A$S$:2110::Jb2100:LN);:A$S$:2110:D$:JlIP$"":CU1:CT0JvI$:2030:I$"" 1910JI$(13)" ";:JI$(20)2000KI$(32)I$(95)1960K1970:KI$(193)I$(218)1910MKI$(34)1910bK(IP$)IP1910|KIP$IP$I$:I$;:1910K(IP$)01910KIP$(IP$,1,((IP$)1))K" ";L$;L$;" ";L$;:1910KCTCT1KCT8KCU1" ";L$;L CU1(18)" ";(146);L$;)LCT0:CUCU1:L  (142);:,(U11),(U21),"":I1(L1U11):"";::"":I1(L2U21):L11)""::L11)"";:L$L$;L*I1(L1U11):""L$L$;::""L$U$;:I1(L2U21):""U$L$;:: U1,U2,L1,L2,1: (14);:M4LN0:LN((78(S$)))2:DM>LN(A$):I1LN:(A$,I,1);:N17:N:I:jMHLN(A$): LNSL RLLN:2150:MR I(SL1) 1 1: (A$,I,1)" " RLI1:2150:A$(A$,LNI):2120M\I:RLSL:2150:A$(A$,LNSL):2120NfPT)(A$,RL);: RLSL :S1S11:S1S22240:Վ&Np 1,12000,10:8Nz 1,1000,20:cNLN(A$): LNSL RLLN:2210:NU0:N I(SL1) 1 1: (A$,I,1)" " RLI1:2210:A$(A$,LNI):2180NI:RLSL:2210:A$(A$,LNSL):2180N NU0 " ";"OTT1PT:" ";: TT:(A$,RL);:NUNU1: RLSL 6OCTCT1:1780:O10)" PRESS ANY KEY TO CONTINUE PRINTING IDEAS UNDER THIS BLOCK "O6)" (SOME IDEAS WILL SCROLL UP OUT OF VIEW, BUT WILL REMAIN IN MEMORY) ":"";:S10:E$O(27)"D";:(27)"D";:P " .","."," .","."," .","."," .","."," .","."," .","."," .",".",".","."," .","."," .","."