home *** CD-ROM | disk | FTP | other *** search
/ Set of Apple II Hard Drive Images / hard.hdv / HARD / SEX / HELP1 (.txt) < prev    next >
Encoding:
Applesoft BASIC Source Code  |  1996-06-28  |  314 b   |  17 lines  |  [FC] Applesoft BASIC Program (0x0801)
  1. 10  HOME : TEXT 
  2. 20  VTAB 5: HTAB 10
  3. 30  PRINT "ANIMATED SEX CARTOONS"
  4. 40  VTAB 7: HTAB 12
  5. 50  PRINT "BED TIME STORIES #1"
  6. 60  VTAB 20
  7. 70  PRINT "COPYRIGHT 1981  COMPUTER PRODUCTS INT'L"
  8. 500  FOR I = 770 TO 790
  9. 510 :: READ J
  10. 520 :: POKE I,J
  11. 530  NEXT 
  12. 540  DATA  173,48,192,136,208,5
  13. 550  DATA  206,1,3,240,9,202,208
  14. 560  DATA  245,174,0,3,76,2,3,96
  15. 570 D$ =  CHR$(4)
  16. 580  FOR J = 1 TO 2000: NEXT 
  17. 600  PRINT D$;"RUN BEND"