The routine above the Adventure Shop seems to be for displaying stats and inventory.
60080 TEXT : HOME : PRINT : PRINT : PRINT " STAT'S WEAPONS": PRINT : FOR X = 0 TO 5: PRINT C$(X);C(X); TAB 24);"0-";W$(X): NEXT : POKE 34,12: HOME : POKE 35,15
This suggests that C$() contains the name of the stats and C() the value (which would make 5 correspond to gold (see above). It also suggests W$() contains the names of the items.
The POKE 34,12 and POKE 35,15 set the top and bottom of the text window.
The TAB 24) without opening parentheses is odd and may be a bug in my de-tokenizer.
We show the key to quit:
60081 VTAB (11): HTAB (18): PRINT "Q-QUIT"
If the amount of food is more than zero, we clear the hires screen (not sure why only if the amount of food is more than zero):
60082 IF PW(0) > 0 THEN CALL 62450
Next we display the item counts, as we saw in the shop code:
60085 FOR Z = 0 TO 5: VTAB (5 + Z): HTAB (25 - LEN ( STR$ (PW(Z)))): PRINT PW(Z);: NEXT
Next we print the PRICE, DAMAGE, and ITEM headers:
60090 VTAB (17): HTAB (5): PRINT "PRICE";: HTAB (15): PRINT "DAMAGE";: HTAB (25): PRINT "ITEM"
The names of the items:
60100 FOR X = 0 TO 5: VTAB (19 + X): HTAB (25): PRINT W$(X): NEXT
And various hard-coded values:
60110 VTAB (19): HTAB (5): PRINT "1 FOR 10": HTAB (15): PRINT "N/A": VTAB (20): HTAB (5): PRINT "8": HTAB (15): PRINT "1-10": VTAB (21): HTAB (5): PRINT "5": HTAB (15): PRINT "1-5"
60120 VTAB (22): HTAB (5): PRINT "6": HTAB (15): PRINT "1": VTAB (23): HTAB (5): PRINT "3": HTAB (15): PRINT "1-4": VTAB (24): HTAB (5): PRINT "15": HTAB (15): PRINT "?????": HOME
60130 RETURN