Listing of file='DRWHO.BAS;01' on disk='vmedia/snakes_and_ladders-sector.ccvf'
1 PLOT 6,11,12 2 PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT 3 PRINT ,TAB( 20),"DOCTOR WHO" 4 IF A= 300THEN 10 5 A= A+ 1:GOTO 4 10 PLOT 12 11 PRINT 12 PRINT "HI, I'M DOCTOR WHO!!! I'VE JUST RECEIVED A MESSAGE" 20 PRINT "FROM THE TOILET LORDS, THOSE PEOPLE WHO KEEP THE" 21 PRINT 30 PRINT "UNIVERSE REGULAR!!! A DALEK COMMAND CENTRE IS " 31 PRINT 40 PRINT "LOCATED ON THIS PLANET!!! YOU HAVE TWO CHOICES,YOU" 41 PRINT 50 PRINT "CAN WHIZ OFF TO THE TOITOI, OR YOU CAN STAY AND HELP" 51 PRINT 60 PRINT "ME DESTROY THE DALEKS. (1=STAY, 2=GO) 61 PRINT 70 INPUT A 80 IF A= 2GOTO 222222 90 PLOT 12 100 PRINT ,TAB( 18),"THAT'S THE SPIRIT!" 101 GOTO 116 110 PRINT "SUCKER-YOU'VE JUST BEEN BLASTED BY A DALEK!!!" 111 PRINT 116 IF B= 200THEN 119 117 B= B+ 1:GOTO 116 119 PLOT 12 120 PRINT "NOW LET' GET AFTER THOSE DALEKS!!!" 121 PRINT 130 PRINT " RIGHT ,WERE OUTSIDE THE ENTRANCE TO THE DALEK" 131 PRINT 140 PRINT "BASE. THERE'S A DALEK GUARDING SO WE HAVE TO" 141 PRINT 150 PRINT "GET RID OF HIM. THESE ARE THE OPTIONS OPEN TO" 160 PRINT "YOU." 161 PRINT 170 PRINT " 1. YOU CAN HAVE A SHOT AT HIM WITH MY HAT!!!" 180 PRINT " 2. YOU CAN ATTEMPT TO SNEAK PAST." 190 PRINT " 3. YOU CAN HAVE A GAMBLE. CHOOSE A NUMBER(1-10)" 191 PRINT 200 PRINT " WHAT WILL YOU DO???";:INPUT A 210 IF A= 1THEN GOTO 240 220 IF A= 2GOTO 250 230 IF A= 3GOTO 260 240 PRINT " READY, THROW!!!":GOTO 290 250 PRINT "LET'S GO!!!":GOTO 270 260 PRINT "CROSS YOUR FINGERS!!!" 290 D= INT (19* RND (1)) 300 IF D= CGOTO 320 310 IF D< > CGOTO 330 320 PRINT "SUCKED IN YOU'VE BEEN BLASTED!!!" 321 PRINT "(SO HAVE I FOR THAT MATTER!!!)":GOTO 22222 330 PRINT "OKAY, WE'RE AT A 'T' JUNCTION." 331 PRINT 340 PRINT "RIGHT OR LEFT?(1=R, 2=L)";:INPUT Z 350 IF Z= 1GOTO 370 360 IF Z= 2GOTO 740 370 PRINT "OKAY, WANT TO GO ON???(1=Y, 2=N)";:INPUT Y 371 PRINT 380 IF Y= 1GOTO 410 390 IF Y= 2GOTO 391 391 GOTO 5000 400 PRINT " WELL YA GOTTA YA TRACT!" 401 GOTO 5020 410 PRINT "DALEK AMBUSH!!! RUN!!!" 420 PRINT "WE'LL HAVE TO USE EXPLOSIVES ON THEM!!!" 430 PRINT "BUT THERE'S A 1 IN 10 CHANCE" 440 PRINT "OF BLOWING OURSELVES UP!!!" 450 PRINT "QUICK, PRESS ANY NUMBER KEY TO DETONATE!!!";:INPUT E 460 X= INT (10* RND (1)) 470 IF E= XGOTO 490 480 IF E< > XGOTO 500 490 PRINT "OH BLAST!! YOU JUST BLEW US UP!!!":GOTO 4444 500 PRINT "WE'VE MADE IT!!!" 510 PRINT "WE'RE AT ANOTHER 'T' JUNCTION." 520 PRINT "RIGHT OR LEFT?";:INPUT L 530 IF L= 1GOTO 550 540 IF L= 2GOTO 44444 550 PRINT "WE'RE AT A DOOR WITH KEYS NUMBERED 1-6." 560 PRINT "FIVE OF THE KEYS WILL OPEN THE DOOR," 570 PRINT "BUT ONE WILL BLOW US INTO ORBIT" 580 PRINT "CHOOSE A KEY.",:INPUT H 590 A1= INT (5* RND (1)) 600 IF H= A1GOTO 620 610 IF H< > A1GOTO 630 620 PRINT "UUUUMMMM!!! YOU JUST BLEW US UP!!!":GOTO 4444 630 PRINT "WE'RE THROUGH!!!" 640 PRINT " WE'VE MADE IT!!! WE'RE IN THE DALEK" 650 PRINT "CONTROL ROOM. SET THE EXPLOSIVES" 660 U= INT (8* RND (1)) 670 IF U= 2GOTO 490 680 IF U< > 2GOTO 690 690 PRINT " WE'VE DESTROYED THE DALEKS!!!" 700 PRINT "LET'S KNICK OFF TO THE TOITOI" 710 PRINT "INTO THE NEXT ADVENTURE OF DOCTOR-A" 720 PRINT 730 PRINT "WHOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO!!!" 740 PRINT "WELL, WHAT DO YOU KNOW" 750 PRINT 760 PRINT "WE'VE RUN INTO DAVROS, YOU KNOW" 770 PRINT 780 PRINT "THE GUY WHO MADE THE DALEKS!!!" 790 PRINT 800 PRINT "WELL HE'LL PROBABLY CALL HIS DALEK GUARDS," 810 PRINT 820 PRINT "SO WE'DE BETTER BE GOING!!!" 830 PRINT 840 PRINT "WE CAN EITHER:-" 850 PRINT 860 PRINT "1. KNICK OFF DOWN THE CORRIDOR;" 870 PRINT "2. FIGHT THE DALEKS WITH EXPLOSIVES;" 880 PRINT "3. SURRENDER:" 890 PRINT 900 PRINT "WHAT'L IT BE, 1,2 OR 3",:INPUT Q 910 IF Q= 1GOTO 940 920 IF Q= 2GOTO 950 930 IF Q= 3GOTO 960 940 PRINT "LET'S GO!!!":GOTO 970 950 PRINT "HERE THEY COME!!!":GOTO 1010 960 PRINT "HERE THEY COME!!!":GOTO 990 970 PRINT " EXTERMINATE!!!" 980 PRINT 990 PRINT "DALEKS!!!" 991 IF V= 75THEN 320 992 V= V+ 1:GOTO 991 1000 GOTO 320 1010 PRINT "THROW THE EXPLOSIVES!!!" 1020 G= INT (3* RND (1)) 1030 IF G= 2GOTO 490 5000 IF N= 180THEN 400 5010 N= N+ 1:GOTO 5000 5020 IF M= 180THEN 410 5030 M= M+ 1:GOTO 5020