home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / SEX / NURSE (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1996-06-28  |  843 b   |  32 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 100 D$ =  CHR$(4)
  2. 110  HOME : TEXT 
  3. 115  SPEED= 100
  4. 120  VTAB 10: PRINT "POOR LITTLE DAN GOT SICK AND WENT TO THEHOSPITAL FOR A FEW DAYS IN BED.  HE ONLYHAD THE FLU, BUT THE DOCTOR WON'T LET   HIM LEAVE FOR ANOTHER 3 DAYS.  HE SURE  IS LONELY."
  5. 130 A = 1
  6. 140  PRINT D$;"BLOAD     NURSE1,A$2000"
  7. 150  GOSUB 500
  8. 160  VTAB 22: PRINT "WHAT A KNOCKOUT THIS NURSE IS!  MAYBE   THIS STAY WON'T BE AS BAD AS I FIRST HADTHOUGHT!!"
  9. 170  PRINT D$;"BLOAD     NURSE2,A$2000"
  10. 233  HOME 
  11. 235  VTAB 22: PRINT "HOW ABOUT JUMPING IN BED WITH ME AND SEEIF WE CAN MAKE THIS SUCKER SQUEEK!!"
  12. 239  PRINT D$;"BLOAD     NURSE3,            A$2000"
  13. 240  PRINT D$;"BLOAD     NURSE4,A$4000"
  14. 245  POKE  -16302,0
  15. 250  GOSUB 300
  16. 260  POKE  -16299,0
  17. 270  GOSUB 310
  18. 280  POKE  -16300,0
  19. 290  GOTO 250
  20. 300  FOR I = 1 TO 100: NEXT 
  21. 305  RETURN 
  22. 310  FOR I = 1 TO 50: NEXT 
  23. 315  POKE 768,6: POKE 769,50: CALL 770
  24. 360 A = A +1
  25. 370  IF A >35  THEN 600
  26. 380  RETURN 
  27. 500  POKE  -16297,0
  28. 502  POKE  -16304,0
  29. 503  POKE  -16301,0
  30. 504  RETURN 
  31. 600  TEXT : HOME : SPEED= 255: PRINT "HOPE YOU'RE SATISFIED NOW!"
  32. 610  PRINT  CHR$(4)"RUN COMICS"