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