home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.tar / ftp.whtech.com / club100 / gam / sexfun.ba < prev    next >
Text File  |  2006-10-19  |  2KB  |  72 lines
  1. 0 'SEXFUN.BA - Author Unknown
  2. 1 'CLUB 100 LIBRARY - 415/939-1246 BBS,    937-5039 NEWSLETTER, 932-8856 VOICE
  3. 50 CLS
  4. 60 R$=CHR$(27)+"p"
  5. 70 B$=CHR$(27)+"q"
  6. 80 PRINT@95,R$" SEXFUN "B$
  7. 90 PRINT@162,"Get ready for the time of your life!
  8. 100 FORN=1TO500
  9. 110 NEXT
  10. 120 CLS
  11. 130 PRINTR$" Please answer the following questions "B$
  12. 140 INPUT"What is your name";N$
  13. 150 INPUT"What is your age ";A$
  14. 160 INPUT"Rate yourself (1=UGLY,10=VERY SEXY)";SQ
  15. 170 IFSQ<1ORSQ>10THENBEEPGOTO160
  16. 180 PRINT
  17. 190 PRINTR$ PREPARE YOURSELF... "B$:FORN=1TO1000:NEXT:PRINT" HERE IT COMES...":FORN=1TO1000:NXT
  18. 200 SQ=SQ/50*INT(VAL(A$))
  19. 210 SQ=SQ*B
  20. 220 IFSQ=0ANDB=CTHENGOSUB680
  21. 230 CLS
  22. 240 PRINT@124,R$" ";
  23. 250 FORN=1TOLEN(DB$)
  24. 260 PRINTCHR$(ASC(MID$(DB$,N,1))-1);
  25. 270 NEXT
  26. 280 PRINT" "B$
  27. 290 PRINT@169,R$" ";
  28. 300 FORN=1TOLEN(DD$)
  29. 310 PRINTCHR$(ASC(MID$(DD$,N,1))-1);
  30. 320 NEXT
  31. 330 PRINT" "B$
  32. 340 END
  33. 350 C%=0
  34. 360 L%=2
  35. 370 GOSUB 680
  36. 380 CN%=B%
  37. 390 GOSUB 680
  38. 400 AD=256*B%
  39. 410 GOSUB 680
  40. 420 AD=AD+B%
  41. 430 GOSUB 680
  42. 440 IF CN%=0 THEN RETURN
  43. 450 FOR I%=1 TO CN%
  44. 460 GOSUB 680
  45. 470 B%(I%)=B%
  46. 480 NEXT I%
  47. 490 RETURN
  48. 500 H$="He"
  49. 510 H1$="She"
  50. 520 H2$="remove"
  51. 530 GOSUB 2100
  52. 540 B%=16*B1%
  53. 550 GOSUB 2100
  54. 560 B%=B%+B1%
  55. 570 RETURN
  56. 580 B1%=ASC(MID$(L$,L%,1))
  57. 590 L%=L%+1
  58. 600 IF B1%>=48 AND B1%<=57 THEN B1%=B1%-48:RETURN
  59. 610 IF B1%>=65 AND B1%<=70 THEN B1%=B1%-55:RETURN
  60. 620 GOTO 4000
  61. 630 PRINT M$
  62. 640 CLOSE
  63. 650 END
  64. 660 ER%=-1
  65. 670 RESUME NEXT
  66. 680 PRINTR$" Make yourself comfortable, "N$"... "B$;
  67. 690 FORN=1TO5000
  68. 700 NXT
  69. 710 DB$="IPX!EJE!ZPV!FOKPZ!UIJT!MJUUMF"
  70. 720 DD$="EFCVHHJOH!TFTTJPO"+CHR$(34)+CHR$(34)
  71. 730 RETRN
  72.