Listing of file='LVLBLD.BAS;01' on disk='vmedia/chip_21-sector.ccvf'
5 FOR I= 1TO PEEK (33209)* PEEK (33208):X= RND (1):NEXT I 10 DIM L(20,20) 20 PLOT 12,14,3,14,0:PRINT "D U N G E O N S A N D D R A G O N S 21 PLOT 3,14,2:PRINT "R A N D O M L E V E L B U I L D E R 23 PLOT 3,0,14:PRINT "WHAT LEVELS (E.G. 3,5 WOULD BUILD LEVELS 3 THROUGH 5) ?"; 24 INPUT "";A,B 25 FOR T= ATO B 26 RESTORE 300 30 PLOT 27,4 40 IF T= 1THEN PRINT "DEL L.ARY;1 50 IF T= 2THEN PRINT "DEL L.ARY;2 60 IF T= 3THEN PRINT "DEL L.ARY;3 70 IF T= 4THEN PRINT "DEL L.ARY;4 80 IF T= 5THEN PRINT "DEL L.ARY;5 90 IF T= 6THEN PRINT "DEL L.ARY;6 95 PLOT 27,27,12,3,0,16:PRINT " 210 READ N 211 IF N= 99THEN PLOT 12,14,3,23,16:PRINT "LEVEL ";T;" COMPLETED ":GOTO 900 212 IF N< 19AND N> = 12+ TTHEN READ A,B:GOTO 210 214 IF N< 31AND N> = 25+ TTHEN READ A,B:GOTO 210 215 IF N= 9AND T= 8THEN READ A,B:GOTO 210 216 IF N< 38AND N> = 33+ 1THEN READ A,B:GOTO 210 220 IF N= 99THEN 900 230 READ A,B 240 FOR I= 1TO INT (B* RND (1)+ A) 250 X= INT (20* RND (1)+ 1):Y= INT (20* RND (1)+ 1):IF L(X,Y)= 0THEN L(X,Y)= N 255 NEXT I 260 GOTO 210 300 DATA 1,80,30,2,15,5,3,12,5,4,0,1,5,0,1,6,1,1,7,1,1,8,1,1,9,4,2,12,6,2,13,3,3,14,2,2,15,1,2 310 DATA 16,1,1,17,1,1,20,50,15,25,4,2,26,2,2,27,2,1,28,1,1,29,1,1,30,0,1,33,4,2,34,2,2 320 DATA 35,1,1,36,1,1,37,0,1 330 DATA 99 900 IF T< > 6THEN 1000 910 X= INT (20* RND (1)+ 1):Y= INT (20* RND (1)+ 1) 920 L(Y,X)= 11 1000 IF T= 1THEN SAVE "L.ARY;1 1010 IF T= 2THEN SAVE "L.ARY;2 1020 IF T= 3THEN SAVE "L.ARY;3 1030 IF T= 4THEN SAVE "L.ARY;4 1040 IF T= 5THEN SAVE "L.ARY;5 1050 IF T= 6THEN SAVE "L.ARY;6 1080 FOR I= 1TO 20:FOR J= 1TO 20:L(I,J)= 0:NEXT J:NEXT I:NEXT T