Compucolor.org – Virtual Media

Listing of file='DRPOO.BAS;01' on disk='vmedia/snakes_and_ladders-sector.ccvf'

10 PLOT 6,11,12
20 PRINT
30 PRINT "ARE YOU READY FOR-"
40 IF A= 180THEN 60
50 A= A+ 1:GOTO 40
60 PLOT 12
61 PRINT
70 PRINT "THE ADVENTURES OF DOCTOR-"
80 IF B= 200THEN 100
90 B= B+ 1:GOTO 80
100 PLOT 12
110 PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT
120 PRINT :PRINT :PRINT :PRINT :PRINT :PRINT
121 PRINT ,TAB( 23),"POOOOOOOOO!!!"
122 IF C= 200THEN 130
123 C= C+ 1:GOTO 122
130 FOR I= 1TO 200:NEXT
140 PLOT 6,7,12,2
150 FOR I= 1TO 135:A= RND (1)* 127:B= RND (1)* 127:PLOT A,B:NEXT
160 IF D= 200THEN 180
170 D= D+ 1:GOTO 160
180 PLOT 255
190 PLOT 6,3,12
200 PRINT ,TAB( 23),"HI POO FANS!"
210 IF E= 200THEN 230
220 E= E+ 1:GOTO 210
230 PLOT 12
240 PRINT "DR POO HERE. I'VE JUST RECEIVED A MESSAGE FROM THE"
241 PRINT
250 PRINT "TOILET LORDS, THOSE PEOPLE WHO KEEP THE UNIVERSE  "
251 PRINT
260 PRINT "REGULAR. THERE'S A DALEK COMMAND CENTRE SOMEWHERE "
270 PRINT "ON THIS PLANET. WHAT DO YOU WANT TO DO, KNICK OF IN"
280 PRINT "THE TOITOI, OR STAY AND HELP ME DESTROY THE DALEKS?"
290 INPUT F$
300 IF F$= "KNICK"GOTO 444444
310 PLOT 6,7,12
320 PRINT ,TAB( 20),"LET'S GO!"
330 IF G= 250THEN 350
340 G= G+ 1:GOTO 330
350 PLOT 6,11,12
360 PRINT ,TAB( 13),"PRESS '5' TO START TOITOI"
370 INPUT H
380 IF H= 5GOTO 400
390 IF H< > 5GOTO 410
400 PLOT 12
401 PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT :PRINT
410 PRINT ,TAB( 12),"IT'S ALL CISTERNS GO!"