home *** CD-ROM | disk | FTP | other *** search
/ Avalon 2 / Avalon_02_1995-06_Avalon_Side_A.d64 / wierd! (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  27KB  |  900 lines

  1. 10 dimpo$(80):i=rnd(-t1):goto25
  2. 11 o0=o:forq=1to50:printpo$(o);:next:o=o+1:return
  3. 15 printpo$(o):o=o+1
  4. 16 zz=zz+1:ifzz>16thenzz=0
  5. 17 poke53280,zz
  6. 20 fort=1to500:next:return
  7. 25 z=53280:pokez,6:pokez+1,0:dimy$(15):z$=" ":print"[147][158]all right, all";
  8. 30 print"right...":print"i'll get to it as soon as i can!":print"just let";
  9. 35 print" me finish up":print"what i was doing!":print"  grumble":gosub4285
  10. 40 print"[147]   [169]     [146]    [146]    [146]       [146]  [223]  [223][146]    [169]  [146][169]
  11. 45 [153]"  step      wait    wait    wait       wait   (NULL)  (NULL)wait  step  waitstep
  12. 50 print"    [223][146]        [146]    [146]       [146]    [146][223]  [223][169]  [146][169]
  13. 55 [153]"  (NULL)    (NULL)wait     wait    wait       wait     (NULL)    waitstep
  14. 60 print"   [223]    [223][146]    [146]    [146]       [146]      [223]  [146][169]
  15. 65 [153]"      (NULL)  wait    wait    wait       wait         wait
  16. 70 print"      [169]  [146]    [146]    [146]       [146]         [146]
  17. 75 [153]"        waitstep    wait       wait       wait      wait
  18. 80 print"       [146][169]     [146]       [146]       [146]      [146]
  19. 85 [153]
  20. 90 [153]"   step waitstep     step wait   opena compendium of useless
  21. 95 print"    [146][169]     [169] [146][169]   [159]but diverting stuff
  22. 100 [153]"    wait step (NULL)wait step waitstep wait   openfor you and your 64!
  23. 105 print"    [169][172][187] [146]  [146][169]  [146]
  24. 110 [153]"   (NULL) logcoswaitstep      wait print another waste of your
  25. 115 print"    [223] [146][169]      [146]  [153] precious time from...
  26. 120 [153]"clr spc(usr (NULL) spc( spc(     spc(usr    spc((NULL) spc(
  27. 125 print" [166]    [166] [166]     [166]     [166] [172][166][187]            [175]
  28. 130 [153]"  spc( spc( spc( spc( spc(+(NULL)  spc( spc((NULL) spc(< spc(  spc( +(NULL)usrspc( spc(step spc(not(NULL)
  29. 135 print" [175][166] [166] [166] [166] [166][168][220] [168][166] [166][168] [166]  [166][206] [166][206][205][220][220][166] [166]  [166][168][187]
  30. 140 [153][163]10)"notnot(NULL)
  31. 145 print"[150]  (c)1983";spc(6)"[159]press any key to begin";
  32. 150 getyn$:ifyn$=""then150
  33. 155 pokez,2:pokez+1,7:print"[147][144]name of the silly person at the controls"
  34. 160 inputna$:x2=len(na$):fora=1tox2
  35. 165 ifmid$(na$,a,1)=" "thennf$=left$(na$,a-1):x1=x2-a:ln$=right$(na$,x1)
  36. 170 next:tb=(24-len(na$))/2:ifnf$=""thennf$=na$:ifnf$=""thennf$="buster"
  37. 171 ifna$=""thenna$="john q. public"
  38. 175 print"";na$;", huh? sounds phony!":print"i'm gonna check this out!"
  39. 180 print"silly security check":fort=1to200:printt;"":next
  40. 185 print"okay, ";nf$;", you have"
  41. 190 print"security clearance to view":print"the sillymenu[146]"
  42. 195 print"";tab(13)"press any key"
  43. 200 getyn$:ifyn$=""then200
  44. 205 pokez+1,0:pokez,7
  45. 210 print"[147] [129][169]   [146]  [146]  [146]    [146]   [146]   [146] [223][146]  [169][146]    [146] [223][146]   [146]  [146]  [146]
  46. 215 [153]"  waitstep    wait  wait    wait   (NULL)step wait  (NULL)step wait  wait    (NULL)wait  wait  wait  wait (NULL)
  47. 220 print" [223]  [223][146]  [146]  [146]    [146]  [223]  [146][169]     [146]   [146]   [146][223][223] [146]  [146]  [146]
  48. 225 [153]"   (NULL) wait  wait  wait    wait   intabswait   wait(NULL)step wait  wait    wait (NULL) wait  wait  wait (NULL)
  49. 230 print"    [146][169]  [146]    [146]    [146] [181][182][146]   [146]   [146]    [146]  [146]  [146][223] [223] [146][169]
  50. 235 [153]"sys1. annoying repetitious message":[153]"2. sillydata
  51. 240 print"3. sillypoem":print"4. sillycrisis":print"5. reality"
  52. 245 pokes+5,d1(0):pokes+6,r1(0):pokes+12,d1(1):pokes+13,r1(1):pokes+15,30
  53. 250 pokes+19,d1(2):pokes+20,r1(2):pokes+2,lp(0):pokes+3,hp(0):pokes+9,lp(1)
  54. 255 pokes+10,hp(1):pokes+16,lp(2):pokes+17,hp(2):pokes+24,15
  55. 260 fori1=0toim-1
  56. 265 pokes,l%(0,i1):pokes+7,l%(1,i1):pokes+14,l%(2,i1)
  57. 270 pokes+1,h%(0,i1):pokes+8,h%(1,i1):pokes+15,h%(2,i1)
  58. 275 pokes+4,c%(0,i1):pokes+11,c%(1,i1):pokes+18,c%(2,i1)
  59. 280 getch$:ifch$<>""then290
  60. 285 nexti1:goto260
  61. 290 forl=stos+24:pokel,0:next
  62. 295 w=val(ch$):ifw>5orw<1then260
  63. 300 onwgoto305,475,1050,1095,1965
  64. 305 print"[147]";:pokez+1,15:pokez,15
  65. 310 print"[144]type in a message of not more that two"
  66. 315 print"lines. no commas or semicolons!"
  67. 320 print"your message will then be displayed"
  68. 325 print"continuously.  when you can't stand it"
  69. 330 print"any more, press any key. you may then"
  70. 335 print"either change your message or return"
  71. 340 print"to the sillymenu[146] to choose another"
  72. 345 print"time-wasting activity!"
  73. 350 print"";chr$(5);tab(13)"press any key"
  74. 355 getyn$:ifyn$=""then355
  75. 360 pokez+1,0:poke53280,0:z$=" ":print"[147]":print"[153]your message:"
  76. 365 inputa$:restore:a=0
  77. 370 ifa$=""thena$="my 64 plays with itself!"
  78. 375 l=len(a$)+1:g=int(999/l):x7=100
  79. 380 print"[147][153]";:c=1
  80. 385 pokes+5,9:pokes+24,10:pokes+3,8:pokes+2,0:pokes+6,0
  81. 390 x8=int(x7):printa$;z$;:pokes+4,65
  82. 395 getb$:ifb$<>""then440
  83. 400 pokes+1,x8:pokes+4,64:ifl<10thenx7=x7+.5:ifl<5thenx7=x7+.3
  84. 405 a=a+1:x7=x7-1:ifa<gthen390
  85. 410 a=0:print"";:x=x+1:x7=100:ifx=2thenx=0
  86. 415 ifx=1thenprintchr$(18);:readb:ifb=159thenrestore
  87. 420 printchr$(b);:ifx=0thenprintchr$(146);
  88. 425 ifl<10thenx8=200
  89. 430 getb$:ifb$<>""then440
  90. 435 goto390
  91. 440 forl=stos+24:pokel,0:next
  92. 445 print"[147][153]care to run a new message? y/n"
  93. 450 getyn$:ifyn$=""then450
  94. 455 ifyn$="y"then360
  95. 460 ifyn$="n"thena$="":goto205
  96. 465 goto450
  97. 470 data5,28,30,31,156,158,159
  98. 475 pokez,13:pokez+1,13
  99. 480 print"[147] [129][169]   [146]  [146]  [146]    [146]   [146]   [146]   [223][146] [169]  [223][146]      [146] [169]  [223][146]
  100. 485 [153]"  waitstep    wait  wait    wait   (NULL)step wait  wait(NULL) wait  waitstep(NULL) wait    wait    waitstep(NULL) wait
  101. 490 print" [223]  [223][146]  [146]  [146]    [146]  [223]  [146][169]  [146]  [146]  [146]   [146]    [146]    [146]   [146]
  102. 495 [153]"   (NULL) wait  wait  wait    wait   intabswait   step wait     wait    wait       wait
  103. 500 print"    [146][169]  [146]    [146]    [146] [181][182][146]    [146][169]  [146]   [146]    [146]    [146]   [146]
  104. 505 [137]625
  105. 510 [129]a[178]1[164]15:[140]:[153][163]ta)ta$
  106. 515 [151]z[170]1,0
  107. 520 i[178][181](5[172][187](1))[170]1
  108. 525 :
  109. 530 k[178]10
  110. 535 j[178][181](5[172][187](1))[170]1
  111. 540 [153]"openfactor #"a:[153]"(sys";y$(a);"open";x$;")                         "
  112. 545 u8[178]1:[153]"%  0     20     40     60     80     100
  113. 550 print"[145][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175]"
  114. 555 b9$="   [180]      [180]      [180]      [180]      [180]      [182]
  115. 560 [129]b7[178]1[164]9:[153]b9$:[130]
  116. 565 [153]"usrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusrusr"
  117. 570 [153]"onononononononononmon":[153]"tue":[153]"wed":[153]"thu":[153]"fri":[153]"sat"
  118. 575 [153]"sun":[153]"onononononononon";:[129]w[178]1[164]7:[151]z,i:[135]c:[153][199](c)
  119. 580 [139]a[177]5[167][151]vi[170]21,u8:u8[178]u8[170]1:[139]u8[178]3[167]u8[178]1
  120. 585 [153][163]3);:[129]q[178]1[164]k:[153]g$;"wait";:k[178][181](35[172][187](1)[170]1):[151]vi,u5
  121. 590 [151]vi[170]2,u5:[151]s[170]5,9:[151]s[170]24,15:x8[178](k[172]2):[139]a[177]5[167]u5[178]u5[170]1
  122. 595 [139]u5[178]150[175]([194](vi[170]16)[178]3)[167][151]vi[170]16,0:u5[178]0
  123. 600 [139]u5[178]255[167][151]vi[170]16,3:u5[178]0
  124. 605 [151]s[170]1,x8:[151]s[170]4,33:[151]s[170]4,32
  125. 610 [130]q:[130]w:[151]s[170]24,0:[140]:[153]"":[129]t[178]1[164]1000:[130]
  126. 615 [153]"load";:[130]a:[129]l9[178]s[164]s[170]24:[151]l9,0
  127. 620 [151]vi[170]21,0:[145][197](c$)[137]715,785,835,905,3160
  128. 625 [153][163]10)"stop statistical analysis"
  129. 630 y$(1)[178]"necessary":y$(2)[178]"unavoidable":y$(3)[178]"acceptable":y$(4)[178]"improper"
  130. 635 y$(7)[178]"disgusting":y$(5)[178]"annoying":y$(8)[178]"spasmodic":y$(9)[178]"grotesque"
  131. 640 y$(10)[178]"sleazy erotic":y$(11)[178]"effect of gravity on"
  132. 645 y$(12)[178]"rumors of possible":y$(13)[178]"actual need for":y$(14)[178]"likelihood of"
  133. 650 y$(15)[178]"attitude of wimps toward":y$(6)[178]"strangely satisfying"
  134. 655 [153]" do you wish to view:":[153]" 1. projected nonsense quotient
  135. 660 print" 2. absurdity trends":print" 3. net deviations from silliness norm"
  136. 665 print" 4. mean aberration probability"
  137. 670 print" 5. factor of your choice"
  138. 675 getc$:ifc$=""then675
  139. 680 ifval(c$)<1orval(c$)>5then695
  140. 685 pokez,0:pokez+1,0
  141. 690 onval(c$)goto700,775,825,895,3130
  142. 695 print"[146]no smartass stuff -- choose 1 to 4":goto675
  143. 700 print"[147]";:ta=7:ta$="[158]projected nonsense quotient[159]"
  144. 705 g$="[166]"
  145. 710 x$=" nonsense":goto510
  146. 715 pokez,0:print:print"[147][153]based on these trends, i predict a"
  147. 720 print"nonsense quotient of";k;" in the"
  148. 725 print"next physical year."
  149. 730 print:print"do you wish further analysis? -- y/n"
  150. 735 getyn$:ifyn$=""then735
  151. 740 ifyn$="y"then475
  152. 745 ifyn$="n"then755
  153. 750 goto735
  154. 755 print"[147]hmph. okay then, press any key"
  155. 760 print"  to return to the sillymenu"
  156. 765 getch$:ifch$=""then765
  157. 770 pokez,0:pokez+1,0:goto210
  158. 775 print"[147]";:ta=12:ta$="[158]absurdity trends[159]"
  159. 780 g$="[209]":x$=" absurdity":goto510
  160. 785 pokez,0:print:print"[147][153]my conclusion is inescapable:"
  161. 790 print"i foresee spiralling absurdity in the"
  162. 795 print"upcoming quarter.  i suggest you pre-"
  163. 800 print"pare yourself by keeping wadded-up"
  164. 805 print"newspapers in your shoes and placing"
  165. 810 print"your left forefinger in your ear"
  166. 815 print"whenever addressing anyone of any"
  167. 820 print"importance at all.":goto730
  168. 825 print"[147]";:ta=3:ta$="[158]net deviations from silliness norm[159]"
  169. 830 g$=" ":x$=" deviations":goto510
  170. 835 pokez,0:print:print"[147][153]well, i must say it looks grim."
  171. 840 print"i foresee massive deviations from the"
  172. 845 print"silliness norm in all sectors for the"
  173. 850 print"foreseeable future.  on the basis of"
  174. 855 print"my data, i would advise you to read"
  175. 860 print"the following aloud:"
  176. 865 print:print:forq=1to4
  177. 870 print"oo oo oo oo poo poo cha":nextq
  178. 875 print"pass the gas and scratch my cat"
  179. 880 print"until i find out where it's at!"
  180. 885 print:print:print"this may help a little"
  181. 890 goto730
  182. 895 print"[147]";:ta=6:ta$="[158]mean aberration probability[159]"
  183. 900 g$="[191]":x$=" aberrations":goto510
  184. 905 pokez,0:print:print"[147][153]neither you nor i in our pitiful state"
  185. 910 print"of perpetual ignorance is qualified to"
  186. 915 print"interpret the data i have just dis-"
  187. 920 print"played.  i only hope that in the days"
  188. 925 print"and months to come that you will con-"
  189. 930 print"sider the possibility of further"
  190. 935 print"aberrations, and do everything possible"
  191. 940 print"to encourage them.  you know, sometimes"
  192. 945 print"i sit here and wonder, 'is it all worth"
  193. 950 print"it'?  i mean, all this statistical data"
  194. 955 print"gushing out of me in a torrent of"
  195. 960 print"multi-colored spasms -- and yet i'm"
  196. 965 print"presenting this incredible wisdom to"
  197. 970 print"someone who probably doesn't understand"
  198. 975 print"a single word i'm saying."
  199. 980 print:print"maybe i'm wrong. maybe there is some"
  200. 985 print"hope that someone somewhere will do"
  201. 990 print"something about this aberration busi-"
  202. 995 print"ness. do you think so? y/n"
  203. 1000 getyn$:ifyn$=""then1000
  204. 1005 ifyn$="n"then1030
  205. 1010 ifyn$<>"y"then1000
  206. 1015 print:print"well, gee...thanks! maybe there's hope"
  207. 1020 print"after all.  you've really made my day!"
  208. 1025 goto730
  209. 1030 print:print"[147]**sigh** well, i guess that's the way"
  210. 1035 print"it goes..."
  211. 1040 forq=1to100:print"grumble ";:nextq
  212. 1045 goto730
  213. 1050 pokez,1:pokez+1,1
  214. 1055 print"[147] [169]   [146]  [146]  [146]    [146]   [146]   [146]   [223][146] [169] [223][146]    [146] [223][146]  [169][146]
  215. 1060 [153]"  waitstep    wait  wait    wait   (NULL)step wait  (NULL) wait  wait  wait  wait    (NULL)step wait
  216. 1065 print" [223]  [223][146]  [146]  [146]    [146]  [223]  [146][169]   [146][169]  [146]  [146]   [146]   [146][223][169] [146]
  217. 1070 [153]"   (NULL) wait  wait  wait    wait   intabswait   wait    wait  wait  wait    wait   wait
  218. 1075 print"    [146][169]  [146]    [146]    [146] [181][182][146]   [146]   [223] [146][169]    [146]  [146]   [146]
  219. 1080 [139]r5[178]4[167]r5[178]0:[142]
  220. 1085 [139]p1[178]2[167][142]
  221. 1090 [137]2105
  222. 1095 [137]1155
  223. 1100 [153]"ready."
  224. 1105 [161]a$:[139]a$[179][177]""[167]1105
  225. 1110 [153]" ";:[161]a$:[139]a$[179][177]""[167][142]
  226. 1115 [129]t[178]1[164]300:[130]:[153]"cmdwait cmd";:[129]t[178]1[164]300:[130]:[137]1110
  227. 1120 [161]a$:[139]a$[179][177]""[167]1120
  228. 1125 [161]a$:[139]a$[178]""[167]1125
  229. 1130 [142]
  230. 1135 [129]t[178]1[164]1500:[130]:[142]
  231. 1140 [129]t[178]1[164]400:[130]:[142]
  232. 1145 [151]y[170](40[172]u),7:[151]s1[170](40[172]u),160:[129]t[178]1[164]300:[130]:[142]
  233. 1150 [129]t[178]1[164]50:[130]:[142]
  234. 1155 [151]z,14:[151]z[170]1,6:[153]"loadcont"
  235. 1160 [153]"    **** commodore 64 basic v2 ****":[153]
  236. 1165 [153]" 64k ram system  38911 basic bytes free":[153]
  237. 1170 [141]1100
  238. 1175 [153]"cmdononwaitsorry but i'm not quite":[141]1100
  239. 1180 [153]"cmdononwaiti'll let you know when i'm":[141]1100
  240. 1185 [153]"cmdononwaithey, i can't handle this pressure!":[153]"i'm just not":[141]1100
  241. 1190 [153]:b[178]0:[153]"ononononon";:[129]b[178]1[164]8:[153]:[129]a[178]1[164]39:[153]" ";:[130]a:[130]b
  242. 1195 [153]
  243. 1200 [153][163]12)"don't touch me!":[141]1120
  244. 1205 [153][163]4)"onlook, i don't want to play now!":[141]1120
  245. 1210 [153]"on         keep your hands off me!wait   ":[141]1120
  246. 1215 [153]"on      look buster, i'm not kidding!":[141]1120
  247. 1220 [153]"onyou touch my keyboard one more time and "
  248. 1225 [153]"oni won't be responsible for what happens!":[141]1120
  249. 1230 [153]"load";:[151]z,0:[151]z[170]1,0:[153]"open";[163]12)"you were warned":[141]1140
  250. 1235 [141]1140
  251. 1240 r$[178]"    ":b$[178]"stop    ":b8$[178]b$[170]b$:r8$[178]r$[170]r$:bt$[178]b$[170]b8$:rt$[178]r$[170]r8$
  252. 1245 bs$[178]b8$[170]b8$:rs$[178]r8$[170]r8$:[153]"load";
  253. 1250 [129]x[178]1[164]8:[153]b8$;r8$;b$;rt$;b8$;:[130]
  254. 1255 [129]x[178]1[164]8:[153]b8$;r8$;b$;r$;b$;r$;b8$;:[130]
  255. 1260 [129]x[178]1[164]8:[153]b8$;r8$;b$;rt$;b8$;:[130]
  256. 1265 [141]1150
  257. 1270 [153]"load";:[129]x[178]1[164]4:[153]bt$;rs$;bt$;:[130]
  258. 1275 [129]x[178]1[164]6:[153]bt$;r$;b8$;r$;bt$;:[130]
  259. 1280 [129]x[178]1[164]4:[153]bt$;rs$;bt$;:[130]
  260. 1285 [129]x[178]1[164]6:[153]bs$;b8$;r$;bt$;:[130]
  261. 1290 [129]x[178]1[164]4:[153]bt$;rs$;bt$;:[130]
  262. 1295 [141]1150
  263. 1300 [153]"load";:[129]x[178]1[164]4:[153]bt$;rs$;bt$;:[130]
  264. 1305 [129]x[178]1[164]6:[153]bt$;r$;b8$;r$;bt$;:[130]
  265. 1310 [129]x[178]1[164]4:[153]bt$;rs$;bt$;:[130]
  266. 1315 [129]x[178]1[164]6:[153]bt$;r$;b8$;r$;bt$;:[130]
  267. 1320 [129]x[178]1[164]4:[153]bt$;rs$;bt$;:[130]:[141]1150
  268. 1325 [153]"load";:[129]x[178]1[164]4:[153]bt$;rs$;bt$;:[130]
  269. 1330 [129]x[178]1[164]20:[153]bs$;b8$;r$;bt$;:[130]:[141]1150
  270. 1335 [153]"load";:[129]x[178]1[164]4:[153]bt$;rs$;bt$;:[130]
  271. 1340 [129]x[178]1[164]6:[153]bt$;r$;b8$;bs$;:[130]
  272. 1345 [129]x[178]1[164]4:[153]bt$;rs$;bt$;:[130]
  273. 1350 [129]x[178]1[164]6:[153]bt$;r$;b8$;r$;bt$;:[130]
  274. 1355 [129]x[178]1[164]4:[153]bt$;rs$;bt$;:[130]:[141]1150
  275. 1360 [153]"load";:[129]x[178]1[164]4:[153]bt$;rs$;bt$;:[130]
  276. 1365 [129]x[178]1[164]6:[153]bt$;r$;b8$;bs$;:[130]
  277. 1370 [129]x[178]1[164]4:[153]bt$;rs$;bt$;:[130]
  278. 1375 [129]x[178]1[164]6:[153]bs$;b8$;r$;bt$;:[130]
  279. 1380 [129]x[178]1[164]4:[153]bt$;rs$;bt$;:[130]:[141]1150
  280. 1385 [153]"load";:[129]x[178]1[164]4:[153]bt$;r$;bs$;b8$;:[130]
  281. 1390 [129]x[178]1[164]8:[153]bt$;r$;b$;r$;bs$;:[130]
  282. 1395 [129]x[178]1[164]4:[153]bt$;rs$;bt$;:[130]
  283. 1400 [129]x[178]1[164]8:[153]bs$;b$;r$;bs$;:[130]:[141]1150
  284. 1405 [153]"load";:[129]x[178]1[164]4:[153]bt$;rs$;bt$;:[130]
  285. 1410 [129]x[178]1[164]6:[153]bs$;b8$;r$;bt$;:[130]
  286. 1415 [129]x[178]1[164]4:[153]bs$;r8$;r$;bt$;:[130]
  287. 1420 [129]x[178]1[164]6:[153]bs$;b8$;r$;bt$;:[130]
  288. 1425 [129]x[178]1[164]4:[153]bt$;rs$;bt$;:[130]:[141]1150
  289. 1430 [153]"load";:[129]x[178]1[164]4:[153]bt$;rs$;bt$;:[130]
  290. 1435 [129]x[178]1[164]6:[153]bs$;b8$;r$;bt$;:[130]
  291. 1440 [129]x[178]1[164]4:[153]bt$;rs$;bt$;:[130]
  292. 1445 [129]x[178]1[164]6:[153]bt$;r$;b8$;bs$;:[130]
  293. 1450 [129]x[178]1[164]4:[153]bt$;rs$;bt$;:[130]:[141]1150
  294. 1455 [153]"load";:[129]x[178]1[164]24:[153]bs$;r8$;bs$;:[130]:[141]1140
  295. 1460 [153]"load";:[141]1140:[141]1140:[141]1140
  296. 1465 v[178]54296:w[178]54276:a[178]54277:h[178]54273:l[178]54272
  297. 1470 [151]w,129:[151]a,15:[151]h,40:[151]l,200
  298. 1475 [129]x[178]1[164]100:[151]z,1:[151]z[170]1,1:[129]t[178]15[164]0[169][171]1:[151]v,t
  299. 1480 [130]:[151]z,0:[151]z[170]1,0:[151]w,0:[151]a,0
  300. 1485 [129]t[178]1[164]10:[130]:[130]
  301. 1490 [151]z,1:[151]z[170]1,1:[153][163]6)"stopcbm 64 inner control center"
  302. 1495 [153]
  303. 1500 [153]" wait stop6566/6567 vic ii chip"
  304. 1505 [153]
  305. 1510 [153]" wait stop6581 sid chip"
  306. 1515 [153]
  307. 1520 [153]" wait stop6510 microprocessor"
  308. 1525 [153]
  309. 1530 [153]" wait stopkeyboard"
  310. 1535 [153]
  311. 1540 [153]" wait stopi/o channels"
  312. 1545 [153]
  313. 1550 [153]" wait stopram storage"
  314. 1555 [153]
  315. 1560 [153]" wait stoprom storage"
  316. 1565 [153]
  317. 1570 [153]" wait stopexpansion port"
  318. 1575 [153]
  319. 1580 [153]" wait stopuser port"
  320. 1585 [153]
  321. 1590 [153]" wait stopeverything else"
  322. 1595 [153]"      wait stopsafe  sys wait stopcaution   wait stopdanger"
  323. 1600 [153]"";[163]25)"status report: "
  324. 1605 [153][163]25)"stopondangerous level":[153][163]25)"onof hostility!  "
  325. 1610 [153][163]25)"onfeedback above "
  326. 1615 [153][163]25)"onsafe levels!   "
  327. 1620 [141]1150
  328. 1625 y[178]55296:u[178]2:s1[178]1024:[141]1140
  329. 1630 [141]1145:u[178]14:[141]1145:u[178]10:[141]1145:u[178]4:[141]1145
  330. 1635 u[178]12:[141]1145:u[178]16:[141]1145:u[178]6:[141]1145:u[178]8:[141]1145:u[178]18:[141]1145:u[178]20:[141]1145
  331. 1640 [141]1140:[153]"":[153][163]25)"onstopmassive memory "
  332. 1645 [153][163]25)"ononsurge! drain   ":[153][163]25)"onoverload buffer"
  333. 1650 [153][163]25)"ononimmediately!   "
  334. 1655 [129]q[178]1[164]10:[129]x[178]y[164]y[170](40[172]20)[169]80:[151]x,7:[153][163]25)"danger! danger!on";
  335. 1660 [130]:[141]1150
  336. 1665 [129]x[178]y[164]y[170](40[172]20)[169]80:[151]x,2:[153][163]25)"danger! danger!waiton";:[130]
  337. 1670 [141]1150:[130]
  338. 1675 [153]"load";:[151]z,2:[129]x[178]1[164]99:[153]"emergency ";:[130]
  339. 1680 [153]"emergency";:[151]2023,160:[151]56295,2:[141]1135
  340. 1685 [151]z[170]1,1:[151]z[170]2,3:[151]z[170]3,8:[151]53270,[194](53270)[176]16
  341. 1690 c[178]13[172]4096[170]8[172]256:f[178]9:s[178]54272:fr[178]5389
  342. 1695 [129]l[178]0[164]24:[151]s[170]l,0:[130]:[151]s[170]14,5:[151]s[170]18,16
  343. 1700 [151]s[170]3,1:[151]s[170]24,143:[151]s[170]6,240:[151]s[170]4,65:fr[178]5389
  344. 1705 [129]l[178]0[164]999
  345. 1710 fq[178]fr[170][194](s[170]27)[172]3.5
  346. 1715 hf[178][181](fq[173]256):lf[178]fq[171]hf[172]256
  347. 1720 [151]s[170]0,lf:[151]s[170]1,hf
  348. 1725 [151]c[170]l,f:[130]:[151]s[170]24,0:[151]z,1
  349. 1730 [153]"";:[129]a[178]1[164]499:[153]"wait ";:[130]:[151]2022,32:[151]56295,1:[141]1135
  350. 1735 [129]a[178]1[164]499:[153]"wait ";:[130]:[151]2023,32:[151]56296,1:[141]1135:[153]"load";
  351. 1740 [151]53270,[194](53270)[175]239
  352. 1745 v[178]6:x[178]1
  353. 1750 [129]l[178]0[164]24:[151]s[170]l,0:[130]:[151]z,0:[151]z[170]1,0
  354. 1755 [153]"sysbegin total memory drain procedure"
  355. 1760 [129]t[178]1[164]2000:[130]
  356. 1765 [151]s[170]1,100:[151]s[170]5,203:[151]s[170]15,28
  357. 1770 [153]"load";[166]10)"printrandom access memory"
  358. 1775 [151]s[170]4,18:[129]a[178]1[164]479:[153]"spc((NULL)";:[130]:[153]"spc(";
  359. 1780 [151]2023,80:[151]56295,v
  360. 1785 [141]1135
  361. 1790 [153]"";
  362. 1795 [151]s[170]4,19:[151]s[170]24,15
  363. 1800 [129]a[178]1[164]479:[153]"(NULL)(NULL)";
  364. 1805 [130]:[153]"(NULL)";:[151]2023,80
  365. 1810 [141]1135:[151]s[170]24,0
  366. 1815 [145]x[137]1820,1825,1830,1835,1840
  367. 1820 [153]"load";[163]12)"printread only memory":x[178]x[170]1:v[178]2:[137]1775
  368. 1825 [153]"load";[163]11)"printbasic interpretersys":x[178]x[170]1:v[178]7:[137]1775
  369. 1830 [153]"load";[163]9)"printkernal operating systemclr":x[178]x[170]1:v[178]4:[137]1775
  370. 1835 [153]"load";[163]13)"printeverything elseopen":x[178]x[170]1:v[178]3:[137]1775
  371. 1840 [151]s[170]24,0:[153]"load";[166]13)"openstatus report:"
  372. 1845 [153]"printrandom access memory      sysdisabled"
  373. 1850 [153]"printread only memory          sysdisabled"
  374. 1855 [153]"printbasic interpreter         sysdisabled"
  375. 1860 [153]"printkernal operating system   sysdisabled"
  376. 1865 [153]"printeverything else           sysdisabled"
  377. 1870 [129]t[178]1[164]4000:[130]
  378. 1875 [151]z[170]1,15:[151]z,15
  379. 1880 [161]a$:[139]a$[179][177]""[167]1880
  380. 1885 [153]"load";:[153]"stop last chance to avoid total destruction "
  381. 1890 [153]" touch any key  to abort the impending"
  382. 1895 [153]" destruction of all programs and files"
  383. 1900 [153]"on all disks and tapes in the immediate"
  384. 1905 [153]"area as well as potentially serious and"
  385. 1910 [153]" possibly fatal injuries to all humans"
  386. 1915 [153]"and animals within a three mile radius!"
  387. 1920 x[178]10:[153]"";[163]19)"10"
  388. 1925 [161]a$:[139]a$[179][177]""[167]1960
  389. 1930 [141]1135:x[178]x[171]1:x$[178][196](x):[153][163]19)"on0";[201](x$,1)
  390. 1935 [139]x[177]0[167]1925
  391. 1940 [153]"loadoh hell, i don't feel up to any mass"
  392. 1945 [153]"destruction today. let's just forget"
  393. 1950 [153]"the whole thing, okay?"
  394. 1955 [141]1135:[141]1135
  395. 1960 [153]"load";:[151]z,0:[151]z[170]1,0:[137]210
  396. 1965 [129]l[178]s[164]s[170]24:[151]l,0:[130]:[151]s[170]22,128:[151]s[170]21,0:[151]s[170]23,1:[151]s[170]5,9
  397. 1970 x[178]39:y[178]24:[153]"loadstop";:[151]z,0:[151]z[170]1,2:ww$[178]"*silly 64*"
  398. 1975 [151]s[170]6,0:[151]s[170]24,79
  399. 1980 [151]s[170]4,33:[129]a[178]1[164]x:[153]" ";:x8[178]a[172]3:x7[178]a[170]20:[151]s[170]1,x7:[151]s,x8:[130]
  400. 1985 [151]s[170]4,32
  401. 1990 [151]s[170]4,33:[129]a[178]1[164]y:[153]"cmd ";:x8[178]y[172]4:x7[178]a[170]20:[151]s[170]1,x7:[130]:y[178]y[171]1
  402. 1995 [151]s[170]4,32
  403. 2000 [151]s[170]4,33:[129]a[178]1[164]x:[153]"cmd cmd";:x8[178]a[172]2:x7[178]a[170]20:[151]s[170]1,x7:[151]s,x8
  404. 2005 [130]:[151]s[170]4,32:x[178]x[171]2
  405. 2010 [129]a[178]1[164]y:[153]" cmdon";:x8[178]y[172]5:x7[178]a[170]20
  406. 2015 [130]:y[178]y[171]1
  407. 2020 [139]y[177]0[167]1980
  408. 2025 [153]"waitonstop"ww$;" has":[153]"been a $ervice of";:[151]s[170]24,0
  409. 2030 [129]a[178]1[164]22:[153]"printopen ";:[129]b[178]1[164]10:[130]:[130]:[153]
  410. 2035 [153]"stopsilly software!":c[178]2:[129]l[178]s[164]s[170]24:[151]l,0:[130]
  411. 2040 [153]""[199](34);"one byte never hurt anybody!"[199](34)
  412. 2045 [129]l[178]0[164]24:[151]s[170]l,0:[130]
  413. 2050 [151]s,240:[151]s[170]1,33:[151]s[170]5,8:[151]s[170]22,104:[151]s[170]23,1:[151]s[170]24,79
  414. 2055 [161]a$:[153]"press any key to end"
  415. 2060 [151]53281,c:[129]a[178]1[164]150:[130]:c[178]c[170]1:[139]c[178]11[167]c[178]13
  416. 2065 [129]t[178]1[164]30:[130]:[139]c[178]9[167]c[178]10
  417. 2070 [139]c[178]15[167]c[178]2
  418. 2075 [139]c[178]6[167]c[178]7
  419. 2080 [151]s[170]4,129
  420. 2085 [129]t[178]1[164]250:[130]:[151]s[170]4,128
  421. 2090 [139]a$[178]""[167]2055
  422. 2095 [153]"loadcont":[151]z[170]1,6:[151]z,14:[129]l[178]s[164]s[170]24:[151]l,0:[130]
  423. 2100 [128]
  424. 2105 [139]p1[178]0[167]2140
  425. 2110 [153]"sorry, "nf$;", but your poetic"
  426. 2115 [153]"license has expired, and you're"
  427. 2120 [153]"going to have to take the test again"
  428. 2125 [153]"";[163]13)"press any key"
  429. 2130 [161]yn$:[139]yn$[178]""[167]2130
  430. 2135 [137]2190
  431. 2140 [153]"no individual may create a sillypoemwait":o0[178]1000
  432. 2145 [153]"until he or she has been granted an"
  433. 2150 [153]"official poetic license. you may apply"
  434. 2155 [153]"by taking a short test."
  435. 2160 [153]"press stoptwait to take the test"
  436. 2165 [153]"press stopmwait to return to the sillymenu"
  437. 2170 [161]yn$:[139]yn$[178]""[167]2170
  438. 2175 [139]yn$[178]"m"[167]205
  439. 2180 [139]yn$[178]"t"[167]p1[178]1:[137]2190
  440. 2185 [137]2170
  441. 2190 [151]z[170]1,3:[151]z,3:[153]"stop"
  442. 2195 [153]"load    poetic license test questions:"
  443. 2200 [153]"1wait your favorite flavor of ice cream"
  444. 2205 [133]ic$:[139]ic$[178]""[167]ic$[178]"mocha mint"
  445. 2210 [153] "2wait name a neat part of the body"
  446. 2215 [133]bp$:[139]bp$[178]""[167]bp$[178]"breasts"
  447. 2220 [153]"3wait name another neat part of the body"
  448. 2225 [133]ap$:[139]ap$[178]""[167]ap$[178]"thighs"
  449. 2230 [153]"4wait give me a silly one-word song title"
  450. 2235 [133]ae$:[139]ae$[178]""[167]ae$[178]"babaloooaiae"
  451. 2240 [153]"5wait name a kind of liquid"
  452. 2245 [133]fl$:[139]fl$[178]""[167]fl$[178]"fluid"
  453. 2250 [153]"6wait name an article of clothing"
  454. 2255 [133]pc$:[139]pc$[178]""[167]pc$[178]"sweater"
  455. 2260 [139][201](pc$,1)[179][177]"s"[167]pc$[178]pc$[170]"s"
  456. 2265 [153]"7wait type a very silly exclamation"
  457. 2270 [133]se$:[139]se$[178]""[167]se$[178]"unka unka doo doo!"
  458. 2275 [139][201](se$,1)[179][177]"!"[167]se$[178]se$[170]"!"
  459. 2280 [153]"8wait name an unpleasant substance"
  460. 2285 [133]os$:[139]os$[178]""[167]os$[178]"poo poo"
  461. 2290 [139][201](se$,1)[179][177]"!"[167]se$[178]se$[170]"!"
  462. 2295 [153]"any changes y/n?"
  463. 2300 [161]yn$:[139]yn$[179][177]"y"[175]yn$[179][177]"n"[167]2300
  464. 2305 [139]yn$[178]"n"[175]p1[178]2[167]2570
  465. 2310 [139]yn$[178]"n"[167]2385
  466. 2315 [139]yn$[178]"y"[167][153]"which line?"
  467. 2320 [161]ch$:[139]ch$[178]""[167]2320
  468. 2325 [139][197](ch$)[179]1[176][197](ch$)[177]7[167]2320
  469. 2330 [133]"change to";x$
  470. 2335 [145][197](ch$)[137]2340,2345,2350,2355,2360,2365,2375,2380
  471. 2340 ic$[178]x$:[137]2295
  472. 2345 bp$[178]x$:[137]2295
  473. 2350 ap$[178]x$:[137]2295
  474. 2355 ae$[178]x$:[137]2295
  475. 2360 fl$[178]x$:[137]2295
  476. 2365 pc$[178]x$:[139][201](pc$,1)[179][177]"s"[167]pc$[178]pc$[170]"s"
  477. 2370 [137]2295
  478. 2375 se$[178]x$:[137]2295:[139]p1[177]0[167]2570
  479. 2380 os$[178]x$:[137]2295
  480. 2385 [151]z,0:[151]z[170]1,0:[153]"load":[153][163]11)"opengrading your test"
  481. 2390 [141]1135:[141]1135:[153]"loadcongratulations, ";nf$
  482. 2395 [153]"you are now a poet!":[153]"press any key to receive your license"
  483. 2400 c1[178]4:[161]yn$:[139]yn$[178]""[167]2400
  484. 2405 [151]z,0:[151]z[170]1,15:[153]"loadclr";:[129]a[178]1[164]120:[153]"spc(";:[130]:r2[178]55416:r3[178]56096
  485. 2410 [129]a[178]1[164]3
  486. 2415 [129]g[178]r2[164]r3[169]40:[151]g,c1:[130]
  487. 2420 r2[178]r2[170]1:r3[178]r3[170]1:[130]
  488. 2425 r2[178]55453:r3[178]56135:r5[178]r5[170]1:[139]r5[178]1[167]2410
  489. 2430 r2[178]1144:r3[178]1824:c1[178]102:[139]r5[178]2[167]2410
  490. 2435 r2[178]1181:r3[178]1861:[139]r5[178]3[167]2410
  491. 2440 [153]"";:[129]a[178]1[164]21:[153]"";:[130]:[129]a[178]1[164]120:[153]"spc(";:[130]
  492. 2445 r2[178]56256:c1[178]0:r3[178]1984:c2[178]224
  493. 2450 [129]a[178]0[164]12:[151]r2[170]a,c1:[151]r3[170]a,c2:[130]
  494. 2455 r2[178]56281:c1[178]0:r3[178]2009:c2[178]224
  495. 2460 [129]a[178]0[164]14:[151]r2[170]a,c1:[151]r3[170]a,c2:[130]
  496. 2465 :
  497. 2470 [153][166]13)"press any key";:[137]2480
  498. 2475 xx[178]((40[171][195](xx$))[173]2)[170]x8:[153][163]xx)xx$:[142]
  499. 2480 xx$[178][199](18)[170][199](5)[170]"poetic license":x8[178]2:[141]2475
  500. 2485 xx$[178]"stopthis certificate":x8[178]1:[141]2475
  501. 2490 xx$[178]"confers upon":x8[178]0:[141]2475
  502. 2495 xx$[178][199](18)[170]na$:[141]2475
  503. 2500 xx$[178]"full and complete authority":[141]2475
  504. 2505 xx$[178]"to practice the art":[141]2475
  505. 2510 xx$[178]"and/or science of":[141]2475
  506. 2515 xx$[178]"poetry":x8[178]1:[141]2475
  507. 2520 xx$[178]"until he or she":x8[178]0:[141]2475
  508. 2525 xx$[178]"gets it right":[141]2475:xx$[178]"*****":[141]2475
  509. 2530 xx$[178]"and further certifies":[141]2475
  510. 2535 xx$[178]"that he or she is":[141]2475
  511. 2540 xx$[178]"a graduate of":[141]2475
  512. 2545 xx$[178]"the commodore school of poetry":[141]2475
  513. 2550 xx$[178]"(not affiliated with":[141]2475
  514. 2555 xx$[178]"commodore business machines)":[141]2475
  515. 2560 xx$[178][199](5)[170]"state of the art/art for the state":x8[178]2:[141]2475
  516. 2565 [161]yn$:[139]yn$[178]""[167]2565
  517. 2570 [151]z[170]1,0:[153]"loadprint";
  518. 2575 [153]"okay--what kind of poem will this be?":pp[178]0:gs[178]0:gt[178]0
  519. 2580 [153]:[153]"1. good":[153]"2. great":[153]"3. wonderful"
  520. 2585 [153]"4. awesome":[153]"5. overwhelming"
  521. 2590 [153]"systip: the higher the number"
  522. 2595 [153]"     the longer the sillypoemwait!"
  523. 2600 [161]g$:[139]g$[178]""[167]2600
  524. 2605 [139][197](g$)[179]1[176][197](g$)[177]5[167]2600
  525. 2610 pp[178][197](g$)[172]9
  526. 2615 [151]z,1:[151]z[170]1,1:[141]1055:xx$[178]"by "[170]na$:x8[178]0:[153]:[141]2475
  527. 2616 [153]:[141]1135
  528. 2620 i[178][181](6[172][187](1))[170]1:[153]"stop";
  529. 2625 [139]o[177]pp[167]2860
  530. 2626 [145]i[137]2630,2665,2705,2745,2900,2935
  531. 2630 [139]o[177]pp[167]2860
  532. 2631 [145]i[137]2635,2640,2645,2650,2655,2660
  533. 2635 po$(o)[178]"a small droplet of "[170]fl$:[141]15:[137]2785
  534. 2640 po$(o)[178]"thousands of "[170]pc$:[141]15:[137]2785
  535. 2645 po$(o)[178]ic$[170]" ice cream":[141]15:[137]2785
  536. 2650 po$(o)[178]"naked "[170]bp$[170]", naked "[170]ap$:[141]15:[137]2785
  537. 2655 po$(o)[178]se$:[141]15:[137]2785
  538. 2660 po$(o)[178]"buried in a mountain of "[170]os$:[141]15:[137]2785
  539. 2665 [139]o[177]pp[167]2860
  540. 2666 [145]i[137]2670,2675,2680,2685,2690,2695
  541. 2670 po$(o)[178]"straining mightily":[141]15:[137]2620
  542. 2675 po$(o)[178]"falling through the night":[141]15:[137]2785
  543. 2680 po$(o)[178]"waiting, always waiting":[141]15:[137]2795
  544. 2685 po$(o)[178]"pointing the way":[141]15:[137]2785
  545. 2690 po$(o)[178]"singing *** "[170]ae$[170]" *** ":[141]15
  546. 2695 po$(o)[178]"lightly brushing someone's "[170]bp$:[141]15
  547. 2700 [137]2785
  548. 2705 [139]o[177]pp[167]2860
  549. 2706 [145]i[137]2710,2715,2720,2725,2730,2733
  550. 2710 po$(o)[178]"more "[170]fl$[170]" and "[170]os$[170]", waiter!":[141]15:[137]2785
  551. 2715 po$(o)[178]"showing all,"[170][199](13)[170]"saying nothing":[141]15:[137]2785
  552. 2720 po$(o)[178]"emptied and filled again":[141]15:[137]2785
  553. 2725 po$(o)[178]"valuable? on whose terms?":[141]15:[137]2785
  554. 2730 [139]u[178]0[167]2785
  555. 2733 po$(o)[178]"--which is the path of truth":[141]15:[137]2785
  556. 2735 po$(o)[178]"--which is the path of truth":[141]15:[137]2785
  557. 2739 po$(o)[178]"more "[170]fl$[170]" and "[170]os$[170]", waiter!":[141]15:[137]2785
  558. 2745 [139]o[177]pp[167]2860
  559. 2746 [145]i[137]2750,2755,2765,2770,2775,2780
  560. 2750 po$(o)[178]"...breathing":[141]15:[137]2785
  561. 2755 po$(o)[178]"in, out, in, out":[141]15:[139][197](g$)[177]2[167][137]2620
  562. 2760 [137]2785
  563. 2765 po$(o)[178]"falling...stop":[141]15:[137]2785
  564. 2770 po$(o)[178]"counting by twos...":[141]15:[137]2785
  565. 2775 po$(o)[178]"every hour, on the hour":[141]15:[137]2785
  566. 2780 po$(o)[178]"when did it begin? when will it end?":[141]15:[137]2785
  567. 2785 [139]u[178]0[176][187](1)[177].19[167]2795
  568. 2790 [137]3010:u[178]2:[153]"stop"
  569. 2795 [139][187](1)[177].65[167]2805
  570. 2800 po$(o)[178]" ":u[178]u[170]1:[141]15:[137]2810
  571. 2805 po$(o)[178][199](13):[141]15:u[178]0:[129]t[178]1[164]1000:[130]t
  572. 2810 i[178][181]([181](12[172][187](1))[173]2)[170]1:[153]"stop";
  573. 2815 gs[178]gs[170]1:[139]gs[178]6[167]2900:[153]
  574. 2820 gt[178]gt[170]1:[139]gt[178]3[167]p9[178]1:[137]2935
  575. 2825 j[178]j[170]1:k[178]k[170]1
  576. 2830 [139]u[177]0[176][181](j[173]2)[179][177]j[173]2[167]2840
  577. 2835 po$(o)[178]"     "
  578. 2840 [139]o[177]pp[167]2860
  579. 2841 [145]j[137]2630,2665,2705,2745,2845
  580. 2845 j[178]0:[153]:[139]k[177]20[167]2855
  581. 2850 [137]2810
  582. 2855 [153]:u[178]0:k[178]0:[137]2665
  583. 2860 :
  584. 2865 [129]t[178]1[164]2000:[130]:[153]:[145][197](g$)[137]2870,2875,2880,2885,2890
  585. 2870 [153]"this has been a good poem!":[137]3045
  586. 2875 [153]"wow -- what a great poem!":[137]3045
  587. 2880 [153]"truly a wonderful poem!":[137]3045
  588. 2885 [153]"
  589. 2890 print"definitely an overwhelming poem!":goto3045
  590. 2895 :
  591. 2900 ifo2<>0then2620
  592. 2901 o2=1
  593. 2902 ifo>ppthen2860
  594. 2903 onigoto2905,2910,2915,2920,2925,2930
  595. 2905 po$(o)="bouncing ":gosub11:goto2935
  596. 2910 po$(o)="burning ":gosub11:goto2935
  597. 2915 po$(o)="throbbing ":gosub11:goto2935
  598. 2920 po$(o)="dreaming ":gosub11:goto2935list11
  599. 2925 po$(o)="imagining ":gosub11:goto2935
  600. 2930 po$(o)="touching ":gosub11:goto2935
  601. 2935 ifo>ppthen2860
  602. 2936 fort=1to2000:next:print:onigoto2945,2970,2980,2990,2995,3000
  603. 2940 po$(o)=chr$(13):gosub15
  604. 2945 po$(o)=chr$(13)+"and there, i thought, might be a chance":gosub15
  605. 2950 po$(o)="to show what i or you or any of us are":gosub15
  606. 2955 po$(o)="made of. and i thought -- maybe it will":gosub15
  607. 2960 po$(o)="prove itself to be worth the chance."+chr$(13):gosub15:goto2620
  608. 2970 po$(o)="and yet again one wonders...":gosub15:goto2620
  609. 2975 po$(o)="does it all compute...i mean really?[146]":gosub15:goto2620
  610. 2980 po$(o)="commode plus 'or' = commodore":gosub15:goto2620
  611. 2985 po$(o)="are you surprised?":gosub15:goto2620
  612. 2990 po$(o)="drowning in a sea of metaphor!":gosub15:goto2620
  613. 2995 forq=1to40:print"[153][209][144]";:next:goto2620
  614. 3000 po$(o)="oh no! "+ic$+" "+os$+"!":gosub15:goto2620
  615. 3005 po$(o)="an ocean of "+fl$:gosub15:goto2620
  616. 3010 ifo>ppthen2860
  617. 3011 onigoto3015,3020,3025,3030,3035,3040
  618. 3015 forq=1to(i*8):pe$=" ":po$(o)=po$(o)+pe$:nextq:printpo$(o):o=o+1:goto2795
  619. 3020 forq=1to(i*8):pe$="[156] ":po$(o)=po$(o)+pe$:nextq:printpo$(o):o=o+1:goto2795
  620. 3025 forq=1to(i*8):pe$="[209]":po$(o)=po$(o)+pe$:nextq:printpo$(o):o=o+1:goto2795
  621. 3030 forq=1to(i*8):pe$=" ":po$(o)=po$(o)+pe$:nextq:printpo$(o):o=o+1:goto2795
  622. 3035 forq=1to(i*8):pe$="[158] ":po$(o)=pe$:goto2795
  623. 3040 forq=1to(i*8):pe$="[158][166]":po$(o)=pe$:goto2795
  624. 3045 xx$="from the pen of...":gosub2475:xx$=chr$(18)+na$:gosub2475
  625. 3050 fort=1to2000:next
  626. 3055 print"would you like a hard copy of your poem?"
  627. 3060 getyn$:ifyn$=""then3060
  628. 3065 ifyn$="y"then3200
  629. 3070 ifyn$<>"n"then3060
  630. 3075 print"would you like to write":print"another sillypoem y/n?"
  631. 3076 foro5=0too:po$(o5)="":next:o=0:o2=0
  632. 3080 getyn$:ifyn$=""then3080
  633. 3085 ifyn$="y"then3100
  634. 3090 ifyn$="n"thenpokez+1,0:p1=1:goto210
  635. 3095 goto3080
  636. 3100 print"do you wish to change the answers"
  637. 3105 print"to your test questions y/n?"
  638. 3110 getyn$:p1=2
  639. 3115 ifyn$="y"then2190
  640. 3120 ifyn$="n"then2570
  641. 3125 goto3110
  642. 3130 printchr$(5)+"[147]":print"factor you wish to analyze"
  643. 3135 print"(one word please)":x$=""
  644. 3140 inputx$:ifx$=""thenx$="poo poo"
  645. 3145 print"[147]";:ta$=chr$(18)+chr$(158)+"special "+x$+" study"
  646. 3150 ta=int(13-len(x$)/2):x$=" "+x$:ifta<0thenta=0
  647. 3155 g$="[218]":goto510
  648. 3160 print"[147][153]this analysis of"x$
  649. 3165 print"was prepared by a highly trained and"
  650. 3170 print"very expensive team of professionals"
  651. 3175 print"if you don't understand any part of"
  652. 3180 print"this data, it is due to your own silly"
  653. 3185 print"human weaknesses, which have also been"
  654. 3190 print"studied and recorded"
  655. 3195 print"i hope you catch my drift, "nf$:goto730
  656. 3200 print"is your printer on? press return[146]"
  657. 3205 getyn$:ifyn$<>chr$(13)then3205
  658. 3210 open1,4,1
  659. 3215 print"the printer is now preserving your"
  660. 3220 print"sillypoem[146]"
  661. 3225 print#1,chr$(14)
  662. 3230 print#1,"sillypoem"
  663. 3235 print#1,"by ";na$:print#1
  664. 3240 forq=0too
  665. 3245 ifq<>o0then3255
  666. 3250 foroo=1to50:print#1,po$(q);:next:print#1:print#1:goto3260
  667. 3255 print#1,po$(q)
  668. 3260 next
  669. 3265 foro=1to5:print#1,chr$(15)
  670. 3270 close1:goto3075
  671. 3275 data34334,36376,38539,40830
  672. 3280 data43258,45830,48556,51443
  673. 3285 data54502,57743,61176,64814
  674. 3290 data64
  675. 3295 data33,63,180,0,0
  676. 3300 data33,23,16,0,0
  677. 3305 data33,23,16,0,0
  678. 3310 data1,12,17
  679. 3315 data1,12,33
  680. 3320 data8,97,33
  681. 3325 data1,12,17
  682. 3330 data1,12,33
  683. 3335 data8,97,33
  684. 3340 data1,12,17
  685. 3345 data1,12,33
  686. 3350 data8,97,33
  687. 3355 data1,12,16
  688. 3360 data1,12,32
  689. 3365 data8,97,32
  690. 3370 data21,31,17
  691. 3375 data12,143,33
  692. 3380 data10,143,33
  693. 3385 data21,31,16
  694. 3390 data12,143,33
  695. 3395 data10,143,33
  696. 3400 data19,239,17
  697. 3405 data12,143,33
  698. 3410 data10,143,33
  699. 3415 data19,239,16
  700. 3420 data12,143,32
  701. 3425 data10,143,32
  702. 3430 data21,31,17
  703. 3435 data1,12,33
  704. 3440 data6,71,33
  705. 3445 data21,31,16
  706. 3450 data1,12,33
  707. 3455 data6,71,33
  708. 3460 data25,30,17
  709. 3465 data1,12,33
  710. 3470 data6,71,33
  711. 3475 data25,30,16
  712. 3480 data1,12,32
  713. 3485 data6,71,32
  714. 3490 data28,49,17
  715. 3495 data12,143,33
  716. 3500 data10,143,33
  717. 3505 data28,49,16
  718. 3510 data12,143,33
  719. 3515 data10,143,33
  720. 3520 data25,30,17
  721. 3525 data12,143,33
  722. 3530 data10,143,33
  723. 3535 data25,30,16
  724. 3540 data12,143,32
  725. 3545 data10,143,32
  726. 3550 data1,12,17
  727. 3555 data1,12,33
  728. 3560 data8,97,33
  729. 3565 data1,12,16
  730. 3570 data1,12,32
  731. 3575 data8,97,32
  732. 3580 data39,223,17
  733. 3585 data23,181,33
  734. 3590 data14,239,33
  735. 3595 data39,223,16
  736. 3600 data23,181,32
  737. 3605 data14,239,32
  738. 3610 data37,162,17
  739. 3615 data22,96,33
  740. 3620 data14,24,33
  741. 3625 data37,162,16
  742. 3630 data22,96,32
  743. 3635 data14,24,32
  744. 3640 data1,12,17
  745. 3645 data1,12,33
  746. 3650 data8,97,33
  747. 3655 data1,12,16
  748. 3660 data1,12,32
  749. 3665 data8,97,32
  750. 3670 data33,135,17
  751. 3675 data21,31,33
  752. 3680 data14,239,33
  753. 3685 data33,135,17
  754. 3690 data21,31,33
  755. 3695 data14,239,33
  756. 3700 data33,135,17
  757. 3705 data21,31,33
  758. 3710 data14,239,33
  759. 3715 data33,135,16
  760. 3720 data21,31,32
  761. 3725 data14,239,32
  762. 3730 data19,239,17
  763. 3735 data15,210,33
  764. 3740 data11,218,33
  765. 3745 data19,239,17
  766. 3750 data15,210,33
  767. 3755 data11,218,33
  768. 3760 data19,239,17
  769. 3765 data15,210,33
  770. 3770 data11,218,33
  771. 3775 data19,239,16
  772. 3780 data15,210,32
  773. 3785 data11,218,32
  774. 3790 data19,239,17
  775. 3795 data15,210,33
  776. 3800 data8,97,33
  777. 3805 data19,239,16
  778. 3810 data15,210,32
  779. 3815 data8,97,33
  780. 3820 data21,31,17
  781. 3825 data16,195,33
  782. 3830 data8,97,33
  783. 3835 data21,31,17
  784. 3840 data16,195,33
  785. 3845 data8,97,32
  786. 3850 data21,31,17
  787. 3855 data16,195,33
  788. 3860 data12,143,33
  789. 3865 data21,31,17
  790. 3870 data16,195,33
  791. 3875 data12,143,33
  792. 3880 data21,31,17
  793. 3885 data16,195,33
  794. 3890 data12,143,33
  795. 3895 data21,31,17
  796. 3900 data16,195,33
  797. 3905 data12,143,32
  798. 3910 data21,31,17
  799. 3915 data16,195,33
  800. 3920 data12,143,33
  801. 3925 data21,31,17
  802. 3930 data16,195,33
  803. 3935 data12,143,33
  804. 3940 data21,31,17
  805. 3945 data16,195,33
  806. 3950 data12,143,33
  807. 3955 data21,31,16
  808. 3960 data16,195,32
  809. 3965 data12,143,32
  810. 3970 data19,239,17
  811. 3975 data15,210,33
  812. 3980 data6,71,33
  813. 3985 data19,239,17
  814. 3990 data15,210,33
  815. 3995 data6,71,33
  816. 4000 data19,239,17
  817. 4005 data15,210,33
  818. 4010 data6,71,33
  819. 4015 data19,239,16
  820. 4020 data15,210,32
  821. 4025 data6,71,32
  822. 4030 data19,239,17
  823. 4035 data15,210,33
  824. 4040 data8,97,33
  825. 4045 data19,239,16
  826. 4050 data15,210,32
  827. 4055 data8,97,33
  828. 4060 data21,31,17
  829. 4065 data16,195,33
  830. 4070 data8,97,33
  831. 4075 data21,31,17
  832. 4080 data16,195,33
  833. 4085 data8,97,32
  834. 4090 data21,31,17
  835. 4095 data16,195,33
  836. 4100 data12,143,33
  837. 4105 data21,31,17
  838. 4110 data16,195,33
  839. 4115 data12,143,33
  840. 4120 data21,31,17
  841. 4125 data16,195,33
  842. 4130 data12,143,33
  843. 4135 data21,31,17
  844. 4140 data16,195,33
  845. 4145 data12,143,32
  846. 4150 data21,31,17
  847. 4155 data16,195,33
  848. 4160 data12,143,33
  849. 4165 data21,31,17
  850. 4170 data16,195,33
  851. 4175 data12,143,33
  852. 4180 data21,31,17
  853. 4185 data16,195,33
  854. 4190 data12,143,33
  855. 4195 data21,31,17
  856. 4200 data16,195,33
  857. 4205 data12,143,32
  858. 4210 data21,31,17
  859. 4215 data16,195,33
  860. 4220 data6,71,33
  861. 4225 data21,31,17
  862. 4230 data16,195,33
  863. 4235 data6,71,33
  864. 4240 data21,31,17
  865. 4245 data16,195,33
  866. 4250 data6,71,33
  867. 4255 data21,31,16
  868. 4260 data16,195,32
  869. 4265 data6,71,32
  870. 4270 data0,0,0
  871. 4275 data0,0,0
  872. 4280 data0,0,0
  873. 4285 s=54272:forl=stos+24:pokel,0:next
  874. 4290 dimh%(2,100),l%(2,100),c%(2,100)
  875. 4295 dimfq(11):fora9=1to7:readx9:next
  876. 4300 fora=0to11:readfq(a):next
  877. 4305 readim
  878. 4310 fork=0to2:readv1(k),d1(k),r1(k),lp1(k),hp1(k):next
  879. 4315 fori=1toim:fork=0to2:readh%(k,i),l%(k,i),c%(k,i):next:next
  880. 4320 print"work, work, work..."
  881. 4325 print"sigh....":form8=1to9:readm7:next
  882. 4330 vi=53248:poke2040,13:foru2=832to894:readu3:pokeu2,u3:next:pokevi+39,7
  883. 4335 poke2041,14:foru2=896to958:readu3:pokeu2,u3:next:pokevi+40,7:u5=24
  884. 4340 pokevi+29,3:pokevi+23,3:pokevi,24:pokevi+1,202:pokevi+2,24:pokevi+3,202
  885. 4345 return
  886. 10010 data 0,0,0,0,0,0,250,147,192
  887. 10011 data 34,146,0,35,147,192,34,144,64
  888. 10012 data 34,147,192,0,0,0,14,11,204
  889. 10013 data 9,81,18,9,113,30,9,81,18
  890. 10014 data 14,81,18,0,0,0,0,39,128
  891. 10015 data 0,36,0,0,39,128,0,32,128
  892. 9984 data 0,39,170,0,0,0,0,0,0
  893. 10020 data 0,0,0,0,0,0,240,102,1
  894. 10021 data 144,34,1,128,34,1,130,34,1
  895. 10022 data 128,34,1,128,34,1,246,34,217
  896. 10023 data 18,34,73,18,34,73,18,34,73
  897. 10024 data 18,34,73,18,34,73,146,34,72
  898. 10025 data 247,119,121,0,0,8,0,0,8
  899. 10026 data 0,0,8,0,0,120,0,0,0
  900.