home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Games / POOL-EDIT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  11.4 KB  |  310 lines
  1. 10 IF GRAG=1 THEN GRAG=0:GOTO3060
  2. 20 IFFLAG=1 THEN 1670
  3. 30 POKE 53280,0:POKE53281,0:FLAG=1
  4. 40 DEF FN EX(X)=PEEK(27624)+PEEK(27625)*256+PEEK(27626)*65536
  5. 50 DEF FN HL(X)=PEEK(27392+X)+256*PEEK(27392+X+1)
  6. 60 DIM I$(16),ID$(16),SA(50),IN$(256)
  7. 70 FORX=1TO8:READR$(X):NEXTX:DIMC$(16):FORX=0TO16:READC$(X):NEXT
  8. 80 FORX=1TO6:READAT$(X):NEXT
  9. 90 FORX=1TO16:READI$(X):FORY=1TO16:READD:ID$(X)=ID$(X)+CHR$(D):NEXT:NEXT
  10. 100 FORX=1TO255:READIN$(X):NEXTX:GOTO170
  11. 110 DATA DWARF,ELF,GNOME,HALF-ELF,HALFLING,FLAF-ORC,HUMAN,MONSTER
  12. 120 DATA CLERIC,DRUID,FIGHTER,MAGIC-USER,MAGIC-USER,MAGIC-USER,THEIF,MONK
  13. 130 DATA CLERIC/FIGHTER,CLERIC/FIGHTER/MAGIC-USER,CLERIC/MAGIC-USER
  14. 140 DATACLERIC/MAGIC-USER,CLERIC/THEIF,FIGHTER/MAGIC-USER,FIGHTER/THEIF
  15. 150 DATAFIGHTER/MAGIC-USER/THEIF,MAGIC-USER/THEIF
  16. 160 DATA STR,INT,WIS,DEX,CON,CHR
  17. 170 AD=27392:GOTO 1670
  18. 180 GOTO 190
  19. 190 PRINT "[147][158] 1) ";
  20. 200 FORX=0TO19:IFPEEK(X+AD)<>0THENPRINTCHR$(PEEK(AD+X));:NEXT
  21. 210 PRINT""
  22. 220 RA=PEEK(AD+114):PRINT"[158] 2) ";R$(RA);"[158] 3) AGE";
  23. 230 PRINT FN HL(116)
  24. 240 PRINT "[158] 4) ";C$(PEEK(AD+115))
  25. 250 PRINT
  26. 260 PRINT "[158] 5) ";AT$(1);"";PEEK(AD+20);"[158]11) (";PEEK(AD+26);")"
  27. 270 FORX=1TO4:PRINT"[158]";X+5;"[157]) ";AT$(X+1);"";PEEK(AD+20+X):NEXT
  28. 280 PRINT "[158]10) ";AT$(6);"";PEEK(AD+20+5)
  29. 290 PRINT
  30. 300 PRINT "[158]12) LEVEL";PEEK(AD+160),"[158]13) EXP";FN EX(1)
  31. 310 PRINT"[158]14) HITPOINTS";PEEK(AD+118):PRINT
  32. 320 PRINT "[158]15) JEWELERY";FN HL(199)
  33. 330 PRINT "[158]16) GEMS";FN HL (197)
  34. 340 PRINT "[158]17) PLATINUM";FN HL(195)
  35. 350 PRINT "[158]18) GOLD";FN HL(193)
  36. 360 PRINT "[158]19) ELECTRUM";FN HL(191)
  37. 370 PRINT "[158]20) SILVER";FN HL(189)
  38. 380 PRINT "[158]21) COPPER";FN HL(187)
  39. 390 PRINT
  40. 400 INPUT "CHANGE (0 FOR MENU)";CH
  41. 410 IF CH>10 THEN 440
  42. 420 ON CH+1 GOTO 1670,450,550,620,690,760,810,860,910,960,1010
  43. 430 GOTO 190
  44. 440 ON CH-10 GOTO 1060,1130,1650,1180,1230,1280,1330,1380,1430,1480,1530
  45. 450 N$="":FORX=0TO19:IFPEEK(X+AD)<>0THENN$=N$+CHR$(PEEK(AD+X)):NEXTX
  46. 460 PRINT "[147]"
  47. 470 PRINT "CURRENT NAME:";N$
  48. 480 INPUT "[158]CHANGE NAME TO:[159]";NN$
  49. 490 IF LEN(NN$)>19 THEN PRINT "TOO LONG! (< 19 LETTERS)":GOTO480
  50. 500 IF NN$="" THENRETURN
  51. 510 GOSUB 1590
  52. 520 IF YN=0 THEN RETURN
  53. 530 L=LEN(NN$):FORX=0TOL-1:POKEAD+X,ASC(MID$(NN$,X+1,1)):NEXTX:NN$="":N$=""
  54. 540 FORX=LTO19:POKEAD+X,0:NEXT:GOTO180
  55. 550 PRINT "[147]"
  56. 560 PRINT "CURRENT RACE:";R$(PEEK(AD+114))
  57. 570 FORX=1TO8:PRINT"[158]";X;") [156]";R$(X):NEXT
  58. 580 INPUT "NEW RACE:[159]";NR
  59. 590 IF NR<1 OR NR>8 THEN PRINT "1-8 ONLY!":GOTO580
  60. 600 GOSUB1590:IFYN=0THEN180
  61. 610 POKEAD+114,NR:GOTO 180
  62. 620 PRINT "[147]"
  63. 630 PRINT "CURRENT AGE:";FN HL(116)
  64. 640 INPUT "CHANGE AGE TO (0-32767):[159]";NA
  65. 650 IF NA<0 OR NA>32767 THEN PRINT "0-32767 ONLY!":GOTO570
  66. 660 GOSUB 1590:IF YN=0 THEN RETURN
  67. 670 POKEAD+116,NA AND 255:POKEAD+117,INT(NA/256)
  68. 680 GOTO 180
  69. 690 PRINT "[147]"
  70. 700 PRINT "CURRENT CLASS:";C$(PEEK(AD+115))
  71. 710 FORX=1TO16:PRINT"[158]";X;") [156]";C$(X):NEXT
  72. 720 INPUT "NEW CLASS:[159]";NC
  73. 730 IF NC<1 OR NC>16 THEN PRINT "1-16 ONLY!":GOTO720
  74. 740 GOSUB1590:IFYN=0THENRETURN
  75. 750 POKEAD+115,NC:GOTO 180
  76. 760 PRINT "[147]"
  77. 770 PRINT "CURRENT STRENTH:";PEEK(AD+20)
  78. 780 INPUT "NEW STRENTH:[159]";NS
  79. 790 IF NS<0 OR NS>255 THEN PRINT "0-255 ONLY!":GOTO 780
  80. 800 POKEAD+20,NS:GOTO180
  81. 810 PRINT "[147]"
  82. 820 PRINT "CURRENT INTELLEGENCE:";PEEK(AD+21)
  83. 830 INPUT "NEW INTELLEGENCE:[159]";NI
  84. 840 IF NI<0 OR NI>255 THEN PRINT "0-255 ONLY!":GOTO 830
  85. 850 POKEAD+21,NI:GOTO190
  86. 860 PRINT "[147]"
  87. 870 PRINT "CURRENT WISDOM:";PEEK(AD+22)
  88. 880 INPUT "NEW WISDOM:[159]";NW
  89. 890 IF NW<0 OR NW>255 THEN PRINT "0-255 ONLY!":GOTO 880
  90. 900 POKEAD+22,NW:GOTO190
  91. 910 PRINT "[147]"
  92. 920 PRINT "CURRENT DEXTERITY:";PEEK(AD+22)
  93. 930 INPUT "NEW DEXTERITY:[159]";ND
  94. 940 IF ND<0 OR ND>255 THEN PRINT "0-255 ONLY!":GOTO 930
  95. 950 POKEAD+23,ND:GOTO190
  96. 960 PRINT "[147]"
  97. 970 PRINT "CURRENT CONSTITUTION:";PEEK(AD+24)
  98. 980 INPUT "NEW CONSTITUTION:[159]";NC
  99. 990 IF NC<0 OR NC>255 THEN PRINT "0-255 ONLY!":GOTO 980
  100. 1000 POKEAD+24,NC:GOTO190
  101. 1010 PRINT "[147]"
  102. 1020 PRINT "CURRENT CHRISMA:";PEEK(AD+25)
  103. 1030 INPUT "NEW CHRISMA:[159]";NC
  104. 1040 IF NC<0 OR NC>255 THEN PRINT "0-255 ONLY!":GOTO 1030
  105. 1050 POKEAD+25,NC:GOTO190
  106. 1060 PRINT"[147]":IFPEEK(AD+20)<>18THENPRINT"[158]STRENTH MUST BE 18!":GOTO 1080
  107. 1070 GOTO 1090
  108. 1080 FORX=1TO999:NEXT:GOTO 190
  109. 1090 PRINT "CURRENT STRENTH BONUS:";PEEK(AD+26)
  110. 1100 INPUT "NEW STRENTH BONUS:[159]";NB
  111. 1110 IF NB<0 OR NB>255 THEN PRINT "0-255 ONLY!":GOTO 1100
  112. 1120 POKEAD+26,NB:GOTO190
  113. 1130 PRINT "[147]"
  114. 1140 PRINT"CURRENT LEVEL:";PEEK(AD+160)
  115. 1150 INPUT"NEW LEVEL:[159]";NL
  116. 1160 IF NL<0ORNL>255THENPRINT"0-255 ONLY!":GOTO1150
  117. 1170 POKEAD+160,NL:GOTO190
  118. 1180 PRINT "[147]"
  119. 1190 PRINT"CURRENT HITPOINTS:";PEEK(AD+118)
  120. 1200 INPUT"NEW HITPOINTS:[159]";NP
  121. 1210 IF NP<0ORNP>255THENPRINT"0-255 ONLY!":GOTO1200
  122. 1220 POKEAD+118,NP:GOTO190
  123. 1230 PRINT"[147]":PRINT "CURRENT JEWELERY:";FN HL(199)
  124. 1240 INPUT "CHANGE JEWELERY TO (0-32767):[159]";NJ
  125. 1250 IF NJ<0 OR NJ>32767 THEN PRINT "0-32767 ONLY!":GOTO1240
  126. 1260 POKEAD+199,NJ AND 255:POKEAD+200,INT(NJ/256)
  127. 1270 GOTO 190
  128. 1280 PRINT"[147]":PRINT "CURRENT GEMS:";FN HL(197)
  129. 1290 INPUT "CHANGE GEMS TO (0-32767):[159]";NJ
  130. 1300 IF NJ<0 OR NJ>32767 THEN PRINT "0-32767 ONLY!":GOTO1290
  131. 1310 POKEAD+197,NJ AND 255:POKEAD+198,INT(NJ/256)
  132. 1320 GOTO 190
  133. 1330 PRINT"[147]":PRINT "CURRENT PLATINUM:";FN HL(195)
  134. 1340 INPUT "CHANGE PLATINUM TO (0-32767):[159]";NJ
  135. 1350 IF NJ<0 OR NJ>32767 THEN PRINT "0-32767 ONLY!":GOTO1340
  136. 1360 POKEAD+195,NJ AND 255:POKEAD+196,INT(NJ/256)
  137. 1370 GOTO 190
  138. 1380 PRINT"[147]":PRINT "CURRENT GOLD:";FN HL(193)
  139. 1390 INPUT "CHANGE GOLD TO (0-32767):[159]";NJ
  140. 1400 IF NJ<0 OR NJ>32767 THEN PRINT "0-32767 ONLY!":GOTO1390
  141. 1410 POKEAD+193,NJ AND 255:POKEAD+194,INT(NJ/256)
  142. 1420 GOTO 190
  143. 1430 PRINT"[147]":PRINT "CURRENT ELECTRUM:";FN HL(191)
  144. 1440 INPUT "CHANGE ELECTRUM TO (0-32767):[159]";NJ
  145. 1450 IF NJ<0 OR NJ>32767 THEN PRINT "0-32767 ONLY!":GOTO1440
  146. 1460 POKEAD+191,NJ AND 255:POKEAD+192,INT(NJ/256)
  147. 1470 GOTO 190
  148. 1480 PRINT"[147]":PRINT "CURRENT SILVER:";FN HL(189)
  149. 1490 INPUT "CHANGE SILVER TO (0-32767):[159]";NJ
  150. 1500 IF NJ<0 OR NJ>32767 THEN PRINT "0-32767 ONLY!":GOTO1490
  151. 1510 POKEAD+189,NJ AND 255:POKEAD+190,INT(NJ/256)
  152. 1520 GOTO 190
  153. 1530 PRINT"[147]":PRINT "CURRENT COPPER:";FN HL(187)
  154. 1540 INPUT "CHANGE COPPER TO (0-32767):[159]";NJ
  155. 1550 IF NJ<0 OR NJ>32767 THEN PRINT "0-32767 ONLY!":GOTO1540
  156. 1560 POKEAD+187,NJ AND 255:POKEAD+188,INT(NJ/256)
  157. 1570 GOTO 190
  158. 1580 END
  159. 1590 REM YN
  160. 1600 PRINT "ARE YOU SURE ([158]Y[146]/[158]N[146])?"
  161. 1610 GET A$:IFA$=""THEN1610
  162. 1620 IF A$="Y" THEN YN=1
  163. 1630 IF A$<>"Y" THEN YN=0
  164. 1640 RETURN
  165. 1650 PRINT "[147]OK... IT IS AT THE MAX":FORX=0TO999:NEXT
  166. 1660 POKEAD+232,255:POKEAD+233,255:POKEAD+234,255:GOTO180
  167. 1670 PRINT "[147][158]   POOL OF RADIANCE CHARACTER EDITOR    [156]";
  168. 1680 PRINT "   BY: CRACKED 1 - OR STEVE KRULEWITZ   ";
  169. 1690 PRINT "[158]     THANKS TO TARJAN FOR OPTION #2     "
  170. 1700 PRINT:AD=27392
  171. 1710 PRINT,"[156]1) LOAD CHARACTER"
  172. 1720 PRINT,"[156]2) MAKE ALL + WEPONS +5"
  173. 1730 PRINT,"[156]3) EDIT CHARACTER"
  174. 1740 PRINT,"[156]4) SAVE CHARACTER"
  175. 1750 PRINT,"[156]5) ADD SPECIAL ITEMS"
  176. 1760 PRINT,"[156]6) MANIPULATE ITEMS"
  177. 1770 NA$="":N$="":FORX=0TO19:IFPEEK(X+AD)<>0THENN$=N$+CHR$(PEEK(AD+X)):NEXT
  178. 1780 PRINT"[149]CURRENT CHARCTER NAME:";N$
  179. 1790 INPUT "           [159]CHOICE";C
  180. 1800 IFC<1ORC>6THEN1670
  181. 1810 IFC=1THENINPUT"[154]NAME";NA$:LOAD""+NA$,8,1
  182. 1820 ONC-1GOTO1830,1890,1900,1970,2600
  183. 1830 FOR X=27648 TO 27972:P=PEEK(X)
  184. 1840 IFP=162ORP=163ORP=164ORP=165THEN1860
  185. 1850 NEXTX:GOTO1670
  186. 1860 IFP-161=PEEK(X+2)THENPOKEX,166:POKEX+2,5:GOTO 1850
  187. 1870 IFP-161=PEEK(X+3)THENPOKEX,166:POKEX+3,5:GOTO 1850
  188. 1880 GOTO 1850
  189. 1890 GOTO 180
  190. 1900 INPUT "[154]SAVE NAME";N$:F$=""+N$:D=8
  191. 1910 A1=27392:A2=27972:OPEN15,8,15,"S0:"+F$:CLOSE15:A$=F$
  192. 1920 L=PEEK(53)+256*PEEK(54)-LEN(A$):POKE782,L/256:POKE781,L-PEEK(782)*256
  193. 1930 POKE780,LEN(A$):SYS65469
  194. 1940 T=A1:POKE254,T/256:POKE253,T-PEEK(254)*256:POKE780,253
  195. 1950 T=A2+1:POKE782,T/256:POKE781,T-PEEK(782)*256:SYS65496
  196. 1960 GOTO1670
  197. 1970 SL=0:FORX=27664TO27896STEP16:IFPEEK(X)=0 THEN SL=SL+1:SA(SL)=X
  198. 1980 NEXTX:IF SL=0THENPRINT "NOT ENOUGH ROOM!":FORX=0TO999:NEXT:GOTO1670
  199. 1990 PRINT "[147]":FORX=1TO16:PRINT"";X;") ";I$(X):NEXT
  200. 2000 PRINT ">SPACE LEFT:[158]";SL
  201. 2010 INPUT "ITEM TO ADD (0 TO MENU)";AD:IF AD=0THEN 1670
  202. 2020 IF AD<0 OR AD>16 THEN PRINT "1-16 ONLY!":FORX=0TO999:NEXT:GOTO1990
  203. 2030 FORX=1TO16:POKESA(1)+X-1,ASC(MID$(ID$(AD),X,1)):NEXTX
  204. 2040 FORX=1TOSL-1:SA(X)=SA(X+1):NEXTX:SL=SL-1:IF SL>0 THEN1990
  205. 2050 GOTO 1670
  206. 2060 DATADUST OF DISSAPEARANCE,70,194,167,96,1,0,0,0,20,0,0,64,31,1,86,0
  207. 2070 DATANECKLACE OF MISSLES,70,228,167,119,2,0,0,0,0,0,0,179,4,4,87,0
  208. 2080 DATARING OF FEATHERFALLING,90,238,167,66,3,0,0,0,0,0,0,136,19,0,0,0
  209. 2090 DATALONG SWORD +2/FLAMETONGUE,36,241,163,36,1,0,0,0,250,0,0,172,13,0,3,136
  210. 2100 DATATWO-HANDED SWORD +1 +3 VS UNDEAD,38,253,162,38,1,0,0,0,250,0,0,172,13
  211. 2110 DATA0,3,136
  212. 2120 DATAJAVELIN OF LIGHTNING,71,157,167,21,1,0,0,0,20,0,0,184,11,1,83,0
  213. 2130 DATAWAND OF LIGHTNING,78,157,167,69,10,0,0,0,10,0,0,48,117,20,51,0
  214. 2140 DATAEFREETI BOTTLE,82,0,233,232,10,0,0,0,0,0,0,184,136,0,0,0
  215. 2150 DATAWAND OF MAGIC MISSILES,79,206,167,69,10,0,0,0,20,0,0,32,78,30,88,0
  216. 2160 DATARING OF PROTECTION +1,93,162,224,66,1,0,0,0,0,0,0,16,39,0,0,0
  217. 2170 DATAPOTION OF GIANT STRENTH,84,239,167,64,1,0,0,0,25,0,0,244,1,1,82,0
  218. 2180 DATAPLATE MAIL +2,58,163,48,58,2,0,0,0,194,1,0,4,41,0,0,0
  219. 2190 DATAPOTION OF SPEED,70,173,167,64,1,0,0,0,25,0,0,88,2,1,80,0
  220. 2200 DATACLOAK OF DISPLACEMANT,92,170,167,88,2,0,0,0,30,0,0,92,68,0,89,133
  221. 2210 DATABRACERS AC3,77,0,223,79,7,0,0,0,0,0,0,8,82,0,0,0
  222. 2220 DATARING OF FIRE RESISTANCE,69,205,167,66,3,0,0,0,0,0,0,136,19,0,61,129
  223. 2230 REM
  224. 2240 DATABATTLE AXE,HANDE AXE,BARDICHE,BEC DE CORBIN,BILL-GUSARME,BO STICK,CLUB
  225. 2250 DATADAGGER,DART,FAUCHARD,FRAUCHARD-FORK,FLAIL,MILITARY FORK,GLAIVE
  226. 2260 DATAGLAIVE-GUSARME,GUSARME,GUSARME-VOULGE,HALBERD,LUCERN HAMMER,HAMMER
  227. 2270 DATA JAVILIN
  228. 2280 DATAJO STICK,MACE,MORING STAR,PARTISAN,MILITARY PICK,AWL PIKE,QUARREL(S)
  229. 2290 DATARANSEUR,SCIMITAR,SPEAR,SPETUM,QUATER STAFF,BASTARD SWORD,BROARD SWORD
  230. 2300 DATALONG SWORD,SHORT SWORD,TWO-HANDED SWORD,TRIDENT,VOULGE
  231. 2310 DATACOMPOSITE LONG BOW,COMPOSITE SHORT BOW,LONG BOW,SHORT BOW
  232. 2320 DATAHEAVE CROSSBOW,LIGHT CROSSBOW,SLING,MAIL,ARMOR,LEATHER,PADDED,STUDDED
  233. 2330 DATA RING,SCALE
  234. 2340 DATACHAIN,SPLINT,BANDED,PLATE,SHIELD,WOOD,ARROW(S),,,POTION,SCROLL,RING
  235. 2350 DATAROD,STAVE,WAND,JUG,AMULET,APPARATUS,BAG,BEAKER,BOAT,BOOK,BOOTS,BOWL
  236. 2360 DATABRACERS,BRAZIER,BROOCH,BROOM,PURSE,CANDLE,CARPET,CENSER,CHIME,CLOAK
  237. 2370 DATACRYSTAL,CUBE,CUBIC,FORTRESS,DECANTER,DECK,DRUMS,DUST,EYES,FIGURIENE
  238. 2380 DATAFLASK,GAUNTLETS,GEM,GIRDLE,HELM,HORN,HORSESHOES,INCENCE,STONE
  239. 2390 DATA INSTRUMENT,JAVILIN,JEWEL
  240. 2400 DATAOINTMENT,LIBRAM,LYRE,MANUAL,MATTOCK,MAUL,MEDALLION,MIRROR,NECKLACE,NET
  241. 2410 DATAPIGMENT,PEARL,PERIAPT,PHYLACTERY,PIPES,HOLE,TOKEN,ROBE,ROPE,RUG,SAW
  242. 2420 DATASCARAB,SPADE,SPHERE,STONE,TALISMAN,TOME,TRIDENT,GRIMORE,WELL,WINGS
  243. 2430 DATAVIAL,LANTERN,MIRROR
  244. 2440 DATAFLASK OF OIL,10' POLE,50' ROPE,IRON,THEVES' PICK & TOOLS,IRON RATIONS
  245. 2450 DATASTANDARD RATIONS,HOLY SYMBOL,VIAL OF HOLY WATER,VIAL OF UNHOLY WATER
  246. 2460 DATABARDING,DRAGON,LIGHTNING,SADDLE,SMALL RAFT,CART,WAGON,+1,+2,+3,+4,+5
  247. 2470 DATAOF,,CLOAK,DISPLACEMENT,TORCH(ES),OIL,SPEED,TAPESTRY,BODILE HEALTH
  248. 2480 DATACOPPER,SILVER,ELECTRUM,GOLD,PLATINUM,OINTMENT,KEOGHTUM'S,SHEET(S)
  249. 2490 DATASTRENTH,HEALING,HOLDING,EXTRA,GASEOUS FORM,SLIPPERINESS,JEWELED,FLYING
  250. 2500 DATATREASURE FINDING,FEAR,DISSAPERANCE,STATUETTE,FUNGUS,CHAINS(S),PENDANT
  251. 2510 DATABROACH,OF SEEKING,-1,-2,-3,LIGHTNING BOLT,FIRE RESISTANCE
  252. 2520 DATAMAGIC MISSILES,SAVE,CLERICAL SCROLL,MU SCROLL,WITH 1 SPELL
  253. 2530 DATAWITH 2 SPELLS,WITH 3 SPELLS,PROTECTION SCROLL,JEWELERY,FINE,HUGE,BONE
  254. 2540 DATABRASS,KEY,AC2,AC6,AC4,AC3,OF PROTECTION,PARALYZATION,OF PROTECTION
  255. 2550 DATAINVISIBILITY,MISSILES,ELVENKIND,ROTTING,COVERED,EFREETI,BOTTLE
  256. 2560 DATAMISSILE ATTRACTOR,OF MAGLUBIYET,SECR DOOR & TRAP DECT
  257. 2570 DATAGOOD DRAGON CONTROL,FEATHER FALLING,GIANT STRENGTH,RESTORATION
  258. 2580 DATA/FLAMETOUNGE,FIREBALLS,SPIRITUAL,BOULDER,DIAMOND,EMERALD,OPAL,SAPHIRE
  259. 2590 DATAOF TYR,OF TEMPUS,OF SUNE,WOODEN,+3 VS UNDEAD,PASS,CURSED
  260. 2600 :
  261. 2610 A3=27665:PRINT "[147]CURRENT POSSESIONS:":IN=1
  262. 2620 IF PEEK(A3-1+IN*16)=0THEN2660
  263. 2630 PRINT"";IN;"[157][159])[158]";
  264. 2640 FORX=A3+2+(IN*16)TOA3+(IN*16)STEP-1
  265. 2650 PRINTIN$(PEEK(X));" ";:NEXTX:PRINT
  266. 2660 IN=IN+1:IF IN<17GOTO2620
  267. 2670 :
  268. 2680 PRINT,"A[159])[158]LOAD ITEM"
  269. 2685 PRINT ,"B[159])[158]DELETE ITEM"
  270. 2690 PRINT:INPUT "ITEM TO MODIFY (0 FOR MENU)[156]";IM$:IFIM$="0" THEN1670
  271. 2700 IF IM$="A" THEN 3010
  272. 2701 IF IM$="B"THENINPUT"ITEM";MM:AA=(A3-1)+(MM*16):FORX=AATOAA+15:POKEX,0:NEXT
  273. 2702 IFIM$="B"THEN2600
  274. 2710 IM=VAL(IM$)
  275. 2720 A4=(A3-1)+(IM*16)
  276. 2730 PRINT:IN$=IN$(PEEK(A4+3))+" "+IN$(PEEK(A4+2))+" "+IN$(PEEK(A4+1))
  277. 2740 IFMID$(IN$,LEN(IN$),1)=" "THENIN$=LEFT$(IN$,LEN(IN$)-1)
  278. 2750 PRINT">NAME:[158]";IN$
  279. 2760 PRINT"1>EQUPPED:[158]";
  280. 2770 IFPEEK(A4+6)=0THENPRINT"NO"
  281. 2780 IFPEEK(A4+6)=128THENPRINT"YES"
  282. 2790 PRINT"2>AMOUNT:[158]";PEEK(A4+10)
  283. 2800 PRINT"3>CHARGES:[158]";PEEK(A4+13)
  284. 2810 PRINT"4>PLUS VALUE:[158]";PEEK(A4+4)
  285. 2820 PRINT"5>SAVE ITEM"
  286. 2830 INPUT "[159]NUMBER TO CHANGE (0 FOR LIST)";CN:IFCN=0THEN2610
  287. 2840 IFCN>5ORCN<0THEN2830
  288. 2850 IF CN=5 THEN 2940
  289. 2860 IFCN=1THENGOTO2920
  290. 2870 IFCN=2THENZ=10
  291. 2880 IFCN=3THENZ=13
  292. 2890 IFCN=4THENZ=4
  293. 2900 INPUT "[154]NEW VALUE";NV:IFNV>-1ANDNV<256THENPOKEZ+A4,NV
  294. 2910 PRINT:GOTO2730
  295. 2920 INPUT"1) [154]FOR [158]NO[146] 2) [154]FOR [158]YES[146][154]";A:IFA=1ORA=2THENPOKEA4+6,(A-1)*128
  296. 2930 GOTO2730
  297. 2940 FORX=0TO15:POKE49152+X,PEEK(A4+X):NEXTX
  298. 2950 A1=49152:A2=49152+15:OPEN15,8,15,"S0:"+IN$:CLOSE15:A$=IN$
  299. 2960 L=PEEK(53)+256*PEEK(54)-LEN(A$):POKE782,L/256:POKE781,L-PEEK(782)*256
  300. 2970 POKE780,LEN(A$):SYS65469
  301. 2980 T=A1:POKE254,T/256:POKE253,T-PEEK(254)*256:POKE780,253
  302. 2990 T=A2+1:POKE782,T/256:POKE781,T-PEEK(782)*256:SYS65496
  303. 3000 GOTO 2730
  304. 3010 SL=0:FORX=27664TO27896STEP16:IFPEEK(X)=0 THEN SL=1:SA=X:GOTO3030
  305. 3020 NEXTX
  306. 3030 IFSL=0THENPRINT"NO ROOM!":FORX=0TO999:NEXT:GOTO2610
  307. 3040 FF$="":INPUT"[159]FILE NAME:";FF$:IFFF$=""THENGOTO2610
  308. 3050 GRAG=1:LOAD FF$,8,1
  309. 3060 FORX=0TO15:POKESA+X,PEEK(49152+X):NEXTX:GOTO2610
  310.