N ULTIMA IV--CHANGE # OF REAGENTS, FOOD, GOLD, & ITEMSw"":53281,0:53280,0: TR(256)"INSERT BRITTANIA DISK AND PRESS RETURN.."(A$:A$(13)40215:2:15,8,15,"I0:":15:T$"" <15,8,15:2,8,2,"#":15,"U1";2;0;18;0E F15,"B-P:";2;144:I116:#2,B$:T$T$B$::2:15o P(T$,9,1)"C"53280,2:53280,0:30 Z"READING DISK.....PLEASE WAIT!" d15,8,15:2,8,2,"#":15,"U1";2;0;14;1 nI0255:#2,A$:A$""A$(0) xTR(I)(A$)::2:150 NTR(16):500:FD$N$:NTR(17):500:FD$FD$N$b NTR(19):500:GD$N$:NTR(20):500:GD$GD$N$ J07:NTR(56J):500:RG$(J)N$:RG(J)(N$): J03:NTR(8J):500:I$(J)N$: "A-FOOD:";FD$:"B-GOLD:";GD$$ :I07:RN$(I):: SULFUR ASH,GINSENG,GARLIC,SPIDER SILKZ BLOOD MOSS,BLACK PEARL,NIGHTSHADE,MANDRAKE ROOT "":I07:"";(67I);"-";RN$(I)":";RG$(I);"": "K-TORCHES:";I$(0):"L-GEMS:";I$(1):"M-KEYS:";I$(2) "N-SEXTANTS:";I$(3)! "O-SAVE":"P-QUIT WITHOUT SAVING"H "INPUT ITEM TO CHANGE---":198,0c A$:A$"A"A$"P"210x A$"P""";: A$"O" 300 "INPUT NEW VALUE ";:NV$ A$"B" (NV$)99 220 (NV$)9999 220 NV$"0000"NV$:A$"C"NV$(NV$,4)6 A$"B"NV$(NV$,2)L  A$"A" FD$NV$b  A$"B" GD$NV$  A$"J"I$((A$)75)NV$: 295 " A$"B"RG$((A$)67)NV$ ' 160 ,"ARE YOU SURE? ";:A$6 A$"Y" 160/@"SAVING ITEMS.....PLEASE WAIT!"MJF1$(FD$,2):F2$(FD$,2)kTG1$(GD$,2):G2$(GD$,2)^N$F1$:530:TR(16)N:N$F2$:530:TR(17)NhN$G1$:530:TR(19)N:N$G2$:530:TR(20)NrI07:N$RG$(I):530:TR(56I)N:sI03:N$I$(I):530:TR(8I)N:C|15,8,15:2,8,2,"#":I1255:2,(TR(I));:f2,(TR(0));:15,"U2";2;0;14;12:15:"FINISHED!!!": CONVERT N TO BCDN$"":I101:N16IN$N$"0"::N%N16I:N$N$(48N%):NN16IN%::  CONVERT BCD TO N;N(((N$,2,1))48)(((N$,1,1))48)16: