0 'SEXFUN.BA - Author Unknown 1 'CLUB 100 LIBRARY - 415/939-1246 BBS, 937-5039 NEWSLETTER, 932-8856 VOICE 50 CLS 60 R$=CHR$(27)+"p" 70 B$=CHR$(27)+"q" 80 PRINT@95,R$" SEXFUN "B$ 90 PRINT@162,"Get ready for the time of your life! 100 FORN=1TO500 110 NEXT 120 CLS 130 PRINTR$" Please answer the following questions "B$ 140 INPUT"What is your name";N$ 150 INPUT"What is your age ";A$ 160 INPUT"Rate yourself (1=UGLY,10=VERY SEXY)";SQ 170 IFSQ<1ORSQ>10THENBEEPGOTO160 180 PRINT 190 PRINTR$ PREPARE YOURSELF... "B$:FORN=1TO1000:NEXT:PRINT" HERE IT COMES...":FORN=1TO1000:NXT 200 SQ=SQ/50*INT(VAL(A$)) 210 SQ=SQ*B 220 IFSQ=0ANDB=CTHENGOSUB680 230 CLS 240 PRINT@124,R$" "; 250 FORN=1TOLEN(DB$) 260 PRINTCHR$(ASC(MID$(DB$,N,1))-1); 270 NEXT 280 PRINT" "B$ 290 PRINT@169,R$" "; 300 FORN=1TOLEN(DD$) 310 PRINTCHR$(ASC(MID$(DD$,N,1))-1); 320 NEXT 330 PRINT" "B$ 340 END 350 C%=0 360 L%=2 370 GOSUB 680 380 CN%=B% 390 GOSUB 680 400 AD=256*B% 410 GOSUB 680 420 AD=AD+B% 430 GOSUB 680 440 IF CN%=0 THEN RETURN 450 FOR I%=1 TO CN% 460 GOSUB 680 470 B%(I%)=B% 480 NEXT I% 490 RETURN 500 H$="He" 510 H1$="She" 520 H2$="remove" 530 GOSUB 2100 540 B%=16*B1% 550 GOSUB 2100 560 B%=B%+B1% 570 RETURN 580 B1%=ASC(MID$(L$,L%,1)) 590 L%=L%+1 600 IF B1%>=48 AND B1%<=57 THEN B1%=B1%-48:RETURN 610 IF B1%>=65 AND B1%<=70 THEN B1%=B1%-55:RETURN 620 GOTO 4000 630 PRINT M$ 640 CLOSE 650 END 660 ER%=-1 670 RESUME NEXT 680 PRINTR$" Make yourself comfortable, "N$"... "B$; 690 FORN=1TO5000 700 NXT 710 DB$="IPX!EJE!ZPV!FOKPZ!UIJT!MJUUMF" 720 DD$="EFCVHHJOH!TFTTJPO"+CHR$(34)+CHR$(34) 730 RETRN