DataMuseum.dk

top - download

    Length: 3456 (0xd80)
    Types: TextFile
    Names: »PEEL.BAS«

└─⟦69a509965⟧ Bits:30005211 CR8 BASIC Games
    └─ ⟦this⟧ »PEEL.BAS« 

TextFile

1  REM PROGRAM PEEL.BAS
10 DIM C$(7,2)
20 LET C$(1,1)="SWEATER" : C$(1,2)="SWEATER"
30 LET C$(2,1)="SHIRT" : C$(2,2)="BLOUSE"
40 LET C$(3,1)="Y-FRONTS" : C$(3,2)="BRA"
50 LET C$(4,1)="TROUSERS" : C$(4,2)="TROUSERS"
60 LET C$(5,1)="VEST" : C$(5,2)="TIGHTS"
70 LET C$(6,1)="SOCKS" : C$(6,2)="PANTIES"
80 LET C$(7,1)="WELLIES" : C$(7,2)="LONG BLACK LEATHER BOOTS"
90 LET B$(1)="BOY" : B$(2)="GIRL"
100 LET S$(1)="HE" : S$(2)="SHE"
110 LET H$(1)="HIS" : H$(2)="HER"
120 LET Y$="IMPOSSIBLE, UNDER SOMETHING ELSE"
130 LET Z$="ALREADY OFF"
140 LET X$="LEAVE THOSE SOCKS ALONE"
150 LET F(1)=2
160 LET F(2)=1
170 PRINT "WHAT SEX ARE YOU? TYPE 1 IF FEMALE, 2 IF MALE",
180 INPUT W
190 IF W=1 OR W=2 THEN 220
200 PRINT "MAKE UP YOUR MIND DUCKIE"
210 GO TO 170
220 PRINT "YOUR ";B$(W);"FRIEND ARRIVES ON A COLD AND WET NIGHT"
230 PRINT "YOU THINK THAT ";S$(W);" OUGHT TO DRY ";H$(W);" CLOTHES"
240 PRINT S$(W);" SAYS ";S$(W);" WOULD LOVE YOU TO REMOVE THEM"
250 PRINT S$(W);" IS WEARING:-"
260 FOR I=1 TO 7
270 PRINT TAB(10);I;C$(I,W)
280 NEXT I
290 PRINT "NOW START TO REMOVE ";H$(W);" CLOTHES- TYPE 1,2,3,ETC."
300 FOR I=1 TO 7
310 LET D(I)=0
320 NEXT I
330 PRINT "WHAT IS 1ST?",
340 INPUT I
350 IF I=7 THEN 410
360 IF I=1 OR I=4 THEN 390
370 PRINT Y$
380 GO TO 330
390 PRINT "YOU MAY GET A PAINFUL KICK"
400 GO TO 330
410 PRINT "WELL DONE"
420 LET D(7)=1
430 PRINT "WHAT IS 2ND?",
440 INPUT I
450 IF I=1 THEN 560
460 IF I<>7 THEN 490
470 PRINT Z$
480 GO TO 430
490 IF W<>1 THEN 510
500 IF I=6 THEN 540
510 IF I=4 THEN 540
520 PRINT Y$
530 GO TO 430
540 PRINT "DO NOT RUSH"
550 GO TO 430
560 PRINT "WELL DONE, WRING OUT THE ";C$(1,W)
570 LET D(1)=1
580 PRINT "WHAT IS 3RD?",
590 INPUT I
600 IF I=2 THEN 710
610 IF D(I)=0 THEN 640
620 PRINT Z$
630 GO TO 580
640 IF W<>1 THEN 660
650 IF I=6 THEN 690
660 IF I=4 THEN 690
670 PRINT Y$
680 GO TO 580
690 PRINT "TOO EAGER"
700 GO TO 580
710 PRINT "CAREFUL WITH THOSE BUTTONS"
720 LET D(2)=1
730 PRINT "EVEN I AM SWEATING, WHAT IS 4TH?",
740 INPUT I
750 IF I=4 THEN 870
760 IF W=1AND I=6 THEN 850
770 IF D(I)=0 THEN 800
780 PRINT Z$
790 GO TO 730
800 IF I=5AND W=1 OR I=3 THEN 830 
810 PRINT Y$
820 GO TO 730
830 PRINT "WAIT ";B$(F(W))
840 GO TO 730
850 PRINT X$
860 GO TO 730
870 PRINT "GOOD, BUT STOP PANTING"
880 LET D(4)=1
890 PRINT "NEARLY THERE, WHAT IS 5TH?",
900 INPUT I
910 IF I=5 THEN 1040
920 IF I<>6 THEN 940
930 IF W=1 THEN 1000
940 IF D(I)=0 THEN 970
950 PRINT Z$
960 GO TO 890
970 IF I<>3 THEN 1020
980 PRINT "PATIENCE ";B$(F(W))
990 GO TO 890
1000 PRINT X$
1010 GO TO 890
1020 PRINT Y$
1030 GO TO 890
1040 IF W=1 THEN 1070
1050 PRINT "DAMN ";C$(5,2)
1060 GO TO 1080
1070 PRINT "OH! YOU ARE HAIRY"
1080 LET D(5)=1
1090 PRINT "TWO TO GO, WHAT IS 6TH?",
1100 INPUT I
1110 IF I=3 THEN 1170
1120 IF D(I)=0 THEN 1150
1130 PRINT Z$
1140 GO TO 1090
1150 PRINT "NOT SO FAST ";B$(F(W))
1160 GO TO 1090
1170 IF W=1 THEN 1200
1180 PRINT "THERE THEY ARE, WOW!! WHAT A PAIR !!!!!!!"
1190 GO TO 1210
1200 PRINT "WOW!!!OOH LA LA	FUN TIME"
1210 LET D(3)=1
1220 PRINT "AND LASTLY?",
1230 INPUT I
1240 IF I=6 THEN 1270
1250 PRINT Z$
1260 GO TO 1220
1270 IF W=1 THEN 1300
1280 PRINT "WHOOPEE......"
1290 GO TO 1310
1300 PRINT "PHEW! THOSE SOCKS"
1310 PRINT 
1320 PRINT "THANKS FOR PLEASING ME, COME AGAIN SOON LOVER"
1330 END
«eof»