home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / SEX / FULLER.BRUSH.PR (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1996-06-28  |  3.4 KB  |  114 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 1  HOME : TEXT 
  2. 11  VTAB 2: HTAB 11: INVERSE : PRINT "FAMOUS SEX COMICS I": NORMAL 
  3. 21  PRINT : PRINT "               FEATURING  "
  4. 31  VTAB 7
  5. 41  PRINT : PRINT "         1. FULLER BRUSH MAN"
  6. 71  PRINT : PRINT "         2. OPHELIA SPLITZ"
  7. 73  PRINT : PRINT "         3. BEDTIME STORIES"
  8. 81  VTAB 20: HTAB 15: PRINT "A PRODUCT OF:"
  9. 101  PRINT "    COMPUTER PRODUCTS INTERNATIONAL"
  10. 102  PRINT "             (504) 455-5330"
  11. 111 D$ =  CHR$(4)
  12. 121  VTAB 15: HTAB 15: INPUT "SELECT ONE:";A$
  13. 122  IF A$ = "2"  THEN  PRINT D$;"RUN OPHILIA.PROGRAM"
  14. 123  IF A$ = "3"  THEN  PRINT D$;"RUN HELP1"
  15. 124  IF A$ < >"1"  THEN  HOME : END 
  16. 131  POKE 49239,0: HCOLOR= 4: TEXT : HOME : VTAB 7
  17. 200  SPEED= 100
  18. 201  PRINT "THE PROVERBIAL FULLER BRUSH MAN, THE    POPULAR DOOR-TO-DOOR SALESMAN IN THE"
  19. 211  PRINT "THIRTIES WHO BECAME THE SUBJECT OF      COUNTLESS JOKES SURROUNDING MIDDLE      AMERICA'S FEAR OF THE DISSOLUTION OF    THE FAMILY UNIT, WAS INCORPORATED INTO"
  20. 221  PRINT "AN ADVENTURE SERIES OF INNUMERABLE      'EIGHT - PAGERS'."
  21. 225  FOR ZZ = 1 TO 4000: NEXT 
  22. 231  PRINT D$;"BLOAD FB1"
  23. 241  POKE  -16304,0
  24. 251  HOME : VTAB 21: POKE  -16301,0: POKE  -16300,0: SPEED= 100
  25. 301  PRINT "MY FIRST DAY ON THE ROAD STARTED OFF    WITH A BANG. I FORGOT TO GO THRU THE"
  26. 311  PRINT "FORMALITY OF RINGING THE DOORBELL AT ONEHOUSE AND WALKED IN ON A BEAUTEOUS BLONDIN HER TEDDIES."
  27. 315  FOR ZZ = 1 TO 4000: NEXT 
  28. 321  POKE  -16302,1
  29. 331  PRINT D$;"BLOAD FB2"
  30. 341  HOME : VTAB 21: SPEED= 255: FOR I = 1 TO 1000: NEXT : POKE  -16301,0
  31. 381  GOSUB 1481
  32. 391  PRINT "OH! I THOUGHT THAT DOOR WAS LOCKED.                                             YOU STARTLED ME!
  33. 401  PRINT D$;"BLOAD FB3,A$4000": HOME : VTAB 21: SPEED= 70: HCOLOR= 3: GOSUB 1481
  34. 451  HCOLOR= 4: GOSUB 1441
  35. 461  PRINT "WELL - WELL.                            THIS IS A PLEASANT SURPRISE!!!!!
  36. 466  FOR ZZ = 1 TO 1500: NEXT 
  37. 471  PRINT "I REPRESENT THE FULLER BRUSH COMPANY,   AND....."
  38. 475  FOR ZZ = 1 TO 1200: NEXT 
  39. 481  SPEED= 255: HCOLOR= 3: GOSUB 1441
  40. 501  HCOLOR= 4: GOSUB 1481
  41. 511  HOME : SPEED= 100: VTAB 21
  42. 521  PRINT "AW, HONEY......
  43. 531  PRINT "I DON'T NEED ANY BRUSHES!               BUT MY SALES RESISTANCE IS VERY LOW!"
  44. 535  FOR ZZ = 1 TO 3000: NEXT 
  45. 541  HOME : VTAB 21: HCOLOR= 3: GOSUB 1481
  46. 561  HCOLOR= 4: GOSUB 1441
  47. 571  PRINT "LOW RESISTANCE, EH??"
  48. 581  PRINT "I THINK I'VE GOT JUST THE BRUSH"
  49. 586  PRINT "YOU NEED!!"
  50. 591  HCOLOR= 3: GOSUB 1441
  51. 601  HCOLOR= 4: HPLOT 183,36
  52. 611  HPLOT 184,36: HPLOT 185,36
  53. 621  HPLOT 184,35: HPLOT 184,36
  54. 631  HPLOT 185,36
  55. 641  PRINT D$;"BLOAD FB4"
  56. 645  HOME : VTAB 21
  57. 651  PRINT "WHY YOU HORRID THING - YOU DIRTY - YOU -WHY - OH -    NOT SO HARD, DADDY..."
  58. 655  FOR ZZ = 1 TO 3000: NEXT 
  59. 661  POKE  -16299,0
  60. 671  POKE  -16302,0: GOSUB 1321
  61. 681  POKE  -16300,0: GOSUB 1321
  62. 691 FC = FC +1: IF FC = 10  THEN 711
  63. 701  GOTO 661
  64. 711  HOME : TEXT : VTAB 7
  65. 731  PRINT "I'M TRYING TO BE A GOOD SPORT.          I DON'T CARE A THING ABOUT F-F-F-FUCKINGMMMMMMMM  -   OOOOOHHH  -  GOOD... 
  66. 741  PRINT D$;"BLOAD FB5"
  67. 751  HOME : VTAB 8
  68. 761  PRINT "YEAH -   I CAN SEE --                   YOU JUST HATE SCREWING......
  69. 771  PRINT D$;"BLOAD FB6,A$4000"
  70. 781  POKE  -16304,0: POKE  -16297,0:A = 1: FOR FK = 1 TO 10
  71. 821  POKE  -16299,0: GOSUB 1371
  72. 831  POKE  -16300,0: GOSUB 1371
  73. 841  NEXT 
  74. 851  TEXT : HGR : HOME : VTAB 22
  75. 861  PRINT "OH!!  MY HUSBAND'S COMMING....          HE'S AT THE DOOR!!                      I'M SUNK!"
  76. 863  PRINT D$;"BLOAD FB7"
  77. 865  HOME 
  78. 866  VTAB 22
  79. 871  PRINT "NOW, LISTEN FELLER.  I'M IN TRAINING TO FIGHT THE CHAMP!  I NEED MY FOOD AND    YOU'RE CUTTING INTO MY EATIN' TIME!!"
  80. 875  FOR I = 1 TO 3000: NEXT 
  81. 876  TEXT : HOME : SPEED= 255:HN = 40:VS = 22:VN = 2: FOR I = 1 TO HN
  82. 941  PRINT "*";: NEXT 
  83. 961  FOR I = 2 TO VS: VTAB I: HTAB HN: PRINT "*": NEXT 
  84. 1001  VTAB 21
  85. 1011  FOR I = HN TO 1  STEP  -1: HTAB I: PRINT "*";: NEXT 
  86. 1051  FOR I = 22 TO 2  STEP  -1: VTAB I: HTAB 1: PRINT "*": NEXT 
  87. 1101  VTAB 8: HTAB 3
  88. 1121  PRINT "TTTTT H   H EEEEE  EEEEE N   N DDDD"
  89. 1131  HTAB 3
  90. 1141  PRINT "  T   H   H E      E     N   N D   D"
  91. 1151  HTAB 3
  92. 1161  PRINT "  T   H   H E      E     NN  N D   D"
  93. 1171  HTAB 3
  94. 1181  PRINT "  T   HHHHH EEEE   EEEE  N N N D   D"
  95. 1191  HTAB 3
  96. 1201  PRINT "  T   H   H E      E     N  NN D   D"
  97. 1211  HTAB 3
  98. 1221  PRINT "  T   H   H E      E     N   N D   D"
  99. 1231  HTAB 3
  100. 1241  PRINT "  T   H   H EEEEE  EEEEE N   N DDDD"
  101. 1251  FOR I = 1 TO 5000: NEXT 
  102. 1255  CLEAR : GOTO 1
  103. 1271  POKE  -16297,0: POKE  -16304,0: POKE  -16302,0: POKE  -16299,0: RETURN 
  104. 1321  FOR I = 1 TO 50: NEXT 
  105. 1331  POKE 6,6: POKE 7,50: CALL 770
  106. 1341 A = A +1
  107. 1351  IF A >35  THEN 1191
  108. 1361  RETURN 
  109. 1371  FOR J = 1 TO 50  STEP A:TN = 200 -2 *A -1: POKE 6,TN: POKE 7,10: CALL 770: NEXT 
  110. 1421 A = A +1: RETURN 
  111. 1441  FOR K = 30 TO 40: HPLOT 150,K TO 170,40: NEXT : RETURN 
  112. 1451  HPLOT 150,K TO 170,40
  113. 1481  FOR K = 58 TO 67: HPLOT 115,67 TO 130,K: NEXT : RETURN 
  114. 1511  RETURN