home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Winter / rerun-1985-winter.d64 / brainstorming (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  7KB  |  217 lines
  1. 10 poke53280,1:poke53281,1:print"[150]"
  2. 15 dimz$(48),d$(11,11):l$="":ls$=""
  3. 20 sp$="                                        ":di$="headings"
  4. 25 fort=1to7:readr$(t):next:fort=1to48:readz$(t):next
  5. 30 n1=18:n2=62:n3=146:g=40:r=1:ft=g:b=0:dimi$(g),id$(10,g,10),lc(15)
  6. 35 gosub160  rem   input ideas
  7. 40 gosub180  rem   group ideas
  8. 45 gosub265  rem   remove ideas
  9. 50 gosub310  rem   replace buffered items
  10. 55 gosub615  rem   check for a without b
  11. 60 gosub405  rem   headings
  12. 65 gosub750  rem   rearrange headings
  13. 70 gosub435  rem   thesis statement
  14. 75 gosub450  rem   rough draft
  15. 80 gosub495  rem   pick best-worded item
  16. 85 gosub535  rem   rephrase headings
  17. 90 gosub570  rem   rephrase sub headings
  18. 95 gosub685  rem   subdivide subheadings
  19. 100 gosub855 rem   final check then print
  20. 105 goto45
  21. 110 c=64:limit=lc(u)
  22. 115 iflc(u)=0thenlimit=r
  23. 120 forp=1tolimit:f=1
  24. 125 ifid$(u,p,0)=""thenfori=p+1toli+1:id$(u,i-1,0)=id$(u,i,0):next
  25. 130 ifid$(u,p,0)=""then150
  26. 135 c=c+1:printleft$(ls$,0)chr$(c)chr$(n1)chr$(n2)chr$(n3)id$(u,p,0)
  27. 140 ifid$(u,p,f)<>""thenprintleft$(ls$,2)f"[157]. "id$(u,p,f):f=f+1:goto140
  28. 145 next
  29. 150 lc(u)=p-1:iflc(u)>hithenhi=lc(u)
  30. 155 return
  31. 160 z=1:gosub945:z=2:gosub955:z=4:gosub955
  32. 165 n=14:gosub975
  33. 170 input"[145][145]";i$(r):ifi$(r)=""thenreturn
  34. 175 r=r+1:gosub735:goto165
  35. 180 uc=0:z=5:gosub945:z=6:gosub955:z=7:gosub950:z=9:gosub950
  36. 185 z=10:gosub950:z=11:gosub950
  37. 190 d=1:c=1:uc=uc+1
  38. 195 ifi$(d)=""thend=d+1:ifd<gthen195
  39. 200 id$(uc,1,0)=i$(d):n=12:gosub975:print"[145][145]"i$(d):i$(d)=""
  40. 205 fort=d+1tor
  41. 210 ifi$(t)=""then250
  42. 215 n=15:gosub975:print"[145][145]"i$(t)
  43. 220 geta$:ifa$="y"then235
  44. 225 ifa$="n"then245
  45. 230 goto220
  46. 235 c=c+1:id$(uc,c,0)=i$(t):i$(t)=""
  47. 240 ifc>14thenz=40:gosub960:fort=1to1000:next:goto255
  48. 245 n=14:gosub975
  49. 250 next
  50. 255 fork=dtor:ifi$(k)<>""then190
  51. 260 next:return
  52. 265 u=0:b=1
  53. 270 u=u+1:ifu=uc+1thenreturn
  54. 275 z=0:z$(0)=z$(14)+str$(u):gosub945:gosub110
  55. 280 z=15:gosub955:z=16:gosub950:z=12:gosub950
  56. 285 geta$:a=asc(a$+chr$(0))
  57. 290 ifa=13then270
  58. 295 ifa<65ora>cthen285
  59. 300 id$(uc+1,b,0)=id$(u,a-64,0):b=b+1:lc(uc+1)=lc(uc+1)+1
  60. 305 id$(u,a-64,0)="":id$(u,a-64,1)="":goto275
  61. 310 uu=1
  62. 315 ifb$="+"thenreturn
  63. 320 u=uc+1:z=19:gosub945:gosub110:cc=c
  64. 325 z=0:z$(0)=z$(14)+str$(uu):gosub955
  65. 330 u=uu:gosub110:z$(0)=z$(20)+str$(u):gosub955:z=16:gosub950:z=3:gosub955
  66. 335 geta$:a=asc(a$+chr$(0))
  67. 340 ifa=13then370
  68. 345 ifa=136then365
  69. 350 ifa=45thenid$(uu,1,0)="":return
  70. 355 ifa<65ora>ccthen335
  71. 360 id$(uu,p,0)=id$(uc+1,a-64,0):id$(uc+1,a-64,0)="":lc(u)=lc(u)+1:goto315
  72. 365 input"";i$:id$(uu,p,0)=i$:r=r+1:lc(u)=lc(u)+1:gosub735:goto315
  73. 370 uu=uu+1:ifuu<>uc+1then315
  74. 375 z=21:gosub945:z=22:gosub950:z=47:gosub970
  75. 380 fort=1tolc(uc+1):id$(uc+1,t,0)="":next
  76. 385 geta$:ifa$=""then385
  77. 390 ifa$="_"then45
  78. 395 ifa$="+"thenu=uc:uc=uc+1:goto315
  79. 400 return
  80. 405 fort=1tolc(uc+1):id$(uc+1,t,0)="":next:z=23:gosub945:u=1
  81. 410 z=0:z$(z)=z$(28)+str$(u):gosub955:print:gosub110
  82. 415 input"heading";id$(u,0,0)
  83. 420 ifid$(u,0,0)=""thenid$(u,0,0)="(no heading)"
  84. 425 u=u+1:ifu=uc+1thenreturn
  85. 430 goto410
  86. 435 z=46:gosub945:z=45:gosub950
  87. 440 input"";thesis$:ifth$=""thenth$=t$
  88. 445 t$=th$:return
  89. 450 z=25:gosub945
  90. 455 z=0:z$(z)=th$:gosub955
  91. 460 u=1:n1=27:n2=46:n3=32
  92. 465 print""id$(u,0,0)"":gosub110
  93. 470 u=u+1
  94. 475 z=35:gosub965
  95. 480 geta$:ifa$=""then480
  96. 485 ifu=uc+1thenreturn
  97. 490 goto465
  98. 495 e=0
  99. 500 z$(0)=z$(8)+" "+di$:z=0:gosub945:z=27:gosub950:z=44:ft=42:gosub955
  100. 505 ifdi$="items"thene=e+1:u=e:print""id$(e,0,0)"":gosub110:goto515
  101. 510 foru=1touc:print""chr$(u+64)". "id$(u,0,0):next
  102. 515 geta$:ifa$=""then515
  103. 520 ifa$=chr$(13)thena=0:goto530
  104. 525 a=asc(a$)-64:ifa<0thena=0
  105. 530 return
  106. 535 ifa=0thenreturn
  107. 540 z=31:gosub945:z=32:gosub950:print:z=0:z$(z)=id$(a,0,0)+" ":gosub965
  108. 545 z=44:ft=42:gosub955
  109. 550 fory=1touc:ifid$(a,0,0)=id$(y,0,0)then565
  110. 555 n=12:gosub975:print"[145][145]"id$(y,0,0)
  111. 560 input"change to";id$(y,0,0):n=15:gosub975
  112. 565 next:return
  113. 570 di$="items":gosub500:ifa=0then605
  114. 575 z=24:gosub945:z=32:gosub950:print:z=0:z$(z)=""+id$(e,a,0):gosub965
  115. 580 z=44:ft=42:gosub955
  116. 585 fory=1top-1:ifid$(e,a,0)=id$(e,y,0)then600
  117. 590 n=12:gosub975:print"[145][145]"id$(e,y,0)
  118. 595 input"change to";id$(e,y,0):n=15:gosub975
  119. 600 next
  120. 605 ife=ucthenreturn
  121. 610 goto570
  122. 615 u=0:n=0
  123. 620 u=u+1:ifu>ucthenreturn
  124. 625 ifid$(u,1,0)=""then665
  125. 630 ifid$(u,2,0)=""then640
  126. 635 goto620
  127. 640 z=34:gosub945:z=0:z$(z)=z$(28)+str$(u)+" "+z$(36):gosub955
  128. 645 z=37:gosub955:z=38:gosub955:gosub110
  129. 650 getb$:ifb$="_"then665
  130. 655 ifb$="+"thenuu=u:k=u:lc(u)=lc(u)+1:gosub325:u=k:goto620
  131. 660 goto650
  132. 665 m=u
  133. 670 fort=1tohi:id$(m,t,0)=id$(m+1,t,0):id$(m+1,t,0)="":next
  134. 675 lc(m)=lc(m+1):m=m+1:ifm=>ucthenuc=uc-1:goto620
  135. 680 goto670
  136. 685 u=1
  137. 690 z=39:gosub945:print"[145]";:z=43:gosub950:z=44:ft=42:gosub955
  138. 695 e=0:print""id$(u,0,0)"":gosub110
  139. 700 geta$:a=asc(a$+chr$(0)):ifa=13then725
  140. 705 ifa<65ora>p+64then700
  141. 710 print""id$(u,a-64,0)"
  142. 715 e[178]e[170]1:[133]i$:[139]i$[178]""[167]id$(u,a[171]64,e)[178]"":[137]690
  143. 720 id$(u,a[171]64,e)[178]i$:i$[178]"":[137]715
  144. 725 [139]u[179]uc[167]u[178]u[170]1:[137]690
  145. 730 [142]
  146. 735 [139]r[179]35[167]745
  147. 740 [153]"  warning:  only "g[171]r"cmd  more ideas allowed onon":[129]s[178]1[164]2000:[130]
  148. 745 [142]
  149. 750 u[178]1:zz[178]18
  150. 755 z[178]13:[141]945:z[178]17:[141]955:z[178]12:[141]950
  151. 760 [161]a$:[139]a$[178]"_"[167]775
  152. 765 [139]a$[179][177]""[167]850
  153. 770 [137]760
  154. 775 [129]t[178]1[164]uc:[153]t" - "id$(t,0,0):[130]
  155. 780 z[178]zz:[141]955:zz[178]29
  156. 785 [161]a$:a[178]([198](a$[170][199](0)))[171]48:[139]a$[178]""[167]785
  157. 790 [139]a[179]1[176]a[177]9[167]785
  158. 795 [139]u[179][178]uc[175]id$(a,0,0)[178]""[167]785
  159. 800 x$(u)[178]id$(a,0,0):id$(a,0,0)[178]""
  160. 805 [129]t[178]1[164]lc(a):d$(u,t)[178]id$(a,t,0):w[178]1
  161. 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
  162. 815 [130]:l(u)[178]lc(a):id$(u,t,0)[178]""
  163. 820 u[178]u[170]1:[139]u[177]uc[167]830
  164. 825 [129]t[178]1[164]u:[153]x$(t):[130]:[153]"":[137]775
  165. 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]
  166. 835 [129]t[178]1[164]l(u):id$(u,t,0)[178]d$(u,t):w[178]1:id$(u,t,1)[178]""
  167. 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
  168. 845 [130]:id$(u,t[171]1,w)[178]"":u[178]u[170]1:[139]u[179][178]uc[167]835
  169. 850 [142]
  170. 855 z[178]26:[141]945:z[178]43:[141]950
  171. 860 [141]460:[153]"":z[178]21:[141]970:z[178]42:[141]970:z[178]41:[141]950
  172. 865 [161]b$:[139]b$[178]"_"[167]di$[178]"headings":[142]
  173. 870 [139]b$[178]"p"[167]880
  174. 875 [137]865
  175. 880 [159]3,4:[157]3
  176. 885 a[178]1:b[178]1:[153]"thesis:  "th$:[153]:[153]
  177. 890 c[178]1:[153]r$(a)"  "id$(a,0,0):[153]
  178. 895 [153]"      "[199](b[170]64)".  "id$(a,b,0):[153]
  179. 900 [139]id$(a,b,c)[178]""[167]910
  180. 905 [153],[199](c[170]48)".  "id$(a,b,c):c[178]c[170]1:[137]900
  181. 910 [139]c[177]1[167][153]:c[178]1
  182. 915 b[178]b[170]1:[139]id$(a,b,0)[179][177]""[167]895
  183. 920 a[178]a[170]1:b[178]1:[139]id$(a,b,0)[179][177]""[167][153]:[137]890
  184. 925 [152]3,:[160]3:z[178]48:[141]945
  185. 930 [161]a$:[139]a$[178]"y"[167][142]
  186. 935 [139]a$[178]"n"[167][128]
  187. 940 [137]930
  188. 945 [153]"load";
  189. 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]
  190. 955 [153]"";:[137]950
  191. 960 [153]"";:[137]950
  192. 965 z$(z)[178]""[170]z$(z):[137]950
  193. 970 ft[178]42:[137]950
  194. 975 [153][200](l$,n)sp$[170]sp$;:[142]
  195. 980 [131] "  i."," ii.","iii."," iv.","  v."," vi.","vii."
  196. 985 [131]" brainstorm ",type any idea that comes to mind
  197. 990 [131] "to add an item type  f-7 "
  198. 995 [131] but limit each to two screen lines,now you must group your ideas
  199. 1000 [131] the computer will present them,two at a time,next rephrase your
  200. 1005 [131] if you agree that the two are similar,"press  y wait"
  201. 1010 [131] "if not, press  n wait","otherwise press  return ",to resequence
  202. 1015 [131] here is group,to remove any items from this group,type its letter
  203. 1020 [131] "type  _ wait",which one first?
  204. 1025 [131] you removed (buffered) these items,to move buffered items to group
  205. 1030 [131] "to rearrange groups further type  _ ",otherwise hit any key
  206. 1035 [131] now you must give each group a heading,make the other subheadings
  207. 1040 [131] here is a rough-draft of your outline,here is your finished outline
  208. 1045 [131] type the letter of your best-w