Source Code
10 REM spin the bottle: RANDOMIZE
20 DIM N$(20,10): DIM S$(20): POKE 23658,8
60 PRINT ''TAB 3;"WELCOME TO SPIN THE BOTTLE"
70 PRINT 'TAB 3;"**************************"''
80 PRINT "ENTER THE NAMES OF THE PLAYERS"'"AS FOLLOWS:"''"A MAXIMUM OF 20 PLAYERS ALLOWED"''"ENTER S,S AFTER LAST PLAYER"
90 FOR Q=1 TO 20
100 BEEP .05,5: BEEP .05,10: INPUT "PLAYER NAME";N$(Q)'"ARE YOU (M)ALE OR (F)EMALE?";S$(Q)
200 IF N$(Q)="STOP" OR N$(Q)="S" OR S$(Q)="S" THEN GO TO 280
210 IF S$(Q)="F" OR S$(Q)="M" THEN NEXT Q
230 IF Q=20 THEN GO TO 280
240 BEEP .05,-10: BEEP .05,-20: PRINT '"SEX MUST BE (M)ALE,(F)EMALE OR (S)TOP"'"TRY ENTIRE ENTRY AGAIN": GO TO 100
280 IF S$(Q)="S" THEN LET Q=Q-1: BEEP .05,10: BEEP .05,10: BEEP .05,10
290 LET T=Q
300 LET Q=1
310 LET X=0
320 FOR Q=Q TO T
330 IF S$(Q)="S" THEN LET Q=1
340 CLS
350 PRINT ''TAB 5;N$(Q)'"PRESS <ENTER> TO SPIN THE BOTTLE"'"********************************": BEEP .05,10: BEEP .05,5
380 INPUT A$
400 LET X=INT (RND*9)+1
420 IF X>T OR X<1 THEN GO TO 400
430 IF S$(Q)=S$(X) THEN GO TO 400
435 FOR I=10 TO INT 10+((RND*10)+1): BEEP .05,20: BEEP .05,10: NEXT I
440 PRINT "THE BOTTLE HAS STOPPED AT"'N$(X)
460 PRINT '"IS ";N$(X)'" TOTALY NUDE YET? JUST Y OR N";
470 INPUT A$: PRINT A$'''
490 IF A$="Y" THEN PRINT '''TAB 9;"OH GOODY!!!": PAUSE 200: GO TO 590
500 IF S$(X)="F" THEN LET H$="HER"
505 IF S$(X)<>"F" THEN LET H$="HIS"
510 BEEP .05,5: BEEP .05,10: BEEP .05,20: PRINT N$(X); " MUST ALLOW "'N$(Q);" TO REMOVE AN"'" ARTICLE OF ";H$;" CLOTHING"'''TAB 5;"PRESS ENTER WHEN DONE"
560 INPUT A$
570 NEXT Q
580 LET Q=Q-1: GO TO 290
590 CLS
600 PRINT '''N$(X);" SELECT A NUMBER"'" BETWEEN 0 & 9"'''
610 INPUT A$
620 LET A=VAL A$
640 PRINT "OK ";N$(Q);" YOU MAY TAKE"'N$(X);" INTO THE BEDROOM "'"WHERE YOU MAY DO AS YOU PLEASE"'"FOR THE NEXT ";INT (A*RND)*100;" MINUTES"''''TAB 9;"*** GOOD LUCK ***"
700 PRINT '''TAB 4;"PRESS <ENTER> TO CONTINUE"
710 INPUT A$
720 IF Q>X THEN GO SUB 890
730 IF X>Q THEN GO SUB 940
740 IF Q>X THEN GO SUB 940
750 IF X>Q THEN GO SUB 890
760 IF T<2 THEN GO TO 790
770 IF Q=T THEN LET Q=1
780 GO TO 320
790 CLS : PRINT '''TAB 3;"DO YOU WISH TO PLAY AGAIN"'" OR IS ONCE A NIGHT ENOUGH? "
820 INPUT A$
830 IF A$="N" THEN PRINT ''TAB 5;"NO";: GO TO 870
840 IF A$="Y" THEN PRINT ''TAB 10;"YES": PAUSE 200: RUN 10
870 PRINT " ***CHICKEN***": GO SUB 2000: STOP
890 FOR J=Q TO T
900 LET N$(J)=N$(J+1): LET S$(J)=S$(J+1)
910 NEXT J
920 LET T=T-1
930 RETURN
940 FOR K=X TO T
950 LET N$(K)=N$(K+1): LET S$(K)=S$(K+1)
960 NEXT K
970 LET T=T-1
980 RETURN
2000 BEEP .20,17: BEEP .20,17: BEEP .20,17: BEEP .15,5: BEEP .20,14: BEEP .20,10: RETURN
9997 STOP
9998 SAVE "SPIN T BOT" LINE 1
