Listing of file='OPERAT.BAS;01' on disk='vmedia/chip_21-sector.ccvf'
5 PLOT 12,14 10 PLOT 3,10,26:PRINT "D U N G E O N S A N D D R A G O N S 20 PLOT 3,20,28:PRINT "L E V E L B U I L D E R 25 IF SK> 0THEN 100 30 PLOT 3,0,10:INPUT "W H A T L E V E L ?";L 40 IF L> 6OR L< 1THEN 30 50 IF L= 1THEN PLOT 27,4:PRINT "DEL L.ARY;1":PLOT 27,27 53 IF L= 2THEN PLOT 27,4:PRINT "DEL L.ARY;2":PLOT 27,27 55 IF L= 3THEN PLOT 27,4:PRINT "DEL L.ARY;3":PLOT 27,27 57 IF L= 4THEN PLOT 27,4:PRINT "DEL L.ARY;4":PLOT 27,27 59 IF L= 5THEN PLOT 27,4:PRINT "DEL L.ARY;5":PLOT 27,27 61 IF L= 6THEN PLOT 27,4:PRINT "DEL L.ARY;6":PLOT 27,27 70 SK= 1:GOTO 5 100 DIM L(20,20) 110 PLOT 2,45,120,242,86,120,86,39,45,39,45,119,255 115 PLOT 15,29,19 120 PLOT 3,0,0:PRINT "0=BLANK 130 PLOT 3,0,1:PRINT "1=MONSTER 140 PLOT 3,0,2:PRINT "2=TREASURE 150 PLOT 3,0,3:PRINT "3=SCROLL 160 PLOT 3,0,4:PRINT "4=TELEPORT 170 PLOT 3,0,5:PRINT "5=AMNESIA 180 PLOT 3,0,6:PRINT "6=POISON GAS 190 PLOT 3,0,7:PRINT "7=ACID PIT 200 PLOT 3,0,8:PRINT "8=RUST MON. 210 PLOT 3,0,9:PRINT "9=ELEVATOR 220 PLOT 3,0,10:PRINT "11=TIAMAT 230 PLOT 3,0,11:PRINT "12=DAGGER 240 PLOT 3,0,12:PRINT "13=MACE 250 PLOT 3,0,13:PRINT "14=SWORD 260 PLOT 3,0,14:PRINT "15=BAST. SWORD 270 PLOT 3,0,15:PRINT "16=2 HAND SWORD 280 PLOT 3,0,16:PRINT "17=SWORD OF SHARP 290 PLOT 3,0,17:PRINT "18=HOLY SWORD 300 PLOT 3,0,18:PRINT 310 PLOT 3,0,19:PRINT "20=WALL 400 PLOT 3,46,0:PRINT "25=LEATHER ARMOR 410 PLOT 3,46,1:PRINT "26=SCALE ARMOR 420 PLOT 3,46,2:PRINT "27=CHAIN ARMOR 440 PLOT 3,46,3:PRINT "28=PLATE ARMOR 450 PLOT 3,46,4:PRINT "29=MITHIRIL ARMOR 460 PLOT 3,46,5:PRINT "30=ADAMANT. ARMOR 470 PLOT 3,46,7:PRINT "33=SMALL SHIELD 480 PLOT 3,46,8:PRINT "34=MEDIUM SHIELD 490 PLOT 3,46,9:PRINT "35=LARGE SHIELD 500 PLOT 3,46,10:PRINT "36=MITHIRIL SHIELD 510 PLOT 3,46,11:PRINT "37=ADAMANT. ARMOR 600 PLOT 3,46,14:PRINT "100=DOWN 610 PLOT 3,46,15:PRINT "101=LEFT 620 PLOT 3,46,16:PRINT "102=UP 630 PLOT 3,46,17:PRINT "103=RIGHT 700 X= 22 710 Y= 1 715 X1= 1:Y1= 1 716 PLOT 3,X+ 3,24:PRINT "POSITION (";X1;",";Y1;") " 717 PLOT 3,X,0:PRINT SPC( 21):PLOT 3,X+ X1- 1,0:PRINT " n" 718 PLOT 3,X- 1,Y1+ Y- 1:PRINT " ":PLOT 3,X- 1,Y1+ Y+ 1:PRINT " " 719 PLOT 3,X- 1,Y1+ Y:PRINT "_ 720 PLOT 14,3,46,21:PRINT " ":PLOT 3,46,21:INPUT "NUMBER ?";A 721 IF A< 0OR A> 103THEN 720 725 PLOT 15 730 IF A= 100THEN Y1= Y1+ 1:GOTO 3000 740 IF A= 101THEN X1= X1- 1:GOTO 3000 750 IF A= 102THEN Y1= Y1- 1:GOTO 3000 760 IF A= 103THEN X1= X1+ 1:GOTO 3000 770 PLOT 3,X+ X1,Y+ Y1 775 IF A= 0THEN 1650 780 ON AGOTO 800,900,1000,1100,1100,1100,1100,1100,1200,1300,1400 790 ON A- 11GOTO 1500,1500,1500,1500,1500,1500,1500,1600,1600,1600,1600,1600,1600 795 ON A- 24GOTO 1500,1500,1500,1500,1500,1500,1500,1500,1500,1500,1500,1500,1500,1500,1500,1500 796 ON A- 39GOTO 1500,1500,1500,1500,1500,1500 800 PRINT "M" 801 PRINT "" 810 GOTO 2000 900 PRINT "$":GOTO 2000 1000 PRINT "M":GOTO 2000 1100 PRINT "T":GOTO 2000 1200 PRINT "E":GOTO 2000 1300 PRINT "S":GOTO 2000 1400 PRINT "T":GOTO 2000 1500 PRINT "W":GOTO 2000 1600 PRINT " ":GOTO 2000 1650 IF A= 0THEN PRINT " ":GOTO 2000 1700 GOTO 700 2000 IF X1< 1THEN X1= 1:IF Y1< 1THEN Y1= 1 2001 L(Y1,X1)= A 3000 IF A> 99AND A< 104THEN 3002 3001 X1= X1+ 1 3002 IF X1< 1THEN X1= 1 3003 IF Y1< 1THEN Y1= 1 3010 IF X1= 21THEN X1= 1:Y1= Y1+ 1 3020 IF Y1= 21THEN 4000 3030 GOTO 716 4000 IF L= 1THEN SAVE "L.ARY;1 4010 IF L= 2THEN SAVE "L.ARY;2 4020 IF L= 3THEN SAVE "L.ARY;3 4030 IF L= 4THEN SAVE "L.ARY;4 4040 IF L= 5THEN SAVE "L.ARY;5 4050 IF L= 6THEN SAVE "L.ARY;6 4055 IF L= 7THEN SAVE "L.ARY;7 4060 IF L= 8THEN SAVE "L.ARY;8