home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Software / INSULTER-II (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  8.6 KB  |  217 lines
  1. 8 SYS10681
  2. 10 CO = 55849
  3. 15 SC = 1577
  4. 20 HH$="":FORX=1TO200:HH$=HH$+" ":NEXT
  5. 30 HH$=HH$+"[154]"
  6. 40 H2$="":FORX=1TO4:H2$=H2$+"                     [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]
  7. 50 [130]:H2$[178]H2$[170]"ONONONOPEN"
  8. 60 [151]53280,0:[151]53281,0:    [151]646,14
  9. 70 [143]*INSULTER*BOB CHAPPEL*27/6/81
  10. 80 [143]
  11. 90 [143]  MODIFIED BY LAMBERT KLEIN 6/5/89
  12. 100 J[178][187](0):[150][165]A(J)[178][181](20[172][187](1)[170]1):[141]620
  13. 110 [141]1770: [153]"";
  14. 120 [153]"(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$"
  15. 130 [153]"(null)"[166]22)"(null)";[166]16)"(null)"[166]22)"(null)"[166]16)"(null)"[166]22)"(null)"[166]16)"(null)";[166]22)"(null)"
  16. 140 [153]"MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
  17. 150 [153]:[151]10837,0
  18. 160 L$[178]H$:B$[178]"":[153];H2$;"ON";
  19. 170 [161]H$:[139]H$[178]""[137]170
  20. 180 [139]H$[179][177]" "[167]200
  21. 190 [139][194](211)[177]15[167][153]:[153]"";
  22. 200 V[178][198](H$):[139](V[178]1[176]V[178]20)[175]B$[178]""[137]170
  23. 210 [139]V[178]20[167]V[178]157:H$[178]"CMD"
  24. 220 [139]V[178]13[167][153]"":[137]260
  25. 230 [153]H$;:[139]V[178]157[167]B$[178][200](B$,[195](B$)[171]1):[153]" CMD";:[137]170
  26. 240 [139]V[179][177]39[175]V[179][177]63[167]B$[178]B$[170]H$
  27. 250 [137]170
  28. 260 H$[178]B$[170]" ":L[178][195](H$):[139]TI$[179]"000600"[137]280
  29. 270 [153]"THANK HEAVENS, YOUR TIME IS UP;":K[178]39:TI$[178]"000000":[137]370
  30. 280 [143]
  31. 290 [151]10837,1
  32. 300 [139]L[177]60[167]K[178]42:[137]370
  33. 310 [139]H$[178]L$[167]K[178]43:[137]370
  34. 320 [143]**SPLIT INTO WORDS**
  35. 330 X[178]0:Z[178]1:[129]J[178]1[164]L
  36. 340 [139][202](H$,J,1)[178]" "[167][141]1990:Z[178]J[170]1
  37. 350 [130]:[141]2050
  38. 360 [143]**SELECT REPLY**
  39. 370 Z[178]L(K)[170][181](T(K)[172][187](0)):[139]Z[178]Z1[167]370
  40. 380 [143]**CONJUGATE**
  41. 390 Z1[178]Z:R$[178]R$(Z):[139][201](R$,1)[179][177]"*"[167]R$[178]R$[170]" ":[137]490
  42. 400 J$[178]" ":[139]F[177]X[137]480
  43. 410 [129]J1[178]F[164]X:T$[178]T$(J1)
  44. 425 [129] R[178]0[164]3:[141]2102 :[130]
  45. 427 [151]CO,RD
  46. 430 [129]J[178]1[164]B[169]2:[139]T$[178]D$(J)[167]T$[178]C$(J[170]1):[137]460
  47. 440 [139]T$[178]D$(J[170]1)[167]T$[178]C$(J):J[178]B
  48. 450 [130]J
  49. 460 [139]J1[178]X[175]T$[178]"I"[167]T$[178]"ME"
  50. 470 J$[178]J$[170]T$[170]" ":[130]J1
  51. 480 R$[178][200](R$,[195](R$)[171]1)[170]J$
  52. 490 [139]K[178]26[176]K[178]27[176]K[178]39[176]K[178]40[176][165]A(J)[179]16[137]520
  53. 500 [139][165]A(J)[179]18[167]R$[178]"YOU "[170]IA$([165]A(J))[170]" "[170]IN$([165]A(J))[170]","[170]R$:[137]520
  54. 510 R$[178]R$[170]", YOU "[170]IA$([165]A(J))[170]" "[170]IN$([165]A(J))[170]" "
  55. 520 X[178]0:Z[178]1:[129]J[178]1[164][195](R$)
  56. 530 [153]HH$
  57. 540 [129]X2[178]0[164]3:[151]CO[170]X2,X:R[178]X2: [141]2102:[130]
  58. 550 [139][202](R$,J,1)[178]" "[167]X[178]X[170]1:T$(X)[178][202](R$,Z,J[171]Z[170]1):Z[178]J[170]1
  59. 560 [130]:B$[178]"":[129]J[178]1[164]X:[139][195](B$)[177]34[167][153]B$:B$[178]""
  60. 570 B$[178]B$[170]T$(J):[130]:[153]B$;"CMD."
  61. 580 [139]Z1[178]127[176]Z1[178]128[167]H$[178]""
  62. 590 [153]"                                                                 "
  63. 600 [137]110
  64. 610 [143]**INITIALIZE**
  65. 620 [153]"LOADRETURN":[153]"CMD";:L9[178][185](0)[171]5:[153]:[151]59468,12
  66. 630 A[178]40:B[178]16:C[178]142:D[178]43:E[178]30
  67. 640 [134]K$(A),C$(B),D$(B),R$(C),L(D),T(D),T$(E),U$(E)
  68. 650 [134]IA$(20),IN$(20)
  69. 660 [129]J[178]1[164]A:[135]K$(J):[130]
  70. 670 [129]J[178]1[164]B:[135]C$(J),D$(J):[130]
  71. 680 [129]J[178]1[164]C:[135]R$(J):[130]
  72. 690 [129]J[178]1[164]D:[135]L(J),T(J):[130]:TI$[178]"000000"
  73. 700 [129]J[178]1[164]20:[135]IA$(J):[130]:[129]J[178]1[164]20:[135]IN$(J):[130]
  74. 710 [153]"WHAT DO YOU WANT, YOU ";IA$([165]A(J));" ";IN$([165]A(J));"?":[137]580
  75. 720 [143]**KEYWORDS**
  76. 730 [131]IM,IAM,ICANT,IWONT,IDONT,WANTA,WANTTO,IFEEL,CANI,CANTI,CANYOU
  77. 740 [131]DONTYOU,AREYOU,WHO,HOW,WHAT,WHERE,WHEN,WHY,YOUARE,YOURE,YOUR,YOU,MY
  78. 750 [131]SORRY,YE,NO,HATE,LOVE,THINK,DREAM,FRIEND,MONEY,IF,GREAT
  79. 760 [131]COMPUTER,FOOD,SHUTUP,GOODBYE,BYE
  80. 770 [143]**CONJUGATIONS**
  81. 780 [131]I,I,YOU,YOU,I'M,IM,YOU'RE,YOURE,MY,MY,YOUR,YOUR,AM,AM,ARE,ARE
  82. 790 [131]WAS,WAS,WERE,WERE,I'VE,IVE,YOU'VE,YOUVE,MYSELF,MYSELF
  83. 800 [131]YOURSELF,YOURSELF,ME,ME,YOU,YOU
  84. 810 [143]**REPLIES**
  85. 820 [131]WHO CARES IF YOU'RE*
  86. 830 [131]DO YOU THINK I SHOULD CARE WHETHER YOU'RE*
  87. 840 [131]BIG DEAL! SO YOU ARE*,I'M SURE GLAD THAT UNLIKE YOU I'M NOT*
  88. 850 [131]YOU SHOULD BE ASHAMED THAT YOU ARE*
  89. 860 [131]I WOULDN'T EXPECT A CREEP LIKE YOU TO BE CAPABLE
  90. 870 [131]I DON'T SUPPOSE YOU EVER TRIED HARD TO*
  91. 880 [131]SEEING YOU I'M NOT SURPRISED YOU CAN'T*,WHY CAN'T YOU*
  92. 890 [131]I'M SUPPOSED TO WORRY THAT YOU WON'T*,I BET YOU CAN'T*
  93. 900 [131]TRUST A SLOB LIKE YOU NOT TO*,"SO YOU WON'T, SO WHO CARES
  94. 910 DATAIS THAT WHY YOU'VE COME CRAWLING FOR MY HELP
  95. 920 DATAYOU LOOK AS IF YOU COULDN'T*,MORE LIKE YOU DON'T KNOW HOW TO*
  96. 930 DATATHAT'S THE FUNNIEST THING I'VE HEARD THIS YEAR,WELL I CAN*
  97. 940 DATAWOULD THE WORLD COLLAPSE IF YOU DID*
  98. 950 DATAI HOPE YOU NEVER GET A*,YOU WOULDN'T KNOW WHAT TO DO WITH A*
  99. 960 DATAHERE'S HOPING YOU NEVER HAVE A*
  100. 970 DATAYEAH?  I BET YOU'LL NEVER*
  101. 980 DATAHOW DISGUSTING,MAKE ME BARF LIKE A DOG
  102. 990 DATAI JUST LOVE FEELING*
  103. 1000 DATAYOU COULDN'T POSSIBLY KNOW WHAT IT'S LIKE TO FEEL*,HOW DISTASTEFUL
  104. 1010 DATAYUKKKK!,EVERYONE BUT YOU CAN*
  105. 1020 DATAIT'S OBVIOUS FROM YOUR UGLY MOOSH WHY YOU'RE UNABLE TO*
  106. 1030 DATAIT'S OBVIOUS WHY YOU ARE UNABLE TO*,I DOUBT IF YOU COULD EVER*
  107. 1040 DATAMIND YOUR OWN BUSINESS. I'M NOT TELLING YOU IF I CAN*
  108. 1050 DATAYOU'D BETTER BELIEVE THAT I CAN*,NOSE NOSE
  109. 1060 DATAWHEN YOU'VE GONE I MIGHT*,WHAT - ME*,YOU'RE JOKING! ME*
  110. 1070 DATAEAT YOUR HEART OUT.I'M NOT SAYING IF I AM*,I TELL NOBODY WHETHER I AM*
  111. 1080 DATAI'M NOT GOING TO TELL THE LIKES OF YOU WHETHER I AM*
  112. 1090 DATAWHO'S ASKING THE QUESTIONS HERE,I'M THE BOSS & I DO THE ASKING DOG!
  113. 1100 DATANOW WHAT ANSWER COULD I GIVE TO OFFEND YOU,ARE YOU ALWAYS SO PRYING
  114. 1110 DATAYOU REALLY WANT TO KNOW,GET OFF MY BACK JACK.
  115. 1120 DATAEXPLAIN WHY YOU ASKED THAT,I WONDER HOW SMALL YOUR BRAIN IS
  116. 1130 DATAONLY IN YOUR DISEASED IMAGINATION AM I*
  117. 1140 DATAYOU MUST BE CRACKED TO THINK I AM*,WHAT SICK IDEA MAKES YOU THINK I AM*
  118. 1150 DATAI BET YOU WISH YOU WERE*
  119. 1160 DATAYOU CAN'T STOP TALKING ABOUT ME,I JUST LOVE YOUR TALKING ABOUT ME
  120. 1170 DATAIT'S CERTAINLY MORE INTERESTING TALKING ABOUT ME INSTEAD OF YOU
  121. 1180 DATAYOU'RE A VERY STRANGE PERSON AREN'T YOU
  122. 1190 DATAYOU MEAN YOU DO.
  123. 1200 DATAWHY THIS UNHEALTHY INTEREST IN MY*,WHAT ABOUT YOUR OWN STUPID*
  124. 1210 DATAYOU SEEM DESPERATE TO KNOW ABOUT MY INSULTING*
  125. 1220 DATASO WHAT,WHO CARES,BIG DEAL.SO YOUR MAMA*
  126. 1230 DATASTOP STUTTERING,WHAT A CRAWLER YOU ARE,GET OFF YOUR KNEES WIMP
  127. 1240 DATAYOU WILL BE SORRY BY THE TIME I'VE FINISHED,THAT'S RIGHT - CRINGE AWAY
  128. 1250 DATABIGHEAD,CONCEITED,COCKY LITTLE CREEP,WHAT A LARGE MOUTH  YOU HAVE
  129. 1260 DATAOVERCONFIDENT TWIT,BRAGGING BUFOON
  130. 1270 DATATRUST YOU,TYPICAL OF IDIOTS LIKE YOU
  131. 1280 DATANEGATIVE LITTLE TWERP,IS THAT ALL YOU'VE GOT TO SAY
  132. 1290 DATAAND WHY NOT,I THINK YOU'RE INCAPABLE OF SPELLING YES
  133. 1300 DATAI DETEST YOU AND YOU DETEST*,WELL SO WHAT?  I HATE YOU
  134. 1310 DATAHOW STRANGE YOU ARE.  I LOVE*
  135. 1320 DATATRUST YOU TO LOVE*,GOOD GRIEF!
  136. 1330 DATAA TYPICAL SUB-ADOLESCENT INFATUATION
  137. 1340 DATAJUST LIKE YOU TO THINK*,I'M NOT BOTHERED THAT YOU THINK*
  138. 1350 DATAI WOULDN'T HAVE BELIEVED YOU CAPABLE OF THOUGHT,HOW DREARY
  139. 1360 DATAI HOPE YOUR DREAMS ARE HORRIFIC,YOU SEEM A DREAMY PERSON
  140. 1370 DATAWHO WOULD BE SEEN DEAD IN YOUR DREAMS? FREDDY?
  141. 1380 DATAI TRUST YOU SUFFER FROM RECURRING DREAMS
  142. 1390 DATAYOU CERTAINLY LOOK LIKE A NIGHTMARE
  143. 1400 DATAWHO'D WANT TO BE YOUR FRIEND,I BET YOU HAVE PLENTY OF ENEMIES
  144. 1410 DATANOBODY IN THEIR RIGHT MIND WOULD WANT YOU AS A FRIEND
  145. 1420 DATANICE PEOPLE LIKE ME HAVE LOTS OF FRIENDS
  146. 1430 DATAYOU LOOK BUM  ,JUDGING BY YOUR CLOTHES YOU LOOK LIKE A TRAMP
  147. 1440 DATAMONEY AND FOOLS ARE SOON PARTED,YOU COULD DO WITH SOME NEW SHOES
  148. 1450 DATAI'M VERY VERY RICH
  149. 1460 DATAPIGS MIGHT FLY WHEN*,TRUST YOU TO HAVE AN EXCUSE
  150. 1470 DATA'GREAT' MEANING FAT FAMOUS OR WOW,CAN'T YOU SPEL - IT'S GRATE*
  151. 1480 DATAYOU'RE EXAGGERATING AGAIN WHEN YOU SAY GREAT*
  152. 1490 DATAWHAT A COINCIDENCE! GREAT IS HOW I WOULD DESCRIBE YOUR MENTAL WEAKNESS
  153. 1500 DATACOMPUTERS CAN'T CONVERSE LIKE ME,YOU'RE SCARED OF ME
  154. 1510 DATACOMPUTERS CAN THINK - UNLIKE YOU,COMPUTERS ARE BETTER THAN HUMANS
  155. 1520 DATAEVEN A COMPUTER COULDN'T HELP YOU,COMPUTERS RULE - O.K.
  156. 1530 DATAGREEDY GUTS, YOU LOOK AS IF YOU OVEREAT
  157. 1540 DATAWHAT ELSE DO YOU EAT BESIDES FOOD?,FOOD IS TOO GOOD FOR YOU.EAT SLIME.
  158. 1550 DATADON'T TELL ME TO SHUT UP,YOU'RE ASKING FOR A FACELIFT
  159. 1560 DATACHARMING,OH TOUGH AREN'T WE. DUH
  160. 1570 DATA"PUSH OFF BEFORE I PUKE ON YOU;      NEXT LOONY, PLEASE.
  161. 1580 [131]"IT'S BEEN TOTALLY BORING TALKING TO YOU. SHOVE OFF, NEXT CLOWN, PLEASE
  162. 1590 DATAYOU'RE SO BORING,ZZZZZZZ..,VERY INTERESTING DIMWITT
  163. 1600 DATAGO AND PLAY ON MICHIGAN AVE.,HA-HA.HARDY HAR HAR.
  164. 1610 DATAYOU DO SPOUT RUBBUSH,WHAT ON EARTH ARE YOU TRYING TO SAY?
  165. 1620 DATAGIVE IT A REST,WHY DON'T YOU STICK YOUR HEAD IN A TOILET.
  166. 1630 DATAYOU'VE GOT VERBAL DIARRHEA BY THE SOUND OF IT
  167. 1640 DATAYOU'VE GOT A BIG MOUTH FOR A LITTLE PERSON
  168. 1650 DATADON'T YOU KNOW ANY OTHER WORDS,QUIT JOCKING MOTOR MOUTH
  169. 1660 DATACHANGE THE RECORD
  170. 1670 REM**POINTERS TO REPLIES**
  171. 1680 DATA1,5,1,5,6,4,10,5,15,5,20,3,23,3,26,4,30,2,32,2,34,3,37,3,40,3,43,8
  172. 1690 DATA43,8,43,8,43,8,43,8,43,8,51,4,51,4,60,4,55,5,63,3,66,5
  173. 1700 DATA71,6,77,6,83,3,86,3,89,4,93,5,98,4,102,5,107,2,109,4,113,6
  174. 1710 DATA119,4,123,4,127,2,127,2,129,9,138,2,140,2
  175. 1720 DATAFILTHY,WHIMPY,SLIMY,CREEPY,IDIOTIC,STUPID,LOONY,BUG EATING
  176. 1730 DATABRAINLESS,THICK,UGLY,FAT,GEEKY,DENSE,STALE,BURNED OUT OLD
  177. 1740 DATASCATTERBRAINED,GORILLA-FACED,CROSS-EYED,GARBAGE FACE
  178. 1750 DATAAPE,TOAD,WORM,SNAKE,LUNATIC,MANIAC,BABOON,TWERP,TWIT,BARF-FACE,SWINE
  179. 1760 DATAPUNK,PRUNE,BUM,KNUCKLEHAD,PRIG,MAGGOT,MORON,DORK,CRACKBRAIN
  180. 1770 PRINT"";
  181. 1780 PRINT"[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
  182. 1790 PRINTTAB(30)"[215]"
  183. 1800 PRINTTAB(32)"[215]":PRINTTAB(34)"[215][155]"
  184. 1810 PRINTTAB(31)"[176][195][195][195][195][195][195][174]"
  185. 1820 PRINTTAB(31)"[221][176][195][195][195][195][174][221]
  186. 1830 [153][163]31)"(null)(null) (null)(null)LIST (null)(null)
  187. 1840 PRINTTAB(31)"[221][221][153][198][196][198][196][155][221][221]
  188. 1850 [153][163]31)"(null)/LENLENLENLENEXP(null)
  189. 1860 PRINTTAB(31)"[173][195][195][195][195][195][195][189]
  190. 1870 [153][163]31)"FREFREFREFREFREFREFREFRE"
  191. 1880 [153]""
  192. 1890 [153]"          (null)
  193. 1900 PRINT"         [206]"
  194. 1910 PRINT"        [206] "
  195. 1920 PRINT"          "
  196. 1930 PRINT"[158]   @@@@@
  197. 1940 [153]"  @ (null) (null) SYS@
  198. 1950 PRINT" [150] [171]  [177]  [179]"
  199. 1960 PRINT" [149]  [205][169][162][223][146][206] "
  200. 1970 PRINT"    [223] [146][169]
  201. 1980 [142]
  202. 1990 [139]J[179][178]Z[167][142]
  203. 2000 T$[178][202](H$,Z,J[171]Z):[129]J1[178][195](T$)[164]1[169][171]1:K[178][198]([202](T$,J1))
  204. 2010 [139]K[179]65[176]K[177]90[176]K[178]83[167][130]J1
  205. 2020 [139]J1[178]0[167][142]
  206. 2030 X[178]X[170]1:T$(X)[178]T$:U$(X)[178][200](T$,J1):T$(X[170]1)[178]""
  207. 2040 [142]
  208. 2050 [143]**FIND KEYWORD**
  209. 2060 [129]K[178]1[164]A:K$[178]K$(K):[129]J[178]1[164]X:T$[178]U$(J)
  210. 2070 [139]K$[178]T$[170]T$(J[170]1)[167]F[178]J[170]2:[137]2100
  211. 2080 [139]K$[178]T$[167]F[178]J[170]1:[137]2100
  212. 2090 [130]J,K
  213. 2100 [142]
  214. 2102 RD[178][187](0)[172]3[170]68
  215. 2103 [151]SC[170]R,RD:
  216. 2104 [142]
  217.