home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / FRENCHPC.DSK / STRIP.bas < prev   
BASIC Source File  |  2014-09-09  |  4KB  |  125 lines
  1. 10  TEXT : HOME 
  2. 20  PRINT : PRINT : PRINT "      A PROFESSIONAL CRACK BY THE"
  3. 30  PRINT "              BLACK HOLE"
  4. 40  VTAB 6: HTAB 10
  5. 50  PRINT "ANIMATED SEX CARTOONS"
  6. 60  VTAB 8: HTAB 10
  7. 70  PRINT "FRENCH POST CARDS TWO"
  8. 80  VTAB 20
  9. 90  PRINT "COPYRIGHT 1981  COMPUTER PRODUCTS INT'L"
  10. 100  PRINT "^^^^^^^^^ ^^^^  WHO THE FUCK CARES????"
  11. 110  FOR I = 770 TO 790
  12. 120 :: READ J
  13. 130 :: POKE I,J
  14. 140  NEXT 
  15. 150  DATA  173,48,192,136,208,5
  16. 160  DATA  206,1,3,240,9,202,208
  17. 170  DATA  245,174,0,3,76,2,3,96
  18. 180 D$ =  CHR$(4)
  19. 190  FOR ZZ = 1 TO 2000: NEXT 
  20. 200 D$ =  CHR$(4)
  21. 210  TEXT 
  22. 220 A = 1
  23. 230  VTAB 10
  24. 240  PRINT "THIS GROUP HAS REALLY GOT IT TOGETHER!  THEY ARE REALLY HAVING A BALL!! THIS IS THE KIND OF THING THAT CAN REALLY BRING PEOPLE CLOSER TOGETHER.  I WONDER WHO'S HAVING THE MOST FUN?  PROBABLY THE GAL  IN THE MIDDLE!!
  25. 250  PRINT D$;"BLOAD PIC.FORAFT1,A$7000"
  26. 260  GOSUB 470
  27. 270  PRINT D$;"BLOAD PIC.FORAFT2,A$7000"
  28. 280  GOSUB 490
  29. 290  POKE  -16297,0
  30. 300  POKE  -16304,0
  31. 310  POKE  -16302,0
  32. 320  GOSUB 370
  33. 330  POKE  -16299,0
  34. 340  GOSUB 380
  35. 350  POKE  -16300,0
  36. 360  GOTO 320
  37. 370  REM 
  38. 380  FOR I = 1 TO 50  STEP A
  39. 390 TN = 200 -2 *A -I
  40. 400  POKE 768,TN: POKE 769,10
  41. 410  CALL 770
  42. 420  NEXT 
  43. 430 A = A +1
  44. 440  IF A >99  THEN 460
  45. 450  RETURN 
  46. 460  GOTO 510
  47. 470  POKE 24582,0: POKE 24583,32: POKE 24584,255: POKE 24585,63: POKE 24587,112: CALL 24579
  48. 480  RETURN 
  49. 490  POKE 24582,0: POKE 24583,64: POKE 24584,255: POKE 24585,95: POKE 24587,112: CALL 24579
  50. 500  RETURN 
  51. 510 D$ =  CHR$(4)
  52. 520  HOME : TEXT 
  53. 530  VTAB 10: PRINT "SALLY AND HER ROOM MATE JUST GOT HOME   AND WERE CHECKING THE GROCERIES."
  54. 540 A = 1
  55. 550  PRINT D$;"BLOAD PIC.BALONEE1,A$7000"
  56. 560  GOSUB 900
  57. 570  GOSUB 850
  58. 580  VTAB 22: PRINT "THIS THING IS JUST ABOUT THE RIGHT SIZE FOR A LITTLE FUN! 
  59. 590  FOR ZZ = 1 TO 2000: NEXT 
  60. 600  PRINT D$;"BLOAD PIC.BALONEE2,A$7000"
  61. 610  GOSUB 900
  62. 620  HOME 
  63. 630  VTAB 22: PRINT "WHAT DO YOU MEAN?  HOW CAN YOU HAVE A GOOD TIME WITH A SAUSAGE?"
  64. 640  PRINT D$;"BLOAD PIC.BALONEE3,A$7000"
  65. 650  GOSUB 900
  66. 660  HOME 
  67. 670  VTAB 22: PRINT "MAKE SURE YOU HAVE IT RIGHT. IT FEELS   GOOD ALREADY.  IT SURE IS A BIG ONE!"
  68. 680  PRINT D$;"BLOAD PIC.BALONEE4,A$7000"
  69. 690  GOSUB 920
  70. 700  POKE  -16302,0
  71. 710  GOSUB 760
  72. 720  POKE  -16299,0
  73. 730  GOSUB 770
  74. 740  POKE  -16300,0
  75. 750  GOTO 710
  76. 760  REM 
  77. 770  FOR I = 1 TO 50  STEP A
  78. 780 TN = 200 -2 *A -I
  79. 790  POKE 768,TN: POKE 769,10
  80. 800  CALL 770
  81. 810  NEXT 
  82. 820 A = A +1
  83. 830  IF A >99  THEN 890
  84. 840  RETURN 
  85. 850  POKE  -16297,0
  86. 860  POKE  -16304,0
  87. 870  POKE  -16301,0
  88. 880  RETURN 
  89. 890  GOTO 940
  90. 900  POKE 24582,0: POKE 24583,32: POKE 24584,255: POKE 24585,63: POKE 24587,112: CALL 24579
  91. 910  RETURN 
  92. 920  POKE 24582,0: POKE 24583,64: POKE 24584,255: POKE 24585,95: POKE 24587,112: CALL 24579
  93. 930  RETURN 
  94. 940 D$ =  CHR$(4)
  95. 950  TEXT : HOME 
  96. 960  SPEED= 150
  97. 970  PRINT "ONE DAY WHILE SHOPPING FOR A NEW VACUUM CLEANER YOU MET THIS KNOCK-OUT OF A GAL WHO WAS THE SALES CLERK. WHEN SHE SHOWEDYOU THE PRICE YOU ALMOST FLIPPED ! !    YOUR MIND DRIFTED......."
  98. 980  PRINT D$;"BLOAD PIC.691,A$7000": GOSUB 1220
  99. 990  HOME 
  100. 1000 A = 1
  101. 1010  POKE  -16297,0
  102. 1020  POKE  -16304,0
  103. 1030  POKE  -16302,0
  104. 1040  PRINT D$;"BLOAD PIC.692,A$7000": GOSUB 1220
  105. 1050  PRINT D$;"BLOAD PIC.693,A$7000"
  106. 1060  GOSUB 1240
  107. 1070  GOSUB 1120
  108. 1080  POKE  -16299,0
  109. 1090  GOSUB 1130
  110. 1100  POKE  -16300,0
  111. 1110  GOTO 1070
  112. 1120  REM 
  113. 1130  FOR I = 1 TO 50  STEP A
  114. 1140 TN = 200 -2 *A -I
  115. 1150  POKE 768,TN: POKE 769,10
  116. 1160  CALL 770
  117. 1170  NEXT 
  118. 1180 A = A +1
  119. 1190  IF A >99  THEN 1210
  120. 1200  RETURN 
  121. 1210  SPEED= 255: HOME : PRINT D$;"RUN HELLO"
  122. 1220  POKE 24582,0: POKE 24583,32: POKE 24584,255: POKE 24585,63: POKE 24587,112: CALL 24579
  123. 1230  RETURN 
  124. 1240  POKE 24582,0: POKE 24583,64: POKE 24584,255: POKE 24585,95: POKE 24587,112: CALL 24579
  125. 1250  RETURN