home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / Misc / ENQUIRER-HEADERS (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.5 KB  |  152 lines
  1. 0 ::::::::::::: (null) TO 100 :::::::::::::   ::                                 ::
  2. 1 """""""""""""""""""""""""""""""""""""   """""""""""""""""""""""""""""""""""""
  3. 2 "" THIS PROGRAM JUST MIGHT BE WHERE""   "" THE NATIONAL EXPIRER GETS IT'S  ""
  4. 3 "" HEADLINES!!   YOU NEVER KNOW!!  ""   ""                                 ""
  5. 4 """""""""""""""""""""""""""""""""""""   """"""""""""""""""""""""""""""""""""".
  6. 10 REM *** NEWS OF THE WEEK ***
  7. 11 REM *                      *
  8. 12 REM *  BY ACME HEURISTIC   *
  9. 13 REM * APPLICATIONS! (AHA!) *
  10. 14 REM *      JUNE 1986       *
  11. 15 REM *                      *
  12. 16 REM * UPDATED/ALTERED BY:  *
  13. 17 REM * (ADD YOUR NAME HERE) *
  14. 18 REM *                      *
  15. 19 REM * NICK SULLIVAN        *
  16. 20 REM * CHRIS ZAMARA         *
  17. 21 REM * MARYA MILLER         *
  18. 22 REM * ADAM HERST           *
  19. 23 REM * TIM GRANTHAM         *
  20. 24 REM * JIM GREEN & JAGGY TU *
  21. 25 REM * (TITLE, PRINT ONE    *
  22. 26 REM * PAGE INSTEAD OF      *
  23. 27 REM * SCROLLING & WIERD    *
  24. 28 REM * SOUND)               *
  25. 97 REM *                      *
  26. 98 REM **** PASS ME AROUND ****
  27. 99 :
  28. 100 DATA SEX-CRAZED,DISEASED,TWO-HEADED
  29. 101 DATA SEX-STARVED,ALIEN,TELEPATHIC
  30. 102 DATA DYING,TWO-YEAR-OLD,NEWBORN
  31. 103 DATA DEAD,GAY,PSYCHOTIC,HEADLESS
  32. 104 DATA IMPOTENT,EX-CIA,WEALTHY,SLEAZY
  33. 105 DATA CRIPPLED,BISEXUAL,MYSTERIOUS
  34. 106 DATA LOVESTRUCK,DOPE-SMOKING,DRUNK
  35. 198 DATA XXX
  36. 199 :
  37. 200 DATA COLLEGE PROFESSOR,VEGETARIAN
  38. 201 DATA SATANIST,PSYCHIC,KILLER,COW
  39. 202 DATA PERVERT,PROSTITUTE,BIKER
  40. 203 DATA SADIST,SPIRITUALIST,CON ARTIST
  41. 204 DATA MUGGER,TYCOON,BABY,PERVERT,MINISTER
  42. 205 DATA SEEING-EYE DOG,MUTANT,ZOMBIE
  43. 298 DATA XXX
  44. 299 :
  45. 300 DATA RAPES,DISEMBOWELS,WEDS
  46. 301 DATA RIPS OFF,BEATS UP,RESURRECTS
  47. 302 DATA VOMITS ON,GIVES BIRTH TO,SELLS
  48. 303 DATA REMOVES TUMOR FROM,KIDNAPS
  49. 304 DATA VAPORIZES,DISMEMBERS,EATS,BOILS BRAINS OF
  50. 398 DATA XXX
  51. 399 :
  52. 400 DATA THOUSANDS,MOVIE STAR
  53. 401 DATA SICK CHILD,ROCK MUSICIAN
  54. 402 DATA TEENAGE CANNIBAL,OWN MOTHER
  55. 403 DATA TOWN COUNCIL,DYNASTY STAR
  56. 404 DATA SKID-ROW BUM,ILLEGITIMATE SON
  57. 405 DATA WEIRD REPTILE-GIRL,PREGNANT HOUSEWIFE
  58. 406 DATA BLIND BRAIN SURGEON,90-YEAR-OLD STRIP QUEEN
  59. 498 DATA XXX
  60. 499 :
  61. 500 DATA WHILE FAMILY LOOKS ON
  62. 501 DATA -- POLICE HELPLESS
  63. 502 DATA -- SCIENTISTS BAFFLED
  64. 503 DATA DURING MOONLIGHT JOYRIDE
  65. 504 DATA BEFORE HORRIFIED WITNESSES
  66. 505 DATA -- THEN TAKES OWN LIFE
  67. 506 DATA IN VIDEO GAME SCANDAL
  68. 507 DATA -- BLAMES PORNO RING
  69. 508 DATA -- CLAIMS TO BE JESUS
  70. 509 DATA WHILE ON EXTRATERRESTRIAL DRUG
  71. 510 DATA -- THEN HOMETOWN VANISHES
  72. 511 DATA DURING FREAK METEOR SHOWER
  73. 512 DATA IN WORLD PEACE BID
  74. 513 DATA -- CLAIMS ORDERS FROM GOD
  75. 514 DATA -- LAWSUIT THREATENED
  76. 515 DATA IN COMMUNE ORGY NIGHTMARE
  77. 516 DATA -- INSPIRED BY TV MOVIE
  78. 517 DATA IN INTERGALACTIC WHITE SLAVE SCAM
  79. 518 DATA IN BIZARRE LOVE QUEST
  80. 598 DATA XXX
  81. 599 :
  82. 600 S$=CHR$(32): A=RND(-TI)
  83. 610 GOSUB 1000: DIM A$(I): A=I
  84. 620 GOSUB 1000: DIM B$(I): B=I
  85. 630 GOSUB 1000: DIM C$(I): C=I
  86. 640 GOSUB 1000: DIM D$(I): D=I
  87. 650 GOSUB 1000: DIM E$(I): E=I
  88. 660 RESTORE
  89. 670 FOR I=0 TO A: READ A$(I): NEXT I: READ I$
  90. 680 FOR I=0 TO B: READ B$(I): NEXT I: READ I$
  91. 690 FOR I=0 TO C: READ C$(I): NEXT I: READ I$
  92. 700 FOR I=0 TO D: READ D$(I): NEXT I: READ I$
  93. 710 FOR I=0 TO E: READ E$(I): NEXT I
  94. 720 :
  95. 725 POKE53280, 5:POKE53281,15
  96. 730 PRINT CHR$(147)CHR$(8)CHR$(142);
  97. 740 GOSUB1300
  98. 760 NU=NU+1: GOSUB 1100
  99. 770 PRINT"MORE Y/N ";
  100. 780 GET I$
  101. 785 IFI$="N"THENPRINT"[158]- NO!,NO!, NO MORE!!![152]":GOSUB1480:FORDU=1TO2000:NEXT
  102. 790 IF I$="Y" THEN PRINT "- YES, MORE, MORE!![152]":GOSUB1410
  103. 792 IFI$="Y"ANDNU=3THENFORDU=1TO500:NEXT:NU=0:GOSUB1300
  104. 794 IFI$="Y"THEN760
  105. 800 IF I$<>"N"THEN780
  106. 810 GOSUB1340
  107. 815 PRINT "  NO? - [157][157][157][157][157]DON'T HAVE THE STOMACH FOR IT, EH?[152]
  108. 818 [141]1480
  109. 820 [129]DU[178]1[164]6000:[130]:[153] [199](9);[199](142)
  110. 830 [128]
  111. 980 :
  112. 990 [143] DETERMINE REQUIRED DIMENSION FOR ARRAY
  113. 1000 I[178][171]1
  114. 1010 [135] A$: [139] A$[179][177]"XXX" [167] I[178]I[170]1: [137] 1010
  115. 1020 [142]
  116. 1080 :
  117. 1090 [143] CONSTRUCT A HEADLINE
  118. 1100 [153]: T$[178]S$
  119. 1110 U$[178]A$([187](1)[172]A[170]1): [141] 1200
  120. 1120 U$[178]B$([187](1)[172]B[170]1): [141] 1200
  121. 1130 U$[178]C$([187](1)[172]C[170]1): [141] 1200
  122. 1140 U$[178]D$([187](1)[172]D[170]1): [141] 1200
  123. 1150 T$[178]"!"[170][199](13)
  124. 1160 U$[178]E$([187](1)[172]E[170]1): [141] 1200
  125. 1170 [142]
  126. 1180 :
  127. 1190 [143] PRINT THE STRING U$ WITH WORD WRAP
  128. 1200 V[178]1: V$[178]""
  129. 1210 I$[178][202](U$,V,1): V$[178]V$[170]I$: [139] I$[179][177]S$ [175] V[179][195](U$) [167] V[178]V[170]1: [137] 1210
  130. 1220 [139] [185](0)[170][195](V$)[177]38 [167] [153]: [143] USE 78 FOR 80 COLS, 20 FOR 22 COLS
  131. 1230 [153] V$;
  132. 1240 [139] V[179][195](U$) [167] V[178]V[170]1: V$[178]"": [137] 1210
  133. 1250 [153] T$;
  134. 1260 [142]
  135. 1270 :
  136. 1300 [153]"ORTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN^";
  137. 1310 [153]"(null)  NATIONAL                            (null)";
  138. 1320 [153]"(null)  (null)LOG(null) (null) THEN  (null) (null) (null)              (null)";
  139. 1322 [153]"(null)  TAN THEN THEN THEN  SQR TAN SQR              (null)";
  140. 1324 [153]"(null)  SQR THEN SQRRNDSQR  (null) SQR (null)   HEADLINES  (null)";
  141. 1330 [153]"/TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANEXPPRINT#";
  142. 1340 [129]T[178]6[164]23:[151] 781,T:[158]59903:[130]:[142] :   [143]  ERASES LINES 6TO23    .
  143. 1400 [143]  ** WIERD ENQUIRER SOUND
  144. 1410 S[178]54272
  145. 1420 [129]T[178]1[164]32:Z[178][194](162)[175]199
  146. 1430 [151]S[170]24,15:[151]S[170]6,90:[151]S[170]4,21
  147. 1450 [151]S[170]1,Z:[151]S[170]15,[182](99[171]Z):[130]
  148. 1460 [129]J[178]S[164]S[170]23:[151]J,0:[130]:[142]
  149. 1470 [143]  ** RAZZY
  150. 1480 S[178]54272:[151]S[170]24,15:[151]S[170]23,0:[151]S[170]6,240:[151]S[170]1,4:[151]S[170]5,0:[151]S[170]4,33
  151. 1490 [129]Z[178]1324[164]512[169][171]8:[151]S[170]1,Z[173]256:[151]S,Z[175]255:[130]:[151]S[170]4,0:[142]
  152.