home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / SEX / B.W (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1996-06-28  |  817 b   |  33 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 10 D$ =  CHR$(4)
  2. 20  HOME : TEXT 
  3. 30 A = 1
  4. 40  VTAB 10: PRINT "YOU'RE OVER AT A FRIEND'S HOUSE WAITING FOR HIM TO COME HOME WHEN YOU HEAR A    NOISE IN THE NEXT ROOM.  YOU OPEN THE   DOOR TO SEE WHAT IT IS, AND THE LIGHT'S OFF......."
  5. 50  PRINT D$;"BLOAD     BW1,A$2000"
  6. 51  HOME : VTAB 12: HTAB 18: PRINT "???!!!"
  7. 52  VTAB 23: HTAB 41
  8. 55  FOR I = 1 TO 20: POKE 768,5: POKE 769,25: CALL 770
  9. 56  FOR J = 1 TO 100: NEXT 
  10. 57  POKE 768,7: POKE 769,25: CALL 770
  11. 58  FOR J = 1 TO 100: NEXT 
  12. 59  NEXT 
  13. 60  VTAB 10: PRINT "SO YOU CAUTIOUSLY OPENED THE DOOR. AND  AS THE LIGHT FROM THE HALL SLOWLY LETS  YOU SEE, YOU KNOW WHY YOUR FRIEND DIDN'TANSWER WHEN YOU RANG THE BELL ! !"
  14. 69  PRINT D$;"BLOAD     BW2,A$4000"
  15. 70  POKE  -16297,0
  16. 80  POKE  -16304,0
  17. 90  POKE  -16302,0
  18. 100  GOSUB 170
  19. 110  POKE  -16299,0
  20. 120 SW = 1
  21. 130  GOSUB 200
  22. 140  POKE  -16300,0
  23. 150 SW = 0
  24. 160  GOTO 100
  25. 170  POKE 768,5: POKE 769,25: CALL 770
  26. 180  FOR J = 1 TO 100: NEXT 
  27. 190  RETURN 
  28. 200  POKE 768,7: POKE 769,25: CALL 770
  29. 210  FOR J = 1 TO 100: NEXT 
  30. 220 A = A +1
  31. 230  IF A >30  THEN 300
  32. 260  RETURN 
  33. 300  PRINT D$;"RUN DALLAS"