home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Spring / rerun-1985-spring.d64 / plenty (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  3.3 KB  |  117 lines
  1. 3 rem ** plenty of k, a computer sampler
  2. 4 rem by elizabeth oman
  3. 6 poke53280,0:poke53281,0
  4. 7 gosub6000
  5. 9 gosub5000
  6. 10 rem experiment with k
  7. 19 print"[147]"
  8. 20 a$="%"
  9. 30 gosub1000
  10. 100 printtab(11)c$spc(3)c$spc(8)b$
  11. 120 printtab(10)a$spc(3)a$spc(1)a$spc(3)a$spc(6)a$spc(2)a$
  12. 130 printtab(10)a$spc(1)a$spc(1)a$spc(1)a$spc(1)a$spc(1)a$spc(6)b$spc(1)b$
  13. 135 printtab(11)b$spc(1)c$spc(1)b$spc(10)b$
  14. 140 printtab(14)a$spc(1)a$spc(12)c$
  15. 150 printtab(14)a$spc(1)a$spc(11)c$
  16. 160 printtab(14)a$spc(1)a$spc(10)c$
  17. 170 printtab(14)a$spc(1)a$spc(8)d$
  18. 180 printtab(14)a$spc(1)a$spc(5)f$
  19. 190 printtab(14)a$spc(1)a$spc(3)e$
  20. 200 printtab(14)a$spc(1)a$spc(2)g$
  21. 210 printtab(14)a$spc(1)d$spc(4)c$
  22. 220 printtab(14)a$spc(1)a$spc(2)b$spc(4)b$
  23. 230 printtab(14)a$spc(1)a$spc(3)c$spc(1)b$
  24. 240 printtab(14)a$spc(1)a$spc(5)b$
  25. 260 printtab(14)a$spc(1)a$spc(3)a$spc(1)d$
  26. 270 printtab(14)a$spc(1)a$spc(3)a$spc(1)b$spc(1)b$
  27. 280 printtab(14)a$spc(1)a$spc(4)b$spc(2)b$
  28. 290 printtab(14)a$spc(1)a$spc(9)b$
  29. 300 printtab(14)a$spc(1)a$spc(9)b$
  30. 310 printtab(11)b$spc(1)a$spc(1)a$spc(1)b$spc(7)b$
  31. 320 printtab(10)a$spc(1)a$spc(1)a$spc(1)a$spc(1)a$spc(1)a$spc(6)b$
  32. 330 printtab(10)a$spc(3)c$spc(3)a$spc(7)b$spc(1)a$
  33. 340 printtab(11)c$spc(3)c$spc(9)c$
  34. 350 geta$:ifa$=""goto350
  35. 355 gosub6000: print"change cursor color if you want to"
  36. 360 forx=1to6:print  :next:print"what symbol do you wish to change to?"
  37. 361 print"(1 only)"
  38. 365 forx=1to5:print  :next:print"do not use a comma, colon,  reverse "
  39. 366 print:  print"on, reverse off, or quotes, please"
  40. 367 forx=1 to2:print:next:print"zz will exit this part of program"
  41. 370 print:inputa$
  42. 371 ifa$="zz"goto7
  43. 372 gosub1000
  44. 380 goto100
  45. 1000 b$=a$+a$
  46. 1010 c$=a$+a$+a$
  47. 1020 d$=a$+a$+a$+a$
  48. 1030 e$=a$+a$+a$+a$+a$
  49. 1040 f$=a$+a$+a$+a$+a$+a$
  50. 1050 g$=a$+a$+a$+a$+a$+a$+a$:return
  51. 2000 rem sampler
  52. 2001 gosub6000
  53. 2009 print
  54. 2010 print"[154] [209][160][209]"spc(3)"[158]lll l"spc(3)"[159]x  xx"spc(2)"[209][209][209][160][160][209][209] [150]//// ///"
  55. 2011 print"[154] [209][160][209]"spc(4)"[158]l l"spc(4)"[159]x xx"spc(4)"[209][160][160][209]"spc(4)"[150]//"spc(3)"/"
  56. 2012 print"[154] [209][209]"spc(4)"[158]lll"spc(5)"[159]xxx"spc(5)"[209][209][209][209]"spc(4)"[150]//  /"
  57. 2013 print"[154] [209][160][209]"spc(4)"[158]l l"spc(4)"[159]x xx"spc(4)"[209][160][160][209]"spc(4)"[150]////"
  58. 2014 print"[154] [209][160][209]"spc(3)"[158]lll l"spc(3)"[159]x  xx"spc(2)"[209]"spc(4)"[209]"spc(3)"[150]// ///"
  59. 2015 printtab(21)"[209][209][209]  [209][209][209]"spc(2)"[150]//  ///"
  60. 2016 printtab(30)"////  ///"
  61. 2017 print"[158][166]"spc(3)"[166]"spc(2)"[155]x x  x"spc(2)"[153][215][160][215]"spc(3)"[215]"
  62. 2018 print"[158][166] [160][166]"spc(3)"[155] x  x "spc(2)"[153] [215]"spc(3)"[215]"
  63. 2019 print"[158][166] [166]"spc(5)"[155]x x"spc(5)"[153][215]  [215]"
  64. 2020 print"[158][166][166]"spc(5)"[155]x x"spc(5)"[153][215][160][215][215]"
  65. 2021 print"[158][166][160][166]"spc(5)"[155]x x"spc(5)"[153][215][160][160][215]"spc(6)"[156]+++  +"spc(3)"++"
  66. 2022 print"[158][166][160][160][166]"spc(4)"[155]x  x"spc(4)"[153][215]"spc(3)"[215]"spc(4)"[156]+"spc(3)"+++  ++ +"
  67. 2023 print"[158][166]"spc(3)"[166]"spc(2)"[155]x  x x"spc(2)"[153][215][160][215]"spc(3)"[215]"spc(2)"[156]+";
  68. 2024 printspc(5)"+  ++"spc(3)"+"
  69. 2025 printtab(24)"+ +  ++ +++  +"
  70. 2026 print"[209][209]"spc(4)"[209][209]  [149][166][166][166][166][166] [166][166][166][166]"spc(5)"[156]++ ++  ++"
  71. 2027 print" [209]"spc(4)"[209]"spc(4)"[149][166] [166]"spc(3)"[166]"spc(10)"[156]++ +"
  72. 2028 print" [209]"spc(3)"[209]"spc(5)"[149][166][166][166]   [166]"spc(9)"[156]++++ ++"
  73. 2029 print" [209][209][209][209]"spc(6)"[149][166] [166][160][166][166]"spc(9)"[156]+++"spc(3)"++"
  74. 2030 print" [209]"spc(3)"[209]"spc(5)"[149][166][166][166][166][166][166]"spc(4)"[156]++"spc(3)"++"spc(3)"+++  +"
  75. 2031 print" [209]"spc(4)"[209]"spc(4)"[149][166][160][166][160][166][160][166]"spc(3)"[156]+"spc(3)"++"spc(4)"+"spc(3)"+"
  76. 2032 print" [209]"spc(4)"[209]"spc(4)"[149][166][166][166][160][166][166][166]"spc(4)"[156]+++"spc(7)"+++"
  77. 2033 print"[209][209]"spc(4)"[209][209]"spc(3)"[149][166][160][166][160][160][166][160][166]"
  78. 2034 printtab(10)"[149][166][166][166][166][166][160][166][166][166][166]"
  79. 2035 geta$:ifa$=""goto2035
  80. 2036 print:gosub6000
  81. 2038 goto5000
  82. 2850 rem table for headings
  83. 2900 gosub6000
  84. 2910 forx=1to10:print:next:print"do you wish to figure sizes of letters"
  85. 2920 print"for a heading?"
  86. 2930 forx=1to2:print:next:print"y/n"
  87. 3000 geta$:ifa$=""goto3000
  88. 3010 if a$="y"thenprint"[147]":goto3020
  89. 3011 ifa$="n"goto7
  90. 3019 gosub6000
  91. 3020 forx=1to2:next:print"how many rows(1-4)?"
  92. 3025 forx=1to2:next:print:input m
  93. 3030 ifm>4then print"[158]too many" :goto3020
  94. 3031 ifm=0goto3020
  95. 3035 ifm<=4theny=int(25/m-1)
  96. 3040 forx=1to2:print:next:print"the maximum height of the letters is "  y
  97. 3050 print:print"[156]give the number of letters in the       longest row, please (1-10)"
  98. 3060 print:print:inputq
  99. 3070 ifq>10thenprint"too many":goto3060
  100. 3071 ifq=0goto3050
  101. 3080 ifq<=10thenw=int(40/q-1)
  102. 3090 forx=1to2:print:next:print "the maximum width of the  letters is" w
  103. 3990 geta$:ifa$=""goto3990
  104. 4000 gosub 6000
  105. 5000 forx=1to4:print:next:printtab(18)"menu"
  106. 5010 forx=1to4:print:next:print"sampler":print:print"experiment with k":
  107. 5015 print:print"table for headings"
  108. 5020 forx=1to6:print:next:print"select by pressing the first letter of"
  109. 5025 forx=1to2:print:next:print"your selection"
  110. 5030 getc$:ifc$=""goto5030
  111. 5031 ifc$="s"goto2000
  112. 5032 ifc$="e"goto19
  113. 5033 ifc$="t"goto2900
  114. 5040 ifc$<>"s"thenprint"[147]"
  115. 5050 goto5000
  116. 6000 print"[147]":return
  117.