home *** CD-ROM | disk | FTP | other *** search
/ The Glitch Apple Disk Collection / 2014.glitch.apple.collection.zip / indexed / FRENCHPC.DSK / HELLO.bas < prev    next >
BASIC Source File  |  2014-09-09  |  5KB  |  164 lines
  1. 10  IF  PEEK(24576) < >76  THEN  PRINT "<CTRL-D>BLOAD HIRES SCRUNCH"
  2. 20 D$ =  CHR$(4)
  3. 30  ONERR  GOTO 310
  4. 40  TEXT : HOME 
  5. 50  HTAB 12
  6. 60  PRINT "ANIMATED SEX CARTOONS"
  7. 70  HTAB 12
  8. 80  PRINT "FRENCH POST CARDS ONE"
  9. 90  PRINT : PRINT "      A  >>BLACK HOLE<< CRACK RELEASE"
  10. 100  VTAB 20
  11. 110  PRINT "COPYRIGHT 1981  COMPUTER PRODUCTS INT'L"
  12. 120  PRINT "^^^^^^^^^ ^^^^  BOOOOOOO!!!!!!!!"
  13. 130  PRINT 
  14. 140  PRINT " (OPTION 2 DOES NOT WORK)"
  15. 150  FOR I = 770 TO 790
  16. 160 :: READ J
  17. 170 :: POKE I,J
  18. 180  NEXT 
  19. 190  DATA  173,48,192,136,208,5
  20. 200  DATA  206,1,3,240,9,202,208
  21. 210  DATA  245,174,0,3,76,2,3,96
  22. 220 D$ =  CHR$(4)
  23. 230  VTAB 5
  24. 240  PRINT : PRINT "WHICH WOULD YOU LIKE TO SEE?"
  25. 250  VTAB 8: PRINT "1. AT THE BEACH."
  26. 260  PRINT : PRINT "2. THE NEW MAID."
  27. 270  PRINT : PRINT "3. DOUBLE TROUBLE."
  28. 280  PRINT : PRINT "4. AFTER SCHOOL.
  29. 290  PRINT : PRINT "5. VIEW SEX STRIP."
  30. 300  PRINT : PRINT "6. FINISHED."
  31. 310  VTAB 22: HTAB 15: PRINT "PUSH BUTTON"
  32. 320  VTAB 22: HTAB 27: GET RS
  33. 330  PRINT D$
  34. 340  ON RS GOTO 370,660,1020,1310,350,360
  35. 350  HOME : PRINT D$;"RUN STRIP"
  36. 360  HOME : VTAB 12: PRINT "SEE YOU LATER ! ! !": END 
  37. 370  HOME 
  38. 380  VTAB 10: PRINT "WHAT A BEAUTIFUL DAY!  AND WHAT A CHICK IN THE BIKINI!! I WONDER IF SHE'D LIKE  A LITTLE ROMP IN THE SAND?"
  39. 390 A = 1
  40. 400  PRINT D$;"BLOAD PIC.SAND1,A$7000": GOSUB 1600
  41. 410  GOSUB 610
  42. 420  VTAB 22: PRINT "MIND IF I JOIN YOU FOR A LITTLE WHILE?  "
  43. 430  PRINT D$;"BLOAD PIC.SAND3,A$7000": GOSUB 1620
  44. 440  VTAB 22: PRINT "THIS IS WHAT I LOVE ABOUT BEING A                LIFEGUARD!!"
  45. 450  PRINT D$;"BLOAD PIC.SAND2,A$7000": GOSUB 1600
  46. 460  POKE  -16302,0
  47. 470  GOSUB 520
  48. 480  POKE  -16299,0
  49. 490  GOSUB 530
  50. 500  POKE  -16300,0
  51. 510  GOTO 470
  52. 520  REM 
  53. 530  FOR I = 1 TO 50  STEP A
  54. 540 TN = 200 -2 *A -I
  55. 550  POKE 768,TN: POKE 769,10
  56. 560  CALL 770
  57. 570  NEXT 
  58. 580 A = A +1
  59. 590  IF A >99  THEN 650
  60. 600  RETURN 
  61. 610  POKE  -16297,0
  62. 620  POKE  -16304,0
  63. 630  POKE  -16301,0
  64. 640  RETURN 
  65. 650  RUN 
  66. 660  HOME 
  67. 670  VTAB 10: PRINT "THE NEW MAID WAS UP IN HER MISTRESS'S   ROOM BRINGING HER A BOTTLE OF CHAMPAGNE"
  68. 680 A = 1
  69. 690  PRINT D$;"BLOAD PIC.MAID1,A$7000": GOSUB 1600
  70. 700  GOSUB 970
  71. 710  SPEED= 50
  72. 720  VTAB 22: PRINT "MADAME, YOU ARE, SO...  HOW YOU SAY ?   .....DELIGHTFUL ! !"
  73. 730  FOR ZZ = 1 TO 3000: NEXT 
  74. 740  PRINT D$;"BLOAD PIC.MAID2,A$7000": GOSUB 1600
  75. 750  HOME 
  76. 760  VTAB 22: PRINT "YOUR BODY IS MAGNIFIQUE !               PLEASE, YOU MUST LET ME CARESS YOU."
  77. 770  PRINT D$;"BLOAD PIC.MAID3,A$7000": GOSUB 1600
  78. 780  HOME 
  79. 790  SPEED= 255
  80. 800  VTAB 22: PRINT "DID YOU TAKE THAT DAMN WIRE FROM THE    NECK OF THE BOTTLE?  I SURE WOULD HATE  TO GET A FREE I.U.D. OUT OF THIS! ! !"
  81. 810  PRINT D$;"BLOAD PIC.MAID4,A$7000": GOSUB 1620
  82. 820  POKE  -16302,0
  83. 830  GOSUB 880
  84. 840  POKE  -16299,0
  85. 850  GOSUB 890
  86. 860  POKE  -16300,0
  87. 870  GOTO 830
  88. 880  REM 
  89. 890  FOR I = 1 TO 50  STEP A
  90. 900 TN = 200 -2 *A -I
  91. 910  POKE 768,TN: POKE 769,10
  92. 920  CALL 770
  93. 930  NEXT 
  94. 940 A = A +1
  95. 950  IF A >99  THEN 1010
  96. 960  RETURN 
  97. 970  POKE  -16297,0
  98. 980  POKE  -16304,0
  99. 990  POKE  -16301,0
  100. 1000  RETURN 
  101. 1010  RUN 
  102. 1020  HOME 
  103. 1030  VTAB 10: PRINT "THE AMERICAN TOURIST WAS IN PARIS WITH  HIS CAMERA.  HE ASKED TWO GOOD LOOKING  FRENCH GIRLS IF HE COULD TAKE THEIR     PICTURE. 
  104. 1040 A = 1
  105. 1050  PRINT D$;"BLOAD PIC.DOUBLE1,A$7000": GOSUB 1600
  106. 1060  GOSUB 1260
  107. 1070  VTAB 22: PRINT "WHY WASTE TIME WITH PICTURES.  WE'LL    SHOW YOU A TIME THAT YOU CAN REMENBER   BETTER THAN LOOKING AT PHOTOS!!
  108. 1080  PRINT D$;"BLOAD PIC.DOUBLE3,A$7000": GOSUB 1620
  109. 1090  VTAB 22: PRINT "LET'S THE THREE OF US GO OVER TO OUR    APARTMENT AND HAVE A LITTLE FUN.  YOU   AMERICAN MEN ARE LIKE LITTLE BOYS.
  110. 1100  PRINT D$;"BLOAD PIC.DOUBLE2,A$7000": GOSUB 1600
  111. 1110  POKE  -16302,0
  112. 1120  GOSUB 1170
  113. 1130  POKE  -16299,0
  114. 1140  GOSUB 1180
  115. 1150  POKE  -16300,0
  116. 1160  GOTO 1120
  117. 1170  REM 
  118. 1180  FOR I = 1 TO 50  STEP A
  119. 1190 TN = 200 -2 *A -I
  120. 1200  POKE 768,TN: POKE 769,10
  121. 1210  CALL 770
  122. 1220  NEXT 
  123. 1230 A = A +1
  124. 1240  IF A >99  THEN 1300
  125. 1250  RETURN 
  126. 1260  POKE  -16297,0
  127. 1270  POKE  -16304,0
  128. 1280  POKE  -16301,0
  129. 1290  RETURN 
  130. 1300  RUN 
  131. 1310  HOME 
  132. 1320  PRINT "REMEMBER WHEN YOU WERE A KID IN SCHOOL? THE TEACHER WAS ALWAYS GETTING ON YOUR  BACK ABOUT THINGS.  SHE WASN'T BAD TO   LOOK AT THOUGH.  AND ONE DAY AFTER CLASS"
  133. 1330  PRINT D$;"BLOAD PIC.TEACH1,A$7000": GOSUB 1600
  134. 1340  HOME 
  135. 1350 A = 1
  136. 1360  POKE  -16297,0
  137. 1370  POKE  -16304,0
  138. 1380  POKE  -16302,0
  139. 1390  PRINT D$;"BLOAD PIC.TEACH1,A$7000": GOSUB 1620
  140. 1400  PRINT D$;"BLOAD PIC.TEACH2,A$7000": GOSUB 1600
  141. 1410  PRINT D$;"BLOAD PIC.TEACH3,A$7000": GOSUB 1620
  142. 1420  GOTO 1440
  143. 1430  GOSUB 1480
  144. 1440  POKE  -16299,0
  145. 1450  GOSUB 1490
  146. 1460  POKE  -16300,0
  147. 1470  GOTO 1430
  148. 1480  REM 
  149. 1490  FOR I = 1 TO 50  STEP A
  150. 1500 TN = 200 -2 *A -I
  151. 1510  POKE 768,TN: POKE 769,10
  152. 1520  CALL 770
  153. 1530  NEXT 
  154. 1540 A = A +1
  155. 1550  IF A >99  THEN 1570
  156. 1560  RETURN 
  157. 1570  PRINT D$;"BLOAD PIC.TEACH4,A$7000": GOSUB 1620
  158. 1580  FOR ZZ = 1 TO 1500: NEXT 
  159. 1590  RUN 
  160. 1600  POKE 24582,0: POKE 24583,32: POKE 24584,255: POKE 24585,63: POKE 24587,112: CALL 24579
  161. 1610  RETURN 
  162. 1620  POKE 24582,0: POKE 24583,64: POKE 24584,255: POKE 24585,95: POKE 24587,112: CALL 24579
  163. 1630  RETURN 
  164. 1640  END