Watch the Dungeon Master deflect your attempts to defeat him.
PROG : 16509
D-FILE: 29510
VARS : 30303
E-LINE: 30304
STKBOT: 30304
STKEND: 30304
9999 means line number
PRINT means treat as KEYWORD P
10 REM **CREATURE**SLR/1985***
20 FOR A=0 TO 14
30 PRINT AT A,0;"
"
40 NEXT A
50 PRINT AT 15,0;" ³
·³ô³³·³ô ³ ¶³ô ó³³±ó¶³
÷± ²´ ³öó²³³ó ·³ö ³³³³ ·³³³³³
ô³³³³³³·³³³³³ô ³³³³³ ó¶³ ÷
± ²´ ³öó ·³³³³³³³³³ô³
³³³³³³³³³·³³³³³³³³³ô ÷±
²´ ³³³³³³³³ô³³³
³³³³³³³³³³³·³³³³³³³³"
60 GOSUB 1510
70 GOSUB 1820
80 PRINT AT 14,14;"¸¸¸¸"
90 LET L=SIN PI
100 PRINT AT 13,14;"¸¸¸¸";AT 14
,14;"ºººº"
110 LET L=SIN PI
120 PRINT AT 12,14;"¸¸¸¸";AT 13
,14;"±ô·²"
130 LET L=SIN PI
140 PRINT AT 11,14;"¸¸¸¸";AT 12
,14;"¶÷´ö"
150 LET L=SIN PI
160 PRINT AT 10,14;"¸¸¸¸";AT 11
,14;"÷´÷´"
170 LET L=SIN PI
180 PRINT AT 9,14;"ºººº";AT 10,
14;" ¶ö "
190 LET L=SIN PI*SIN PI*SIN PI*
SIN PI*SIN PI
200 PRINT AT 13,14;"!!!!";AT 14
,14;" "
210 LET L=SIN PI
220 PRINT AT 12,14;"!!!!";AT 13
,14;"ñ´÷ò"
230 LET L=SIN PI
240 PRINT AT 11,14;"!!!!";AT 12
,14;"ö·ô¶"
250 LET L=SIN PI
260 PRINT AT 10,14;"!!!!";AT 11
,14;"·ô·ô"
270 LET L=SIN PI
280 PRINT AT 9,14;"¹¹¹¹";AT 10,
14;" ¶ö "
290 LET L=SIN PI*SIN PI*SIN PI*
SIN PI*SIN PI
300 PRINT AT 9,14;"º¹º¹"
310 LET L=SIN PI
320 PRINT AT 9,14;"¹º¹º"
330 LET L=SIN PI
340 PRINT AT 9,14;"º º "
350 LET L=SIN PI
360 PRINT AT 9,14;" ¹ ¹"
370 LET L=SIN PI
380 PRINT AT 9,14;" º º"
390 LET L=SIN PI
400 PRINT AT 9,14;"¹ ¹ "
410 LET L=SIN PI
420 PRINT AT 9,14;" "
430 GOSUB 1850
440 REM
450 PRINT AT 11,0;" ";AT 11,2
9;" ";AT 12,29;" "
460 LET L=SIN PI*SIN PI*SIN PI
470 PRINT AT 11,0;" ÷ó´";AT 1
1,26;"÷ó´ ²³³±";AT 12,26;"²
³± "
480 LET L=SIN PI*SIN PI*SIN PI
490 PRINT AT 11,3;" ó";AT 11
,24;"ó ³";AT 12,24;
"³ "
500 LET L=SIN PI*SIN PI*SIN PI
510 PRINT AT 11,7;" ó";AT 11,
21;"ó ";AT 12,7;" ";AT 12,24;"
"
520 LET L=SIN PI*SIN PI*SIN PI
530 PRINT AT 11,10;" ÷";AT 11
,18;"´ "
540 LET L=SIN PI*SIN PI*SIN PI
550 PRINT AT 11,13;" ";AT 11,18
;" "
560 LET L=SIN PI*SIN PI*SIN PI
570 FOR A=1 TO 10
580 PRINT AT 10,14;"öö¶¶";AT 11
,14;"öö¶¶";AT 12,14;"¶¶öö";AT 13
,14;"¶¶öö"
590 LET L=SIN PI
600 PRINT AT 10,14;"¶¶öö";AT 11
,14;"¶¶öö";AT 12,14;"öö¶¶";AT 13
,14;"öö¶¶"
610 LET L=SIN PI
630 PRINT AT 10,14;"öö¶¶";AT 11
,14;"ö±²¶";AT 12,14;"¶´÷ö";AT 13
,14;"¶¶öö"
640 LET L=SIN PI*SIN PI*SIN PI
650 PRINT AT 10,14;"öö¶¶";AT 11
,14;"ö ¶";AT 12,14;"¶ ö";AT 13
,14;"¶¶öö"
660 LET L=SIN PI*SIN PI*SIN PI
670 PRINT AT 10,14;"²²±±";AT 11
,14;"´ ÷";AT 12,14;"± ²";AT 13
,14;"÷÷´´"
680 LET L=SIN PI*SIN PI*SIN PI
690 PRINT AT 10,14;" ";AT 11
,14;" ";AT 12,14;" ";AT 13
,14;" "
700 LET L=SIN PI*SIN PI*SIN PI
710 PRINT AT 9,14;"ö³³´";AT 10,
14;"µ³óõ";AT 11,14;"õ µ";AT 12,
14;"ö ò";AT 13,14;" ö õ";AT 14,
14;" ö·"
720 FOR A=1 TO 100
730 NEXT A
740 PRINT AT 0,14;"ôóó·"
750 LET L=SIN PI*SIN PI*SIN PI
760 PRINT AT 1,14;"ôóó·";AT 0,1
4;"µ¶öõ"
770 LET L=SIN PI*SIN PI*SIN PI
780 PRINT AT 2,14;"ôóó·";AT 1,1
4;"µ¶öõ";AT 0,14;"µö¶õ"
790 LET L=SIN PI*SIN PI*SIN PI
800 FOR A=0 TO 11
810 PRINT ;AT A+3,14;"ôóó·";AT
A+2,14;"µ¶öõ";AT A+1,14;"µö¶õ";
AT A,14;"ñ³³ò";AT A-1,14;" "
AND A>0
820 LET L=SIN PI*SIN PI*SIN PI
830 NEXT A
840 FOR A=1 TO 50
850 NEXT A
860 PRINT AT 11,31;" ";AT 12,31
;" ";AT 13,31;" ";AT 14,31;" "
870 LET L=SIN PI
880 PRINT AT 11,30;" ñ";AT 12,3
0;" ";AT 13,30;" ";AT 14,30;"
"
890 LET L=SIN PI
900 PRINT AT 11,29;" ñò";AT 12,
29;" ";AT 13,29;" · ";AT 14,29
;" ò÷"
910 LET L=SIN PI
920 PRINT AT 11,28;" ñò ";AT 12
,28;" ";AT 13,28;" ²± ";AT 14
,28;" ´÷ "
930 LET L=SIN PI
940 FOR A=27 TO -3 STEP -6
950 PRINT AT 11,A+1;"ñò ";AT 1
2,A;" ";AT 13,A;" ô ";AT 1
4,A;" ´ñ "
960 LET L=SIN PI
970 PRINT AT 11,A;"ñò ";AT 12,
A-1;" ";AT 13,A-1;"µõ ";
AT 14,A-1;" òñ "
980 LET L=SIN PI
990 PRINT AT 11,A-1;"ñò ";AT 1
2,A-2;" ";AT 13,A-2;" ";
AT 14,A-2;" "
1000 LET L=SIN PI
1010 PRINT AT 11,A-2;"ñò ";AT 1
2,A-3;" ";AT 13,A-3;" µõ ";
AT 14,A-3;" òñ "
1020 LET L=SIN PI
1030 IF A=3 THEN GOTO 1090
1040 PRINT AT 11,A-3;"ñò ";AT 1
2,A-4;" ";AT 13,A-4;" · ";
AT 14,A-4;" ò÷ "
1050 LET L=SIN PI
1060 PRINT AT 11,A-4;"ñò ";AT 1
2,A-5;" ";AT 13,A-5;" ²± ";
AT 14,A-5;" ´÷ "
1070 LET L=SIN PI
1080 NEXT A
1090 PRINT AT 11,0;"ñò ";AT 12,
0;" ";AT 13,0;"· ";AT 14,0;
"ò÷ "
1100 LET L=SIN PI
1110 PRINT AT 11,0;"ò ";AT 12,0
;" ";AT 13,0;"± ";AT 14,0;"÷
"
1120 LET L=SIN PI
1130 PRINT AT 11,0;" ";AT 12,0;
" ";AT 13,0;" ";AT 14,0;" "
1140 LET L=SIN PI
1150 PRINT AT 11,0;" ";AT 12,0;"
";AT 13,0;" ";AT 14,0;" "
1160 FOR A=1 TO 100
1170 NEXT A
1180 LET L=SIN PI*SIN PI
1190 PRINT AT 5,31;"¹";AT 6,31;"
º";AT 7,31;"¶";AT 8,31;"!"
1200 LET L=SIN PI*SIN PI
1210 PRINT AT 5,30;"¹¸";AT 6,30;
"º¸";AT 7,30;"¶õ";AT 8,30;"!!"
1220 LET L=SIN PI*SIN PI
1230 PRINT AT 5,29;"¹¸¸";AT 6,29
;"º¸¸";AT 7,29;"¶õµ";AT 8,29;"!!
!"
1240 LET L=SIN PI*SIN PI
1250 PRINT AT 5,28;"¹¸¸¹";AT 6,2
8;"º¸¸º";AT 7,28;"¶õµö";AT 8,28;
"!!!!"
1260 LET L=SIN PI*SIN PI
1270 FOR A=27 TO 14 STEP -1
1280 PRINT AT 5,A;"¹¸¸¹ ";AT 6,A
;"º¸¸º ";AT 7,A;"¶õµö ";AT 8,A;"
!!!! "
1290 LET L=SIN PI*SIN PI
1300 NEXT A
1310 FOR A=5 TO 11
1320 PRINT AT A+3,14;"!!!!";AT A
+2,14;"¶õµö";AT A+1,14;"º¸¸º";
AT A,14;"¹¸¸¹";AT A-1,14;" "
1330 LET L=SIN PI*SIN PI
1340 NEXT A
1360 PRINT AT 14,14;"¶õµö";AT 13
,14;"º¸¸º";AT 12,14;"¹¸¸¹";AT 11
,14;" "
1370 LET A$="**CREATURE** A GRAP
HIC IMAGERY>>"
1380 FOR A=1 TO 32
1390 LET B$=A$(A)
1400 LET B1=11-3
1410 LET A1=15-(A-1)
1420 LET C=(A1 AND ABS A1>=ABS B
1)+(B1 AND ABS B1>ABS A1)
1430 IF C=0 THEN LET C=0.1
1440 FOR F=0 TO C STEP SGN C
1450 PRINT AT 11+B1/C*-F,15+A1/C
*-F;B$;AT 11+B1/C*-(F+(-SGN C)),
15+A1/C*-(F+(-SGN C));" " AND F
<>0
1460 NEXT F
1470 NEXT A
1480 FOR A=1 TO 200
1490 NEXT A
1500 GOTO 2050
1510 PRINT AT 7,15;"²"
1520 LET L=SIN PI*SIN PI
1530 PRINT AT 6,15;"÷´";AT 7,16;
"±"
1540 LET L=SIN PI*SIN PI
1550 PRINT AT 6,15;"ñò";AT 7,15;
" "
1560 LET L=SIN PI*SIN PI
1570 PRINT AT 5,15;"óó";AT 6,14;
"õ µ";AT 7,14;"õ µ";AT 8,14;"²
³³±"
1580 LET L=SIN PI*SIN PI
1590 PRINT AT 5,14;"÷ ´";AT 6,1
4;" ";AT 7,14;" ";AT 8,14;
" "
1600 LET L=SIN PI*SIN PI*SIN PI*
SIN PI*SIN PI
1610 PRINT AT 6,15;"·ô";AT 7,15;
"òñ"
1620 LET L=SIN PI*SIN PI
1630 PRINT AT 6,15;"±²";AT 7,15;
"´÷"
1640 LET L=SIN PI*SIN PI
1650 PRINT AT 5,14;"÷·ô´";AT 6,1
4;"· ô";AT 7,14;"ò ñ";AT 8,15;
"òñ"
1660 LET L=SIN PI*SIN PI
1670 PRINT AT 5,14;"÷³³´";AT 6,1
4;"µ õ";AT 7,14;"µ õ";AT 8,14;
"òóóñ"
1680 LET L=SIN PI*SIN PI
1690 PRINT AT 6,15;"·ô";AT 7,15;
"²±"
1700 LET L=SIN PI*SIN PI
1710 PRINT AT 6,15;"¶ö";AT 7,15;
"õµ"
1720 LET L=SIN PI*SIN PI
1730 PRINT AT 5,14;"÷ô·´";AT 6,1
4;"µ¶öõ";AT 7,14;"·ñòô";AT 8,14;
"òñòñ"
1740 LET L=SIN PI*SIN PI
1750 PRINT AT 5,14;"÷=/´";AT 6,1
4;"·¶öô";AT 7,14;" ñò ";AT 8,14;
"òúúñ"
1760 LET L=SIN PI*SIN PI
1770 PRINT AT 5,14;"÷=/´";AT 6,1
4;"·¶öô";AT 7,14;"ôñò·";AT 8,14;
"ò¸¸ñ"
1780 LET L=SIN PI*SIN PI
1790 PRINT AT 5,14;"÷=/´";AT 6,1
4;"·¶öô";AT 7,14;"ôñò·";AT 8,14;
"µ¸¸õ"
1800 LET L=SIN PI*SIN PI*SIN PI*
SIN PI*SIN PI
1810 RETURN
1820 LET A$="
...I AM THE DUNGE
ON MASTER...THE CREATURE AS YOU
ARE FOND OF CALLING ME...YOU WIL
L DIE*****...
"
1830 GOSUB 2000
1840 RETURN
1850 LET L=SIN PI*SIN PI*SIN PI*
SIN PI*SIN PI*SIN PI*SIN PI
1860 PRINT AT 5,14;"÷/ ´";AT 6,1
4;"¶öô ";AT 7,14;"ñò· ";AT 8,14;
"¸¸õ "
1870 LET L=SIN PI*SIN PI
1880 PRINT AT 5,14;"÷ ´";AT 6,1
4;"öô ±";AT 7,14;"ò· ´";AT 8,14;
"¸õ "
1890 LET L=SIN PI*SIN PI
1900 PRINT AT 5,14;"÷ ´";AT 6,1
4;"ô ±²";AT 7,14;"· ´÷";AT 8,14;
"õ "
1910 LET L=SIN PI*SIN PI
1920 PRINT AT 5,14;"÷ ´";AT 6,1
4;" ±² ";AT 7,14;" ´÷ ";AT 8,14;
" "
1930 LET L=SIN PI*SIN PI*SIN PI*
SIN PI*SIN PI*SIN PI*SIN PI
1940 PRINT AT 5,14;"÷óó´";AT 6,1
4;"õ·ôµ";AT 7,14;"õòñµ";AT 8,14;
"²³³±"
1950 LET L=SIN PI*SIN PI
1960 PRINT AT 5,14;" ";AT 6,1
4;" ñò ";AT 7,14;" ";AT 8,14;
" "
1970 LET L=SIN PI*SIN PI
1980 PRINT AT 5,14;" ";AT 6,1
4;" ÷´ ";AT 7,14;" ²± ";AT 8,14;
" "
1990 LET L=SIN PI*SIN PI
1992 PRINT AT 5,14;" ";AT 6,1
4;" ";AT 7,14;" ² ";AT 8,14;
" "
1994 LET L=SIN PI*SIN PI
1996 PRINT AT 5,14;" ";AT 6,1
4;" ";AT 7,14;" ";AT 8,14;
" "
1997 LET L=SIN PI*SIN PI*SIN PI*
SIN PI*SIN PI*SIN PI*SIN PI
1998 RETURN
2000 FOR A=1 TO (LEN A$-31)
2010 PRINT AT 14,0;A$(A TO A+31)
;AT 8,15;"¹¹" AND A$(A+31)>="A";
AT 6,15;"²±" AND RND>.7
2020 PRINT AT 8,15;"!!";AT 6,15;
"¶ö"
2030 NEXT A
2040 RETURN
2050 PRINT AT 12,31;"÷";AT 13,31
;"¸";AT 14,31;"ô"
2060 LET L=SIN PI
2070 PRINT AT 12,30;"÷¹";AT 13,3
0;"¸¸";AT 14,30;"ô±"
2080 LET L=SIN PI
2090 PRINT AT 12,29;"÷¹¸";AT 13,
29;"¸¸·";AT 14,29;"ô±ô"
2100 LET L=SIN PI
2110 PRINT AT 11,31;"ñ";AT 12,28
;"÷¹¸¸";AT 13,28;"¸¸ ô";AT 14,28
;"ô±ö·"
2120 LET L=SIN PI
2130 FOR A=27 TO 14 STEP -2
2140 PRINT AT 11,A+3;"ñ!";AT 12,
A;"÷¹¸¸!";AT 13,A;"¸¸ ô!";AT 14,
A;"ô±ô¶!"
2150 LET L=SIN PI
2160 PRINT AT 11,A+2;"ñ!";AT 12,
A-1;"÷¹¸¸!";AT 13,A-1;"¸¸ ô!";
AT 14,A-1;"ô±ö·!"
2170 REM
2180 NEXT A
2190 PRINT AT 11,16;"ñ ";AT 12,1
4;" ¹¸ ";AT 13,14;"õ· ò";AT 14,1
4;"²ò³·"
2200 LET L=SIN PI
2210 PRINT AT 11,15;"õµ";AT 12,1
4;" ¸¸ ";AT 13,14;"ñ¸¸ò";AT 14,1
4;"ôô··"
2220 LET L=SIN PI
2230 PRINT AT 11,15;" !";AT 12,
14;" !";AT 13,14;"÷¸´!";AT 14,
14;"ô³·!"
2240 LET L=SIN PI
2250 PRINT AT 11,15;" !";AT 12,
14;" !!";AT 13,14;"ñ·!!";AT 14,
14;"ô·!!"
2260 LET L=SIN PI
2270 PRINT AT 11,15;" !";AT 12,
14;" !!";AT 13,14;" !!!";AT 14,
14;" !!!"
2280 LET L=SIN PI
2290 PRINT AT 11,15;" !";AT 12,
14;" !!";AT 13,14;" !!!";AT 14,
14;"!!!!"
2300 FOR A=1 TO 50
2310 NEXT A
2320 GOSUB 1510
2330 LET A$=" !!!!!
!!!!!!!!!!!!! ...SEE,NO ONE CAN
STOP THE CREATURE,NOT EVEN YOUR
PITIFUL UFO...YOUR MONSTERS WER
E ALSO EASY** !!!!!
!!!!!!!!!!!!!"
2340 GOSUB 2000
2350 FOR A=1 TO 50
2360 NEXT A
2370 PRINT AT 9,14;"····"
2380 LET L=SIN PI*SIN PI*SIN PI
2390 PRINT AT 9,14;"³ùù³";AT 10,
14;"ôôôô"
2400 LET L=SIN PI*SIN PI*SIN PI
2410 PRINT AT 9,14;"!!!!";AT 10,
14;"³ùù³";AT 11,14;"····"
2420 LET L=SIN PI*SIN PI*SIN PI
2430 PRINT AT 9,14;"÷><´";AT 10,
14;"!!!!";AT 11,14;"³ùù³";AT 12,
14;"ôôôô"
2432 LET L=SIN PI*SIN PI*SIN PI
2434 PRINT AT 9,14;" ";AT 10,
14;"÷<>´";AT 11,14;"!!!!";AT 12,
14;"³ùù³";AT 13,14;"····"
2436 LET L=SIN PI*SIN PI*SIN PI
2438 PRINT AT 10,14;" ";AT 11
,14;"÷><´";AT 12,14;"!!!!";AT 13
,14;"³ùù³";AT 14,14;"ôôôô"
2440 LET L=SIN PI*SIN PI*SIN PI
2450 FOR A=13 TO 27 STEP 2
2460 PRINT AT 11,A;" ÷<>´";AT 12
,A;" !!!!";AT 13,A;" ³ùù³";AT 14
,A;" ····"
2470 LET L=SIN PI*SIN PI*SIN PI
2480 IF A<27 THEN PRINT AT 11,A+
1;" ÷><´";AT 12,A+1;" !!!!";AT 1
3,A+1;" ³ùù³";AT 14,A+1;" ôôôô"
2490 LET L=SIN PI*SIN PI
2500 NEXT A
2510 PRINT AT 11,28;" ÷<>";AT 12
,28;" !!!";AT 13,28;" ³ùù";AT 14
,28;" ···"
2520 LET L=SIN PI*SIN PI*SIN PI
2530 PRINT AT 11,29;" ÷>";AT 12,
29;" !!";AT 13,29;" ³ù";AT 14,29
;" ôô"
2540 LET L=SIN PI*SIN PI*SIN PI
2550 PRINT AT 11,30;" ÷";AT 12,3
0;" !";AT 13,30;" ³";AT 14,30;"
·"
2560 LET L=SIN PI*SIN PI*SIN PI
2570 PRINT AT 11,31;" ";AT 12,31
;" ";AT 13,31;" ";AT 14,31;" "
2580 FOR A=1 TO 50
2590 NEXT A
2600 LET A$="
...I"VE WON...MY
GAMING PROGRAM HAS ENDED...TO SE
E MORE,WAIT AROUND...THE CREATUR
E(D.M.)***...
"
2610 GOSUB 2000
2620 FOR A=1 TO 50
2630 NEXT A
2640 PRINT AT 14,0;"PROGRAM BY S
TEVEN L. REID (SLR) "
2650 GOSUB 1850
2660 FOR A=1 TO 100
2670 NEXT A
2680 FOR A=0 TO 21 STEP 2
2690 PRINT AT A,0;"úú!ú!ú!ú!úú!!
!!úú!!!!úú!ú!ú!ú!úú";AT A-1,0;"
"
AND A>0
2700 LET L=SIN PI
2710 PRINT AT A+1,0;"!!ú!ú!ú!ú!!
úúúú!!úúúú!!ú!ú!ú!ú!!";AT A,0;"
"
2720 LET L=SIN PI
2730 NEXT A
2740 PRINT AT 21,0;"
"
2750 FOR A=1 TO 50
2760 NEXT A
2770 RUN
2780 CLEAR
2790 SAVE "CR"
2800 RUN