home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
C64Adventure
/
QUEST-FOR-POWER
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
22KB
|
654 lines
0 GOTO100
1 STEPdGOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)NEW(CMD(null)CMD(null)`FF
2 STEPcGOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)GOSUB(null)`F
3 STEPgGOSUBGOSUBFGOSUBnGOSUBDEFGOSUBCOSGOSUB(null)GOSUBGOSUB6GOSUB^GOSUBDIMGOSUB^`F
4 STEPeGOSUB*GOSUBRGOSUBzGOSUBNEWGOSUBMID$GOSUB(null)GOSUBGOSUBBGOSUBjGOSUBWAITGOSUBSQR`F
5 STEPNGOSUBGOSUB(null)GOSUBSGNSTEPMGOSUB(null)GOSUBGOSUB4`F
6 STEPMGOSUBTOGOSUB(null)GOSUB(null)STEPNGOSUB$GOSUB(null)GOSUB(null)`FFFFFF
7 STEPdGOSUB(null)GOSUB(null)GOSUB(null)STEPcGOSUB(null)GOSUB(null)GOSUB(null)`FFF
8 STEPdGOSUBGOSUBGOSUBSTEPcGOSUB(null)GOSUB(null)GOSUB(null)`FFF
9 STEPdGOSUBrGOSUBsGOSUBtGOSUBuGOSUBvSTEPcGOSUBbGOSUBcGOSUBdGOSUBeGOSUBf`FFFFF
10 STEPeGOSUBOPENGOSUBCHR$GOSUB(null)GOSUBGOSUB?`FF
11 STEPgGOSUBPRINTGOSUBATNGOSUB(null)GOSUBGOSUB9`FF
12 STEPNGOSUBwGOSUBPGOSUB)STEPMGOSUBgGOSUBSTOPGOSUBPOS`FF
13 STEPMGOSUBGOSUBHGOSUBqSTEPNGOSUBANDGOSUBLETGOSUBa`FF
14 STEPdGOSUBoGOSUBpGOSUBqSTEPcGOSUB_GOSUB`GOSUBa`FF
15 STEPdGOSUBwGOSUBxGOSUBySTEPcGOSUBgGOSUBhGOSUBi`FF
16 STEPdGOSUBPRINTGOSUBCONTGOSUBLISTGOSUBCLRGOSUBCMDGOSUBSYSGOSUBOPENSTEPgGOSUBCHR$GOSUB(null)GOSUBGOSUB?GOSUBgGOSUBREMGOSUBUSRSTEPeGOSUBATNGOSUB(null)GOSUBGOSUB9GOSUBaGOSUBGOTOGOSUB>`FFF
17 STEPMGOSUBCGOSUBlSTEPgGOSUBSAVEGOSUBLOGGOSUB(null)GOSUBGOSUB4GOSUB\GOSUBINPUT#GOSUB*GOSUB(null)GOSUB(null)`FFFF
18 STEPNGOSUBUGOSUB|STEPeGOSUBTOGOSUB(null)GOSUB(null)GOSUBGOSUBDGOSUBlGOSUBSAVEGOSUBLOGGOSUB(null)GOSUB`FFFFFFFF
30 FORI=2692TO2750:PRINTI;PEEK(I):INPUTZ:POKEI,Z:NEXT
31 END
100 REM QUEST FOR POWER
101 A=RND(-TI)
102 POKE53280,0:POKE53281,0:GOTO11000
103 PRINT""
104 DIMP5%(10,2),T5%(10,2),C5%(10,2)
105 DIMSS%(10,10,10),SU%(10,2),SD%(10,2)
106 FORJ=1TO10:FORI=1TO10:FORZ=1TO10:READSS%(Z,I,J):NEXT:NEXT:NEXT
107 DIMIN$(20),IT(20):IN$(1)="NORMAL SWORD":IT(1)=-1
108 DIMMN$(10),M1(10),M2(10),M3(10),M4(10),M5(10),M6(10),M7(10),M8(20)
109 FORI=1TO10:READSU%(I,1),SU%(I,2),SD%(I,1),SD%(I,2):NEXT
110 DEF FNA(Q)=INT(6*RND(1))+INT(6*RND(1))+INT(6*RND(1))+3
111 DEF FNB(Q)=(Q<8)*-1000*2^Q+(Q>7)*250000*(7-Q)
112 DEF FNC(Q)=-4*(Q=0)-(Q>4)*(Q-4)-Q*((Q>0)AND(Q<5))
113 FORI=1TO10:READP5%(I,1),P5%(I,2):NEXT
114 FORI=1TO10:READC5%(I,1),C5%(I,2):NEXT
115 FORI=1TO10:READT5%(I,1),T5%(I,2):NEXT
116 PRINT"[147]":FORI=2TO20:READIN$(I):NEXT
117 FORI=1TO10:READMN$(I),M1(I),M2(I),M3(I),M4(I),M5(I),M6(I),M7(I):NEXT
120 B0=2358:B1=2403:B2=2428:B3=2453:B4=2483:B5=2513:B6=2543
121 A0=2149:A1=2262:A2=2296:A3=2191:A4=2233:A5=2327:A6=2701:A7=2651:A8=2062
122 A9=2107
150 PRINT"DO YOU WISH TO USE A CHARACTER THAT"
151 PRINT"HAS ALREADY BEEN CREATED? (Y/N)
152 [161]X$:[139]X$[178]""[167]152
153 [153]"LOAD"
154 [139]X$[178]"Y"[167][137]3200
189 LE%[178]1
190 [153]:[153]"TYPE 'A' TO ACCEPT..."
191 [153]"ANYTHING ELSE TO REROLL."
192 [153]:[153]
193 [153]"":[153]:[153]:[153]:[153]:[153]
194 SG[178][165]A(1):IN[178][165]A(1):PI[178][165]A(1):AG[178][165]A(1):EN[178][165]A(1)
195 [153]" STRENGTH= CMDCMDCMD";SG
196 [153]" INTELLIGENCE= CMDCMDCMD";IN
197 [153]" PIETY= CMDCMDCMD";PI
198 [153]" AGILITY= CMDCMDCMD";AG
199 [153]" ENDURANCE= CMDCMDCMD";EN
200 [161]X$:[139]X$[178]""[167]200
201 Q9[178]0
209 [153]"":[153]:[153]:
210 [139]X$[179][177]"A"[167]193
220 [153]"LOAD":[153]:[153]"FINE CHARACTER!"
230 [133]"NOW...PLEASE CHOOSE A NAME";NA$
231 EX[178]0:G9[178]0
232 [129]I[178]2[164]20:IT(I)[178]0:[130]
233 AC[178]0:[139]AG[177]14[167]AC[178]AC[170]AG[171]14
234 LT[178]0:PO[178]0:LV[178]0
235 HI[178](EN[177]14)[172](14[171]EN)[170][181](10[172][187](1))[170]1[171](EN[179]7)[172](EN[171]7):[139]HI[179]1[167]HI[178]1
236 GD[178][165]A(Q)[172]10
237 CH[178]HI
238 D5[178]0:[139]SG[177]16[167]D5[178]SG[171]16
239 DA[178][171](SG[177]15)[171](SG[177]17)[170](SG[179]6)
240 [153]:[153]"OK, ";NA$;" YOU HAVE:"
241 [139]SG[179]8[167]D5[178][181](SG[173]2)[171]4
250 [153]" A NORMAL SWORD"
260 [153]" ";HI;" HITS"
270 [153]" AND ";GD;" GOLD"
280 [153]:[153]:[153]" HIT ANY KEY TO START..."
290 [161]X$:[139]X$[178]""[167]290
291 D4[178]8:D3[178]DA:D2[178]0
299 [137]1000
1000 [153]"LOAD"
1001 D7[178]LE%:D8[178]D7[172]2:[139]IN[177]15[167]D7[178]D7[170]IN[171]15
1002 [139]PI[177]15[167]D8[178]D8[170]PI[171]15
1003 [139]PO[178][171]1[167]PO[178]0:AC[178]AC[171]1
1004 LV[178]0:[139]IT(7)[178][171]1[167]LV[178][171]1
1005 IT(17)[178]0:IT(18)[178]0:IT(19)[178]0
1006 [139]IT(10)[178][171]1[167]D7[178]D7[172]2
1007 [139]IT(11)[178][171]1[167]D8[178]D8[172]2
1008 CH[178]HI:G9[178]GD[170]G9:GD[178]0
1009 [139]F8[178][171]1[167]F8[178]0:LT[178]LT[171]50:[139]LT[179]0[167]LT[178]0
1010 [153]" WELCOME TO THE CASTLE TARBOR "
1020 [153]"WAIT"
1030 [153]:[153]:[153]:[153]:[153]" 1) ENTER THE DUNGEON"
1040 [153]" 2) MAKE LEVEL"
1050 [153]" 3) BUY ITEMS"
1060 [153]" 4) EXAMINE CHARACTER"
1090 [153]" 5) DONATE TO CHARITY"
1095 [153]" 6) SAVE CHARACTER ON DISK"
1100 [161]X$:[139]X$[178]""[167]1100
1101 [139][198](X$)[179]49[167]1100
1110 [145] [198](X$)[171]48 [137] 2000,1200,1300,1400,1700,3300
1120 [137]1100
1200 [153]
1201 [139]LE%[178]126[167][153]" YOU HAVE REACHED MAX LEVELONON":[137]1100
1202 Q1[178][165]B(LE%):[139]EX[177][178]Q1[167]1250
1205 [153]" YOU NEED";Q1;"EXPERIENCE POINTS "
1210 [153]" TO MAKE LEVEL";LE%[170]1;"ONONON":[137]1100
1250 LE%[178]LE%[170]1:R1[178][181]([187](1)[172]10[170]1)
1251 R1[178](EN[177]14)[172](14[171]EN)[171](EN[179]7)[172](EN[171]7)[170]R1
1252 HI[178]HI[170]R1:CH[178]CH[170]R1
1290 [137]1000
1300 [153]"LOAD YE OLDE MAGIC SHOPWAIT"
1310 [153]""
1319 [153]" 1)TORCHES 10 EACH"
1320 [153]" 2)MAGIC SWORD 100,000"
1321 [137]1330
1322 [153]"LOADHOW MANY TORCHES DO YOU WANT?"
1323 [153]"(EACH ONE GIVES 15 MOVES OF LIGHT)":A[178]0
1324 [133]A:A[178][181](A):[139]A[179]1[167]1000
1325 [139]A[172]10[177]G9[167]1369
1326 LT[178]LT[170]15[172]A:G9[178]G9[171]10[172]A:[137]1000
1330 [153]" 3)MAGIC SHIELD 100,000"
1340 [153]" 4)MAGIC HELMET 100,000"
1350 [153]" 5)MAGIC ARMOR 150,000"
1360 [153]" 6)MAGIC ROBE 150,000"
1361 [153]" 7)MAGIC WAND 200,000"
1362 [153]" 8)MAGIC ROD 200,000"
1363 [153]" 9)MAGIC BOOTS 200,000"
1364 [153]" 10)MAGIC GLOVES 200,000"
1365 [153]" 11)MAGIC BAG 250,000"
1366 [153]" WHICH ITEM DO YOU WISH TO BUY";:[133]A
1367 [139]A[179]1[176]A[177]11[167]1000
1368 [145]A[137]1322,1370,1373,1376,1379,1382,1385,1388,1391,1394,1397
1369 [153]" NOT ENOUGH MONEY!":[129]I[178]1[164]500:[130]:[137]1000
1370 [139]G9[179]100000[167]1369
1371 [139]IT(2)[178]0[167]IT(2)[178][171]1:[141]6520:G9[178]G9[171]100000
1372 [137]1000
1373 [139]G9[179]100000[167]1369
1374 [139]IT(3)[178]0[167]IT(3)[178][171]1:[141]6530:G9[178]G9[171]100000
1375 [137]1000
1376 [139]G9[179]100000[167]1369
1377 [139]IT(4)[178]0[167]IT(4)[178][171]1:[141]6540:G9[178]G9[171]100000
1378 [137]1000
1379 [139]G9[179]150000[167]1369
1380 [139]IT(5)[178]0[167]IT(5)[178][171]1:[141]6550:G9[178]G9[171]150000
1381 [137]1000
1382 [139]G9[179]150000[167]1369
1383 [139]IT(6)[178]0[167]IT(6)[178][171]1:[141]6560:G9[178]G9[171]150000
1384 [137]1000
1385 [139]G9[179]200000[167]1369
1386 [139]IT(10)[178]0[167]IT(10)[178][171]1:[141]6600:G9[178]G9[171]200000
1387 [137]1000
1388 [139]G9[179]200000[167]1369
1389 [139]IT(11)[178]0[167]IT(11)[178][171]1:[141]6610:G9[178]G9[171]200000
1390 [137]1000
1391 [139]G9[179]200000[167]1369
1392 [139]IT(14)[178]0[167]IT(14)[178][171]1:[141]6640:G9[178]G9[171]200000
1393 [137]1000
1394 [139]G9[179]200000[167]1369
1395 [139]IT(16)[178]0[167]IT(16)[178][171]1:[141]6660:G9[178]G9[171]200000
1396 [137]1000
1397 [139]G9[179]250000[167]1369
1398 [139]IT(20)[178]0[167]IT(20)[178][171]1:[141]6700:G9[178]G9[171]250000
1399 [137]1000
1400 [153]"LOAD":[141]3000:[153]"PRESS ANY KEY WHEN DONE..."
1405 [153]"YOU HAVE";G9;"GOLD":[153]"IN THE BANK"
1410 [161]X$:[139]X$[178]""[167]1410
1420 [137]1000
1700 [153]"LOADHOW MUCH DO YOU WISH TO DONATE";:[133]A:A[178][181](A)
1710 [139]A[179]0[176]A[177]G9[167]1000
1720 G9[178]G9[171]A:EX[178]EX[170]A
1730 [137]1000
2000 X%[178]SU%(1,1):Y%[178]SU%(1,2):FA%[178]1:LL%[178]1
2001 XM%[178]0:YM%[178][171]1
2010 [141]2200
2015 [139]X%[178]SU%(LL%,1)[175]Y%[178]SU%(LL%,2)[167][153]"STAIRWAY GOING UP"
2016 [139]X%[178]SD%(LL%,1)[175]Y%[178]SD%(LL%,2)[167][153]"STAIRWAY GOING DOWN"
2020 [161]X$
2021 [139][187](1)[172]1000[177]999[167]2400
2022 [139]X$[178]""[167]2020
2025 LT[178]LT[171]1:[139]LT[179]0[167]LT[178]0
2030 [139][198](X$)[178]13[167]2100
2040 [139]X$[178]""[167]FA%[178][165]C(FA%[170]1):[137]2070
2045 [139][198](X$)[178]141[175][202](Z$,FA%[170]1,1)[178]"3"[167]X%[178]X%[170]XM%:Y%[178]Y%[170]YM%:[137]2096
2050 [139]X$[178]""[167]FA%[178][165]C(FA%[171]1):[137]2070
2054 [139]X$[178]"H"[167]5100
2055 [139]X$[178]"T"[167]2600
2063 [139]X$[178]"D"[167][141]3000
2064 [139]X$[178]"S"[167]5000
2065 [137]2020
2070 XM%[178](FA%[178]4)[171](FA%[178]2):YM%[178](FA%[178]1)[171](FA%[178]3)
2095 [141]2200:[137]2015
2096 [141]2200:[137]3100
2097 [139][187](1)[179].2[167]2400
2098 [137]2015
2100 W$[178][202](Z$,FA%[170]1,1)
2101 [139]W$[178]"1"[167]X%[178]X%[170]XM%:Y%[178]Y%[170]YM%:[137]2096
2110 [153]"";[163]8);
2111 [139]W$[178]"2"[167][153]"**WALL!**":[137]2020
2112 [153]"**DOOR!**":[137]2020
2200 [153]"LOAD":Z$[178][196](SS%(X%,Y%,LL%))
2201 [139]LT[179][178]0[167][142]
2202 [158](828)
2209 W$[178][202](Z$,FA%[170]1,1)
2210 [139]W$[179][177]"1"[167][158](A8):[158](A9):[158](A0):[158](A3):[137]2299
2220 Z1$[178][196](SS%(X%[170]XM%,Y%[170]YM%,LL%))
2230 [139][202](Z1$,FA%[170]1,1)[179][177]"1"[167][158](B0):[158](B1):[158](B2)
2232 [139][202](Z1$,FA%[170]1,1)[178]"3"[167][141]2820
2240 [139][202](Z1$,[165]C(FA%[171]1)[170]1,1)[179][177]"1"[167][158](B2):[158](B4):[137]2248
2244 Z2$[178][196](SS%(X%[170]YM%[170]XM%,Y%[171]XM%[170]YM%,LL%))
2245 [139][202](Z2$,FA%[170]1,1)[179][177]"1"[167][158](B5):[158](B2)
2246 [137]2249
2248 [139][202](Z1$,[165]C(FA%[171]1)[170]1,1)[178]"3"[167][141]2800
2249 [139][202](Z1$,[165]C(FA%[170]1)[170]1,1)[178]"1"[167]2254
2250 [158](B1):[158](B3):[139][202](Z1$,[165]C(FA%[170]1)[170]1,1)[178]"3"[167][141]2810
2251 [137]2300
2254 Z2$[178][196](SS%(X%[171]YM%[170]XM%,Y%[170]XM%[170]YM%,LL%))
2255 [139][202](Z2$,FA%[170]1,1)[179][177]"1"[167][158](B6):[158](B1):[137]2300
2299 [139]W$[178]"3"[167][158](2573)
2300 W$[178][202](Z$,[165]C(FA%[171]1)[170]1,1)
2301 [139]W$[179][177]"1"[167][158](A0):[158](A1):[137]2309
2304 ZZ$[178][196](SS%(X%[170]YM%,Y%[171]XM%,LL%))
2305 [139][202](ZZ$,FA%[170]1,1)[179][177]"1"[167][158](A2):[158](A0)
2309 [139]W$[178]"3"[167][158](A7)
2310 W$[178][202](Z$,[165]C(FA%[170]1)[170]1,1)
2311 [139]W$[179][177]"1"[167][158](A3):[158](A4):[137]2319
2314 ZZ$[178][196](SS%(X%[171]YM%,Y%[170]XM%,LL%))
2315 [139][202](ZZ$,FA%[170]1,1)[179][177]"1"[167][158](A5):[158](A3)
2319 [139]W$[178]"3"[167][158](A6)
2320 [142]
2400 NO[178][181]([187](1)[172]10[170]1):[139](LL%[178]10)[175]([181]([187](1)[172]20)[170]1[178]15)[167]2440
2405 MN$[178]MN$(NO):M1[178][181]([187](1)[172]M1(NO))[170]1:M2[178]M2(NO):M3[178]M3(NO):M4[178]M4(NO):M5[178]M5(NO)
2406 M6[178]M6(NO):M7[178]M7(NO)
2407 [129]I[178]1[164]M1:M8(I)[178]M3[172]LL%:[130]
2408 [141]5200
2410 [153]" YOU HAVE ENCOUNTERED"
2412 IS$[178]"":[139]M1[177]1[167]IS$[178]"S"
2413 [153]" ";M1;"CMD ";MN$;IS$;" "
2415 [129]I[178]1[164]300:[130]:[153]" OPTIONS (F,S,H,R)"
2420 [161]X$:[139]X$[178]""[167]2420
2421 [139]X$[178]"F"[167]2500
2422 [139]X$[178]"S"[167]2700
2423 [139]X$[178]"H"[167]2900
2424 [139]X$[178]"R"[167]2980
2425 [139]X$[178]"D"[167][141]3000:[153]""
2435 [137]2420
2440 MN$[178]"TARBOR":M1[178]1:M2[178]1:M3[178]20:M4[178]10:M5[178]95:M6[178]50:M7[178]5:M8(1)[178]200:[137]2408
2500 R[178][181]([187](1)[172]20)[170]1:[139]R[178]20[167]2510
2501 [139]R[171]M7[170]D5[177][178]D6[167]2510
2504 [153]"ON YOU MISSED ":[129]J[178]1[164]400:[130]
2505 [137]4000
2510 R[178][181]([187](1)[172]D4[170]1)[172]LE%[170]D3
2515 [139]R[177][178]M8(M1)[167]2550
2520 EX[178]EX[170]10[172]R:M8(M1)[178]M8(M1)[171]R
2530 [153]"ON YOU HIT FOR";R;"CMD ":EX[178]EX[170]R:[129]J[178]1[164]400:[130]
2540 [137]4000
2550 [153]"ON YOU KILLED ONE ":EX[178]M8(M1)[172]10[170]EX:M1[178]M1[171]1:[129]J[178]1[164]400:[130]
2555 [139]M1[178]0[167][141]5200:[137]6000
2560 [153]" YOU HAVE ENCOUNTERED"
2562 IS$[178]"":[139]M1[177]1[167]IS$[178]"S"
2563 [153]" ";M1;"CMD ";MN$;IS$;" ":[153]
2564 [137]4000
2600 [139]X%[178]SU%(LL%,1)[175]Y%[178]SU%(LL%,2)[167]LL%[178]LL%[171]1:A$[178]"UP":[137]2650
2610 [139]X%[178]SD%(LL%,1)[175]Y%[178]SD%(LL%,2)[167]LL%[178]LL%[170]1:A$[178]"DOWN":[137]2650
2620 [137]2020
2650 [153]"LOADGOING ";A$;"..."
2655 [139]LL%[178]0[167]1000
2660 [129]I[178]1[164]1000:[130]:[137]2010
2700 [141]5200
2701 [139]D7[178]0[167][153]"NO SPELL POINTS LEFT ":[129]I[178]1[164]400:[130]:[137]2790
2710 [153]"WHICH SPELL?"
2720 [153]"1)SLEEP 2)BLAST"
2725 [153]"3)FIRE 4)LIGHTNING"
2726 [153]"5)DESTRUCT 6)WRATH"
2730 [161]X$:[139]X$[178]""[167]2730
2731 [139]X$[179]"1"[176]X$[177]"6"[167]2790
2732 [145][198](X$)[171]48[137]2735,2740,2750,2760,2770,2780
2735 D7[178]D7[171]1:[139]LE%[179]LL%[172]LL%[167]2788
2736 R[178][181]([187](1)[172]100)[170]1:[139]R[179]M5[167]2788
2737 R[178][181]([187](1)[172]5)[170]2:[139]R[177]M1[167]R[178]M1
2738 [141]5200:[153]"YOU SLEPT";R:M1[178]M1[171]R:EX[178]EX[170]10[172]R[172]M3:[129]I[178]1[164]300:[130]:[141]5200
2739 [137]2790
2740 [141]5200:D7[178]D7[171]2:[139]D7[179]0[167]D7[178]D7[170]2:[137]2789
2741 R[178][181]([187](1)[172]100)[170]1:[139]R[179]M5[167]2788
2742 R[178][181]([187](1)[172]6[170]1)[172]LE%:[139]R[177]M8(M1)[167]2746
2743 EX[178]EX[170]10[172]R:M8(M1)[178]M8(M1)[171]R
2744 [153]" YOU HIT FOR";R;"CMD "
2745 [137]2747
2746 [153]" YOU KILLED ONE ":EX[178]M8(M1)[172]10[170]EX:M1[178]M1[171]1
2747 [129]I[178]1[164]400:[130]:[137]2790
2750 [141]5200:D7[178]D7[171]3:[139]D7[179]0[167]D7[178]D7[170]3:[137]2789
2751 R[178][181]([187](1)[172]100)[170]1:[139]R[179]M5[167]2788
2752 A[178]M1:[129]I[178]1[164]A:[141]5200:R[178][181]([187](1)[172]8[170]1)[172]LE%:[139]R[177]M8(I)[167]2756
2753 EX[178]EX[170]10[172]R:M8(I)[178]M8(I)[171]R
2754 [153]" YOU HIT FOR";R;"CMD "
2755 [137]2757
2756 [153]" YOU KILLED ONE ":EX[178]M8(I)[172]10[170]EX:M1[178]M1[171]1
2757 [129]J[178]1[164]400:[130]:[130]:[137]2790
2760 [141]5200:D7[178]D7[171]4:[139]D7[179]0[167]D7[178]D7[170]4:[137]2789
2761 R[178][181]([187](1)[172]100)[170]1:[139]R[179]M5[167]2788
2762 R[178][181]([187](1)[172]12[170]1)[172]LE%:[139]R[177]M8(M1)[167]2766
2763 EX[178]EX[170]10[172]R:M8(M1)[178]M8(M1)[171]R
2764 [153]" YOU HIT FOR";R;"CMD "
2765 [137]2767
2766 [153]" YOU KILLED ONE ":EX[178]M8(M1)[172]10[170]EX:M1[178]M1[171]1
2767 [129]I[178]1[164]400:[130]:[137]2790
2770 [141]5200:D7[178]D7[171]5:[139]D7[179]0[167]D7[178]D7[170]5:[137]2789
2771 R[178][181]([187](1)[172]100)[170]1:[139]R[179]M5[167]2788
2772 R[178][181]([187](1)[172]20[170]1)[172]LE%:[139]R[177]M8(M1)[167]2776
2773 EX[178]EX[170]10[172]R:M8(M1)[178]M8(M1)[171]R
2774 [153]" YOU HIT FOR";R;"CMD "
2775 [137]2777
2776 [153]" YOU KILLED ONE ":EX[178]M8(M1)[172]10[170]EX:M1[178]M1[171]1
2777 [129]I[178]1[164]400:[130]:[137]2790
2780 [141]5200:D7[178]D7[171]6:[139]D7[179]0[167]D7[178]D7[170]6:[137]2789
2781 R[178][181]([187](1)[172]100)[170]1:[139]R[179]M5[167]2788
2782 A[178]M1:[129]I[178]1[164]A:[141]5200:R[178][181]([187](1)[172]15[170]1)[172]LE%:[139]R[177]M8(I)[167]2786
2783 EX[178]EX[170]10[172]R:M8(I)[178]M8(I)[171]R
2784 [153]" YOU HIT FOR";R;"CMD "
2785 [137]2787
2786 [153]" YOU KILLED ONE ":EX[178]M8(I)[172]10[170]EX:M1[178]M1[171]1
2787 [129]J[178]1[164]400:[130]:[130]:[137]2790
2788 [141]5200:[153]"SPELL HAS NO EFFECT":[129]I[178]1[164]400:[130]:[137]2790
2789 [141]5200:[153]"NOT ENOUGH SPELLS LEFT":[129]I[178]1[164]400:[130]
2790 [141]5200:[139]M1[179]1[167]6000
2791 [153]" YOU HAVE ENCOUNTERED"
2792 IS$[178]"":[139]M1[177]1[167]IS$[178]"S"
2793 [153]" ";M1;"CMD ";MN$;IS$;" ":[153]
2794 [137]4000
2800 [151]1471,106:[151]1472,77:[151]1511,106:[151]1512,106:[151]1551,106:[151]1552,106
2801 [151]1591,106:[151]1592,106:[151]1631,106:[151]1632,106:[151]1671,106
2802 [142]
2810 [151]1480,78:[151]1481,116:[151]1520,116:[151]1521,116:[151]1560,116:[151]1561,116
2811 [151]1600,116:[151]1601,116:[151]1640,116:[151]1641,116:[151]1681,116
2812 [142]
2820 [151]1515,112:[151]1516,64:[151]1517,110:[151]1555,66:[151]1557,66:[151]1595,66
2821 [151]1597,66:[142]
2900 [153]"ON ";
2901 [139]D8[178]0[167][153]"NO HEALS LEFT ":[129]I[178]1[164]300:[130]:[137]4000
2905 D8[178]D8[171]1:A[178][181]([187](1)[172]8)[170]1:CH[178]CH[170]A
2910 [139]CH[177]HI[167]CH[178]HI:[153]"HEALED! ":[129]I[178]1[164]300:[130]:[137]4000
2920 [153]"YOU HEALED";A;"CMD "
2921 [129]I[178]1[164]300:[130]
2925 [137]4000
2980 GD[178]0:R[178][181]([187](1)[172]100)[170]1:[139]R[177][178]M6[167]2990
2981 [153]"ON DIDN'T MAKE IT ":[129]I[178]1[164]300:[130]:[137]4000
2990 [153]"ON YOU MADE IT ":[129]I[178]1[164]350:[130]:[141]5200:[137]2020
3000 [153]""
3001 [153]NA$;" LEVEL";LE%;" DE:";AC
3002 [153]"STR:";SG;[163]9);"AGI:";AG;[163]23);"MAGIC ";D7;"CMD/";D8
3003 [153]"INT:";IN;[163]9);"END:";EN;[163]23);"EXP ";EX
3004 [153]"PIE:";PI;[163]9);"HITS";CH;"CMD/";HI;"CMD ";[163]23);"GOLD";GD;"CMD ";
3080 [153]""
3085 [141]9500
3099 [142]
3100 [139]X%[178]P5%(LL%,1)[175]Y%[178]P5%(LL%,2)[167]3110
3101 [139]X%[178]C5%(LL%,1)[175]Y%[178]C5%(LL%,2)[167]3160
3102 [139]X%[178]T5%(LL%,1)[175]Y%[178]T5%(LL%,2)[167]3180
3105 [137]2097
3110 [153]"**PIT**":W6[178][181]([187](0)[172]6)[170]1:W6[178]W6[172]LL%
3115 [139]LV[178][171]1[167][153]"HOVERING":[137]2015
3120 [153]W6;"POINTS OF DAMAGE"
3121 CH[178]CH[171]W6:[139]CH[179]1[167][137]9000
3125 [137]2015
3160 [139]LV[178][171]1[167]3165
3161 [153]"**CHUTE**":LL%[178]LL%[170]3:[129]I[178]1[164]600:[130]:[137]2660
3165 [153]"YOU ARE HOVERING OVER":[153]"A CHUTE"
3166 [153]"TAKE IT (Y/N)?"
3167 [161]X$:[139]X$[178]""[167]3167
3168 [141]5200:[139]X$[178]"Y"[167][141]5200:[137]3161
3170 [137]2015
3180 X%[178][181]([187](0)[172]10)[170]1:Y%[178][181]([187](0)[172]10)[170]1
3181 [137]2095
3200 [153]"LOADOK, NOW PUT THE DISKETTE CONTAINING"
3201 [153]"THE CHARACTER RECORDS IN THE DRIVE"
3202 [153]"AND HIT RETURN AFTER YOU'RE DONE"
3203 [161]X$:[139]X$[178]""[167]3203
3204 [139][198](X$)[179][177]13[167]3203
3205 [153]"TYPE IN THE NAME OF THE CHARACTER":[133]A$
3206 [159]2,8,2,"0:"[170]A$[170]",S,R"
3207 [132]2,NA$:[139]ST[178]66[167][160]2:[137]3250
3208 [132]2,LE%
3209 [132]2,SG:[132]2,IN
3210 [132]2,PI
3211 [132]2,AG
3212 [132]2,EN
3213 [132]2,HI
3214 [132]2,CH:[132]2,Q9
3215 [132]2,GD:[132]2,LT
3216 [132]2,EX:[132]2,G9
3217 [132]2,AC:[132]2,D2:[132]2,D3:[132]2,D4:[132]2,D5
3218 [129]I[178]1[164]20:[132]2,IT(I):[130]
3228 [160]2
3229 [137]1000
3250 [153]"LOADSORRY...THAT CHARACTER IS NOT"
3255 [153]"AVAILABLE.":[153]:[153]"PRESS ANY KEY TO CONTINUE."
3260 [161]X$:[139]X$[178]""[167]3260
3265 [153]"LOAD"
3270 [137]150
3300 [153]"LOADNOW, PLACE A FORMATTED DISKETTE"
3301 [153]"INTO THE DRIVE & HIT RETURN"
3302 [161]X$:[139]X$[178]""[167]3302
3303 [139][198](X$)[179][177]13[167]3302
3304 [159]2,8,2,"@0:"[170]NA$[170]",S,W"
3305 [152]2,NA$
3306 [152]2,LE%
3307 [152]2,SG
3308 [152]2,IN
3309 [152]2,PI
3310 [152]2,AG
3311 [152]2,EN
3312 [152]2,HI
3313 [152]2,CH:[152]2,Q9
3314 [152]2,GD:[152]2,LT
3315 [152]2,EX:[152]2,G9:[152]2,AC:[152]2,D2:[152]2,D3:[152]2,D4:[152]2,D5
3316 [129]I[178]1[164]20:[152]2,IT(I):[130]:[160]2
3320 [137]1000
4000 [129]I[178]1[164]400:[130]
4001 [129]I[178]1[164]M1:R[178][181]([187](1)[172]20[170]1):[139]R[178]20[167]4010
4002 [139]R[171]AC[177][178]M2[167]4010
4003 [153]"ON MONSTER MISSES ":[129]J[178]1[164]300:[130]
4004 [137]4090
4010 D9[178]0:[129]J[178]1[164]LL%:D9[178]D9[170][181]([187](1)[172]M4)[170]1:[130]:[139]D9[179][178]D2[167]4003
4011 [153]"ON MONSTER HITS YOU ":D9[178]D9[171]D2
4012 [153]" FOR";D9;"POINTS":CH[178]CH[171]D9:[139]CH[179]1[167]9000
4015 [129]J[178]1[164]450:[130]:[153]"ON ":[153]"ON";
4090 [153]"ON ":[130]
4095 [137]2410
5000 [141]5200
5001 [139]D7[178]0[167][153]"NO SPELL POINTS LEFT ":[137]2020
5010 [153]"WHICH SPELL?"
5020 [153]"1)LIGHT 2)LOCATE"
5025 [153]"3)PROTECT 4)LEVITATE"
5026 [153]"5)PASS WALL 6)TELEPORT"
5030 [161]X$:[139]X$[178]""[167]5030
5031 [139]X$[179]"1"[176]X$[177]"6"[167][141]5200:[137]2020
5032 [145][198](X$)[171]48[137]5035,5040,5050,5060,5070,5080
5035 F8[178][171]1:LT[178]50:D7[178]D7[171]1:[141]5200:[141]2200
5038 [137]2020
5040 D7[178]D7[171]1:[141]5200
5043 [153]"YOU ARE AT LOCATION:":[153]X%;"CMD,";Y%;" ON LEVEL";LL%
5044 [137]2020
5050 [139]D7[179]2[167]5096
5051 D7[178]D7[171]2
5055 [139]PO[178]0[167]AC[178]AC[170]1:PO[178][171]1
5056 [141]5200:[137]2020
5060 [139]D7[179]2[167]5096
5061 D7[178]D7[171]2
5065 LV[178][171]1:[141]5200:[137]2020
5070 [139]D7[179]4[167]5096
5071 D7[178]D7[171]4:[141]5200
5072 [139]X%[170]XM%[177]10[176]X%[170]XM%[179]1[176]Y%[170]YM%[177]10[176]Y%[170]YM%[179]1[167]2020
5075 X%[178]X%[170]XM%:Y%[178]Y%[170]YM%:[137]2096
5080 [139]D7[179]5[167]5096
5081 D7[178]D7[171]5
5082 [141]5200:[153]"ENTER COORDINATES":[133]"(X,Y,Z) ";I,J,K
5083 [139]I[179]1[176]I[177]10[176]J[179]1[176]J[177]10[176]K[179]1[176]K[177]10[167]5082
5085 X%[178]I:Y%[178]J:LL%[178]K:[137]2010
5096 [141]5200
5099 [153]"NOT ENOUGH SPELL POINTS":[137]2020
5100 [141]5200
5101 [139]D8[178]0[167][153]"NO HEALS LEFT ":[137]2020
5105 D8[178]D8[171]1:A[178][181]([187](1)[172]8)[170]1:CH[178]CH[170]A
5110 [139]CH[177][178]HI[167]CH[178]HI:[153]"HEALED! ":[137]2020
5120 [153]"YOU HEALED";A;"POINTS"
5199 [137]2020
5200 [153]"";:[129]I9[178]1[164]4:[153]" ":[130]:[142]
6000 [139]MN$[178]"TARBOR"[167]10000
6001 R[178][181]([187](1)[172](200[173]LL%))[170]1:[139]R[178]1[167]6100
6010 R[178][181]([187](1)[172]50[170]1)[172]10[172]LL%
6020 [153]"YOU HAVE FOUND"
6025 [153]R;"GOLD":GD[178]GD[170]R:[139]GD[177]250000[167]GD[178]250000
6030 [139]GD[177]25000[175]IT(20)[178]0[167]GD[178]25000
6040 [129]I[178]1[164]500:[130]:[141]5200:[137]2020
6100 R[178][181]([187](1)[172]19)[170]2:[139]IT(R)[178][171]1[167]6010
6110 IT(R)[178][171]1:[153]"YOU HAVE FOUND":[153]IN$(R)
6119 [139]R[177]14[167]6130
6120 [145]R[141]0,6520,6530,6540,6550,6560,6570,6580,6590,6600,6610,6620,6630,6640
6125 [137]6040
6130 [145]R[171]14[141]6650,6660,6670,6680,6690,6700
6150 [137]6040
6520 D5[178]D5[170]5:IT(1)[178]0:[142]
6530 D2[178]D2[170]5:[142]
6540 D2[178]D2[170]5:[142]
6550 D2[178]D2[170]10:[142]
6560 D2[178]D2[170]5:[142]
6570 LV[178][171]1:[142]
6580 LT[178]100000000:[142]
6590 D5[178]D5[170]4:[142]
6600 D7[178]D7[172]2:[142]
6610 D8[178]D8[172]2:[142]
6620 [142]
6630 [142]
6640 D2[178]D2[170]2:[142]
6650 D5[178]D5[170]2:[142]
6660 D5[178]D5[170]2:[142]
6670 D8[178]D8[170][181]([187](1)[172]5)[170]2:[142]
6680 D7[178]D7[170][181]([187](1)[172]5)[170]2:[142]
6690 D7[178]D7[170][181]([187](1)[172]5)[170]2:[142]
6700 [142]
9000 [129]I[178]1[164]999:[130]:[153]"LOAD YOU ARE DEAD"
9001 [139]IT(13)[178][171]1[167]9010
9002 [159]15,8,15,"S0:"[170]NA$:[152]15,"I":[160]15
9003 [153]"PRESS ANY KEY TO CONTINUE..."
9004 [161]X$:[139]X$[178]""[167]9004
9005 [153]"LOAD":[137]150
9010 [153]"THE AMULET OF LIFE IS RESSURECTING YOU!":[129]I[178]1[164]700:[130]
9015 [129]I[178]2[164]20:IT(I)[178]0:[130]:IT(1)[178][171]1:AC[178]0:[139]AG[177]14[167]AC[178]AC[170]AG[171]14
9020 LT[178]0:PO[178]0:LV[178]0:D5[178]0:[139]SG[177]16[167]D5[178]SG[171]16
9025 DA[178][171](SG[177]15)[171](SG[177]17)[170](SG[179]6)
9030 [139]SG[179]8[167]D5[178][181](SG[173]2)[171]4
9040 [137]291
9500 [153]"":[153]:[153][163]25);"EQUIPMENT":[153]
9510 [129]I[178]1[164]20
9520 [153][163]24);
9521 [139]IT(I)[178][171]1[167][153]IN$(I)
9530 [130]
9590 [153]""
9599 [142]
10000 [153]"LOAD CONGATULATIONS!!!"
10001 [153]: [153]" YOU HAVE COMPLETED THE QUEST!!":Q9[178][171]1
10002 [129]I[178]1[164]999:[130]:[141]3300
10010 [137]10010
11000 [153]"LOAD"
11001 [153]" QUEST FOR POWER"
11002 [153]" TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB("
11003 [153]" PLEASE WAIT"
11004 [153]" ";:[153]""
11010 [129]I[178]828[164]847:[135]J:[151]I,J:[130]
11020 [131]160,0,169,5,153,0,216,153,0,217,153,0,218,153,0,219,200,208,241,96
11099 [137]103
20000 [131]2112,2121,2321,2123,2111,2321,2123,2121,2121,2211
20001 [131]1212,2232,2232,2212,1222,2112,2121,2121,2211,1212
20002 [131]1112,3321,3123,1111,2211,1212,2112,2211,1212,1212
20003 [131]1212,2122,2221,1122,1221,1212,1132,1321,1223,1232
20004 [131]1122,2121,2121,2321,2123,1211,3112,2211,2112,3211
20005 [131]2112,2121,2121,2121,2211,1212,1122,1231,1122,1221
20006 [131]1212,2112,2121,2211,1212,1212,2112,3211,2112,2211
20007 [131]1212,1212,2122,1221,1212,1212,1132,1221,1122,1221
20008 [131]1212,1122,2121,2121,1221,1232,3122,2121,2321,2213
20009 [131]1122,2121,2121,2121,2121,3121,2121,2121,2121,1221
20010 [131]2112,2211,2122,2131,2131,2121,2111,2121,2121,2211
20011 [131]1132,1221,2112,3221,3122,2211,1212,2112,2311,1213
20012 [131]3112,2211,1212,2122,2221,1212,1312,1123,1221,1212
20013 [131]1122,1231,1312,2113,2211,1212,1312,2123,2321,1213
20014 [131]2112,3211,1222,1122,1231,1212,1212,2112,2311,1213
20015 [131]1132,1221,2232,2122,3121,1221,1312,1123,1221,1212
20016 [131]3122,2121,3111,2121,2121,2121,1111,2121,2121,1221
20017 [131]2112,2231,1222,2312,2323,2213,1212,2122,2321,2213
20018 [131]1212,3122,2121,1121,2121,1221,1212,2122,2121,1231
20019 [131]1122,2121,2121,2121,2121,2121,1121,2121,2121,3221
20020 [131]2332,2333,2333,2333,2333,2333,2333,2333,2333,2233
20021 [131]3332,3333,3333,3333,3333,3333,3333,3333,3333,3233
20022 [131]3332,3333,3113,3111,3111,3111,3111,3311,3333,3233
20023 [131]3332,3333,1113,1111,1121,1121,1111,1311,3333,3233
20024 [131]3332,3333,1113,1211,2332,2233,1112,1311,3333,3233
20025 [131]3332,3333,1113,1211,3222,3232,1112,1311,3333,3233
20026 [131]3332,3333,1113,1111,2111,3111,1111,1311,3333,3233
20027 [131]3332,3333,1133,1131,1131,1131,1131,1331,3333,3233
20028 [131]3332,3333,3333,3333,3333,3333,3333,3333,3333,3233
20029 [131]3322,3323,3323,3323,3323,3323,3323,3323,3323,3223
20030 [131]2112,2321,2123,2121,2111,2111,2121,2321,2123,2211
20031 [131]1232,2112,2111,2211,1112,1211,2112,2111,2211,1232
20032 [131]3212,1112,1111,1211,1112,1211,1112,1111,1211,3212
20033 [131]1212,1122,1121,1221,1132,1231,1122,1121,1221,1212
20034 [131]1112,2111,2111,2311,3113,3311,2113,2111,2111,1211
20035 [131]1112,1121,1121,1321,1133,1331,1123,1121,1121,1211
20036 [131]1212,2112,2111,2211,3112,3211,2112,2111,2211,1212
20037 [131]1232,1112,1111,1211,1112,1211,1112,1111,1211,1232
20038 [131]3212,1122,1121,1221,1112,1211,1122,1121,1221,3212
20039 [131]1122,2321,2123,2121,1121,1121,2121,2321,2123,1221
20040 [131]2112,2121,2121,2121,2121,2121,2121,2121,2121,2211
20041 [131]1212,2112,2121,2121,2121,2121,2121,2121,2221,1212
20042 [131]1212,1122,2121,2121,2121,2121,2121,2121,2121,1221
20043 [131]1112,2121,2321,2113,2131,2311,2123,2121,2121,2211
20044 [131]1222,2122,2211,1212,3222,1212,2112,2121,2121,1221
20045 [131]2112,2121,1221,1112,2111,1211,1112,2121,2121,2211
20046 [131]1212,2122,2221,1122,1131,1221,1222,2122,2221,1212
20047 [131]1122,2121,2121,2211,3212,2112,2121,2121,2121,1221
20048 [131]2112,2121,2121,1221,1212,1122,2121,2121,2121,2211
20049 [131]1122,2121,2121,2121,1121,2121,2121,2121,2121,1221
20050 [131]2112,2121,2121,2121,2121,2121,2121,2211,2112,2211
20051 [131]1212,2112,2121,2121,2121,2121,2221,1212,1212,1212
20052 [131]1212,1212,2112,2111,2121,2121,2121,1211,1212,1212
20053 [131]1212,1212,1212,1212,2112,2121,2211,1212,1212,1212
20054 [131]1212,1212,1212,1222,1222,2212,1212,1222,1212,1212
20055 [131]1212,1212,1122,2121,2121,1211,1122,2121,1221,1212
20056 [131]1212,1112,2121,2121,2211,1122,2121,2121,2121,1221
20057 [131]1212,1212,2122,2121,1121,2121,2121,2121,2121,2211
20058 [131]1212,1122,2121,2121,2121,2121,2121,2121,2221,1212
20059 [131]1122,2121,2121,2121,2121,2121,2121,2121,2121,1221
20060 [131]2132,2311,2123,2311,2123,2311,2123,2311,2123,2211
20061 [131]3212,1122,2211,1122,2211,1122,2211,1122,2211,1232
20062 [131]1122,2211,1122,2211,1122,2211,1122,2211,1122,3211
20063 [131]2212,1122,2211,1122,2211,1132,2211,1122,2211,1232
20064 [131]1132,2211,1122,2211,1122,3211,1122,2211,1122,3211
20065 [131]3212,1122,2211,1122,2211,1122,2211,1122,2211,1232
20066 [131]1122,2211,1122,2211,1122,2211,1122,2211,1122,3211
20067 [131]2212,1122,2211,1122,2211,1122,2211,1122,2211,1232
20068 [131]1132,2211,1122,2211,1122,2211,1122,2211,1122,3211
20069 [131]3222,1122,2321,1123,2221,1122,2321,1123,2321,1223
20070 [131]2112,2111,2111,2111,2111,2111,2211,2112,2311,2213
20071 [131]1112,1111,1111,1111,1111,1111,1211,1112,1311,1223
20072 [131]1112,1111,1111,1111,1111,1111,1211,1122,1321,2213
20073 [131]1112,1111,1111,1111,1111,1111,1111,2111,2211,1212
20074 [131]1112,1111,1111,1111,1111,1111,1111,1111,1211,1212
20075 [131]1112,1111,1111,1111,1111,1111,1111,1111,1211,1212
20076 [131]1112,1111,1111,1111,1111,1111,1111,1111,1211,1212
20077 [131]1112,1111,1111,1111,1111,1111,1111,1111,1211,1212
20078 [131]1122,1121,1121,1121,1121,1121,1121,1121,1221,1212
20079 [131]2122,2121,2121,2121,2121,2121,2121,2121,2121,1221
20080 [131]2112,2311,2113,2311,2113,2311,2113,2311,2113,2211
20081 [131]1132,1221,1122,1221,1132,1221,1122,1221,1122,1231
20082 [131]3212,2122,2321,2213,3212,2312,2323,2323,2223,3212
20083 [131]1312,2123,2121,1211,1212,1112,2121,2121,2321,1213
20084 [131]1212,2122,2321,1223,1212,1322,2323,2323,2223,1212
20085 [131]1312,2123,2121,2121,1111,2121,2121,2121,2321,1213
20086 [131]1212,2122,2321,2213,1212,2312,2323,2323,2223,1212
20087 [131]1312,2123,2121,1211,1212,1112,2121,2121,2321,1213
20088 [131]1212,2122,2321,1223,1232,1322,2323,2323,2223,1212
20089 [131]1122,2121,2121,2121,3121,2121,2121,2121,2121,1221
20090 [131]2112,2121,2111,2111,2111,2111,2121,2111,2111,2211
20091 [131]1112,2111,1211,1112,1121,1111,2121,1111,1221,1212
20092 [131]1112,1221,1112,1111,2111,1111,2211,1112,2121,1211
20093 [131]1112,2111,1111,1121,1111,1211,1112,1111,2111,1221
20094 [131]1112,1121,1111,2111,1221,1112,1211,1112,1111,2211
20095 [131]1112,2211,1112,1111,2111,1121,1111,1111,1211,1212
20096 [131]1212,1112,1211,1112,1121,2111,1121,1211,1112,1211
20097 [131]1112,1111,1111,1111,2111,1111,2211,1112,1121,1211
20098 [131]1112,1121,1211,1112,1211,1212,1112,1211,2112,1211
20099 [131]1122,2121,1121,1121,1121,1121,1121,1121,1121,1221
20100 [131]1,1,3,8,3,8,8,8,8,8,1,1,1,1,10,9,10,9,5,5,5,5,4,5,4,5,1,10,1,10,10,1
20101 [131]10,1,9,5,9,5,0,0
20102 [131]10,1,3,6,5,4,10,1,5,6,8,5,10,2,8,1,9,3,5,5
20103 [131]0,0,3,1,5,6,1,10,6,5,6,5,9,1,0,0,0,0,0,0
20104 [131]5,2,2,1,4,7,10,10,4,5,3,8,5,4,9,2,2,5,5,10
20500 [131]MAGIC SWORD,MAGIC SHIELD,MAGIC HELMET,MAGIC ARMOR
20510 [131]MAGIC ROBE,LEV RING,AMULET OF LIGHT,INVIS RING,MAGIC WAND,MAGIC ROD
20520 [131]HOLY CROSS,LIFE AMULET,MAGIC BOOTS,MAGIC BELT,MAGIC GLOVES
20530 [131]MAGIC SCROLL,MAGIC SCROLL,MAGIC SCROLL
20531 [131]MAGIC BAG
21000 [131]VAMPIRE,1,1,10,10,95,0,7
21001 [131]EVIL WARRIOR,4,10,5,6,0,50,0
21002 [131]DEADLY SPIDER,8,15,1,1,0,20,1
21003 [131]DRAGON,1,2,8,12,50,75,5
21004 [131]EVIL WIZARD,1,15,2,20,99,10,0
21005 [131]DEMON,4,11,6,4,40,35,3
21006 [131]PUD,20,1,20,1,0,5,0
21007 [131]EKKER,3,14,7,4,0,65,4
21008 [131]ZOMBIE,4,14,6,6,20,45,2
21009 [131]DEATH,1,1,9,1,99,1,7