8bitfiles.net/archives/archives.tar/archives/genie-commodore-file-library/C64Software/INSULTER-II

Commodore BASIC | 2019-04-13 | 9KB | 217 lines

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]