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