%File Syntax: item.nItems,item.nItems etc.

type invSlot : %an inventory slot holds the type of item, and the amount
    record
        item : int
        nItems : int
    end record

var inventory : array 1 .. 10 of invSlot %10 inventory slots in inventory
var stream : int
var placeHolder := 1 %the string index of the beginning of each extracted value in the file
var slotNumber := 1 %the slot in which information is stored
var data : string %extracted information

for i : 1 .. 10
    inventory (i).item := 0 %init
    inventory (i).nItems := 0 %init
end for

open : stream, "save1.txt", get
get : stream, data

for i : 1 .. length (data)
    if data (i) = "." then %if a "." is detected
        for j : placeHolder .. i - 1  %mark from the placeHolder to just before the "." (extracted values between "." and ",", and vice versa)
            inventory (slotNumber).item := strint (intstr (inventory (slotNumber).item) + (data (j))) %item becomes length(placeholder) to length (i)
            placeHolder := i + 1 %next variable begins after "."
        end for
    elsif data (i) = "," then %repeated for "," but for inventory(i).nItems instead
        for j : placeHolder .. i - 1
            inventory (slotNumber).nItems := strint (intstr (inventory (slotNumber).nItems) + (data (j)))
            placeHolder := i + 1
            slotNumber += 1 %after every "," another slot is set
        end for
    end if
end for

for i : 1..10
put inventory (i).item , " x "..
put inventory (i).nItems
end for

  for j : placeHolder .. i - 1
            inventory (slotNumber).nItems := strint (intstr (inventory (slotNumber).nItems) + (data (j)))
            placeHolder := i + 1
        end for
         slotNumber += 1 %after every "," another slot is set